diff --git a/App.Config b/App.Config new file mode 100644 index 0000000..52230cd --- /dev/null +++ b/App.Config @@ -0,0 +1,73 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Baget/nuget.exe b/Baget/nuget.exe new file mode 100644 index 0000000..94aada9 Binary files /dev/null and b/Baget/nuget.exe differ diff --git a/Baget/tsl5v2.nuspec b/Baget/tsl5v2.nuspec new file mode 100644 index 0000000..92bcd55 --- /dev/null +++ b/Baget/tsl5v2.nuspec @@ -0,0 +1,18 @@ + + + + tsl5 + 3.0.2 + Manuel + Tecnosis S.A. + false + Utilidades varias de tecnosis. + tsl5 .net48 + + + + + + + + \ No newline at end of file diff --git a/Bancos/Bancos.vb b/Bancos/Bancos.vb new file mode 100644 index 0000000..e3239d3 --- /dev/null +++ b/Bancos/Bancos.vb @@ -0,0 +1,804 @@ +Imports System.Text +Imports tsl5.Extensiones +Imports tsl5.Extensiones.StringExtensions +Namespace Bancos + 'Namespace AEB_19 + ' Public Class DatosFichero + ' Property FechaSoporte As Date + ' Property FechaCargo As Date + ' Property Presentador As New DatosPresentador + ' Property Ordenantes As New List(Of DatosOrdenante) + ' End Class + ' Public Class DatosPresentador + ' Property Nombre As String + ' Property NIF As String + ' Property EntidadReceptora As String + ' Property Oficina As String + ' End Class + ' Public Class DatosOrdenante + ' Property Nombre As String + ' Property NIF As String + ' Property CuentaAbono As New CuentaBancaria + ' Property Procedimiento As String + ' Property DatosRecibo As New List(Of DatosRecibo) + ' End Class + ' Public Class DatosRecibo + ' Property NIF_Cliente As String + ' Property CodigoReferencia As String + ' Property NombreTitularDomiciliacion As String + ' Property CuentaAdeudo As New CuentaBancaria + ' Property Importe As Double + ' Property Conceptos As String() + ' Property CamposOpcionales As New CamposOpcionales + ' End Class + ' Public Class CamposOpcionales + ' Property NombreTitularCuenta As String + ' Property DomicilioTitularCuenta As String + ' Property PlazaDomicilioTitularCuenta As String + ' Property CodigoPostalTitularCuenta As String + ' End Class + ' Public Class CuentaBancaria + ' Property Entidad As String + ' Property Oficina As String + ' Property DC As String + ' Property NumeroCuenta As String + ' End Class + ' Public Class Utilidades + ' Public Shared Sub GeneraFichero(Datos As DatosFichero, Fichero As String, Optional ByVal Sobreescribir As Boolean = False) + ' If Sobreescribir Then + ' If IO.File.Exists(Fichero) Then IO.File.Delete(Fichero) + ' Else + ' If IO.File.Exists(Fichero) Then Throw New Exception("Fichero " & Fichero & " existente") + ' End If + ' Dim fs As New IO.FileStream(Fichero, IO.FileMode.CreateNew) + ' GeneraFichero(Datos, fs) + ' fs.Close() + ' End Sub + ' Public Shared Sub GeneraFichero(Datos As DatosFichero, ByRef st As IO.Stream) + ' ' CompruebaDatos(Datos) + ' Try + ' Dim Registro As String + ' ' Dim ms As New IO.MemoryStream + ' Dim sw As New IO.StreamWriter(st, System.Text.Encoding.GetEncoding("iso-8859-1")) + + ' Dim iNumRegOrdenante, iNumRegPresentador As Integer + + ' ' REGISTRO DE CABECERA 1 (PRESENTADOR) + + ' Registro = "51" + ' Registro &= "80" + ' Registro &= Datos.Presentador.NIF.Substring(0, Math.Min(Datos.Presentador.NIF.Length, 9)).PadLeft(9, "0") + ' Registro &= "".PadLeft(3, " ") + ' Registro &= FechaAEB(Datos.FechaSoporte) + ' Registro &= "".PadLeft(6, " ") + ' Registro &= Datos.Presentador.Nombre.Substring(0, Math.Min(Datos.Presentador.Nombre.Length, 40)).PadRight(40, " ") + ' Registro &= "".PadLeft(20, " ") + ' Registro &= Datos.Presentador.EntidadReceptora + ' Registro &= Datos.Presentador.Oficina + ' Registro &= "".PadRight(12, " ") + ' Registro &= "".PadRight(40, " ") + ' Registro &= "".PadRight(14, " ") + ' iNumRegPresentador += 1 + ' sw.WriteLine(Registro) + + ' ' REGISTRO DE CABECERA 2 (ORDENANTE) + ' Dim ordenante As tsl5.Bancos.AEB_19.DatosOrdenante + + ' Dim dTotalOrd, dTotalGen As Double + + ' For Each ordenante In Datos.Ordenantes + ' iNumRegOrdenante = 0 + ' dTotalOrd = 0 + ' Registro = "53" + ' Registro &= "80" + ' Registro &= ordenante.NIF.Substring(0, Math.Min(ordenante.NIF.Length, 9)).PadLeft(9, "0") + ' Registro &= "".PadLeft(3, " ") + ' Registro &= FechaAEB(Datos.FechaSoporte) + ' Registro &= FechaAEB(Datos.FechaCargo) + ' Registro &= ordenante.Nombre.Substring(0, Math.Min(ordenante.Nombre.Length, 40)).PadRight(40, " ") + ' Registro &= "".PadLeft(20, " ") + ' Registro &= ordenante.CuentaAbono.Entidad + ' Registro &= ordenante.CuentaAbono.Oficina + ' Registro &= ordenante.CuentaAbono.DC + ' Registro &= ordenante.CuentaAbono.NumeroCuenta + ' Registro &= "".PadRight(8, " ") + ' Registro &= ordenante.Procedimiento + ' Registro &= "".PadRight(10, " ") + ' Registro &= "".PadRight(40, " ") + ' Registro &= "".PadRight(14, " ") + ' iNumRegOrdenante += 1 + ' sw.WriteLine(Registro) + + ' Dim dr As tsl5.Bancos.AEB_19.DatosRecibo + ' For Each dr In ordenante.DatosRecibo + ' ' REGISTRO INDIVIDUAL OBLIGATORIO + + ' Registro = "56" + ' Registro &= "80" + ' Registro &= ordenante.NIF.PadLeft(9, "0") + ' Registro &= "".PadLeft(3, " ") + ' Registro &= dr.CodigoReferencia.PadRight(12, " ") + ' Registro &= dr.NombreTitularDomiciliacion.Substring(0, Math.Min(dr.NombreTitularDomiciliacion.Length, 40)).PadRight(40, " ") + ' Registro &= dr.CuentaAdeudo.Entidad.PadLeft(4, "0") + ' Registro &= dr.CuentaAdeudo.Oficina.PadLeft(4, "0") + ' Registro &= dr.CuentaAdeudo.DC.PadLeft(2, "0") + ' Registro &= dr.CuentaAdeudo.NumeroCuenta.PadLeft(10, "0") + ' Registro &= (Math.Round(dr.Importe, 2) * 100).ToString.PadLeft(10, "0") + ' dTotalOrd += Math.Round(dr.Importe, 2) + ' Registro &= "".PadRight(6, " ") + ' Registro &= "".PadRight(10, " ") + ' Registro &= dr.Conceptos(0).Substring(0, Math.Min(dr.Conceptos(0).Length, 40)).PadRight(40, " ") + ' Registro &= "".PadRight(8, " ") + ' iNumRegOrdenante += 1 + ' sw.WriteLine(Registro) + ' ' REGISTROS INDIVIDUALES OPCIONALES (DEL 1 AL 5) + ' For i = 1 To 15 Step 3 + ' If dr.Conceptos.Length >= i + 1 Then + ' Registro = "56" + ' Registro &= (81 + (i \ 3)).ToString + ' Registro &= ordenante.NIF.Substring(0, Math.Min(ordenante.NIF.Length, 9)).PadLeft(9, "0") + ' Registro &= "".PadLeft(3, " ") + ' Registro &= dr.CodigoReferencia.PadRight(12, " ") + ' Registro &= dr.Conceptos(i).Substring(0, Math.Min(dr.Conceptos(i).Length, 40)).PadRight(40, " ") + ' If dr.Conceptos.Length >= i + 2 Then + ' Registro &= dr.Conceptos(i + 1).Substring(0, Math.Min(dr.Conceptos(i + 1).Length, 40)).PadRight(40, " ") + ' If dr.Conceptos.Length >= i + 3 Then + ' Registro &= dr.Conceptos(i + 2).Substring(0, Math.Min(dr.Conceptos(i + 2).Length, 40)).PadRight(40, " ") + ' Else + ' Registro &= "".PadRight(40, " ") + ' End If + ' Else + ' Registro &= "".PadRight(40, " ") + ' Registro &= "".PadRight(40, " ") + ' End If + ' Registro &= "".PadRight(14, " ") + ' iNumRegOrdenante += 1 + ' sw.WriteLine(Registro) + ' Else + ' Exit For + ' End If + ' Next + ' ' REGISTRO OPCIONAL 6º + ' If dr.CamposOpcionales.NombreTitularCuenta <> "" Or dr.CamposOpcionales.DomicilioTitularCuenta <> "" Or dr.CamposOpcionales.PlazaDomicilioTitularCuenta <> "" Or dr.CamposOpcionales.CodigoPostalTitularCuenta <> "" Then + ' Registro = "56" + ' Registro &= "86" + ' Registro &= ordenante.NIF.PadLeft(9, "0") + ' Registro &= "".PadLeft(3, " ") + ' Registro &= dr.CodigoReferencia.PadRight(12, " ") + ' Registro &= dr.CamposOpcionales.NombreTitularCuenta.Substring(0, Math.Min(dr.CamposOpcionales.NombreTitularCuenta.Length, 40)).PadRight(40, " ") + ' Registro &= dr.CamposOpcionales.DomicilioTitularCuenta.Substring(0, Math.Min(dr.CamposOpcionales.DomicilioTitularCuenta.Length, 40)).PadRight(40, " ") + ' Registro &= dr.CamposOpcionales.PlazaDomicilioTitularCuenta.Substring(0, Math.Min(dr.CamposOpcionales.PlazaDomicilioTitularCuenta.Length, 35)).PadRight(35, " ") + ' Registro &= dr.CamposOpcionales.CodigoPostalTitularCuenta.Substring(0, Math.Min(dr.CamposOpcionales.CodigoPostalTitularCuenta.Length, 5)).PadRight(5, " ") + ' Registro &= "".PadRight(14, " ") + ' iNumRegOrdenante += 1 + ' sw.WriteLine(Registro) + ' End If + ' Next + ' ' REGISTRO TOTAL DE ORDENANTE + + ' Registro = "58" + ' Registro &= "80" + ' Registro &= Datos.Presentador.NIF.PadLeft(9, "0") + ' Registro &= "".PadLeft(3, " ") + ' Registro &= "".PadLeft(12, " ") + ' Registro &= "".PadLeft(40, " ") + ' Registro &= "".PadLeft(20, " ") + ' Registro &= (Math.Round(dTotalOrd, 2) * 100).ToString.PadLeft(10, "0") + ' Registro &= "".PadLeft(6, " ") + ' Registro &= ordenante.DatosRecibo.Count.ToString.PadLeft(10, "0") + ' iNumRegOrdenante += 1 + ' Registro &= (iNumRegOrdenante).ToString.PadLeft(10, "0") + ' Registro &= "".PadLeft(20, " ") + ' Registro &= "".PadLeft(18, " ") + ' sw.WriteLine(Registro) + ' iNumRegPresentador += iNumRegOrdenante + ' dTotalGen += dTotalOrd + ' Next + ' ' REGISTRO DE CABECERA 2 (PRESENTADOR) + + ' Registro = "58" + ' Registro &= "80" + ' Registro &= Datos.Presentador.NIF.PadLeft(9, "0") + ' Registro &= "".PadLeft(3, " ") + ' Registro &= "".PadLeft(12, " ") + ' Registro &= "".PadLeft(40, " ") + + ' Registro &= "".PadLeft(20, " ") + ' Registro &= (dTotalGen * 100).ToString.PadLeft(10, "0") + ' Registro &= "".PadLeft(6, " ") + ' Registro &= Datos.Ordenantes.Count.ToString.PadLeft(10, "0") + ' iNumRegPresentador += 1 + ' Registro &= (iNumRegPresentador).ToString.PadLeft(10, "0") + ' Registro &= "".PadLeft(20, " ") + ' Registro &= "".PadLeft(18, " ") + ' sw.WriteLine(Registro) + ' sw.Close() + ' st.Close() + ' Catch ex As Exception + ' Throw ex + ' End Try + ' End Sub + ' Public Shared Function FechaAEB(Fecha As Date) As String + ' Return Fecha.Day.ToString.PadLeft(2, "0") & Fecha.Month.ToString.PadLeft(2, "0") & (Fecha.Year Mod 100).ToString.PadLeft(2, "0") + ' End Function + ' End Class + 'End Namespace + Public Enum TiposAdeudosEnum + ''' + ''' Último pago + ''' + ''' + FNAL + ''' + ''' Primer pago + ''' + ''' + FRST + ''' + ''' Pago Único + ''' + ''' + OOFF + ''' + ''' Pago Recurrente + ''' + ''' + RCUR + End Enum + + ''' + ''' Overall description + ''' + ''' + Public Enum CategoriaPropositoEnum + ''' + ''' Transferencia de gestión de efectivo. La transacción es una instrucción general de gestión de efectivo + ''' + ''' + CASH + ''' + ''' Pago de Tarjeta de Crédito. La transacción está relacionada con un pago de tarjeta de crédito. + ''' + ''' + CCRD + ''' + ''' Pago de liquidación de operaciones. La transacción está realizada con la liquidación de una operación.Por ejemplo: una operación de compraventa de divisa o una operación de valores. + ''' + ''' + CORT + ''' + ''' Pago de Tarjeta de Débito. La transacción está relacionada con un pago de tarjeta de débito. + ''' + ''' + DCRD + ''' + ''' Dividendos. La transacción es el pago de dividendos. + ''' + ''' + DIVI + ''' + ''' Pago de la administración. La transacción es el pago a o de un departamento de la administración pública. + ''' + ''' + GOVT + ''' + ''' Cobertura. La transacción está relacionada con el pago de una operación de cobertura. + ''' + ''' + + HEDG + ''' + ''' Pago de tarjeta de crédito irrevocable. La transacción es un reembolso de un pago de tarjeta de crédito. + ''' + ''' + + ICCP + ''' + ''' Pago de tarjeta de débito irrevocable. La transacción es un reembolso de un pago de tarjeta de débito. + ''' + ''' + IDCP + ''' + ''' Pago intra-compañía. La transacción es un pago intra-compañía. Por ejemplo: un pago entre dos compañías pertenecientes a un mismo grupo. + ''' + ''' + INTC + ''' + ''' Intereses. La transacción es un pago de intereses. + ''' + ''' + INTE + ''' + '''Préstamos. La transacción está relacionada con la transferencia de un préstamo a un prestatario. + ''' + ''' + LOAN + ''' + ''' Pago de pensión. La transacción es el pago de una pensión + ''' + ''' + PENS + ''' + ''' Nóminas. La transacción es el pago de nóminas. + ''' + ''' + SALA + ''' + ''' Valores. La transacción es el pago de valores. + ''' + ''' + SECU + ''' + ''' Valores. La transacción es el pago de valores. + ''' + ''' + SSBE + ''' + ''' Pago de asistencia a Seguridad Social. La transacción es de una asistencia de S.S. Por ejemplo: el pago hecho por la S.S. para el mantenimiento de individuos. + ''' + ''' + SUPP + ''' + ''' Pago de impuestos. La transacción está relacionada con el pago de impuestos. + ''' + ''' + TAXS + ''' + ''' Comercio. La transacción está relacionada con el pago de una transacción comercial. + ''' + ''' + TRAD + ''' + ''' Pago de tesorería. La transacción está relacionada con operaciones de tesorería. + ''' + ''' + TREA + ''' + ''' IVA. La transacción es el pago del IVA. + ''' + ''' + VATX + ''' + ''' Retenciones. La transacción está relacionada con el pago de retenciones (impuestos) + ''' + ''' + WHLD + End Enum + Public Class Genericas + + Public Shared Function CalcularDigitoControlBancario(Banco As Integer, Oficina As Integer, Cuenta As Double) As String + Dim sBank As String + Dim sSubBank As String + Dim sAccount As String + Dim Temporal As Integer + + sBank = Format(Banco, "0000") + sSubBank = Format(Oficina, "0000") + sAccount = Format(Cuenta, "0000000000") + + Temporal = 0 + Temporal = Temporal + Mid(sBank, 1, 1) * 4 + Temporal = Temporal + Mid(sBank, 2, 1) * 8 + Temporal = Temporal + Mid(sBank, 3, 1) * 5 + Temporal = Temporal + Mid(sBank, 4, 1) * 10 + Temporal = Temporal + Mid(sSubBank, 1, 1) * 9 + Temporal = Temporal + Mid(sSubBank, 2, 1) * 7 + Temporal = Temporal + Mid(sSubBank, 3, 1) * 3 + Temporal = Temporal + Mid(sSubBank, 4, 1) * 6 + Temporal = 11 - (Temporal Mod 11) + If Temporal = 11 Then + CalcularDigitoControlBancario = "0" + ElseIf Temporal = 10 Then + CalcularDigitoControlBancario = "1" + Else + CalcularDigitoControlBancario = Format(Temporal, "0") + End If + + Temporal = 0 + Temporal = Temporal + Mid(sAccount, 1, 1) * 1 + Temporal = Temporal + Mid(sAccount, 2, 1) * 2 + Temporal = Temporal + Mid(sAccount, 3, 1) * 4 + Temporal = Temporal + Mid(sAccount, 4, 1) * 8 + Temporal = Temporal + Mid(sAccount, 5, 1) * 5 + Temporal = Temporal + Mid(sAccount, 6, 1) * 10 + Temporal = Temporal + Mid(sAccount, 7, 1) * 9 + Temporal = Temporal + Mid(sAccount, 8, 1) * 7 + Temporal = Temporal + Mid(sAccount, 9, 1) * 3 + Temporal = Temporal + Mid(sAccount, 10, 1) * 6 + Temporal = 11 - (Temporal Mod 11) + If Temporal = 11 Then + CalcularDigitoControlBancario = CalcularDigitoControlBancario + "0" + ElseIf Temporal = 10 Then + CalcularDigitoControlBancario = CalcularDigitoControlBancario + "1" + Else + CalcularDigitoControlBancario = CalcularDigitoControlBancario + Format(Temporal, "0") + End If + End Function + + Public Shared Function IBANCorrecto(IBAN As String) As Boolean + 'Try + ' If IBAN.NothingAVacio.Length <> 24 Then + ' Return False + ' Else + ' Dim CodigoPais As String = IBAN.Substring(0, 2) + ' Dim CodigoBanco As String = IBAN.Substring(4, 4) + ' Dim CodigoOficina As String = IBAN.Substring(8, 4) + ' Dim DigitoControl As String = IBAN.Substring(12, 2) + ' Dim Cuenta As String = IBAN.Substring(14, 10) + ' Dim sIBAN = CalcularIBAN(CodigoPais, CodigoBanco, CodigoOficina, DigitoControl, Cuenta) + ' Return sIBAN = IBAN + ' End If + 'Catch ex As Exception + ' Return False + 'End Try + If IBAN.NothingAVacio <> "" Then + IBAN = IBAN.Replace(" ", "") + Dim validator As New IbanNet.IbanValidator + Return validator.Validate(IBAN).IsValid + Else + Return False + End If + End Function + Public Shared Function CalcularIBAN(ByVal CodigoPais As String, + ByVal CodigoBanco As String, + ByVal CodigoOficina As String, + ByVal DigitoControl As String, + ByVal Cuenta As String) As String + + Dim s1 As String = CodigoBanco + CodigoOficina + DigitoControl + Cuenta + CodigoPais + "00", s2 As String = "" + + 'Substitute letters + For i As Integer = 0 To s1.Length - 1 + If IsNumeric(s1.Substring(i, 1)) = True Then + s2 += s1.Substring(i, 1) + Else + s2 += Convert.ToString(Asc(s1.Substring(i, 1)) - 55).PadLeft(2, "0") + End If + Next + + 'Return the IBAN + Return CodigoPais + MOD_97_10(s2) + CodigoBanco + CodigoOficina + DigitoControl + Cuenta + End Function + Public Shared Function CalcularIBAN_ES(ByVal CCC As String) As String + Return CalcularIBAN("ES", CCC.Split("-")(0), CCC.Split("-")(1), CCC.Split("-")(2), CCC.Split("-")(3)) + End Function + + Public Shared Function CalcularIdentificadorSEPA(ByVal CIF As String, Optional CodigoPais As String = "ES", Optional Sufijo As String = "000") As String + Try + Dim s As String = CIF.Trim & CodigoPais & "00" + Dim sResultado As String = "" + Dim c As Char + For Each c In s + If Char.IsNumber(c) Then + sResultado &= c.ToString + Else + sResultado &= (Asc(c) - 55).ToString + End If + Next + Return CodigoPais & MOD_97_10(sResultado) & Sufijo & CIF + Catch ex As Exception + Throw New Exception(ex.Message, ex) + End Try + End Function + Private Shared Function MOD_97_10(ByVal s As String) As String + + Dim s1 As String, s2 As String + Dim l1 As Integer, l2 As Integer + + s1 = s.Substring(0, 9) + s2 = s.Substring(s1.Length) + l1 = Convert.ToInt32(s1) + l2 = l1 Mod 97 + + While s2 <> "" + If Len(s2) > 7 Then + s1 = Convert.ToString(l2).PadLeft(2, "0") + s2.Substring(0, 7) + s2 = s2.Substring(7) + Else + s1 = Convert.ToString(l2).PadLeft(2, "0") + s2 + s2 = "" + End If + l1 = Convert.ToInt32(s1) + l2 = l1 Mod 97 + End While + + Return Convert.ToString(98 - l2).PadLeft(2, "0") + + End Function + + + End Class + Namespace SEPA + Public Class DatosFichero + Property FechaSoporte As DateTime + Property FechaCargo As Date + Property Presentador As New DatosPresentador + Property Acreedores As New List(Of DatosAcreedor) + Property ReferenciaIdentificativa As String + + + End Class + Public Class DatosPresentador + Property Nombre As String + Property NIF As String + Property Sufijo As String + Property EntidadReceptora As String + Property Oficina As String + + Property DOMICILIO As String + + Property NUMERO As String + + Property CPO As String + + Property CIUDAD As String + + Property PAIS As String + + + + End Class + Public Class DatosAcreedor + Property Nombre As String + Property NIF As String + Property Sufijo As String + Property CuentaAbono As New CuentaBancaria + Property Procedimiento As String + Property FechaCobro As DateTime + Property Direccion As String + Property CodigoPostal As String + Property Municipio As String + Property Provincia As String + Property CodigoPais As String + + Property DatosRecibo As New List(Of DatosRecibo) + + Property Libre1 As String + + Property Libre2 As String + + Property DOMICILIO As String + + Property NUMERO As String + + Property CPO As String + + Property CIUDAD As String + + Property PAIS As String + + + + End Class + Public Class DatosRecibo + Property CodigoReferencia As String + Property CodigoReferenciaMandato As String + Property FechaMandato As Date + + Property NombreDeudor As String + Property DireccionDeudor1 As String + Property DireccionDeudor2 As String + Property DireccionDeudor3 As String + Property CodigoPaisDeudor As String + Property TipoIdentificacionDeudor As String + Property IdentificacionDeudor As String + Property IdentificacionDeudorEmisorCodigo As String + Property CuentaAdeudo As New CuentaBancaria + Property TipoAdeudo As TiposAdeudosEnum + Property CategoriaProposito As CategoriaPropositoEnum + Property Importe As Double + Property CamposOpcionales As New CamposOpcionales + Property PropositoAdeudo As String + Property Concepto As String + Property Libre As String + Property NombreUltimoAcreedor As String + Property TipoIdentificacionUltimoAcreedor As String 'Campo 7 Opcional 2 + Property IdentificacionUltimoAcreedor As String 'campo 8 opcional 2 + Property IdentificacionUltimoAcreedorEmisorCodigo As String 'CAMPO 9 Opcional 2 + Property NombreTitularDomiciliacion As String 'CAMPO 10 Opcional 2 + Property TITitularDomiciliacion As String 'CAMPO 11 Opcional 2 + Property IdentificacionTitularDomiciliacion As String 'CAMPO 12 Opcional 2 + Property IdentificacionTitularDomiciliacionEmisorCodigo As String ' CAMPO 13 Opcional 2 + Property Libre2 As String ' CAMPO 14 Opcional 2 + + End Class + Public Class CamposOpcionales + Property NombreTitularCuenta As String + Property DomicilioTitularCuenta As String + Property PlazaDomicilioTitularCuenta As String + Property CodigoPostalTitularCuenta As String + End Class + Public Class CuentaBancaria + Property BIC As String + Property IBAN As String + ReadOnly Property EntidadBancariaEspaña As String + Get + If IBAN.NothingAVacio.Length = 24 AndAlso IBAN.Substring(0, 2) = "ES" Then + Return IBAN.Substring(4, 4) + Else + Return "" + End If + End Get + End Property + End Class + Public Class Utilidades + Public Shared Sub GeneraFichero(Datos As DatosFichero, Fichero As String, Optional ByVal Sobreescribir As Boolean = False) + If Sobreescribir Then + If IO.File.Exists(Fichero) Then IO.File.Delete(Fichero) + Else + If IO.File.Exists(Fichero) Then Throw New Exception("Fichero " & Fichero & " existente") + End If + Dim fs As New IO.FileStream(Fichero, IO.FileMode.CreateNew) + GeneraFichero19_14(Datos, fs) + fs.Close() + End Sub + Public Shared Sub GeneraFichero19_14(Datos As DatosFichero, ByRef st As IO.Stream) + Try + Dim Registro As String + ' Dim ms As New IO.MemoryStream + Dim sw As New IO.StreamWriter(st, System.Text.Encoding.GetEncoding("iso-8859-1")) + + 'Dim iNumRegAcreedor , iNumRegPresentador As Integer + + ' REGISTRO DE CABECERA 1 (PRESENTADOR) + Dim dTotalAcreedorFP, dTotalAcreedor, dTotalPresentador As Double + Dim iNumRegistrosAcreedorFP, iNumRegistrosAcreedor, iNumRegistrosPresentador As Integer + Dim iNumAdeudosAcreedorFP, iNumAdeudosAcreedor, iNumAdeudosPresentador As Integer + Registro = "01" ' CAMPO 1 + Registro &= "19154" ' CAMPO 2 'ANTES 19143 + Registro &= "001" ' CAMPO 3 + Registro &= Bancos.Genericas.CalcularIdentificadorSEPA(Datos.Presentador.NIF, , Datos.Presentador.Sufijo).PadRight(35, " ") ' CAMPO 4 + Registro &= Datos.Presentador.Nombre.ConvierteAAlfanumerico.PadRight(70, " ") ' CAMPO 5 + Registro &= FechaSEPA(Datos.FechaSoporte) ' CAMPO 6 + Registro &= "PRE" & FechaHoraSEPA(Now) & Datos.ReferenciaIdentificativa.PadRight(13, " ") ' CAMPO 7 + Registro &= Datos.Presentador.EntidadReceptora.PadRight(4, " ") ' CAMPO 8 + Registro &= Datos.Presentador.Oficina.PadRight(4, " ") ' CAMPO 9 + Registro &= "".PadLeft(434, " ") ' CAMPO 10 + sw.WriteLine(Registro) + + ' REGISTRO DE CABECERA 2 (ACREEDOR) + Dim acreedor As New tsl5.Bancos.SEPA.DatosAcreedor + + ' Dim dTotalOrd, dTotalGen As Double + ' Dim iTotalRegAcreedor As Integer + + For Each acreedor In Datos.Acreedores + iNumAdeudosAcreedor = 0 + iNumAdeudosAcreedorFP = 0 + iNumRegistrosAcreedor = 1 + iNumRegistrosAcreedorFP = 1 + + + Registro = "02" ' CAMPO 1 + Registro &= "19154" ' CAMPO 2 'ANTES 19143 + Registro &= "002" ' CAMPO 3 + Registro &= Bancos.Genericas.CalcularIdentificadorSEPA(acreedor.NIF, , acreedor.Sufijo).PadRight(35, " ") 'CAMPO 4 + Registro &= FechaSEPA(acreedor.FechaCobro) 'CAMPO 5 + Registro &= acreedor.Nombre.ConvierteAAlfanumerico.Substring(0, Math.Min(acreedor.Nombre.Length, 70)).PadRight(70, " ") 'CAMPO 6 + Registro &= acreedor.Direccion.Substring(0, Math.Min(acreedor.Direccion.Length, 50)).PadRight(50, " ") ' CAMPO 7 + Dim sCodPosMun As String = acreedor.CodigoPostal & " " & acreedor.Municipio + Registro &= sCodPosMun.Substring(0, Math.Min(sCodPosMun.Length, 50)).PadRight(50, " ") ' CAMPO 8 + Registro &= acreedor.Provincia.Substring(0, Math.Min(acreedor.Provincia.Length, 40)).PadRight(40, " ") ' CAMPO 9 + Registro &= acreedor.CodigoPais.Substring(0, Math.Min(acreedor.Provincia.Length, 2)).PadRight(2, " ") ' CAMPO 10 + Registro &= acreedor.CuentaAbono.IBAN.PadRight(34, " ") ' CAMPO 11 + Registro &= "".PadRight(301, " ") ' CAMPO 12 + sw.WriteLine(Registro) + Dim dr As tsl5.Bancos.SEPA.DatosRecibo + For Each dr In acreedor.DatosRecibo + ' REGISTRO INDIVIDUAL OBLIGATORIO + + iNumAdeudosAcreedor += 1 + iNumAdeudosAcreedorFP += 1 + iNumRegistrosAcreedor += 1 + iNumRegistrosAcreedorFP += 1 + + + Registro = "03" 'CAMPO 1 + Registro &= "19154" ' CAMPO 2 'ANTES 19143 + Registro &= "003" 'CAMPO 3 + Registro &= dr.CodigoReferencia.Substring(0, Math.Min(dr.CodigoReferencia.Length, 35)).PadRight(35, " ") 'CAMPO 4 + Registro &= dr.CodigoReferenciaMandato.Substring(0, Math.Min(dr.CodigoReferenciaMandato.Length, 35)).PadRight(35, " ") 'CAMPO 5 + Registro &= dr.TipoAdeudo.ToString.PadRight(4, " ") 'CAMPO 6 + Registro &= dr.CategoriaProposito.ToString.PadRight(4, " ") 'CAMPO 7 + Registro &= (Math.Round(dr.Importe, 2, MidpointRounding.AwayFromZero) * 100).ToString.PadLeft(11, "0") 'CAMPO 8 + Registro &= FechaSEPA(dr.FechaMandato) 'CAMPO 9 + Registro &= dr.CuentaAdeudo.BIC.NothingAVacio.Substring(0, Math.Min(dr.CuentaAdeudo.BIC.NothingAVacio.Length, 11)).PadRight(11, " ") 'CAMPO 10 + Registro &= dr.NombreDeudor.ConvierteAAlfanumerico.Substring(0, Math.Min(dr.NombreDeudor.Length, 70)).PadRight(70, " ") 'CAMPO 11 + Registro &= dr.DireccionDeudor1.Substring(0, Math.Min(dr.DireccionDeudor1.Length, 50)).PadRight(50, " ") 'CAMPO 12 + Registro &= dr.DireccionDeudor2.Substring(0, Math.Min(dr.DireccionDeudor2.Length, 50)).PadRight(50, " ") 'CAMPO 13 + Registro &= dr.DireccionDeudor3.Substring(0, Math.Min(dr.DireccionDeudor3.Length, 40)).PadRight(40, " ") 'CAMPO 14 + Registro &= dr.CodigoPaisDeudor.Substring(0, Math.Min(dr.CodigoPaisDeudor.Length, 2)).PadRight(2, " ") 'CAMPO 15 + If dr.IdentificacionDeudor.Length > 0 Then + If "01234567890X".Contains(dr.IdentificacionDeudor.Substring(0, 1)) Then + Registro &= dr.TipoIdentificacionDeudor.PadRight(1, "2") 'CAMPO 16 + dr.IdentificacionDeudor = "J" & dr.IdentificacionDeudor + Else + Registro &= dr.TipoIdentificacionDeudor.PadRight(1, "1") 'CAMPO 16 + dr.IdentificacionDeudor = "I" & dr.IdentificacionDeudor + End If + Else + Registro &= dr.TipoIdentificacionDeudor.PadRight(1, " ") 'CAMPO 16 + End If + Registro &= dr.IdentificacionDeudor.Substring(0, Math.Min(dr.IdentificacionDeudor.Length, 36)).PadRight(36, " ") 'CAMPO 17 + Registro &= dr.IdentificacionDeudorEmisorCodigo.Substring(0, Math.Min(dr.IdentificacionDeudorEmisorCodigo.Length, 35)).PadRight(35, " ") 'CAMPO 18 + Registro &= "A" 'dr.IdentificadorCuentaDeudor 'CAMPO 19 + Dim sIBAN As String = dr.CuentaAdeudo.IBAN + Registro &= sIBAN.Substring(0, Math.Min(sIBAN.Length, 34)).PadRight(34, " ") 'CAMPO 20 + Registro &= dr.PropositoAdeudo.Substring(0, Math.Min(dr.PropositoAdeudo.Length, 4)).PadRight(4, " ") 'CAMPO 21 + Registro &= dr.Concepto.Substring(0, Math.Min(dr.Concepto.Length, 140)).PadRight(140, " ") 'CAMPO 22 + Registro &= dr.Libre.Substring(0, Math.Min(dr.Libre.Length, 19)).PadRight(19, " ") 'CAMPO 23 + + dTotalAcreedorFP += Math.Round(dr.Importe, 2, MidpointRounding.AwayFromZero) + dTotalAcreedor += Math.Round(dr.Importe, 2, MidpointRounding.AwayFromZero) + sw.WriteLine(Registro) + If dr.NombreTitularDomiciliacion <> "" Then + Registro = "03" 'CAMPO 1 + Registro &= "19154" ' CAMPO 2 'ANTES 19143 + Registro &= "004" 'CAMPO 3 + Registro &= dr.CodigoReferencia.Substring(0, Math.Min(dr.CodigoReferencia.Length, 35)).PadRight(35, " ") 'CAMPO 4 + Registro &= dr.CodigoReferenciaMandato.Substring(0, Math.Min(dr.CodigoReferenciaMandato.Length, 35)).PadRight(35, " ") 'CAMPO 5 + Registro &= dr.NombreUltimoAcreedor.ConvierteAAlfanumerico.Substring(0, Math.Min(dr.NombreUltimoAcreedor.Length, 70)).PadRight(70, " ") 'CAMPO 6 + Registro &= dr.TipoIdentificacionUltimoAcreedor.PadRight(1, " ") 'CAMPO 7 + Registro &= dr.IdentificacionUltimoAcreedor.Substring(0, Math.Min(dr.IdentificacionUltimoAcreedor.Length, 36)).PadRight(36, " ") 'CAMPO 8 + Registro &= dr.IdentificacionUltimoAcreedorEmisorCodigo.Substring(0, Math.Min(dr.IdentificacionUltimoAcreedorEmisorCodigo.Length, 35)).PadRight(35, " ") 'CAMPO 9 + Registro &= dr.NombreTitularDomiciliacion.ConvierteAAlfanumerico.Substring(0, Math.Min(dr.NombreTitularDomiciliacion.Length, 70)).PadRight(70, " ") 'CAMPO 10 + Registro &= dr.TITitularDomiciliacion.PadRight(1, " ") 'CAMPO 11 + Registro &= dr.IdentificacionTitularDomiciliacion.Substring(0, Math.Min(dr.IdentificacionTitularDomiciliacion.Length, 36)).PadRight(36, " ") 'CAMPO 12 + Registro &= dr.IdentificacionTitularDomiciliacionEmisorCodigo.Substring(0, Math.Min(dr.IdentificacionTitularDomiciliacionEmisorCodigo.Length, 35)).PadRight(35, " ") 'CAMPO 13 + Registro &= dr.Libre2.Substring(0, Math.Min(dr.Libre2.Length, 236)).PadRight(236, " ") 'CAMPO 14 + iNumRegistrosAcreedor += 1 + iNumRegistrosAcreedorFP += 1 + sw.WriteLine(Registro) + End If + Next + ' REGISTRO TOTAL DE Acreedor por fechas de cobro + iNumRegistrosAcreedorFP += 1 + Registro = "04" 'CAMPO 1 + Registro &= Bancos.Genericas.CalcularIdentificadorSEPA(acreedor.NIF, , acreedor.Sufijo).PadRight(35, " ") 'CAMPO 2 + Registro &= FechaSEPA(acreedor.FechaCobro) 'CAMPO 3 + Registro &= (Math.Round(dTotalAcreedorFP, 2, MidpointRounding.AwayFromZero) * 100).ToString.PadLeft(17, "0") ' CAMPO 4 + Registro &= iNumAdeudosAcreedorFP.ToString.PadLeft(8, "0") 'CAMPO 4 + Registro &= iNumRegistrosAcreedorFP.ToString.PadLeft(10, "0") 'CAMPO 5 + Registro &= acreedor.Libre1.ToString.PadRight(520, " ") 'CAMPO 7 + sw.WriteLine(Registro) + ' REGISTRO TOTAL DE Acreedor + iNumRegistrosAcreedor += 2 '1 más por el registro anterior fecha de pago + Registro = "05" 'CAMPO 1 + Registro &= Bancos.Genericas.CalcularIdentificadorSEPA(acreedor.NIF, , acreedor.Sufijo).PadRight(35, " ") 'CAMPO 2 + Registro &= (Math.Round(dTotalAcreedor, 2, MidpointRounding.AwayFromZero) * 100).ToString.PadLeft(17, "0") 'CAMPO 3 + Registro &= iNumAdeudosAcreedor.ToString.PadLeft(8, "0") 'CAMPO 4 + Registro &= iNumRegistrosAcreedor.ToString.PadLeft(10, "0") 'CAMPO 5 + Registro &= acreedor.Libre2.ToString.PadRight(528, " ") 'CAMPO 6 + sw.WriteLine(Registro) + iNumAdeudosPresentador += iNumAdeudosAcreedor + iNumRegistrosPresentador += iNumRegistrosAcreedor + dTotalPresentador += dTotalAcreedor + Next + + ' REGISTRO TOTALES + iNumRegistrosPresentador += 2 'cabecera y total + Registro = "99" + Registro &= (Math.Round(dTotalPresentador, 2, MidpointRounding.AwayFromZero) * 100).ToString.PadLeft(17, "0") + Registro &= iNumAdeudosPresentador.ToString.PadLeft(8, "0") + Registro &= iNumRegistrosPresentador.ToString.PadLeft(10, "0") + Registro &= acreedor.Libre2.ToString.PadRight(563, " ") 'CAMPO 6 + sw.WriteLine(Registro) + sw.Close() + st.Close() + Catch ex As Exception + Throw New Exception(ex.Message, ex) + End Try + End Sub + + Public Shared Function FechaSEPA(Fecha As Date) As String + Return Fecha.Year.ToString & Fecha.Month.ToString.PadLeft(2, "0") & Fecha.Day.ToString.PadLeft(2, "0") + End Function + Public Shared Function FechaHoraSEPA(Fecha As DateTime) As String + Return Fecha.Year.ToString & Fecha.Month.ToString.PadLeft(2, "0") & Fecha.Day.ToString.PadLeft(2, "0") & Fecha.Hour.ToString.PadLeft(2, "0") & Fecha.Minute.ToString.PadLeft(2, "0") & Fecha.Second.ToString.PadLeft(2, "0") & Fecha.Millisecond.ToString.PadLeft(5, "0") + End Function + + + End Class + + End Namespace +End Namespace diff --git a/Bancos/SEPA1914xml.vb b/Bancos/SEPA1914xml.vb new file mode 100644 index 0000000..351d3f4 --- /dev/null +++ b/Bancos/SEPA1914xml.vb @@ -0,0 +1,163 @@ +Imports tsl5.Bancos.SEPA +Imports tsl5.Bancos +Imports tsl5.SEPA_1914XML +Imports tsl5.Extensiones + +Namespace SEPA1914xml + + Public Class Utilidades + Public Shared Sub GeneraFichero19_14xml(Datos As DatosFichero, ByVal FicheroXML As String, Optional Sobreescribir As Boolean = True) + Try + If Sobreescribir Then + If IO.File.Exists(FicheroXML) Then IO.File.Delete(FicheroXML) + Else + If IO.File.Exists(FicheroXML) Then Throw New Exception("Fichero " & FicheroXML & " existente") + End If + + Dim NumTotalRecibos As Integer + Dim SumaTotalRecibos As Decimal + Dim Document As New SEPA_1914XML.Document + Document.CstmrDrctDbtInitn = New SEPA_1914XML.CustomerDirectDebitInitiationV02 + Document.CstmrDrctDbtInitn.GrpHdr = New SEPA_1914XML.GroupHeader39 + Document.CstmrDrctDbtInitn.GrpHdr.MsgId = Datos.ReferenciaIdentificativa.ToString 'IDENTIFICACION UNICA + Document.CstmrDrctDbtInitn.GrpHdr.CreDtTm = Datos.FechaCargo.Year.ToString & "-" & Datos.FechaCargo.Month.ToString.PadLeft(2, "0") & "-" & Datos.FechaCargo.Day.ToString.PadLeft(2, "0") + Document.CstmrDrctDbtInitn.GrpHdr.CtrlSumSpecified = True + Document.CstmrDrctDbtInitn.GrpHdr.InitgPty = New SEPA_1914XML.PartyIdentification32 + Document.CstmrDrctDbtInitn.GrpHdr.InitgPty.Nm = Datos.Presentador.Nombre + Document.CstmrDrctDbtInitn.GrpHdr.InitgPty.Id = New Party6Choice + Dim org(0) As GenericOrganisationIdentification1 + Dim core As New OrganisationIdentificationSchemeName1Choice + core.Item = "CORE" + core.ItemElementName = ItemChoiceType.Cd + org(0) = New GenericOrganisationIdentification1 With {.Id = Bancos.Genericas.CalcularIdentificadorSEPA(Datos.Presentador.NIF, , Datos.Presentador.Sufijo), + .SchmeNm = core} + Document.CstmrDrctDbtInitn.GrpHdr.InitgPty.Id.Item = New OrganisationIdentification4 With {.Othr = org} + 'Document.CstmrDrctDbtInitn.GrpHdr.InitgPty.PstlAdr = New SEPA_1914xml.PostalAddress6 + 'Document.CstmrDrctDbtInitn.GrpHdr.InitgPty.PstlAdr.StrtNm = Datos.Presentador.DOMICILIO + 'Document.CstmrDrctDbtInitn.GrpHdr.InitgPty.PstlAdr.BldgNb = Datos.Presentador.NUMERO + 'Document.CstmrDrctDbtInitn.GrpHdr.InitgPty.PstlAdr.PstCd = Datos.Presentador.CPO + 'Document.CstmrDrctDbtInitn.GrpHdr.InitgPty.PstlAdr.TwnNm = Datos.Presentador.CIUDAD + 'Document.CstmrDrctDbtInitn.GrpHdr.InitgPty.PstlAdr.Ctry = Datos.Presentador.PAIS + Dim ListaPmtInf As New List(Of SEPA_1914XML.PaymentInstructionInformation4) + Dim acreedor As New tsl5.Bancos.SEPA.DatosAcreedor + + For Each acreedor In Datos.Acreedores + Dim PmtInf As New SEPA_1914XML.PaymentInstructionInformation4 + PmtInf.PmtInfId = Bancos.Genericas.CalcularIdentificadorSEPA(Datos.Presentador.NIF) & "-" & Datos.ReferenciaIdentificativa.ToString ' acreedor.NIF + PmtInf.PmtMtd = SEPA_1914XML.PaymentMethod2Code.DD + PmtInf.BtchBookg = True 'False + PmtInf.NbOfTxs = acreedor.DatosRecibo.Count + PmtInf.CtrlSum = Math.Round(acreedor.DatosRecibo.Sum(Function(x) x.Importe), 2, MidpointRounding.AwayFromZero) + NumTotalRecibos += acreedor.DatosRecibo.Count + SumaTotalRecibos += PmtInf.CtrlSum + PmtInf.PmtTpInf = New SEPA_1914XML.PaymentTypeInformation20 + ' PmtInf.PmtTpInf.SvcLvl = New SEPA_1914xml.ServiceLevel8Choice With {.ItemElementName = SEPA_1914xml.ItemChoiceType4.Cd, .Item = "SEPA"} + PmtInf.PmtTpInf.LclInstrm = New SEPA_1914XML.LocalInstrument2Choice With {.ItemElementName = SEPA_1914XML.ItemChoiceType5.Cd, .Item = "CORE"} + PmtInf.PmtTpInf.SeqTpSpecified = True + PmtInf.PmtTpInf.SeqTp = SequenceType1Code.RCUR + + PmtInf.PmtTpInf.CtgyPurp = New CategoryPurpose1Choice With {.ItemElementName = ItemChoiceType6.Cd, .Item = "TRAD"} + PmtInf.ReqdColltnDt = Datos.FechaCargo + PmtInf.Cdtr = New SEPA_1914XML.PartyIdentification32 + PmtInf.Cdtr.Nm = acreedor.Nombre + PmtInf.Cdtr.PstlAdr = New SEPA_1914XML.PostalAddress6 + PmtInf.Cdtr.PstlAdr.StrtNm = acreedor.Direccion + ' PmtInf.Cdtr.PstlAdr.BldgNb = "" ' NUMERO + PmtInf.Cdtr.PstlAdr.PstCd = acreedor.CodigoPostal + PmtInf.Cdtr.PstlAdr.TwnNm = acreedor.Municipio + PmtInf.Cdtr.PstlAdr.Ctry = acreedor.CodigoPais + PmtInf.CdtrAcct = New SEPA_1914XML.CashAccount16 + PmtInf.CdtrAcct.Id = New SEPA_1914XML.AccountIdentification4Choice With {.Item = acreedor.CuentaAbono.IBAN} + PmtInf.CdtrAcct.Ccy = "EUR" + PmtInf.CdtrAgt = New SEPA_1914XML.BranchAndFinancialInstitutionIdentification4 + PmtInf.CdtrAgt.FinInstnId = New SEPA_1914XML.FinancialInstitutionIdentification7 With {.BIC = acreedor.CuentaAbono.BIC} + PmtInf.ChrgBr = ChargeBearerType1Code.SLEV + PmtInf.ChrgBrSpecified = True + 'PmtInf.CdtrSchmeId = New sepa_1914xml.PartyIdentification32 + + 'Dim oprvtid As New sepa_1914xml.Party6Choice + 'oprvtid.Item = New GenericOrganisationIdentification1 With {.Id = Bancos.Genericas.CalcularIdentificadorSEPA(acreedor.NIF, , acreedor.Sufijo), .SchmeNm = New FinancialIdentificationSchemeName1Choice With {.ItemElementName = ItemChoiceType3.Prtry, .Item = "SEPA"}} + 'PmtInf.CdtrSchmeId.Id = oprvtid + + PmtInf.CdtrSchmeId = New SEPA_1914XML.PartyIdentification32 + PmtInf.CdtrSchmeId.Id = New Party6Choice + Dim orga(0) As GenericOrganisationIdentification1 + Dim cora1 As New OrganisationIdentificationSchemeName1Choice + cora1.Item = "SEPA" + cora1.ItemElementName = ItemChoiceType.Prtry + orga(0) = New GenericOrganisationIdentification1 With {.Id = Bancos.Genericas.CalcularIdentificadorSEPA(acreedor.NIF, , acreedor.Sufijo), + .SchmeNm = cora1} + PmtInf.CdtrSchmeId.Id.Item = New OrganisationIdentification4 With {.Othr = orga} + + + + ' tsl5.Utilidades.Serializar(oprvtid, FicheroXML) + Dim dr As tsl5.Bancos.SEPA.DatosRecibo + Dim recibos As New List(Of DirectDebitTransactionInformation9) + Dim FechaAhora = Now.ToString("yyyyMMddhhmmss") + Dim i As Integer + For Each dr In acreedor.DatosRecibo + ' REGISTRO INDIVIDUAL OBLIGATORIO + i += 1 + Dim recibo As New DirectDebitTransactionInformation9 + recibo.PmtId = New PaymentIdentification1 With {.InstrId = Now.ToString("yyyyMMddhhmmss") & "-" & i.ToString.PadLeft(4, "0"), .EndToEndId = dr.CodigoReferencia} + recibo.InstdAmt = New ActiveOrHistoricCurrencyAndAmount With {.Ccy = "EUR", .Value = Math.Round(dr.Importe, 2, MidpointRounding.AwayFromZero)} + recibo.DrctDbtTx = New DirectDebitTransaction6 With {.MndtRltdInf = New MandateRelatedInformation6 With {.MndtId = dr.CodigoReferenciaMandato, .DtOfSgntr = dr.FechaMandato, .DtOfSgntrSpecified = True, .AmdmntInd = False}} + recibo.DbtrAgt = New BranchAndFinancialInstitutionIdentification4 With {.FinInstnId = New FinancialInstitutionIdentification7 With {.BIC = dr.CuentaAdeudo.BIC}} + recibo.Dbtr = New PartyIdentification32 + recibo.Dbtr.Nm = dr.NombreTitularDomiciliacion + If dr.NombreTitularDomiciliacion.NothingAVacio = "" Then Throw New Exception("El recibo " & dr.CodigoReferencia & " No tiene nombre del titular de la cuenta.") + recibo.Dbtr.PstlAdr = New PostalAddress6 + recibo.Dbtr.PstlAdr.Ctry = "ES" + If dr.DireccionDeudor1 <> "" Then + Dim Direccion(0) As String + Direccion(0) = dr.DireccionDeudor1 + If dr.DireccionDeudor2 <> "" Then + ReDim Preserve Direccion(1) + Direccion(1) = dr.DireccionDeudor2 + End If + If dr.DireccionDeudor3 <> "" Then + ReDim Preserve Direccion(2) + Direccion(2) = dr.DireccionDeudor3 + End If + recibo.Dbtr.PstlAdr.AdrLine = Direccion + End If + + + + + recibo.Dbtr.Id = New Party6Choice + Dim orgr(0) As GenericPersonIdentification1 + Dim corr1 As New PersonIdentificationSchemeName1Choice + corr1.Item = "CORE" + corr1.ItemElementName = ItemChoiceType.Cd + orgr(0) = New GenericPersonIdentification1 + If dr.IdentificacionDeudor <> "" Then orgr(0).Id = Bancos.Genericas.CalcularIdentificadorSEPA(dr.IdentificacionDeudor, , acreedor.Sufijo) + orgr(0).SchmeNm = corr1 + recibo.Dbtr.Id.Item = New PersonIdentification5 With {.Othr = orgr} + + recibo.DbtrAcct = New CashAccount16 + recibo.DbtrAcct.Id = New AccountIdentification4Choice With {.Item = dr.CuentaAdeudo.IBAN} + recibo.Purp = New Purpose2Choice With {.ItemElementName = ItemChoiceType8.Cd, .Item = "CASH"} + Dim Conceptos(0) As String + Conceptos(0) = dr.Concepto + recibo.RmtInf = New RemittanceInformation5 With {.Ustrd = Conceptos} + recibos.Add(recibo) + Next + PmtInf.DrctDbtTxInf = recibos.ToArray + ListaPmtInf.Add(PmtInf) + Next + Document.CstmrDrctDbtInitn.GrpHdr.NbOfTxs = NumTotalRecibos + Document.CstmrDrctDbtInitn.GrpHdr.CtrlSum = Math.Round(SumaTotalRecibos, 2, MidpointRounding.AwayFromZero) + Document.CstmrDrctDbtInitn.PmtInf = ListaPmtInf.ToArray + + tsl5.Utilidades.Serializar(Document, FicheroXML) + Catch ex As Exception + Throw New Exception(ex.Message, ex) + End Try + End Sub + + + End Class + +End Namespace diff --git a/Bancos/SEPA3414.vb b/Bancos/SEPA3414.vb new file mode 100644 index 0000000..2e74d56 --- /dev/null +++ b/Bancos/SEPA3414.vb @@ -0,0 +1,159 @@ +Imports tsl5.SEPA_3414 + +Namespace SEPA3414 + Public Class Ordenante + Property CIF As String + Property NOMBRE As String + Property DOMICILIO As String + Property NUMERO As String + Property CPO As String + Property CIUDAD As String + Property PAIS As String + Property IBAN As String + Property BIC As String + Property SUFIJO As String + Property ENELMISMODIA As Boolean = False + + End Class + Public Class Beneficiario + Property CIF As String + Property ImporteTransferencia As Double + Property IdentificacionPago As String + Property IdentificacionPagoFichero As String + Property IBAN As String + Property BIC As String + Property NOMBRE As String + Property Proposito As String + + End Class + Public Class Utilidades + Public Shared Sub GeneraXML(Ordenante As Ordenante, ListaBeneficiarios As List(Of Beneficiario), FicheroXML As String, FechaEnvio As DateTime, FechaEjecucion As DateTime) + Try + ' + ' COMPROBACIONES + ' + Dim benibaninc = ListaBeneficiarios.Where(Function(x) tsl5.Bancos.Genericas.IBANCorrecto(x.IBAN) = False).ToList + Dim ListaErrores As String = "" + If benibaninc.Count > 0 Then + For Each ben In benibaninc + ListaErrores &= "El beneficiacio " & ben.NOMBRE & " Pago: " & ben.IdentificacionPago & " tiene un IBAN Incorrecto." & vbCrLf + Next + End If + If ListaErrores <> "" Then Throw New Exception(ListaErrores) + + Dim org(0) As GenericOrganisationIdentification1 + org(0) = New GenericOrganisationIdentification1 With {.Id = Ordenante.CIF & Ordenante.SUFIJO} + + + Dim Document As New SEPA_3414.Document + Document.CstmrCdtTrfInitn = New SEPA_3414.CustomerCreditTransferInitiationV03 + Document.CstmrCdtTrfInitn.GrpHdr = New SEPA_3414.GroupHeader32 + 'Dim GrupoCabecera = Document.CstmrCdtTrfInitn.GrpHdr + Document.CstmrCdtTrfInitn.GrpHdr.MsgId = Now.ToString 'IDENTIFICACION UNICA + ' Dim FechaEnvio As DateTime = Now + ' Dim FechaEjecucion As DateTime = Now + Document.CstmrCdtTrfInitn.GrpHdr.CreDtTm = FechaEnvio.ToString("yyyy-MM-ddTHH:mm:ss") + Document.CstmrCdtTrfInitn.GrpHdr.NbOfTxs = ListaBeneficiarios.Where(Function(X) X.ImporteTransferencia > 0).Count.ToString + Document.CstmrCdtTrfInitn.GrpHdr.CtrlSum = ListaBeneficiarios.Where(Function(X) X.ImporteTransferencia > 0).Sum(Function(x) x.ImporteTransferencia).ToString("F2").Replace(",", ".") + Document.CstmrCdtTrfInitn.GrpHdr.CtrlSumSpecified = True + Document.CstmrCdtTrfInitn.GrpHdr.InitgPty = New SEPA_3414.PartyIdentification32 + Document.CstmrCdtTrfInitn.GrpHdr.InitgPty.Nm = Ordenante.NOMBRE + Document.CstmrCdtTrfInitn.GrpHdr.InitgPty.Id = New Party6Choice With {.Item = New OrganisationIdentification4 With {.Othr = org}} + + Document.CstmrCdtTrfInitn.GrpHdr.InitgPty.PstlAdr = New SEPA_3414.PostalAddress6 + Document.CstmrCdtTrfInitn.GrpHdr.InitgPty.PstlAdr.StrtNm = Ordenante.DOMICILIO + If Ordenante.NUMERO <> "" Then Document.CstmrCdtTrfInitn.GrpHdr.InitgPty.PstlAdr.BldgNb = Ordenante.NUMERO + Document.CstmrCdtTrfInitn.GrpHdr.InitgPty.PstlAdr.PstCd = Ordenante.CPO + Document.CstmrCdtTrfInitn.GrpHdr.InitgPty.PstlAdr.TwnNm = Ordenante.CIUDAD + Document.CstmrCdtTrfInitn.GrpHdr.InitgPty.PstlAdr.Ctry = Ordenante.PAIS + 'Dim listaInformacionPago As List(Of SEPA_3414.PaymentInstructionInformation3) + 'Dim informacionpago As SEPA_3414.PaymentInstructionInformation3 + Dim ListaPmtInf As New List(Of SEPA_3414.PaymentInstructionInformation3) + Dim PmtInf As New SEPA_3414.PaymentInstructionInformation3 + PmtInf.PmtInfId = Ordenante.CIF + PmtInf.PmtMtd = SEPA_3414.PaymentMethod3Code.TRF + If Ordenante.BIC = "UCJAES2MXXX" Then + PmtInf.BtchBookg = False ' para unicaja + PmtInf.BtchBookgSpecified = True ' para unicaja + PmtInf.NbOfTxs = Document.CstmrCdtTrfInitn.GrpHdr.NbOfTxs + PmtInf.CtrlSum = Math.Round(ListaBeneficiarios.Where(Function(X) X.ImporteTransferencia > 0).Sum(Function(x) x.ImporteTransferencia), 2, MidpointRounding.AwayFromZero) + PmtInf.CtrlSumSpecified = True ' para unicaja + PmtInf.PmtTpInf = New SEPA_3414.PaymentTypeInformation19 + PmtInf.PmtTpInf.SvcLvl = New SEPA_3414.ServiceLevel8Choice With {.Item = "SEPA"} ' para Unicaja + PmtInf.PmtTpInf.LclInstrm = New SEPA_3414.LocalInstrument2Choice With {.Item = "SDCL"} ' para Unicaja + If ListaBeneficiarios(0).Proposito IsNot Nothing AndAlso ListaBeneficiarios(0).Proposito <> "" Then + PmtInf.PmtTpInf.CtgyPurp = New SEPA_3414.CategoryPurpose1Choice ' para Unicaja + PmtInf.PmtTpInf.CtgyPurp.Item = ListaBeneficiarios(0).Proposito ' para Unicaja + End If + + End If + + PmtInf.ReqdExctnDt = FechaEjecucion + 'PmtInf.BtchBookg = False + PmtInf.Dbtr = New SEPA_3414.PartyIdentification32 + PmtInf.Dbtr.Id = New Party6Choice + PmtInf.Dbtr.Id.Item = New OrganisationIdentification4 With {.Othr = org} + PmtInf.Dbtr.Nm = Ordenante.NOMBRE + PmtInf.Dbtr.PstlAdr = New SEPA_3414.PostalAddress6 + PmtInf.Dbtr.PstlAdr.StrtNm = Ordenante.DOMICILIO + If Ordenante.NUMERO <> "" Then PmtInf.Dbtr.PstlAdr.BldgNb = Ordenante.NUMERO + PmtInf.Dbtr.PstlAdr.PstCd = Ordenante.CPO + PmtInf.Dbtr.PstlAdr.TwnNm = Ordenante.CIUDAD + PmtInf.Dbtr.PstlAdr.Ctry = Ordenante.PAIS + PmtInf.DbtrAcct = New SEPA_3414.CashAccount16 + PmtInf.DbtrAcct.Id = New SEPA_3414.AccountIdentification4Choice With {.Item = Ordenante.IBAN} + PmtInf.DbtrAgt = New SEPA_3414.BranchAndFinancialInstitutionIdentification4 + PmtInf.DbtrAgt.FinInstnId = New SEPA_3414.FinancialInstitutionIdentification7 + PmtInf.DbtrAgt.FinInstnId.BIC = Ordenante.BIC + 'If Ordenante.ENELMISMODIA Then + ' PmtInf.PmtTpInf = New SEPA_3414.PaymentTypeInformation19 + ' PmtInf.PmtTpInf.SvcLvl = New SEPA_3414.ServiceLevel8Choice With {.Item = "SEPA"} + ' PmtInf.PmtTpInf.LclInstrm = New SEPA_3414.LocalInstrument2Choice With {.Item = "SDCL"} + 'End If + ' PmtInf.Dbtr.Id.Item = Ordenante.CIF & "SEV" + Dim cts As New List(Of SEPA_3414.CreditTransferTransactionInformation10) + Dim ct As SEPA_3414.CreditTransferTransactionInformation10 + For Each Beneficiario In ListaBeneficiarios + If Beneficiario.ImporteTransferencia > 0 Then + ct = New SEPA_3414.CreditTransferTransactionInformation10 + ct.PmtId = New SEPA_3414.PaymentIdentification1 + ct.PmtId.InstrId = Beneficiario.IdentificacionPago.Trim.PadRight(35, " ").Substring(0, 35) + ct.PmtId.EndToEndId = Beneficiario.IdentificacionPago.Trim.PadRight(35, " ").Substring(0, 35) + If Beneficiario.IdentificacionPagoFichero <> "" Then + ct.RmtInf = New SEPA_3414.RemittanceInformation5 + ct.RmtInf.Ustrd = {Beneficiario.IdentificacionPagoFichero} + End If + If Beneficiario.Proposito <> "" Then + ct.PmtTpInf = New SEPA_3414.PaymentTypeInformation19 + If Ordenante.ENELMISMODIA Then + ct.PmtTpInf.SvcLvl = New SEPA_3414.ServiceLevel8Choice With {.Item = "SEPA"} + ct.PmtTpInf.LclInstrm = New SEPA_3414.LocalInstrument2Choice With {.Item = "SDCL"} + End If + ct.PmtTpInf.CtgyPurp = New SEPA_3414.CategoryPurpose1Choice + ct.PmtTpInf.CtgyPurp.Item = Beneficiario.Proposito + End If + Dim sImporteTransferencia = Beneficiario.ImporteTransferencia.ToString("F2").Replace(",", ".") + ct.Amt = New SEPA_3414.AmountType3Choice + ct.Amt.Item = New SEPA_3414.ActiveOrHistoricCurrencyAndAmount With {.Ccy = "EUR", .Value = sImporteTransferencia} + ct.ChrgBr = SEPA_3414.ChargeBearerType1Code.DEBT + ct.CdtrAgt = New SEPA_3414.BranchAndFinancialInstitutionIdentification4 + ct.CdtrAgt.FinInstnId = New SEPA_3414.FinancialInstitutionIdentification7 + ' ct.CdtrAgt.FinInstnId.BIC = Beneficiario.BIC + ct.Cdtr = New SEPA_3414.PartyIdentification32 + ct.Cdtr.Nm = tsl5.Extensiones.StringExtensions.ConvierteAAlfanumerico(Beneficiario.NOMBRE, "ÁÉÍÓÚáéíóúÑñÜü", "AEIOUaeiouNnUu") + ct.CdtrAcct = New SEPA_3414.CashAccount16 + ct.CdtrAcct.Id = New SEPA_3414.AccountIdentification4Choice With {.Item = Beneficiario.IBAN} + cts.Add(ct) + End If + Next + PmtInf.CdtTrfTxInf = cts.ToArray + ListaPmtInf.Add(PmtInf) + ' Document.CstmrCdtTrfInitn = New SEPA_3414.CustomerCreditTransferInitiationV03 + Document.CstmrCdtTrfInitn.PmtInf = ListaPmtInf.ToArray + tsl5.Utilidades.SerializarUTF8(Document, FicheroXML) + Catch ex As Exception + Throw New Exception(ex.Message, ex) + End Try + End Sub + End Class +End Namespace diff --git a/Bancos/pain_001_001_03.vb b/Bancos/pain_001_001_03.vb new file mode 100644 index 0000000..630053f --- /dev/null +++ b/Bancos/pain_001_001_03.vb @@ -0,0 +1,4537 @@ +'------------------------------------------------------------------------------ +' +' Este código fue generado por una herramienta. +' Versión de runtime:4.0.30319.18444 +' +' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si +' se vuelve a generar el código. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System.Xml.Serialization +Namespace SEPA_3414 + ' + 'This source code was auto-generated by xsd, Version=4.0.30319.33440. + ' + + ''' + _ + Partial Public Class Document + + Private cstmrCdtTrfInitnField As CustomerCreditTransferInitiationV03 + + ''' + Public Property CstmrCdtTrfInitn() As CustomerCreditTransferInitiationV03 + Get + Return Me.cstmrCdtTrfInitnField + End Get + Set(value As CustomerCreditTransferInitiationV03) + Me.cstmrCdtTrfInitnField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class CustomerCreditTransferInitiationV03 + + Private grpHdrField As GroupHeader32 + + Private pmtInfField() As PaymentInstructionInformation3 + + ''' + Public Property GrpHdr() As GroupHeader32 + Get + Return Me.grpHdrField + End Get + Set(value As GroupHeader32) + Me.grpHdrField = value + End Set + End Property + + ''' + _ + Public Property PmtInf() As PaymentInstructionInformation3() + Get + Return Me.pmtInfField + End Get + Set(value As PaymentInstructionInformation3()) + Me.pmtInfField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class GroupHeader32 + + Private msgIdField As String + + Private creDtTmField As String + + Private authstnField() As Authorisation1Choice + + Private nbOfTxsField As String + + Private ctrlSumField As String + + Private ctrlSumFieldSpecified As Boolean + + Private initgPtyField As PartyIdentification32 + + Private fwdgAgtField As BranchAndFinancialInstitutionIdentification4 + + ''' + Public Property MsgId() As String + Get + Return Me.msgIdField + End Get + Set(value As String) + Me.msgIdField = value + End Set + End Property + + ''' + Public Property CreDtTm() As String + Get + Return Me.creDtTmField + End Get + Set(value As String) + Me.creDtTmField = value + End Set + End Property + + ''' + _ + Public Property Authstn() As Authorisation1Choice() + Get + Return Me.authstnField + End Get + Set(value As Authorisation1Choice()) + Me.authstnField = value + End Set + End Property + + ''' + Public Property NbOfTxs() As String + Get + Return Me.nbOfTxsField + End Get + Set(value As String) + Me.nbOfTxsField = value + End Set + End Property + + ''' + Public Property CtrlSum() As String + Get + Return Me.ctrlSumField + End Get + Set(value As String) + Me.ctrlSumField = value + End Set + End Property + + ''' + _ + Public Property CtrlSumSpecified() As Boolean + Get + Return Me.ctrlSumFieldSpecified + End Get + Set(value As Boolean) + Me.ctrlSumFieldSpecified = value + End Set + End Property + + ''' + Public Property InitgPty() As PartyIdentification32 + Get + Return Me.initgPtyField + End Get + Set(value As PartyIdentification32) + Me.initgPtyField = value + End Set + End Property + + ''' + Public Property FwdgAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.fwdgAgtField + End Get + Set(value As BranchAndFinancialInstitutionIdentification4) + Me.fwdgAgtField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class Authorisation1Choice + + Private itemField As Object + + ''' + _ + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set(value As Object) + Me.itemField = value + End Set + End Property + End Class + + ''' + _ + Public Enum Authorisation1Code + + ''' + AUTH + + ''' + FDET + + ''' + FSUM + + ''' + ILEV + End Enum + + ''' + _ + Partial Public Class CreditorReferenceType1Choice + + Private itemField As Object + + ''' + _ + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set(value As Object) + Me.itemField = value + End Set + End Property + End Class + + ''' + _ + Public Enum DocumentType3Code + + ''' + RADM + + ''' + RPIN + + ''' + FXDR + + ''' + DISP + + ''' + PUOR + + ''' + SCOR + End Enum + + ''' + _ + Partial Public Class CreditorReferenceType2 + + Private cdOrPrtryField As CreditorReferenceType1Choice + + Private issrField As String + + ''' + Public Property CdOrPrtry() As CreditorReferenceType1Choice + Get + Return Me.cdOrPrtryField + End Get + Set(value As CreditorReferenceType1Choice) + Me.cdOrPrtryField = value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set(value As String) + Me.issrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class CreditorReferenceInformation2 + + Private tpField As CreditorReferenceType2 + + Private refField As String + + ''' + Public Property Tp() As CreditorReferenceType2 + Get + Return Me.tpField + End Get + Set(value As CreditorReferenceType2) + Me.tpField = value + End Set + End Property + + ''' + Public Property Ref() As String + Get + Return Me.refField + End Get + Set(value As String) + Me.refField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class DocumentAdjustment1 + + Private amtField As ActiveOrHistoricCurrencyAndAmount + + Private cdtDbtIndField As CreditDebitCode + + Private cdtDbtIndFieldSpecified As Boolean + + Private rsnField As String + + Private addtlInfField As String + + ''' + Public Property Amt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.amtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.amtField = value + End Set + End Property + + ''' + Public Property CdtDbtInd() As CreditDebitCode + Get + Return Me.cdtDbtIndField + End Get + Set(value As CreditDebitCode) + Me.cdtDbtIndField = value + End Set + End Property + + ''' + _ + Public Property CdtDbtIndSpecified() As Boolean + Get + Return Me.cdtDbtIndFieldSpecified + End Get + Set(value As Boolean) + Me.cdtDbtIndFieldSpecified = value + End Set + End Property + + ''' + Public Property Rsn() As String + Get + Return Me.rsnField + End Get + Set(value As String) + Me.rsnField = value + End Set + End Property + + ''' + Public Property AddtlInf() As String + Get + Return Me.addtlInfField + End Get + Set(value As String) + Me.addtlInfField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class ActiveOrHistoricCurrencyAndAmount + + Private ccyField As String + + Private valueField As String + + ''' + _ + Public Property Ccy() As String + Get + Return Me.ccyField + End Get + Set(value As String) + Me.ccyField = value + End Set + End Property + + ''' + _ + Public Property Value() As String + Get + Return Me.valueField + End Get + Set(value As String) + Me.valueField = value + End Set + End Property + End Class + + ''' + _ + Public Enum CreditDebitCode + + ''' + CRDT + + ''' + DBIT + End Enum + + ''' + _ + Partial Public Class RemittanceAmount1 + + Private duePyblAmtField As ActiveOrHistoricCurrencyAndAmount + + Private dscntApldAmtField As ActiveOrHistoricCurrencyAndAmount + + Private cdtNoteAmtField As ActiveOrHistoricCurrencyAndAmount + + Private taxAmtField As ActiveOrHistoricCurrencyAndAmount + + Private adjstmntAmtAndRsnField() As DocumentAdjustment1 + + Private rmtdAmtField As ActiveOrHistoricCurrencyAndAmount + + ''' + Public Property DuePyblAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.duePyblAmtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.duePyblAmtField = value + End Set + End Property + + ''' + Public Property DscntApldAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.dscntApldAmtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.dscntApldAmtField = value + End Set + End Property + + ''' + Public Property CdtNoteAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.cdtNoteAmtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.cdtNoteAmtField = value + End Set + End Property + + ''' + Public Property TaxAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.taxAmtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.taxAmtField = value + End Set + End Property + + ''' + _ + Public Property AdjstmntAmtAndRsn() As DocumentAdjustment1() + Get + Return Me.adjstmntAmtAndRsnField + End Get + Set(value As DocumentAdjustment1()) + Me.adjstmntAmtAndRsnField = value + End Set + End Property + + ''' + Public Property RmtdAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.rmtdAmtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.rmtdAmtField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class ReferredDocumentType1Choice + + Private itemField As Object + + ''' + _ + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set(value As Object) + Me.itemField = value + End Set + End Property + End Class + + ''' + _ + Public Enum DocumentType5Code + + ''' + MSIN + + ''' + CNFA + + ''' + DNFA + + ''' + CINV + + ''' + CREN + + ''' + DEBN + + ''' + HIRI + + ''' + SBIN + + ''' + CMCN + + ''' + SOAC + + ''' + DISP + + ''' + BOLD + + ''' + VCHR + + ''' + AROI + + ''' + TSUT + End Enum + + ''' + _ + Partial Public Class ReferredDocumentType2 + + Private cdOrPrtryField As ReferredDocumentType1Choice + + Private issrField As String + + ''' + Public Property CdOrPrtry() As ReferredDocumentType1Choice + Get + Return Me.cdOrPrtryField + End Get + Set(value As ReferredDocumentType1Choice) + Me.cdOrPrtryField = value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set(value As String) + Me.issrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class ReferredDocumentInformation3 + + Private tpField As ReferredDocumentType2 + + Private nbField As String + + Private rltdDtField As Date + + Private rltdDtFieldSpecified As Boolean + + ''' + Public Property Tp() As ReferredDocumentType2 + Get + Return Me.tpField + End Get + Set(value As ReferredDocumentType2) + Me.tpField = value + End Set + End Property + + ''' + Public Property Nb() As String + Get + Return Me.nbField + End Get + Set(value As String) + Me.nbField = value + End Set + End Property + + ''' + _ + Public Property RltdDt() As Date + Get + Return Me.rltdDtField + End Get + Set(value As Date) + Me.rltdDtField = value + End Set + End Property + + ''' + _ + Public Property RltdDtSpecified() As Boolean + Get + Return Me.rltdDtFieldSpecified + End Get + Set(value As Boolean) + Me.rltdDtFieldSpecified = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class StructuredRemittanceInformation7 + + Private rfrdDocInfField() As ReferredDocumentInformation3 + + Private rfrdDocAmtField As RemittanceAmount1 + + Private cdtrRefInfField As CreditorReferenceInformation2 + + Private invcrField As PartyIdentification32 + + Private invceeField As PartyIdentification32 + + Private addtlRmtInfField() As String + + ''' + _ + Public Property RfrdDocInf() As ReferredDocumentInformation3() + Get + Return Me.rfrdDocInfField + End Get + Set(value As ReferredDocumentInformation3()) + Me.rfrdDocInfField = value + End Set + End Property + + ''' + Public Property RfrdDocAmt() As RemittanceAmount1 + Get + Return Me.rfrdDocAmtField + End Get + Set(value As RemittanceAmount1) + Me.rfrdDocAmtField = value + End Set + End Property + + ''' + Public Property CdtrRefInf() As CreditorReferenceInformation2 + Get + Return Me.cdtrRefInfField + End Get + Set(value As CreditorReferenceInformation2) + Me.cdtrRefInfField = value + End Set + End Property + + ''' + Public Property Invcr() As PartyIdentification32 + Get + Return Me.invcrField + End Get + Set(value As PartyIdentification32) + Me.invcrField = value + End Set + End Property + + ''' + Public Property Invcee() As PartyIdentification32 + Get + Return Me.invceeField + End Get + Set(value As PartyIdentification32) + Me.invceeField = value + End Set + End Property + + ''' + _ + Public Property AddtlRmtInf() As String() + Get + Return Me.addtlRmtInfField + End Get + Set(value As String()) + Me.addtlRmtInfField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class PartyIdentification32 + + Private nmField As String + + Private pstlAdrField As PostalAddress6 + + Private idField As Party6Choice + + Private ctryOfResField As String + + Private ctctDtlsField As ContactDetails2 + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set(value As String) + Me.nmField = value + End Set + End Property + + ''' + Public Property PstlAdr() As PostalAddress6 + Get + Return Me.pstlAdrField + End Get + Set(value As PostalAddress6) + Me.pstlAdrField = value + End Set + End Property + + ''' + Public Property Id() As Party6Choice + Get + Return Me.idField + End Get + Set(value As Party6Choice) + Me.idField = value + End Set + End Property + + ''' + Public Property CtryOfRes() As String + Get + Return Me.ctryOfResField + End Get + Set(value As String) + Me.ctryOfResField = value + End Set + End Property + + ''' + Public Property CtctDtls() As ContactDetails2 + Get + Return Me.ctctDtlsField + End Get + Set(value As ContactDetails2) + Me.ctctDtlsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class PostalAddress6 + + Private adrTpField As AddressType2Code + + Private adrTpFieldSpecified As Boolean + + Private deptField As String + + Private subDeptField As String + + Private strtNmField As String + + Private bldgNbField As String + + Private pstCdField As String + + Private twnNmField As String + + Private ctrySubDvsnField As String + + Private ctryField As String + + Private adrLineField() As String + + ''' + Public Property AdrTp() As AddressType2Code + Get + Return Me.adrTpField + End Get + Set(value As AddressType2Code) + Me.adrTpField = value + End Set + End Property + + ''' + _ + Public Property AdrTpSpecified() As Boolean + Get + Return Me.adrTpFieldSpecified + End Get + Set(value As Boolean) + Me.adrTpFieldSpecified = value + End Set + End Property + + ''' + Public Property Dept() As String + Get + Return Me.deptField + End Get + Set(value As String) + Me.deptField = value + End Set + End Property + + ''' + Public Property SubDept() As String + Get + Return Me.subDeptField + End Get + Set(value As String) + Me.subDeptField = value + End Set + End Property + + ''' + Public Property StrtNm() As String + Get + Return Me.strtNmField + End Get + Set(value As String) + Me.strtNmField = value + End Set + End Property + + ''' + Public Property BldgNb() As String + Get + Return Me.bldgNbField + End Get + Set(value As String) + Me.bldgNbField = value + End Set + End Property + + ''' + Public Property PstCd() As String + Get + Return Me.pstCdField + End Get + Set(value As String) + Me.pstCdField = value + End Set + End Property + + ''' + Public Property TwnNm() As String + Get + Return Me.twnNmField + End Get + Set(value As String) + Me.twnNmField = value + End Set + End Property + + ''' + Public Property CtrySubDvsn() As String + Get + Return Me.ctrySubDvsnField + End Get + Set(value As String) + Me.ctrySubDvsnField = value + End Set + End Property + + ''' + Public Property Ctry() As String + Get + Return Me.ctryField + End Get + Set(value As String) + Me.ctryField = value + End Set + End Property + + ''' + _ + Public Property AdrLine() As String() + Get + Return Me.adrLineField + End Get + Set(value As String()) + Me.adrLineField = value + End Set + End Property + End Class + + ''' + _ + Public Enum AddressType2Code + + ''' + ADDR + + ''' + PBOX + + ''' + HOME + + ''' + BIZZ + + ''' + MLTO + + ''' + DLVY + End Enum + + ''' + _ + Partial Public Class Party6Choice + + Private itemField As Object + + ''' + _ + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set(value As Object) + Me.itemField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class OrganisationIdentification4 + + Private bICOrBEIField As String + + Private othrField() As GenericOrganisationIdentification1 + + ''' + Public Property BICOrBEI() As String + Get + Return Me.bICOrBEIField + End Get + Set(value As String) + Me.bICOrBEIField = value + End Set + End Property + + ''' + _ + Public Property Othr() As GenericOrganisationIdentification1() + Get + Return Me.othrField + End Get + Set(value As GenericOrganisationIdentification1()) + Me.othrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class GenericOrganisationIdentification1 + + Private idField As String + + Private schmeNmField As OrganisationIdentificationSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set(value As String) + Me.idField = value + End Set + End Property + + ''' + Public Property SchmeNm() As OrganisationIdentificationSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set(value As OrganisationIdentificationSchemeName1Choice) + Me.schmeNmField = value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set(value As String) + Me.issrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class OrganisationIdentificationSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType + + ''' + _ + Public Property Item() As String + Get + Return Me.itemField + End Get + Set(value As String) + Me.itemField = value + End Set + End Property + + ''' + _ + Public Property ItemElementName() As ItemChoiceType + Get + Return Me.itemElementNameField + End Get + Set(value As ItemChoiceType) + Me.itemElementNameField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ItemChoiceType + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + _ + Partial Public Class PersonIdentification5 + + Private dtAndPlcOfBirthField As DateAndPlaceOfBirth + + Private othrField() As GenericPersonIdentification1 + + ''' + Public Property DtAndPlcOfBirth() As DateAndPlaceOfBirth + Get + Return Me.dtAndPlcOfBirthField + End Get + Set(value As DateAndPlaceOfBirth) + Me.dtAndPlcOfBirthField = value + End Set + End Property + + ''' + _ + Public Property Othr() As GenericPersonIdentification1() + Get + Return Me.othrField + End Get + Set(value As GenericPersonIdentification1()) + Me.othrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class DateAndPlaceOfBirth + + Private birthDtField As Date + + Private prvcOfBirthField As String + + Private cityOfBirthField As String + + Private ctryOfBirthField As String + + ''' + _ + Public Property BirthDt() As Date + Get + Return Me.birthDtField + End Get + Set(value As Date) + Me.birthDtField = value + End Set + End Property + + ''' + Public Property PrvcOfBirth() As String + Get + Return Me.prvcOfBirthField + End Get + Set(value As String) + Me.prvcOfBirthField = value + End Set + End Property + + ''' + Public Property CityOfBirth() As String + Get + Return Me.cityOfBirthField + End Get + Set(value As String) + Me.cityOfBirthField = value + End Set + End Property + + ''' + Public Property CtryOfBirth() As String + Get + Return Me.ctryOfBirthField + End Get + Set(value As String) + Me.ctryOfBirthField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class GenericPersonIdentification1 + + Private idField As String + + Private schmeNmField As PersonIdentificationSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set(value As String) + Me.idField = value + End Set + End Property + + ''' + Public Property SchmeNm() As PersonIdentificationSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set(value As PersonIdentificationSchemeName1Choice) + Me.schmeNmField = value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set(value As String) + Me.issrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class PersonIdentificationSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType1 + + ''' + _ + Public Property Item() As String + Get + Return Me.itemField + End Get + Set(value As String) + Me.itemField = value + End Set + End Property + + ''' + _ + Public Property ItemElementName() As ItemChoiceType1 + Get + Return Me.itemElementNameField + End Get + Set(value As ItemChoiceType1) + Me.itemElementNameField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ItemChoiceType1 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + _ + Partial Public Class ContactDetails2 + + Private nmPrfxField As NamePrefix1Code + + Private nmPrfxFieldSpecified As Boolean + + Private nmField As String + + Private phneNbField As String + + Private mobNbField As String + + Private faxNbField As String + + Private emailAdrField As String + + Private othrField As String + + ''' + Public Property NmPrfx() As NamePrefix1Code + Get + Return Me.nmPrfxField + End Get + Set(value As NamePrefix1Code) + Me.nmPrfxField = value + End Set + End Property + + ''' + _ + Public Property NmPrfxSpecified() As Boolean + Get + Return Me.nmPrfxFieldSpecified + End Get + Set(value As Boolean) + Me.nmPrfxFieldSpecified = value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set(value As String) + Me.nmField = value + End Set + End Property + + ''' + Public Property PhneNb() As String + Get + Return Me.phneNbField + End Get + Set(value As String) + Me.phneNbField = value + End Set + End Property + + ''' + Public Property MobNb() As String + Get + Return Me.mobNbField + End Get + Set(value As String) + Me.mobNbField = value + End Set + End Property + + ''' + Public Property FaxNb() As String + Get + Return Me.faxNbField + End Get + Set(value As String) + Me.faxNbField = value + End Set + End Property + + ''' + Public Property EmailAdr() As String + Get + Return Me.emailAdrField + End Get + Set(value As String) + Me.emailAdrField = value + End Set + End Property + + ''' + Public Property Othr() As String + Get + Return Me.othrField + End Get + Set(value As String) + Me.othrField = value + End Set + End Property + End Class + + ''' + _ + Public Enum NamePrefix1Code + + ''' + DOCT + + ''' + MIST + + ''' + MISS + + ''' + MADM + End Enum + + ''' + _ + Partial Public Class RemittanceInformation5 + + Private ustrdField() As String + + Private strdField() As StructuredRemittanceInformation7 + + ''' + _ + Public Property Ustrd() As String() + Get + Return Me.ustrdField + End Get + Set(value As String()) + Me.ustrdField = value + End Set + End Property + + ''' + _ + Public Property Strd() As StructuredRemittanceInformation7() + Get + Return Me.strdField + End Get + Set(value As StructuredRemittanceInformation7()) + Me.strdField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class RemittanceLocation2 + + Private rmtIdField As String + + Private rmtLctnMtdField As RemittanceLocationMethod2Code + + Private rmtLctnMtdFieldSpecified As Boolean + + Private rmtLctnElctrncAdrField As String + + Private rmtLctnPstlAdrField As NameAndAddress10 + + ''' + Public Property RmtId() As String + Get + Return Me.rmtIdField + End Get + Set(value As String) + Me.rmtIdField = value + End Set + End Property + + ''' + Public Property RmtLctnMtd() As RemittanceLocationMethod2Code + Get + Return Me.rmtLctnMtdField + End Get + Set(value As RemittanceLocationMethod2Code) + Me.rmtLctnMtdField = value + End Set + End Property + + ''' + _ + Public Property RmtLctnMtdSpecified() As Boolean + Get + Return Me.rmtLctnMtdFieldSpecified + End Get + Set(value As Boolean) + Me.rmtLctnMtdFieldSpecified = value + End Set + End Property + + ''' + Public Property RmtLctnElctrncAdr() As String + Get + Return Me.rmtLctnElctrncAdrField + End Get + Set(value As String) + Me.rmtLctnElctrncAdrField = value + End Set + End Property + + ''' + Public Property RmtLctnPstlAdr() As NameAndAddress10 + Get + Return Me.rmtLctnPstlAdrField + End Get + Set(value As NameAndAddress10) + Me.rmtLctnPstlAdrField = value + End Set + End Property + End Class + + ''' + _ + Public Enum RemittanceLocationMethod2Code + + ''' + FAXI + + ''' + EDIC + + ''' + URID + + ''' + EMAL + + ''' + POST + + ''' + SMSM + End Enum + + ''' + _ + Partial Public Class NameAndAddress10 + + Private nmField As String + + Private adrField As PostalAddress6 + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set(value As String) + Me.nmField = value + End Set + End Property + + ''' + Public Property Adr() As PostalAddress6 + Get + Return Me.adrField + End Get + Set(value As PostalAddress6) + Me.adrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class TaxRecordDetails1 + + Private prdField As TaxPeriod1 + + Private amtField As ActiveOrHistoricCurrencyAndAmount + + ''' + Public Property Prd() As TaxPeriod1 + Get + Return Me.prdField + End Get + Set(value As TaxPeriod1) + Me.prdField = value + End Set + End Property + + ''' + Public Property Amt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.amtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.amtField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class TaxPeriod1 + + Private yrField As Date + + Private yrFieldSpecified As Boolean + + Private tpField As TaxRecordPeriod1Code + + Private tpFieldSpecified As Boolean + + Private frToDtField As DatePeriodDetails + + ''' + _ + Public Property Yr() As Date + Get + Return Me.yrField + End Get + Set(value As Date) + Me.yrField = value + End Set + End Property + + ''' + _ + Public Property YrSpecified() As Boolean + Get + Return Me.yrFieldSpecified + End Get + Set(value As Boolean) + Me.yrFieldSpecified = value + End Set + End Property + + ''' + Public Property Tp() As TaxRecordPeriod1Code + Get + Return Me.tpField + End Get + Set(value As TaxRecordPeriod1Code) + Me.tpField = value + End Set + End Property + + ''' + _ + Public Property TpSpecified() As Boolean + Get + Return Me.tpFieldSpecified + End Get + Set(value As Boolean) + Me.tpFieldSpecified = value + End Set + End Property + + ''' + Public Property FrToDt() As DatePeriodDetails + Get + Return Me.frToDtField + End Get + Set(value As DatePeriodDetails) + Me.frToDtField = value + End Set + End Property + End Class + + ''' + _ + Public Enum TaxRecordPeriod1Code + + ''' + MM01 + + ''' + MM02 + + ''' + MM03 + + ''' + MM04 + + ''' + MM05 + + ''' + MM06 + + ''' + MM07 + + ''' + MM08 + + ''' + MM09 + + ''' + MM10 + + ''' + MM11 + + ''' + MM12 + + ''' + QTR1 + + ''' + QTR2 + + ''' + QTR3 + + ''' + QTR4 + + ''' + HLF1 + + ''' + HLF2 + End Enum + + ''' + _ + Partial Public Class DatePeriodDetails + + Private frDtField As Date + + Private toDtField As Date + + ''' + _ + Public Property FrDt() As Date + Get + Return Me.frDtField + End Get + Set(value As Date) + Me.frDtField = value + End Set + End Property + + ''' + _ + Public Property ToDt() As Date + Get + Return Me.toDtField + End Get + Set(value As Date) + Me.toDtField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class TaxAmount1 + + Private rateField As Decimal + + Private rateFieldSpecified As Boolean + + Private taxblBaseAmtField As ActiveOrHistoricCurrencyAndAmount + + Private ttlAmtField As ActiveOrHistoricCurrencyAndAmount + + Private dtlsField() As TaxRecordDetails1 + + ''' + Public Property Rate() As Decimal + Get + Return Me.rateField + End Get + Set(value As Decimal) + Me.rateField = value + End Set + End Property + + ''' + _ + Public Property RateSpecified() As Boolean + Get + Return Me.rateFieldSpecified + End Get + Set(value As Boolean) + Me.rateFieldSpecified = value + End Set + End Property + + ''' + Public Property TaxblBaseAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.taxblBaseAmtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.taxblBaseAmtField = value + End Set + End Property + + ''' + Public Property TtlAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.ttlAmtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.ttlAmtField = value + End Set + End Property + + ''' + _ + Public Property Dtls() As TaxRecordDetails1() + Get + Return Me.dtlsField + End Get + Set(value As TaxRecordDetails1()) + Me.dtlsField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class TaxRecord1 + + Private tpField As String + + Private ctgyField As String + + Private ctgyDtlsField As String + + Private dbtrStsField As String + + Private certIdField As String + + Private frmsCdField As String + + Private prdField As TaxPeriod1 + + Private taxAmtField As TaxAmount1 + + Private addtlInfField As String + + ''' + Public Property Tp() As String + Get + Return Me.tpField + End Get + Set(value As String) + Me.tpField = value + End Set + End Property + + ''' + Public Property Ctgy() As String + Get + Return Me.ctgyField + End Get + Set(value As String) + Me.ctgyField = value + End Set + End Property + + ''' + Public Property CtgyDtls() As String + Get + Return Me.ctgyDtlsField + End Get + Set(value As String) + Me.ctgyDtlsField = value + End Set + End Property + + ''' + Public Property DbtrSts() As String + Get + Return Me.dbtrStsField + End Get + Set(value As String) + Me.dbtrStsField = value + End Set + End Property + + ''' + Public Property CertId() As String + Get + Return Me.certIdField + End Get + Set(value As String) + Me.certIdField = value + End Set + End Property + + ''' + Public Property FrmsCd() As String + Get + Return Me.frmsCdField + End Get + Set(value As String) + Me.frmsCdField = value + End Set + End Property + + ''' + Public Property Prd() As TaxPeriod1 + Get + Return Me.prdField + End Get + Set(value As TaxPeriod1) + Me.prdField = value + End Set + End Property + + ''' + Public Property TaxAmt() As TaxAmount1 + Get + Return Me.taxAmtField + End Get + Set(value As TaxAmount1) + Me.taxAmtField = value + End Set + End Property + + ''' + Public Property AddtlInf() As String + Get + Return Me.addtlInfField + End Get + Set(value As String) + Me.addtlInfField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class TaxAuthorisation1 + + Private titlField As String + + Private nmField As String + + ''' + Public Property Titl() As String + Get + Return Me.titlField + End Get + Set(value As String) + Me.titlField = value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set(value As String) + Me.nmField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class TaxParty2 + + Private taxIdField As String + + Private regnIdField As String + + Private taxTpField As String + + Private authstnField As TaxAuthorisation1 + + ''' + Public Property TaxId() As String + Get + Return Me.taxIdField + End Get + Set(value As String) + Me.taxIdField = value + End Set + End Property + + ''' + Public Property RegnId() As String + Get + Return Me.regnIdField + End Get + Set(value As String) + Me.regnIdField = value + End Set + End Property + + ''' + Public Property TaxTp() As String + Get + Return Me.taxTpField + End Get + Set(value As String) + Me.taxTpField = value + End Set + End Property + + ''' + Public Property Authstn() As TaxAuthorisation1 + Get + Return Me.authstnField + End Get + Set(value As TaxAuthorisation1) + Me.authstnField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class TaxParty1 + + Private taxIdField As String + + Private regnIdField As String + + Private taxTpField As String + + ''' + Public Property TaxId() As String + Get + Return Me.taxIdField + End Get + Set(value As String) + Me.taxIdField = value + End Set + End Property + + ''' + Public Property RegnId() As String + Get + Return Me.regnIdField + End Get + Set(value As String) + Me.regnIdField = value + End Set + End Property + + ''' + Public Property TaxTp() As String + Get + Return Me.taxTpField + End Get + Set(value As String) + Me.taxTpField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class TaxInformation3 + + Private cdtrField As TaxParty1 + + Private dbtrField As TaxParty2 + + Private admstnZnField As String + + Private refNbField As String + + Private mtdField As String + + Private ttlTaxblBaseAmtField As ActiveOrHistoricCurrencyAndAmount + + Private ttlTaxAmtField As ActiveOrHistoricCurrencyAndAmount + + Private dtField As Date + + Private dtFieldSpecified As Boolean + + Private seqNbField As Decimal + + Private seqNbFieldSpecified As Boolean + + Private rcrdField() As TaxRecord1 + + ''' + Public Property Cdtr() As TaxParty1 + Get + Return Me.cdtrField + End Get + Set(value As TaxParty1) + Me.cdtrField = value + End Set + End Property + + ''' + Public Property Dbtr() As TaxParty2 + Get + Return Me.dbtrField + End Get + Set(value As TaxParty2) + Me.dbtrField = value + End Set + End Property + + ''' + Public Property AdmstnZn() As String + Get + Return Me.admstnZnField + End Get + Set(value As String) + Me.admstnZnField = value + End Set + End Property + + ''' + Public Property RefNb() As String + Get + Return Me.refNbField + End Get + Set(value As String) + Me.refNbField = value + End Set + End Property + + ''' + Public Property Mtd() As String + Get + Return Me.mtdField + End Get + Set(value As String) + Me.mtdField = value + End Set + End Property + + ''' + Public Property TtlTaxblBaseAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.ttlTaxblBaseAmtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.ttlTaxblBaseAmtField = value + End Set + End Property + + ''' + Public Property TtlTaxAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.ttlTaxAmtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.ttlTaxAmtField = value + End Set + End Property + + ''' + _ + Public Property Dt() As Date + Get + Return Me.dtField + End Get + Set(value As Date) + Me.dtField = value + End Set + End Property + + ''' + _ + Public Property DtSpecified() As Boolean + Get + Return Me.dtFieldSpecified + End Get + Set(value As Boolean) + Me.dtFieldSpecified = value + End Set + End Property + + ''' + Public Property SeqNb() As Decimal + Get + Return Me.seqNbField + End Get + Set(value As Decimal) + Me.seqNbField = value + End Set + End Property + + ''' + _ + Public Property SeqNbSpecified() As Boolean + Get + Return Me.seqNbFieldSpecified + End Get + Set(value As Boolean) + Me.seqNbFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property Rcrd() As TaxRecord1() + Get + Return Me.rcrdField + End Get + Set(value As TaxRecord1()) + Me.rcrdField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class StructuredRegulatoryReporting3 + + Private tpField As String + + Private dtField As Date + + Private dtFieldSpecified As Boolean + + Private ctryField As String + + Private cdField As String + + Private amtField As ActiveOrHistoricCurrencyAndAmount + + Private infField() As String + + ''' + Public Property Tp() As String + Get + Return Me.tpField + End Get + Set(value As String) + Me.tpField = value + End Set + End Property + + ''' + _ + Public Property Dt() As Date + Get + Return Me.dtField + End Get + Set(value As Date) + Me.dtField = value + End Set + End Property + + ''' + _ + Public Property DtSpecified() As Boolean + Get + Return Me.dtFieldSpecified + End Get + Set(value As Boolean) + Me.dtFieldSpecified = value + End Set + End Property + + ''' + Public Property Ctry() As String + Get + Return Me.ctryField + End Get + Set(value As String) + Me.ctryField = value + End Set + End Property + + ''' + Public Property Cd() As String + Get + Return Me.cdField + End Get + Set(value As String) + Me.cdField = value + End Set + End Property + + ''' + Public Property Amt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.amtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.amtField = value + End Set + End Property + + ''' + _ + Public Property Inf() As String() + Get + Return Me.infField + End Get + Set(value As String()) + Me.infField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class RegulatoryAuthority2 + + Private nmField As String + + Private ctryField As String + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set(value As String) + Me.nmField = value + End Set + End Property + + ''' + Public Property Ctry() As String + Get + Return Me.ctryField + End Get + Set(value As String) + Me.ctryField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class RegulatoryReporting3 + + Private dbtCdtRptgIndField As RegulatoryReportingType1Code + + Private dbtCdtRptgIndFieldSpecified As Boolean + + Private authrtyField As RegulatoryAuthority2 + + Private dtlsField() As StructuredRegulatoryReporting3 + + ''' + Public Property DbtCdtRptgInd() As RegulatoryReportingType1Code + Get + Return Me.dbtCdtRptgIndField + End Get + Set(value As RegulatoryReportingType1Code) + Me.dbtCdtRptgIndField = value + End Set + End Property + + ''' + _ + Public Property DbtCdtRptgIndSpecified() As Boolean + Get + Return Me.dbtCdtRptgIndFieldSpecified + End Get + Set(value As Boolean) + Me.dbtCdtRptgIndFieldSpecified = value + End Set + End Property + + ''' + Public Property Authrty() As RegulatoryAuthority2 + Get + Return Me.authrtyField + End Get + Set(value As RegulatoryAuthority2) + Me.authrtyField = value + End Set + End Property + + ''' + _ + Public Property Dtls() As StructuredRegulatoryReporting3() + Get + Return Me.dtlsField + End Get + Set(value As StructuredRegulatoryReporting3()) + Me.dtlsField = value + End Set + End Property + End Class + + ''' + _ + Public Enum RegulatoryReportingType1Code + + ''' + CRED + + ''' + DEBT + + ''' + BOTH + End Enum + + ''' + _ + Partial Public Class Purpose2Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType8 + + ''' + _ + Public Property Item() As String + Get + Return Me.itemField + End Get + Set(value As String) + Me.itemField = value + End Set + End Property + + ''' + _ + Public Property ItemElementName() As ItemChoiceType8 + Get + Return Me.itemElementNameField + End Get + Set(value As ItemChoiceType8) + Me.itemElementNameField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ItemChoiceType8 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + _ + Partial Public Class InstructionForCreditorAgent1 + + Private cdField As Instruction3Code + + Private cdFieldSpecified As Boolean + + Private instrInfField As String + + ''' + Public Property Cd() As Instruction3Code + Get + Return Me.cdField + End Get + Set(value As Instruction3Code) + Me.cdField = value + End Set + End Property + + ''' + _ + Public Property CdSpecified() As Boolean + Get + Return Me.cdFieldSpecified + End Get + Set(value As Boolean) + Me.cdFieldSpecified = value + End Set + End Property + + ''' + Public Property InstrInf() As String + Get + Return Me.instrInfField + End Get + Set(value As String) + Me.instrInfField = value + End Set + End Property + End Class + + ''' + _ + Public Enum Instruction3Code + + ''' + CHQB + + ''' + HOLD + + ''' + PHOB + + ''' + TELB + End Enum + + ''' + _ + Partial Public Class ChequeDeliveryMethod1Choice + + Private itemField As Object + + ''' + _ + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set(value As Object) + Me.itemField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ChequeDelivery1Code + + ''' + MLDB + + ''' + MLCD + + ''' + MLFA + + ''' + CRDB + + ''' + CRCD + + ''' + CRFA + + ''' + PUDB + + ''' + PUCD + + ''' + PUFA + + ''' + RGDB + + ''' + RGCD + + ''' + RGFA + End Enum + + ''' + _ + Partial Public Class Cheque6 + + Private chqTpField As ChequeType2Code + + Private chqTpFieldSpecified As Boolean + + Private chqNbField As String + + Private chqFrField As NameAndAddress10 + + Private dlvryMtdField As ChequeDeliveryMethod1Choice + + Private dlvrToField As NameAndAddress10 + + Private instrPrtyField As Priority2Code + + Private instrPrtyFieldSpecified As Boolean + + Private chqMtrtyDtField As Date + + Private chqMtrtyDtFieldSpecified As Boolean + + Private frmsCdField As String + + Private memoFldField() As String + + Private rgnlClrZoneField As String + + Private prtLctnField As String + + ''' + Public Property ChqTp() As ChequeType2Code + Get + Return Me.chqTpField + End Get + Set(value As ChequeType2Code) + Me.chqTpField = value + End Set + End Property + + ''' + _ + Public Property ChqTpSpecified() As Boolean + Get + Return Me.chqTpFieldSpecified + End Get + Set(value As Boolean) + Me.chqTpFieldSpecified = value + End Set + End Property + + ''' + Public Property ChqNb() As String + Get + Return Me.chqNbField + End Get + Set(value As String) + Me.chqNbField = value + End Set + End Property + + ''' + Public Property ChqFr() As NameAndAddress10 + Get + Return Me.chqFrField + End Get + Set(value As NameAndAddress10) + Me.chqFrField = value + End Set + End Property + + ''' + Public Property DlvryMtd() As ChequeDeliveryMethod1Choice + Get + Return Me.dlvryMtdField + End Get + Set(value As ChequeDeliveryMethod1Choice) + Me.dlvryMtdField = value + End Set + End Property + + ''' + Public Property DlvrTo() As NameAndAddress10 + Get + Return Me.dlvrToField + End Get + Set(value As NameAndAddress10) + Me.dlvrToField = value + End Set + End Property + + ''' + Public Property InstrPrty() As Priority2Code + Get + Return Me.instrPrtyField + End Get + Set(value As Priority2Code) + Me.instrPrtyField = value + End Set + End Property + + ''' + _ + Public Property InstrPrtySpecified() As Boolean + Get + Return Me.instrPrtyFieldSpecified + End Get + Set(value As Boolean) + Me.instrPrtyFieldSpecified = value + End Set + End Property + + ''' + _ + Public Property ChqMtrtyDt() As Date + Get + Return Me.chqMtrtyDtField + End Get + Set(value As Date) + Me.chqMtrtyDtField = value + End Set + End Property + + ''' + _ + Public Property ChqMtrtyDtSpecified() As Boolean + Get + Return Me.chqMtrtyDtFieldSpecified + End Get + Set(value As Boolean) + Me.chqMtrtyDtFieldSpecified = value + End Set + End Property + + ''' + Public Property FrmsCd() As String + Get + Return Me.frmsCdField + End Get + Set(value As String) + Me.frmsCdField = value + End Set + End Property + + ''' + _ + Public Property MemoFld() As String() + Get + Return Me.memoFldField + End Get + Set(value As String()) + Me.memoFldField = value + End Set + End Property + + ''' + Public Property RgnlClrZone() As String + Get + Return Me.rgnlClrZoneField + End Get + Set(value As String) + Me.rgnlClrZoneField = value + End Set + End Property + + ''' + Public Property PrtLctn() As String + Get + Return Me.prtLctnField + End Get + Set(value As String) + Me.prtLctnField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ChequeType2Code + + ''' + CCHQ + + ''' + CCCH + + ''' + BCHQ + + ''' + DRFT + + ''' + ELDR + End Enum + + ''' + _ + Public Enum Priority2Code + + ''' + HIGH + + ''' + NORM + End Enum + + ''' + _ + Partial Public Class ExchangeRateInformation1 + + Private xchgRateField As Decimal + + Private xchgRateFieldSpecified As Boolean + + Private rateTpField As ExchangeRateType1Code + + Private rateTpFieldSpecified As Boolean + + Private ctrctIdField As String + + ''' + Public Property XchgRate() As Decimal + Get + Return Me.xchgRateField + End Get + Set(value As Decimal) + Me.xchgRateField = value + End Set + End Property + + ''' + _ + Public Property XchgRateSpecified() As Boolean + Get + Return Me.xchgRateFieldSpecified + End Get + Set(value As Boolean) + Me.xchgRateFieldSpecified = value + End Set + End Property + + ''' + Public Property RateTp() As ExchangeRateType1Code + Get + Return Me.rateTpField + End Get + Set(value As ExchangeRateType1Code) + Me.rateTpField = value + End Set + End Property + + ''' + _ + Public Property RateTpSpecified() As Boolean + Get + Return Me.rateTpFieldSpecified + End Get + Set(value As Boolean) + Me.rateTpFieldSpecified = value + End Set + End Property + + ''' + Public Property CtrctId() As String + Get + Return Me.ctrctIdField + End Get + Set(value As String) + Me.ctrctIdField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ExchangeRateType1Code + + ''' + SPOT + + ''' + SALE + + ''' + AGRD + End Enum + + ''' + _ + Partial Public Class EquivalentAmount2 + + Private amtField As ActiveOrHistoricCurrencyAndAmount + + Private ccyOfTrfField As String + + ''' + Public Property Amt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.amtField + End Get + Set(value As ActiveOrHistoricCurrencyAndAmount) + Me.amtField = value + End Set + End Property + + ''' + Public Property CcyOfTrf() As String + Get + Return Me.ccyOfTrfField + End Get + Set(value As String) + Me.ccyOfTrfField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class AmountType3Choice + + Private itemField As Object + + ''' + _ + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set(value As Object) + Me.itemField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class PaymentIdentification1 + + Private instrIdField As String + + Private endToEndIdField As String + + ''' + Public Property InstrId() As String + Get + Return Me.instrIdField + End Get + Set(value As String) + Me.instrIdField = value + End Set + End Property + + ''' + Public Property EndToEndId() As String + Get + Return Me.endToEndIdField + End Get + Set(value As String) + Me.endToEndIdField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class CreditTransferTransactionInformation10 + + Private pmtIdField As PaymentIdentification1 + + Private pmtTpInfField As PaymentTypeInformation19 + + Private amtField As AmountType3Choice + + Private xchgRateInfField As ExchangeRateInformation1 + + Private chrgBrField As ChargeBearerType1Code + + Private chrgBrFieldSpecified As Boolean + + Private chqInstrField As Cheque6 + + Private ultmtDbtrField As PartyIdentification32 + + Private intrmyAgt1Field As BranchAndFinancialInstitutionIdentification4 + + Private intrmyAgt1AcctField As CashAccount16 + + Private intrmyAgt2Field As BranchAndFinancialInstitutionIdentification4 + + Private intrmyAgt2AcctField As CashAccount16 + + Private intrmyAgt3Field As BranchAndFinancialInstitutionIdentification4 + + Private intrmyAgt3AcctField As CashAccount16 + + Private cdtrAgtField As BranchAndFinancialInstitutionIdentification4 + + Private cdtrAgtAcctField As CashAccount16 + + Private cdtrField As PartyIdentification32 + + Private cdtrAcctField As CashAccount16 + + Private ultmtCdtrField As PartyIdentification32 + + Private instrForCdtrAgtField() As InstructionForCreditorAgent1 + + Private instrForDbtrAgtField As String + + Private purpField As Purpose2Choice + + Private rgltryRptgField() As RegulatoryReporting3 + + Private taxField As TaxInformation3 + + Private rltdRmtInfField() As RemittanceLocation2 + + Private rmtInfField As RemittanceInformation5 + + ''' + Public Property PmtId() As PaymentIdentification1 + Get + Return Me.pmtIdField + End Get + Set(value As PaymentIdentification1) + Me.pmtIdField = value + End Set + End Property + + ''' + Public Property PmtTpInf() As PaymentTypeInformation19 + Get + Return Me.pmtTpInfField + End Get + Set(value As PaymentTypeInformation19) + Me.pmtTpInfField = value + End Set + End Property + + ''' + Public Property Amt() As AmountType3Choice + Get + Return Me.amtField + End Get + Set(value As AmountType3Choice) + Me.amtField = value + End Set + End Property + + ''' + Public Property XchgRateInf() As ExchangeRateInformation1 + Get + Return Me.xchgRateInfField + End Get + Set(value As ExchangeRateInformation1) + Me.xchgRateInfField = value + End Set + End Property + + ''' + Public Property ChrgBr() As ChargeBearerType1Code + Get + Return Me.chrgBrField + End Get + Set(value As ChargeBearerType1Code) + Me.chrgBrField = value + End Set + End Property + + ''' + _ + Public Property ChrgBrSpecified() As Boolean + Get + Return Me.chrgBrFieldSpecified + End Get + Set(value As Boolean) + Me.chrgBrFieldSpecified = value + End Set + End Property + + ''' + Public Property ChqInstr() As Cheque6 + Get + Return Me.chqInstrField + End Get + Set(value As Cheque6) + Me.chqInstrField = value + End Set + End Property + + ''' + Public Property UltmtDbtr() As PartyIdentification32 + Get + Return Me.ultmtDbtrField + End Get + Set(value As PartyIdentification32) + Me.ultmtDbtrField = value + End Set + End Property + + ''' + Public Property IntrmyAgt1() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.intrmyAgt1Field + End Get + Set(value As BranchAndFinancialInstitutionIdentification4) + Me.intrmyAgt1Field = value + End Set + End Property + + ''' + Public Property IntrmyAgt1Acct() As CashAccount16 + Get + Return Me.intrmyAgt1AcctField + End Get + Set(value As CashAccount16) + Me.intrmyAgt1AcctField = value + End Set + End Property + + ''' + Public Property IntrmyAgt2() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.intrmyAgt2Field + End Get + Set(value As BranchAndFinancialInstitutionIdentification4) + Me.intrmyAgt2Field = value + End Set + End Property + + ''' + Public Property IntrmyAgt2Acct() As CashAccount16 + Get + Return Me.intrmyAgt2AcctField + End Get + Set(value As CashAccount16) + Me.intrmyAgt2AcctField = value + End Set + End Property + + ''' + Public Property IntrmyAgt3() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.intrmyAgt3Field + End Get + Set(value As BranchAndFinancialInstitutionIdentification4) + Me.intrmyAgt3Field = value + End Set + End Property + + ''' + Public Property IntrmyAgt3Acct() As CashAccount16 + Get + Return Me.intrmyAgt3AcctField + End Get + Set(value As CashAccount16) + Me.intrmyAgt3AcctField = value + End Set + End Property + + ''' + Public Property CdtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.cdtrAgtField + End Get + Set(value As BranchAndFinancialInstitutionIdentification4) + Me.cdtrAgtField = value + End Set + End Property + + ''' + Public Property CdtrAgtAcct() As CashAccount16 + Get + Return Me.cdtrAgtAcctField + End Get + Set(value As CashAccount16) + Me.cdtrAgtAcctField = value + End Set + End Property + + ''' + Public Property Cdtr() As PartyIdentification32 + Get + Return Me.cdtrField + End Get + Set(value As PartyIdentification32) + Me.cdtrField = value + End Set + End Property + + ''' + Public Property CdtrAcct() As CashAccount16 + Get + Return Me.cdtrAcctField + End Get + Set(value As CashAccount16) + Me.cdtrAcctField = value + End Set + End Property + + ''' + Public Property UltmtCdtr() As PartyIdentification32 + Get + Return Me.ultmtCdtrField + End Get + Set(value As PartyIdentification32) + Me.ultmtCdtrField = value + End Set + End Property + + ''' + _ + Public Property InstrForCdtrAgt() As InstructionForCreditorAgent1() + Get + Return Me.instrForCdtrAgtField + End Get + Set(value As InstructionForCreditorAgent1()) + Me.instrForCdtrAgtField = value + End Set + End Property + + ''' + Public Property InstrForDbtrAgt() As String + Get + Return Me.instrForDbtrAgtField + End Get + Set(value As String) + Me.instrForDbtrAgtField = value + End Set + End Property + + ''' + Public Property Purp() As Purpose2Choice + Get + Return Me.purpField + End Get + Set(value As Purpose2Choice) + Me.purpField = value + End Set + End Property + + ''' + _ + Public Property RgltryRptg() As RegulatoryReporting3() + Get + Return Me.rgltryRptgField + End Get + Set(value As RegulatoryReporting3()) + Me.rgltryRptgField = value + End Set + End Property + + ''' + Public Property Tax() As TaxInformation3 + Get + Return Me.taxField + End Get + Set(value As TaxInformation3) + Me.taxField = value + End Set + End Property + + ''' + _ + Public Property RltdRmtInf() As RemittanceLocation2() + Get + Return Me.rltdRmtInfField + End Get + Set(value As RemittanceLocation2()) + Me.rltdRmtInfField = value + End Set + End Property + + ''' + Public Property RmtInf() As RemittanceInformation5 + Get + Return Me.rmtInfField + End Get + Set(value As RemittanceInformation5) + Me.rmtInfField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class PaymentTypeInformation19 + + Private instrPrtyField As Priority2Code + + Private instrPrtyFieldSpecified As Boolean + + Private svcLvlField As ServiceLevel8Choice + + Private lclInstrmField As LocalInstrument2Choice + + Private ctgyPurpField As CategoryPurpose1Choice + + ''' + Public Property InstrPrty() As Priority2Code + Get + Return Me.instrPrtyField + End Get + Set(value As Priority2Code) + Me.instrPrtyField = value + End Set + End Property + + ''' + _ + Public Property InstrPrtySpecified() As Boolean + Get + Return Me.instrPrtyFieldSpecified + End Get + Set(value As Boolean) + Me.instrPrtyFieldSpecified = value + End Set + End Property + + ''' + Public Property SvcLvl() As ServiceLevel8Choice + Get + Return Me.svcLvlField + End Get + Set(value As ServiceLevel8Choice) + Me.svcLvlField = value + End Set + End Property + + ''' + Public Property LclInstrm() As LocalInstrument2Choice + Get + Return Me.lclInstrmField + End Get + Set(value As LocalInstrument2Choice) + Me.lclInstrmField = value + End Set + End Property + + ''' + Public Property CtgyPurp() As CategoryPurpose1Choice + Get + Return Me.ctgyPurpField + End Get + Set(value As CategoryPurpose1Choice) + Me.ctgyPurpField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class ServiceLevel8Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType4 + + ''' + _ + Public Property Item() As String + Get + Return Me.itemField + End Get + Set(value As String) + Me.itemField = value + End Set + End Property + + ''' + _ + Public Property ItemElementName() As ItemChoiceType4 + Get + Return Me.itemElementNameField + End Get + Set(value As ItemChoiceType4) + Me.itemElementNameField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ItemChoiceType4 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + _ + Partial Public Class LocalInstrument2Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType5 + + ''' + _ + Public Property Item() As String + Get + Return Me.itemField + End Get + Set(value As String) + Me.itemField = value + End Set + End Property + + ''' + _ + Public Property ItemElementName() As ItemChoiceType5 + Get + Return Me.itemElementNameField + End Get + Set(value As ItemChoiceType5) + Me.itemElementNameField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ItemChoiceType5 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + _ + Partial Public Class CategoryPurpose1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType6 + + ''' + _ + Public Property Item() As String + Get + Return Me.itemField + End Get + Set(value As String) + Me.itemField = value + End Set + End Property + + ''' + _ + Public Property ItemElementName() As ItemChoiceType6 + Get + Return Me.itemElementNameField + End Get + Set(value As ItemChoiceType6) + Me.itemElementNameField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ItemChoiceType6 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + _ + Public Enum ChargeBearerType1Code + + ''' + DEBT + + ''' + CRED + + ''' + SHAR + + ''' + SLEV + End Enum + + ''' + _ + Partial Public Class BranchAndFinancialInstitutionIdentification4 + + Private finInstnIdField As FinancialInstitutionIdentification7 + + Private brnchIdField As BranchData2 + + ''' + Public Property FinInstnId() As FinancialInstitutionIdentification7 + Get + Return Me.finInstnIdField + End Get + Set(value As FinancialInstitutionIdentification7) + Me.finInstnIdField = value + End Set + End Property + + ''' + Public Property BrnchId() As BranchData2 + Get + Return Me.brnchIdField + End Get + Set(value As BranchData2) + Me.brnchIdField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FinancialInstitutionIdentification7 + + Private bICField As String + + Private clrSysMmbIdField As ClearingSystemMemberIdentification2 + + Private nmField As String + + Private pstlAdrField As PostalAddress6 + + Private othrField As GenericFinancialIdentification1 + + ''' + Public Property BIC() As String + Get + Return Me.bICField + End Get + Set(value As String) + Me.bICField = value + End Set + End Property + + ''' + Public Property ClrSysMmbId() As ClearingSystemMemberIdentification2 + Get + Return Me.clrSysMmbIdField + End Get + Set(value As ClearingSystemMemberIdentification2) + Me.clrSysMmbIdField = value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set(value As String) + Me.nmField = value + End Set + End Property + + ''' + Public Property PstlAdr() As PostalAddress6 + Get + Return Me.pstlAdrField + End Get + Set(value As PostalAddress6) + Me.pstlAdrField = value + End Set + End Property + + ''' + Public Property Othr() As GenericFinancialIdentification1 + Get + Return Me.othrField + End Get + Set(value As GenericFinancialIdentification1) + Me.othrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class ClearingSystemMemberIdentification2 + + Private clrSysIdField As ClearingSystemIdentification2Choice + + Private mmbIdField As String + + ''' + Public Property ClrSysId() As ClearingSystemIdentification2Choice + Get + Return Me.clrSysIdField + End Get + Set(value As ClearingSystemIdentification2Choice) + Me.clrSysIdField = value + End Set + End Property + + ''' + Public Property MmbId() As String + Get + Return Me.mmbIdField + End Get + Set(value As String) + Me.mmbIdField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class ClearingSystemIdentification2Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType2 + + ''' + _ + Public Property Item() As String + Get + Return Me.itemField + End Get + Set(value As String) + Me.itemField = value + End Set + End Property + + ''' + _ + Public Property ItemElementName() As ItemChoiceType2 + Get + Return Me.itemElementNameField + End Get + Set(value As ItemChoiceType2) + Me.itemElementNameField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ItemChoiceType2 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + _ + Partial Public Class GenericFinancialIdentification1 + + Private idField As String + + Private schmeNmField As FinancialIdentificationSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set(value As String) + Me.idField = value + End Set + End Property + + ''' + Public Property SchmeNm() As FinancialIdentificationSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set(value As FinancialIdentificationSchemeName1Choice) + Me.schmeNmField = value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set(value As String) + Me.issrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class FinancialIdentificationSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType3 + + ''' + _ + Public Property Item() As String + Get + Return Me.itemField + End Get + Set(value As String) + Me.itemField = value + End Set + End Property + + ''' + _ + Public Property ItemElementName() As ItemChoiceType3 + Get + Return Me.itemElementNameField + End Get + Set(value As ItemChoiceType3) + Me.itemElementNameField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ItemChoiceType3 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + _ + Partial Public Class BranchData2 + + Private idField As String + + Private nmField As String + + Private pstlAdrField As PostalAddress6 + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set(value As String) + Me.idField = value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set(value As String) + Me.nmField = value + End Set + End Property + + ''' + Public Property PstlAdr() As PostalAddress6 + Get + Return Me.pstlAdrField + End Get + Set(value As PostalAddress6) + Me.pstlAdrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class CashAccount16 + + Private idField As AccountIdentification4Choice + + Private tpField As CashAccountType2 + + Private ccyField As String + + Private nmField As String + + ''' + Public Property Id() As AccountIdentification4Choice + Get + Return Me.idField + End Get + Set(value As AccountIdentification4Choice) + Me.idField = value + End Set + End Property + + ''' + Public Property Tp() As CashAccountType2 + Get + Return Me.tpField + End Get + Set(value As CashAccountType2) + Me.tpField = value + End Set + End Property + + ''' + Public Property Ccy() As String + Get + Return Me.ccyField + End Get + Set(value As String) + Me.ccyField = value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set(value As String) + Me.nmField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class AccountIdentification4Choice + + Private itemField As Object + + ''' + _ + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set(value As Object) + Me.itemField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class GenericAccountIdentification1 + + Private idField As String + + Private schmeNmField As AccountSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set(value As String) + Me.idField = value + End Set + End Property + + ''' + Public Property SchmeNm() As AccountSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set(value As AccountSchemeName1Choice) + Me.schmeNmField = value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set(value As String) + Me.issrField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class AccountSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType7 + + ''' + _ + Public Property Item() As String + Get + Return Me.itemField + End Get + Set(value As String) + Me.itemField = value + End Set + End Property + + ''' + _ + Public Property ItemElementName() As ItemChoiceType7 + Get + Return Me.itemElementNameField + End Get + Set(value As ItemChoiceType7) + Me.itemElementNameField = value + End Set + End Property + End Class + + ''' + _ + Public Enum ItemChoiceType7 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + _ + Partial Public Class CashAccountType2 + + Private itemField As Object + + ''' + _ + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set(value As Object) + Me.itemField = value + End Set + End Property + End Class + + ''' + _ + Public Enum CashAccountType4Code + + ''' + CASH + + ''' + [CHAR] + + ''' + COMM + + ''' + TAXE + + ''' + CISH + + ''' + TRAS + + ''' + SACC + + ''' + CACC + + ''' + SVGS + + ''' + ONDP + + ''' + MGLD + + ''' + NREX + + ''' + MOMA + + ''' + LOAN + + ''' + SLRY + + ''' + ODFT + End Enum + + ''' + _ + Partial Public Class PaymentInstructionInformation3 + + Private pmtInfIdField As String + + Private pmtMtdField As PaymentMethod3Code + + Private btchBookgField As Boolean + + Private btchBookgFieldSpecified As Boolean + + Private nbOfTxsField As String + + Private ctrlSumField As Decimal + + Private ctrlSumFieldSpecified As Boolean + + Private pmtTpInfField As PaymentTypeInformation19 + + Private reqdExctnDtField As Date + + Private poolgAdjstmntDtField As Date + + Private poolgAdjstmntDtFieldSpecified As Boolean + + Private dbtrField As PartyIdentification32 + + Private dbtrAcctField As CashAccount16 + + Private dbtrAgtField As BranchAndFinancialInstitutionIdentification4 + + Private dbtrAgtAcctField As CashAccount16 + + Private ultmtDbtrField As PartyIdentification32 + + Private chrgBrField As ChargeBearerType1Code + + Private chrgBrFieldSpecified As Boolean + + Private chrgsAcctField As CashAccount16 + + Private chrgsAcctAgtField As BranchAndFinancialInstitutionIdentification4 + + Private cdtTrfTxInfField() As CreditTransferTransactionInformation10 + + ''' + Public Property PmtInfId() As String + Get + Return Me.pmtInfIdField + End Get + Set(value As String) + Me.pmtInfIdField = value + End Set + End Property + + ''' + Public Property PmtMtd() As PaymentMethod3Code + Get + Return Me.pmtMtdField + End Get + Set(value As PaymentMethod3Code) + Me.pmtMtdField = value + End Set + End Property + + ''' + Public Property BtchBookg() As Boolean + Get + Return Me.btchBookgField + End Get + Set(value As Boolean) + Me.btchBookgField = value + End Set + End Property + + ''' + _ + Public Property BtchBookgSpecified() As Boolean + Get + Return Me.btchBookgFieldSpecified + End Get + Set(value As Boolean) + Me.btchBookgFieldSpecified = value + End Set + End Property + + ''' + Public Property NbOfTxs() As String + Get + Return Me.nbOfTxsField + End Get + Set(value As String) + Me.nbOfTxsField = value + End Set + End Property + + ''' + Public Property CtrlSum() As Decimal + Get + Return Me.ctrlSumField + End Get + Set(value As Decimal) + Me.ctrlSumField = value + End Set + End Property + + ''' + _ + Public Property CtrlSumSpecified() As Boolean + Get + Return Me.ctrlSumFieldSpecified + End Get + Set(value As Boolean) + Me.ctrlSumFieldSpecified = value + End Set + End Property + + ''' + Public Property PmtTpInf() As PaymentTypeInformation19 + Get + Return Me.pmtTpInfField + End Get + Set(value As PaymentTypeInformation19) + Me.pmtTpInfField = value + End Set + End Property + + ''' + _ + Public Property ReqdExctnDt() As Date + Get + Return Me.reqdExctnDtField + End Get + Set(value As Date) + Me.reqdExctnDtField = value + End Set + End Property + + ''' + _ + Public Property PoolgAdjstmntDt() As Date + Get + Return Me.poolgAdjstmntDtField + End Get + Set(value As Date) + Me.poolgAdjstmntDtField = value + End Set + End Property + + ''' + _ + Public Property PoolgAdjstmntDtSpecified() As Boolean + Get + Return Me.poolgAdjstmntDtFieldSpecified + End Get + Set(value As Boolean) + Me.poolgAdjstmntDtFieldSpecified = value + End Set + End Property + + ''' + Public Property Dbtr() As PartyIdentification32 + Get + Return Me.dbtrField + End Get + Set(value As PartyIdentification32) + Me.dbtrField = value + End Set + End Property + + ''' + Public Property DbtrAcct() As CashAccount16 + Get + Return Me.dbtrAcctField + End Get + Set(value As CashAccount16) + Me.dbtrAcctField = value + End Set + End Property + + ''' + Public Property DbtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.dbtrAgtField + End Get + Set(value As BranchAndFinancialInstitutionIdentification4) + Me.dbtrAgtField = value + End Set + End Property + + ''' + Public Property DbtrAgtAcct() As CashAccount16 + Get + Return Me.dbtrAgtAcctField + End Get + Set(value As CashAccount16) + Me.dbtrAgtAcctField = value + End Set + End Property + + ''' + Public Property UltmtDbtr() As PartyIdentification32 + Get + Return Me.ultmtDbtrField + End Get + Set(value As PartyIdentification32) + Me.ultmtDbtrField = value + End Set + End Property + + ''' + Public Property ChrgBr() As ChargeBearerType1Code + Get + Return Me.chrgBrField + End Get + Set(value As ChargeBearerType1Code) + Me.chrgBrField = value + End Set + End Property + + ''' + _ + Public Property ChrgBrSpecified() As Boolean + Get + Return Me.chrgBrFieldSpecified + End Get + Set(value As Boolean) + Me.chrgBrFieldSpecified = value + End Set + End Property + + ''' + Public Property ChrgsAcct() As CashAccount16 + Get + Return Me.chrgsAcctField + End Get + Set(value As CashAccount16) + Me.chrgsAcctField = value + End Set + End Property + + ''' + Public Property ChrgsAcctAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.chrgsAcctAgtField + End Get + Set(value As BranchAndFinancialInstitutionIdentification4) + Me.chrgsAcctAgtField = value + End Set + End Property + + ''' + _ + Public Property CdtTrfTxInf() As CreditTransferTransactionInformation10() + Get + Return Me.cdtTrfTxInfField + End Get + Set(value As CreditTransferTransactionInformation10()) + Me.cdtTrfTxInfField = value + End Set + End Property + End Class + + ''' + _ + Public Enum PaymentMethod3Code + + ''' + CHK + + ''' + TRF + + ''' + TRA + End Enum +End Namespace \ No newline at end of file diff --git a/Bancos/pain_002_001_03.vb b/Bancos/pain_002_001_03.vb new file mode 100644 index 0000000..c65f7ae --- /dev/null +++ b/Bancos/pain_002_001_03.vb @@ -0,0 +1,3979 @@ +'------------------------------------------------------------------------------ +' +' Este código fue generado por una herramienta. +' Versión de runtime:4.0.30319.42000 +' +' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si +' se vuelve a generar el código. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System.Xml.Serialization + +' +'This source code was auto-generated by xsd, Version=4.6.81.0. +' +Namespace Devoluciones + ''' + + Partial Public Class Document + + Private cstmrPmtStsRptField As CustomerPaymentStatusReportV03 + + ''' + Public Property CstmrPmtStsRpt() As CustomerPaymentStatusReportV03 + Get + Return Me.cstmrPmtStsRptField + End Get + Set + Me.cstmrPmtStsRptField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class CustomerPaymentStatusReportV03 + + Private grpHdrField As GroupHeader36 + + Private orgnlGrpInfAndStsField As OriginalGroupInformation20 + + Private orgnlPmtInfAndStsField() As OriginalPaymentInformation1 + + ''' + Public Property GrpHdr() As GroupHeader36 + Get + Return Me.grpHdrField + End Get + Set + Me.grpHdrField = Value + End Set + End Property + + ''' + Public Property OrgnlGrpInfAndSts() As OriginalGroupInformation20 + Get + Return Me.orgnlGrpInfAndStsField + End Get + Set + Me.orgnlGrpInfAndStsField = Value + End Set + End Property + + ''' + + Public Property OrgnlPmtInfAndSts() As OriginalPaymentInformation1() + Get + Return Me.orgnlPmtInfAndStsField + End Get + Set + Me.orgnlPmtInfAndStsField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class GroupHeader36 + + Private msgIdField As String + + Private creDtTmField As Date + + Private initgPtyField As PartyIdentification32 + + Private fwdgAgtField As BranchAndFinancialInstitutionIdentification4 + + Private dbtrAgtField As BranchAndFinancialInstitutionIdentification4 + + Private cdtrAgtField As BranchAndFinancialInstitutionIdentification4 + + ''' + Public Property MsgId() As String + Get + Return Me.msgIdField + End Get + Set + Me.msgIdField = Value + End Set + End Property + + ''' + Public Property CreDtTm() As Date + Get + Return Me.creDtTmField + End Get + Set + Me.creDtTmField = Value + End Set + End Property + + ''' + Public Property InitgPty() As PartyIdentification32 + Get + Return Me.initgPtyField + End Get + Set + Me.initgPtyField = Value + End Set + End Property + + ''' + Public Property FwdgAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.fwdgAgtField + End Get + Set + Me.fwdgAgtField = Value + End Set + End Property + + ''' + Public Property DbtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.dbtrAgtField + End Get + Set + Me.dbtrAgtField = Value + End Set + End Property + + ''' + Public Property CdtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.cdtrAgtField + End Get + Set + Me.cdtrAgtField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class PartyIdentification32 + + Private nmField As String + + Private pstlAdrField As PostalAddress6 + + Private idField As Party6Choice + + Private ctryOfResField As String + + Private ctctDtlsField As ContactDetails2 + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + + ''' + Public Property PstlAdr() As PostalAddress6 + Get + Return Me.pstlAdrField + End Get + Set + Me.pstlAdrField = Value + End Set + End Property + + ''' + Public Property Id() As Party6Choice + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property CtryOfRes() As String + Get + Return Me.ctryOfResField + End Get + Set + Me.ctryOfResField = Value + End Set + End Property + + ''' + Public Property CtctDtls() As ContactDetails2 + Get + Return Me.ctctDtlsField + End Get + Set + Me.ctctDtlsField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class PostalAddress6 + + Private adrTpField As AddressType2Code + + Private adrTpFieldSpecified As Boolean + + Private deptField As String + + Private subDeptField As String + + Private strtNmField As String + + Private bldgNbField As String + + Private pstCdField As String + + Private twnNmField As String + + Private ctrySubDvsnField As String + + Private ctryField As String + + Private adrLineField() As String + + ''' + Public Property AdrTp() As AddressType2Code + Get + Return Me.adrTpField + End Get + Set + Me.adrTpField = Value + End Set + End Property + + ''' + + Public Property AdrTpSpecified() As Boolean + Get + Return Me.adrTpFieldSpecified + End Get + Set + Me.adrTpFieldSpecified = Value + End Set + End Property + + ''' + Public Property Dept() As String + Get + Return Me.deptField + End Get + Set + Me.deptField = Value + End Set + End Property + + ''' + Public Property SubDept() As String + Get + Return Me.subDeptField + End Get + Set + Me.subDeptField = Value + End Set + End Property + + ''' + Public Property StrtNm() As String + Get + Return Me.strtNmField + End Get + Set + Me.strtNmField = Value + End Set + End Property + + ''' + Public Property BldgNb() As String + Get + Return Me.bldgNbField + End Get + Set + Me.bldgNbField = Value + End Set + End Property + + ''' + Public Property PstCd() As String + Get + Return Me.pstCdField + End Get + Set + Me.pstCdField = Value + End Set + End Property + + ''' + Public Property TwnNm() As String + Get + Return Me.twnNmField + End Get + Set + Me.twnNmField = Value + End Set + End Property + + ''' + Public Property CtrySubDvsn() As String + Get + Return Me.ctrySubDvsnField + End Get + Set + Me.ctrySubDvsnField = Value + End Set + End Property + + ''' + Public Property Ctry() As String + Get + Return Me.ctryField + End Get + Set + Me.ctryField = Value + End Set + End Property + + ''' + + Public Property AdrLine() As String() + Get + Return Me.adrLineField + End Get + Set + Me.adrLineField = Value + End Set + End Property + End Class + + ''' + + Public Enum AddressType2Code + + ''' + ADDR + + ''' + PBOX + + ''' + HOME + + ''' + BIZZ + + ''' + MLTO + + ''' + DLVY + End Enum + + ''' + + Partial Public Class CreditorReferenceType1Choice + + Private itemField As Object + + ''' + + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + End Class + + ''' + + Public Enum DocumentType3Code + + ''' + RADM + + ''' + RPIN + + ''' + FXDR + + ''' + DISP + + ''' + PUOR + + ''' + SCOR + End Enum + + ''' + + Partial Public Class CreditorReferenceType2 + + Private cdOrPrtryField As CreditorReferenceType1Choice + + Private issrField As String + + ''' + Public Property CdOrPrtry() As CreditorReferenceType1Choice + Get + Return Me.cdOrPrtryField + End Get + Set + Me.cdOrPrtryField = Value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set + Me.issrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class CreditorReferenceInformation2 + + Private tpField As CreditorReferenceType2 + + Private refField As String + + ''' + Public Property Tp() As CreditorReferenceType2 + Get + Return Me.tpField + End Get + Set + Me.tpField = Value + End Set + End Property + + ''' + Public Property Ref() As String + Get + Return Me.refField + End Get + Set + Me.refField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class DocumentAdjustment1 + + Private amtField As ActiveOrHistoricCurrencyAndAmount + + Private cdtDbtIndField As CreditDebitCode + + Private cdtDbtIndFieldSpecified As Boolean + + Private rsnField As String + + Private addtlInfField As String + + ''' + Public Property Amt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.amtField + End Get + Set + Me.amtField = Value + End Set + End Property + + ''' + Public Property CdtDbtInd() As CreditDebitCode + Get + Return Me.cdtDbtIndField + End Get + Set + Me.cdtDbtIndField = Value + End Set + End Property + + ''' + + Public Property CdtDbtIndSpecified() As Boolean + Get + Return Me.cdtDbtIndFieldSpecified + End Get + Set + Me.cdtDbtIndFieldSpecified = Value + End Set + End Property + + ''' + Public Property Rsn() As String + Get + Return Me.rsnField + End Get + Set + Me.rsnField = Value + End Set + End Property + + ''' + Public Property AddtlInf() As String + Get + Return Me.addtlInfField + End Get + Set + Me.addtlInfField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class ActiveOrHistoricCurrencyAndAmount + + Private ccyField As String + + Private valueField As Decimal + + ''' + + Public Property Ccy() As String + Get + Return Me.ccyField + End Get + Set + Me.ccyField = Value + End Set + End Property + + ''' + + Public Property Value() As Decimal + Get + Return Me.valueField + End Get + Set + Me.valueField = Value + End Set + End Property + End Class + + ''' + + Public Enum CreditDebitCode + + ''' + CRDT + + ''' + DBIT + End Enum + + ''' + + Partial Public Class RemittanceAmount1 + + Private duePyblAmtField As ActiveOrHistoricCurrencyAndAmount + + Private dscntApldAmtField As ActiveOrHistoricCurrencyAndAmount + + Private cdtNoteAmtField As ActiveOrHistoricCurrencyAndAmount + + Private taxAmtField As ActiveOrHistoricCurrencyAndAmount + + Private adjstmntAmtAndRsnField() As DocumentAdjustment1 + + Private rmtdAmtField As ActiveOrHistoricCurrencyAndAmount + + ''' + Public Property DuePyblAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.duePyblAmtField + End Get + Set + Me.duePyblAmtField = Value + End Set + End Property + + ''' + Public Property DscntApldAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.dscntApldAmtField + End Get + Set + Me.dscntApldAmtField = Value + End Set + End Property + + ''' + Public Property CdtNoteAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.cdtNoteAmtField + End Get + Set + Me.cdtNoteAmtField = Value + End Set + End Property + + ''' + Public Property TaxAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.taxAmtField + End Get + Set + Me.taxAmtField = Value + End Set + End Property + + ''' + + Public Property AdjstmntAmtAndRsn() As DocumentAdjustment1() + Get + Return Me.adjstmntAmtAndRsnField + End Get + Set + Me.adjstmntAmtAndRsnField = Value + End Set + End Property + + ''' + Public Property RmtdAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.rmtdAmtField + End Get + Set + Me.rmtdAmtField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class ReferredDocumentType1Choice + + Private itemField As Object + + ''' + + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + End Class + + ''' + + Public Enum DocumentType5Code + + ''' + MSIN + + ''' + CNFA + + ''' + DNFA + + ''' + CINV + + ''' + CREN + + ''' + DEBN + + ''' + HIRI + + ''' + SBIN + + ''' + CMCN + + ''' + SOAC + + ''' + DISP + + ''' + BOLD + + ''' + VCHR + + ''' + AROI + + ''' + TSUT + End Enum + + ''' + + Partial Public Class ReferredDocumentType2 + + Private cdOrPrtryField As ReferredDocumentType1Choice + + Private issrField As String + + ''' + Public Property CdOrPrtry() As ReferredDocumentType1Choice + Get + Return Me.cdOrPrtryField + End Get + Set + Me.cdOrPrtryField = Value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set + Me.issrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class ReferredDocumentInformation3 + + Private tpField As ReferredDocumentType2 + + Private nbField As String + + Private rltdDtField As Date + + Private rltdDtFieldSpecified As Boolean + + ''' + Public Property Tp() As ReferredDocumentType2 + Get + Return Me.tpField + End Get + Set + Me.tpField = Value + End Set + End Property + + ''' + Public Property Nb() As String + Get + Return Me.nbField + End Get + Set + Me.nbField = Value + End Set + End Property + + ''' + + Public Property RltdDt() As Date + Get + Return Me.rltdDtField + End Get + Set + Me.rltdDtField = Value + End Set + End Property + + ''' + + Public Property RltdDtSpecified() As Boolean + Get + Return Me.rltdDtFieldSpecified + End Get + Set + Me.rltdDtFieldSpecified = Value + End Set + End Property + End Class + + ''' + + Partial Public Class StructuredRemittanceInformation7 + + Private rfrdDocInfField() As ReferredDocumentInformation3 + + Private rfrdDocAmtField As RemittanceAmount1 + + Private cdtrRefInfField As CreditorReferenceInformation2 + + Private invcrField As PartyIdentification32 + + Private invceeField As PartyIdentification32 + + Private addtlRmtInfField() As String + + ''' + + Public Property RfrdDocInf() As ReferredDocumentInformation3() + Get + Return Me.rfrdDocInfField + End Get + Set + Me.rfrdDocInfField = Value + End Set + End Property + + ''' + Public Property RfrdDocAmt() As RemittanceAmount1 + Get + Return Me.rfrdDocAmtField + End Get + Set + Me.rfrdDocAmtField = Value + End Set + End Property + + ''' + Public Property CdtrRefInf() As CreditorReferenceInformation2 + Get + Return Me.cdtrRefInfField + End Get + Set + Me.cdtrRefInfField = Value + End Set + End Property + + ''' + Public Property Invcr() As PartyIdentification32 + Get + Return Me.invcrField + End Get + Set + Me.invcrField = Value + End Set + End Property + + ''' + Public Property Invcee() As PartyIdentification32 + Get + Return Me.invceeField + End Get + Set + Me.invceeField = Value + End Set + End Property + + ''' + + Public Property AddtlRmtInf() As String() + Get + Return Me.addtlRmtInfField + End Get + Set + Me.addtlRmtInfField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class RemittanceInformation5 + + Private ustrdField() As String + + Private strdField() As StructuredRemittanceInformation7 + + ''' + + Public Property Ustrd() As String() + Get + Return Me.ustrdField + End Get + Set + Me.ustrdField = Value + End Set + End Property + + ''' + + Public Property Strd() As StructuredRemittanceInformation7() + Get + Return Me.strdField + End Get + Set + Me.strdField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class AmendmentInformationDetails6 + + Private orgnlMndtIdField As String + + Private orgnlCdtrSchmeIdField As PartyIdentification32 + + Private orgnlCdtrAgtField As BranchAndFinancialInstitutionIdentification4 + + Private orgnlCdtrAgtAcctField As CashAccount16 + + Private orgnlDbtrField As PartyIdentification32 + + Private orgnlDbtrAcctField As CashAccount16 + + Private orgnlDbtrAgtField As BranchAndFinancialInstitutionIdentification4 + + Private orgnlDbtrAgtAcctField As CashAccount16 + + Private orgnlFnlColltnDtField As Date + + Private orgnlFnlColltnDtFieldSpecified As Boolean + + Private orgnlFrqcyField As Frequency1Code + + Private orgnlFrqcyFieldSpecified As Boolean + + ''' + Public Property OrgnlMndtId() As String + Get + Return Me.orgnlMndtIdField + End Get + Set + Me.orgnlMndtIdField = Value + End Set + End Property + + ''' + Public Property OrgnlCdtrSchmeId() As PartyIdentification32 + Get + Return Me.orgnlCdtrSchmeIdField + End Get + Set + Me.orgnlCdtrSchmeIdField = Value + End Set + End Property + + ''' + Public Property OrgnlCdtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.orgnlCdtrAgtField + End Get + Set + Me.orgnlCdtrAgtField = Value + End Set + End Property + + ''' + Public Property OrgnlCdtrAgtAcct() As CashAccount16 + Get + Return Me.orgnlCdtrAgtAcctField + End Get + Set + Me.orgnlCdtrAgtAcctField = Value + End Set + End Property + + ''' + Public Property OrgnlDbtr() As PartyIdentification32 + Get + Return Me.orgnlDbtrField + End Get + Set + Me.orgnlDbtrField = Value + End Set + End Property + + ''' + Public Property OrgnlDbtrAcct() As CashAccount16 + Get + Return Me.orgnlDbtrAcctField + End Get + Set + Me.orgnlDbtrAcctField = Value + End Set + End Property + + ''' + Public Property OrgnlDbtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.orgnlDbtrAgtField + End Get + Set + Me.orgnlDbtrAgtField = Value + End Set + End Property + + ''' + Public Property OrgnlDbtrAgtAcct() As CashAccount16 + Get + Return Me.orgnlDbtrAgtAcctField + End Get + Set + Me.orgnlDbtrAgtAcctField = Value + End Set + End Property + + ''' + + Public Property OrgnlFnlColltnDt() As Date + Get + Return Me.orgnlFnlColltnDtField + End Get + Set + Me.orgnlFnlColltnDtField = Value + End Set + End Property + + ''' + + Public Property OrgnlFnlColltnDtSpecified() As Boolean + Get + Return Me.orgnlFnlColltnDtFieldSpecified + End Get + Set + Me.orgnlFnlColltnDtFieldSpecified = Value + End Set + End Property + + ''' + Public Property OrgnlFrqcy() As Frequency1Code + Get + Return Me.orgnlFrqcyField + End Get + Set + Me.orgnlFrqcyField = Value + End Set + End Property + + ''' + + Public Property OrgnlFrqcySpecified() As Boolean + Get + Return Me.orgnlFrqcyFieldSpecified + End Get + Set + Me.orgnlFrqcyFieldSpecified = Value + End Set + End Property + End Class + + ''' + + Partial Public Class BranchAndFinancialInstitutionIdentification4 + + Private finInstnIdField As FinancialInstitutionIdentification7 + + Private brnchIdField As BranchData2 + + ''' + Public Property FinInstnId() As FinancialInstitutionIdentification7 + Get + Return Me.finInstnIdField + End Get + Set + Me.finInstnIdField = Value + End Set + End Property + + ''' + Public Property BrnchId() As BranchData2 + Get + Return Me.brnchIdField + End Get + Set + Me.brnchIdField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class FinancialInstitutionIdentification7 + + Private bICField As String + + Private clrSysMmbIdField As ClearingSystemMemberIdentification2 + + Private nmField As String + + Private pstlAdrField As PostalAddress6 + + Private othrField As GenericFinancialIdentification1 + + ''' + Public Property BIC() As String + Get + Return Me.bICField + End Get + Set + Me.bICField = Value + End Set + End Property + + ''' + Public Property ClrSysMmbId() As ClearingSystemMemberIdentification2 + Get + Return Me.clrSysMmbIdField + End Get + Set + Me.clrSysMmbIdField = Value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + + ''' + Public Property PstlAdr() As PostalAddress6 + Get + Return Me.pstlAdrField + End Get + Set + Me.pstlAdrField = Value + End Set + End Property + + ''' + Public Property Othr() As GenericFinancialIdentification1 + Get + Return Me.othrField + End Get + Set + Me.othrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class ClearingSystemMemberIdentification2 + + Private clrSysIdField As ClearingSystemIdentification2Choice + + Private mmbIdField As String + + ''' + Public Property ClrSysId() As ClearingSystemIdentification2Choice + Get + Return Me.clrSysIdField + End Get + Set + Me.clrSysIdField = Value + End Set + End Property + + ''' + Public Property MmbId() As String + Get + Return Me.mmbIdField + End Get + Set + Me.mmbIdField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class ClearingSystemIdentification2Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType2 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType2 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType2 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class GenericFinancialIdentification1 + + Private idField As String + + Private schmeNmField As FinancialIdentificationSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property SchmeNm() As FinancialIdentificationSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set + Me.schmeNmField = Value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set + Me.issrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class FinancialIdentificationSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType3 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType3 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType3 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class BranchData2 + + Private idField As String + + Private nmField As String + + Private pstlAdrField As PostalAddress6 + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + + ''' + Public Property PstlAdr() As PostalAddress6 + Get + Return Me.pstlAdrField + End Get + Set + Me.pstlAdrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class CashAccount16 + + Private idField As AccountIdentification4Choice + + Private tpField As CashAccountType2 + + Private ccyField As String + + Private nmField As String + + ''' + Public Property Id() As AccountIdentification4Choice + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property Tp() As CashAccountType2 + Get + Return Me.tpField + End Get + Set + Me.tpField = Value + End Set + End Property + + ''' + Public Property Ccy() As String + Get + Return Me.ccyField + End Get + Set + Me.ccyField = Value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class AccountIdentification4Choice + + Private itemField As Object + + ''' + + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class GenericAccountIdentification1 + + Private idField As String + + Private schmeNmField As AccountSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property SchmeNm() As AccountSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set + Me.schmeNmField = Value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set + Me.issrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class AccountSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType5 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType5 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType5 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class CashAccountType2 + + Private itemField As Object + + ''' + + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + End Class + + ''' + + Public Enum CashAccountType4Code + + ''' + CASH + + ''' + [CHAR] + + ''' + COMM + + ''' + TAXE + + ''' + CISH + + ''' + TRAS + + ''' + SACC + + ''' + CACC + + ''' + SVGS + + ''' + ONDP + + ''' + MGLD + + ''' + NREX + + ''' + MOMA + + ''' + LOAN + + ''' + SLRY + + ''' + ODFT + End Enum + + ''' + + Public Enum Frequency1Code + + ''' + YEAR + + ''' + MNTH + + ''' + QURT + + ''' + MIAN + + ''' + WEEK + + ''' + DAIL + + ''' + ADHO + + ''' + INDA + End Enum + + ''' + + Partial Public Class MandateRelatedInformation6 + + Private mndtIdField As String + + Private dtOfSgntrField As Date + + Private dtOfSgntrFieldSpecified As Boolean + + Private amdmntIndField As Boolean + + Private amdmntIndFieldSpecified As Boolean + + Private amdmntInfDtlsField As AmendmentInformationDetails6 + + Private elctrncSgntrField As String + + Private frstColltnDtField As Date + + Private frstColltnDtFieldSpecified As Boolean + + Private fnlColltnDtField As Date + + Private fnlColltnDtFieldSpecified As Boolean + + Private frqcyField As Frequency1Code + + Private frqcyFieldSpecified As Boolean + + ''' + Public Property MndtId() As String + Get + Return Me.mndtIdField + End Get + Set + Me.mndtIdField = Value + End Set + End Property + + ''' + + Public Property DtOfSgntr() As Date + Get + Return Me.dtOfSgntrField + End Get + Set + Me.dtOfSgntrField = Value + End Set + End Property + + ''' + + Public Property DtOfSgntrSpecified() As Boolean + Get + Return Me.dtOfSgntrFieldSpecified + End Get + Set + Me.dtOfSgntrFieldSpecified = Value + End Set + End Property + + ''' + Public Property AmdmntInd() As Boolean + Get + Return Me.amdmntIndField + End Get + Set + Me.amdmntIndField = Value + End Set + End Property + + ''' + + Public Property AmdmntIndSpecified() As Boolean + Get + Return Me.amdmntIndFieldSpecified + End Get + Set + Me.amdmntIndFieldSpecified = Value + End Set + End Property + + ''' + Public Property AmdmntInfDtls() As AmendmentInformationDetails6 + Get + Return Me.amdmntInfDtlsField + End Get + Set + Me.amdmntInfDtlsField = Value + End Set + End Property + + ''' + Public Property ElctrncSgntr() As String + Get + Return Me.elctrncSgntrField + End Get + Set + Me.elctrncSgntrField = Value + End Set + End Property + + ''' + + Public Property FrstColltnDt() As Date + Get + Return Me.frstColltnDtField + End Get + Set + Me.frstColltnDtField = Value + End Set + End Property + + ''' + + Public Property FrstColltnDtSpecified() As Boolean + Get + Return Me.frstColltnDtFieldSpecified + End Get + Set + Me.frstColltnDtFieldSpecified = Value + End Set + End Property + + ''' + + Public Property FnlColltnDt() As Date + Get + Return Me.fnlColltnDtField + End Get + Set + Me.fnlColltnDtField = Value + End Set + End Property + + ''' + + Public Property FnlColltnDtSpecified() As Boolean + Get + Return Me.fnlColltnDtFieldSpecified + End Get + Set + Me.fnlColltnDtFieldSpecified = Value + End Set + End Property + + ''' + Public Property Frqcy() As Frequency1Code + Get + Return Me.frqcyField + End Get + Set + Me.frqcyField = Value + End Set + End Property + + ''' + + Public Property FrqcySpecified() As Boolean + Get + Return Me.frqcyFieldSpecified + End Get + Set + Me.frqcyFieldSpecified = Value + End Set + End Property + End Class + + ''' + + Partial Public Class CategoryPurpose1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType9 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType9 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType9 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class LocalInstrument2Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType8 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType8 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType8 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class ServiceLevel8Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType7 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType7 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType7 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class PaymentTypeInformation22 + + Private instrPrtyField As Priority2Code + + Private instrPrtyFieldSpecified As Boolean + + Private clrChanlField As ClearingChannel2Code + + Private clrChanlFieldSpecified As Boolean + + Private svcLvlField As ServiceLevel8Choice + + Private lclInstrmField As LocalInstrument2Choice + + Private seqTpField As SequenceType1Code + + Private seqTpFieldSpecified As Boolean + + Private ctgyPurpField As CategoryPurpose1Choice + + ''' + Public Property InstrPrty() As Priority2Code + Get + Return Me.instrPrtyField + End Get + Set + Me.instrPrtyField = Value + End Set + End Property + + ''' + + Public Property InstrPrtySpecified() As Boolean + Get + Return Me.instrPrtyFieldSpecified + End Get + Set + Me.instrPrtyFieldSpecified = Value + End Set + End Property + + ''' + Public Property ClrChanl() As ClearingChannel2Code + Get + Return Me.clrChanlField + End Get + Set + Me.clrChanlField = Value + End Set + End Property + + ''' + + Public Property ClrChanlSpecified() As Boolean + Get + Return Me.clrChanlFieldSpecified + End Get + Set + Me.clrChanlFieldSpecified = Value + End Set + End Property + + ''' + Public Property SvcLvl() As ServiceLevel8Choice + Get + Return Me.svcLvlField + End Get + Set + Me.svcLvlField = Value + End Set + End Property + + ''' + Public Property LclInstrm() As LocalInstrument2Choice + Get + Return Me.lclInstrmField + End Get + Set + Me.lclInstrmField = Value + End Set + End Property + + ''' + Public Property SeqTp() As SequenceType1Code + Get + Return Me.seqTpField + End Get + Set + Me.seqTpField = Value + End Set + End Property + + ''' + + Public Property SeqTpSpecified() As Boolean + Get + Return Me.seqTpFieldSpecified + End Get + Set + Me.seqTpFieldSpecified = Value + End Set + End Property + + ''' + Public Property CtgyPurp() As CategoryPurpose1Choice + Get + Return Me.ctgyPurpField + End Get + Set + Me.ctgyPurpField = Value + End Set + End Property + End Class + + ''' + + Public Enum Priority2Code + + ''' + HIGH + + ''' + NORM + End Enum + + ''' + + Public Enum ClearingChannel2Code + + ''' + RTGS + + ''' + RTNS + + ''' + MPNS + + ''' + BOOK + End Enum + + ''' + + Public Enum SequenceType1Code + + ''' + FRST + + ''' + RCUR + + ''' + FNAL + + ''' + OOFF + End Enum + + ''' + + Partial Public Class ClearingSystemIdentification3Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType6 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType6 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType6 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class SettlementInformation13 + + Private sttlmMtdField As SettlementMethod1Code + + Private sttlmAcctField As CashAccount16 + + Private clrSysField As ClearingSystemIdentification3Choice + + Private instgRmbrsmntAgtField As BranchAndFinancialInstitutionIdentification4 + + Private instgRmbrsmntAgtAcctField As CashAccount16 + + Private instdRmbrsmntAgtField As BranchAndFinancialInstitutionIdentification4 + + Private instdRmbrsmntAgtAcctField As CashAccount16 + + Private thrdRmbrsmntAgtField As BranchAndFinancialInstitutionIdentification4 + + Private thrdRmbrsmntAgtAcctField As CashAccount16 + + ''' + Public Property SttlmMtd() As SettlementMethod1Code + Get + Return Me.sttlmMtdField + End Get + Set + Me.sttlmMtdField = Value + End Set + End Property + + ''' + Public Property SttlmAcct() As CashAccount16 + Get + Return Me.sttlmAcctField + End Get + Set + Me.sttlmAcctField = Value + End Set + End Property + + ''' + Public Property ClrSys() As ClearingSystemIdentification3Choice + Get + Return Me.clrSysField + End Get + Set + Me.clrSysField = Value + End Set + End Property + + ''' + Public Property InstgRmbrsmntAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.instgRmbrsmntAgtField + End Get + Set + Me.instgRmbrsmntAgtField = Value + End Set + End Property + + ''' + Public Property InstgRmbrsmntAgtAcct() As CashAccount16 + Get + Return Me.instgRmbrsmntAgtAcctField + End Get + Set + Me.instgRmbrsmntAgtAcctField = Value + End Set + End Property + + ''' + Public Property InstdRmbrsmntAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.instdRmbrsmntAgtField + End Get + Set + Me.instdRmbrsmntAgtField = Value + End Set + End Property + + ''' + Public Property InstdRmbrsmntAgtAcct() As CashAccount16 + Get + Return Me.instdRmbrsmntAgtAcctField + End Get + Set + Me.instdRmbrsmntAgtAcctField = Value + End Set + End Property + + ''' + Public Property ThrdRmbrsmntAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.thrdRmbrsmntAgtField + End Get + Set + Me.thrdRmbrsmntAgtField = Value + End Set + End Property + + ''' + Public Property ThrdRmbrsmntAgtAcct() As CashAccount16 + Get + Return Me.thrdRmbrsmntAgtAcctField + End Get + Set + Me.thrdRmbrsmntAgtAcctField = Value + End Set + End Property + End Class + + ''' + + Public Enum SettlementMethod1Code + + ''' + INDA + + ''' + INGA + + ''' + COVE + + ''' + CLRG + End Enum + + ''' + + Partial Public Class EquivalentAmount2 + + Private amtField As ActiveOrHistoricCurrencyAndAmount + + Private ccyOfTrfField As String + + ''' + Public Property Amt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.amtField + End Get + Set + Me.amtField = Value + End Set + End Property + + ''' + Public Property CcyOfTrf() As String + Get + Return Me.ccyOfTrfField + End Get + Set + Me.ccyOfTrfField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class AmountType3Choice + + Private itemField As Object + + ''' + + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class OriginalTransactionReference13 + + Private intrBkSttlmAmtField As ActiveOrHistoricCurrencyAndAmount + + Private amtField As AmountType3Choice + + Private intrBkSttlmDtField As Date + + Private intrBkSttlmDtFieldSpecified As Boolean + + Private reqdColltnDtField As Date + + Private reqdColltnDtFieldSpecified As Boolean + + Private reqdExctnDtField As Date + + Private reqdExctnDtFieldSpecified As Boolean + + Private cdtrSchmeIdField As PartyIdentification32 + + Private sttlmInfField As SettlementInformation13 + + Private pmtTpInfField As PaymentTypeInformation22 + + Private pmtMtdField As PaymentMethod4Code + + Private pmtMtdFieldSpecified As Boolean + + Private mndtRltdInfField As MandateRelatedInformation6 + + Private rmtInfField As RemittanceInformation5 + + Private ultmtDbtrField As PartyIdentification32 + + Private dbtrField As PartyIdentification32 + + Private dbtrAcctField As CashAccount16 + + Private dbtrAgtField As BranchAndFinancialInstitutionIdentification4 + + Private dbtrAgtAcctField As CashAccount16 + + Private cdtrAgtField As BranchAndFinancialInstitutionIdentification4 + + Private cdtrAgtAcctField As CashAccount16 + + Private cdtrField As PartyIdentification32 + + Private cdtrAcctField As CashAccount16 + + Private ultmtCdtrField As PartyIdentification32 + + ''' + Public Property IntrBkSttlmAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.intrBkSttlmAmtField + End Get + Set + Me.intrBkSttlmAmtField = Value + End Set + End Property + + ''' + Public Property Amt() As AmountType3Choice + Get + Return Me.amtField + End Get + Set + Me.amtField = Value + End Set + End Property + + ''' + + Public Property IntrBkSttlmDt() As Date + Get + Return Me.intrBkSttlmDtField + End Get + Set + Me.intrBkSttlmDtField = Value + End Set + End Property + + ''' + + Public Property IntrBkSttlmDtSpecified() As Boolean + Get + Return Me.intrBkSttlmDtFieldSpecified + End Get + Set + Me.intrBkSttlmDtFieldSpecified = Value + End Set + End Property + + ''' + + Public Property ReqdColltnDt() As Date + Get + Return Me.reqdColltnDtField + End Get + Set + Me.reqdColltnDtField = Value + End Set + End Property + + ''' + + Public Property ReqdColltnDtSpecified() As Boolean + Get + Return Me.reqdColltnDtFieldSpecified + End Get + Set + Me.reqdColltnDtFieldSpecified = Value + End Set + End Property + + ''' + + Public Property ReqdExctnDt() As Date + Get + Return Me.reqdExctnDtField + End Get + Set + Me.reqdExctnDtField = Value + End Set + End Property + + ''' + + Public Property ReqdExctnDtSpecified() As Boolean + Get + Return Me.reqdExctnDtFieldSpecified + End Get + Set + Me.reqdExctnDtFieldSpecified = Value + End Set + End Property + + ''' + Public Property CdtrSchmeId() As PartyIdentification32 + Get + Return Me.cdtrSchmeIdField + End Get + Set + Me.cdtrSchmeIdField = Value + End Set + End Property + + ''' + Public Property SttlmInf() As SettlementInformation13 + Get + Return Me.sttlmInfField + End Get + Set + Me.sttlmInfField = Value + End Set + End Property + + ''' + Public Property PmtTpInf() As PaymentTypeInformation22 + Get + Return Me.pmtTpInfField + End Get + Set + Me.pmtTpInfField = Value + End Set + End Property + + ''' + Public Property PmtMtd() As PaymentMethod4Code + Get + Return Me.pmtMtdField + End Get + Set + Me.pmtMtdField = Value + End Set + End Property + + ''' + + Public Property PmtMtdSpecified() As Boolean + Get + Return Me.pmtMtdFieldSpecified + End Get + Set + Me.pmtMtdFieldSpecified = Value + End Set + End Property + + ''' + Public Property MndtRltdInf() As MandateRelatedInformation6 + Get + Return Me.mndtRltdInfField + End Get + Set + Me.mndtRltdInfField = Value + End Set + End Property + + ''' + Public Property RmtInf() As RemittanceInformation5 + Get + Return Me.rmtInfField + End Get + Set + Me.rmtInfField = Value + End Set + End Property + + ''' + Public Property UltmtDbtr() As PartyIdentification32 + Get + Return Me.ultmtDbtrField + End Get + Set + Me.ultmtDbtrField = Value + End Set + End Property + + ''' + Public Property Dbtr() As PartyIdentification32 + Get + Return Me.dbtrField + End Get + Set + Me.dbtrField = Value + End Set + End Property + + ''' + Public Property DbtrAcct() As CashAccount16 + Get + Return Me.dbtrAcctField + End Get + Set + Me.dbtrAcctField = Value + End Set + End Property + + ''' + Public Property DbtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.dbtrAgtField + End Get + Set + Me.dbtrAgtField = Value + End Set + End Property + + ''' + Public Property DbtrAgtAcct() As CashAccount16 + Get + Return Me.dbtrAgtAcctField + End Get + Set + Me.dbtrAgtAcctField = Value + End Set + End Property + + ''' + Public Property CdtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.cdtrAgtField + End Get + Set + Me.cdtrAgtField = Value + End Set + End Property + + ''' + Public Property CdtrAgtAcct() As CashAccount16 + Get + Return Me.cdtrAgtAcctField + End Get + Set + Me.cdtrAgtAcctField = Value + End Set + End Property + + ''' + Public Property Cdtr() As PartyIdentification32 + Get + Return Me.cdtrField + End Get + Set + Me.cdtrField = Value + End Set + End Property + + ''' + Public Property CdtrAcct() As CashAccount16 + Get + Return Me.cdtrAcctField + End Get + Set + Me.cdtrAcctField = Value + End Set + End Property + + ''' + Public Property UltmtCdtr() As PartyIdentification32 + Get + Return Me.ultmtCdtrField + End Get + Set + Me.ultmtCdtrField = Value + End Set + End Property + End Class + + ''' + + Public Enum PaymentMethod4Code + + ''' + CHK + + ''' + TRF + + ''' + DD + + ''' + TRA + End Enum + + ''' + + Partial Public Class ChargesInformation5 + + Private amtField As ActiveOrHistoricCurrencyAndAmount + + Private ptyField As BranchAndFinancialInstitutionIdentification4 + + ''' + Public Property Amt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.amtField + End Get + Set + Me.amtField = Value + End Set + End Property + + ''' + Public Property Pty() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.ptyField + End Get + Set + Me.ptyField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class PaymentTransactionInformation25 + + Private stsIdField As String + + Private orgnlInstrIdField As String + + Private orgnlEndToEndIdField As String + + Private txStsField As TransactionIndividualStatus3Code + + Private txStsFieldSpecified As Boolean + + Private stsRsnInfField() As StatusReasonInformation8 + + Private chrgsInfField() As ChargesInformation5 + + Private accptncDtTmField As Date + + Private accptncDtTmFieldSpecified As Boolean + + Private acctSvcrRefField As String + + Private clrSysRefField As String + + Private orgnlTxRefField As OriginalTransactionReference13 + + ''' + Public Property StsId() As String + Get + Return Me.stsIdField + End Get + Set + Me.stsIdField = Value + End Set + End Property + + ''' + Public Property OrgnlInstrId() As String + Get + Return Me.orgnlInstrIdField + End Get + Set + Me.orgnlInstrIdField = Value + End Set + End Property + + ''' + Public Property OrgnlEndToEndId() As String + Get + Return Me.orgnlEndToEndIdField + End Get + Set + Me.orgnlEndToEndIdField = Value + End Set + End Property + + ''' + Public Property TxSts() As TransactionIndividualStatus3Code + Get + Return Me.txStsField + End Get + Set + Me.txStsField = Value + End Set + End Property + + ''' + + Public Property TxStsSpecified() As Boolean + Get + Return Me.txStsFieldSpecified + End Get + Set + Me.txStsFieldSpecified = Value + End Set + End Property + + ''' + + Public Property StsRsnInf() As StatusReasonInformation8() + Get + Return Me.stsRsnInfField + End Get + Set + Me.stsRsnInfField = Value + End Set + End Property + + ''' + + Public Property ChrgsInf() As ChargesInformation5() + Get + Return Me.chrgsInfField + End Get + Set + Me.chrgsInfField = Value + End Set + End Property + + ''' + Public Property AccptncDtTm() As Date + Get + Return Me.accptncDtTmField + End Get + Set + Me.accptncDtTmField = Value + End Set + End Property + + ''' + + Public Property AccptncDtTmSpecified() As Boolean + Get + Return Me.accptncDtTmFieldSpecified + End Get + Set + Me.accptncDtTmFieldSpecified = Value + End Set + End Property + + ''' + Public Property AcctSvcrRef() As String + Get + Return Me.acctSvcrRefField + End Get + Set + Me.acctSvcrRefField = Value + End Set + End Property + + ''' + Public Property ClrSysRef() As String + Get + Return Me.clrSysRefField + End Get + Set + Me.clrSysRefField = Value + End Set + End Property + + ''' + Public Property OrgnlTxRef() As OriginalTransactionReference13 + Get + Return Me.orgnlTxRefField + End Get + Set + Me.orgnlTxRefField = Value + End Set + End Property + End Class + + ''' + + Public Enum TransactionIndividualStatus3Code + + ''' + ACTC + + ''' + RJCT + + ''' + PDNG + + ''' + ACCP + + ''' + ACSP + + ''' + ACSC + + ''' + ACWC + End Enum + + ''' + + Partial Public Class StatusReasonInformation8 + + Private orgtrField As PartyIdentification32 + + Private rsnField As StatusReason6Choice + + Private addtlInfField() As String + + ''' + Public Property Orgtr() As PartyIdentification32 + Get + Return Me.orgtrField + End Get + Set + Me.orgtrField = Value + End Set + End Property + + ''' + Public Property Rsn() As StatusReason6Choice + Get + Return Me.rsnField + End Get + Set + Me.rsnField = Value + End Set + End Property + + ''' + + Public Property AddtlInf() As String() + Get + Return Me.addtlInfField + End Get + Set + Me.addtlInfField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class StatusReason6Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType4 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType4 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType4 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class OriginalPaymentInformation1 + + Private orgnlPmtInfIdField As String + + Private orgnlNbOfTxsField As String + + Private orgnlCtrlSumField As Decimal + + Private orgnlCtrlSumFieldSpecified As Boolean + + Private pmtInfStsField As TransactionGroupStatus3Code + + Private pmtInfStsFieldSpecified As Boolean + + Private stsRsnInfField() As StatusReasonInformation8 + + Private nbOfTxsPerStsField() As NumberOfTransactionsPerStatus3 + + Private txInfAndStsField() As PaymentTransactionInformation25 + + ''' + Public Property OrgnlPmtInfId() As String + Get + Return Me.orgnlPmtInfIdField + End Get + Set + Me.orgnlPmtInfIdField = Value + End Set + End Property + + ''' + Public Property OrgnlNbOfTxs() As String + Get + Return Me.orgnlNbOfTxsField + End Get + Set + Me.orgnlNbOfTxsField = Value + End Set + End Property + + ''' + Public Property OrgnlCtrlSum() As Decimal + Get + Return Me.orgnlCtrlSumField + End Get + Set + Me.orgnlCtrlSumField = Value + End Set + End Property + + ''' + + Public Property OrgnlCtrlSumSpecified() As Boolean + Get + Return Me.orgnlCtrlSumFieldSpecified + End Get + Set + Me.orgnlCtrlSumFieldSpecified = Value + End Set + End Property + + ''' + Public Property PmtInfSts() As TransactionGroupStatus3Code + Get + Return Me.pmtInfStsField + End Get + Set + Me.pmtInfStsField = Value + End Set + End Property + + ''' + + Public Property PmtInfStsSpecified() As Boolean + Get + Return Me.pmtInfStsFieldSpecified + End Get + Set + Me.pmtInfStsFieldSpecified = Value + End Set + End Property + + ''' + + Public Property StsRsnInf() As StatusReasonInformation8() + Get + Return Me.stsRsnInfField + End Get + Set + Me.stsRsnInfField = Value + End Set + End Property + + ''' + + Public Property NbOfTxsPerSts() As NumberOfTransactionsPerStatus3() + Get + Return Me.nbOfTxsPerStsField + End Get + Set + Me.nbOfTxsPerStsField = Value + End Set + End Property + + ''' + + Public Property TxInfAndSts() As PaymentTransactionInformation25() + Get + Return Me.txInfAndStsField + End Get + Set + Me.txInfAndStsField = Value + End Set + End Property + End Class + + ''' + + Public Enum TransactionGroupStatus3Code + + ''' + ACTC + + ''' + RCVD + + ''' + PART + + ''' + RJCT + + ''' + PDNG + + ''' + ACCP + + ''' + ACSP + + ''' + ACSC + + ''' + ACWC + End Enum + + ''' + + Partial Public Class NumberOfTransactionsPerStatus3 + + Private dtldNbOfTxsField As String + + Private dtldStsField As TransactionIndividualStatus3Code + + Private dtldCtrlSumField As Decimal + + Private dtldCtrlSumFieldSpecified As Boolean + + ''' + Public Property DtldNbOfTxs() As String + Get + Return Me.dtldNbOfTxsField + End Get + Set + Me.dtldNbOfTxsField = Value + End Set + End Property + + ''' + Public Property DtldSts() As TransactionIndividualStatus3Code + Get + Return Me.dtldStsField + End Get + Set + Me.dtldStsField = Value + End Set + End Property + + ''' + Public Property DtldCtrlSum() As Decimal + Get + Return Me.dtldCtrlSumField + End Get + Set + Me.dtldCtrlSumField = Value + End Set + End Property + + ''' + + Public Property DtldCtrlSumSpecified() As Boolean + Get + Return Me.dtldCtrlSumFieldSpecified + End Get + Set + Me.dtldCtrlSumFieldSpecified = Value + End Set + End Property + End Class + + ''' + + Partial Public Class OriginalGroupInformation20 + + Private orgnlMsgIdField As String + + Private orgnlMsgNmIdField As String + + Private orgnlCreDtTmField As Date + + Private orgnlCreDtTmFieldSpecified As Boolean + + Private orgnlNbOfTxsField As String + + Private orgnlCtrlSumField As Decimal + + Private orgnlCtrlSumFieldSpecified As Boolean + + Private grpStsField As TransactionGroupStatus3Code + + Private grpStsFieldSpecified As Boolean + + Private stsRsnInfField() As StatusReasonInformation8 + + Private nbOfTxsPerStsField() As NumberOfTransactionsPerStatus3 + + ''' + Public Property OrgnlMsgId() As String + Get + Return Me.orgnlMsgIdField + End Get + Set + Me.orgnlMsgIdField = Value + End Set + End Property + + ''' + Public Property OrgnlMsgNmId() As String + Get + Return Me.orgnlMsgNmIdField + End Get + Set + Me.orgnlMsgNmIdField = Value + End Set + End Property + + ''' + Public Property OrgnlCreDtTm() As Date + Get + Return Me.orgnlCreDtTmField + End Get + Set + Me.orgnlCreDtTmField = Value + End Set + End Property + + ''' + + Public Property OrgnlCreDtTmSpecified() As Boolean + Get + Return Me.orgnlCreDtTmFieldSpecified + End Get + Set + Me.orgnlCreDtTmFieldSpecified = Value + End Set + End Property + + ''' + Public Property OrgnlNbOfTxs() As String + Get + Return Me.orgnlNbOfTxsField + End Get + Set + Me.orgnlNbOfTxsField = Value + End Set + End Property + + ''' + Public Property OrgnlCtrlSum() As Decimal + Get + Return Me.orgnlCtrlSumField + End Get + Set + Me.orgnlCtrlSumField = Value + End Set + End Property + + ''' + + Public Property OrgnlCtrlSumSpecified() As Boolean + Get + Return Me.orgnlCtrlSumFieldSpecified + End Get + Set + Me.orgnlCtrlSumFieldSpecified = Value + End Set + End Property + + ''' + Public Property GrpSts() As TransactionGroupStatus3Code + Get + Return Me.grpStsField + End Get + Set + Me.grpStsField = Value + End Set + End Property + + ''' + + Public Property GrpStsSpecified() As Boolean + Get + Return Me.grpStsFieldSpecified + End Get + Set + Me.grpStsFieldSpecified = Value + End Set + End Property + + ''' + + Public Property StsRsnInf() As StatusReasonInformation8() + Get + Return Me.stsRsnInfField + End Get + Set + Me.stsRsnInfField = Value + End Set + End Property + + ''' + + Public Property NbOfTxsPerSts() As NumberOfTransactionsPerStatus3() + Get + Return Me.nbOfTxsPerStsField + End Get + Set + Me.nbOfTxsPerStsField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class ContactDetails2 + + Private nmPrfxField As NamePrefix1Code + + Private nmPrfxFieldSpecified As Boolean + + Private nmField As String + + Private phneNbField As String + + Private mobNbField As String + + Private faxNbField As String + + Private emailAdrField As String + + Private othrField As String + + ''' + Public Property NmPrfx() As NamePrefix1Code + Get + Return Me.nmPrfxField + End Get + Set + Me.nmPrfxField = Value + End Set + End Property + + ''' + + Public Property NmPrfxSpecified() As Boolean + Get + Return Me.nmPrfxFieldSpecified + End Get + Set + Me.nmPrfxFieldSpecified = Value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + + ''' + Public Property PhneNb() As String + Get + Return Me.phneNbField + End Get + Set + Me.phneNbField = Value + End Set + End Property + + ''' + Public Property MobNb() As String + Get + Return Me.mobNbField + End Get + Set + Me.mobNbField = Value + End Set + End Property + + ''' + Public Property FaxNb() As String + Get + Return Me.faxNbField + End Get + Set + Me.faxNbField = Value + End Set + End Property + + ''' + Public Property EmailAdr() As String + Get + Return Me.emailAdrField + End Get + Set + Me.emailAdrField = Value + End Set + End Property + + ''' + Public Property Othr() As String + Get + Return Me.othrField + End Get + Set + Me.othrField = Value + End Set + End Property + End Class + + ''' + + Public Enum NamePrefix1Code + + ''' + DOCT + + ''' + MIST + + ''' + MISS + + ''' + MADM + End Enum + + ''' + + Partial Public Class PersonIdentificationSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType1 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType1 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType1 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class GenericPersonIdentification1 + + Private idField As String + + Private schmeNmField As PersonIdentificationSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property SchmeNm() As PersonIdentificationSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set + Me.schmeNmField = Value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set + Me.issrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class DateAndPlaceOfBirth + + Private birthDtField As Date + + Private prvcOfBirthField As String + + Private cityOfBirthField As String + + Private ctryOfBirthField As String + + ''' + + Public Property BirthDt() As Date + Get + Return Me.birthDtField + End Get + Set + Me.birthDtField = Value + End Set + End Property + + ''' + Public Property PrvcOfBirth() As String + Get + Return Me.prvcOfBirthField + End Get + Set + Me.prvcOfBirthField = Value + End Set + End Property + + ''' + Public Property CityOfBirth() As String + Get + Return Me.cityOfBirthField + End Get + Set + Me.cityOfBirthField = Value + End Set + End Property + + ''' + Public Property CtryOfBirth() As String + Get + Return Me.ctryOfBirthField + End Get + Set + Me.ctryOfBirthField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class PersonIdentification5 + + Private dtAndPlcOfBirthField As DateAndPlaceOfBirth + + Private othrField() As GenericPersonIdentification1 + + ''' + Public Property DtAndPlcOfBirth() As DateAndPlaceOfBirth + Get + Return Me.dtAndPlcOfBirthField + End Get + Set + Me.dtAndPlcOfBirthField = Value + End Set + End Property + + ''' + + Public Property Othr() As GenericPersonIdentification1() + Get + Return Me.othrField + End Get + Set + Me.othrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class OrganisationIdentificationSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class GenericOrganisationIdentification1 + + Private idField As String + + Private schmeNmField As OrganisationIdentificationSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property SchmeNm() As OrganisationIdentificationSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set + Me.schmeNmField = Value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set + Me.issrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class OrganisationIdentification4 + + Private bICOrBEIField As String + + Private othrField() As GenericOrganisationIdentification1 + + ''' + Public Property BICOrBEI() As String + Get + Return Me.bICOrBEIField + End Get + Set + Me.bICOrBEIField = Value + End Set + End Property + + ''' + + Public Property Othr() As GenericOrganisationIdentification1() + Get + Return Me.othrField + End Get + Set + Me.othrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class Party6Choice + + Private itemField As Object + + ''' + + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + End Class + +End Namespace \ No newline at end of file diff --git a/Bancos/pain_008_001_02.vb b/Bancos/pain_008_001_02.vb new file mode 100644 index 0000000..f7e0f38 --- /dev/null +++ b/Bancos/pain_008_001_02.vb @@ -0,0 +1,4419 @@ +'------------------------------------------------------------------------------ +' +' Este código fue generado por una herramienta. +' Versión de runtime:4.0.30319.42000 +' +' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si +' se vuelve a generar el código. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +' +'Este código fuente fue generado automáticamente por xsd, Versión=4.0.30319.33440. +' +Namespace SEPA_1914XML + + ''' + + Partial Public Class Document + + Private cstmrDrctDbtInitnField As CustomerDirectDebitInitiationV02 + + ''' + Public Property CstmrDrctDbtInitn() As CustomerDirectDebitInitiationV02 + Get + Return Me.cstmrDrctDbtInitnField + End Get + Set + Me.cstmrDrctDbtInitnField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class CustomerDirectDebitInitiationV02 + + Private grpHdrField As GroupHeader39 + + Private pmtInfField() As PaymentInstructionInformation4 + + ''' + Public Property GrpHdr() As GroupHeader39 + Get + Return Me.grpHdrField + End Get + Set + Me.grpHdrField = Value + End Set + End Property + + ''' + + Public Property PmtInf() As PaymentInstructionInformation4() + Get + Return Me.pmtInfField + End Get + Set + Me.pmtInfField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class GroupHeader39 + + Private msgIdField As String + + Private creDtTmField As Date + + Private authstnField() As Authorisation1Choice + + Private nbOfTxsField As String + + Private ctrlSumField As Decimal + + Private ctrlSumFieldSpecified As Boolean + + Private initgPtyField As PartyIdentification32 + + Private fwdgAgtField As BranchAndFinancialInstitutionIdentification4 + + ''' + Public Property MsgId() As String + Get + Return Me.msgIdField + End Get + Set + Me.msgIdField = Value + End Set + End Property + + ''' + Public Property CreDtTm() As Date + Get + Return Me.creDtTmField + End Get + Set + Me.creDtTmField = Value + End Set + End Property + + ''' + + Public Property Authstn() As Authorisation1Choice() + Get + Return Me.authstnField + End Get + Set + Me.authstnField = Value + End Set + End Property + + ''' + Public Property NbOfTxs() As String + Get + Return Me.nbOfTxsField + End Get + Set + Me.nbOfTxsField = Value + End Set + End Property + + ''' + Public Property CtrlSum() As Decimal + Get + Return Me.ctrlSumField + End Get + Set + Me.ctrlSumField = Value + End Set + End Property + + ''' + + Public Property CtrlSumSpecified() As Boolean + Get + Return Me.ctrlSumFieldSpecified + End Get + Set + Me.ctrlSumFieldSpecified = Value + End Set + End Property + + ''' + Public Property InitgPty() As PartyIdentification32 + Get + Return Me.initgPtyField + End Get + Set + Me.initgPtyField = Value + End Set + End Property + + ''' + Public Property FwdgAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.fwdgAgtField + End Get + Set + Me.fwdgAgtField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class Authorisation1Choice + + Private itemField As Object + + ''' + + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + End Class + + ''' + + Public Enum Authorisation1Code + + ''' + AUTH + + ''' + FDET + + ''' + FSUM + + ''' + ILEV + End Enum + + ''' + + Partial Public Class CreditorReferenceType1Choice + + Private itemField As Object + + ''' + + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + End Class + + ''' + + Public Enum DocumentType3Code + + ''' + RADM + + ''' + RPIN + + ''' + FXDR + + ''' + DISP + + ''' + PUOR + + ''' + SCOR + End Enum + + ''' + + Partial Public Class CreditorReferenceType2 + + Private cdOrPrtryField As CreditorReferenceType1Choice + + Private issrField As String + + ''' + Public Property CdOrPrtry() As CreditorReferenceType1Choice + Get + Return Me.cdOrPrtryField + End Get + Set + Me.cdOrPrtryField = Value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set + Me.issrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class CreditorReferenceInformation2 + + Private tpField As CreditorReferenceType2 + + Private refField As String + + ''' + Public Property Tp() As CreditorReferenceType2 + Get + Return Me.tpField + End Get + Set + Me.tpField = Value + End Set + End Property + + ''' + Public Property Ref() As String + Get + Return Me.refField + End Get + Set + Me.refField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class DocumentAdjustment1 + + Private amtField As ActiveOrHistoricCurrencyAndAmount + + Private cdtDbtIndField As CreditDebitCode + + Private cdtDbtIndFieldSpecified As Boolean + + Private rsnField As String + + Private addtlInfField As String + + ''' + Public Property Amt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.amtField + End Get + Set + Me.amtField = Value + End Set + End Property + + ''' + Public Property CdtDbtInd() As CreditDebitCode + Get + Return Me.cdtDbtIndField + End Get + Set + Me.cdtDbtIndField = Value + End Set + End Property + + ''' + + Public Property CdtDbtIndSpecified() As Boolean + Get + Return Me.cdtDbtIndFieldSpecified + End Get + Set + Me.cdtDbtIndFieldSpecified = Value + End Set + End Property + + ''' + Public Property Rsn() As String + Get + Return Me.rsnField + End Get + Set + Me.rsnField = Value + End Set + End Property + + ''' + Public Property AddtlInf() As String + Get + Return Me.addtlInfField + End Get + Set + Me.addtlInfField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class ActiveOrHistoricCurrencyAndAmount + + Private ccyField As String + + Private valueField As Decimal + + ''' + + Public Property Ccy() As String + Get + Return Me.ccyField + End Get + Set + Me.ccyField = Value + End Set + End Property + + ''' + + Public Property Value() As Decimal + Get + Return Me.valueField + End Get + Set + Me.valueField = Value + End Set + End Property + End Class + + ''' + + Public Enum CreditDebitCode + + ''' + CRDT + + ''' + DBIT + End Enum + + ''' + + Partial Public Class RemittanceAmount1 + + Private duePyblAmtField As ActiveOrHistoricCurrencyAndAmount + + Private dscntApldAmtField As ActiveOrHistoricCurrencyAndAmount + + Private cdtNoteAmtField As ActiveOrHistoricCurrencyAndAmount + + Private taxAmtField As ActiveOrHistoricCurrencyAndAmount + + Private adjstmntAmtAndRsnField() As DocumentAdjustment1 + + Private rmtdAmtField As ActiveOrHistoricCurrencyAndAmount + + ''' + Public Property DuePyblAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.duePyblAmtField + End Get + Set + Me.duePyblAmtField = Value + End Set + End Property + + ''' + Public Property DscntApldAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.dscntApldAmtField + End Get + Set + Me.dscntApldAmtField = Value + End Set + End Property + + ''' + Public Property CdtNoteAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.cdtNoteAmtField + End Get + Set + Me.cdtNoteAmtField = Value + End Set + End Property + + ''' + Public Property TaxAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.taxAmtField + End Get + Set + Me.taxAmtField = Value + End Set + End Property + + ''' + + Public Property AdjstmntAmtAndRsn() As DocumentAdjustment1() + Get + Return Me.adjstmntAmtAndRsnField + End Get + Set + Me.adjstmntAmtAndRsnField = Value + End Set + End Property + + ''' + Public Property RmtdAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.rmtdAmtField + End Get + Set + Me.rmtdAmtField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class ReferredDocumentType1Choice + + Private itemField As Object + + ''' + + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + End Class + + ''' + + Public Enum DocumentType5Code + + ''' + MSIN + + ''' + CNFA + + ''' + DNFA + + ''' + CINV + + ''' + CREN + + ''' + DEBN + + ''' + HIRI + + ''' + SBIN + + ''' + CMCN + + ''' + SOAC + + ''' + DISP + + ''' + BOLD + + ''' + VCHR + + ''' + AROI + + ''' + TSUT + End Enum + + ''' + + Partial Public Class ReferredDocumentType2 + + Private cdOrPrtryField As ReferredDocumentType1Choice + + Private issrField As String + + ''' + Public Property CdOrPrtry() As ReferredDocumentType1Choice + Get + Return Me.cdOrPrtryField + End Get + Set + Me.cdOrPrtryField = Value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set + Me.issrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class ReferredDocumentInformation3 + + Private tpField As ReferredDocumentType2 + + Private nbField As String + + Private rltdDtField As Date + + Private rltdDtFieldSpecified As Boolean + + ''' + Public Property Tp() As ReferredDocumentType2 + Get + Return Me.tpField + End Get + Set + Me.tpField = Value + End Set + End Property + + ''' + Public Property Nb() As String + Get + Return Me.nbField + End Get + Set + Me.nbField = Value + End Set + End Property + + ''' + + Public Property RltdDt() As Date + Get + Return Me.rltdDtField + End Get + Set + Me.rltdDtField = Value + End Set + End Property + + ''' + + Public Property RltdDtSpecified() As Boolean + Get + Return Me.rltdDtFieldSpecified + End Get + Set + Me.rltdDtFieldSpecified = Value + End Set + End Property + End Class + + ''' + + Partial Public Class StructuredRemittanceInformation7 + + Private rfrdDocInfField() As ReferredDocumentInformation3 + + Private rfrdDocAmtField As RemittanceAmount1 + + Private cdtrRefInfField As CreditorReferenceInformation2 + + Private invcrField As PartyIdentification32 + + Private invceeField As PartyIdentification32 + + Private addtlRmtInfField() As String + + ''' + + Public Property RfrdDocInf() As ReferredDocumentInformation3() + Get + Return Me.rfrdDocInfField + End Get + Set + Me.rfrdDocInfField = Value + End Set + End Property + + ''' + Public Property RfrdDocAmt() As RemittanceAmount1 + Get + Return Me.rfrdDocAmtField + End Get + Set + Me.rfrdDocAmtField = Value + End Set + End Property + + ''' + Public Property CdtrRefInf() As CreditorReferenceInformation2 + Get + Return Me.cdtrRefInfField + End Get + Set + Me.cdtrRefInfField = Value + End Set + End Property + + ''' + Public Property Invcr() As PartyIdentification32 + Get + Return Me.invcrField + End Get + Set + Me.invcrField = Value + End Set + End Property + + ''' + Public Property Invcee() As PartyIdentification32 + Get + Return Me.invceeField + End Get + Set + Me.invceeField = Value + End Set + End Property + + ''' + + Public Property AddtlRmtInf() As String() + Get + Return Me.addtlRmtInfField + End Get + Set + Me.addtlRmtInfField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class PartyIdentification32 + + Private nmField As String + + Private pstlAdrField As PostalAddress6 + + Private idField As Party6Choice + + Private ctryOfResField As String + + Private ctctDtlsField As ContactDetails2 + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + + ''' + Public Property PstlAdr() As PostalAddress6 + Get + Return Me.pstlAdrField + End Get + Set + Me.pstlAdrField = Value + End Set + End Property + + ''' + Public Property Id() As Party6Choice + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property CtryOfRes() As String + Get + Return Me.ctryOfResField + End Get + Set + Me.ctryOfResField = Value + End Set + End Property + + ''' + Public Property CtctDtls() As ContactDetails2 + Get + Return Me.ctctDtlsField + End Get + Set + Me.ctctDtlsField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class PostalAddress6 + + Private adrTpField As AddressType2Code + + Private adrTpFieldSpecified As Boolean + + Private deptField As String + + Private subDeptField As String + + Private strtNmField As String + + Private bldgNbField As String + + Private pstCdField As String + + Private twnNmField As String + + Private ctrySubDvsnField As String + + Private ctryField As String + + Private adrLineField() As String + + ''' + Public Property AdrTp() As AddressType2Code + Get + Return Me.adrTpField + End Get + Set + Me.adrTpField = Value + End Set + End Property + + ''' + + Public Property AdrTpSpecified() As Boolean + Get + Return Me.adrTpFieldSpecified + End Get + Set + Me.adrTpFieldSpecified = Value + End Set + End Property + + ''' + Public Property Dept() As String + Get + Return Me.deptField + End Get + Set + Me.deptField = Value + End Set + End Property + + ''' + Public Property SubDept() As String + Get + Return Me.subDeptField + End Get + Set + Me.subDeptField = Value + End Set + End Property + + ''' + Public Property StrtNm() As String + Get + Return Me.strtNmField + End Get + Set + Me.strtNmField = Value + End Set + End Property + + ''' + Public Property BldgNb() As String + Get + Return Me.bldgNbField + End Get + Set + Me.bldgNbField = Value + End Set + End Property + + ''' + Public Property PstCd() As String + Get + Return Me.pstCdField + End Get + Set + Me.pstCdField = Value + End Set + End Property + + ''' + Public Property TwnNm() As String + Get + Return Me.twnNmField + End Get + Set + Me.twnNmField = Value + End Set + End Property + + ''' + Public Property CtrySubDvsn() As String + Get + Return Me.ctrySubDvsnField + End Get + Set + Me.ctrySubDvsnField = Value + End Set + End Property + + ''' + Public Property Ctry() As String + Get + Return Me.ctryField + End Get + Set + Me.ctryField = Value + End Set + End Property + + ''' + + Public Property AdrLine() As String() + Get + Return Me.adrLineField + End Get + Set + Me.adrLineField = Value + End Set + End Property + End Class + + ''' + + Public Enum AddressType2Code + + ''' + ADDR + + ''' + PBOX + + ''' + HOME + + ''' + BIZZ + + ''' + MLTO + + ''' + DLVY + End Enum + + ''' + + Partial Public Class Party6Choice + + 'Private itemField As PersonIdentification5 + Private itemField As Object + ''' + + Public Property Item() As Object + 'Public Property Item() As PersonIdentification5 + Get + Return Me.itemField + End Get + Set(value As Object) + Me.itemField = value + End Set + End Property + End Class + + ''' + + Partial Public Class OrganisationIdentification4 + + Private bICOrBEIField As String + + Private othrField() As GenericOrganisationIdentification1 + + ''' + Public Property BICOrBEI() As String + Get + Return Me.bICOrBEIField + End Get + Set + Me.bICOrBEIField = Value + End Set + End Property + + ''' + + Public Property Othr() As GenericOrganisationIdentification1() + Get + Return Me.othrField + End Get + Set + Me.othrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class GenericOrganisationIdentification1 + + Private idField As String + + Private schmeNmField As OrganisationIdentificationSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property SchmeNm() As OrganisationIdentificationSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set + Me.schmeNmField = Value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set + Me.issrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class OrganisationIdentificationSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class PersonIdentification5 + + Private dtAndPlcOfBirthField As DateAndPlaceOfBirth + + Private othrField() As GenericPersonIdentification1 + + ''' + Public Property DtAndPlcOfBirth() As DateAndPlaceOfBirth + Get + Return Me.dtAndPlcOfBirthField + End Get + Set + Me.dtAndPlcOfBirthField = Value + End Set + End Property + + ''' + + Public Property Othr() As GenericPersonIdentification1() + Get + Return Me.othrField + End Get + Set + Me.othrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class DateAndPlaceOfBirth + + Private birthDtField As Date + + Private prvcOfBirthField As String + + Private cityOfBirthField As String + + Private ctryOfBirthField As String + + ''' + + Public Property BirthDt() As Date + Get + Return Me.birthDtField + End Get + Set + Me.birthDtField = Value + End Set + End Property + + ''' + Public Property PrvcOfBirth() As String + Get + Return Me.prvcOfBirthField + End Get + Set + Me.prvcOfBirthField = Value + End Set + End Property + + ''' + Public Property CityOfBirth() As String + Get + Return Me.cityOfBirthField + End Get + Set + Me.cityOfBirthField = Value + End Set + End Property + + ''' + Public Property CtryOfBirth() As String + Get + Return Me.ctryOfBirthField + End Get + Set + Me.ctryOfBirthField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class GenericPersonIdentification1 + + Private idField As String + + Private schmeNmField As PersonIdentificationSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property SchmeNm() As PersonIdentificationSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set + Me.schmeNmField = Value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set + Me.issrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class PersonIdentificationSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType1 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType1 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType1 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class ContactDetails2 + + Private nmPrfxField As NamePrefix1Code + + Private nmPrfxFieldSpecified As Boolean + + Private nmField As String + + Private phneNbField As String + + Private mobNbField As String + + Private faxNbField As String + + Private emailAdrField As String + + Private othrField As String + + ''' + Public Property NmPrfx() As NamePrefix1Code + Get + Return Me.nmPrfxField + End Get + Set + Me.nmPrfxField = Value + End Set + End Property + + ''' + + Public Property NmPrfxSpecified() As Boolean + Get + Return Me.nmPrfxFieldSpecified + End Get + Set + Me.nmPrfxFieldSpecified = Value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + + ''' + Public Property PhneNb() As String + Get + Return Me.phneNbField + End Get + Set + Me.phneNbField = Value + End Set + End Property + + ''' + Public Property MobNb() As String + Get + Return Me.mobNbField + End Get + Set + Me.mobNbField = Value + End Set + End Property + + ''' + Public Property FaxNb() As String + Get + Return Me.faxNbField + End Get + Set + Me.faxNbField = Value + End Set + End Property + + ''' + Public Property EmailAdr() As String + Get + Return Me.emailAdrField + End Get + Set + Me.emailAdrField = Value + End Set + End Property + + ''' + Public Property Othr() As String + Get + Return Me.othrField + End Get + Set + Me.othrField = Value + End Set + End Property + End Class + + ''' + + Public Enum NamePrefix1Code + + ''' + DOCT + + ''' + MIST + + ''' + MISS + + ''' + MADM + End Enum + + ''' + + Partial Public Class RemittanceInformation5 + + Private ustrdField() As String + + Private strdField() As StructuredRemittanceInformation7 + + ''' + + Public Property Ustrd() As String() + Get + Return Me.ustrdField + End Get + Set + Me.ustrdField = Value + End Set + End Property + + ''' + + Public Property Strd() As StructuredRemittanceInformation7() + Get + Return Me.strdField + End Get + Set + Me.strdField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class NameAndAddress10 + + Private nmField As String + + Private adrField As PostalAddress6 + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + + ''' + Public Property Adr() As PostalAddress6 + Get + Return Me.adrField + End Get + Set + Me.adrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class RemittanceLocation2 + + Private rmtIdField As String + + Private rmtLctnMtdField As RemittanceLocationMethod2Code + + Private rmtLctnMtdFieldSpecified As Boolean + + Private rmtLctnElctrncAdrField As String + + Private rmtLctnPstlAdrField As NameAndAddress10 + + ''' + Public Property RmtId() As String + Get + Return Me.rmtIdField + End Get + Set + Me.rmtIdField = Value + End Set + End Property + + ''' + Public Property RmtLctnMtd() As RemittanceLocationMethod2Code + Get + Return Me.rmtLctnMtdField + End Get + Set + Me.rmtLctnMtdField = Value + End Set + End Property + + ''' + + Public Property RmtLctnMtdSpecified() As Boolean + Get + Return Me.rmtLctnMtdFieldSpecified + End Get + Set + Me.rmtLctnMtdFieldSpecified = Value + End Set + End Property + + ''' + Public Property RmtLctnElctrncAdr() As String + Get + Return Me.rmtLctnElctrncAdrField + End Get + Set + Me.rmtLctnElctrncAdrField = Value + End Set + End Property + + ''' + Public Property RmtLctnPstlAdr() As NameAndAddress10 + Get + Return Me.rmtLctnPstlAdrField + End Get + Set + Me.rmtLctnPstlAdrField = Value + End Set + End Property + End Class + + ''' + + Public Enum RemittanceLocationMethod2Code + + ''' + FAXI + + ''' + EDIC + + ''' + URID + + ''' + EMAL + + ''' + POST + + ''' + SMSM + End Enum + + ''' + + Partial Public Class TaxRecordDetails1 + + Private prdField As TaxPeriod1 + + Private amtField As ActiveOrHistoricCurrencyAndAmount + + ''' + Public Property Prd() As TaxPeriod1 + Get + Return Me.prdField + End Get + Set + Me.prdField = Value + End Set + End Property + + ''' + Public Property Amt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.amtField + End Get + Set + Me.amtField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class TaxPeriod1 + + Private yrField As Date + + Private yrFieldSpecified As Boolean + + Private tpField As TaxRecordPeriod1Code + + Private tpFieldSpecified As Boolean + + Private frToDtField As DatePeriodDetails + + ''' + + Public Property Yr() As Date + Get + Return Me.yrField + End Get + Set + Me.yrField = Value + End Set + End Property + + ''' + + Public Property YrSpecified() As Boolean + Get + Return Me.yrFieldSpecified + End Get + Set + Me.yrFieldSpecified = Value + End Set + End Property + + ''' + Public Property Tp() As TaxRecordPeriod1Code + Get + Return Me.tpField + End Get + Set + Me.tpField = Value + End Set + End Property + + ''' + + Public Property TpSpecified() As Boolean + Get + Return Me.tpFieldSpecified + End Get + Set + Me.tpFieldSpecified = Value + End Set + End Property + + ''' + Public Property FrToDt() As DatePeriodDetails + Get + Return Me.frToDtField + End Get + Set + Me.frToDtField = Value + End Set + End Property + End Class + + ''' + + Public Enum TaxRecordPeriod1Code + + ''' + MM01 + + ''' + MM02 + + ''' + MM03 + + ''' + MM04 + + ''' + MM05 + + ''' + MM06 + + ''' + MM07 + + ''' + MM08 + + ''' + MM09 + + ''' + MM10 + + ''' + MM11 + + ''' + MM12 + + ''' + QTR1 + + ''' + QTR2 + + ''' + QTR3 + + ''' + QTR4 + + ''' + HLF1 + + ''' + HLF2 + End Enum + + ''' + + Partial Public Class DatePeriodDetails + + Private frDtField As Date + + Private toDtField As Date + + ''' + + Public Property FrDt() As Date + Get + Return Me.frDtField + End Get + Set + Me.frDtField = Value + End Set + End Property + + ''' + + Public Property ToDt() As Date + Get + Return Me.toDtField + End Get + Set + Me.toDtField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class TaxAmount1 + + Private rateField As Decimal + + Private rateFieldSpecified As Boolean + + Private taxblBaseAmtField As ActiveOrHistoricCurrencyAndAmount + + Private ttlAmtField As ActiveOrHistoricCurrencyAndAmount + + Private dtlsField() As TaxRecordDetails1 + + ''' + Public Property Rate() As Decimal + Get + Return Me.rateField + End Get + Set + Me.rateField = Value + End Set + End Property + + ''' + + Public Property RateSpecified() As Boolean + Get + Return Me.rateFieldSpecified + End Get + Set + Me.rateFieldSpecified = Value + End Set + End Property + + ''' + Public Property TaxblBaseAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.taxblBaseAmtField + End Get + Set + Me.taxblBaseAmtField = Value + End Set + End Property + + ''' + Public Property TtlAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.ttlAmtField + End Get + Set + Me.ttlAmtField = Value + End Set + End Property + + ''' + + Public Property Dtls() As TaxRecordDetails1() + Get + Return Me.dtlsField + End Get + Set + Me.dtlsField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class TaxRecord1 + + Private tpField As String + + Private ctgyField As String + + Private ctgyDtlsField As String + + Private dbtrStsField As String + + Private certIdField As String + + Private frmsCdField As String + + Private prdField As TaxPeriod1 + + Private taxAmtField As TaxAmount1 + + Private addtlInfField As String + + ''' + Public Property Tp() As String + Get + Return Me.tpField + End Get + Set + Me.tpField = Value + End Set + End Property + + ''' + Public Property Ctgy() As String + Get + Return Me.ctgyField + End Get + Set + Me.ctgyField = Value + End Set + End Property + + ''' + Public Property CtgyDtls() As String + Get + Return Me.ctgyDtlsField + End Get + Set + Me.ctgyDtlsField = Value + End Set + End Property + + ''' + Public Property DbtrSts() As String + Get + Return Me.dbtrStsField + End Get + Set + Me.dbtrStsField = Value + End Set + End Property + + ''' + Public Property CertId() As String + Get + Return Me.certIdField + End Get + Set + Me.certIdField = Value + End Set + End Property + + ''' + Public Property FrmsCd() As String + Get + Return Me.frmsCdField + End Get + Set + Me.frmsCdField = Value + End Set + End Property + + ''' + Public Property Prd() As TaxPeriod1 + Get + Return Me.prdField + End Get + Set + Me.prdField = Value + End Set + End Property + + ''' + Public Property TaxAmt() As TaxAmount1 + Get + Return Me.taxAmtField + End Get + Set + Me.taxAmtField = Value + End Set + End Property + + ''' + Public Property AddtlInf() As String + Get + Return Me.addtlInfField + End Get + Set + Me.addtlInfField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class TaxAuthorisation1 + + Private titlField As String + + Private nmField As String + + ''' + Public Property Titl() As String + Get + Return Me.titlField + End Get + Set + Me.titlField = Value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class TaxParty2 + + Private taxIdField As String + + Private regnIdField As String + + Private taxTpField As String + + Private authstnField As TaxAuthorisation1 + + ''' + Public Property TaxId() As String + Get + Return Me.taxIdField + End Get + Set + Me.taxIdField = Value + End Set + End Property + + ''' + Public Property RegnId() As String + Get + Return Me.regnIdField + End Get + Set + Me.regnIdField = Value + End Set + End Property + + ''' + Public Property TaxTp() As String + Get + Return Me.taxTpField + End Get + Set + Me.taxTpField = Value + End Set + End Property + + ''' + Public Property Authstn() As TaxAuthorisation1 + Get + Return Me.authstnField + End Get + Set + Me.authstnField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class TaxParty1 + + Private taxIdField As String + + Private regnIdField As String + + Private taxTpField As String + + ''' + Public Property TaxId() As String + Get + Return Me.taxIdField + End Get + Set + Me.taxIdField = Value + End Set + End Property + + ''' + Public Property RegnId() As String + Get + Return Me.regnIdField + End Get + Set + Me.regnIdField = Value + End Set + End Property + + ''' + Public Property TaxTp() As String + Get + Return Me.taxTpField + End Get + Set + Me.taxTpField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class TaxInformation3 + + Private cdtrField As TaxParty1 + + Private dbtrField As TaxParty2 + + Private admstnZnField As String + + Private refNbField As String + + Private mtdField As String + + Private ttlTaxblBaseAmtField As ActiveOrHistoricCurrencyAndAmount + + Private ttlTaxAmtField As ActiveOrHistoricCurrencyAndAmount + + Private dtField As Date + + Private dtFieldSpecified As Boolean + + Private seqNbField As Decimal + + Private seqNbFieldSpecified As Boolean + + Private rcrdField() As TaxRecord1 + + ''' + Public Property Cdtr() As TaxParty1 + Get + Return Me.cdtrField + End Get + Set + Me.cdtrField = Value + End Set + End Property + + ''' + Public Property Dbtr() As TaxParty2 + Get + Return Me.dbtrField + End Get + Set + Me.dbtrField = Value + End Set + End Property + + ''' + Public Property AdmstnZn() As String + Get + Return Me.admstnZnField + End Get + Set + Me.admstnZnField = Value + End Set + End Property + + ''' + Public Property RefNb() As String + Get + Return Me.refNbField + End Get + Set + Me.refNbField = Value + End Set + End Property + + ''' + Public Property Mtd() As String + Get + Return Me.mtdField + End Get + Set + Me.mtdField = Value + End Set + End Property + + ''' + Public Property TtlTaxblBaseAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.ttlTaxblBaseAmtField + End Get + Set + Me.ttlTaxblBaseAmtField = Value + End Set + End Property + + ''' + Public Property TtlTaxAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.ttlTaxAmtField + End Get + Set + Me.ttlTaxAmtField = Value + End Set + End Property + + ''' + + Public Property Dt() As Date + Get + Return Me.dtField + End Get + Set + Me.dtField = Value + End Set + End Property + + ''' + + Public Property DtSpecified() As Boolean + Get + Return Me.dtFieldSpecified + End Get + Set + Me.dtFieldSpecified = Value + End Set + End Property + + ''' + Public Property SeqNb() As Decimal + Get + Return Me.seqNbField + End Get + Set + Me.seqNbField = Value + End Set + End Property + + ''' + + Public Property SeqNbSpecified() As Boolean + Get + Return Me.seqNbFieldSpecified + End Get + Set + Me.seqNbFieldSpecified = Value + End Set + End Property + + ''' + + Public Property Rcrd() As TaxRecord1() + Get + Return Me.rcrdField + End Get + Set + Me.rcrdField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class StructuredRegulatoryReporting3 + + Private tpField As String + + Private dtField As Date + + Private dtFieldSpecified As Boolean + + Private ctryField As String + + Private cdField As String + + Private amtField As ActiveOrHistoricCurrencyAndAmount + + Private infField() As String + + ''' + Public Property Tp() As String + Get + Return Me.tpField + End Get + Set + Me.tpField = Value + End Set + End Property + + ''' + + Public Property Dt() As Date + Get + Return Me.dtField + End Get + Set + Me.dtField = Value + End Set + End Property + + ''' + + Public Property DtSpecified() As Boolean + Get + Return Me.dtFieldSpecified + End Get + Set + Me.dtFieldSpecified = Value + End Set + End Property + + ''' + Public Property Ctry() As String + Get + Return Me.ctryField + End Get + Set + Me.ctryField = Value + End Set + End Property + + ''' + Public Property Cd() As String + Get + Return Me.cdField + End Get + Set + Me.cdField = Value + End Set + End Property + + ''' + Public Property Amt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.amtField + End Get + Set + Me.amtField = Value + End Set + End Property + + ''' + + Public Property Inf() As String() + Get + Return Me.infField + End Get + Set + Me.infField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class RegulatoryAuthority2 + + Private nmField As String + + Private ctryField As String + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + + ''' + Public Property Ctry() As String + Get + Return Me.ctryField + End Get + Set + Me.ctryField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class RegulatoryReporting3 + + Private dbtCdtRptgIndField As RegulatoryReportingType1Code + + Private dbtCdtRptgIndFieldSpecified As Boolean + + Private authrtyField As RegulatoryAuthority2 + + Private dtlsField() As StructuredRegulatoryReporting3 + + ''' + Public Property DbtCdtRptgInd() As RegulatoryReportingType1Code + Get + Return Me.dbtCdtRptgIndField + End Get + Set + Me.dbtCdtRptgIndField = Value + End Set + End Property + + ''' + + Public Property DbtCdtRptgIndSpecified() As Boolean + Get + Return Me.dbtCdtRptgIndFieldSpecified + End Get + Set + Me.dbtCdtRptgIndFieldSpecified = Value + End Set + End Property + + ''' + Public Property Authrty() As RegulatoryAuthority2 + Get + Return Me.authrtyField + End Get + Set + Me.authrtyField = Value + End Set + End Property + + ''' + + Public Property Dtls() As StructuredRegulatoryReporting3() + Get + Return Me.dtlsField + End Get + Set + Me.dtlsField = Value + End Set + End Property + End Class + + ''' + + Public Enum RegulatoryReportingType1Code + + ''' + CRED + + ''' + DEBT + + ''' + BOTH + End Enum + + ''' + + Partial Public Class Purpose2Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType8 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType8 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType8 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class AmendmentInformationDetails6 + + Private orgnlMndtIdField As String + + Private orgnlCdtrSchmeIdField As PartyIdentification32 + + Private orgnlCdtrAgtField As BranchAndFinancialInstitutionIdentification4 + + Private orgnlCdtrAgtAcctField As CashAccount16 + + Private orgnlDbtrField As PartyIdentification32 + + Private orgnlDbtrAcctField As CashAccount16 + + Private orgnlDbtrAgtField As BranchAndFinancialInstitutionIdentification4 + + Private orgnlDbtrAgtAcctField As CashAccount16 + + Private orgnlFnlColltnDtField As Date + + Private orgnlFnlColltnDtFieldSpecified As Boolean + + Private orgnlFrqcyField As Frequency1Code + + Private orgnlFrqcyFieldSpecified As Boolean + + ''' + Public Property OrgnlMndtId() As String + Get + Return Me.orgnlMndtIdField + End Get + Set + Me.orgnlMndtIdField = Value + End Set + End Property + + ''' + Public Property OrgnlCdtrSchmeId() As PartyIdentification32 + Get + Return Me.orgnlCdtrSchmeIdField + End Get + Set + Me.orgnlCdtrSchmeIdField = Value + End Set + End Property + + ''' + Public Property OrgnlCdtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.orgnlCdtrAgtField + End Get + Set + Me.orgnlCdtrAgtField = Value + End Set + End Property + + ''' + Public Property OrgnlCdtrAgtAcct() As CashAccount16 + Get + Return Me.orgnlCdtrAgtAcctField + End Get + Set + Me.orgnlCdtrAgtAcctField = Value + End Set + End Property + + ''' + Public Property OrgnlDbtr() As PartyIdentification32 + Get + Return Me.orgnlDbtrField + End Get + Set + Me.orgnlDbtrField = Value + End Set + End Property + + ''' + Public Property OrgnlDbtrAcct() As CashAccount16 + Get + Return Me.orgnlDbtrAcctField + End Get + Set + Me.orgnlDbtrAcctField = Value + End Set + End Property + + ''' + Public Property OrgnlDbtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.orgnlDbtrAgtField + End Get + Set + Me.orgnlDbtrAgtField = Value + End Set + End Property + + ''' + Public Property OrgnlDbtrAgtAcct() As CashAccount16 + Get + Return Me.orgnlDbtrAgtAcctField + End Get + Set + Me.orgnlDbtrAgtAcctField = Value + End Set + End Property + + ''' + + Public Property OrgnlFnlColltnDt() As Date + Get + Return Me.orgnlFnlColltnDtField + End Get + Set + Me.orgnlFnlColltnDtField = Value + End Set + End Property + + ''' + + Public Property OrgnlFnlColltnDtSpecified() As Boolean + Get + Return Me.orgnlFnlColltnDtFieldSpecified + End Get + Set + Me.orgnlFnlColltnDtFieldSpecified = Value + End Set + End Property + + ''' + Public Property OrgnlFrqcy() As Frequency1Code + Get + Return Me.orgnlFrqcyField + End Get + Set + Me.orgnlFrqcyField = Value + End Set + End Property + + ''' + + Public Property OrgnlFrqcySpecified() As Boolean + Get + Return Me.orgnlFrqcyFieldSpecified + End Get + Set + Me.orgnlFrqcyFieldSpecified = Value + End Set + End Property + End Class + + ''' + + Partial Public Class BranchAndFinancialInstitutionIdentification4 + + Private finInstnIdField As FinancialInstitutionIdentification7 + + Private brnchIdField As BranchData2 + + ''' + Public Property FinInstnId() As FinancialInstitutionIdentification7 + Get + Return Me.finInstnIdField + End Get + Set + Me.finInstnIdField = Value + End Set + End Property + + ''' + Public Property BrnchId() As BranchData2 + Get + Return Me.brnchIdField + End Get + Set + Me.brnchIdField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class FinancialInstitutionIdentification7 + + Private bICField As String + + Private clrSysMmbIdField As ClearingSystemMemberIdentification2 + + Private nmField As String + + Private pstlAdrField As PostalAddress6 + + Private othrField As GenericFinancialIdentification1 + + ''' + Public Property BIC() As String + Get + Return Me.bICField + End Get + Set + Me.bICField = Value + End Set + End Property + + ''' + Public Property ClrSysMmbId() As ClearingSystemMemberIdentification2 + Get + Return Me.clrSysMmbIdField + End Get + Set + Me.clrSysMmbIdField = Value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + + ''' + Public Property PstlAdr() As PostalAddress6 + Get + Return Me.pstlAdrField + End Get + Set + Me.pstlAdrField = Value + End Set + End Property + + ''' + Public Property Othr() As GenericFinancialIdentification1 + Get + Return Me.othrField + End Get + Set + Me.othrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class ClearingSystemMemberIdentification2 + + Private clrSysIdField As ClearingSystemIdentification2Choice + + Private mmbIdField As String + + ''' + Public Property ClrSysId() As ClearingSystemIdentification2Choice + Get + Return Me.clrSysIdField + End Get + Set + Me.clrSysIdField = Value + End Set + End Property + + ''' + Public Property MmbId() As String + Get + Return Me.mmbIdField + End Get + Set + Me.mmbIdField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class ClearingSystemIdentification2Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType2 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType2 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType2 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class GenericFinancialIdentification1 + + Private idField As String + + Private schmeNmField As FinancialIdentificationSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set(value As String) + Me.idField = value + End Set + End Property + + ''' + Public Property SchmeNm() As FinancialIdentificationSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set(value As FinancialIdentificationSchemeName1Choice) + Me.schmeNmField = value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set(value As String) + Me.issrField = value + End Set + End Property + End Class + + ''' + + Partial Public Class FinancialIdentificationSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType3 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType3 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType3 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class BranchData2 + + Private idField As String + + Private nmField As String + + Private pstlAdrField As PostalAddress6 + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + + ''' + Public Property PstlAdr() As PostalAddress6 + Get + Return Me.pstlAdrField + End Get + Set + Me.pstlAdrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class CashAccount16 + + Private idField As AccountIdentification4Choice + + Private tpField As CashAccountType2 + + Private ccyField As String + + Private nmField As String + + ''' + Public Property Id() As AccountIdentification4Choice + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property Tp() As CashAccountType2 + Get + Return Me.tpField + End Get + Set + Me.tpField = Value + End Set + End Property + + ''' + Public Property Ccy() As String + Get + Return Me.ccyField + End Get + Set + Me.ccyField = Value + End Set + End Property + + ''' + Public Property Nm() As String + Get + Return Me.nmField + End Get + Set + Me.nmField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class AccountIdentification4Choice + + Private itemField As Object + + ''' + + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class GenericAccountIdentification1 + + Private idField As String + + Private schmeNmField As AccountSchemeName1Choice + + Private issrField As String + + ''' + Public Property Id() As String + Get + Return Me.idField + End Get + Set + Me.idField = Value + End Set + End Property + + ''' + Public Property SchmeNm() As AccountSchemeName1Choice + Get + Return Me.schmeNmField + End Get + Set + Me.schmeNmField = Value + End Set + End Property + + ''' + Public Property Issr() As String + Get + Return Me.issrField + End Get + Set + Me.issrField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class AccountSchemeName1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType7 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType7 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType7 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class CashAccountType2 + + Private itemField As Object + + ''' + + Public Property Item() As Object + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + End Class + + ''' + + Public Enum CashAccountType4Code + + ''' + CASH + + ''' + [CHAR] + + ''' + COMM + + ''' + TAXE + + ''' + CISH + + ''' + TRAS + + ''' + SACC + + ''' + CACC + + ''' + SVGS + + ''' + ONDP + + ''' + MGLD + + ''' + NREX + + ''' + MOMA + + ''' + LOAN + + ''' + SLRY + + ''' + ODFT + End Enum + + ''' + + Public Enum Frequency1Code + + ''' + YEAR + + ''' + MNTH + + ''' + QURT + + ''' + MIAN + + ''' + WEEK + + ''' + DAIL + + ''' + ADHO + + ''' + INDA + End Enum + + ''' + + Partial Public Class MandateRelatedInformation6 + + Private mndtIdField As String + + Private dtOfSgntrField As Date + + Private dtOfSgntrFieldSpecified As Boolean + + Private amdmntIndField As Boolean + + Private amdmntIndFieldSpecified As Boolean + + Private amdmntInfDtlsField As AmendmentInformationDetails6 + + Private elctrncSgntrField As String + + Private frstColltnDtField As Date + + Private frstColltnDtFieldSpecified As Boolean + + Private fnlColltnDtField As Date + + Private fnlColltnDtFieldSpecified As Boolean + + Private frqcyField As Frequency1Code + + Private frqcyFieldSpecified As Boolean + + ''' + Public Property MndtId() As String + Get + Return Me.mndtIdField + End Get + Set + Me.mndtIdField = Value + End Set + End Property + + ''' + + Public Property DtOfSgntr() As Date + Get + Return Me.dtOfSgntrField + End Get + Set + Me.dtOfSgntrField = Value + End Set + End Property + + ''' + + Public Property DtOfSgntrSpecified() As Boolean + Get + Return Me.dtOfSgntrFieldSpecified + End Get + Set + Me.dtOfSgntrFieldSpecified = Value + End Set + End Property + + ''' + Public Property AmdmntInd() As Boolean + Get + Return Me.amdmntIndField + End Get + Set + Me.amdmntIndField = Value + End Set + End Property + + ''' + + Public Property AmdmntIndSpecified() As Boolean + Get + Return Me.amdmntIndFieldSpecified + End Get + Set + Me.amdmntIndFieldSpecified = Value + End Set + End Property + + ''' + Public Property AmdmntInfDtls() As AmendmentInformationDetails6 + Get + Return Me.amdmntInfDtlsField + End Get + Set + Me.amdmntInfDtlsField = Value + End Set + End Property + + ''' + Public Property ElctrncSgntr() As String + Get + Return Me.elctrncSgntrField + End Get + Set + Me.elctrncSgntrField = Value + End Set + End Property + + ''' + + Public Property FrstColltnDt() As Date + Get + Return Me.frstColltnDtField + End Get + Set + Me.frstColltnDtField = Value + End Set + End Property + + ''' + + Public Property FrstColltnDtSpecified() As Boolean + Get + Return Me.frstColltnDtFieldSpecified + End Get + Set + Me.frstColltnDtFieldSpecified = Value + End Set + End Property + + ''' + + Public Property FnlColltnDt() As Date + Get + Return Me.fnlColltnDtField + End Get + Set + Me.fnlColltnDtField = Value + End Set + End Property + + ''' + + Public Property FnlColltnDtSpecified() As Boolean + Get + Return Me.fnlColltnDtFieldSpecified + End Get + Set + Me.fnlColltnDtFieldSpecified = Value + End Set + End Property + + ''' + Public Property Frqcy() As Frequency1Code + Get + Return Me.frqcyField + End Get + Set + Me.frqcyField = Value + End Set + End Property + + ''' + + Public Property FrqcySpecified() As Boolean + Get + Return Me.frqcyFieldSpecified + End Get + Set + Me.frqcyFieldSpecified = Value + End Set + End Property + End Class + + ''' + + Partial Public Class DirectDebitTransaction6 + + Private mndtRltdInfField As MandateRelatedInformation6 + + Private cdtrSchmeIdField As PartyIdentification32 + + Private preNtfctnIdField As String + + Private preNtfctnDtField As Date + + Private preNtfctnDtFieldSpecified As Boolean + + ''' + Public Property MndtRltdInf() As MandateRelatedInformation6 + Get + Return Me.mndtRltdInfField + End Get + Set + Me.mndtRltdInfField = Value + End Set + End Property + + ''' + Public Property CdtrSchmeId() As PartyIdentification32 + Get + Return Me.cdtrSchmeIdField + End Get + Set + Me.cdtrSchmeIdField = Value + End Set + End Property + + ''' + Public Property PreNtfctnId() As String + Get + Return Me.preNtfctnIdField + End Get + Set + Me.preNtfctnIdField = Value + End Set + End Property + + ''' + + Public Property PreNtfctnDt() As Date + Get + Return Me.preNtfctnDtField + End Get + Set + Me.preNtfctnDtField = Value + End Set + End Property + + ''' + + Public Property PreNtfctnDtSpecified() As Boolean + Get + Return Me.preNtfctnDtFieldSpecified + End Get + Set + Me.preNtfctnDtFieldSpecified = Value + End Set + End Property + End Class + + ''' + + Partial Public Class PaymentIdentification1 + + Private instrIdField As String + + Private endToEndIdField As String + + ''' + Public Property InstrId() As String + Get + Return Me.instrIdField + End Get + Set + Me.instrIdField = Value + End Set + End Property + + ''' + Public Property EndToEndId() As String + Get + Return Me.endToEndIdField + End Get + Set + Me.endToEndIdField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class DirectDebitTransactionInformation9 + + Private pmtIdField As PaymentIdentification1 + + Private pmtTpInfField As PaymentTypeInformation20 + + Private instdAmtField As ActiveOrHistoricCurrencyAndAmount + + Private chrgBrField As ChargeBearerType1Code + + Private chrgBrFieldSpecified As Boolean + + Private drctDbtTxField As DirectDebitTransaction6 + + Private ultmtCdtrField As PartyIdentification32 + + Private dbtrAgtField As BranchAndFinancialInstitutionIdentification4 + + Private dbtrAgtAcctField As CashAccount16 + + Private dbtrField As PartyIdentification32 + + Private dbtrAcctField As CashAccount16 + + Private ultmtDbtrField As PartyIdentification32 + + Private instrForCdtrAgtField As String + + Private purpField As Purpose2Choice + + Private rgltryRptgField() As RegulatoryReporting3 + + Private taxField As TaxInformation3 + + Private rltdRmtInfField() As RemittanceLocation2 + + Private rmtInfField As RemittanceInformation5 + + ''' + Public Property PmtId() As PaymentIdentification1 + Get + Return Me.pmtIdField + End Get + Set + Me.pmtIdField = Value + End Set + End Property + + ''' + Public Property PmtTpInf() As PaymentTypeInformation20 + Get + Return Me.pmtTpInfField + End Get + Set + Me.pmtTpInfField = Value + End Set + End Property + + ''' + Public Property InstdAmt() As ActiveOrHistoricCurrencyAndAmount + Get + Return Me.instdAmtField + End Get + Set + Me.instdAmtField = Value + End Set + End Property + + ''' + Public Property ChrgBr() As ChargeBearerType1Code + Get + Return Me.chrgBrField + End Get + Set + Me.chrgBrField = Value + End Set + End Property + + ''' + + Public Property ChrgBrSpecified() As Boolean + Get + Return Me.chrgBrFieldSpecified + End Get + Set + Me.chrgBrFieldSpecified = Value + End Set + End Property + + ''' + Public Property DrctDbtTx() As DirectDebitTransaction6 + Get + Return Me.drctDbtTxField + End Get + Set + Me.drctDbtTxField = Value + End Set + End Property + + ''' + Public Property UltmtCdtr() As PartyIdentification32 + Get + Return Me.ultmtCdtrField + End Get + Set + Me.ultmtCdtrField = Value + End Set + End Property + + ''' + Public Property DbtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.dbtrAgtField + End Get + Set + Me.dbtrAgtField = Value + End Set + End Property + + ''' + Public Property DbtrAgtAcct() As CashAccount16 + Get + Return Me.dbtrAgtAcctField + End Get + Set + Me.dbtrAgtAcctField = Value + End Set + End Property + + ''' + Public Property Dbtr() As PartyIdentification32 + Get + Return Me.dbtrField + End Get + Set + Me.dbtrField = Value + End Set + End Property + + ''' + Public Property DbtrAcct() As CashAccount16 + Get + Return Me.dbtrAcctField + End Get + Set + Me.dbtrAcctField = Value + End Set + End Property + + ''' + Public Property UltmtDbtr() As PartyIdentification32 + Get + Return Me.ultmtDbtrField + End Get + Set + Me.ultmtDbtrField = Value + End Set + End Property + + ''' + Public Property InstrForCdtrAgt() As String + Get + Return Me.instrForCdtrAgtField + End Get + Set + Me.instrForCdtrAgtField = Value + End Set + End Property + + ''' + Public Property Purp() As Purpose2Choice + Get + Return Me.purpField + End Get + Set + Me.purpField = Value + End Set + End Property + + ''' + + Public Property RgltryRptg() As RegulatoryReporting3() + Get + Return Me.rgltryRptgField + End Get + Set + Me.rgltryRptgField = Value + End Set + End Property + + ''' + Public Property Tax() As TaxInformation3 + Get + Return Me.taxField + End Get + Set + Me.taxField = Value + End Set + End Property + + ''' + + Public Property RltdRmtInf() As RemittanceLocation2() + Get + Return Me.rltdRmtInfField + End Get + Set + Me.rltdRmtInfField = Value + End Set + End Property + + ''' + Public Property RmtInf() As RemittanceInformation5 + Get + Return Me.rmtInfField + End Get + Set + Me.rmtInfField = Value + End Set + End Property + End Class + + ''' + + Partial Public Class PaymentTypeInformation20 + + Private instrPrtyField As Priority2Code + + Private instrPrtyFieldSpecified As Boolean + + Private svcLvlField As ServiceLevel8Choice + + Private lclInstrmField As LocalInstrument2Choice + + Private seqTpField As SequenceType1Code + + Private seqTpFieldSpecified As Boolean + + Private ctgyPurpField As CategoryPurpose1Choice + + ''' + Public Property InstrPrty() As Priority2Code + Get + Return Me.instrPrtyField + End Get + Set + Me.instrPrtyField = Value + End Set + End Property + + ''' + + Public Property InstrPrtySpecified() As Boolean + Get + Return Me.instrPrtyFieldSpecified + End Get + Set + Me.instrPrtyFieldSpecified = Value + End Set + End Property + + ''' + Public Property SvcLvl() As ServiceLevel8Choice + Get + Return Me.svcLvlField + End Get + Set + Me.svcLvlField = Value + End Set + End Property + + ''' + Public Property LclInstrm() As LocalInstrument2Choice + Get + Return Me.lclInstrmField + End Get + Set + Me.lclInstrmField = Value + End Set + End Property + + ''' + Public Property SeqTp() As SequenceType1Code + Get + Return Me.seqTpField + End Get + Set + Me.seqTpField = Value + End Set + End Property + + ''' + + Public Property SeqTpSpecified() As Boolean + Get + Return Me.seqTpFieldSpecified + End Get + Set + Me.seqTpFieldSpecified = Value + End Set + End Property + + ''' + Public Property CtgyPurp() As CategoryPurpose1Choice + Get + Return Me.ctgyPurpField + End Get + Set + Me.ctgyPurpField = Value + End Set + End Property + End Class + + ''' + + Public Enum Priority2Code + + ''' + HIGH + + ''' + NORM + End Enum + + ''' + + Partial Public Class ServiceLevel8Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType4 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType4 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType4 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Partial Public Class LocalInstrument2Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType5 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType5 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType5 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Public Enum SequenceType1Code + + ''' + FRST + + ''' + RCUR + + ''' + FNAL + + ''' + OOFF + End Enum + + ''' + + Partial Public Class CategoryPurpose1Choice + + Private itemField As String + + Private itemElementNameField As ItemChoiceType6 + + ''' + + Public Property Item() As String + Get + Return Me.itemField + End Get + Set + Me.itemField = Value + End Set + End Property + + ''' + + Public Property ItemElementName() As ItemChoiceType6 + Get + Return Me.itemElementNameField + End Get + Set + Me.itemElementNameField = Value + End Set + End Property + End Class + + ''' + + Public Enum ItemChoiceType6 + + ''' + Cd + + ''' + Prtry + End Enum + + ''' + + Public Enum ChargeBearerType1Code + + ''' + DEBT + + ''' + CRED + + ''' + SHAR + + ''' + SLEV + End Enum + + ''' + + Partial Public Class PaymentInstructionInformation4 + + Private pmtInfIdField As String + + Private pmtMtdField As PaymentMethod2Code + + Private btchBookgField As Boolean + + Private btchBookgFieldSpecified As Boolean + + Private nbOfTxsField As String + + Private ctrlSumField As Decimal + + Private ctrlSumFieldSpecified As Boolean + + Private pmtTpInfField As PaymentTypeInformation20 + + Private reqdColltnDtField As Date + + Private cdtrField As PartyIdentification32 + + Private cdtrAcctField As CashAccount16 + + Private cdtrAgtField As BranchAndFinancialInstitutionIdentification4 + + Private cdtrAgtAcctField As CashAccount16 + + Private ultmtCdtrField As PartyIdentification32 + + Private chrgBrField As ChargeBearerType1Code + + Private chrgBrFieldSpecified As Boolean + + Private chrgsAcctField As CashAccount16 + + Private chrgsAcctAgtField As BranchAndFinancialInstitutionIdentification4 + + Private cdtrSchmeIdField As PartyIdentification32 + + Private drctDbtTxInfField() As DirectDebitTransactionInformation9 + + ''' + Public Property PmtInfId() As String + Get + Return Me.pmtInfIdField + End Get + Set + Me.pmtInfIdField = Value + End Set + End Property + + ''' + Public Property PmtMtd() As PaymentMethod2Code + Get + Return Me.pmtMtdField + End Get + Set + Me.pmtMtdField = Value + End Set + End Property + + ''' + Public Property BtchBookg() As Boolean + Get + Return Me.btchBookgField + End Get + Set + Me.btchBookgField = Value + End Set + End Property + + ''' + + Public Property BtchBookgSpecified() As Boolean + Get + Return Me.btchBookgFieldSpecified + End Get + Set + Me.btchBookgFieldSpecified = Value + End Set + End Property + + ''' + Public Property NbOfTxs() As String + Get + Return Me.nbOfTxsField + End Get + Set + Me.nbOfTxsField = Value + End Set + End Property + + ''' + Public Property CtrlSum() As Decimal + Get + Return Me.ctrlSumField + End Get + Set + Me.ctrlSumField = Value + End Set + End Property + + ''' + + Public Property CtrlSumSpecified() As Boolean + Get + Return Me.ctrlSumFieldSpecified + End Get + Set + Me.ctrlSumFieldSpecified = Value + End Set + End Property + + ''' + Public Property PmtTpInf() As PaymentTypeInformation20 + Get + Return Me.pmtTpInfField + End Get + Set + Me.pmtTpInfField = Value + End Set + End Property + + ''' + + Public Property ReqdColltnDt() As Date + Get + Return Me.reqdColltnDtField + End Get + Set + Me.reqdColltnDtField = Value + End Set + End Property + + ''' + Public Property Cdtr() As PartyIdentification32 + Get + Return Me.cdtrField + End Get + Set + Me.cdtrField = Value + End Set + End Property + + ''' + Public Property CdtrAcct() As CashAccount16 + Get + Return Me.cdtrAcctField + End Get + Set + Me.cdtrAcctField = Value + End Set + End Property + + ''' + Public Property CdtrAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.cdtrAgtField + End Get + Set + Me.cdtrAgtField = Value + End Set + End Property + + ''' + Public Property CdtrAgtAcct() As CashAccount16 + Get + Return Me.cdtrAgtAcctField + End Get + Set + Me.cdtrAgtAcctField = Value + End Set + End Property + + ''' + Public Property UltmtCdtr() As PartyIdentification32 + Get + Return Me.ultmtCdtrField + End Get + Set + Me.ultmtCdtrField = Value + End Set + End Property + + ''' + Public Property ChrgBr() As ChargeBearerType1Code + Get + Return Me.chrgBrField + End Get + Set + Me.chrgBrField = Value + End Set + End Property + + ''' + + Public Property ChrgBrSpecified() As Boolean + Get + Return Me.chrgBrFieldSpecified + End Get + Set + Me.chrgBrFieldSpecified = Value + End Set + End Property + + ''' + Public Property ChrgsAcct() As CashAccount16 + Get + Return Me.chrgsAcctField + End Get + Set + Me.chrgsAcctField = Value + End Set + End Property + + ''' + Public Property ChrgsAcctAgt() As BranchAndFinancialInstitutionIdentification4 + Get + Return Me.chrgsAcctAgtField + End Get + Set + Me.chrgsAcctAgtField = Value + End Set + End Property + + ''' + Public Property CdtrSchmeId() As PartyIdentification32 + Get + Return Me.cdtrSchmeIdField + End Get + Set + Me.cdtrSchmeIdField = Value + End Set + End Property + + ''' + + Public Property DrctDbtTxInf() As DirectDebitTransactionInformation9() + Get + Return Me.drctDbtTxInfField + End Get + Set + Me.drctDbtTxInfField = Value + End Set + End Property + End Class + + ''' + + Public Enum PaymentMethod2Code + + ''' + DD + End Enum +End Namespace diff --git a/ClienteServicioWeb.vb b/ClienteServicioWeb.vb new file mode 100644 index 0000000..35fb3ac --- /dev/null +++ b/ClienteServicioWeb.vb @@ -0,0 +1,424 @@ +Imports System.Xml +Imports System.Net +Imports System.IO +Imports System.Web +Imports System.Text.RegularExpressions +Imports tsl5.Extensiones.BinaryReaderExtensions + +''' +''' Esta clase es una alternativa para cuando no puedes usar un cliente WCF (Referencia de Servicio) o la interfaz generada por wdsl.exe de .Net Framework 2.0. +''' Permite invocar métodos de un servicio web conociendo la URL del "endpoint" del servicio web, pero con la pega de que los mensajes que se envían para +''' invocar los servicios deben ser generados manualmente. +''' +Public Class ClienteServicioWeb + Public Property Url() As String + Get + Return m_Url + End Get + Set(value As String) + m_Url = value + End Set + End Property + Private m_Url As String + Public Property Method() As String + Get + Return m_Method + End Get + Private Set(value As String) + m_Method = value + End Set + End Property + Private m_Method As String + Private RequestString As String = [String].Empty + Private Username As String = [String].Empty + Private Password As String = [String].Empty + Private sAuth As String = [String].Empty + Public Params As New Dictionary(Of String, String)() + Public ResponseSOAP As XDocument = XDocument.Parse("") + Public ResultXML As XDocument = XDocument.Parse("") + Public ResultString As String = [String].Empty + + Public Sub New() + Url = [String].Empty + Method = [String].Empty + End Sub + Public Sub New(baseUrl As String) + Url = baseUrl + Method = [String].Empty + End Sub + Public Sub New(baseUrl As String, methodName As String) + Url = baseUrl + Method = methodName + End Sub + +#Region "Métodos públicos" + ''' + ''' Añade un parámetro a la llamada al método del servicio web. + ''' + ''' Nombre del parámetro (sensible a mayúsculas). + ''' Valor del parámetro. + ''' Intermanente estos parámetros se mandan como parámetros POST. + Public Sub AddParameter(name As String, value As String) + Params.Add(name, value) + End Sub + ''' + ''' Añade credenciales para autenticarse en el servicio web usando autenticación HTTP básica. + ''' + ''' + ''' + ''' Se usa codificación UTF-8 para transmitir estas credenciales. + Public Sub AddBasicAuthenticationCredential(ByVal username As String, ByVal password As String) + Me.sAuth = System.Convert.ToBase64String(System.Text.Encoding.GetEncoding("ISO-8859-1").GetBytes(username & ":" + password)) + Me.Username = username + Me.Password = password + End Sub + Public Sub SetRequestString(ByVal sRequest As String) + Me.RequestString = sRequest + End Sub + Public Sub Invoke(Optional ByVal ignoreSSLErrors As Boolean = False) + Invoke(Method, True, ignoreSSLErrors = ignoreSSLErrors) + End Sub + ''' + ''' Invoca un método del servicio web, identificado por su nombre. + ''' + ''' Nombre del método del servicio web. + Public Sub Invoke(methodName As String, + Optional ByVal ignoreSSLErrors As Boolean = False) + + Invoke(methodName, True, ignoreSSLErrors = ignoreSSLErrors) + End Sub + ''' + ''' Limpia todos los datos del objeto excepto la URL del endpoint del servicio web. + ''' Es útil para realizar subsecuentes llamadas al mismo servicio web, con otros datos o invocando a otros métodos. + ''' + Public Sub CleanLastInvoke() + ResponseSOAP = InlineAssignHelper(ResultXML, Nothing) + ResultString = InlineAssignHelper(Method, [String].Empty) + Params = New Dictionary(Of String, String)() + End Sub +#End Region +#Region "Métodos auxiliares públicos" + ''' + ''' Remove all xmlns:* instances from the passed XmlDocument to simplify our xpath expressions + ''' + Public Shared Function RemoveNamespaces(oldXml As XDocument) As XDocument + ' FROM: http://social.msdn.microsoft.com/Forums/en-US/bed57335-827a-4731-b6da-a7636ac29f21/xdocument-remove-namespace?forum=linqprojectgeneral + Try + Dim newXml As XDocument = XDocument.Parse(Regex.Replace(oldXml.ToString(), "(xmlns:?[^=]*=[""][^""]*[""])", "", RegexOptions.IgnoreCase Or RegexOptions.Multiline)) + Return newXml + Catch [error] As XmlException + Throw New XmlException([error].Message + " at WSCUtils.RemoveNamespaces") + End Try + End Function + ''' + ''' Remove all xmlns:* instances from the passed XmlDocument to simplify our xpath expressions + ''' + Public Shared Function RemoveNamespaces(oldXml As String) As XDocument + Dim newXml As XDocument = XDocument.Parse(oldXml) + Return RemoveNamespaces(newXml) + End Function + ''' + ''' Elimina todos los espacios de nombres de un documento XML + ''' + Public Shared Function EliminarEspaciosDeNombres(xDocumento As XDocument) As XDocument + ' FROM: http://social.msdn.microsoft.com/Forums/en-US/bed57335-827a-4731-b6da-a7636ac29f21/xdocument-remove-namespace?forum=linqprojectgeneral + Try + Dim sRespuestaSinNamespaces As String = System.Text.RegularExpressions.Regex.Replace(xDocumento.ToString(), + "(xmlns:?[^=]*=[""][^""]*[""])", "", + System.Text.RegularExpressions.RegexOptions.IgnoreCase Or System.Text.RegularExpressions.RegexOptions.Multiline) + sRespuestaSinNamespaces = System.Text.RegularExpressions.Regex.Replace(sRespuestaSinNamespaces, + "<\w+:", "<", + System.Text.RegularExpressions.RegexOptions.IgnoreCase Or System.Text.RegularExpressions.RegexOptions.Multiline) + sRespuestaSinNamespaces = System.Text.RegularExpressions.Regex.Replace(sRespuestaSinNamespaces, + " + ''' Converts a string that has been HTML-enconded for HTTP transmission into a decoded string. + ''' + ''' String to decode. + ''' Decoded (unescaped) string. + Public Shared Function UnescapeString(escapedString As String) As String + Return HttpUtility.HtmlDecode(escapedString) + End Function +#End Region +#Region "Métodos auxiliares privados" + Private Function GetCredential() As CredentialCache + 'ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3 + Dim credentialCache As New CredentialCache() + credentialCache.Add(New System.Uri(Me.Url), "Basic", New NetworkCredential(Me.Username, Me.Password)) + Return credentialCache + End Function + ''' + ''' Checks if the WebService's URL and the WebMethod's name are valid. If not, throws ArgumentNullException. + ''' + ''' Web Method name (optional) + Private Sub AssertCanInvoke(Optional methodName As String = "") + If Url = [String].Empty Then + Throw New ArgumentNullException("You tried to invoke a webservice without specifying the WebService's URL.") + End If + If (methodName = "") AndAlso (Method = [String].Empty) Then + Throw New ArgumentNullException("You tried to invoke a webservice without specifying the WebMethod.") + End If + End Sub + ''' + ''' Invokes a Web Method, with its parameters encoded or not. + ''' + ''' Name of the web method you want to call (case sensitive) + ''' Do you want to encode your parameters? (default: true) + Private Function Invoke(methodName As String, encode As Boolean, + Optional ByVal ignoreSSLErrors As Boolean = False) As String + + AssertCanInvoke(methodName) + Dim soapStr As String = "" & vbCr & vbLf & " " & vbCr & vbLf & " " & vbCr & vbLf & " <{0} xmlns=""http://tempuri.org/"">" & vbCr & vbLf & " {1}" & vbCr & vbLf & " " & vbCr & vbLf & " " & vbCr & vbLf & " " + + Dim req As HttpWebRequest = DirectCast(WebRequest.Create(Url), HttpWebRequest) + + If ignoreSSLErrors Then + req.ServerCertificateValidationCallback() = Function(sender, certificate, chain, sslPolicyErrors) True + End If + + req.Headers.Add("SOAPAction", (Convert.ToString("""http://tempuri.org/") & methodName) + """") + req.ContentType = "text/xml;charset=""utf-8""" + req.Accept = "text/xml" + req.Method = "POST" + + 'If Not String.IsNullOrWhiteSpace(sAuth) Then + ' req.Headers.Add("Authorization", "Basic " + sAuth) + 'End If + + If Not String.IsNullOrWhiteSpace(Me.Username) AndAlso Not String.IsNullOrWhiteSpace(Me.Password) Then + req.Credentials = GetCredential() + req.PreAuthenticate = True + End If + + Using stm As Stream = req.GetRequestStream() + Dim postValues As String = "" + For Each param In Params + If encode Then + postValues += String.Format("<{0}>{1}", HttpUtility.UrlEncode(param.Key), HttpUtility.UrlEncode(param.Value)) + Else + postValues += String.Format("<{0}>{1}", param.Key, param.Value) + End If + Next + + soapStr = String.Format(soapStr, methodName, postValues) + Using stmw As New StreamWriter(stm) + stmw.Write(soapStr) + End Using + End Using + + Using responseReader As New StreamReader(req.GetResponse().GetResponseStream()) + Dim result As String = responseReader.ReadToEnd() + ResponseSOAP = XDocument.Parse(UnescapeString(result)) + End Using + + Me.ResultString = ResponseSOAP.ToString + Me.ResultXML = ResponseSOAP + + Return ResponseSOAP.ToString + End Function + Public Function InvokeUsingRequestString(ByVal methodName As String, ByVal sRequest As String, + Optional ByVal cert As System.Security.Cryptography.X509Certificates.X509Certificate2 = Nothing, + Optional ByVal ignoreSSLErrors As Boolean = False) As XDocument + + PreInvoke() + AssertCanInvoke(methodName) + + Dim req As HttpWebRequest = DirectCast(WebRequest.Create(Url), HttpWebRequest) + + If ignoreSSLErrors Then + req.ServerCertificateValidationCallback() = Function(sender, certificate, chain, sslPolicyErrors) True + End If + + req.ContentType = "text/xml;charset=""utf-8""" + req.Accept = "text/xml" + req.Method = "POST" + + If cert IsNot Nothing Then + req.ClientCertificates.Add(cert) + End If + + 'If Not String.IsNullOrWhiteSpace(sAuth) Then + ' req.Headers.Add("Authorization", "Basic " + sAuth) + 'End If + + If Not String.IsNullOrWhiteSpace(Me.Username) AndAlso Not String.IsNullOrWhiteSpace(Me.Password) Then + req.Credentials = GetCredential() + req.PreAuthenticate = True + End If + + Using stm As Stream = req.GetRequestStream() + Using stmw As New StreamWriter(stm) + stmw.Write(sRequest) + End Using + End Using + + Dim respuesta As String = String.Empty + Dim resultado As String = String.Empty + Dim sbError As New Text.StringBuilder + sbError.AppendLine("") + + Try + Using responseReader As New StreamReader(req.GetResponse().GetResponseStream()) + respuesta = responseReader.ReadToEnd() + End Using + For Each linea As String In respuesta.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) + If Not (linea.StartsWith("Content-") OrElse linea.StartsWith("--uuid:")) Then + resultado += linea & Environment.NewLine + End If + Next + Catch exTO As TimeoutException + resultado = "Tiempo de espera agotado. El servidor del servicio web no respondió a la petición." + Catch ex As WebException + Using response As WebResponse = ex.Response + Dim httpResponse As HttpWebResponse = DirectCast(response, HttpWebResponse) + If httpResponse IsNot Nothing Then + Try + sbError.AppendLine(String.Format("({0}) {1}", DirectCast(httpResponse.StatusCode, Integer), httpResponse.StatusDescription)) + Catch ex2 As Exception + sbError.AppendLine("Error desconocido del servidor del servicio web.") + End Try + Else + sbError.AppendLine("No hay objeto de tipo HttpWebResponse.") + End If + Dim sRespuesta As String = String.Empty + + If response IsNot Nothing Then + Try + Using data As Stream = response.GetResponseStream() + Using reader = New StreamReader(data) + sRespuesta = reader.ReadToEnd() + End Using + End Using + Catch ex2 As Exception + resultado = sbError.ToString + End Try + Else + sbError.AppendLine("No hay objeto de tipo WebResponse.") + End If + + If sRespuesta IsNot Nothing AndAlso sRespuesta.Length > 0 Then + Dim xRespuesta As New XDocument + Try + xRespuesta = XDocument.Parse(sRespuesta) + resultado = sRespuesta + Catch ex3 As Exception + 'Nada + End Try + If xRespuesta.ToString.Length < 1 Then + resultado = sbError.ToString + End If + Else + resultado = sbError.ToString + End If + sbError.AppendLine(String.Format("{0}", ex.ToString)) + sbError.AppendLine("") + resultado = sbError.ToString + End Using + If String.IsNullOrWhiteSpace(resultado) Then + sbError.AppendLine(String.Format("{0}", ex.ToString)) + sbError.AppendLine("") + resultado = sbError.ToString + End If + End Try + + Dim unescapedString As String = UnescapeString(resultado.Trim) + Try + ResponseSOAP = XDocument.Parse(unescapedString.Trim) + Catch ex As XmlException + ResponseSOAP = XDocument.Parse(resultado.Trim) + End Try + + PosInvoke() + + Me.ResultString = ResponseSOAP.ToString + Me.ResultXML = ResponseSOAP + + Return ResponseSOAP + End Function + ''' + ''' Realiza una petición a un servicio web usando un nombre de método, una cadena para la petición, y recogiendo la petición como un array de bytes. + ''' + ''' Nombre del método. + ''' Cadena con la petición que se realizará al servicio web. + ''' + ''' Un array de bytes con el contenido de la respuesta realizada al servicio web. + ''' Este método solo debería usarse con descargas que quepan en memoria RAM, teniendo en cuenta las posibles restricciones de memoria que el sistema operativo puda tener para procesos individuales. + Public Function InvokeBinaryUsingRequestString(ByVal methodName As String, ByVal sRequest As String, + Optional ByVal cert As System.Security.Cryptography.X509Certificates.X509Certificate2 = Nothing, + Optional ByVal ignoreSSLErrors As Boolean = False) As Byte() + + PreInvoke() + AssertCanInvoke(methodName) + + Dim req As HttpWebRequest = DirectCast(WebRequest.Create(Url), HttpWebRequest) + + If ignoreSSLErrors Then + req.ServerCertificateValidationCallback() = Function(sender, certificate, chain, sslPolicyErrors) True + End If + + req.ContentType = "text/xml;charset=""utf-8""" + req.Accept = "text/xml" + req.Method = "POST" + + If cert IsNot Nothing Then + req.ClientCertificates.Add(cert) + End If + + 'If Not String.IsNullOrWhiteSpace(sAuth) Then + ' req.Headers.Add("Authorization", "Basic " + sAuth) + 'End If + + If Not String.IsNullOrWhiteSpace(Me.Username) AndAlso Not String.IsNullOrWhiteSpace(Me.Password) Then + req.Credentials = GetCredential() + req.PreAuthenticate = True + End If + + Using stm As Stream = req.GetRequestStream() + Using stmw As New StreamWriter(stm) + stmw.Write(sRequest) + End Using + End Using + + Dim respuesta As String = String.Empty + Dim resultado As Byte() = New Byte(0) {} + Dim sError As String = String.Empty + Dim sb As New Text.StringBuilder + + Dim binaryBuffer As Byte() + + Using binaryReader As New BinaryReader(req.GetResponse().GetResponseStream()) + binaryBuffer = binaryReader.ReadAllBytes + End Using + + resultado = binaryBuffer + + PosInvoke() + + Return resultado + End Function + ''' + ''' This method should be called before each Invoke(). + ''' + Friend Sub PreInvoke() + CleanLastInvoke() + ' feel free to add more instructions to this method + End Sub + ''' + ''' This method should be called after each (successful or unsuccessful) Invoke(). + ''' + Friend Sub PosInvoke() + ' feel free to add more instructions to this method + + End Sub + Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T + target = value + Return value + End Function +#End Region +End Class \ No newline at end of file diff --git a/Compresion.vb b/Compresion.vb new file mode 100644 index 0000000..aad8cc4 --- /dev/null +++ b/Compresion.vb @@ -0,0 +1,14 @@ + +Public Class Compresion + Public Shared Function ComprimirCadena(Cadena As String) As Byte() + Dim ms As New IO.MemoryStream + Dim gz As New System.IO.Compression.GZipStream(ms, IO.Compression.CompressionMode.Compress) + Dim sw As New IO.BinaryWriter(gz) + sw.Write(System.Text.Encoding.UTF8.GetBytes(Cadena)) + sw.Close() + Return ms.ToArray() + End Function + + + +End Class diff --git a/Correo.vb b/Correo.vb new file mode 100644 index 0000000..596d523 --- /dev/null +++ b/Correo.vb @@ -0,0 +1,850 @@ +Option Strict Off +Imports System.IO +Imports System.Net.Mail +Imports System.Net +Imports System.Security.Cryptography.X509Certificates +Imports System.Net.Security +Imports System.Net.Mime +Imports System.IO.Compression +Imports tsl5.Extensiones +Imports System.Text + +Namespace Correo + Public Class ConfCuentaCorreo + Property Puerto As Integer + Property SSL As Boolean + Property ServidorSMTP As String + Property CuentaCorreo As String + Property Contraseña As String + Property Remitente As String + End Class + Public Class Funciones + Public Shared Sub EnviaCorreoCompruebaHTML(ByVal ServidorSMTP As String, + ByVal Remitente As String, + ByVal Destinatario As String, + ByVal Asunto As String, + ByVal Cuerpo As String, + ByVal FicherosAdjuntos() As MemoryStream, + ByVal NombreFicherosAdjuntos() As String, + Optional ByVal CC As String = "", + Optional ByVal BCC As String = "", + Optional ByVal CuentaCorreo As String = "", + Optional ByVal ContraseñaCorreo As String = "", + Optional ByVal Puerto As Integer = 25, + Optional ByVal UsarSSL As Boolean = False, Optional CuerpoenHTML As Boolean = False, + Optional ByVal ResponderA As String = "", + Optional ByVal NombreRemitente As String = "") + If FicherosAdjuntos.Count = 1 AndAlso NombreFicherosAdjuntos(0).EndsWith(".html.zip") Then + Dim sDirectorioTMP As String = tsl5.Utilidades.ObtieneDirectorioAleatorio + zip.ExtraeTodoDeZip(FicherosAdjuntos(0), sDirectorioTMP) + ' tsZIP.zip.ExtraeTodoDeZip("f:\temp\csc.html.zip", sDirectorioTMP) + Dim sFichCuerpo = IO.Directory.GetFiles(sDirectorioTMP, "*.html")(0) + Dim sCuerpo = System.Text.Encoding.UTF8.GetString(IO.File.ReadAllBytes(sFichCuerpo)) + Dim avHtml As AlternateView = AlternateView.CreateAlternateViewFromString(sCuerpo, Nothing, MediaTypeNames.Text.Html) + Dim diradj = IO.Directory.GetDirectories(sDirectorioTMP)(0) + Dim ficadj = IO.Directory.GetFiles(diradj) + For Each f In ficadj + Dim ms As New MemoryStream(IO.File.ReadAllBytes(f)) + Dim inline As New LinkedResource(ms, "image/" & IO.Path.GetExtension(f).Trim(".")) + inline.ContentId = IO.Path.GetFileNameWithoutExtension(f) + avHtml.LinkedResources.Add(inline) + Next + Dim avs As New List(Of AlternateView) + avs.Add(avHtml) + EnviaCorreoHtml(ServidorSMTP, Remitente, Destinatario, Asunto, Cuerpo, Nothing, avs, CC, BCC, CuentaCorreo, ContraseñaCorreo, Puerto, UsarSSL, True, ResponderA, NombreRemitente) + IO.Directory.Delete(sDirectorioTMP, True) + Else + EnviaCorreo(ServidorSMTP, Remitente, Destinatario, Asunto, Cuerpo, FicherosAdjuntos, NombreFicherosAdjuntos, CC, BCC, CuentaCorreo, ContraseñaCorreo, Puerto, UsarSSL, CuerpoenHTML, ResponderA, NombreRemitente) + End If + End Sub + + + + Public Shared Sub EnviaCorreoHtml(ByVal ServidorSMTP As String, + ByVal Remitente As String, + ByVal Destinatario As String, + ByVal Asunto As String, + ByVal Cuerpo As String, + ByVal AttachMents As List(Of Attachment), + ByVal AlternateViews As List(Of AlternateView), + Optional ByVal CC As String = "", + Optional ByVal BCC As String = "", + Optional ByVal CuentaCorreo As String = "", + Optional ByVal ContraseñaCorreo As String = "", + Optional ByVal Puerto As Integer = 25, + Optional ByVal UsarSSL As Boolean = False, Optional CuerpoenHTML As Boolean = False, + Optional ByVal ResponderA As String = "", + Optional ByVal NombreRemitente As String = "") + Try + If NombreRemitente = "" Then NombreRemitente = Remitente + Dim myAttch As Attachment + Dim SmtpMail As SmtpClient + Dim myMessage As MailMessage + Dim i, iCnt As Integer + + ' Si es alguna de las máquinas de desarrollo de danmun, el correo se envía solamente a danmun. Son pruebas. + If Environment.MachineName = "WIN81PDDANMUN" OrElse Environment.MachineName.ToUpper = "INTI81".ToUpper OrElse Environment.MachineName.ToUpper = "INTI10".ToUpper Then + Destinatario = "danmun@tecnosis.eu" + End If + + Asunto = Asunto.Replace(Environment.NewLine, " ") + 'myMessage = New MailMessage(Remitente, Destinatario, Asunto, Cuerpo) + myMessage = New MailMessage + myMessage.Body = Cuerpo + myMessage.Subject = Asunto + Dim destinatarios = Destinatario.Split(";") + For Each Destinatario In destinatarios + myMessage.To.Add(New MailAddress(Destinatario.Trim, Destinatario.Trim)) + Next + myMessage.BodyEncoding = Text.Encoding.Default + If ResponderA Is Nothing OrElse String.IsNullOrWhiteSpace(ResponderA) Then + myMessage.ReplyToList.Add(New MailAddress(Remitente, NombreRemitente)) + Else + myMessage.ReplyToList.Add(New MailAddress(ResponderA, ResponderA)) + myMessage.ReplyToList.Add(New MailAddress(Remitente, NombreRemitente)) + End If + myMessage.Sender = New MailAddress(Remitente, NombreRemitente) + myMessage.From = New MailAddress(Remitente, NombreRemitente) + myMessage.IsBodyHtml = CuerpoenHTML + If CC <> "" Then + For Each scc In CC.Split(";") + myMessage.CC.Add(scc) + Next + End If + If BCC <> "" Then + For Each sbcc In BCC.Split(";") + myMessage.Bcc.Add(sbcc) + Next + End If + If AttachMents IsNot Nothing Then + For Each att In AttachMents + myMessage.Attachments.Add(att) + Next + End If + If AlternateViews IsNot Nothing Then + For Each av In AlternateViews + myMessage.AlternateViews.Add(av) + Next + End If + SmtpMail = New SmtpClient + + If ServidorSMTP <> "" Then SmtpMail.Host = ServidorSMTP + SmtpMail.Port = Puerto + If CuentaCorreo <> "" Then + SmtpMail.Credentials = New System.Net.NetworkCredential(CuentaCorreo, ContraseñaCorreo) + End If + SmtpMail.EnableSsl = UsarSSL + + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12 Or SecurityProtocolType.Ssl3 + ServicePointManager.ServerCertificateValidationCallback = Function(s As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) True + SmtpMail.Send(myMessage) + + + Catch myexp As Exception + Throw New Exception(myexp.Message, myexp) + End Try + End Sub + + Public Shared Sub EnviaCorreo(ByVal ServidorSMTP As String, + ByVal Remitente As String, + ByVal Destinatario As String, + ByVal Asunto As String, + ByVal Cuerpo As String, + ByVal AttachMents As List(Of Attachment), + ByVal AlternateViews As List(Of AlternateView), + Optional ByVal CC As String = "", + Optional ByVal BCC As String = "", + Optional ByVal CuentaCorreo As String = "", + Optional ByVal ContraseñaCorreo As String = "", + Optional ByVal Puerto As Integer = 25, + Optional ByVal UsarSSL As Boolean = False, Optional CuerpoenHTML As Boolean = False, + Optional ByVal ResponderA As String = "", Optional CredencialesConDominio As Boolean = False, + Optional ProtocoloSeguridad As SecurityProtocolType = SecurityProtocolType.Tls, + Optional NombreRemitente As String = "") + Try + If NombreRemitente = "" Then NombreRemitente = Remitente + Dim SmtpMail As SmtpClient + Dim myMessage As MailMessage + + ' Si es alguna de las máquinas de desarrollo de danmun, el correo se envía solamente a danmun. Son pruebas. + If Environment.MachineName = "WIN81PDDANMUN" OrElse Environment.MachineName.ToUpper = "INTI81".ToUpper OrElse Environment.MachineName.ToUpper = "INTI10".ToUpper Then + Destinatario = "danmun@tecnosis.eu" + End If + + If Destinatario.NothingAVacio = "" And CC.NothingAVacio <> "" Then + Destinatario = CC + CC = "" + End If + Asunto = Asunto.Replace(Environment.NewLine, " ") + 'myMessage = New MailMessage(Remitente, Destinatario, Asunto, Cuerpo) + myMessage = New MailMessage() + myMessage.Subject = Asunto + myMessage.Body = Cuerpo + myMessage.From = New MailAddress(Remitente, NombreRemitente) + Dim sDestinatarios() As String = Nothing + sDestinatarios = Destinatario.Split(";") + For Each dest In sDestinatarios + dest = dest.Trim + If dest.Trim <> "" Then + myMessage.To.Add(New MailAddress(dest, dest, Encoding.UTF8)) + End If + Next + + myMessage.BodyEncoding = Text.Encoding.Default + If ResponderA Is Nothing OrElse String.IsNullOrWhiteSpace(ResponderA) Then + myMessage.ReplyToList.Add(New MailAddress(Remitente, NombreRemitente)) + Else + myMessage.ReplyToList.Add(New MailAddress(ResponderA, ResponderA, Encoding.UTF8)) + ' myMessage.ReplyToList.Add(New MailAddress(Remitente, NombreRemitente, Encoding.UTF8)) + End If + myMessage.Sender = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + myMessage.From = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + myMessage.IsBodyHtml = CuerpoenHTML + + If CC <> "" Then + Dim scc = CC.Split(";") + For Each c In scc + If c <> "" Then myMessage.CC.Add(c) + Next + End If + If BCC <> "" Then + Dim sbcc = BCC.Split(";") + For Each b In sbcc + If b <> "" Then myMessage.Bcc.Add(b) + Next + End If + If AttachMents IsNot Nothing Then + For Each att In AttachMents + myMessage.Attachments.Add(att) + Next + End If + If AlternateViews IsNot Nothing Then + For Each av In AlternateViews + myMessage.AlternateViews.Add(av) + Next + End If + SmtpMail = New SmtpClient + + If ServidorSMTP <> "" Then SmtpMail.Host = ServidorSMTP + SmtpMail.Port = Puerto + If CuentaCorreo <> "" Then + If CredencialesConDominio Then + SmtpMail.Credentials = New System.Net.NetworkCredential(CuentaCorreo, ContraseñaCorreo, CuentaCorreo.Split("@")(1)) + Else + SmtpMail.Credentials = New System.Net.NetworkCredential(CuentaCorreo, ContraseñaCorreo) + End If + End If + SmtpMail.EnableSsl = UsarSSL + + ' SmtpMail.TargetName = "STARTTLS/smtp.office365.com" + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12 Or SecurityProtocolType.Ssl3 + ServicePointManager.ServerCertificateValidationCallback = Function(s As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) True + SmtpMail.Timeout = 1000 * 60 * 5 + SmtpMail.Send(myMessage) + + + Catch myexp As Exception + Throw New Exception(myexp.Message, myexp) + End Try + End Sub + + Public Shared Sub EnviaCorreo(ByVal ServidorSMTP As String, + ByVal Remitente As String, + ByVal Destinatario As String, + ByVal Asunto As String, + ByVal Cuerpo As String, + ByVal FicherosAdjuntos() As MemoryStream, + ByVal NombreFicherosAdjuntos() As String, + Optional ByVal CC As String = "", + Optional ByVal BCC As String = "", + Optional ByVal CuentaCorreo As String = "", + Optional ByVal ContraseñaCorreo As String = "", + Optional ByVal Puerto As Integer = 25, + Optional ByVal UsarSSL As Boolean = False, Optional CuerpoenHTML As Boolean = False, + Optional ByVal ResponderA As String = "", + Optional ByVal NombreRemitente As String = "") + Try + If NombreRemitente = "" Then NombreRemitente = Remitente + Dim myAttch As Attachment + Dim SmtpMail As SmtpClient + Dim myMessage As MailMessage + Dim i, iCnt As Integer + + ' Si es alguna de las máquinas de desarrollo de danmun, el correo se envía solamente a danmun. Son pruebas. + If Environment.MachineName = "WIN81PDDANMUN" OrElse Environment.MachineName.ToUpper = "INTI81".ToUpper OrElse Environment.MachineName.ToUpper = "INTI10".ToUpper Then + Destinatario = "danmun@tecnosis.eu" + End If + + Asunto = Asunto.Replace(Environment.NewLine, " ") + myMessage = New MailMessage + + + myMessage = New MailMessage + myMessage.Body = Cuerpo + myMessage.Subject = Asunto + Dim destinatarios = Destinatario.Split(";") + For Each Destinatario In destinatarios + myMessage.To.Add(New MailAddress(Destinatario.Trim, Destinatario.Trim, Encoding.UTF8)) + Next + + + + myMessage.BodyEncoding = Text.Encoding.Default + If ResponderA Is Nothing OrElse String.IsNullOrWhiteSpace(ResponderA) Then + myMessage.ReplyToList.Add(New MailAddress(Remitente, NombreRemitente, Encoding.UTF8)) + Else + myMessage.ReplyToList.Add(New MailAddress(ResponderA, ResponderA, Encoding.UTF8)) + myMessage.ReplyToList.Add(New MailAddress(Remitente, NombreRemitente, Encoding.UTF8)) + End If + myMessage.Sender = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + myMessage.From = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + myMessage.IsBodyHtml = CuerpoenHTML + + If CC <> "" Then + For Each scc In CC.Split(";") + myMessage.CC.Add(scc) + Next + End If + If BCC <> "" Then + For Each sbcc In BCC.Split(";") + myMessage.Bcc.Add(sbcc) + Next + End If + If Not FicherosAdjuntos Is Nothing Then + iCnt = FicherosAdjuntos.Count - 1 + For i = 0 To iCnt + myAttch = New Attachment(FicherosAdjuntos(i), NombreFicherosAdjuntos(i)) + myMessage.Attachments.Add(myAttch) + Next + End If + + SmtpMail = New SmtpClient + + If ServidorSMTP <> "" Then SmtpMail.Host = ServidorSMTP + SmtpMail.Port = Puerto + If CuentaCorreo <> "" Then + SmtpMail.UseDefaultCredentials = False + SmtpMail.Credentials = New System.Net.NetworkCredential(CuentaCorreo, ContraseñaCorreo) + End If + SmtpMail.EnableSsl = UsarSSL + + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12 Or SecurityProtocolType.Ssl3 + ServicePointManager.ServerCertificateValidationCallback = Function(s As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) True + SmtpMail.Send(myMessage) + + + Catch myexp As Exception + Throw New Exception(myexp.Message, myexp) + End Try + End Sub + Public Shared Sub EnviaCorreo(ByVal ServidorSMTP As String, + ByVal Remitente As String, + ByVal Destinatario As String, + ByVal Asunto As String, + ByVal Cuerpo As String, + ByVal FicherosAdjuntos As List(Of String), + Optional ByVal CC As String = "", + Optional ByVal BCC As String = "", + Optional ByVal CuentaCorreo As String = "", + Optional ByVal ContraseñaCorreo As String = "", + Optional ByVal Puerto As Integer = 25, + Optional ByVal UsarSSL As Boolean = False, + Optional CuerpoenHTML As Boolean = False, + Optional ByVal ResponderA As String = "", + Optional ByVal NombreRemitente As String = "") + Try + If NombreRemitente = "" Then NombreRemitente = Remitente + Dim myAttch As Attachment + Dim SmtpMail As SmtpClient + Dim myMessage As MailMessage + Dim i, iCnt As Integer + + ' Si es alguna de kas máquinas de desarrollo de danmun, el correo se envía solamente a danmun. Son pruebas. + 'If Environment.MachineName = "WIN81PDDANMUN" OrElse Environment.MachineName.ToUpper = "INTI81".ToUpper OrElse Environment.MachineName.ToUpper = "INTI10".ToUpper Then + ' Destinatario = "danmun@tecnosis.eu" + 'End If + + Asunto = Asunto.Replace(Environment.NewLine, " ") + myMessage = New MailMessage + myMessage.Body = Cuerpo + myMessage.Subject = Asunto + Dim destinatarios = Destinatario.Split(";") + For Each Destinatario In destinatarios + myMessage.To.Add(New MailAddress(Destinatario.Trim, Destinatario.Trim, Encoding.UTF8)) + Next + myMessage.BodyEncoding = Text.Encoding.Default + If ResponderA Is Nothing OrElse String.IsNullOrWhiteSpace(ResponderA) Then + myMessage.ReplyToList.Add(New MailAddress(Remitente, NombreRemitente, Encoding.UTF8)) + Else + myMessage.ReplyToList.Add(New MailAddress(ResponderA, ResponderA, Encoding.UTF8)) + myMessage.ReplyToList.Add(New MailAddress(Remitente, NombreRemitente, Encoding.UTF8)) + End If + myMessage.Sender = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + myMessage.From = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + + + If CC <> "" Then + myMessage.CC.Add(CC) + End If + If BCC <> "" Then + myMessage.Bcc.Add(BCC) + End If + If Not FicherosAdjuntos Is Nothing Then + iCnt = FicherosAdjuntos.Count - 1 + For i = 0 To iCnt + If IO.File.Exists(FicherosAdjuntos(i)) Then + myAttch = New Attachment(FicherosAdjuntos(i)) + myMessage.Attachments.Add(myAttch) + ' myAttch.Dispose() + End If + Next + End If + + SmtpMail = New SmtpClient + + If ServidorSMTP <> "" Then SmtpMail.Host = ServidorSMTP + SmtpMail.Port = Puerto + If CuentaCorreo <> "" Then + SmtpMail.Credentials = New System.Net.NetworkCredential(CuentaCorreo, ContraseñaCorreo) + End If + SmtpMail.EnableSsl = UsarSSL + + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12 Or SecurityProtocolType.Ssl3 + ServicePointManager.ServerCertificateValidationCallback = Function(s As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) True + SmtpMail.Send(myMessage) + Catch e As Exception + Throw New Exception(e.Message, e) + End Try + End Sub + + Public Shared Sub EnviaCorreo(ByVal servidorSMTP As String, + ByVal remitente As String, + ByVal destinatarios As List(Of String), + ByVal asunto As String, + ByVal cuerpo As String, + ByVal ficherosAdjuntos As List(Of String), + Optional ByVal cc As String = "", + Optional ByVal bcc As String = "", + Optional ByVal cuentaCorreo As String = "", + Optional ByVal contraseñaCorreo As String = "", + Optional ByVal puerto As Integer = 25, + Optional ByVal usarSSL As Boolean = False, + Optional ByVal cuerpoEsHTML As Boolean = False, + Optional ByVal responderA As String = "", + Optional ByVal NombreRemitente As String = "") + Try + If NombreRemitente = "" Then NombreRemitente = remitente + Dim myAttch As Attachment + Dim SmtpMail As SmtpClient + Dim myMessage As MailMessage + Dim i, iCnt As Integer + + ' Si es alguna de kas máquinas de desarrollo de danmun, el correo se envía solamente a danmun. Son pruebas. + 'If Environment.MachineName = "WIN81PDDANMUN" OrElse Environment.MachineName.ToUpper = "INTI81".ToUpper OrElse Environment.MachineName.ToUpper = "INTI10".ToUpper Then + ' Destinatario = "danmun@tecnosis.eu" + 'End If + + asunto = asunto.Replace(Environment.NewLine, " ") + myMessage = New MailMessage + myMessage.Body = cuerpo + myMessage.Subject = asunto + For Each destinatario In destinatarios + myMessage.To.Add(New MailAddress(destinatario, destinatario, Encoding.UTF8)) + Next + + myMessage.BodyEncoding = Text.Encoding.Default + If responderA Is Nothing OrElse String.IsNullOrWhiteSpace(responderA) Then + myMessage.ReplyToList.Add(New MailAddress(remitente, NombreRemitente, Encoding.UTF8)) + Else + myMessage.ReplyToList.Add(New MailAddress(responderA, responderA, Encoding.UTF8)) + myMessage.ReplyToList.Add(New MailAddress(remitente, NombreRemitente, Encoding.UTF8)) + End If + myMessage.Sender = New MailAddress(remitente, NombreRemitente, Encoding.UTF8) + + myMessage.From = New MailAddress(remitente, NombreRemitente, Encoding.UTF8) + + + If cc <> "" Then + For Each scc In cc.Split(";") + myMessage.CC.Add(scc) + Next + End If + If bcc <> "" Then + For Each sbcc In bcc.Split(";") + myMessage.Bcc.Add(sbcc) + Next + End If + If Not ficherosAdjuntos Is Nothing Then + iCnt = ficherosAdjuntos.Count - 1 + For i = 0 To iCnt + If IO.File.Exists(ficherosAdjuntos(i)) Then + myAttch = New Attachment(ficherosAdjuntos(i)) + myMessage.Attachments.Add(myAttch) + ' myAttch.Dispose() + End If + Next + End If + + SmtpMail = New SmtpClient + + If servidorSMTP <> "" Then SmtpMail.Host = servidorSMTP + SmtpMail.Port = puerto + If cuentaCorreo <> "" Then + SmtpMail.Credentials = New System.Net.NetworkCredential(cuentaCorreo, contraseñaCorreo) + End If + SmtpMail.EnableSsl = usarSSL + + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12 Or SecurityProtocolType.Ssl3 + ServicePointManager.ServerCertificateValidationCallback = Function(s As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) True + SmtpMail.Send(myMessage) + Catch e As Exception + Throw New Exception(e.Message, e) + End Try + End Sub + + Public Shared Sub EnviaCorreo(ByVal ServidorSMTP As String, + ByVal Remitente As String, + ByVal Destinatario As String, + ByVal Asunto As String, + ByVal Cuerpo As String, + Optional ByVal FicherosAdjuntos As ArrayList = Nothing, + Optional ByVal CC As String = "", + Optional ByVal BCC As String = "", + Optional ByVal CuentaCorreo As String = "", + Optional ByVal ContraseñaCorreo As String = "", + Optional ByVal Puerto As Integer = 25, + Optional ByVal UsarSSL As Boolean = False, + Optional ByVal NombreRemitente As String = "") + Try + If NombreRemitente = "" Then NombreRemitente = Remitente + Dim myAttch As Attachment + Dim SmtpMail As SmtpClient + Dim myMessage As MailMessage + Dim i, iCnt As Integer + + 'myMessage = New MailMessage(Remitente, Destinatario, Asunto, Cuerpo) + myMessage = New MailMessage + myMessage.Body = Cuerpo + myMessage.Subject = Asunto + Dim destinatarios = Destinatario.Split(";") + For Each Destinatario In destinatarios + myMessage.To.Add(New MailAddress(Destinatario.Trim, Destinatario.Trim, Encoding.UTF8)) + Next + + + myMessage.BodyEncoding = Text.Encoding.Default + myMessage.ReplyTo = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + myMessage.Sender = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + + myMessage.From = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + If CC <> "" Then + Dim scc = CC.Split(";") + For Each c In scc + If c <> "" Then myMessage.CC.Add(c) + Next + End If + If BCC <> "" Then + Dim sbcc = BCC.Split(";") + For Each b In sbcc + If b <> "" Then myMessage.Bcc.Add(b) + Next + End If + If Not FicherosAdjuntos Is Nothing Then + iCnt = FicherosAdjuntos.Count - 1 + For i = 0 To iCnt + If IO.File.Exists(FicherosAdjuntos(i)) Then + myAttch = New Attachment(FicherosAdjuntos(i)) + myMessage.Attachments.Add(myAttch) + ' myAttch.Dispose() + End If + Next + End If + + SmtpMail = New SmtpClient + + If ServidorSMTP <> "" Then SmtpMail.Host = ServidorSMTP + SmtpMail.Port = Puerto + If CuentaCorreo <> "" Then + SmtpMail.Credentials = New System.Net.NetworkCredential(CuentaCorreo, ContraseñaCorreo) + End If + SmtpMail.EnableSsl = UsarSSL + + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12 Or SecurityProtocolType.Ssl3 + ServicePointManager.ServerCertificateValidationCallback = Function(s As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) True + + SmtpMail.Send(myMessage) + Catch myexp As Exception + Throw New Exception(myexp.Message, myexp) + End Try + End Sub + + Public Shared Sub EnviaCorreoVariosAdjuntos(ByVal ServidorSMTP As String, + ByVal Remitente As String, + ByVal Destinatario As String, + ByVal Asunto As String, + ByVal Cuerpo As String, + Optional ByVal FicherosAdjuntos As List(Of FicheroAdjunto) = Nothing, + Optional ByVal CC As String = "", + Optional ByVal BCC As String = "", + Optional ByVal CuentaCorreo As String = "", + Optional ByVal ContraseñaCorreo As String = "", + Optional ByVal Puerto As Integer = 25, + Optional ByVal UsarSSL As Boolean = False, + Optional NombreRemitente As String = "") + Try + If NombreRemitente = "" Then NombreRemitente = Remitente + Dim myAttch As Attachment + Dim SmtpMail As SmtpClient + Dim myMessage As MailMessage + Dim i, iCnt As Integer + + 'myMessage = New MailMessage(Remitente, Destinatario, Asunto, Cuerpo) + myMessage = New MailMessage + myMessage.Body = Cuerpo + myMessage.Subject = Asunto + Dim destinatarios = Destinatario.Split(";") + For Each Destinatario In destinatarios + myMessage.To.Add(New MailAddress(Destinatario.Trim, Destinatario.Trim, Encoding.UTF8)) + Next + + + + myMessage.BodyEncoding = Text.Encoding.Default + myMessage.ReplyTo = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + myMessage.Sender = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + myMessage.From = New MailAddress(Remitente, NombreRemitente, Encoding.UTF8) + + + If CC <> "" Then + myMessage.CC.Add(CC) + End If + If BCC <> "" Then + myMessage.Bcc.Add(BCC) + End If + Dim cd As System.Net.Mime.ContentDisposition + If Not FicherosAdjuntos Is Nothing Then + iCnt = FicherosAdjuntos.Count - 1 + For i = 0 To iCnt + If FicherosAdjuntos(i).Ruta <> "" Then + If IO.File.Exists(FicherosAdjuntos(i).Ruta) Then + myAttch = New Attachment(FicherosAdjuntos(i).Ruta) + cd = myAttch.ContentDisposition + cd.FileName = FicherosAdjuntos(i).NombreFichero + myMessage.Attachments.Add(myAttch) + End If + Else + If Not FicherosAdjuntos(i).Fichero Is Nothing AndAlso FicherosAdjuntos(i).Fichero.Length > 0 Then + myAttch = New Attachment(New IO.MemoryStream(FicherosAdjuntos(i).Fichero), FicherosAdjuntos(i).NombreFichero) + cd = myAttch.ContentDisposition + cd.FileName = FicherosAdjuntos(i).NombreFichero + myMessage.Attachments.Add(myAttch) + End If + + End If + Next + End If + + SmtpMail = New SmtpClient + + If ServidorSMTP <> "" Then SmtpMail.Host = ServidorSMTP + SmtpMail.Port = Puerto + If CuentaCorreo <> "" Then + SmtpMail.Credentials = New System.Net.NetworkCredential(CuentaCorreo, ContraseñaCorreo) + End If + SmtpMail.EnableSsl = UsarSSL + + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12 Or SecurityProtocolType.Ssl3 + ServicePointManager.ServerCertificateValidationCallback = Function(s As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) True + + SmtpMail.Send(myMessage) + Catch myexp As Exception + Throw New Exception(myexp.Message, myexp) + End Try + End Sub + + ''' + ''' Envía un correo electrónico. Puede recibir adjuntos mediante un Dictionary(Of String, Stream). + ''' + ''' + ''' + ''' + ''' + ''' + ''' Un Dictionary(Of String, Stream). La clave es el nombre del archivo adjunto, el valor es el contenido del archivo adjunto en forma de Stream. + ''' + ''' + ''' + ''' + ''' + ''' + ''' + Public Shared Sub EnviarCorreoElectrónico(ByVal servidorSMTP As String, + ByVal remitente As String, + ByVal destinatario As String, + ByVal asunto As String, + ByVal cuerpo As String, + Optional ByVal adjuntos As Dictionary(Of String, Stream) = Nothing, + Optional ByVal cc As String = "", + Optional ByVal bcc As String = "", + Optional ByVal cuentaCorreo As String = "", + Optional ByVal contraseñaCorreo As String = "", + Optional ByVal puerto As Integer = 25, + Optional ByVal usarSSL As Boolean = False, + Optional ByVal ResponderA As String = "", + Optional ByVal NombreRemitente As String = "") + Try + If NombreRemitente = "" Then NombreRemitente = remitente + Dim clienteSMTP As SmtpClient + Dim mensaje As MailMessage + + ' Si es alguna de las máquinas de desarrollo de danmun, el correo se envía solamente a danmun. Son pruebas. + 'If Environment.MachineName = "WIN81PDDANMUN" OrElse Environment.MachineName.ToUpper = "INTI81".ToUpper OrElse Environment.MachineName.ToUpper = "INTI10".ToUpper Then + ' destinatario = "danmun@tecnosis.eu" + 'End If + + asunto = asunto.Replace(Environment.NewLine, " ") + ' mensaje = New MailMessage(remitente, destinatario, asunto, cuerpo) + + mensaje = New MailMessage + mensaje.Body = cuerpo + mensaje.Subject = asunto + Dim destinatarios = destinatario.Split(";") + For Each destinatario In destinatarios + mensaje.To.Add(New MailAddress(destinatario.Trim, destinatario.Trim, Encoding.UTF8)) + Next + + + mensaje.BodyEncoding = Text.Encoding.Default + If ResponderA Is Nothing OrElse String.IsNullOrWhiteSpace(ResponderA) Then + mensaje.ReplyToList.Add(New MailAddress(remitente, NombreRemitente, Encoding.UTF8)) + Else + mensaje.ReplyToList.Add(New MailAddress(ResponderA, ResponderA, Encoding.UTF8)) + mensaje.ReplyToList.Add(New MailAddress(remitente, NombreRemitente, Encoding.UTF8)) + End If + mensaje.Sender = New MailAddress(remitente, NombreRemitente) + mensaje.From = New MailAddress(remitente, NombreRemitente) + + + If cc <> "" Then + mensaje.CC.Add(cc) + End If + If bcc <> "" Then + mensaje.Bcc.Add(bcc) + End If + If Not adjuntos Is Nothing Then + If adjuntos.Count > 0 Then + For Each adjunto In adjuntos + mensaje.Attachments.Add(New Attachment(adjunto.Value, adjunto.Key)) + Next + End If + End If + + clienteSMTP = New SmtpClient + + If servidorSMTP <> "" Then clienteSMTP.Host = servidorSMTP + clienteSMTP.Port = puerto + If cuentaCorreo <> "" Then + clienteSMTP.Credentials = New System.Net.NetworkCredential(cuentaCorreo, contraseñaCorreo) + End If + clienteSMTP.EnableSsl = usarSSL + + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12 Or SecurityProtocolType.Ssl3 + ServicePointManager.ServerCertificateValidationCallback = Function(s As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) True + + clienteSMTP.Send(mensaje) + Catch myexp As Exception + Throw New Exception(myexp.Message, myexp) + End Try + End Sub + + Public Shared Sub EnviaCorreoMultiplesDestinatarios(ByVal servidorSMTP As String, + ByVal remitente As String, + ByVal listaDestinatarios As List(Of String), + ByVal asunto As String, + ByVal cuerpo As String, + ByVal ficherosAdjuntos As List(Of String), + Optional ByVal CC As String = "", + Optional ByVal BCC As String = "", + Optional ByVal cuentaCorreo As String = "", + Optional ByVal contraseñaCorreo As String = "", + Optional ByVal puerto As Integer = 25, + Optional ByVal usarSSL As Boolean = False, + Optional ByVal responderA As String = "", + Optional ByVal NombreRemitente As String = "") + Try + If NombreRemitente = "" Then NombreRemitente = remitente + Dim misAdjuntos As Attachment + Dim clienteSMTP As SmtpClient + Dim miMensaje As MailMessage + Dim i, iCnt As Integer + + '// Si es alguna de kas máquinas de desarrollo de danmun, el correo se envía solamente a danmun. Son pruebas. + 'If Environment.MachineName = "WINXP-PARALLELS" OrElse + ' Environment.MachineName = "WINXP-DE-DANIEL" OrElse + ' Environment.MachineName.ToUpper = "Win81PDdanmun".ToUpper OrElse + ' Environment.MachineName.ToUpper.StartsWith("INTI") Then + ' listaDestinatarios = New List(Of String) + ' listaDestinatarios.Add("danmun@tecnosis.net") + 'End If + + For Each destinatario In listaDestinatarios + asunto = asunto.Replace(Environment.NewLine, " ") + miMensaje = New MailMessage(New MailAddress(remitente, NombreRemitente, Encoding.UTF8), New MailAddress(destinatario, destinatario, Encoding.UTF8)) With { + .Subject = asunto, + .Body = cuerpo, + .BodyEncoding = Text.Encoding.UTF8 + } + If responderA Is Nothing OrElse String.IsNullOrWhiteSpace(responderA) Then + miMensaje.ReplyToList.Add(New MailAddress(remitente, NombreRemitente)) + Else + miMensaje.ReplyToList.Add(New MailAddress(responderA, responderA)) + miMensaje.ReplyToList.Add(New MailAddress(remitente, NombreRemitente)) + End If + miMensaje.Sender = New MailAddress(remitente, NombreRemitente) + + + If CC <> "" Then + miMensaje.CC.Add(CC) + End If + If BCC <> "" Then + miMensaje.Bcc.Add(BCC) + End If + If Not ficherosAdjuntos Is Nothing Then + iCnt = ficherosAdjuntos.Count - 1 + For i = 0 To iCnt + If IO.File.Exists(ficherosAdjuntos(i)) Then + misAdjuntos = New Attachment(ficherosAdjuntos(i)) + miMensaje.Attachments.Add(misAdjuntos) + 'misAdjuntos.Dispose() + End If + Next + End If + + clienteSMTP = New SmtpClient + + If servidorSMTP <> "" Then clienteSMTP.Host = servidorSMTP + clienteSMTP.Port = puerto + If cuentaCorreo <> "" Then + clienteSMTP.Credentials = New System.Net.NetworkCredential(cuentaCorreo, contraseñaCorreo) + End If + clienteSMTP.EnableSsl = usarSSL + + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12 Or SecurityProtocolType.Ssl3 + ServicePointManager.ServerCertificateValidationCallback = Function(s As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) True + clienteSMTP.Send(miMensaje) + System.Threading.Thread.Sleep(1000 * (listaDestinatarios.Count - 1)) + Next + Catch e As Exception + Throw New Exception(e.Message, e) + End Try + End Sub + End Class + + Public Class FicheroAdjunto + Property Ruta As String + Property NombreFichero As String + Property Fichero As Byte() + End Class + + +End Namespace diff --git a/CorreoOAuth2.vb b/CorreoOAuth2.vb new file mode 100644 index 0000000..3e68152 --- /dev/null +++ b/CorreoOAuth2.vb @@ -0,0 +1,175 @@ +Imports System.Net +Imports System.Net.Mail +Imports System.Net.Security +Imports System.Security.Cryptography.X509Certificates +Imports Microsoft.Identity.Client +Imports System.Threading.Tasks +Imports System.Text +Public Class CorreoOAuth2 + + + Public Shared Async Function EnviaCorreoOffice365(ByVal ServidorSMTP As String, + ByVal ClientId As String, + ByVal TenantId As String, + ByVal ClientSecret As String, + ByVal Remitente As String, + ByVal Destinatario As String, + ByVal Asunto As String, + ByVal Cuerpo As String, + ByVal AttachMents As List(Of Attachment), + ByVal AlternateViews As List(Of AlternateView), + Optional ByVal CC As String = "", + Optional ByVal BCC As String = "", + Optional ByVal Puerto As Integer = 587, + Optional ByVal UsarSSL As Boolean = True, + Optional CuerpoenHTML As Boolean = False, + Optional ByVal ResponderA As String = "", + Optional NombreRemitente As String = "") As Task + + Try + If NombreRemitente = "" Then NombreRemitente = Remitente + + ' Validación para entornos de desarrollo + If Environment.MachineName = "WIN81PDDANMUN" OrElse Environment.MachineName.ToUpper = "INTI81".ToUpper OrElse Environment.MachineName.ToUpper = "INTI10".ToUpper Then + Destinatario = "danmun@tecnosis.eu" + End If + + If String.IsNullOrEmpty(Destinatario) AndAlso Not String.IsNullOrEmpty(CC) Then + Destinatario = CC + CC = "" + End If + + Asunto = Asunto.Replace(Environment.NewLine, " ") + Dim myMessage As New MailMessage() + + ' Configuración del mensaje + myMessage.Subject = Asunto + myMessage.Body = Cuerpo + myMessage.From = New MailAddress(Remitente, NombreRemitente) + myMessage.IsBodyHtml = CuerpoenHTML + + ' Destinatarios + For Each dest In Destinatario.Split(";"c).Where(Function(d) Not String.IsNullOrWhiteSpace(d)) + myMessage.To.Add(New MailAddress(dest.Trim(), dest.Trim(), Encoding.UTF8)) + Next + + ' CC + If Not String.IsNullOrEmpty(CC) Then + For Each c In CC.Split(";"c) + myMessage.CC.Add(c.Trim()) + Next + End If + + ' BCC + If Not String.IsNullOrEmpty(BCC) Then + For Each b In BCC.Split(";"c) + myMessage.Bcc.Add(b.Trim()) + Next + End If + + ' Responder a + If String.IsNullOrWhiteSpace(ResponderA) Then + myMessage.ReplyToList.Add(New MailAddress(Remitente, NombreRemitente)) + Else + myMessage.ReplyToList.Add(New MailAddress(ResponderA, ResponderA, Encoding.UTF8)) + End If + + ' Adjuntos + If AttachMents IsNot Nothing Then + For Each att In AttachMents + myMessage.Attachments.Add(att) + Next + End If + + ' Vistas alternativas + If AlternateViews IsNot Nothing Then + For Each av In AlternateViews + myMessage.AlternateViews.Add(av) + Next + End If + + ' Configuración del cliente SMTP + Dim SmtpMail As New SmtpClient(ServidorSMTP, Puerto) + SmtpMail.EnableSsl = UsarSSL + + ' Obtener token OAuth + Dim token = Await GetOAuthToken(ClientId, TenantId, ClientSecret, Remitente) + + ' Configurar credenciales OAuth + SmtpMail.Credentials = New NetworkCredential(Remitente, token) + SmtpMail.UseDefaultCredentials = False + + ' Configuración de seguridad + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 + ServicePointManager.ServerCertificateValidationCallback = + Function(s As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) True + + SmtpMail.Timeout = 1000 * 60 * 5 ' 5 minutos + + ' Envío del correo + Await SmtpMail.SendMailAsync(myMessage) + + Catch ex As Exception + Throw New Exception("Error al enviar correo: " & ex.Message, ex) + End Try + End Function + + Private Shared ListadoTokens As New List(Of TokenMicrosoft) + Private Shared Async Function GetOAuthToken(ByVal ClientId As String, ByVal TenantId As String, + ByVal ClientSecret As String, ByVal Remitente As String) As Task(Of String) + + Dim tm = ListadoTokens.FirstOrDefault(Function(x) x.id = ClientId & "-" & TenantId) + If tm Is Nothing Then + tm = New TokenMicrosoft + tm.id = ClientId & "-" & TenantId + ListadoTokens.Add(tm) + End If + If tm.FechaCreacion.HasValue = False OrElse Date.UtcNow.Subtract(tm.FechaCreacion).TotalMinutes > 30 Then + tm.FechaCreacion = Date.UtcNow + Dim app As IConfidentialClientApplication + Dim result As AuthenticationResult = Nothing + Dim scopes As String() = {"https://outlook.office365.com/.default"} + + ' Primero intentamos con credenciales de cliente (si hay ClientSecret) + If Not String.IsNullOrEmpty(ClientSecret) Then + app = ConfidentialClientApplicationBuilder.Create(ClientId) _ + .WithAuthority(AzureCloudInstance.AzurePublic, TenantId) _ + .WithClientSecret(ClientSecret) _ + .Build() + + Try + result = Await app.AcquireTokenForClient(scopes).ExecuteAsync() + Return result.AccessToken + Catch ex As MsalServiceException + Throw New Exception("Error al obtener token con credenciales de cliente: " & ex.Message, ex) + End Try + End If + + ' Si no hay ClientSecret o falló, intentamos con flujo interactivo (solo para desarrollo) + Dim publicApp = PublicClientApplicationBuilder.Create(ClientId) _ + .WithAuthority(AzureCloudInstance.AzurePublic, TenantId) _ + .Build() + + Try + result = Await publicApp.AcquireTokenInteractive(scopes).ExecuteAsync() + tm.Token = result.AccessToken + Return result.AccessToken + Catch ex As MsalServiceException + Throw New Exception("Error al obtener token interactivo: " & ex.Message, ex) + End Try + Else + Return tm.Token + End If + End Function + + + + + Private Class TokenMicrosoft + Property id As String + Property FechaCreacion As DateTime? + Property Token As String + End Class + + +End Class diff --git a/Datos.vb b/Datos.vb new file mode 100644 index 0000000..3d94a6c --- /dev/null +++ b/Datos.vb @@ -0,0 +1,209 @@ +Imports tsl5.Enumeraciones +Imports System.Runtime.Serialization +Imports System.Configuration +Imports System.Text.Json + +Namespace Datos + _ + Public Class BBDD + Property Tipo As TipoBD + Property Servidor As String + Property DataBase As String + Property Puerto As Integer + Property Usuario As String + Property Password As String + Property Fichero As String + Property SegundosTimeout As Integer = 300 + Property Pooling As Boolean + Property SSL As Boolean + Property FicheroCertificado As String + Property PasswordCertificado As String + Public Property id As String + Public Shared Function ObtieneJSONBD(idBD As String, idUsuarioBD As String, idServidor As String, tipo As TipoBD) As String + Dim bd As New tsl5.Datos.BBDD + With bd + .Usuario = ConfigurationManager.AppSettings(idUsuarioBD) + If .Usuario = "" Then Throw New Exception("Usuario bd " & idUsuarioBD & " no encontrado en la configuracion") + .DataBase = ConfigurationManager.AppSettings(idBD & "Esquema") + .Password = ConfigurationManager.AppSettings(idBD & "Pass" & idUsuarioBD) + .Servidor = ConfigurationManager.AppSettings(idBD & "Serv" & idServidor) + .Tipo = tipo + End With + Dim options As New JsonSerializerOptions() With {.IncludeFields = True} + Dim JSONString = JsonSerializer.Serialize(bd, options) + Return JSONString + End Function + End Class + Public Class DatosConfiguracionServicio + Property NombreServicio As String + Property PuertoNR As Integer + Property BasesDatos As New List(Of BBDD) + Property Detener As Boolean + Property Directorios As New Directorios + Property Version As String + Property NumeroBDConfiguracion As Integer + Shared Function CargaConfiguracion(FicheroConfiguracion As String, DllProcesos As String) As DatosConfiguracionServicio + Dim dcs As New DatosConfiguracionServicio + dcs = tsl5.Utilidades.DeserializaFichero(FicheroConfiguracion, GetType(DatosConfiguracionServicio)) + If DllProcesos <> "" And IO.File.Exists(DllProcesos) Then + Try + Dim ensamblado As System.Reflection.Assembly + ensamblado = System.Reflection.Assembly.LoadFrom(System.Windows.Forms.Application.StartupPath & "\" & DllProcesos) + dcs.Version = ensamblado.GetName.Version.ToString + Catch + End Try + End If + dcs.Directorios.DirectorioConfiguraciones = IO.Path.GetDirectoryName(FicheroConfiguracion) + Return dcs + End Function + End Class + Public Class Directorios + Property Temporal As String + Property Flags As String + Property Plantillas As String + Property Logs As String + Property Datos As String + Property DatosLocales As String + Property DirectorioConfiguraciones As String + End Class + Public Class DatosConfiguracionCliente + Property ServidorActivo As New Servidor + Property ConstantesCliente As New ConstantesCliente + Property NombreEjecutable As String + End Class + Public Class ConstantesCliente + Property NombreServicio As String + Property RutaAplicacion As String + Property RutaDatos As String + Property RutaTmp As String + End Class + Public Class DatosConfiguracionAplicacion + Property Servidores As New List(Of Servidor) + Property ConstantesCliente As New ConstantesCliente + End Class + Public Class DatosSesionCliente + Property IdSesion As Long + Property idUsuario As Integer + Property idGrupoMenu As Integer + Property idGruboBD As Integer + End Class + + Public Class DatosConexionCliente + Property BasesDatos As New List(Of BBDD) + Property NumeroBDConfiguracion As Integer + ' Property ServidorActualizador As New ServidorActualizacion + End Class + Public Class DatosOperacion + Property Usuario As String + Property Password As String + Property IdSesion As Long + Property Operacion As Enumeraciones.TiposOperacionesEnum + Property Datos As Object + End Class + ' Public Class Actualizador + ' Property Nombre As String + ' 'Property Tipo As Enumeraciones.tipoAplicacionActualizableEnum + ' Property ServidorLocal As New ServidorActualizacion + ' Property ServidorRemoto As New ServidorActualizacion + ' Property FicheroConfiguracionXML As String + ' ' Property RutaEnsamblados As String + ' Property RutaDatos As String + 'End Class + ' Public Class ActualizadorPropio + ' Property FicheroConfiguracionXML As String + ' ' Property RutaEnsamblados As String + ' Property RutaDatos As String + ' Property RutaLogs As String + 'End Class + + ' Public Class Actualizacion + ' Property Nombre As String + ' Property Elementos As New List(Of ElementoActualizable) + + 'End Class + ' Public Class ElementoActualizable + ' Property NombreFichero As String + ' Property RutaFichero As String + ' Property TipoFichero As Enumeraciones.tipoFicheroActualizableEnum + ' Property FechaModificacion As DateTime + ' Property Comparacion As Enumeraciones.ComparacionEnum + 'End Class + Public Class Servidor + Property Servidor As String + Property Puerto As Integer + Property Localizacion As Enumeraciones.LocalizacionesEnum + End Class + + ' Public Class ServidorActualizacion + ' Property TipoServidorActualizacion As Enumeraciones.tiposServidoresActualizacionEnum + ' Property Servidor As String + ' Property Puerto As Integer + ' Property SSL As Boolean + ' Property Pasivo As Boolean + ' Property Usuario As String + ' Property Contraseña As String + ' Property Directorio As String + 'End Class + ' Public Class DatosActualizadorAuxiliar + ' Property RutaEjecutable As String + ' Property Actualizacion As Datos.Actualizacion + ' Property ConfiguracionCliente As Datos.DatosConfiguracionCliente + ' Property ConexionCliente As Datos.DatosConexionCliente + 'End Class + ' Public Class DatosLogs + ' Friend EmailDestinatarios As String + ' Friend ServidorSMTP As String + ' Friend Cuenta As String + ' Friend Contraseña As String + ' Friend Puerto As Integer + ' Friend UsarSSL As Boolean + 'End Class +End Namespace +Namespace Enumeraciones + Public Enum LocalizacionesEnum + Local = 0 + Remoto = 1 + End Enum + Public Enum TiposOperacionesEnum + ObtieneFichero = 0 + ObtieneString = 1 + End Enum + 'Public Enum TiposServidoresActualizacionEnum + ' Samba = 0 + ' FTP = 1 + 'End Enum + 'Public Enum ComparacionEnum + ' Sin_Cambios = 0 + ' Diferente = 1 + ' Nuevo = 2 + ' Inexistente = 3 + 'End Enum + 'Public Enum TipoActualizacionEnum + ' No_Actualizar = 0 + ' Actualizacion_Sin_Reinicio = 1 + ' Actualizacion_Con_Reinicio = 2 + ' Actualizacion_Mixta = 3 + 'End Enum + 'Public Enum TipoFicheroActualizableEnum + ' Ensamblado = 0 + ' Datos = 1 + 'End Enum + Public Enum TipoLog + InicioServicio = 0 + Fallo = 1 + Advertencia = 2 + ErroresEnFtp = 3 + Otros = 4 + Informacion = 5 + Depuracion = 6 + FinServicio = 99 + End Enum + _ + _ + Public Enum TipoBD + MYSQL + LOCALDB + SQLSERVER + ORACLE + End Enum +End Namespace diff --git a/Extensiones/BinaryReaderExtensions.vb b/Extensiones/BinaryReaderExtensions.vb new file mode 100644 index 0000000..44f4e1b --- /dev/null +++ b/Extensiones/BinaryReaderExtensions.vb @@ -0,0 +1,64 @@ +Imports System.Runtime.CompilerServices +Namespace Extensiones + Public Module BinaryReaderExtensions + + Public Function ReadAllBytes(ByVal reader As IO.BinaryReader) As Byte() + Const bufferSize As Integer = 4095 + + Using ms = New IO.MemoryStream() + Dim buffer As Byte() = New Byte(bufferSize) {} + Dim count As Integer + Dim bFinish As Boolean = False + + Do Until bFinish + count = reader.Read(buffer, 0, buffer.Length) + If count = 0 Then + bFinish = True + Else + ms.Write(buffer, 0, count) + End If + Loop + + 'While (count = reader.Read(buffer, 0, buffer.Length)) <> 0 + ' ms.Write(buffer, 0, count) + 'End While + + Return ms.ToArray() + End Using + End Function + End Module + Public Class LineReader + Inherits IO.BinaryReader + + Public Sub New(ByVal stream As IO.Stream, ByVal encoding As Text.Encoding) + MyBase.New(stream, encoding) + End Sub + + Public currentPos As Integer + Private stringBuffer As Text.StringBuilder + + Public Function ReadLine() As String + currentPos = 0 + Dim buf As Char() = New Char(0) {} + stringBuffer = New Text.StringBuilder() + Dim lineEndFound As Boolean = False + + While MyBase.Read(buf, 0, 1) > 0 + currentPos += 1 + + If buf(0) = Microsoft.VisualBasic.Strings.ChrW(10) Then + lineEndFound = True + Else + stringBuffer.Append(buf(0)) + End If + + If lineEndFound Then + Return stringBuffer.ToString() + End If + End While + + Return stringBuffer.ToString() + End Function + End Class + +End Namespace \ No newline at end of file diff --git a/Extensiones/DateTimeExtensions.vb b/Extensiones/DateTimeExtensions.vb new file mode 100644 index 0000000..1c40104 --- /dev/null +++ b/Extensiones/DateTimeExtensions.vb @@ -0,0 +1,158 @@ +Imports System.Runtime.CompilerServices + +Namespace Extensiones + Public Module DateTimeExtensions + + Public Function FechaNulableAString(Fecha As Date?) As String + If Fecha Is Nothing Then + Return "" + Else + Return Fecha.Value.ToString("dd/MM/yyyy") + End If + End Function + + + Public Function FechaHoraStringADate(Fecha As String, Optional SinSegundos As Boolean = False) As DateTime? + Dim dt As New DateTime + If Fecha = "0" Then + Return Nothing + Else + If Fecha.Contains("_") Then + Dim s() As String = Fecha.Split("_") + dt = New DateTime(s(0), s(1), s(2), s(3), s(4), s(5)) + Else + If Fecha.Contains(".") And (Fecha.Length = 13 Or Fecha.Length = 12) Then + Fecha = Fecha.Split(".")(0) & Fecha.Split(".")(1).Substring(0, 2) & Math.Round(Double.Parse(Fecha.Split(".")(1).Substring(2)) * 60 / 100, 0, MidpointRounding.AwayFromZero).ToString.PadLeft(2, "0") & "00" + dt = New DateTime(Fecha.Substring(0, 4), Fecha.Substring(4, 2), Fecha.Substring(6, 2), Fecha.Substring(8, 2), Fecha.Substring(10, 2), Fecha.Substring(12, 2)) + Else + If Fecha.Length = 14 Then + dt = New DateTime(Fecha.Substring(0, 4), Fecha.Substring(4, 2), Fecha.Substring(6, 2), Fecha.Substring(8, 2), Fecha.Substring(10, 2), Fecha.Substring(12, 2)) + Else + If Fecha.Length = 19 Then + dt = New DateTime(Fecha.Substring(0, 4), Fecha.Substring(5, 2), Fecha.Substring(8, 2), Fecha.Substring(11, 2), Fecha.Substring(14, 2), Fecha.Substring(17, 2)) + Else + If Fecha.Length = 6 Then Fecha = "19" & Fecha + If Fecha.Contains(".") Then + Dim horas = Double.Parse(Fecha.Split(".")(1).PadRight(6, "0")) / 10000 + Dim Segundos = horas * 60 * 60 + Dim ts = TimeSpan.FromSeconds(Segundos) + dt = New DateTime(Integer.Parse(Fecha.Substring(0, 4)), Integer.Parse(Fecha.Substring(4, 2)), Integer.Parse(Fecha.Substring(6, 2))) + dt = dt + ts + Else + dt = New Date(Integer.Parse(Fecha.Substring(0, 4)), Integer.Parse(Fecha.Substring(4, 2)), Integer.Parse(Fecha.Substring(6, 2))) + End If + End If + End If + End If + End If + If SinSegundos Then dt = New Date(dt.Year, dt.Month, dt.Day, dt.Hour, dt.Minute, 0) + Return dt + End If + End Function + + + + + Public Function Maximo(Fecha1 As Nullable(Of DateTime), Fecha2 As Nullable(Of DateTime)) As Nullable(Of DateTime) + Dim t1, t2 As Long + If Fecha1.HasValue Then t1 = Fecha1.Value.Ticks + If Fecha2.HasValue Then t2 = Fecha2.Value.Ticks + If t1 > t2 Then + Return Fecha1 + Else + Return Fecha2 + End If + End Function + + Public Function Minimo(Fecha1 As Nullable(Of DateTime), Fecha2 As Nullable(Of DateTime)) As Nullable(Of DateTime) + Dim t1, t2 As Long + If Fecha1.HasValue Then t1 = Fecha1.Value.Ticks + If Fecha2.HasValue Then t2 = Fecha2.Value.Ticks + If t1 < t2 Then + Return Fecha1 + Else + Return Fecha2 + End If + End Function + + Public Function MesCastellano(Fecha As Date) As String + Select Case Fecha.Month + Case 1 + Return "Enero" + Case 2 + Return "Febrero" + Case 3 + Return "Marzo" + Case 4 + Return "Abril" + Case 5 + Return "Mayo" + Case 6 + Return "Junio" + Case 7 + Return "Julio" + Case 8 + Return "Agosto" + Case 9 + Return "Septiembre" + Case 10 + Return "Octubre" + Case 11 + Return "Noviembre" + Case Else + Return "Diciembre" + + End Select + End Function + + Public Function ValorNumerico(Fecha As Date) As Long + Return Fecha.Year * 10000 + Fecha.Month * 100 + Fecha.Day + End Function + + Public Function ValorNumerico(Fecha As Nullable(Of Date)) As Long + If Fecha Is Nothing Then + Return 0 + Else + Return Fecha.Value.Year * 10000 + Fecha.Value.Month * 100 + Fecha.Value.Day + End If + End Function + + Public Function UnixTimeStampToDateTime(ByVal unixTimeStamp As Double) As DateTime + Dim dateTime As DateTime = New DateTime(1970, 1, 1, 0, 0, 0, 0, DateTimeKind.Utc) + dateTime = dateTime.AddSeconds(unixTimeStamp).ToLocalTime() + Return dateTime + End Function + 'Public Function Maximo(Fecha1 As DateTime, Fecha2 As DateTime) As DateTime + ' Dim t1, t2 As Long + ' If Fecha1 Is Nothing Then t1 = Fecha1.Ticks + ' If Not Fecha2 Is Nothing Then t2 = Fecha2.Ticks + ' If t1 > t2 Then + ' Return Fecha1 + ' Else + ' Return Fecha2 + ' End If + 'End Function + + 'Public Function Minimo(Fecha1 As Nullable(Of DateTime), Fecha2 As Nullable(Of DateTime)) As DateTime + ' Dim t1, t2 As Long + ' If Fecha1.HasValue Then t1 = Fecha1.Value.Ticks + ' If Fecha2.HasValue Then t2 = Fecha2.Value.Ticks + ' If t1 < t2 Then + ' Return Fecha1 + ' Else + ' Return Fecha2 + ' End If + 'End Function + + 'Public Function Maximo(Fecha1 As Nullable(Of Date), Fecha2 As Nullable(Of Date)) As Date + ' Dim t1, t2 As Long + ' If Fecha1.HasValue Then t1 = Fecha1.Value.Ticks + ' If Fecha2.HasValue Then t2 = Fecha2.Value.Ticks + ' If t1 > t2 Then + ' Return Fecha1 + ' Else + ' Return Fecha2 + ' End If + 'End Function + End Module +End Namespace diff --git a/Extensiones/DoubleExtensions.vb b/Extensiones/DoubleExtensions.vb new file mode 100644 index 0000000..a75a3f3 --- /dev/null +++ b/Extensiones/DoubleExtensions.vb @@ -0,0 +1,26 @@ +Imports System.Runtime.CompilerServices + +Namespace Extensiones + Public Module DoubleExtensions + Function APalabras(Numero As Double) As String + Return NumerosAPalabras.ToCardinal(Numero) + End Function + + Function AEurosEnLetras(Numero As Double) As String + Dim EnteroDecimal As Int32 = Int(Math.Round((Numero - Int(Numero)) * Math.Pow(10, 2))) + If EnteroDecimal > 0 Then + Dim convertidor As New NumerosAPalabras(True, "", "Euros con", True) + Return convertidor.ToCustomCardinal(Numero).Trim & " céntimos" + Else + Return NumerosAPalabras.ToCardinal(Numero).Trim & " Euros" + End If + End Function + Function EntreValores(Valor As Double, RangoMenor As Double, RangoMayor As Double) As Boolean + Return Valor >= RangoMenor And Valor <= RangoMayor + End Function + Function NothingA0(Valor As Double?) As Double + Return If(Valor.HasValue, Valor, 0) + End Function + + End Module +End Namespace diff --git a/Extensiones/Dynamic.vb b/Extensiones/Dynamic.vb new file mode 100644 index 0000000..b218b6e --- /dev/null +++ b/Extensiones/Dynamic.vb @@ -0,0 +1,1964 @@ +Option Strict On +Option Explicit On + +Imports System.Collections.Generic +Imports System.Text +Imports System.Linq +Imports System.Linq.Expressions +Imports System.Reflection +Imports System.Reflection.Emit +Imports System.Threading +Imports System.Runtime.CompilerServices + +Namespace Extensiones + Public Module DynamicQueryable + + _ + Public Function Suma(source As IQueryable, member As String) As Object + If source Is Nothing Then + Throw New ArgumentNullException("source") + End If + If member Is Nothing Then + Throw New ArgumentNullException("member") + End If + + ' Properties + Dim [property] As Reflection.PropertyInfo = source.ElementType.GetProperty(member) + Dim parameter As Expressions.ParameterExpression = Expressions.Expression.Parameter(source.ElementType, "s") + Dim selector As Expressions.Expression = Expressions.Expression.Lambda(Expressions.Expression.MakeMemberAccess(parameter, [property]), parameter) + ' We've tried to find an expression of the type Expression>, + ' which is expressed as ( (TSource s) => s.Price ); + + ' Method + ' should match the type of the property + Dim sumMethod As Reflection.MethodInfo = GetType(Queryable).GetMethods().First(Function(m) m.Name = "Sum" AndAlso m.ReturnType = [property].PropertyType AndAlso m.IsGenericMethod) + + Return source.Provider.Execute(Expressions.Expression.Call(Nothing, sumMethod.MakeGenericMethod(source.ElementType), source.Expression, Expression.Quote(selector))) + End Function + + _ + Public Function Where(Of T)(ByVal source As IQueryable(Of T), ByVal predicate As String, ByVal ParamArray values() As Object) As IQueryable(Of T) + Return DirectCast(Where(DirectCast(source, IQueryable), predicate, values), IQueryable(Of T)) + End Function + + _ + Public Function Where(ByVal source As IQueryable, ByVal predicate As String, ByVal ParamArray values() As Object) As IQueryable + If source Is Nothing Then Throw New ArgumentNullException("source") + If predicate Is Nothing Then Throw New ArgumentNullException("predicate") + Dim lambda As LambdaExpression = DynamicExpression.ParseLambda(source.ElementType, GetType(Boolean), predicate, values) + Return source.Provider.CreateQuery( _ + Expression.Call( _ + GetType(Queryable), "Where", _ + New Type() {source.ElementType}, _ + source.Expression, Expression.Quote(lambda))) + End Function + + _ + Public Function [Select](ByVal source As IQueryable, ByVal selector As String, ByVal ParamArray values() As Object) As IQueryable + If source Is Nothing Then Throw New ArgumentNullException("source") + If selector Is Nothing Then Throw New ArgumentNullException("selector") + Dim lambda As LambdaExpression = DynamicExpression.ParseLambda(source.ElementType, Nothing, selector, values) + Return source.Provider.CreateQuery( _ + Expression.Call( _ + GetType(Queryable), "Select", _ + New Type() {source.ElementType, lambda.Body.Type}, _ + source.Expression, Expression.Quote(lambda))) + End Function + + _ + Public Function OrderBy(Of T)(ByVal source As IQueryable(Of T), ByVal ordering As String, ByVal ParamArray values() As Object) As IQueryable(Of T) + Return DirectCast(OrderBy(DirectCast(source, IQueryable), ordering, values), IQueryable(Of T)) + End Function + + _ + Public Function OrderBy(ByVal source As IQueryable, ByVal ordering As String, ByVal ParamArray values() As Object) As IQueryable + If (source Is Nothing) Then Throw New ArgumentNullException("source") + If (ordering Is Nothing) Then Throw New ArgumentNullException("ordering") + Dim parameters = New ParameterExpression() { _ + Expression.Parameter(source.ElementType, "")} + Dim parser As New ExpressionParser(parameters, ordering, values) + Dim orderings As IEnumerable(Of DynamicOrdering) = parser.ParseOrdering() + Dim queryExpr As Expression = source.Expression + Dim methodAsc = "OrderBy" + Dim methodDesc = "OrderByDescending" + For Each o As DynamicOrdering In orderings + queryExpr = Expression.Call( _ + GetType(Queryable), If(o.Ascending, methodAsc, methodDesc), _ + New Type() {source.ElementType, o.Selector.Type}, _ + queryExpr, Expression.Quote(Expression.Lambda(o.Selector, parameters))) + methodAsc = "ThenBy" + methodDesc = "ThenByDescending" + Next o + Return source.Provider.CreateQuery(queryExpr) + End Function + + _ + Public Function Take(ByVal source As IQueryable, ByVal count As Integer) As IQueryable + If (source Is Nothing) Then Throw New ArgumentNullException("source") + Return source.Provider.CreateQuery( _ + Expression.Call( _ + GetType(Queryable), "Take", _ + New Type() {source.ElementType}, _ + source.Expression, Expression.Constant(count))) + End Function + + _ + Public Function Skip(ByVal source As IQueryable, ByVal count As Integer) As IQueryable + If (source Is Nothing) Then Throw New ArgumentNullException("source") + Return source.Provider.CreateQuery( _ + Expression.Call( _ + GetType(Queryable), "Skip", _ + New Type() {source.ElementType}, _ + source.Expression, Expression.Constant(count))) + End Function + + _ + Public Function GroupBy(ByVal source As IQueryable, ByVal keySelector As String, ByVal elementSelector As String, ByVal ParamArray values() As Object) As IQueryable + If (source Is Nothing) Then Throw New ArgumentNullException("source") + If (keySelector Is Nothing) Then Throw New ArgumentNullException("keySelector") + If (elementSelector Is Nothing) Then Throw New ArgumentNullException("elementSelector") + Dim keyLambda As LambdaExpression = DynamicExpression.ParseLambda(source.ElementType, Nothing, keySelector, values) + Dim elementLambda As LambdaExpression = DynamicExpression.ParseLambda(source.ElementType, Nothing, elementSelector, values) + Return source.Provider.CreateQuery( _ + Expression.Call( _ + GetType(Queryable), "GroupBy", _ + New Type() {source.ElementType, keyLambda.Body.Type, elementLambda.Body.Type}, _ + source.Expression, Expression.Quote(keyLambda), Expression.Quote(elementLambda))) + End Function + + _ + Public Function Any(ByVal source As IQueryable) As Boolean + If (source Is Nothing) Then Throw New ArgumentNullException("source") + Return CBool(source.Provider.Execute( _ + Expression.Call( _ + GetType(Queryable), "Any", _ + New Type() {source.ElementType}, source.Expression))) + End Function + + _ + Public Function Count(ByVal source As IQueryable) As Integer + If (source Is Nothing) Then Throw New ArgumentNullException("source") + Return CInt(source.Provider.Execute( _ + Expression.Call( _ + GetType(Queryable), "Count", _ + New Type() {source.ElementType}, source.Expression))) + End Function + End Module + + Public MustInherit Class DynamicClass + Public Overrides Function ToString() As String + Dim props = Me.GetType().GetProperties(BindingFlags.Instance Or BindingFlags.Public) + Dim sb As New StringBuilder() + sb.Append("{") + For i As Integer = 0 To props.Length - 1 + If (i > 0) Then sb.Append(", ") + sb.Append(props(i).Name) + sb.Append("=") + sb.Append(props(i).GetValue(Me, Nothing)) + Next i + + sb.Append("}") + + Return sb.ToString() + End Function + End Class + + Public Class DynamicProperty + Private _name As String + Private _type As Type + + Public Sub New(ByVal name As String, ByVal type As Type) + If (name Is Nothing) Then Throw New ArgumentNullException("name") + If (type Is Nothing) Then Throw New ArgumentNullException("type") + Me._name = name + Me._type = type + End Sub + + Public ReadOnly Property Name() As String + Get + Return _name + End Get + End Property + + Public ReadOnly Property Type() As Type + Get + Return _type + End Get + End Property + End Class + + Public Module DynamicExpression + Public Function Parse(ByVal resultType As Type, ByVal expression As String, ByVal ParamArray values() As Object) As Expression + Dim parser As New ExpressionParser(Nothing, expression, values) + Return parser.Parse(resultType) + End Function + + Public Function ParseLambda(ByVal itType As Type, ByVal resultType As Type, ByVal expressionStr As String, ByVal ParamArray values() As Object) As LambdaExpression + Return ParseLambda(New ParameterExpression() {Expression.Parameter(itType, "")}, resultType, expressionStr, values) + End Function + + Public Function ParseLambda(ByVal parameters() As ParameterExpression, ByVal resultType As Type, ByVal expressionStr As String, ByVal ParamArray values() As Object) As LambdaExpression + Dim parser As New ExpressionParser(parameters, expressionStr, values) + Return Expression.Lambda(parser.Parse(resultType), parameters) + End Function + + Public Function ParseLambda(Of T, S)(ByVal expression As String, ByVal ParamArray values() As Object) As Expression(Of Func(Of T, S)) + Return DirectCast(ParseLambda(GetType(T), GetType(S), expression, values), Expression(Of Func(Of T, S))) + End Function + + Public Function CreateClass(ByVal ParamArray properties() As DynamicProperty) As Type + Return ClassFactory.Instance.GetDynamicClass(properties) + End Function + + Public Function CreateClass(ByVal properties As IEnumerable(Of DynamicProperty)) As Type + Return ClassFactory.Instance.GetDynamicClass(properties) + End Function + End Module + + Friend Class DynamicOrdering + Public Selector As Expression + Public Ascending As Boolean + End Class + + Friend Class Signature : Implements IEquatable(Of Signature) + Public properties() As DynamicProperty + Public hashCode As Integer + + Public Sub New(ByVal properties As IEnumerable(Of DynamicProperty)) + Me.properties = properties.ToArray() + hashCode = 0 + For Each p As DynamicProperty In Me.properties + hashCode = hashCode Xor p.Name.GetHashCode() Xor p.Type.GetHashCode() + Next p + End Sub + + Public Overrides Function GetHashCode() As Integer + Return hashCode + End Function + + Public Overrides Function Equals(ByVal obj As Object) As Boolean + Dim cast = TryCast(obj, Signature) + Return If(cast IsNot Nothing, Equals(cast), False) + End Function + + Public Overloads Function Equals(ByVal other As Signature) As Boolean Implements IEquatable(Of Signature).Equals + If (properties.Length <> other.properties.Length) Then Return False + For i As Integer = 0 To properties.Length - 1 + If (properties(i).Name <> other.properties(i).Name OrElse _ + Not properties(i).Type.Equals(other.properties(i).Type)) Then + Return False + End If + Next i + Return True + End Function + End Class + + Friend Class ClassFactory + Public Shared ReadOnly Instance As New ClassFactory() + + Shared Sub New() + ' Trigger lazy initialization of static fields + End Sub + + Private [module] As ModuleBuilder + Private classes As Dictionary(Of Signature, Type) + Private classCount As Integer + Private rwLock As ReaderWriterLock + + Private Sub New() + Dim name As New AssemblyName("DynamicClasses") + Dim assembly As AssemblyBuilder = AppDomain.CurrentDomain.DefineDynamicAssembly(name, AssemblyBuilderAccess.Run) +#If ENABLE_LINQ_PARTIAL_TRUST Then + call new ReflectionPermission(PermissionState.Unrestricted).Assert() +#End If + Try + [module] = assembly.DefineDynamicModule("Module") + Finally +#If ENABLE_LINQ_PARTIAL_TRUST Then + PermissionSet.RevertAssert() +#End If + End Try + classes = New Dictionary(Of Signature, Type)() + rwLock = New ReaderWriterLock() + End Sub + + Public Function GetDynamicClass(ByVal properties As IEnumerable(Of DynamicProperty)) As Type + rwLock.AcquireReaderLock(Timeout.Infinite) + + Try + Dim signature As New Signature(properties) + Dim type As Type = Nothing + If Not classes.TryGetValue(signature, type) Then + type = CreateDynamicClass(signature.properties) + classes.Add(signature, type) + End If + Return type + Finally + rwLock.ReleaseReaderLock() + End Try + End Function + + Private Function CreateDynamicClass(ByVal properties() As DynamicProperty) As Type + Dim cookie As LockCookie = rwLock.UpgradeToWriterLock(Timeout.Infinite) + Try + Dim typeName = "DynamicClass" & (classCount + 1) +#If ENABLE_LINQ_PARTIAL_TRUST Then + Call New ReflectionPermission(PermissionState.Unrestricted).Assert() +#End If + Try + Dim tb As TypeBuilder = Me.module.DefineType(typeName, TypeAttributes.Class Or _ + TypeAttributes.Public, GetType(DynamicClass)) + Dim fields() As FieldInfo = GenerateProperties(tb, properties) + GenerateEquals(tb, fields) + GenerateGetHashCode(tb, fields) + Dim result As Type = tb.CreateType() + classCount += 1 + Return result + Finally +#If ENABLE_LINQ_PARTIAL_TRUST Then + PermissionSet.RevertAssert() +#End If + End Try + Finally + rwLock.DowngradeFromWriterLock(cookie) + End Try + End Function + + Private Function GenerateProperties(ByVal tb As TypeBuilder, ByVal properties() As DynamicProperty) As FieldInfo() + Dim fields(properties.Length - 1) As FieldInfo + + For i As Integer = 0 To properties.Length - 1 + Dim dp As DynamicProperty = properties(i) + Dim fb As FieldBuilder = tb.DefineField("_" & dp.Name, dp.Type, FieldAttributes.Private) + Dim pb As PropertyBuilder = tb.DefineProperty(dp.Name, PropertyAttributes.HasDefault, dp.Type, Nothing) + Dim mbGet As MethodBuilder = tb.DefineMethod("get_" + dp.Name, _ + MethodAttributes.Public Or MethodAttributes.SpecialName Or MethodAttributes.HideBySig, _ + dp.Type, Type.EmptyTypes) + Dim genGet As ILGenerator = mbGet.GetILGenerator() + genGet.Emit(OpCodes.Ldarg_0) + genGet.Emit(OpCodes.Ldfld, fb) + genGet.Emit(OpCodes.Ret) + Dim mbSet As MethodBuilder = tb.DefineMethod("set_" & dp.Name, _ + MethodAttributes.Public Or MethodAttributes.SpecialName Or MethodAttributes.HideBySig, _ + Nothing, New Type() {dp.Type}) + Dim genSet As ILGenerator = mbSet.GetILGenerator() + genSet.Emit(OpCodes.Ldarg_0) + genSet.Emit(OpCodes.Ldarg_1) + genSet.Emit(OpCodes.Stfld, fb) + genSet.Emit(OpCodes.Ret) + pb.SetGetMethod(mbGet) + pb.SetSetMethod(mbSet) + fields(i) = fb + Next i + + Return fields + End Function + + Private Sub GenerateEquals(ByVal tb As TypeBuilder, ByVal fields As FieldInfo()) + Dim mb As MethodBuilder = tb.DefineMethod("Equals", _ + MethodAttributes.Public Or MethodAttributes.ReuseSlot Or _ + MethodAttributes.Virtual Or MethodAttributes.HideBySig, _ + GetType(Boolean), New Type() {GetType(Object)}) + Dim gen As ILGenerator = mb.GetILGenerator() + Dim other As LocalBuilder = gen.DeclareLocal(tb) + Dim [next] As Label = gen.DefineLabel() + gen.Emit(OpCodes.Ldarg_1) + gen.Emit(OpCodes.Isinst, tb) + gen.Emit(OpCodes.Stloc, other) + gen.Emit(OpCodes.Ldloc, other) + gen.Emit(OpCodes.Brtrue_S, [next]) + gen.Emit(OpCodes.Ldc_I4_0) + gen.Emit(OpCodes.Ret) + gen.MarkLabel([next]) + For Each field As FieldInfo In fields + Dim ft As Type = field.FieldType + Dim ct As Type = GetType(EqualityComparer(Of Object)).GetGenericTypeDefinition().MakeGenericType(ft) + [next] = gen.DefineLabel() + gen.EmitCall(OpCodes.Call, ct.GetMethod("get_Default"), Nothing) + gen.Emit(OpCodes.Ldarg_0) + gen.Emit(OpCodes.Ldfld, field) + gen.Emit(OpCodes.Ldloc, other) + gen.Emit(OpCodes.Ldfld, field) + gen.EmitCall(OpCodes.Callvirt, ct.GetMethod("Equals", New Type() {ft, ft}), Nothing) + gen.Emit(OpCodes.Brtrue_S, [next]) + gen.Emit(OpCodes.Ldc_I4_0) + gen.Emit(OpCodes.Ret) + gen.MarkLabel([next]) + Next + gen.Emit(OpCodes.Ldc_I4_1) + gen.Emit(OpCodes.Ret) + End Sub + + Private Sub GenerateGetHashCode(ByVal tb As TypeBuilder, ByVal fields As FieldInfo()) + Dim mb As MethodBuilder = tb.DefineMethod("GetHashCode", _ + MethodAttributes.Public Or MethodAttributes.ReuseSlot Or _ + MethodAttributes.Virtual Or MethodAttributes.HideBySig, _ + GetType(Integer), Type.EmptyTypes) + Dim gen As ILGenerator = mb.GetILGenerator() + gen.Emit(OpCodes.Ldc_I4_0) + For Each field As FieldInfo In fields + Dim ft As Type = field.FieldType + Dim ct As Type = GetType(EqualityComparer(Of Object)).GetGenericTypeDefinition().MakeGenericType(ft) + gen.EmitCall(OpCodes.Call, ct.GetMethod("get_Default"), Nothing) + gen.Emit(OpCodes.Ldarg_0) + gen.Emit(OpCodes.Ldfld, field) + gen.EmitCall(OpCodes.Callvirt, ct.GetMethod("GetHashCode", New Type() {ft}), Nothing) + gen.Emit(OpCodes.Xor) + Next + gen.Emit(OpCodes.Ret) + End Sub + End Class + + Public NotInheritable Class ParseException : Inherits Exception + Private positionValue As Integer + + Public Sub New(ByVal message As String, ByVal position As Integer) + MyBase.New(message) + Me.positionValue = position + End Sub + + Public ReadOnly Property Position() As Integer + Get + Return positionValue + End Get + End Property + + Public Overrides Function ToString() As String + Return String.Format(Res.ParseExceptionFormat, Message, Position) + End Function + End Class + + Class ExpressionParser + Structure Token + Public id As TokenId + Public text As String + Public pos As Integer + End Structure + + Enum TokenId + Unknown + [End] + Identifier + StringLiteral + IntegerLiteral + RealLiteral + Exclamation + Percent + Amphersand + OpenParen + CloseParen + Asterisk + Plus + Comma + Minus + Dot + Slash + Colon + LessThan + Equal + GreaterThan + Question + OpenBracket + CloseBracket + Bar + ExclamationEqual + DoubleAmphersand + LessThanEqual + LessGreater + DoubleEqual + GreaterThanEqual + DoubleBar + End Enum + + Interface ILogicalSignatures + Sub F(ByVal x As Boolean, ByVal y As Boolean) + Sub F(ByVal x? As Boolean, ByVal y? As Boolean) + End Interface + + Interface IArithmeticSignatures + Sub F(ByVal x As Integer, ByVal y As Integer) + Sub F(ByVal x As UInteger, ByVal y As UInteger) + Sub F(ByVal x As Long, ByVal y As Long) + Sub F(ByVal x As ULong, ByVal y As ULong) + Sub F(ByVal x As Single, ByVal y As Single) + Sub F(ByVal x As Double, ByVal y As Double) + Sub F(ByVal x As Decimal, ByVal y As Decimal) + Sub F(ByVal x? As Integer, ByVal y? As Integer) + Sub F(ByVal x? As UInteger, ByVal y? As UInteger) + Sub F(ByVal x? As Long, ByVal y? As Long) + Sub F(ByVal x? As ULong, ByVal y? As ULong) + Sub F(ByVal x? As Single, ByVal y? As Single) + Sub F(ByVal x? As Double, ByVal y? As Double) + Sub F(ByVal x? As Decimal, ByVal y? As Decimal) + End Interface + + Interface IRelationalSignatures : Inherits IArithmeticSignatures + Overloads Sub F(ByVal x As String, ByVal y As String) + Overloads Sub F(ByVal x As Char, ByVal y As Char) + Overloads Sub F(ByVal x As DateTime, ByVal y As DateTime) + Overloads Sub F(ByVal x As TimeSpan, ByVal y As TimeSpan) + Overloads Sub F(ByVal x? As Char, ByVal y? As Char) + Overloads Sub F(ByVal x? As DateTime, ByVal y? As DateTime) + Overloads Sub F(ByVal x? As TimeSpan, ByVal y? As TimeSpan) + End Interface + + Interface IEqualitySignatures : Inherits IRelationalSignatures + Overloads Sub F(ByVal x As Boolean, ByVal y As Boolean) + Overloads Sub F(ByVal x? As Boolean, ByVal y? As Boolean) + End Interface + + Interface IAddSignatures : Inherits IArithmeticSignatures + Overloads Sub F(ByVal x As DateTime, ByVal y As TimeSpan) + Overloads Sub F(ByVal x As TimeSpan, ByVal y As TimeSpan) + Overloads Sub F(ByVal x? As DateTime, ByVal y? As TimeSpan) + Overloads Sub F(ByVal x? As TimeSpan, ByVal y? As TimeSpan) + End Interface + + Interface ISubtractSignatures : Inherits IAddSignatures + Overloads Sub F(ByVal x As DateTime, ByVal y As DateTime) + Overloads Sub F(ByVal x? As DateTime, ByVal y? As DateTime) + End Interface + + Interface INegationSignatures + Sub F(ByVal x As Integer) + Sub F(ByVal x As Long) + Sub F(ByVal x As Single) + Sub F(ByVal x As Double) + Sub F(ByVal x As Decimal) + Sub F(ByVal x As Integer?) + Sub F(ByVal x As Long?) + Sub F(ByVal x As Single?) + Sub F(ByVal x As Double?) + Sub F(ByVal x As Decimal?) + End Interface + + Interface INotSignatures + Sub F(ByVal x As Boolean) + Sub F(ByVal x? As Boolean) + End Interface + + Interface IEnumerableSignatures + Sub Where(ByVal predicate As Boolean) + Sub Any() + Sub Any(ByVal predicate As Boolean) + Sub All(ByVal predicate As Boolean) + Sub Count() + Sub Count(ByVal predicate As Boolean) + Sub Min(ByVal selector As Object) + Sub Max(ByVal selector As Object) + Sub Sum(ByVal selector As Integer) + Sub Sum(ByVal selector? As Integer) + Sub Sum(ByVal selector As Long) + Sub Sum(ByVal selector? As Long) + Sub Sum(ByVal selector As Single) + Sub Sum(ByVal selector? As Single) + Sub Sum(ByVal selector As Double) + Sub Sum(ByVal selector? As Double) + Sub Sum(ByVal selector As Decimal) + Sub Sum(ByVal selector? As Decimal) + Sub Average(ByVal selector As Integer) + Sub Average(ByVal selector? As Integer) + Sub Average(ByVal selector As Long) + Sub Average(ByVal selector? As Long) + Sub Average(ByVal selector As Single) + Sub Average(ByVal selector? As Single) + Sub Average(ByVal selector As Double) + Sub Average(ByVal selector? As Double) + Sub Average(ByVal selector As Decimal) + Sub Average(ByVal selector? As Decimal) + End Interface + + Shared ReadOnly predefinedTypes As Type() = { _ + GetType(Object), _ + GetType(Boolean), _ + GetType(Char), _ + GetType(String), _ + GetType(SByte), _ + GetType(Byte), _ + GetType(Int16), _ + GetType(UInt16), _ + GetType(Int32), _ + GetType(UInt32), _ + GetType(Int64), _ + GetType(UInt64), _ + GetType(Single), _ + GetType(Double), _ + GetType(Decimal), _ + GetType(DateTime), _ + GetType(TimeSpan), _ + GetType(Guid), _ + GetType(Math), _ + GetType(Convert) _ + } + + Shared ReadOnly trueLiteral As Expression = Expression.Constant(True) + Shared ReadOnly falseLiteral As Expression = Expression.Constant(False) + Shared ReadOnly nullLiteral As Expression = Expression.Constant(Nothing) + + Shared ReadOnly keywordIt As String = "it" + Shared ReadOnly keywordIif As String = "iif" + Shared ReadOnly keywordNew As String = "new" + + Shared keywords As Dictionary(Of String, Object) + + Dim symbols As Dictionary(Of String, Object) + Dim externals As IDictionary(Of String, Object) + Dim literals As Dictionary(Of Expression, String) + Dim it As ParameterExpression + Dim text As String + Dim textPos As Integer + Dim textLen As Integer + Dim ch As Char + Dim tokenVal As Token + + Public Sub New(ByVal parameters As ParameterExpression(), ByVal expression As String, ByVal values As Object()) + If expression Is Nothing Then Throw New ArgumentNullException("expression") + If keywords Is Nothing Then keywords = CreateKeywords() + symbols = New Dictionary(Of String, Object)(StringComparer.OrdinalIgnoreCase) + literals = New Dictionary(Of Expression, String)() + If parameters IsNot Nothing Then ProcessParameters(parameters) + If values IsNot Nothing Then ProcessValues(values) + text = expression + textLen = text.Length + SetTextPos(0) + NextToken() + End Sub + + Sub ProcessParameters(ByVal parameters As ParameterExpression()) + For Each pe As ParameterExpression In parameters + If Not String.IsNullOrEmpty(pe.Name) Then + AddSymbol(pe.Name, pe) + End If + Next + + If (parameters.Length = 1 AndAlso String.IsNullOrEmpty(parameters(0).Name)) Then + it = parameters(0) + End If + End Sub + + Sub ProcessValues(ByVal values As Object()) + For i As Integer = 0 To values.Length - 1 + Dim value As Object = values(i) + If i = values.Length - 1 AndAlso TryCast(value, IDictionary(Of String, Object)) IsNot Nothing Then + externals = DirectCast(value, IDictionary(Of String, Object)) + Else + AddSymbol("@" & i.ToString(System.Globalization.CultureInfo.InvariantCulture), value) + End If + Next + End Sub + + Sub AddSymbol(ByVal name As String, ByVal value As Object) + If (symbols.ContainsKey(name)) Then + Throw ParseError(Res.DuplicateIdentifier, name) + End If + symbols.Add(name, value) + End Sub + + Public Function Parse(ByVal resultType As Type) As Expression + Dim exprPos As Integer = tokenVal.pos + Dim expr As Expression = ParseExpression() + If resultType IsNot Nothing Then + expr = PromoteExpression(expr, resultType, True) + If expr Is Nothing Then + Throw ParseError(exprPos, Res.ExpressionTypeMismatch, GetTypeName(resultType)) + End If + End If + ValidateToken(TokenId.End, Res.SyntaxError) + Return expr + End Function + + Public Function ParseOrdering() As IEnumerable(Of DynamicOrdering) + Dim orderings As List(Of DynamicOrdering) = New List(Of DynamicOrdering)() + Do + Dim expr As Expression = ParseExpression() + Dim ascending As Boolean = True + If TokenIdentifierIs("asc") OrElse TokenIdentifierIs("ascending") Then + NextToken() + ElseIf TokenIdentifierIs("desc") OrElse TokenIdentifierIs("descending") Then + NextToken() + ascending = False + End If + orderings.Add(New DynamicOrdering() With {.Selector = expr, .Ascending = ascending}) + If tokenVal.id <> TokenId.Comma Then Exit Do + NextToken() + Loop + ValidateToken(TokenId.End, Res.SyntaxError) + Return orderings + End Function + '#pragma warning restore 0219 + + ' ?: operator + Function ParseExpression() As Expression + Dim errorPos As Integer = tokenVal.pos + Dim expr As Expression = ParseLogicalOr() + If tokenVal.id = TokenId.Question Then + NextToken() + Dim expr1 As Expression = ParseExpression() + ValidateToken(TokenId.Colon, Res.ColonExpected) + NextToken() + Dim expr2 As Expression = ParseExpression() + expr = GenerateConditional(expr, expr1, expr2, errorPos) + End If + Return expr + End Function + + ' ||, or operator + Function ParseLogicalOr() As Expression + Dim left As Expression = ParseLogicalAnd() + Do While tokenVal.id = TokenId.DoubleBar OrElse TokenIdentifierIs("or") + Dim op As Token = tokenVal + NextToken() + Dim right As Expression = ParseLogicalAnd() + CheckAndPromoteOperands(GetType(ILogicalSignatures), op.text, left, right, op.pos) + left = Expression.OrElse(left, right) + Loop + Return left + End Function + + ' &&, and operator + Function ParseLogicalAnd() As Expression + Dim left As Expression = ParseComparison() + Do While tokenVal.id = TokenId.DoubleAmphersand OrElse TokenIdentifierIs("and") + Dim op As Token = tokenVal + NextToken() + Dim right As Expression = ParseComparison() + CheckAndPromoteOperands(GetType(ILogicalSignatures), op.text, left, right, op.pos) + left = Expression.AndAlso(left, right) + Loop + Return left + End Function + + ' =, ==, !=, <>, >, >=, <, <= operators + Function ParseComparison() As Expression + Dim left As Expression = ParseAdditive() + Do While tokenVal.id = TokenId.Equal OrElse tokenVal.id = TokenId.DoubleEqual OrElse _ + tokenVal.id = TokenId.ExclamationEqual OrElse tokenVal.id = TokenId.LessGreater OrElse _ + tokenVal.id = TokenId.GreaterThan OrElse tokenVal.id = TokenId.GreaterThanEqual OrElse _ + tokenVal.id = TokenId.LessThan OrElse tokenVal.id = TokenId.LessThanEqual + Dim op As Token = tokenVal + NextToken() + Dim right As Expression = ParseAdditive() + Dim isEquality As Boolean = (op.id = TokenId.Equal OrElse op.id = TokenId.DoubleEqual OrElse _ + op.id = TokenId.ExclamationEqual OrElse op.id = TokenId.LessGreater) + If isEquality AndAlso Not left.Type.IsValueType AndAlso Not right.Type.IsValueType Then + If Not left.Type.Equals(right.Type) Then + If left.Type.IsAssignableFrom(right.Type) Then + right = Expression.Convert(right, left.Type) + ElseIf right.Type.IsAssignableFrom(left.Type) Then + left = Expression.Convert(left, right.Type) + Else + Throw IncompatibleOperandsError(op.text, left, right, op.pos) + End If + End If + ElseIf IsEnumType(left.Type) OrElse IsEnumType(right.Type) Then + If Not left.Type.Equals(right.Type) Then + Dim e As Expression = PromoteExpression(right, left.Type, True) + If e IsNot Nothing Then + right = e + Else + e = PromoteExpression(left, right.Type, True) + If e Is Nothing Then + Throw IncompatibleOperandsError(op.text, left, right, op.pos) + End If + left = e + End If + End If + Else + CheckAndPromoteOperands(If(isEquality, GetType(IEqualitySignatures), GetType(IRelationalSignatures)), _ + op.text, left, right, op.pos) + End If + Select Case op.id + Case TokenId.Equal, TokenId.DoubleEqual + left = GenerateEqual(left, right) + Case TokenId.ExclamationEqual, TokenId.LessGreater + left = GenerateNotEqual(left, right) + Case TokenId.GreaterThan + left = GenerateGreaterThan(left, right) + Case TokenId.GreaterThanEqual + left = GenerateGreaterThanEqual(left, right) + Case TokenId.LessThan + left = GenerateLessThan(left, right) + Case TokenId.LessThanEqual + left = GenerateLessThanEqual(left, right) + End Select + Loop + Return left + End Function + + ' +, -, & operators + Function ParseAdditive() As Expression + Dim left = ParseMultiplicative() + Do While tokenVal.id = TokenId.Plus OrElse tokenVal.id = TokenId.Minus OrElse _ + tokenVal.id = TokenId.Amphersand + Dim op = tokenVal + NextToken() + Dim right = ParseMultiplicative() + Select Case op.id + Case TokenId.Plus + If left.Type.Equals(GetType(String)) OrElse right.Type.Equals(GetType(String)) Then + GoTo amphersand + End If + CheckAndPromoteOperands(GetType(IAddSignatures), op.text, left, right, op.pos) + left = GenerateAdd(left, right) + Case TokenId.Minus + CheckAndPromoteOperands(GetType(ISubtractSignatures), op.text, left, right, op.pos) + left = GenerateSubtract(left, right) + Case TokenId.Amphersand +amphersand: + left = GenerateStringConcat(left, right) + End Select + Loop + Return left + End Function + + ' *, /, %, mod operators + Function ParseMultiplicative() As Expression + Dim left = ParseUnary() + Do While tokenVal.id = TokenId.Asterisk OrElse tokenVal.id = TokenId.Slash OrElse _ + tokenVal.id = TokenId.Percent OrElse TokenIdentifierIs("mod") + Dim op = tokenVal + NextToken() + Dim right = ParseUnary() + CheckAndPromoteOperands(GetType(IArithmeticSignatures), op.text, left, right, op.pos) + Select Case op.id + Case TokenId.Asterisk + left = Expression.Multiply(left, right) + Case TokenId.Slash + left = Expression.Divide(left, right) + Case TokenId.Percent, TokenId.Identifier + left = Expression.Modulo(left, right) + End Select + Loop + Return left + End Function + + ' -, !, not unary operators + Function ParseUnary() As Expression + If tokenVal.id = TokenId.Minus OrElse tokenVal.id = TokenId.Exclamation OrElse _ + TokenIdentifierIs("not") Then + + Dim op = tokenVal + NextToken() + If op.id = TokenId.Minus AndAlso (tokenVal.id = TokenId.IntegerLiteral OrElse _ + tokenVal.id = TokenId.RealLiteral) Then + tokenVal.text = "-" & tokenVal.text + tokenVal.pos = op.pos + Return ParsePrimary() + End If + Dim expr = ParseUnary() + If op.id = TokenId.Minus Then + CheckAndPromoteOperand(GetType(INegationSignatures), op.text, expr, op.pos) + expr = Expression.Negate(expr) + Else + CheckAndPromoteOperand(GetType(INotSignatures), op.text, expr, op.pos) + expr = Expression.Not(expr) + End If + Return expr + End If + Return ParsePrimary() + End Function + + Function ParsePrimary() As Expression + Dim expr = ParsePrimaryStart() + Do + If tokenVal.id = TokenId.Dot Then + NextToken() + expr = ParseMemberAccess(Nothing, expr) + ElseIf tokenVal.id = TokenId.OpenBracket Then + expr = ParseElementAccess(expr) + Else + Exit Do + End If + Loop + Return expr + End Function + + Function ParsePrimaryStart() As Expression + Select Case tokenVal.id + Case TokenId.Identifier + Return ParseIdentifier() + Case TokenId.StringLiteral + Return ParseStringLiteral() + Case TokenId.IntegerLiteral + Return ParseIntegerLiteral() + Case TokenId.RealLiteral + Return ParseRealLiteral() + Case TokenId.OpenParen + Return ParseParenExpression() + Case Else + Throw ParseError(Res.ExpressionExpected) + End Select + End Function + + Function ParseStringLiteral() As Expression + ValidateToken(TokenId.StringLiteral) + + Dim quote = tokenVal.text(0) + Dim s = tokenVal.text.Substring(1, tokenVal.text.Length - 2) + Dim start = 0 + + Do + Dim i = s.IndexOf(quote, start) + If i < 0 Then Exit Do + s = s.Remove(i, 1) + start = i + 1 + Loop + + If quote = "'" Then + If s.Length <> 1 Then + Throw ParseError(Res.InvalidCharacterLiteral) + End If + NextToken() + Return CreateLiteral(s(0), s) + End If + NextToken() + Return CreateLiteral(s, s) + End Function + + Function ParseIntegerLiteral() As Expression + ValidateToken(TokenId.IntegerLiteral) + Dim text = tokenVal.text + If text(0) <> "-" Then + Dim value As ULong = 0 + If Not UInt64.TryParse(text, value) Then + Throw ParseError(Res.InvalidIntegerLiteral, text) + End If + + NextToken() + If value <= CULng(Int32.MaxValue) Then Return CreateLiteral(CInt(value), text) + If value <= CULng(UInt32.MaxValue) Then Return CreateLiteral(CUInt(value), text) + If value <= CULng(Int64.MaxValue) Then Return CreateLiteral(CLng(value), text) + Return CreateLiteral(value, text) + Else + Dim value As Long = 0 + If Not Int64.TryParse(text, value) Then + Throw ParseError(Res.InvalidIntegerLiteral, text) + End If + NextToken() + If (value >= Int32.MinValue AndAlso value <= Int32.MaxValue) Then + Return CreateLiteral(CInt(value), text) + End If + Return CreateLiteral(value, text) + End If + End Function + + Function ParseRealLiteral() As Expression + ValidateToken(TokenId.RealLiteral) + Dim text = tokenVal.text + Dim value As Object = Nothing + Dim last = text(text.Length - 1) + If last = "f" Or last = "F" Then + Dim f As Single + If Single.TryParse(text.Substring(0, text.Length - 1), f) Then value = f + + Else + Dim d As Double + If Double.TryParse(text, d) Then value = d + End If + + If value Is Nothing Then Throw ParseError(Res.InvalidRealLiteral, text) + NextToken() + Return CreateLiteral(value, text) + End Function + + Function CreateLiteral(ByVal value As Object, ByVal text As String) As Expression + Dim expr = Expression.Constant(value) + literals.Add(expr, text) + Return expr + End Function + + Function ParseParenExpression() As Expression + ValidateToken(TokenId.OpenParen, Res.OpenParenExpected) + NextToken() + Dim e = ParseExpression() + ValidateToken(TokenId.CloseParen, Res.CloseParenOrOperatorExpected) + NextToken() + Return e + End Function + + Function ParseIdentifier() As Expression + ValidateToken(TokenId.Identifier) + Dim value As Object = Nothing + If keywords.TryGetValue(tokenVal.text, value) Then + If TryCast(value, Type) IsNot Nothing Then Return ParseTypeAccess(DirectCast(value, Type)) + If value Is keywordIt Then Return ParseIt() + If value Is keywordIif Then Return ParseIif() + If value Is keywordNew Then Return ParseNew() + NextToken() + Return DirectCast(value, Expression) + End If + + If symbols.TryGetValue(tokenVal.text, value) OrElse _ + externals IsNot Nothing AndAlso externals.TryGetValue(tokenVal.text, value) Then + Dim expr = TryCast(value, Expression) + If expr Is Nothing Then + expr = Expression.Constant(value) + Else + Dim lambda = TryCast(expr, LambdaExpression) + If lambda IsNot Nothing Then Return ParseLambdaInvocation(lambda) + End If + NextToken() + Return expr + End If + If it IsNot Nothing Then Return ParseMemberAccess(Nothing, it) + Throw ParseError(Res.UnknownIdentifier, tokenVal.text) + End Function + + Function ParseIt() As Expression + If it Is Nothing Then Throw ParseError(Res.NoItInScope) + NextToken() + Return it + End Function + + Function ParseIif() As Expression + Dim errorPos = tokenVal.pos + NextToken() + Dim args As Expression() = ParseArgumentList() + If args.Length <> 3 Then + Throw ParseError(errorPos, Res.IifRequiresThreeArgs) + End If + Return GenerateConditional(args(0), args(1), args(2), errorPos) + End Function + + Function GenerateConditional(ByVal test As Expression, ByVal expr1 As Expression, ByVal expr2 As Expression, ByVal errorPos As Integer) As Expression + If Not test.Type.Equals(GetType(Boolean)) Then + Throw ParseError(errorPos, Res.FirstExprMustBeBool) + End If + If Not expr1.Type.Equals(expr2.Type) Then + Dim expr1as2 As Expression = If(Not expr2.Equals(nullLiteral), PromoteExpression(expr1, expr2.Type, True), Nothing) + Dim expr2as1 As Expression = If(Not expr1.Equals(nullLiteral), PromoteExpression(expr2, expr1.Type, True), Nothing) + If expr1as2 IsNot Nothing And expr2as1 Is Nothing Then + expr1 = expr1as2 + ElseIf expr2as1 IsNot Nothing And expr1as2 Is Nothing Then + expr2 = expr2as1 + Else + Dim type1 = If(Not expr1.Equals(nullLiteral), expr1.Type.Name, "null") + Dim type2 = If(Not expr2.Equals(nullLiteral), expr2.Type.Name, "null") + If expr1as2 IsNot Nothing And expr2as1 IsNot Nothing Then + Throw ParseError(errorPos, Res.BothTypesConvertToOther, type1, type2) + End If + Throw ParseError(errorPos, Res.NeitherTypeConvertsToOther, type1, type2) + End If + End If + Return Expression.Condition(test, expr1, expr2) + End Function + + Function ParseNew() As Expression + NextToken() + ValidateToken(TokenId.OpenParen, Res.OpenParenExpected) + NextToken() + Dim properties As New List(Of DynamicProperty)() + Dim expressions As New List(Of Expression)() + Do + Dim exprPos = tokenVal.pos + Dim expr = ParseExpression() + Dim propName As String + If TokenIdentifierIs("as") Then + NextToken() + propName = GetIdentifier() + NextToken() + Else + Dim [me] As MemberExpression = TryCast(expr, MemberExpression) + If [me] Is Nothing Then Throw ParseError(exprPos, Res.MissingAsClause) + propName = [me].Member.Name + End If + expressions.Add(expr) + properties.Add(New DynamicProperty(propName, expr.Type)) + If tokenVal.id <> TokenId.Comma Then Exit Do + NextToken() + Loop + ValidateToken(TokenId.CloseParen, Res.CloseParenOrCommaExpected) + NextToken() + Dim type As Type = DynamicExpression.CreateClass(properties) + Dim bindings(properties.Count - 1) As MemberBinding + For i As Integer = 0 To bindings.Length - 1 + bindings(i) = Expression.Bind(type.GetProperty(properties(i).Name), expressions(i)) + Next + Return Expression.MemberInit(Expression.[New](type), bindings) + End Function + + Function ParseLambdaInvocation(ByVal lambda As LambdaExpression) As Expression + Dim errorPos = tokenVal.pos + NextToken() + Dim args As Expression() = ParseArgumentList() + Dim method As MethodBase = Nothing + If FindMethod(lambda.Type, "Invoke", False, args, method) <> 1 Then + Throw ParseError(errorPos, Res.ArgsIncompatibleWithLambda) + End If + Return Expression.Invoke(lambda, args) + End Function + + Function ParseTypeAccess(ByVal type As Type) As Expression + Dim errorPos = tokenVal.pos + NextToken() + + If tokenVal.id = TokenId.Question Then + If (Not type.IsValueType) OrElse IsNullableType(type) Then + Throw ParseError(errorPos, Res.TypeHasNoNullableForm, GetTypeName(type)) + End If + type = GetType(Nullable(Of Integer)).GetGenericTypeDefinition().MakeGenericType(type) + NextToken() + End If + If tokenVal.id = TokenId.OpenParen Then + Dim args As Expression() = ParseArgumentList() + Dim method As MethodBase = Nothing + Select Case FindBestMethod(type.GetConstructors(), args, method) + Case 0 + If args.Length = 1 Then + Return GenerateConversion(args(0), type, errorPos) + End If + Throw ParseError(errorPos, Res.NoMatchingConstructor, GetTypeName(type)) + Case 1 + Return Expression.[New](DirectCast(method, ConstructorInfo), args) + Case Else + Throw ParseError(errorPos, Res.AmbiguousConstructorInvocation, GetTypeName(type)) + End Select + End If + ValidateToken(TokenId.Dot, Res.DotOrOpenParenExpected) + NextToken() + Return ParseMemberAccess(type, Nothing) + End Function + + Function GenerateConversion(ByVal expr As Expression, ByVal type As Type, ByVal errorPos As Integer) As Expression + Dim exprType = expr.Type + If exprType.Equals(type) Then Return expr + If exprType.IsValueType AndAlso type.IsValueType Then + If (IsNullableType(exprType) OrElse IsNullableType(type)) AndAlso _ + GetNonNullableType(exprType).Equals(GetNonNullableType(type)) Then + + Return Expression.Convert(expr, type) + End If + If (IsNumericType(exprType) OrElse IsEnumType(exprType)) AndAlso _ + (IsNumericType(type) OrElse IsEnumType(type)) Then + + Return Expression.ConvertChecked(expr, type) + End If + End If + If exprType.IsAssignableFrom(type) OrElse type.IsAssignableFrom(exprType) OrElse _ + exprType.IsInterface OrElse type.IsInterface Then + Return Expression.Convert(expr, type) + End If + Throw ParseError(errorPos, Res.CannotConvertValue, _ + GetTypeName(exprType), GetTypeName(type)) + End Function + + + Function ParseMemberAccess(ByVal type As Type, ByVal instance As Expression) As Expression + If instance IsNot Nothing Then type = instance.Type + Dim errorPos = tokenVal.pos + Dim id = GetIdentifier() + NextToken() + If tokenVal.id = TokenId.OpenParen Then + If instance IsNot Nothing AndAlso Not type.Equals(GetType(String)) Then + Dim enumerableType As Type = FindGenericType(GetType(IEnumerable(Of Object)).GetGenericTypeDefinition(), type) + If enumerableType IsNot Nothing Then + Dim elementType As Type = enumerableType.GetGenericArguments()(0) + Return ParseAggregate(instance, elementType, id, errorPos) + End If + End If + Dim args As Expression() = ParseArgumentList() + Dim mb As MethodBase = Nothing + Select Case FindMethod(type, id, instance Is Nothing, args, mb) + Case 0 + Throw ParseError(errorPos, Res.NoApplicableMethod, id, GetTypeName(type)) + Case 1 + Dim method = DirectCast(mb, MethodInfo) + If (Not IsPredefinedType(method.DeclaringType)) Then + Throw ParseError(errorPos, Res.MethodsAreInaccessible, GetTypeName(method.DeclaringType)) + End If + If method.ReturnType.Equals(GetType(Void)) Then + Throw ParseError(errorPos, Res.MethodIsVoid, id, GetTypeName(method.DeclaringType)) + End If + Return Expression.Call(instance, DirectCast(method, MethodInfo), args) + Case Else + Throw ParseError(errorPos, Res.AmbiguousMethodInvocation, id, GetTypeName(type)) + End Select + Else + Dim member As MemberInfo = FindPropertyOrField(type, id, instance Is Nothing) + If member Is Nothing Then + Throw ParseError(errorPos, Res.UnknownPropertyOrField, id, GetTypeName(type)) + End If + Return If(TryCast(member, PropertyInfo) IsNot Nothing, _ + Expression.Property(instance, DirectCast(member, PropertyInfo)), _ + Expression.Field(instance, DirectCast(member, FieldInfo))) + End If + End Function + + Shared Function FindGenericType(ByVal generic As Type, ByVal type As Type) As Type + Do While type IsNot Nothing AndAlso Not type.Equals(GetType(Object)) + If type.IsGenericType AndAlso type.GetGenericTypeDefinition().Equals(generic) Then Return type + If generic.IsInterface Then + For Each intfType As Type In type.GetInterfaces() + Dim found As Type = FindGenericType(generic, intfType) + If found IsNot Nothing Then Return found + Next + End If + type = type.BaseType + Loop + Return Nothing + End Function + + Function ParseAggregate(ByVal instance As Expression, ByVal elementType As Type, ByVal methodName As String, ByVal errorPos As Integer) As Expression + Dim outerIt As ParameterExpression = it + Dim innerIt As ParameterExpression = Expression.Parameter(elementType, "") + it = innerIt + Dim args As Expression() = ParseArgumentList() + it = outerIt + Dim signature As MethodBase = Nothing + If FindMethod(GetType(IEnumerableSignatures), methodName, False, args, signature) <> 1 Then + Throw ParseError(errorPos, Res.NoApplicableAggregate, methodName) + End If + Dim typeArgs As Type() + If signature.Name = "Min" OrElse signature.Name = "Max" Then + typeArgs = New Type() {elementType, args(0).Type} + Else + typeArgs = New Type() {elementType} + End If + + If args.Length = 0 Then + args = New Expression() {instance} + Else + args = New Expression() {instance, Expression.Lambda(args(0), innerIt)} + End If + Return Expression.Call(GetType(Enumerable), signature.Name, typeArgs, args) + End Function + + Function ParseArgumentList() As Expression() + ValidateToken(TokenId.OpenParen, Res.OpenParenExpected) + NextToken() + Dim args As Expression() = If(tokenVal.id <> TokenId.CloseParen, ParseArguments(), New Expression(-1) {}) + ValidateToken(TokenId.CloseParen, Res.CloseParenOrCommaExpected) + NextToken() + Return args + End Function + + Function ParseArguments() As Expression() + Dim argList As New List(Of Expression)() + Do + argList.Add(ParseExpression()) + If tokenVal.id <> TokenId.Comma Then Exit Do + NextToken() + Loop + Return argList.ToArray() + End Function + + Function ParseElementAccess(ByVal expr As Expression) As Expression + Dim errorPos As Integer = tokenVal.pos + ValidateToken(TokenId.OpenBracket, Res.OpenParenExpected) + NextToken() + Dim args As Expression() = ParseArguments() + ValidateToken(TokenId.CloseBracket, Res.CloseBracketOrCommaExpected) + NextToken() + If expr.Type.IsArray Then + If expr.Type.GetArrayRank() <> 1 OrElse args.Length <> 1 Then + Throw ParseError(errorPos, Res.CannotIndexMultiDimArray) + End If + Dim index As Expression = PromoteExpression(args(0), GetType(Integer), True) + If index Is Nothing Then + Throw ParseError(errorPos, Res.InvalidIndex) + End If + Return Expression.ArrayIndex(expr, index) + Else + Dim mb As MethodBase = Nothing + Select Case FindIndexer(expr.Type, args, mb) + Case 0 + Throw ParseError(errorPos, Res.NoApplicableIndexer, GetTypeName(expr.Type)) + Case 1 + Return Expression.Call(expr, DirectCast(mb, MethodInfo), args) + Case Else + Throw ParseError(errorPos, Res.AmbiguousIndexerInvocation, GetTypeName(expr.Type)) + End Select + End If + End Function + + Shared Function IsPredefinedType(ByVal type As Type) As Boolean + For Each t As Type In predefinedTypes + If t.Equals(type) Then Return True + Next + + Return False + End Function + + Shared Function IsNullableType(ByVal type As Type) As Boolean + Return type.IsGenericType AndAlso type.GetGenericTypeDefinition().Equals(GetType(Nullable(Of Integer)).GetGenericTypeDefinition()) + End Function + + Shared Function GetNonNullableType(ByVal type As Type) As Type + Return If(IsNullableType(type), type.GetGenericArguments()(0), type) + End Function + + Shared Function GetTypeName(ByVal type As Type) As String + Dim baseType = GetNonNullableType(type) + Dim s = baseType.Name + If Not type.Equals(baseType) Then s &= "?" + Return s + End Function + + Shared Function IsNumericType(ByVal type As Type) As Boolean + Return GetNumericTypeKind(type) <> 0 + End Function + + Shared Function IsSignedIntegralType(ByVal type As Type) As Boolean + Return GetNumericTypeKind(type) = 2 + End Function + + Shared Function IsUnsignedIntegralType(ByVal type As Type) As Boolean + Return GetNumericTypeKind(type) = 3 + End Function + + Shared Function GetNumericTypeKind(ByVal type As Type) As Integer + type = GetNonNullableType(type) + If type.IsEnum Then Return 0 + Select Case type.GetTypeCode(type) + Case TypeCode.Char, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return 1 + Case TypeCode.SByte, TypeCode.Int16, TypeCode.Int32, TypeCode.Int64 + Return 2 + Case TypeCode.Byte, TypeCode.UInt16, TypeCode.UInt32, TypeCode.UInt64 + Return 3 + Case Else + Return 0 + End Select + End Function + + Shared Function IsEnumType(ByVal type As Type) As Boolean + Return GetNonNullableType(type).IsEnum + End Function + + Sub CheckAndPromoteOperand(ByVal signatures As Type, ByVal opName As String, ByRef expr As Expression, ByVal errorPos As Integer) + Dim args As Expression() = New Expression() {expr} + Dim method As MethodBase = Nothing + If FindMethod(signatures, "F", False, args, method) <> 1 Then + Throw ParseError(errorPos, Res.IncompatibleOperand, opName, GetTypeName(args(0).Type)) + End If + expr = args(0) + End Sub + + Sub CheckAndPromoteOperands(ByVal signatures As Type, ByVal opName As String, ByRef left As Expression, ByRef right As Expression, ByVal errorPos As Integer) + Dim args As Expression() = New Expression() {left, right} + Dim method As MethodBase = Nothing + If FindMethod(signatures, "F", False, args, method) <> 1 Then + Throw IncompatibleOperandsError(opName, left, right, errorPos) + End If + left = args(0) + right = args(1) + End Sub + + Function IncompatibleOperandsError(ByVal opName As String, ByVal left As Expression, ByVal right As Expression, ByVal pos As Integer) As Exception + Return ParseError(pos, Res.IncompatibleOperands, opName, GetTypeName(left.Type), GetTypeName(right.Type)) + End Function + + Function FindPropertyOrField(ByVal type As Type, ByVal memberName As String, ByVal staticAccess As Boolean) As MemberInfo + Dim flags As BindingFlags = BindingFlags.Public Or BindingFlags.DeclaredOnly Or _ + If(staticAccess, BindingFlags.Static, BindingFlags.Instance) + For Each t As Type In SelfAndBaseTypes(type) + Dim members As MemberInfo() = t.FindMembers(MemberTypes.Property Or MemberTypes.Field, _ + flags, type.FilterNameIgnoreCase, memberName) + If members.Length <> 0 Then Return members(0) + Next + Return Nothing + End Function + + Function FindMethod(ByVal type As Type, ByVal methodName As String, ByVal staticAccess As Boolean, ByVal args As Expression(), ByRef method As MethodBase) As Integer + Dim flags As BindingFlags = BindingFlags.Public Or BindingFlags.DeclaredOnly Or _ + If(staticAccess, BindingFlags.Static, BindingFlags.Instance) + For Each t As Type In SelfAndBaseTypes(type) + Dim members As MemberInfo() = t.FindMembers(MemberTypes.Method, _ + flags, type.FilterNameIgnoreCase, methodName) + Dim count As Integer = FindBestMethod(members.Cast(Of MethodBase)(), args, method) + If count <> 0 Then Return count + Next + method = Nothing + Return 0 + End Function + + Function FindIndexer(ByVal type As Type, ByVal args As Expression(), ByRef method As MethodBase) As Integer + For Each t As Type In SelfAndBaseTypes(type) + Dim members As MemberInfo() = t.GetDefaultMembers() + If members.Length <> 0 Then + Dim methods As IEnumerable(Of MethodBase) = members. _ + OfType(Of PropertyInfo)(). _ + Select(Function(p) DirectCast(p.GetGetMethod(), MethodBase)). _ + Where(Function(m) m IsNot Nothing) + Dim count As Integer = FindBestMethod(methods, args, method) + If count <> 0 Then Return count + End If + Next + method = Nothing + Return 0 + End Function + + Shared Function SelfAndBaseTypes(ByVal type As Type) As IEnumerable(Of Type) + If type.IsInterface Then + Dim types As New List(Of Type)() + AddInterface(types, type) + Return types + End If + Return SelfAndBaseClasses(type) + End Function + + Shared Function SelfAndBaseClasses(ByVal type As Type) As IEnumerable(Of Type) + Dim results As New LinkedList(Of Type)() + + Do While type IsNot Nothing + results.AddLast(type) + type = type.BaseType + Loop + + Return results + End Function + + Shared Sub AddInterface(ByVal types As List(Of Type), ByVal type As Type) + If Not types.Contains(type) Then + types.Add(type) + End If + For Each t As Type In type.GetInterfaces() + AddInterface(types, t) + Next + End Sub + + Class MethodData + Public MethodBase As MethodBase + Public Parameters As ParameterInfo() + Public Args As Expression() + End Class + + Function FindBestMethod(ByVal methods As IEnumerable(Of MethodBase), ByVal args As Expression(), ByRef method As MethodBase) As Integer + Dim applicable As MethodData() = methods. _ + Select(Function(m) New MethodData With {.MethodBase = m, .Parameters = m.GetParameters()}). _ + Where(Function(m) IsApplicable(m, args)). _ + ToArray() + If applicable.Length > 1 Then + applicable = applicable. _ + Where(Function(m) applicable.All(Function(n) m Is n OrElse IsBetterThan(args, m, n))). _ + ToArray() + End If + If applicable.Length = 1 Then + Dim md As MethodData = applicable(0) + For i As Integer = 0 To args.Length - 1 + args(i) = md.Args(i) + Next + method = md.MethodBase + Else + method = Nothing + End If + Return applicable.Length + End Function + + Function IsApplicable(ByVal method As MethodData, ByVal args As Expression()) As Boolean + If method.Parameters.Length <> args.Length Then Return False + Dim promotedArgs As Expression() = New Expression(args.Length - 1) {} + + For i As Integer = 0 To args.Length - 1 + Dim pi As ParameterInfo = method.Parameters(i) + If pi.IsOut Then Return False + Dim promoted As Expression = PromoteExpression(args(i), pi.ParameterType, False) + If promoted Is Nothing Then Return False + promotedArgs(i) = promoted + Next i + method.Args = promotedArgs + + Return True + End Function + + Function PromoteExpression(ByVal expr As Expression, ByVal type As Type, ByVal exact As Boolean) As Expression + If expr.Type.Equals(type) Then Return expr + If TryCast(expr, ConstantExpression) IsNot Nothing Then + Dim ce = DirectCast(expr, ConstantExpression) + If ce.Equals(nullLiteral) Then + If Not type.IsValueType OrElse IsNullableType(type) Then + Return Expression.Constant(Nothing, type) + End If + Else + Dim text As String = Nothing + If literals.TryGetValue(ce, text) Then + Dim target As Type = GetNonNullableType(type) + Dim value As Object = Nothing + Select Case type.GetTypeCode(ce.Type) + Case TypeCode.Int32, TypeCode.UInt32, TypeCode.Int64, TypeCode.UInt64 + value = ParseNumber(text, target) + Case TypeCode.Double + If target.Equals(GetType(Decimal)) Then value = ParseNumber(text, target) + Case TypeCode.String + value = ParseEnum(text, target) + End Select + If value IsNot Nothing Then Return Expression.Constant(value, type) + End If + End If + End If + + If IsCompatibleWith(expr.Type, type) Then + If type.IsValueType OrElse exact Then Return Expression.Convert(expr, type) + Return expr + End If + Return Nothing + End Function + + Shared Function ParseNumber(ByVal text As String, ByVal type As Type) As Object + Select Case type.GetTypeCode(GetNonNullableType(type)) + Case TypeCode.SByte + Dim sb As SByte + If SByte.TryParse(text, sb) Then Return sb + Case TypeCode.Byte + Dim b As Byte + If Byte.TryParse(text, b) Then Return b + Case TypeCode.Int16 + Dim s As Short + If Short.TryParse(text, s) Then Return s + Case TypeCode.UInt16 + Dim us As UShort + If UShort.TryParse(text, us) Then Return us + Case TypeCode.Int32 + Dim i As Integer + If Integer.TryParse(text, i) Then Return i + Case TypeCode.UInt32 + Dim ui As UInteger + If UInteger.TryParse(text, ui) Then Return ui + Case TypeCode.Int64 + Dim l As Long + If Long.TryParse(text, l) Then Return l + Case TypeCode.UInt64 + Dim ul As ULong + If ULong.TryParse(text, ul) Then Return ul + Case TypeCode.Single + Dim f As Single + If Single.TryParse(text, f) Then Return f + Case TypeCode.Double + Dim d As Double + If Double.TryParse(text, d) Then Return d + Case TypeCode.Decimal + Dim e As Decimal + If Decimal.TryParse(text, e) Then Return e + End Select + Return Nothing + End Function + + Shared Function ParseEnum(ByVal name As String, ByVal type As Type) As Object + If type.IsEnum Then + Dim memberInfos As MemberInfo() = type.FindMembers(MemberTypes.Field, _ + BindingFlags.Public Or BindingFlags.DeclaredOnly Or BindingFlags.Static, _ + type.FilterNameIgnoreCase, name) + If memberInfos.Length <> 0 Then Return DirectCast(memberInfos(0), FieldInfo).GetValue(Nothing) + End If + Return Nothing + End Function + + Shared Function IsCompatibleWith(ByVal source As Type, ByVal target As Type) As Boolean + If source.Equals(target) Then Return True + If Not target.IsValueType Then Return target.IsAssignableFrom(source) + Dim st As Type = GetNonNullableType(source) + Dim tt As Type = GetNonNullableType(target) + If Not st.Equals(source) AndAlso tt.Equals(target) Then Return False + Dim sc As TypeCode = If(st.IsEnum, TypeCode.Object, Type.GetTypeCode(st)) + Dim tc As TypeCode = If(tt.IsEnum, TypeCode.Object, Type.GetTypeCode(tt)) + + Select Case sc + Case TypeCode.SByte + Select Case tc + Case TypeCode.SByte, TypeCode.Int16, TypeCode.Int32, TypeCode.Int64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.Byte + Select Case tc + Case TypeCode.Byte, TypeCode.Int16, TypeCode.UInt16, TypeCode.Int32, TypeCode.UInt32, TypeCode.Int64, TypeCode.UInt64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.Int16 + Select Case tc + Case TypeCode.Int16, TypeCode.Int32, TypeCode.Int64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.UInt16 + Select Case tc + Case TypeCode.UInt16, TypeCode.Int32, TypeCode.UInt32, TypeCode.Int64, TypeCode.UInt64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.Int32 + Select Case tc + Case TypeCode.Int32, TypeCode.Int64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.UInt32 + Select Case tc + Case TypeCode.UInt32, TypeCode.Int64, TypeCode.UInt64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.Int64 + Select Case tc + Case TypeCode.Int64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.UInt64 + Select Case tc + Case TypeCode.UInt64, TypeCode.Single, TypeCode.Double, TypeCode.Decimal + Return True + End Select + Case TypeCode.Single + Select Case tc + Case TypeCode.Single, TypeCode.Double + Return True + End Select + Case Else + If st.Equals(tt) Then Return True + End Select + Return False + End Function + + Shared Function IsBetterThan(ByVal args As Expression(), ByVal m1 As MethodData, ByVal m2 As MethodData) As Boolean + Dim better = False + For i As Integer = 0 To args.Length - 1 + Dim c As Integer = CompareConversions(args(i).Type, _ + m1.Parameters(i).ParameterType, _ + m2.Parameters(i).ParameterType) + If c < 0 Then Return False + If c > 0 Then better = True + Next i + Return better + End Function + + ' Return 1 if s -> t1 is a better conversion than s -> t2 + ' Return -1 if s -> t2 is a better conversion than s -> t1 + ' Return 0 if neither conversion is better + Shared Function CompareConversions(ByVal s As Type, ByVal t1 As Type, ByVal t2 As Type) As Integer + If t1.Equals(t2) Then Return 0 + If s.Equals(t1) Then Return 1 + If s.Equals(t2) Then Return -1 + Dim t1t2 As Boolean = IsCompatibleWith(t1, t2) + Dim t2t1 As Boolean = IsCompatibleWith(t2, t1) + If t1t2 AndAlso Not t2t1 Then Return 1 + If t2t1 AndAlso Not t1t2 Then Return -1 + If IsSignedIntegralType(t1) AndAlso IsUnsignedIntegralType(t2) Then Return 1 + If IsSignedIntegralType(t2) AndAlso IsUnsignedIntegralType(t1) Then Return -1 + Return 0 + End Function + + Function GenerateEqual(ByVal left As Expression, ByVal right As Expression) As Expression + Return Expression.Equal(left, right) + End Function + + Function GenerateNotEqual(ByVal left As Expression, ByVal right As Expression) As Expression + Return Expression.NotEqual(left, right) + End Function + + Function GenerateGreaterThan(ByVal left As Expression, ByVal right As Expression) As Expression + If left.Type.Equals(GetType(String)) Then + Return Expression.GreaterThan( _ + GenerateStaticMethodCall("Compare", left, right), _ + Expression.Constant(0)) + End If + Return Expression.GreaterThan(left, right) + End Function + + Function GenerateGreaterThanEqual(ByVal left As Expression, ByVal right As Expression) As Expression + If left.Type.Equals(GetType(String)) Then + Return Expression.GreaterThanOrEqual( _ + GenerateStaticMethodCall("Compare", left, right), _ + Expression.Constant(0)) + End If + Return Expression.GreaterThanOrEqual(left, right) + End Function + + Function GenerateLessThan(ByVal left As Expression, ByVal right As Expression) As Expression + If left.Type.Equals(GetType(String)) Then + Return Expression.LessThan( _ + GenerateStaticMethodCall("Compare", left, right), _ + Expression.Constant(0)) + End If + Return Expression.LessThan(left, right) + End Function + + Function GenerateLessThanEqual(ByVal left As Expression, ByVal right As Expression) As Expression + If left.Type.Equals(GetType(String)) Then + Return Expression.LessThanOrEqual( _ + GenerateStaticMethodCall("Compare", left, right), _ + Expression.Constant(0)) + End If + Return Expression.LessThanOrEqual(left, right) + End Function + + Function GenerateAdd(ByVal left As Expression, ByVal right As Expression) As Expression + If left.Type.Equals(GetType(String)) AndAlso right.Type.Equals(GetType(String)) Then + Return GenerateStaticMethodCall("Concat", left, right) + End If + Return Expression.Add(left, right) + End Function + + Function GenerateSubtract(ByVal left As Expression, ByVal right As expression) As Expression + Return Expression.Subtract(left, right) + End Function + + Function GenerateStringConcat(ByVal left As Expression, ByVal right As Expression) As Expression + Return Expression.Call( _ + Nothing, _ + GetType(String).GetMethod("Concat", New Type() {GetType(Object), GetType(Object)}), _ + New Expression() {left, right}) + End Function + + Function GetStaticMethod(ByVal methodName As String, ByVal left As expression, ByVal right As expression) As MethodInfo + Return left.Type.GetMethod(methodName, New Type() {left.Type, right.Type}) + End Function + + Function GenerateStaticMethodCall(ByVal methodName As String, ByVal left As Expression, ByVal right As Expression) As Expression + Return Expression.Call(Nothing, GetStaticMethod(methodName, left, right), New Expression() {left, right}) + End Function + + Sub SetTextPos(ByVal pos As Integer) + textPos = pos + ch = If(textPos < textLen, text(textPos), ChrW(0)) + End Sub + + Sub NextChar() + If textPos < textLen Then textPos += 1 + ch = If(textPos < textLen, text(textPos), ChrW(0)) + End Sub + + Sub NextToken() + Do While Char.IsWhiteSpace(ch) + NextChar() + Loop + + Dim t As TokenId + Dim tokenPos = textPos + Select Case ch + Case "!"c + NextChar() + If ch = "=" Then + NextChar() + t = TokenId.ExclamationEqual + Else + t = TokenId.Exclamation + End If + Case "%"c + NextChar() + t = TokenId.Percent + Case "&"c + NextChar() + If ch = "&" Then + NextChar() + t = TokenId.DoubleAmphersand + Else + t = TokenId.Amphersand + End If + Case "("c + NextChar() + t = TokenId.OpenParen + Case ")"c + NextChar() + t = TokenId.CloseParen + Case "*"c + NextChar() + t = TokenId.Asterisk + Case "+"c + NextChar() + t = TokenId.Plus + Case ","c + NextChar() + t = TokenId.Comma + Case "-"c + NextChar() + t = TokenId.Minus + Case "."c + NextChar() + t = TokenId.Dot + Case "/"c + NextChar() + t = TokenId.Slash + Case ":"c + NextChar() + t = TokenId.Colon + Case "<"c + NextChar() + If ch = "=" Then + NextChar() + t = TokenId.LessThanEqual + ElseIf ch = ">" Then + NextChar() + t = TokenId.LessGreater + Else + t = TokenId.LessThan + End If + Case "="c + NextChar() + If ch = "=" Then + NextChar() + t = TokenId.DoubleEqual + Else + t = TokenId.Equal + End If + Case ">"c + NextChar() + If ch = "=" Then + NextChar() + t = TokenId.GreaterThanEqual + Else + t = TokenId.GreaterThan + End If + Case "?"c + NextChar() + t = TokenId.Question + Case "["c + NextChar() + t = TokenId.OpenBracket + Case "]"c + NextChar() + t = TokenId.CloseBracket + Case "|"c + NextChar() + If ch = "|" Then + NextChar() + t = TokenId.DoubleBar + Else + t = TokenId.Bar + End If + Case "'"c, """"c + Dim quote = ch + Do + NextChar() + Do While textPos < textLen AndAlso ch <> quote + NextChar() + Loop + If textPos = textLen Then Throw ParseError(textPos, Res.UnterminatedStringLiteral) + NextChar() + Loop While ch = quote + t = TokenId.StringLiteral + Case Else + If Char.IsLetter(ch) OrElse ch = "@" OrElse ch = "_" Then + Do + NextChar() + Loop While Char.IsLetterOrDigit(ch) OrElse ch = "_" + t = TokenId.Identifier + Exit Select + End If + + If Char.IsDigit(ch) Then + t = TokenId.IntegerLiteral + Do + NextChar() + Loop While Char.IsDigit(ch) + If ch = "." Then + t = TokenId.RealLiteral + NextChar() + ValidateDigit() + Do + NextChar() + Loop While Char.IsDigit(ch) + End If + If ch = "E" OrElse ch = "e" Then + t = TokenId.RealLiteral + NextChar() + If ch = "+" OrElse ch = "-" Then NextChar() + ValidateDigit() + Do + NextChar() + Loop While Char.IsDigit(ch) + End If + If ch = "F" Or ch = "f" Then NextChar() + Exit Select + End If + If textPos = textLen Then + t = TokenId.End + Exit Select + End If + Throw ParseError(textPos, Res.InvalidCharacter, ch) + End Select + tokenVal.id = t + tokenVal.text = text.Substring(tokenPos, textPos - tokenPos) + tokenVal.pos = tokenPos + End Sub + + Function TokenIdentifierIs(ByVal id As String) As Boolean + Return tokenVal.id = TokenId.Identifier AndAlso String.Equals(id, tokenVal.text, StringComparison.OrdinalIgnoreCase) + End Function + + Function GetIdentifier() As String + ValidateToken(TokenId.Identifier, Res.IdentifierExpected) + Dim id = tokenVal.text + If id.Length > 1 AndAlso id(0) = "@" Then id = id.Substring(1) + Return id + End Function + + Sub ValidateDigit() + If Not Char.IsDigit(ch) Then Throw ParseError(textPos, Res.DigitExpected) + End Sub + + Sub ValidateToken(ByVal t As TokenId, ByVal errorMessage As String) + If tokenVal.id <> t Then Throw ParseError(errorMessage) + End Sub + + Sub ValidateToken(ByVal t As TokenId) + If tokenVal.id <> t Then Throw ParseError(Res.SyntaxError) + End Sub + + Overloads Function ParseError(ByVal format As String, ByVal ParamArray args As Object()) As Exception + Return ParseError(tokenVal.pos, format, args) + End Function + + Overloads Function ParseError(ByVal pos As Integer, ByVal format As String, ByVal ParamArray args As Object()) As Exception + Return New ParseException(String.Format(System.Globalization.CultureInfo.CurrentCulture, format, args), pos) + End Function + + Shared Function CreateKeywords() As Dictionary(Of String, Object) + Dim d As New Dictionary(Of String, Object)(StringComparer.OrdinalIgnoreCase) + + d.Add("true", trueLiteral) + d.Add("false", falseLiteral) + d.Add("null", nullLiteral) + d.Add(keywordIt, keywordIt) + d.Add(keywordIif, keywordIif) + d.Add(keywordNew, keywordNew) + + For Each type As Type In predefinedTypes + d.Add(type.Name, type) + Next + + Return d + End Function + End Class + + Class Res + Public Const DuplicateIdentifier As String = "The identifier '{0}' was defined more than once" + Public Const ExpressionTypeMismatch As String = "Expression of type '{0}' expected" + Public Const ExpressionExpected As String = "Expression expected" + Public Const InvalidCharacterLiteral As String = "Character literal must contain exactly one character" + Public Const InvalidIntegerLiteral As String = "Invalid integer literal '{0}'" + Public Const InvalidRealLiteral As String = "Invalid real literal '{0}'" + Public Const UnknownIdentifier As String = "Unknown identifier '{0}'" + Public Const NoItInScope As String = "No 'it' is in scope" + Public Const IifRequiresThreeArgs As String = "The 'iif' function requires three arguments" + Public Const FirstExprMustBeBool As String = "The first expression must be of type 'Boolean'" + Public Const BothTypesConvertToOther As String = "Both of the types '{0}' and '{1}' convert to the other" + Public Const NeitherTypeConvertsToOther As String = "Neither of the types '{0}' and '{1}' converts to the other" + Public Const MissingAsClause As String = "Expression is missing an 'as' clause" + Public Const ArgsIncompatibleWithLambda As String = "Argument list incompatible with lambda expression" + Public Const TypeHasNoNullableForm As String = "Type '{0}' has no nullable form" + Public Const NoMatchingConstructor As String = "No matching constructor in type '{0}'" + Public Const AmbiguousConstructorInvocation As String = "Ambiguous invocation of '{0}' constructor" + Public Const CannotConvertValue As String = "A value of type '{0}' cannot be converted to type '{1}'" + Public Const NoApplicableMethod As String = "No applicable method '{0}' exists in type '{1}'" + Public Const MethodsAreInaccessible As String = "Methods on type '{0}' are not accessible" + Public Const MethodIsVoid As String = "Method '{0}' in type '{1}' does not return a value" + Public Const AmbiguousMethodInvocation As String = "Ambiguous invocation of method '{0}' in type '{1}'" + Public Const UnknownPropertyOrField As String = "No property or field '{0}' exists in type '{1}'" + Public Const NoApplicableAggregate As String = "No applicable aggregate method '{0}' exists" + Public Const CannotIndexMultiDimArray As String = "Indexing of multi-dimensional arrays is not supported" + Public Const InvalidIndex As String = "Array index must be an integer expression" + Public Const NoApplicableIndexer As String = "No applicable indexer exists in type '{0}'" + Public Const AmbiguousIndexerInvocation As String = "Ambiguous invocation of indexer in type '{0}'" + Public Const IncompatibleOperand As String = "Operator '{0}' incompatible with operand type '{1}'" + Public Const IncompatibleOperands As String = "Operator '{0}' incompatible with operand types '{1}' and '{2}'" + Public Const UnterminatedStringLiteral As String = "Unterminated string literal" + Public Const InvalidCharacter As String = "Syntax error '{0}'" + Public Const DigitExpected As String = "Digit expected" + Public Const SyntaxError As String = "Syntax error" + Public Const TokenExpected As String = "{0} expected" + Public Const ParseExceptionFormat As String = "{0} (at index {1})" + Public Const ColonExpected As String = "':' expected" + Public Const OpenParenExpected As String = "'(' expected" + Public Const CloseParenOrOperatorExpected As String = "')' or operator expected" + Public Const CloseParenOrCommaExpected As String = "')' or ',' expected" + Public Const DotOrOpenParenExpected As String = "'.' or '(' expected" + Public Const OpenBracketExpected As String = "'[' expected" + Public Const CloseBracketOrCommaExpected As String = "']' or ',' expected" + Public Const IdentifierExpected As String = "Identifier expected" + End Class +End Namespace diff --git a/Extensiones/EntityExtensions.vb b/Extensiones/EntityExtensions.vb new file mode 100644 index 0000000..88d1578 --- /dev/null +++ b/Extensiones/EntityExtensions.vb @@ -0,0 +1,111 @@ +Imports System.Runtime.CompilerServices +Imports System.Data.Objects.DataClasses +Imports System.Runtime.Serialization +Imports System.IO +Imports System.Reflection +Imports System.Runtime.Serialization.Formatters.Binary + +Namespace Extensiones + Public Module EntityExtensions + ''' + ''' Extension method to Enitity Object. + ''' Deeply clone the Object. + ''' + ''' Entity Object need to be cloned + ''' The cloned object + + Public Function Clone(Of T As EntityObject)(ByVal source As T) As T + Dim ser As New DataContractSerializer(GetType(T)) + Using stream As MemoryStream = New MemoryStream + ser.WriteObject(stream, source) + stream.Seek(0, SeekOrigin.Begin) + Return DirectCast(ser.ReadObject(stream), T) + End Using + End Function + + Public Function ClearEntityObject(Of T As Class)(ByVal source As T, ByVal bCheckHierarchy As Boolean) As T + If (source Is Nothing) Then + Throw New Exception("Null Object cannot be cloned") + End If + Dim tObj As Type = source.GetType + If (Not tObj.GetProperty("EntityKey") Is Nothing) Then + tObj.GetProperty("EntityKey").SetValue(source, Nothing, Nothing) + End If + If bCheckHierarchy Then + Dim PropertyList As List(Of PropertyInfo) = Enumerable.ToList(Of PropertyInfo)((From a In source.GetType.GetProperties + Where a.PropertyType.Name.Equals("ENTITYCOLLECTION`1", StringComparison.OrdinalIgnoreCase) + Select a)) + Dim prop As PropertyInfo + For Each prop In PropertyList + Dim keys As IEnumerable = DirectCast(tObj.GetProperty(prop.Name).GetValue(source, Nothing), IEnumerable) + Dim key As Object + For Each key In keys + 'Dim kk = ((From a In key.GetType.GetProperties + 'Where (a.PropertyType.Name.Equals("EntityReference`1", StringComparison.OrdinalIgnoreCase)) + ' Select a)) + + 'Dim ochildprop = (From a In key.[GetType]().GetProperties() Where a.PropertyType.Name = "EntityReference`1").SingleOrDefault() + + Dim childProp As EntityReference = Enumerable.FirstOrDefault(Of PropertyInfo)((From a In key.GetType.GetProperties + Where (a.PropertyType.Name.Equals("EntityReference`1", StringComparison.OrdinalIgnoreCase)) + Select a)).GetValue(key, Nothing) + + ClearEntityObject(childProp, False) + ClearEntityObject(key, True) + Next + Next + End If + Return source + End Function + + + ''' + ''' Clear the entity of object and all related child objects + ''' + ''' Entity Object need to be cleared + ''' This parameter is used to determine whether to clear all the child object + ''' + + Public Function ClearEntityReference(ByVal source As EntityObject, ByVal bCheckHierarchy As Boolean) As EntityObject + Return ClearEntityObject(source, bCheckHierarchy) + End Function + + + Public Function LoadAllChild(source As EntityObject) As EntityObject + Dim PropList As List(Of PropertyInfo) = (From a In source.[GetType]().GetProperties() Where a.PropertyType.Name = "EntityCollection`1").ToList() + For Each prop As PropertyInfo In PropList + Dim instance As Object = prop.GetValue(source, Nothing) + Dim isLoad As Boolean = CBool(instance.[GetType]().GetProperty("IsLoaded").GetValue(instance, Nothing)) + If Not isLoad Then + Dim mi As MethodInfo = (From a In instance.[GetType]().GetMethods() Where a.Name = "Load" AndAlso a.GetParameters().Length = 0).FirstOrDefault() + mi.Invoke(instance, Nothing) + End If + Next + Return DirectCast(source, EntityObject) + End Function + + + Public Function DeepClone(Of T As EntityObject)(ByVal source As T) As T + Using ms = New MemoryStream() + Dim formatter = New BinaryFormatter() + formatter.Serialize(ms, source) + ms.Position = 0 + Return DirectCast(formatter.Deserialize(ms), T) + End Using + End Function + ' + 'Public Function ToDataTable(Of T As Class)(ByVal Lista As List(Of T)) As DataTable + ' Dim dt As New DataTable(GetType(T).Name) + ' Dim props = GetType(T).GetProperties(BindingFlags.Public Or BindingFlags.Instance) + ' For Each p In props + + ' Next + 'End Function + + Public Function ObtieneContexto(entity As Objects.DataClasses.EntityObject) As Objects.ObjectContext + Dim relationshipManager = DirectCast(entity, Objects.DataClasses.IEntityWithRelationships).RelationshipManager + Dim wrappedOwnerProperty = relationshipManager.GetType.GetProperty("WrappedOwner", Reflection.BindingFlags.Instance Or BindingFlags.NonPublic) + Return wrappedOwnerProperty.GetValue(relationshipManager).Context + End Function + End Module +End Namespace \ No newline at end of file diff --git a/Extensiones/IEnumerable.vb b/Extensiones/IEnumerable.vb new file mode 100644 index 0000000..da32bcb --- /dev/null +++ b/Extensiones/IEnumerable.vb @@ -0,0 +1,155 @@ +Imports System.Runtime.CompilerServices +Imports System.Data.Objects.DataClasses +Imports System.Runtime.Serialization +Imports System.IO +Imports System.Reflection +Imports System.Runtime.Serialization.Formatters.Binary + +Namespace Extensiones + Public Module IEnumerableExtensions + + + Public Function CopyToDataTable(Of T)(ByVal source As IEnumerable(Of T)) As DataTable + Return New ObjectShredder(Of T)().Shred(source, Nothing, Nothing) + End Function + + + Public Function CopyToDataTable(Of T)(ByVal source As IEnumerable(Of T), ByVal table As DataTable, ByVal options As LoadOption?) As DataTable + Return New ObjectShredder(Of T)().Shred(source, table, options) + End Function + + End Module +End Namespace + +Public Class ObjectShredder(Of T) + Private _fi As FieldInfo() + Private _pi As PropertyInfo() + Private _ordinalMap As Dictionary(Of String, Integer) + Private _type As Type + + Public Sub New() + _type = GetType(T) + _fi = _type.GetFields() + _pi = _type.GetProperties.Where(Function(x) Not (x.PropertyType.Name.Contains("EntityReference") Or x.PropertyType.Name.Contains("EntityCollection") Or x.PropertyType.Name.Contains("EntityState") Or x.PropertyType.Name.Contains("EntityKey") Or x.PropertyType.BaseType.Name = "EntityObject")).ToArray + _ordinalMap = New Dictionary(Of String, Integer)() + End Sub + + Public Function Shred(ByVal source As IEnumerable(Of T), ByVal table As DataTable, ByVal options As LoadOption?) As DataTable + If GetType(T).IsPrimitive Then + Return ShredPrimitive(source, table, options) + End If + + If table Is Nothing Then + table = New DataTable(GetType(T).Name) + End If + + table = ExtendTable(table, GetType(T)) + table.BeginLoadData() + + Using e As IEnumerator(Of T) = source.GetEnumerator() + + While e.MoveNext() + + If options IsNot Nothing Then + table.LoadDataRow(ShredObject(table, e.Current), CType(options, LoadOption)) + Else + table.LoadDataRow(ShredObject(table, e.Current), True) + End If + End While + End Using + + table.EndLoadData() + Return table + End Function + + Public Function ShredPrimitive(ByVal source As IEnumerable(Of T), ByVal table As DataTable, ByVal options As LoadOption?) As DataTable + If table Is Nothing Then + table = New DataTable(GetType(T).Name) + End If + + If Not table.Columns.Contains("Value") Then + table.Columns.Add("Value", GetType(T)) + End If + + table.BeginLoadData() + + Using e As IEnumerator(Of T) = source.GetEnumerator() + Dim values As Object() = New Object(table.Columns.Count - 1) {} + + While e.MoveNext() + values(table.Columns("Value").Ordinal) = e.Current + + If options IsNot Nothing Then + table.LoadDataRow(values, CType(options, LoadOption)) + Else + table.LoadDataRow(values, True) + End If + End While + End Using + + table.EndLoadData() + Return table + End Function + + Public Function ExtendTable(ByVal table As DataTable, ByVal type As Type) As DataTable + For Each f As FieldInfo In type.GetFields() + + If Not _ordinalMap.ContainsKey(f.Name) Then + Dim dc As DataColumn = If(table.Columns.Contains(f.Name), table.Columns(f.Name), table.Columns.Add(f.Name, f.FieldType)) + _ordinalMap.Add(f.Name, dc.Ordinal) + End If + Next + Dim Propiedades = type.GetProperties.Where(Function(x) Not (x.PropertyType.Name.Contains("EntityReference") Or x.PropertyType.Name.Contains("EntityCollection") Or x.PropertyType.Name.Contains("EntityState") Or x.PropertyType.Name.Contains("EntityKey") Or x.PropertyType.BaseType.Name = "EntityObject")) + For Each p As PropertyInfo In Propiedades + If Not _ordinalMap.ContainsKey(p.Name) Then + Try + Dim propiedad = p.PropertyType + If propiedad Is GetType(Integer?) Then + propiedad = GetType(Integer) + ElseIf propiedad Is GetType(Double?) Then + propiedad = GetType(Double) + ElseIf propiedad Is GetType(Long?) Then + propiedad = GetType(Long) + ElseIf propiedad Is GetType(DateTime?) Then + propiedad = GetType(DateTime) + ElseIf propiedad Is GetType(Date?) Then + propiedad = GetType(Date) + ElseIf propiedad Is GetType(Boolean?) Then + propiedad = GetType(Boolean) + End If + Dim dc As DataColumn = If(table.Columns.Contains(p.Name), table.Columns(p.Name), table.Columns.Add(p.Name, propiedad)) + _ordinalMap.Add(p.Name, dc.Ordinal) + Catch ex As Exception + Debug.Write(ex.Message) + End Try + End If + Next + + Return table + End Function + + Public Function ShredObject(ByVal table As DataTable, ByVal instance As T) As Object() + Dim fi As FieldInfo() = _fi + Dim pi As PropertyInfo() = _pi + + If instance.[GetType]() <> GetType(T) Then + ExtendTable(table, instance.[GetType]()) + fi = instance.[GetType]().GetFields() + pi = instance.[GetType]().GetProperties.Where(Function(x) Not (x.PropertyType.Name.Contains("EntityReference") Or x.PropertyType.Name.Contains("EntityCollection") Or x.PropertyType.Name.Contains("EntityState") Or x.PropertyType.Name.Contains("EntityKey") Or x.PropertyType.BaseType.Name = "EntityObject")).ToArray + End If + + Dim values As Object() = New Object(table.Columns.Count - 1) {} + + For Each f As FieldInfo In fi + values(_ordinalMap(f.Name)) = f.GetValue(instance) + Next + + For Each p As PropertyInfo In pi + values(_ordinalMap(p.Name)) = p.GetValue(instance, Nothing) + Next + + Return values + End Function +End Class + + diff --git a/Extensiones/IntegerExtensions.vb b/Extensiones/IntegerExtensions.vb new file mode 100644 index 0000000..e7fa661 --- /dev/null +++ b/Extensiones/IntegerExtensions.vb @@ -0,0 +1,16 @@ +Imports System.Runtime.CompilerServices + +Namespace Extensiones + Public Module IntegerExtensions + Function APalabras(Numero As Integer) As String + Return NumerosAPalabras.ToCardinal(Numero) + End Function + + Function EntreValores(Valor As Integer, RangoMenor As Integer, RangoMayor As Integer) As Boolean + Return Valor >= RangoMenor And Valor <= RangoMayor + End Function + Function NothingA0(Valor As Integer?) As Integer + Return If(Valor.HasValue, Valor, 0) + End Function + End Module +End Namespace diff --git a/Extensiones/LoggerExtensions.vb b/Extensiones/LoggerExtensions.vb new file mode 100644 index 0000000..50b415f --- /dev/null +++ b/Extensiones/LoggerExtensions.vb @@ -0,0 +1,27 @@ +Imports System.Runtime.CompilerServices +Imports Microsoft.Extensions.Logging + +Public Module LoggerExtensions + '// Ejemplo de uso de la extensión LogVariable(): + '// + '// ' Registrar información de una variable + '// Dim peassoVariable As String = "Hello, World!" + '// logger.LogVariable("peassoVariable", peassoVariable, LogLevel.Debug) + + Public Sub LogVariable(ByVal logger As ILogger, variableName As String, variableValue As Object, logLevel As LogLevel) + Try + If logger Is Nothing Then Throw New ArgumentNullException(NameOf(logger)) + If variableName Is Nothing Then Throw New ArgumentNullException(NameOf(variableName)) + + Dim variableType As String = If(variableValue IsNot Nothing, variableValue.GetType().FullName, "Null") + Dim variableContent As String = If(variableValue IsNot Nothing, variableValue.ToString(), "Null") + + Dim message As String = $"Variable Name: {variableName}, Type: {variableType}, Value: {variableContent}" + + logger.Log(logLevel, New EventId(), message, exception:=Nothing, Function(s, e) s.ToString()) + Catch ex As Exception + Debug.WriteLine($"Excepción en LoggerExtensions.LogVariable: {ex}") + End Try + End Sub + +End Module diff --git a/Extensiones/NameValueCollection.vb b/Extensiones/NameValueCollection.vb new file mode 100644 index 0000000..047f957 --- /dev/null +++ b/Extensiones/NameValueCollection.vb @@ -0,0 +1,16 @@ +Imports System.Runtime.CompilerServices + +Namespace Extensiones + Public Module NameValueCollection + + + Public Function ToPairs(collection As Specialized.NameValueCollection) As IEnumerable(Of KeyValuePair(Of String, String)) + If collection Is Nothing Then + Throw New ArgumentNullException("collection") + End If + + Return collection.Cast(Of String)().[Select](Function(key) New KeyValuePair(Of String, String)(key, collection(key))) + End Function + + End Module +End Namespace diff --git a/Extensiones/ObjetExtensions.vb b/Extensiones/ObjetExtensions.vb new file mode 100644 index 0000000..653c684 --- /dev/null +++ b/Extensiones/ObjetExtensions.vb @@ -0,0 +1,14 @@ +Imports System.Runtime.CompilerServices +Imports System.Linq.Expressions +Namespace Extensiones + Public Module ObjetExtensions + + Public Function ObjetoNothingAVacio(ByVal Cadena As Object) As String + If Cadena Is Nothing Then + Return "" + Else + Return Cadena.ToString + End If + End Function + End Module +End Namespace \ No newline at end of file diff --git a/Extensiones/SerializableDictionary.vb b/Extensiones/SerializableDictionary.vb new file mode 100644 index 0000000..fe88962 --- /dev/null +++ b/Extensiones/SerializableDictionary.vb @@ -0,0 +1,65 @@ +Imports System.Collections.Generic +Imports System.Text +Imports System.Xml.Serialization +Namespace Extensiones + _ + Public Class SerializableDictionary(Of TKey, TValue) + Inherits Dictionary(Of TKey, TValue) + Implements IXmlSerializable +#Region "IXmlSerializable Members" + Public Function GetSchema() As System.Xml.Schema.XmlSchema Implements IXmlSerializable.GetSchema + Return Nothing + End Function + + Public Sub ReadXml(reader As System.Xml.XmlReader) Implements IXmlSerializable.ReadXml + Dim keySerializer As New XmlSerializer(GetType(TKey)) + Dim valueSerializer As New XmlSerializer(GetType(TValue)) + + Dim wasEmpty As Boolean = reader.IsEmptyElement + reader.Read() + + If wasEmpty Then + Return + End If + + While reader.NodeType <> System.Xml.XmlNodeType.EndElement + reader.ReadStartElement("item") + + reader.ReadStartElement("key") + Dim key As TKey = DirectCast(keySerializer.Deserialize(reader), TKey) + reader.ReadEndElement() + + reader.ReadStartElement("value") + Dim value As TValue = DirectCast(valueSerializer.Deserialize(reader), TValue) + reader.ReadEndElement() + + Me.Add(key, value) + + reader.ReadEndElement() + reader.MoveToContent() + End While + reader.ReadEndElement() + End Sub + + Public Sub WriteXml(writer As System.Xml.XmlWriter) Implements IXmlSerializable.WriteXml + Dim keySerializer As New XmlSerializer(GetType(TKey)) + Dim valueSerializer As New XmlSerializer(GetType(TValue)) + + For Each key As TKey In Me.Keys + writer.WriteStartElement("item") + + writer.WriteStartElement("key") + keySerializer.Serialize(writer, key) + writer.WriteEndElement() + + writer.WriteStartElement("value") + Dim value As TValue = Me(key) + valueSerializer.Serialize(writer, value) + writer.WriteEndElement() + + writer.WriteEndElement() + Next + End Sub +#End Region + End Class +End Namespace \ No newline at end of file diff --git a/Extensiones/StringExtensions.vb b/Extensiones/StringExtensions.vb new file mode 100644 index 0000000..ad22ba3 --- /dev/null +++ b/Extensiones/StringExtensions.vb @@ -0,0 +1,711 @@ +Option Strict Off +Imports System.Runtime.CompilerServices +Imports System.Linq.Expressions +Imports System.Text.RegularExpressions +Imports tsl5.ValidarDocumentoIdentidad +Imports System.Globalization +Imports System.Text + +Namespace codificacion + Public Class Caracteres + Public Shared juegos()() As Char = New Char()() {"ñѺªçÇáéíóúÁÉÍÓÚàèìòùÀÈÌÒÙâêîôûÂÊÎÔÛäëïöüÄËÏÖÜ¡", "·¶úùµ´ÄÅÕÆÇàÜåçíÈÉÙÊË¡£æè­ÀÁÑÂ⤦߮ÌÍÝÎÏØ¥§ÚÛ¸", "·¶úùµ´aeiouAEIOUÈÉÙÊË¡£æè­ÀÁÑÂ⤦߮ÌÍÝÎÏØ¥§ÚÛ¸"} + Public Enum JuegoCaracteres + WINDOWS = 0 + ROMAN8 = 1 + ROMAN8_SIN_ACENTOS = 2 + End Enum + End Class +End Namespace +Namespace Extensiones + Public Module StringExtensions + + + Public Function EsDNIValido(ByVal DNI As String) As Boolean + Try + Dim v As New ValidarDocumentoIdentidad(DNI) + Return v.EsCorrecto + Catch ex As Exception + Return False + End Try + End Function + + Public Function EsCIFValido(ByVal DNI As String) As Boolean + Try + Return validateCif(DNI) + Catch ex As Exception + Return False + End Try + End Function + + Public Function TipoDocumentoIdentidad(ByVal DNI As String) As TiposDocumentosEnum + Try + Dim v As New ValidarDocumentoIdentidad(DNI) + If v.EsCorrecto = False Then Throw New Exception("No es un documento de identidad correcto") + Return v.TipoDocumento + Catch ex As Exception + Throw New Exception(ex.Message, ex) + End Try + End Function + + + + Public Function EsEmailValido(ByVal email As String) As Boolean + Try + email = email.NothingAVacio.Trim.ToLower + If email.NothingAVacio = "" Then + Return False + Else + Dim addr = New System.Net.Mail.MailAddress(email) + Return addr.Address = email + End If + Catch ex As Exception + Return False + End Try + End Function + + Public Function EsListaEmailsValida(ByVal Listaemail As String) As Boolean + Try + If Listaemail.NothingAVacio = "" Then + Return False + Else + Dim emails = Listaemail.Split(";") + For Each email In emails + email = email.NothingAVacio.Trim.ToLower + If email <> "" Then + Dim addr = New System.Net.Mail.MailAddress(email) + If addr.Address <> email Then + Throw New Exception("Email incorrecto") + End If + End If + Next + Return True + End If + Catch ex As Exception + Return False + End Try + End Function + + + Public Function EsNumeroTelefonoMovilEspañolValido(ByVal Telefono As String) As Boolean + Telefono = Telefono.NothingAVacio.Trim + Dim Valido As Boolean = True + If Telefono.Length = 9 Then + If Not (Telefono.StartsWith("6") Or Telefono.StartsWith("7")) Then + Valido = False + End If + ElseIf Telefono.Length = 11 Then + If Not Telefono.StartsWith("34") Then + Valido = False + End If + ElseIf Telefono.Length = 12 Then + If Not Telefono.StartsWith("+34") Then + Valido = False + End If + Else + Valido = False + End If + If Valido Then + For i = 1 To Telefono.Length - 1 + If Not "1234567890".Contains(Telefono.Substring(i, 1)) Then + Valido = False + Exit For + End If + Next + End If + Return Valido + End Function + + Public Function EsNumeroTelefonoEspañolValido(ByVal Telefono As String) As Boolean + Telefono = Telefono.NothingAVacio.Trim + Dim Valido As Boolean = True + If Telefono.Length = 9 Then + If Not (Telefono.StartsWith("6") Or Telefono.StartsWith("7") Or Telefono.StartsWith("8") Or Telefono.StartsWith("9")) Then + Valido = False + End If + ElseIf Telefono.Length = 11 Then + If Not Telefono.StartsWith("34") Then + Valido = False + End If + ElseIf Telefono.Length = 12 Then + If Not Telefono.StartsWith("+34") Then + Valido = False + End If + Else + Valido = False + End If + If Valido Then + For i = 1 To Telefono.Length - 1 + If Not "1234567890".Contains(Telefono.Substring(i, 1)) Then + Valido = False + Exit For + End If + Next + End If + Return Valido + End Function + + Public Function HoraDecimalASexagesimal(ByVal Cadena As String) As String + If Cadena.Contains(".") Then + Dim ParteDecimal = CInt(Cadena.Split(".")(1).PadRight(2, "0").Substring(0, 2)) + Dim Minutos = Math.Min(59, Math.Round(ParteDecimal * 60 / 100, 0, MidpointRounding.AwayFromZero)) + Return Cadena.Split(".")(0).PadLeft(2, "0") & ":" & Minutos.ToString.PadLeft(2, "0") + Else + Return Cadena.PadLeft(2, "0") & ":00" + End If + End Function + + + + + Public Function HoraStringATimeSpan(ByVal Cadena As String) As TimeSpan + Dim TS As TimeSpan + If Cadena = "00:00" Then + TS = New TimeSpan(0) + Else + Dim HoraEntera As String = Cadena + If Cadena.StartsWith("-") Then HoraEntera = Cadena.Substring(1) + If HoraEntera.Split(":").Length = 3 Then + TS = New TimeSpan(CInt(HoraEntera.Split(":")(0)), CInt(HoraEntera.Split(":")(1)), CInt(HoraEntera.Split(":")(2))) + Else + TS = New TimeSpan(CInt(HoraEntera.Split(":")(0)), CInt(HoraEntera.Split(":")(1)), 0) + End If + If Cadena.StartsWith("-") Then + TS = -TS + End If + End If + Return TS + End Function + + + Public Function ATimeSpan(ByVal Cadena As String) As TimeSpan + Dim TS As TimeSpan + If Cadena = "0" Then + TS = New TimeSpan(0) + Else + Dim HoraEntera As String = Cadena + If Cadena.StartsWith("-") Then HoraEntera = Cadena.Substring(1) + If HoraEntera.Contains(".") Then + TS = New TimeSpan(CInt(HoraEntera.Split(".")(0)), (Double.Parse("0." & HoraEntera.Split(".")(1), Globalization.CultureInfo.InvariantCulture) * 60), 0) + Else + TS = New TimeSpan(CInt(HoraEntera.Split(".")(0)), 0, 0) + End If + If Cadena.StartsWith("-") Then + TS = -TS + End If + End If + Return TS + End Function + + + + Public Function NothingAVacio(ByVal Cadena As String) As String + If Cadena Is Nothing OrElse Cadena Is DBNull.Value Then + Return "" + Else + Return Cadena + End If + End Function + + + + Public Sub ImprimirEnConsola(ByVal aString As String) + Console.WriteLine(aString) + End Sub + + + Public Sub ImprimirEnConsolaDeDepuracion(ByVal aString As String) + System.Diagnostics.Debug.WriteLine(aString) + End Sub + + + ''' + ''' Acorta la longitud de un String hasta la longitud especificada. + ''' + ''' + ''' La longitud a la que se desea acortar la cadena. + ''' + ''' Si la cadena es más pequeña que la longitud especificada no lanza excepción. Siempre hace Trim a la cadena. + + Public Function AcortarPorLaIzquierda(ByVal aString As String, ByVal longitud As Integer) As String + If aString Is Nothing Then + Return "" + Else + Dim resultado As String + aString = aString.Trim + If aString.Length >= longitud Then + resultado = aString.Substring(aString.Length - longitud, longitud).TrimEnd + Else + resultado = aString + End If + Return resultado + End If + End Function + + ''' + ''' Acorta la longitud de un String hasta la longitud especificada. + ''' + ''' + ''' La longitud a la que se desea acortar la cadena. + ''' + ''' Si la cadena es más pequeña que la longitud especificada no lanza excepción. Siempre hace Trim a la cadena. + + Public Function Acortar(ByVal aString As String, ByVal longitud As Integer) As String + If aString Is Nothing Then + Return "" + Else + Dim resultado As String + aString = aString.Trim + If aString.Length >= longitud Then + resultado = aString.Substring(0, longitud).TrimEnd + Else + resultado = aString + End If + Return resultado + End If + End Function + ''' + ''' Acorta la longitud de un String hasta la longitud especificada. + ''' + ''' + ''' La longitud a la que se desea acortar la cadena. + ''' + ''' Si la cadena es más pequeña que la longitud especificada no lanza excepción. Siempre hace Trim a la cadena. + + Public Function AcortarNombreFichero(ByVal aString As String, ByVal longitud As Integer) As String + If aString Is Nothing Then + Return "" + Else + Dim resultado As String + aString = aString.Trim + If aString.Length >= longitud Then + Dim extension = IO.Path.GetExtension(aString) + Dim filename = IO.Path.GetFileNameWithoutExtension(aString) + longitud = longitud - extension.Length + resultado = aString.Substring(filename, longitud).TrimEnd & extension + Else + resultado = aString + End If + Return resultado + End If + End Function + + Public Function LongitudFija(ByVal aString As String, ByVal longitud As Integer) As String + If aString Is Nothing Then + Return "" + Else + Dim resultado As String + aString = aString.Trim + If aString.Length >= longitud Then + resultado = aString.Substring(0, longitud) + Else + resultado = aString.PadRight(longitud, " ") + End If + Return resultado + End If + End Function + ''' + ''' Acorta la longitud de un String hasta la longitud especificada. Nunca lanza excepciones, aunque no exista el objeto. + ''' + ''' + ''' La longitud a la que se desea acortar la cadena. + ''' + ''' Si la cadena es más pequeña que la longitud especificada no lanza excepción. Siempre hace Trim a la cadena. Nunca lanza excepciones, aunque no exista el objeto. + + Public Function AcortarSinExcepciones(ByVal aString As String, ByVal longitud As Integer) As String + Dim resultado As String + Try + aString = aString.Trim + If aString.Length >= longitud Then + resultado = aString.Substring(0, longitud).TrimEnd + Else + resultado = aString + End If + Catch ex As Exception + resultado = "" + End Try + Return resultado + End Function + ''' + ''' Recorta por el final de la cadena el número de caracteres especificado en "longitud". + ''' + ''' La cadena a manipular. + ''' El número de caracteres que se desea recortar al final de la cadena. + ''' La cadena original pero con "longitud" caracteres menos al final. + ''' Nunca lanza excepciones. Si la cadena es más corta que el número de caracteres que se desea recortar, se devuelve cadena vacía. + ''' Si "aString" vale "patata" y "longitud" vale "2", el resultado es "pata". + + Public Function RecortarPorElFinal(ByVal aString As String, ByVal longitud As Integer) As String + Dim resultado As String = "" + If aString IsNot Nothing AndAlso aString.Length > longitud Then + resultado = aString.Substring(0, aString.Length - longitud) + End If + Return resultado + End Function + + Public Function ToMySql(d As Date) As String + Return d.ToString("yyyy-MM-dd HH:mm:ss") + End Function + + Public Function ConvierteDeWindowsARoman8(ByVal CadenaAconvertir As String) As String + Return ConvierteStrings(CadenaAconvertir, codificacion.Caracteres.JuegoCaracteres.WINDOWS, codificacion.Caracteres.JuegoCaracteres.ROMAN8) + End Function + + Public Function ConvierteDeWindowsARoman8SinAcentos(ByVal CadenaAconvertir As String) As String + Return ConvierteStrings(CadenaAconvertir, codificacion.Caracteres.JuegoCaracteres.WINDOWS, codificacion.Caracteres.JuegoCaracteres.ROMAN8_SIN_ACENTOS) + End Function + + Public Function ConvierteDeRoman8AWindows(ByVal CadenaAconvertir As String) As String + Return ConvierteStrings(CadenaAconvertir, codificacion.Caracteres.JuegoCaracteres.ROMAN8, codificacion.Caracteres.JuegoCaracteres.WINDOWS) + End Function + + Public Function ConvierteAAlfanumerico(ByVal StringOrigen As String, Optional cOrigen As String = "ÁÉÍÓÚÜáéíóúü", Optional cDestino As String = "AEIOUUaeiouu", Optional cPermitidos As String = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz0123456789,.") As String + Try + Dim iNumChar As Integer, i + iNumChar = StringOrigen.Length - 1 + Dim idx As Integer + Dim sDestino As String = "" + For i = 0 To iNumChar + 'If cPermitidos.Contains(StringOrigen.Substring(i, 1)) Then + ' sDestino &= StringOrigen.Substring(i, 1) + 'Else + ' If cOrigen.Contains(StringOrigen.Substring(i, 1)) Then + ' idx = cOrigen.IndexOf(StringOrigen.Substring(i, 1)) + ' sDestino &= cDestino.Substring(idx, 1) + ' Else + ' sDestino &= " " + ' End If + 'End If + If cOrigen.Contains(StringOrigen.Substring(i, 1)) Then + idx = cOrigen.IndexOf(StringOrigen.Substring(i, 1)) + sDestino &= cDestino.Substring(idx, 1) + Else + If cPermitidos.Contains(StringOrigen.Substring(i, 1)) Then + sDestino &= StringOrigen.Substring(i, 1) + Else + sDestino &= " " + End If + End If + Next + Return sDestino + Catch ex As Exception + Throw New Exception(ex.Message) + End Try + End Function + + Public Function ConvierteStrings(ByVal StringOrigen As String, ByVal jcOrigen As codificacion.Caracteres.JuegoCaracteres, ByVal jcDestino As codificacion.Caracteres.JuegoCaracteres) As String + Try + Dim iNumChar As Integer, i, pos As Integer + Dim cAux(), cOrigen(), cDestino() As Char + cOrigen = codificacion.Caracteres.juegos(jcOrigen) + cDestino = codificacion.Caracteres.juegos(jcDestino) + iNumChar = cOrigen.Length + cAux = StringOrigen + For i = 0 To iNumChar - 1 + pos = 0 + Do + pos = InStr(pos + 1, StringOrigen, cOrigen(i), CompareMethod.Binary) + If pos > 0 Then + cAux(pos - 1) = cDestino(i) + End If + Loop Until pos = 0 + Next + ConvierteStrings = cAux + Catch ex As Exception + Throw New Exception(ex.Message) + End Try + End Function + + Public Function FechaHoraStringADateTime(Fecha As String, Optional NuloSiInvalido As Boolean = True) As DateTime? + Try + If Fecha = "0" OrElse Fecha = "" Then + Return Nothing + Else + + + If Fecha.Length > 16 AndAlso Fecha.Substring(11, 1) = "/" Then + Dim f As Date = FechaStringADate(Fecha.Substring(0, 11), True) + Dim sHora = Fecha.Substring(12).Split(":") + Dim Hora As Integer = CInt(sHora(0)) + Dim Minutos As Integer = CInt(sHora(1)) + Dim Segundos As Integer = 0 + If sHora.Length > 2 Then + Segundos = CInt(sHora(2)) + End If + Return New DateTime(f.Year, f.Month, f.Day, Hora, Minutos, Segundos) + Else + If Fecha.Length = 16 AndAlso Fecha.Substring(10, 1) = "T" Then ' yyyy-MM-ddTHH:mm + Return New Date(CInt(Fecha.Substring(0, 4)), CInt(Fecha.Substring(5, 2)), CInt(Fecha.Substring(8, 2)), CInt(Fecha.Substring(11, 2)), CInt(Fecha.Substring(14, 2)), 0) + Else + If Fecha.Contains(".") Then + Dim HoraMinutos = CInt(Fecha.Split(".")(1).Acortar(4).PadRight(4, "0")) + Dim Minuto = (HoraMinutos Mod 100) / 100 * 60 + Dim Hora = Math.Truncate(HoraMinutos / 100) + Return New Date(CInt(Fecha.Substring(0, 4)), CInt(Fecha.Substring(4, 2)), CInt(Fecha.Substring(6, 2)), Hora, Minuto, 0) + Else + If Fecha.Length = 19 Then + Return Date.Parse(Fecha) + ElseIf Fecha.Length = 14 Then + Return New Date(CInt(Fecha.Substring(0, 4)), CInt(Fecha.Substring(4, 2)), CInt(Fecha.Substring(6, 2)), CInt(Fecha.Substring(8, 2)), CInt(Fecha.Substring(10, 2)), CInt(Fecha.Substring(12, 2))) + ElseIf Fecha.Length = 12 Then + Return New Date(CInt(Fecha.Substring(0, 4)), CInt(Fecha.Substring(4, 2)), CInt(Fecha.Substring(6, 2)), CInt(Fecha.Substring(8, 2)), CInt(Fecha.Substring(10, 2)), 0) + ElseIf Fecha.Length = 11 Then + Return FechaStringADate(Fecha, True) + Else + Return New Date(CInt(Fecha.Substring(0, 4)), CInt(Fecha.Substring(4, 2)), CInt(Fecha.Substring(6, 2)), 0, 0, 0) + End If + End If + End If + End If + End If + Catch ex As Exception + If NuloSiInvalido Then + Return Nothing + Else + Throw New Exception(ex.Message, ex) + End If + End Try + End Function + + + Public Function FechaStringADate(Fecha As String, Optional NuloSiInvalido As Boolean = True) As Date? + Try + Fecha = Fecha.Trim + If Fecha = "0" Or Fecha = "" Then + Return Nothing + Else + Dim cSeparador As String = "" + If Fecha.Contains("de") Then + Fecha = Fecha.Replace(" de ", "-") + End If + If Fecha.Contains("-") Then cSeparador = "-" + If Fecha.Contains("/") Then cSeparador = "/" + If Fecha.Contains(".") Then + If Fecha.Split(".")(0).Length >= 8 Then + Fecha = Fecha.Split(".")(0) + Else + If cSeparador = "" Then cSeparador = "." + End If + End If + Dim iMes As Integer = 0 + If Fecha.ToLower.Contains("ene") Or Fecha.ToLower.Contains("enero") Then iMes = 1 + If Fecha.ToLower.Contains("feb") Or Fecha.ToLower.Contains("febrero") Then iMes = 2 + If Fecha.ToLower.Contains("mar") Or Fecha.ToLower.Contains("marzo") Then iMes = 3 + If Fecha.ToLower.Contains("abr") Or Fecha.ToLower.Contains("abril") Then iMes = 4 + If Fecha.ToLower.Contains("may") Or Fecha.ToLower.Contains("mayo") Then iMes = 5 + If Fecha.ToLower.Contains("jun") Or Fecha.ToLower.Contains("junio") Then iMes = 6 + If Fecha.ToLower.Contains("jul") Or Fecha.ToLower.Contains("julio") Then iMes = 7 + If Fecha.ToLower.Contains("ago") Or Fecha.ToLower.Contains("agosto") Then iMes = 8 + If Fecha.ToLower.Contains("sep") Or Fecha.ToLower.Contains("septiembre") Then iMes = 9 + If Fecha.ToLower.Contains("oct") Or Fecha.ToLower.Contains("octubre") Then iMes = 10 + If Fecha.ToLower.Contains("nov") Or Fecha.ToLower.Contains("noviembre") Then iMes = 11 + If Fecha.ToLower.Contains("dic") Or Fecha.ToLower.Contains("diciembre") Then iMes = 12 + If cSeparador = "" Then + If Fecha.Length = 6 Then Fecha = "19" & Fecha + Return New Date(Integer.Parse(Fecha.Substring(0, 4)), Integer.Parse(Fecha.Substring(4, 2)), Integer.Parse(Fecha.Substring(6, 2))) + 'Throw New Exception("formato de fecha no soportado") + Else + Dim mFecha() As String + mFecha = Fecha.Split(cSeparador) + If mFecha(0).Length >= 4 Then + Dim año As Integer = Integer.Parse(mFecha(0).Replace(".", "").Acortar(4)) + If año < 100 Then año += 2000 + If iMes > 0 Then + Return New Date(año, iMes, Integer.Parse(mFecha(2))) + Else + Return New Date(año, Integer.Parse(mFecha(1).ToString), Integer.Parse(mFecha(2))) + End If + Else + Dim año As Integer = Integer.Parse(mFecha(2).Replace(".", "").Acortar(4)) + If año < 100 Then año += 2000 + If iMes > 0 Then + Return New Date(año, iMes, Integer.Parse(mFecha(0))) + Else + Return New Date(año, Integer.Parse(mFecha(1).ToString), Integer.Parse(mFecha(0))) + End If + End If + End If + End If + Catch ex As Exception + If NuloSiInvalido Then + Return Nothing + Else + Throw New Exception(ex.Message, ex) + End If + End Try + End Function + + Public Function FechaHoraAstring(FechaHora As DateTime) As String + Return FechaHora.Year.ToString & FechaHora.Month.ToString.PadLeft(2, "0") & FechaHora.Day.ToString.PadLeft(2, "0") & FechaHora.Hour.ToString.PadLeft(2, "0") & FechaHora.Minute.ToString.PadLeft(2, "0") & FechaHora.Second.ToString.PadLeft(2, "0") + End Function + ''' + ''' Compute LevenshteinDistance. + ''' + + Public Function LevenshteinDistance(ByVal s As String, ByVal t As String) As Integer + Dim n As Integer = s.Length + Dim m As Integer = t.Length + Dim d(n + 1, m + 1) As Integer + + If n = 0 Then + Return m + End If + + If m = 0 Then + Return n + End If + + Dim i As Integer + Dim j As Integer + + For i = 0 To n + d(i, 0) = i + Next + + For j = 0 To m + d(0, j) = j + Next + + For i = 1 To n + For j = 1 To m + + Dim cost As Integer + If t(j - 1) = s(i - 1) Then + cost = 0 + Else + cost = 1 + End If + + d(i, j) = Math.Min(Math.Min(d(i - 1, j) + 1, d(i, j - 1) + 1), + d(i - 1, j - 1) + cost) + Next + Next + + Return d(n, m) + End Function + + Public Function EliminarComillasTipograficas(s As String) As String + If Not String.IsNullOrEmpty(s) Then + Return s.Replace("‘"c, "'"c).Replace("’"c, "'"c).Replace(ChrW(&H201C), """"c).Replace(ChrW(&H201D), """"c) + Else + Return s + End If + End Function + + + Public Function PrimeraLetraMayusculas(s As String) As String + If s <> "" Then + Return s.First().ToString().ToUpper() + [String].Join("", s.Skip(1)).ToLower + Else + Return "" + End If + End Function + + + Public Function PrimeraLetraFraseMayusculas(s As String) As String + If s.Trim <> "" Then + Dim spalabras = s.Split(" ") + Dim sResultado As String = "" + For Each p In spalabras + sResultado &= " " & p.PrimeraLetraMayusculas + Next + Return sResultado.Substring(1) + Else + Return "" + End If + End Function + + Public Function PrimeraLetraFraseMayusculasSinArticulos(s As String) As String + If s.Trim <> "" Then + Dim spalabras = s.Split(" ") + Dim sResultado As String = "" + For Each p In spalabras + sResultado &= " " & p.PrimeraLetraMayusculas + Next + sResultado = sResultado.Substring(1) + sResultado = sResultado.Replace(" El ", " el ").Replace(" Y ", " y ").Replace(" Lo ", " lo ").Replace(" La ", " la ").Replace(" DeL ", " del ").Replace(" De ", " de ").Replace(" Los ", " los ").Replace(" Las ", " las ") + Return sResultado + Else + Return "" + End If + End Function + + Public Function EliminaPalabrasComunes(palabras As List(Of String)) As List(Of String) + Dim PalabrasAEliminar As String() + PalabrasAEliminar = {"a", "ante", "bajo", "cabe", "con", "contra", "de", "desde", "durante", "en", "entre", "hacia", "hasta", "mediante", "para", "por", "segun", "sin", "so", "sobre", "tras", "versus", "", "via", "el", "la", "lo", "los", "las", "un", "una", "uno", "unos", "al", "del", "que", "ya"} + Return palabras.Except(PalabrasAEliminar).ToList + End Function + + ' + 'Public Function ReemplazarAcentos(value As String) As String + + ' If (String.IsNullOrEmpty(value)) Then Return String.Empty + + ' Dim caracteresNoPermitidos As String = "áéíóúàèìòùÁÉÍÓÚÀÈÌÒÙäÄëËïÏöÖüÜ" + + ' ' NO ELIMINAR LOS CARACTERES REPETIDOS, Y RESPETAR EL ORDEN + ' ' EN EL QUE SE ENCUENTRAN DEFINIDOS. Si se añaden más caracteres + ' ' no permitidos, añadir en la misma posición su correspondiente + ' ' carácter permmitido. + ' ' + ' Dim caracteresPermitidos As String = "aeiouaeiouAEIOUAEIOUaAeEiIoOuU" + + ' Dim chars As Char() = caracteresNoPermitidos.ToCharArray() + + ' Dim buffer As New System.Text.StringBuilder(256) + + ' buffer.Append(value) + + ' For Each letra As Char In value + ' ' NOTA: para utilizar el método Contains hay que + ' ' importar el espacio de nombres System.Linq, lo que + ' ' significa utilizar .NET 3.5 o superior. + ' ' + ' If (chars.Contains(letra)) Then + ' Dim index As Int32 = caracteresNoPermitidos.IndexOf(letra) + ' buffer.Replace(letra, caracteresPermitidos(index)) + ' End If + ' Next + + ' Return buffer.ToString() + + 'End Function + + Public Function SoloLetrasYNumeros(cadena As String) As String + Dim pattern As String = "[^a-zA-Z0-9ñÑ ]" + Return Regex.Replace(cadena, pattern, String.Empty) + + End Function + + + Public Function ReemplazarAcentos(value As String) As String + Dim toReplace() As Char = "àèìòùÀÈÌÒÙ äëïöüÄËÏÖÜ âêîôûÂÊÎÔÛ áéíóúÁÉÍÓÚðÐýÝ ãõÃÕšŠžŽçÇåÅøØ".ToCharArray + Dim replaceChars() As Char = "aeiouAEIOU aeiouAEIOU aeiouAEIOU aeiouAEIOUdDyY aoAOsSzZcCaAoO".ToCharArray + For index As Integer = 0 To toReplace.GetUpperBound(0) + value = value.Replace(toReplace(index), replaceChars(index)) + Next + Return value + End Function + + + Public Function RemoveDiacritics(ByVal text As String) As String + If text IsNot Nothing Then + Dim normalizedString = text.Normalize(NormalizationForm.FormD) + Dim stringBuilder = New StringBuilder(capacity:=normalizedString.Length) + + For i As Integer = 0 To normalizedString.Length - 1 + Dim c As Char = normalizedString(i) + Dim unicodeCategory = CharUnicodeInfo.GetUnicodeCategory(c) + + If unicodeCategory <> UnicodeCategory.NonSpacingMark Then + stringBuilder.Append(c) + End If + Next + + Return stringBuilder.ToString().Normalize(NormalizationForm.FormC) + Else + Return "" + End If + End Function + + End Module +End Namespace diff --git a/Extensiones/TimeSpanExtensions.vb b/Extensiones/TimeSpanExtensions.vb new file mode 100644 index 0000000..4901cbb --- /dev/null +++ b/Extensiones/TimeSpanExtensions.vb @@ -0,0 +1,20 @@ +Option Strict Off +Imports System.Runtime.CompilerServices +Imports System.Linq.Expressions + +Namespace Extensiones + Public Module TimeSpanExtensions + + Public Function TimeSpanAHoraString(ByVal ts As TimeSpan?) As String + If ts.HasValue AndAlso ts.Value.Ticks <> 0 Then + If ts.Value.TotalMinutes < 0 Then + Return "-" & Fix(Math.Abs(ts.Value.TotalHours)).ToString.PadLeft(2, "0") & ":" & Math.Abs(CInt(ts.Value.Minutes)).ToString.PadLeft(2, "0") + Else + Return Fix(Math.Abs(ts.Value.TotalHours)).ToString.PadLeft(2, "0") & ":" & Math.Abs(CInt(ts.Value.Minutes)).ToString.PadLeft(2, "0") + End If + Else + Return "00:00" + End If + End Function + End Module +End Namespace diff --git a/Ficheros.vb b/Ficheros.vb new file mode 100644 index 0000000..6315bf2 --- /dev/null +++ b/Ficheros.vb @@ -0,0 +1,184 @@ +Imports System.IO +Imports System.Text.RegularExpressions +Imports System.Xml + +Public Class Ficheros + Public Shared Function FicheroAArrayBytes(ByVal RutaFichero As String) As Byte() + Return IO.File.ReadAllBytes(RutaFichero) + 'FicheroAArrayBytes = Nothing + 'Try + ' Dim fstmp As IO.FileStream, by() As Byte + ' fstmp = IO.File.OpenRead(RutaFichero) + ' ReDim by(fstmp.Length - 1) + ' fstmp.Read(by, 0, fstmp.Length) + ' fstmp.Close() + ' FicheroAArrayBytes = by + 'Catch ex As Exception + ' Throw New Exception(ex.Message, ex) + 'End Try + End Function + Public Shared Function FicheroAString(ByVal RutaFichero As String) As String + Dim s As String + Dim tr As IO.TextReader = New IO.StreamReader(RutaFichero) + s = tr.ReadToEnd + Return s + End Function + Public Shared Sub ByteArrayAFichero(Datos() As Byte, NombreFichero As String, Optional Sobreescribir As Boolean = False) + If Not IO.Directory.Exists(IO.Path.GetDirectoryName(NombreFichero)) Then Utilidades.CreaEstructuraDirectorio(IO.Path.GetDirectoryName(NombreFichero)) + If IO.File.Exists(NombreFichero) And Sobreescribir Then IO.File.Delete(NombreFichero) + Dim oFileStream As System.IO.FileStream + oFileStream = New System.IO.FileStream(NombreFichero, System.IO.FileMode.Create) + oFileStream.Write(Datos, 0, Datos.Length) + oFileStream.Close() + End Sub + + + Public Shared Sub EliminaCaracteresInvalidosXML(FicheroOrigen As String, FicheroDestino As String) + Dim reader As TextReader = New StreamReader(FicheroOrigen) + Dim writer As TextWriter = New StreamWriter([FicheroDestino]) + Dim linea As String = reader.ReadLine + Do Until linea Is Nothing + writer.WriteLine(CleanInvalidXmlChars(linea)) + linea = reader.ReadLine + Loop + writer.WriteLine(CleanInvalidXmlChars(reader.ReadToEnd())) + writer.Flush() + reader.Close() + writer.Close() + End Sub + + Public Shared Sub EliminaCaracteresInvalidosXML(stOrigen As Stream, stDestino As Stream) + Dim reader As TextReader = New StreamReader(stOrigen) + Dim writer As TextWriter = New StreamWriter(stDestino) + Dim linea As String = reader.ReadLine + Do Until linea Is Nothing + writer.WriteLine(CleanInvalidXmlChars(linea)) + linea = reader.ReadLine + Loop + writer.WriteLine(CleanInvalidXmlChars(reader.ReadToEnd())) + writer.Flush() + reader.Close() + ' writer.Close() + stDestino.Position = 0 + End Sub + + + Public Shared Function CleanInvalidXmlChars(text As String) As String + Dim re As String = "[^\x09\x0A\x0D\x20-\xD7FF\xE000-\xFFFD\x10000-x10FFFF]" + Return Regex.Replace(text, re, "") + End Function + Public Shared Function IndentaFicheroXML(ByVal FicheroOrigen As String, Codificacion As Text.Encoding) As String + Dim result As String = "" + Dim mStream As MemoryStream = New MemoryStream() + Dim writer As XmlTextWriter = New XmlTextWriter(mStream, Codificacion) + Dim document As XmlDocument = New XmlDocument() + + Try + document.Load(FicheroOrigen) + writer.Formatting = Formatting.Indented + document.WriteContentTo(writer) + writer.Flush() + mStream.Flush() + mStream.Position = 0 + Dim sReader As StreamReader = New StreamReader(mStream) + Dim formattedXml As String = sReader.ReadToEnd() + result = formattedXml + Catch __unusedXmlException1__ As XmlException + End Try + + mStream.Close() + writer.Close() + Return result + End Function + Public Shared Function IndentaXML(ByVal xml As String, Codificacion As Text.Encoding) As String + Dim result As String = "" + Dim mStream As MemoryStream = New MemoryStream() + Dim writer As XmlTextWriter = New XmlTextWriter(mStream, Codificacion) + Dim document As XmlDocument = New XmlDocument() + + Try + document.LoadXml(xml) + writer.Formatting = Formatting.Indented + document.WriteContentTo(writer) + writer.Flush() + mStream.Flush() + mStream.Position = 0 + Dim sReader As StreamReader = New StreamReader(mStream) + Dim formattedXml As String = sReader.ReadToEnd() + result = formattedXml + Catch __unusedXmlException1__ As XmlException + End Try + + mStream.Close() + writer.Close() + Return result + End Function + Public Shared Sub ObtieneFicherosRecursivo(ByVal Ruta As String, ByRef Ficheros() As String, OmitirErrores As Boolean) + Dim sFicheros() As String = IO.Directory.GetFiles(Ruta) + Dim iNumeroFicheros As Integer + If Not IsNothing(Ficheros) Then iNumeroFicheros = Ficheros.Length + ReDim Preserve Ficheros(sFicheros.Length - 1 + iNumeroFicheros) + sFicheros.CopyTo(Ficheros, iNumeroFicheros) + Dim sDirectorio, sDirectorios() As String + Try + sDirectorios = IO.Directory.GetDirectories(Ruta) + For Each sDirectorio In sDirectorios + Try + ObtieneFicherosRecursivo(sDirectorio, Ficheros, OmitirErrores) + Catch ex As Exception + If Not OmitirErrores Then + Throw New Exception(ex.Message, ex) + End If + End Try + Next + Catch ex As Exception + If Not OmitirErrores Then + Throw New Exception(ex.Message, ex) + End If + + End Try + End Sub + Public Shared Sub EliminaDirectorio(Directorio As String, OmitirErrores As Boolean) + Dim dirs = IO.Directory.GetDirectories(Directorio) + For Each carpeta In dirs + Try + IO.Directory.Delete(carpeta, True) + Catch ex As Exception + If Not OmitirErrores Then + Throw New Exception(ex.Message, ex) + End If + End Try + Next + Dim sFicheros() As String = Nothing + ObtieneFicherosRecursivo(Directorio, sFicheros, OmitirErrores) + For Each f In sFicheros + Try + IO.File.Delete(f) + Catch ex As Exception + If Not OmitirErrores Then + Throw New Exception(ex.Message, ex) + End If + End Try + Next + End Sub + Public Shared Sub EliminaFicherosTemporales() + Dim tempfolder As String = Path.GetTempPath() + EliminaDirectorio(tempfolder, True) + End Sub + Public Shared Function AcortarNombreArchivo(ByVal nombreArchivo As String, ByVal longitudMaximaIncluyendoExtension As Integer) As String + ' Obtén la extensión del archivo + Dim extension As String = System.IO.Path.GetExtension(nombreArchivo) + + ' Obtén el nombre base del archivo sin la extensión + Dim nombreBase As String = System.IO.Path.GetFileNameWithoutExtension(nombreArchivo) + + ' Acorta el nombre base si es necesario + If nombreArchivo.Length > longitudMaximaIncluyendoExtension Then + nombreBase = nombreBase.Substring(0, longitudMaximaIncluyendoExtension - extension.Length) + End If + + ' Combina el nombre base acortado con la extensión + Return nombreBase & extension + End Function + +End Class diff --git a/Hacienda/Modelo190.vb b/Hacienda/Modelo190.vb new file mode 100644 index 0000000..2ec1abd --- /dev/null +++ b/Hacienda/Modelo190.vb @@ -0,0 +1,216 @@ +Namespace Modelo190 + Public Class DatosModelo190 + Public Property Declarante As RegistroDeclarante + Public Property Perceptores As List(Of RegistroPerceptor) + End Class + + Public Class RegistroDeclarante + Public Property TipoRegistro As String = "1" ' 1 + Public Property ModeloDeclaracion As String = "190" ' 2-4 + Public Property Ejercicio As String = "" ' 5-8 + Public Property NifDeclarante As String = "" ' 9-17 + Public Property ApeNombreRsoDeclarante As String = "" '18-57 + Public Property TipodeSoporte As String = "T" '58 + Public Property PerConQuienRelacionarseTlf As String = "" ' 59-67 + Public Property PerConQuienRelacionarseNom As String = "" ' 68-107 + Public Property NumIdenDecla As String = "" ' 108-120 + Public Property DeclComploSust As String = "" ' 121-122 + Public Property NumIdenDeclaAnt As String = "" ' 123-135 + Public Property NumTotaldePercepciones As String = "" ' 136-144 + Public Property ImpTotPercepcionesSigno As String = "" ' 145 + 'Public Property ImpTotPercepciones As String = "" ' 146-160 146-158 parte entera 159-160 parte decimal + Public Property ImpTotPercepcionesParEnt As String = "" '146-158 + Public Property ImpTotPercepcionesParDec As String = "" '159-160 + Public Property ImpTotRetencionesParEnt As String = "" '161-173 + Public Property ImpTotRetencionesParDec As String = "" '174-175 + 'Public Property ImpTotRetenciones As String = "" ' 161-175 161-173 parte entera 174-175 parte decimal + Public Property CorreoElectronicoPerConQuienRelacionarse As String = "" ' 176-225 + Public Property Blancos As String = " ".PadRight(262, " ") '226-487 + Public Property SelloElectronico As String = " ".PadRight(13, " ") '488-500 + + + + End Class + Public Class RegistroPerceptor + Public Property TipoRegistro As String + Public Property ModeloDeclaracion As String = "190" + Public Property Ejercicio As String = "" ' 5-8 + Public Property NifDeclarante As String = "" ' 9-17 + Public Property NifPerceptor As String = "" ' 18-26 + Public Property NifRepresentateLegal As String = "" ' 27-35 + Public Property ApeNombreRsoPerceptor As String = "" '36-75 + Public Property CodigoProvincial As String = "41" '76-77 + Public Property ClavePercepcion As String = "" '78 + Public Property SubClave As String = "" '79-80 + Public Property PerDineNoIncaLabSigno As String = "" '81 + Public Property PerDineNoIncaLabPerint As Double = 0 + Public Property PerDineNoIncaLabPerintParEnt As String = "" '82-92 + Public Property PerDineNoIncaLabPerintParDec As String = "" '93-94 + Public Property PerDineNoIncaLabRetPra As Double = 0 + Public Property PerDineNoIncaLabRetPraParEnt As String = "" '95-105 + Public Property PerDineNoIncaLabRetPraParDec As String = "" '106-107 + Public Property PerEspNoIncaLabSigno As String = "" '108 + Public Property PerEspNoIncaLabPerint As Double = 0 + Public Property PerEspNoIncaLabPerintParEnt As String = "" '109-119 + Public Property PerEspNoIncaLabPerintParDec As String = "" '120-121 + Public Property PerEspNoIncaLabRetPra As Double = 0 '122-132 + Public Property PerEspNoIncaLabRetPraParEnt As String = "" '122-132 + Public Property PerEspNoIncaLabRetPraParDec As String = "" '133-134 + Public Property PerEspNoIncaLabRetRep As Double = 0 + Public Property PerEspNoIncaLabRetRepParEnt As String = "" '135-145 + Public Property PerEspNoIncaLabRetRepParDec As String = "" '146-147 + Public Property EjercicioDevengo As String = "0000" '148-151 + Public Property CeutaOMelilla As String = "" '152 + Public Property AñoNacimiento As String = "" '153-156 + Public Property SituacionFamilia As String = "" '157 + Public Property NifConyuge As String = "" '158-166 + Public Property Discapacidad As String = "" '167 + Public Property ContratoRelacion As String = "" '168 + Public Property Guion As String = "" '169 + Public Property MovilidadGeografica As String = "" '170 + Public Property ReduccionesAplicable As String = "" '171-181 parte entera 182-183 parte decimal + Public Property GastosDeducibles As Double = 0 + Public Property GastosDeduciblesEnt As String = "" '184-194 parte entera + Public Property GastosDeduciblesDec As String = "" ' 195-196 parte decimal + Public Property PensionCompensatoria As Double = 0 + Public Property PensionCompensatoriaEnt As String = "" '197-207 parte entera + Public Property PensionCompensatoriaDec As String = "" '208-209 parte decimal + Public Property AnualidadporAlimentos As Double = 0 + Public Property AnualidadporAlimentosEnt As String = "" '210-220 parte entera + Public Property AnualidadporAlimentosDec As String = "" '221-222 parte decimal + Public Property HijosyOtrosDecendientes As String = "" '223-228 + Public Property HijosyOtrosDecendientesConDiscapacidad As String = "" '229-240 + Public Property Ascendientes As String = "" '241-244 + Public Property AscendientesConDiscapacidad As String = "" '245-250 + Public Property Com3PrimerosHijos As String = "" '251-253 + Public Property ComuPresVivHab As String = "" '254 + Public Property PerDineDerIncaLabSigno As String = "" '255 + Public Property PerDineIncaLabPerint As Double = 0 + Public Property PerDineIncaLabPerintParEnt As String = "" '256-266 + Public Property PerDineIncaLabPerintParDec As String = "" '267-268 + Public Property PerDineIncaLabRetPra As Double = 0 + Public Property PerDineIncaLabRetPraParEnt As String = "" '269-279 + Public Property PerDineIncaLabRetPraParDec As String = "" '280-281 + Public Property PerEspDerIncaLabSigno As String = "" '282 + Public Property PerEspIncaLabPerint As Double = 0 + Public Property PerEspIncaLabPerintParEnt As String = "" '283-293 + Public Property PerEspIncaLabPerintParDec As String = "" '294-295 + Public Property PerEspIncaLabRetPra As Double = 0 + Public Property PerEspIncaLabRetPraParEnt As String = "" '296-306 + Public Property PerEspIncaLabRetPraParDec As String = "" '307-308 + Public Property PerEspIncaLabRetRep As Double = 0 + Public Property PerEspIncaLabRetRepParEnt As String = "" '309-319 + Public Property PerEspIncaLabRetRepParDec As String = "" '320-321 + Public Property PerTitularConvivencia As String = "0" '322 + Public Property RetEIngrEstEnDipuForPaisVascoYNavarra As String = "0".PadRight(66, "0") ' 323-387 + Public Property TotalPercepcionesIntegras As Double = 0 + Public Property TotalRetencionesIntegras As Double = 0 + Public Property Blancos As String = " ".PadRight(112, " ") '388-500 + + End Class + Public Class Utilidades + Public Shared Sub GeneraFichero(Datos As DatosModelo190, Fichero As String) + Try + + + ' Dim fs As New IO.FileStream(Fichero, IO.FileMode.CreateNew) + ' Dim sw As New IO.StreamWriter(fs, System.Text.Encoding.GetEncoding("iso-8859-1")) + Dim sw As New IO.StreamWriter(Fichero, False, System.Text.Encoding.GetEncoding("iso-8859-1")) + Dim RegDeclarante As String + RegDeclarante = Datos.Declarante.TipoRegistro.PadLeft(1, " ") + RegDeclarante &= Datos.Declarante.ModeloDeclaracion.PadRight(3, " ") + RegDeclarante &= Datos.Declarante.Ejercicio.PadLeft(4, "0") + RegDeclarante &= Datos.Declarante.NifDeclarante.PadLeft(9, "0") + RegDeclarante &= Datos.Declarante.ApeNombreRsoDeclarante.Replace(",", "").PadRight(40, " ") + RegDeclarante &= Datos.Declarante.TipodeSoporte.PadLeft(1, " ") + RegDeclarante &= Datos.Declarante.PerConQuienRelacionarseTlf.PadLeft(9, "0") + RegDeclarante &= Datos.Declarante.PerConQuienRelacionarseNom.PadRight(40, " ") + RegDeclarante &= Datos.Declarante.NumIdenDecla.PadLeft(13, "0") + RegDeclarante &= Datos.Declarante.DeclComploSust.PadRight(2, " ") + RegDeclarante &= Datos.Declarante.NumIdenDeclaAnt.PadLeft(13, "0") + RegDeclarante &= Datos.Declarante.NumTotaldePercepciones.PadLeft(9, "0") + RegDeclarante &= Datos.Declarante.ImpTotPercepcionesSigno.PadLeft(1, " ") + RegDeclarante &= Datos.Declarante.ImpTotPercepcionesParEnt.PadLeft(13, "0") '146-158 + RegDeclarante &= Datos.Declarante.ImpTotPercepcionesParDec.PadLeft(2, "0") '159-160 + RegDeclarante &= Datos.Declarante.ImpTotRetencionesParEnt.PadLeft(13, "0") '161-173 + RegDeclarante &= Datos.Declarante.ImpTotRetencionesParDec.PadLeft(2, "0") '174-175 + RegDeclarante &= Datos.Declarante.CorreoElectronicoPerConQuienRelacionarse.PadRight(50, " ") + RegDeclarante &= Datos.Declarante.Blancos.PadRight(262, " ") + RegDeclarante &= Datos.Declarante.SelloElectronico.PadRight(13, " ") + sw.WriteLine(RegDeclarante) + For Each p In Datos.Perceptores + If p.NifPerceptor = "27289008Z" Then + Dim parate = 12 + End If + Dim RegPerceptor As String + RegPerceptor = p.TipoRegistro.PadLeft(1, " ") + RegPerceptor &= p.ModeloDeclaracion.PadRight(3, " ") + RegPerceptor &= p.Ejercicio.PadLeft(4, "0") + RegPerceptor &= p.NifDeclarante.PadLeft(9, "0") + RegPerceptor &= p.NifPerceptor.PadLeft(9, "0") + RegPerceptor &= p.NifRepresentateLegal.PadLeft(9, " ") + RegPerceptor &= p.ApeNombreRsoPerceptor.Replace(",", " ").Replace("Á", "A").Replace("É", "E").Replace("Í", "I").Replace("Ó", "O").Replace("Ú", "U").Replace("Ü", "U").Replace("Ñ", "N").Replace(" ", " ").PadRight(40, " ").Substring(0, 40) + RegPerceptor &= p.CodigoProvincial.PadLeft(2, "00") + RegPerceptor &= p.ClavePercepcion.PadLeft(1, " ") + RegPerceptor &= p.SubClave.PadLeft(2, "00") + RegPerceptor &= p.PerDineNoIncaLabSigno.PadLeft(1, " ") + RegPerceptor &= p.PerDineNoIncaLabPerintParEnt.PadLeft(11, "0") + RegPerceptor &= p.PerDineNoIncaLabPerintParDec.PadLeft(2, "0") + RegPerceptor &= p.PerDineNoIncaLabRetPraParEnt.PadLeft(11, "0") '95-105 + RegPerceptor &= p.PerDineNoIncaLabRetPraParDec.PadLeft(2, "0") '106-107 + RegPerceptor &= p.PerEspNoIncaLabSigno.PadLeft(1, " ") + RegPerceptor &= p.PerEspNoIncaLabPerintParEnt.PadLeft(11, "0") '109-119 + RegPerceptor &= p.PerEspNoIncaLabPerintParDec.PadLeft(2, "0") '120-121 + RegPerceptor &= p.PerEspNoIncaLabRetPraParEnt.PadLeft(11, "0") '122-132 + RegPerceptor &= p.PerEspNoIncaLabRetPraParDec.PadLeft(2, "0") '133-134 + RegPerceptor &= p.PerEspNoIncaLabRetRepParEnt.PadLeft(11, "0") '135-145 + RegPerceptor &= p.PerEspNoIncaLabRetRepParDec.PadLeft(2, "0") '146-147 + RegPerceptor &= p.EjercicioDevengo.PadLeft(4, "0") '148-151 + RegPerceptor &= p.CeutaOMelilla.PadLeft(1, "0") '152-152 + RegPerceptor &= p.AñoNacimiento.PadLeft(4, "0") '153-156 + RegPerceptor &= p.SituacionFamilia.PadLeft(1, "0") '157-157 + RegPerceptor &= p.NifConyuge.PadLeft(9, " ") '158-166 + RegPerceptor &= p.Discapacidad.PadLeft(1, "0") '167-167 + RegPerceptor &= p.ContratoRelacion.PadLeft(1, "0") '168-168 + RegPerceptor &= p.Guion.PadLeft(1, "0") '169-169 + RegPerceptor &= p.MovilidadGeografica.PadLeft(1, "0") '170-170 + RegPerceptor &= p.ReduccionesAplicable.PadLeft(13, "0") '171-183 + RegPerceptor &= p.GastosDeduciblesEnt.PadLeft(11, "0") '184-194 parte entera + RegPerceptor &= p.GastosDeduciblesDec.PadLeft(2, "0") ' 195-196 parte decimal + RegPerceptor &= p.PensionCompensatoriaEnt.PadLeft(11, "0") '197-207 parte entera + RegPerceptor &= p.PensionCompensatoriaDec.PadLeft(2, "0") '208-209 parte decimal + RegPerceptor &= p.AnualidadporAlimentosEnt.PadLeft(11, "0") '210-220 parte entera + RegPerceptor &= p.AnualidadporAlimentosDec.PadLeft(2, "0") '221-222 parte decimal + RegPerceptor &= p.HijosyOtrosDecendientes.PadLeft(6, "0") + RegPerceptor &= p.HijosyOtrosDecendientesConDiscapacidad.PadLeft(12, "0") + RegPerceptor &= p.Ascendientes.PadLeft(4, "0") + RegPerceptor &= p.AscendientesConDiscapacidad.PadLeft(6, "0") + RegPerceptor &= p.Com3PrimerosHijos.PadLeft(3, "0") + RegPerceptor &= p.ComuPresVivHab.PadLeft(1, "0") + RegPerceptor &= p.PerDineDerIncaLabSigno.PadLeft(1, " ") + RegPerceptor &= p.PerDineIncaLabPerintParEnt.PadLeft(11, "0") '256-266 + RegPerceptor &= p.PerDineIncaLabPerintParDec.PadLeft(2, "0") '267-268 + RegPerceptor &= p.PerDineIncaLabRetPraParEnt.PadLeft(11, "0") '269-279 + RegPerceptor &= p.PerDineIncaLabRetPraParDec.PadLeft(2, "0") '280-281 + RegPerceptor &= p.PerEspDerIncaLabSigno.PadLeft(1, " ") + RegPerceptor &= p.PerEspIncaLabPerintParEnt.PadLeft(11, "0") '283-293 + RegPerceptor &= p.PerEspIncaLabPerintParDec.PadLeft(2, "0") '294-295 + RegPerceptor &= p.PerEspIncaLabRetPraParEnt.PadLeft(11, "0") '296-306 + RegPerceptor &= p.PerEspIncaLabRetPraParDec.PadLeft(2, "0") '307-308 + RegPerceptor &= p.PerEspIncaLabRetRepParEnt.PadLeft(11, "0") '309-319 + RegPerceptor &= p.PerEspIncaLabRetRepParDec.PadLeft(2, "0") '320-321 + RegPerceptor &= p.PerTitularConvivencia.PadLeft(1, "0") '322 + RegPerceptor &= p.RetEIngrEstEnDipuForPaisVascoYNavarra.PadLeft(66, "0") ' 323-388 + RegPerceptor &= p.Blancos.PadRight(112, " ") '389-500 + + sw.WriteLine(RegPerceptor) + Next + sw.Close() + 'fs.Close() + Catch ex As Exception + Throw New Exception(ex.Message, ex) + End Try + End Sub + End Class + +End Namespace \ No newline at end of file diff --git a/HttpUserAgentEndpointBehavior.vb b/HttpUserAgentEndpointBehavior.vb new file mode 100644 index 0000000..866d27a --- /dev/null +++ b/HttpUserAgentEndpointBehavior.vb @@ -0,0 +1,65 @@ +Imports System.ServiceModel +Imports System.ServiceModel.Channels +Imports System.ServiceModel.Dispatcher +Imports System.ServiceModel.Description +Imports System.ComponentModel +Public Class HttpUserAgentMessageInspector + + Implements IClientMessageInspector + Private Const USER_AGENT_HTTP_HEADER As String = "user-agent" + + Private m_userAgent As String + + Public Sub New(ByVal userAgent As String) + Me.m_userAgent = userAgent + End Sub + +#Region "IClientMessageInspector Members" + + Public Sub AfterReceiveReply(ByRef reply As System.ServiceModel.Channels.Message, ByVal correlationState As Object) Implements IClientMessageInspector.AfterReceiveReply + End Sub + + Public Function BeforeSendRequest(ByRef request As System.ServiceModel.Channels.Message, ByVal channel As System.ServiceModel.IClientChannel) As Object Implements IClientMessageInspector.BeforeSendRequest + Dim httpRequestMessage As HttpRequestMessageProperty + Dim httpRequestMessageObject As New Object + If request.Properties.TryGetValue(HttpRequestMessageProperty.Name, httpRequestMessageObject) Then + httpRequestMessage = TryCast(httpRequestMessageObject, HttpRequestMessageProperty) + If String.IsNullOrEmpty(httpRequestMessage.Headers(USER_AGENT_HTTP_HEADER)) Then + httpRequestMessage.Headers(USER_AGENT_HTTP_HEADER) = Me.m_userAgent + End If + Else + httpRequestMessage = New HttpRequestMessageProperty() + httpRequestMessage.Headers.Add(USER_AGENT_HTTP_HEADER, Me.m_userAgent) + request.Properties.Add(HttpRequestMessageProperty.Name, httpRequestMessage) + End If + Return Nothing + End Function + +#End Region +End Class +Public Class HttpUserAgentEndpointBehavior + Implements IEndpointBehavior + Private m_userAgent As String + + Public Sub New(ByVal userAgent As String) + Me.m_userAgent = userAgent + End Sub + +#Region "IEndpointBehavior Members" + + Public Sub AddBindingParameters(ByVal endpoint As ServiceEndpoint, ByVal bindingParameters As System.ServiceModel.Channels.BindingParameterCollection) Implements IEndpointBehavior.AddBindingParameters + End Sub + + Public Sub ApplyClientBehavior(ByVal endpoint As ServiceEndpoint, ByVal clientRuntime As System.ServiceModel.Dispatcher.ClientRuntime) Implements IEndpointBehavior.ApplyClientBehavior + Dim inspector As New HttpUserAgentMessageInspector(Me.m_userAgent) + clientRuntime.MessageInspectors.Add(inspector) + End Sub + + Public Sub ApplyDispatchBehavior(ByVal endpoint As ServiceEndpoint, ByVal endpointDispatcher As System.ServiceModel.Dispatcher.EndpointDispatcher) Implements IEndpointBehavior.ApplyDispatchBehavior + End Sub + + Public Sub Validate(ByVal endpoint As ServiceEndpoint) Implements IEndpointBehavior.Validate + End Sub + +#End Region +End Class \ No newline at end of file diff --git a/Imagen.vb b/Imagen.vb new file mode 100644 index 0000000..f691869 --- /dev/null +++ b/Imagen.vb @@ -0,0 +1,51 @@ +Imports System.Drawing +Imports System.Drawing.Drawing2D +Imports System.Drawing.Imaging +Imports System.IO + + + +Public Class Imagen + Public Shared Function ResizeImage(ByVal image As Image, + ByVal size As Size, Optional ByVal preserveAspectRatio As Boolean = True) As Image + Dim newWidth As Integer + Dim newHeight As Integer + If preserveAspectRatio Then + Dim originalWidth As Integer = image.Width + Dim originalHeight As Integer = image.Height + Dim percentWidth As Single = CSng(size.Width) / CSng(originalWidth) + Dim percentHeight As Single = CSng(size.Height) / CSng(originalHeight) + Dim percent As Single = If(percentHeight < percentWidth, + percentHeight, percentWidth) + newWidth = CInt(originalWidth * percent) + newHeight = CInt(originalHeight * percent) + Else + newWidth = size.Width + newHeight = size.Height + End If + Dim newImage As Image = New Bitmap(newWidth, newHeight) + Using graphicsHandle As Graphics = Graphics.FromImage(newImage) + graphicsHandle.InterpolationMode = InterpolationMode.HighQualityBicubic + graphicsHandle.DrawImage(image, 0, 0, newWidth, newHeight) + End Using + Return newImage + End Function + Public Shared Function ImagenAByteArray(Imagen As Image, ByVal format As ImageFormat, Optional Calidad As Long = 100) As Byte() + Dim jpgEncoder As ImageCodecInfo = ImageCodecInfo.GetImageEncoders().First(Function(x) x.FormatID = format.Guid) + + Dim myEncoder As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality + Dim myEncoderParameters As EncoderParameters = New EncoderParameters(1) + Dim myEncoderParameter As EncoderParameter = New EncoderParameter(myEncoder, Calidad) + 'myEncoderParameters.Param.Append(myEncoderParameter) + myEncoderParameters.Param(0) = myEncoderParameter + + + 'Dim converter As New ImageConverter + 'Dim bytes As Byte() = converter.ConvertTo(Imagen, GetType(Byte())) + Dim ms As New MemoryStream + Imagen.Save(ms, jpgEncoder, myEncoderParameters) + Return ms.ToArray + End Function + + +End Class diff --git a/InicioServicioYClientes/Rutinas.vb b/InicioServicioYClientes/Rutinas.vb new file mode 100644 index 0000000..594ad71 --- /dev/null +++ b/InicioServicioYClientes/Rutinas.vb @@ -0,0 +1,706 @@ +Imports System.Runtime.Remoting +Imports System.IO +Imports System.Xml +Imports System.Xml.Serialization +Imports System.Windows.Forms +Imports System.Drawing +Imports tsl5.Enumeraciones +Imports tsl5.tsl5Model + + +Public Class Rutinas + Shared Sub IniciaServicioNR(Puerto As Integer, Nombre As String, tipo As Type) + Dim ht As New Hashtable + ht("port") = Puerto + ht("name") = Nombre + Dim serverProvTcp As New System.Runtime.Remoting.Channels.BinaryServerFormatterSinkProvider + serverProvTcp.TypeFilterLevel = Runtime.Serialization.Formatters.TypeFilterLevel.Full + Dim clientProvTcp As New System.Runtime.Remoting.Channels.BinaryClientFormatterSinkProvider + Dim tc As System.Runtime.Remoting.Channels.Tcp.TcpChannel = New System.Runtime.Remoting.Channels.Tcp.TcpChannel(ht, clientProvTcp, serverProvTcp) + System.Runtime.Remoting.RemotingConfiguration.RegisterWellKnownServiceType(tipo, Nombre & ".soap", WellKnownObjectMode.Singleton) + End Sub + Shared Function ObtieneObjetoServicioNR(Servidor As String, Puerto As Integer, Nombre As String) As tsl5.Interfaces.IServicioNR + Dim sr As tsl5.Interfaces.IServicioNR + Dim sPuertoNR As String = Puerto + sr = System.Activator.GetObject(GetType(tsl5.Interfaces.IServicioNR), "tcp://" & Servidor & ":" & sPuertoNR & "/" & Nombre & ".soap") + Return sr + + End Function + 'Shared Function ObtieneActualizaciones(VersionServidor As Datos.Actualizacion, ByRef VersionAComparar As Datos.Actualizacion) As tsl5.Enumeraciones.tipoActualizacionEnum + ' Dim TipoActualizacion As tsl5.Enumeraciones.tipoActualizacionEnum = Enumeraciones.tipoActualizacionEnum.No_Actualizar + ' Dim NuevosElementos As New List(Of Datos.ElementoActualizable) + ' For Each fichero In VersionServidor.Elementos 'VersionAComparar.Elementos + ' Dim sNombreFichero As String = fichero.NombreFichero + ' Dim sRutaFichero As String = fichero.RutaFichero + ' Dim TipoFichero As TipoFicheroActualizableEnum = fichero.tipoFichero + ' Dim fs = From f In VersionAComparar.Elementos Where f.NombreFichero = sNombreFichero And f.tipoFichero = TipoFichero And f.RutaFichero = sRutaFichero Select f + ' If fs.Count = 0 Then + ' Dim NuevoFich As New Datos.ElementoActualizable + ' NuevoFich = fichero + ' NuevoFich.Comparacion = Enumeraciones.ComparacionEnum.Nuevo + ' NuevosElementos.Add(NuevoFich) + ' If NuevoFich.tipoFichero = Enumeraciones.tipoFicheroActualizableEnum.Datos Then + ' If TipoActualizacion = Enumeraciones.tipoActualizacionEnum.No_Actualizar Then + ' TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Sin_Reinicio + ' ElseIf TipoActualizacion = TipoActualizacionEnum.Actualizacion_Con_Reinicio Then + ' TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Mixta + ' End If + ' Else + ' If TipoActualizacion = Enumeraciones.tipoActualizacionEnum.No_Actualizar Then + ' TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Con_Reinicio + ' Else + ' If TipoActualizacion = TipoActualizacionEnum.Actualizacion_Sin_Reinicio Then TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Mixta + ' End If + ' End If + ' Else + ' If fs(0).FechaModificacion <> fichero.FechaModificacion Then + ' If fichero.tipoFichero = Enumeraciones.tipoFicheroActualizableEnum.Datos Then + ' If TipoActualizacion = Enumeraciones.tipoActualizacionEnum.No_Actualizar Then + ' TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Sin_Reinicio + ' ElseIf TipoActualizacion = TipoActualizacionEnum.Actualizacion_Con_Reinicio Then + ' TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Mixta + ' End If + ' Else + ' If TipoActualizacion = Enumeraciones.tipoActualizacionEnum.No_Actualizar Then + ' TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Con_Reinicio + ' Else + ' If TipoActualizacion = TipoActualizacionEnum.Actualizacion_Sin_Reinicio Then TipoActualizacion = Enumeraciones.tipoActualizacionEnum.Actualizacion_Mixta + ' End If + ' End If + ' fs(0).Comparacion = Enumeraciones.ComparacionEnum.Diferente + ' fs(0).FechaModificacion = fichero.FechaModificacion + ' Else + ' fs(0).Comparacion = Enumeraciones.ComparacionEnum.Sin_Cambios + ' End If + ' End If + ' Next + ' For Each fichero In VersionAComparar.Elementos + ' Dim sNombreFichero As String = fichero.NombreFichero + ' Dim sRutaFichero As String = fichero.RutaFichero + ' Dim TipoFichero As TipoFicheroActualizableEnum = fichero.tipoFichero + ' Dim fs = From f In VersionServidor.Elementos Where f.NombreFichero = sNombreFichero And f.tipoFichero = TipoFichero And f.RutaFichero = sRutaFichero Select f + ' 'Dim fs = From f In VersionServidor.Elementos Where f.NombreFichero = sNombreFichero Select f + ' If fs.Count = 0 Then + ' fichero.Comparacion = Enumeraciones.ComparacionEnum.Inexistente + ' End If + ' Next + ' For Each fichero In NuevosElementos + ' VersionAComparar.Elementos.Add(fichero) + ' Next + ' Return TipoActualizacion + 'End Function + + 'Public Shared Function ObtieneVersionFicherosRecursivo(NombreActualizacion As String, RutaDatos As String) As Datos.Actualizacion + ' Dim Actualizacion As New Datos.Actualizacion + ' ObtieneVersion(Actualizacion, RutaDatos, RutaDatos, Enumeraciones.TipoFicheroActualizableEnum.Datos) + ' Actualizacion.Nombre = NombreActualizacion + ' Return Actualizacion + 'End Function + + 'Public Shared Sub ObtieneVersion(ByRef Version As Datos.Actualizacion, Ruta As String, RutaInicial As String, TipoFichero As Enumeraciones.tipoFicheroActualizableEnum) + ' Dim iBarra As Integer = 1 + ' If Ruta.EndsWith("\") Then iBarra = 0 + ' Dim sDirectorios() As String = IO.Directory.GetDirectories(Ruta) + ' For Each sdirectorio In sDirectorios + ' ObtieneVersion(Version, sdirectorio, RutaInicial, TipoFichero) + ' Next + ' Dim sFicheros() As String = IO.Directory.GetFiles(Ruta) + ' Dim sfichero As String + ' Dim ea As Datos.ElementoActualizable + ' Dim fi As FileInfo + ' For Each sfichero In sFicheros + ' ea = New Datos.ElementoActualizable + ' ea.NombreFichero = sfichero.Substring(Ruta.Length + iBarra) + ' fi = New FileInfo(sfichero) + ' ea.FechaModificacion = fi.LastWriteTimeUtc + ' ea.tipoFichero = TipoFichero + ' ea.RutaFichero = "" + ' If Ruta <> RutaInicial Then ea.RutaFichero = Ruta.Substring(RutaInicial.Length).trimStart("\") & "\" + ' Version.Elementos.Add(ea) + ' Next + 'End Sub + + ' Shared Function GeneraDatosActualizacion(NombreActualizacion As String, RutaDatos As String) As Datos.Actualizacion + ' Dim act As New Datos.Actualizacion + ' act = ObtieneVersionFicherosRecursivo(NombreActualizacion, RutaDatos) + ' Return act + 'End Function + + 'Shared Sub InicioServicios(ByRef Configuracion As Datos.DatosConfiguracionServicio, ByRef VersionesFicherosCliente() As Datos.Actualizacion, ServicioNetRemoting As Type) + ' 'ReDim VersionesFicherosCliente(Configuracion.OtrosActualizadores.Count - 1) + ' 'Dim da As New Datos.Actualizacion + ' 'For i = 0 To Configuracion.OtrosActualizadores.Count - 1 + ' ' da = ObtieneVersionFicherosRecursivo(Configuracion.OtrosActualizadores(i).Nombre, Configuracion.OtrosActualizadores(i).RutaDatos) + ' ' VersionesFicherosCliente(i) = da + ' 'Next + ' Call tsl5.Rutinas.IniciaServicioNR(Configuracion.PuertoNR, Configuracion.NombreServicio, ServicioNetRemoting) + 'End Sub + + Shared Function IniciarSesion(FicheroConfiguracion As String, Usuario As String, SHA1passwd As String, ByRef idGrupoBD As Integer, dllProcesos As String) As tsl5.Datos.DatosSesionCliente + Try + Dim configuracionservidor As New tsl5.Datos.DatosConfiguracionServicio + configuracionservidor = Datos.DatosConfiguracionServicio.CargaConfiguracion(FicheroConfiguracion, dllProcesos) + Dim bd As New MySql.Data.MySqlClient.MySqlConnection(bbdd.GeneraConnectionStringMySQL(configuracionservidor.BasesDatos(0).Servidor, configuracionservidor.BasesDatos(0).DataBase, configuracionservidor.BasesDatos(0).Usuario, configuracionservidor.BasesDatos(0).Password, configuracionservidor.BasesDatos(0).Puerto)) + Dim drUsuario As DataRow = bbdd.ObtienePrimeraFilaMysql(bd, "Select * From Usuarios where Usuario=? and SHA1passwd=?", {Usuario, SHA1passwd}) + If drUsuario Is Nothing Then Throw New Exception("Usuario no válido") + Dim drGrupo As DataRow = bbdd.ObtienePrimeraFilaMysql(bd, "Select * From GruposUsuarios where idGrupo=?", {drUsuario("idGrupo")}) + Dim ds As New tsl5.Datos.DatosSesionCliente + ds.IdSesion = 1 'TODO: leer de constante + ds.idUsuario = drUsuario("idUsuarios") + ds.idGrupoMenu = drGrupo("idGrupoMenu") + idGrupoBD = drUsuario("idGrupobd") + Return ds + Catch ex As Exception + Throw ex + End Try + End Function + Public Shared Function ObtieneDatConexClienteSinServicio(FicheroConf As String, Peticion As tsl5.Datos.DatosConfiguracionCliente, idGrupoBD As Integer) As tsl5.Datos.DatosConexionCliente + Try + + Return tsl5.Rutinas.ObtieneDatosConexionCliente(FicheroConf, Peticion.ConstantesCliente.NombreServicio, Peticion.ServidorActivo.Localizacion, idGrupoBD, "") + Catch exc As Exception + Throw New Exception(exc.Message, exc) + End Try + End Function + + Shared Function ObtieneDatosConexionClienteSinServicio(FicheroConfiguracion As String, NombreServicio As String, Localizacion As Enumeraciones.LocalizacionesEnum, idGrupoBD As Integer, dllProcesos As String) As tsl5.Datos.DatosConexionCliente + Try + Dim configuracionservidor As New tsl5.Datos.DatosConfiguracionServicio + configuracionservidor = Datos.DatosConfiguracionServicio.CargaConfiguracion(FicheroConfiguracion, dllProcesos) + Dim bd As New MySql.Data.MySqlClient.MySqlConnection(bbdd.GeneraConnectionStringMySQL(configuracionservidor.BasesDatos(0).Servidor, configuracionservidor.BasesDatos(0).DataBase, configuracionservidor.BasesDatos(0).Usuario, configuracionservidor.BasesDatos(0).Password, configuracionservidor.BasesDatos(0).Puerto)) + ' ''Dim drUsuario As DataRow = bbdd.ObtienePrimeraFilaMysql(bd, "Select * From Usuarios where Usuario=? and SHA1passwd=?", {Peticion.Usuario, Peticion.Password}) + ' ''If drUsuario Is Nothing Then Throw New Exception("Usuario no válido") + Dim dtBBDD As DataTable = bbdd.ObtieneTablaMysql(bd, "SELECT * FROM conexionesbd inner join grupobd on grupobd.idgrupobd=conexionesbd.idgrupobd where grupobd.idgrupobd=?", {idGrupoBD}) + Dim dcc As New tsl5.Datos.DatosConexionCliente + For Each dr In dtBBDD.Rows + Dim bbdd As New tsl5.Datos.BBDD + bbdd.Usuario = dr("Usuario") + bbdd.Password = dr("Password") + bbdd.DataBase = dr("Esquema") + If Localizacion = Enumeraciones.LocalizacionesEnum.Local Then + bbdd.Servidor = dr("ServidorLocal") + bbdd.Puerto = dr("PuertoLocal") + Else + bbdd.Servidor = dr("ServidorRemoto") + bbdd.Puerto = dr("PuertoRemoto") + End If + dcc.BasesDatos.Add(bbdd) + Next + + 'Dim act = From a In configuracionservidor.OtrosActualizadores Where a.Nombre = NombreServicio Select a + 'If Localizacion = Enumeraciones.LocalizacionesEnum.Local Then + ' dcc.ServidorActualizador = act(0).ServidorLocal + 'Else + ' dcc.ServidorActualizador = act(0).ServidorRemoto + 'End If + Return dcc + Catch ex As Exception + Throw ex + End Try + End Function + + Shared Function ObtieneDatosConexionCliente(FicheroConfiguracion As String, NombreServicio As String, Localizacion As Enumeraciones.LocalizacionesEnum, idGrupoBD As Integer, dllProcesos As String) As tsl5.Datos.DatosConexionCliente + Try + Dim configuracionservidor As New tsl5.Datos.DatosConfiguracionServicio + configuracionservidor = Datos.DatosConfiguracionServicio.CargaConfiguracion(FicheroConfiguracion, dllProcesos) + Dim bd As New MySql.Data.MySqlClient.MySqlConnection(bbdd.GeneraConnectionStringMySQL(configuracionservidor.BasesDatos(0).Servidor, configuracionservidor.BasesDatos(0).DataBase, configuracionservidor.BasesDatos(0).Usuario, configuracionservidor.BasesDatos(0).Password, configuracionservidor.BasesDatos(0).Puerto)) + ' ''Dim drUsuario As DataRow = bbdd.ObtienePrimeraFilaMysql(bd, "Select * From Usuarios where Usuario=? and SHA1passwd=?", {Peticion.Usuario, Peticion.Password}) + ' ''If drUsuario Is Nothing Then Throw New Exception("Usuario no válido") + Dim dtBBDD As DataTable = bbdd.ObtieneTablaMysql(bd, "SELECT * FROM conexionesbd inner join grupobd on grupobd.idgrupobd=conexionesbd.idgrupobd where grupobd.idgrupobd=?", {idGrupoBD}) + Dim dcc As New tsl5.Datos.DatosConexionCliente + For Each dr In dtBBDD.Rows + Dim bbdd As New tsl5.Datos.BBDD + bbdd.Usuario = dr("Usuario") + bbdd.Password = dr("Password") + bbdd.DataBase = dr("Esquema") + If Localizacion = Enumeraciones.LocalizacionesEnum.Local Then + bbdd.Servidor = dr("ServidorLocal") + bbdd.Puerto = dr("PuertoLocal") + Else + bbdd.Servidor = dr("ServidorRemoto") + bbdd.Puerto = dr("PuertoRemoto") + End If + dcc.BasesDatos.Add(bbdd) + Next + + 'Dim act = From a In configuracionservidor.OtrosActualizadores Where a.Nombre = NombreServicio Select a + 'If Localizacion = Enumeraciones.LocalizacionesEnum.Local Then + ' dcc.ServidorActualizador = act(0).ServidorLocal + 'Else + ' dcc.ServidorActualizador = act(0).ServidorRemoto + 'End If + Return dcc + Catch ex As Exception + Throw ex + End Try + End Function + Shared Function IniciaSesion(sr As tsl5.Interfaces.IServicioNR, Usuario As String, Contraseña As String, idGrupoBD As Integer) As Datos.DatosSesionCliente + Dim e As Exception = Nothing + Dim dsc As Datos.DatosSesionCliente + dsc = sr.IniciaSesion(Usuario, Contraseña, idGrupoBD, e) + If Not e Is Nothing Then Throw e + Return dsc + End Function + + Public Shared Function IniciaSesionSinServicio(Usuario As String, Contraseña As String, ByRef idGrupoBD As Integer, Aplicacion As String, ByRef ex As System.Exception) As tsl5.Datos.DatosSesionCliente + Try + ex = Nothing + Dim sSHA1passwd As String = crypt.SHA1("M3Soft." & Contraseña) + Dim sFicheroConf As String = ObtieneFicheroConfiguracionGenerico(Aplicacion) + Return tsl5.Rutinas.IniciarSesion(sFicheroConf, Usuario, sSHA1passwd, idGrupoBD, "") + Catch exc As Exception + ex = exc + Return Nothing + End Try + End Function + + Shared Function ObtieneFicheroConfiguracionGenerico(Aplicacion) As String + Dim sRutaConfiguraciones As String + sRutaConfiguraciones = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData) & "\Depuracion\" & Aplicacion & "\Servidor\ServidorConfig.xml" + If Not IO.File.Exists(sRutaConfiguraciones) Then + sRutaConfiguraciones = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData) & "\" & Aplicacion & "\Servidor\ServidorConfig.xml" + End If + Return sRutaConfiguraciones + End Function + + + Shared Function ObtieneDatConexCliente(Dcc As Datos.DatosConfiguracionCliente, ByRef sr As tsl5.Interfaces.IServicioNR, idGrupoBD As Integer) As Datos.DatosConexionCliente + Dim e As Exception = Nothing + Dim dc As Datos.DatosConexionCliente + sr = tsl5.Rutinas.ObtieneObjetoServicioNR(Dcc.ServidorActivo.Servidor, Dcc.ServidorActivo.Puerto, Dcc.ConstantesCliente.NombreServicio) + 'dc = sr.IniciaSesion(Dcc, e) + dc = sr.ObtieneDatosConexionCliente(Dcc, idGrupoBD, e) + If Not e Is Nothing Then Throw e + Return dc + End Function + + 'Shared Sub ActualizaCliente(DatConfCli As Datos.DatosConfiguracionCliente, ByRef DatConexCli As Datos.DatosConexionCliente, sr As tsl5.Interfaces.IServicioNR) + ' Try + ' If Not Windows.Forms.Application.StartupPath.ToLower.StartsWith("c:\tecnosis.tfs\") Then + ' Dim da As New Datos.Actualizacion + ' Dim e As Exception = Nothing + ' da = tsl5.Rutinas.GeneraDatosActualizacion(DatConfCli.ConstantesCliente.NombreServicio, DatConfCli.ConstantesCliente.RutaDatos) + ' Dim ap As Enumeraciones.tipoActualizacionEnum = sr.CompruebaActualizacionesCliente(DatConfCli.ConstantesCliente.NombreServicio, da, e) + ' If Not e Is Nothing Then Throw e + ' Select Case ap + ' Case Enumeraciones.tipoActualizacionEnum.Actualizacion_Mixta + ' Actualiza(da, DatConfCli, DatConexCli, TipoFicheroActualizableEnum.Datos) + ' LlamaActualizadorAuxiliar(da, DatConfCli, DatConexCli) + ' Case Enumeraciones.tipoActualizacionEnum.Actualizacion_Sin_Reinicio + ' Actualiza(da, DatConfCli, DatConexCli, TipoFicheroActualizableEnum.Datos) + ' Case TipoActualizacionEnum.Actualizacion_Con_Reinicio + ' LlamaActualizadorAuxiliar(da, DatConfCli, DatConexCli) + ' End Select + ' End If + ' Catch ex As Exception + ' Throw ex + ' End Try + 'End Sub + + 'Public Shared Sub Actualiza(DatosActualizacion As Datos.Actualizacion, DatConfCli As Datos.DatosConfiguracionCliente, DatConexCli As Datos.DatosConexionCliente, FicherosAActualizar As TipoFicheroActualizableEnum) + ' Try + ' If IO.Directory.Exists(DatConfCli.ConstantesCliente.RutaTmp) Then IO.Directory.Delete(DatConfCli.ConstantesCliente.RutaTmp, True) + ' IO.Directory.CreateDirectory(DatConfCli.ConstantesCliente.RutaTmp) + ' Dim fActualizador As New frmActualizador + ' fActualizador.tipoActualizacion = FicherosAActualizar + ' fActualizador.DatosActualizacion = DatosActualizacion + ' fActualizador.DatConfCli = DatConfCli + ' fActualizador.DatConexCli = DatConexCli + ' fActualizador.ShowDialog() + ' Catch ex As Exception + ' Throw ex + ' End Try + 'End Sub + + 'Private Shared Sub DescargaElementoFTP(servidorActualizacion As Datos.ServidorActualizacion, NombreFichero As String, RutaDescarga As String) + ' Dim ftp As New Dart.PowerTCP.SecureFtp.Ftp + ' ftp.Server = servidorActualizacion.Servidor + ' ftp.Username = servidorActualizacion.Usuario + ' ftp.Password = servidorActualizacion.Contraseña + ' ftp.Passive = servidorActualizacion.Pasivo + ' ftp.ServerPort = servidorActualizacion.Puerto + ' If servidorActualizacion.SSL Then + ' ftp.Security = Dart.PowerTCP.SecureFtp.Security.Implicit + ' Else + ' ftp.Security = Dart.PowerTCP.SecureFtp.Security.None + ' End If + ' ftp.Get(servidorActualizacion.Directorio & NombreFichero, RutaDescarga & NombreFichero) + 'End Sub + + 'Private Shared Sub DescargaElementoSamba(servidorActualizacion As Datos.ServidorActualizacion, NombreFichero As String, RutaDescarga As String) + ' IO.File.Copy(servidorActualizacion.Directorio & "\" & NombreFichero, RutaDescarga & NombreFichero, True) + 'End Sub + + 'Private Shared Sub LlamaActualizadorAuxiliar(da As Datos.Actualizacion, DatConfCli As Datos.DatosConfiguracionCliente, DatConexCli As Datos.DatosConexionCliente) + ' Dim DatosActAux As New Datos.DatosActualizadorAuxiliar + ' DatosActAux.Actualizacion = da + ' DatosActAux.ConfiguracionCliente = DatConfCli + ' DatosActAux.ConexionCliente = DatConexCli + ' DatosActAux.RutaEjecutable = Windows.Forms.Application.StartupPath & "\" & Process.GetCurrentProcess.ProcessName & ".exe" + ' Dim sFicDatosAct As String + ' sFicDatosAct = DatConfCli.ConstantesCliente.RutaDatos & "\ActualizadorAuxiliar\DatosActAux.xml" + ' Utilidades.serializar(DatosActAux, sFicDatosAct) + ' If Not IO.File.Exists(DatConfCli.ConstantesCliente.RutaDatos & "\ActualizadorAuxiliar\ActualizadorAuxiliar.exe") Then + ' MsgBox("No existe el programa actualizador", MsgBoxStyle.Critical, "Error") + ' Else + ' Process.Start(DatConfCli.ConstantesCliente.RutaDatos & "\ActualizadorAuxiliar\ActualizadorAuxiliar.exe", sFicDatosAct) + ' 'MsgBox("El programa se tiene que actualizar.") + ' 'Windows.Forms.Application.Exit() + ' Environment.Exit(0) + + ' End If + 'End Sub + + Shared Sub GeneraMenus(Formulario As Form, datconexcli As Datos.DatosConexionCliente, datsesioncli As Datos.DatosSesionCliente, Evento As EventHandler) + Dim menuprincipal As New MenuStrip + Dim bd As tsl5Entities + menuprincipal.Location = New Point(0.0) + Dim tsmi As ToolStripMenuItem + Select Case datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Tipo + Case TipoBD.MYSQL + bd = bbdd.ConectarTsl5EntityMySQL(datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Servidor, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).DataBase, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Puerto, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Usuario, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Password, "tsl5Model") + Case TipoBD.SQLSERVER + bd = bbdd.ConectarTsl5EntitySQLServer(datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Servidor, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).DataBase, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Usuario, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Password, "tsl5Model") + Case TipoBD.LOCALDB + bd = bbdd.ConectarTsl5EntityLocalDB(datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Servidor, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).Fichero, datconexcli.BasesDatos(datconexcli.NumeroBDConfiguracion).DataBase, "tsl5Model") + Case Else + Throw New Exception("Tipo de bd no soportado") + End Select + + + Dim menuiniciales = (From m In bd.menus Where m.idGrupoMenu = datsesioncli.idGrupoMenu Order By m.Orden Select m).ToList + + For Each mi In menuiniciales + tsmi = New ToolStripMenuItem(mi.Texto, Nothing, Evento) + Call generamenurecursivo(bd, tsmi, mi, Evento) + menuprincipal.Items.Add(tsmi) + Next + + Formulario.Controls.Add(menuprincipal) + Formulario.MainMenuStrip = menuprincipal + End Sub + + Private Shared Sub generamenurecursivo(bd As tsl5Entities, ByRef tsmi As ToolStripMenuItem, mi As menus, Evento As EventHandler) + Dim tssmi As ToolStripMenuItem + Dim submenus = (From m In bd.menus Where m.idMenuPadre = mi.idMenus Order By m.Orden Select m).ToList + For Each sm In submenus + tssmi = New ToolStripMenuItem(sm.Texto, Nothing, Evento) + tssmi.Tag = sm.Accion + tssmi.ToolTipText = sm.Ayuda + Call generamenurecursivo(bd, tssmi, sm, Evento) + tsmi.DropDownItems.Add(tssmi) + Next + End Sub + Public Shared Function Ttagi(ByVal sValortag As String, ByVal sToken As String) As String + Ttagi = "" + Try + sValortag = "|" & sValortag & "|" + If InStr(1, "|" & sValortag & "|", "|" & sToken & "=", vbTextCompare) > 0 Then + Ttagi = Mid(sValortag, (InStr(1, sValortag, "|" & sToken & "=") + Len(sToken) + 2), InStr(1, Mid(sValortag, InStr(1, sValortag, "|" & sToken & "=") + Len(sToken) + 2), "|") - 1) + End If + Catch ex As Exception + Throw ex + End Try + End Function + Public Shared Function FindType(ByVal name As String) As Type + Dim base As Type + + base = Reflection.Assembly.GetEntryAssembly.GetType(name, False, True) + If base IsNot Nothing Then Return base + + base = Reflection.Assembly.GetExecutingAssembly.GetType(name, False, True) + If base IsNot Nothing Then Return base + + For Each assembly As Reflection.Assembly In _ + AppDomain.CurrentDomain.GetAssemblies + base = assembly.GetType(name, False, True) + If base IsNot Nothing Then Return base + Next + Throw New Exception("Clase no encontrada") + End Function + Public Shared Sub InicioCliente(NombreServicio As String, Formulario As Form, tcFormularios As System.Windows.Forms.TabControl, FichConfProduccion As String, FichConfDesarrollo As String, Evento As EventHandler, ByRef datconfcli As Datos.DatosConfiguracionCliente, ByRef datconexcli As Datos.DatosConexionCliente, ByRef datsesioncli As Datos.DatosSesionCliente) + Try + Dim fidentificacion As New frmIdentificacion + Dim sr As tsl5.Interfaces.IServicioNR = Nothing + Dim datconfapl As Datos.DatosConfiguracionAplicacion = Nothing + Dim sFichConf As String + If IO.File.Exists(FichConfDesarrollo) Then + sFichConf = FichConfDesarrollo + Else + sFichConf = FichConfProduccion + End If + Dim bReintentar As Boolean = True + Dim bCambiarConfiguracion As Boolean + Dim bGuardarConfiguracion As Boolean + Do + If bReintentar Then + If Not IO.File.Exists(sFichConf) Or bCambiarConfiguracion Then + + Dim fConfig As New frmConfiguracionAplicacion + Dim ServLocal As New tsl5.Datos.Servidor + Dim ServRemoto As New tsl5.Datos.Servidor + If datconfapl Is Nothing Then + fConfig.tbRutaDatos.Text = IO.Path.GetDirectoryName(sFichConf) & "\datos\" + fConfig.tbRutaTemporales.Text = IO.Path.GetDirectoryName(sFichConf) & "\tmp\" + Else + fConfig.tbRutaDatos.Text = datconfcli.ConstantesCliente.RutaDatos + fConfig.tbRutaTemporales.Text = datconfcli.ConstantesCliente.RutaTmp + For Each servidor In datconfapl.Servidores + Try + If servidor.Localizacion = LocalizacionesEnum.Local Then + fConfig.tbServidorLocal.Text = servidor.Servidor + fConfig.tbPuertoLocal.Text = servidor.Puerto + Else + fConfig.tbServidorRemoto.Text = servidor.Servidor + fConfig.tbPuertoRemoto.Text = servidor.Puerto + End If + Catch ex As Exception + End Try + Next + End If + fConfig.tbServidorLocal.Focus() + fConfig.ShowDialog() + + + Dim conscli As New Datos.ConstantesCliente + conscli.NombreServicio = NombreServicio + conscli.RutaDatos = fConfig.tbRutaDatos.Text + conscli.RutaTmp = fConfig.tbRutaTemporales.Text + conscli.RutaAplicacion = Windows.Forms.Application.StartupPath + datconfapl = New Datos.DatosConfiguracionAplicacion + datconfapl.ConstantesCliente = conscli + If fConfig.tbServidorLocal.Text.Trim <> "" Then + ServLocal.Localizacion = LocalizacionesEnum.Local + ServLocal.Servidor = fConfig.tbServidorLocal.Text + ServLocal.Puerto = fConfig.tbPuertoLocal.Text + datconfapl.Servidores.Add(ServLocal) + End If + If fConfig.tbServidorRemoto.Text.Trim <> "" Then + ServRemoto.Localizacion = LocalizacionesEnum.Remoto + ServRemoto.Servidor = fConfig.tbServidorRemoto.Text + ServRemoto.Puerto = fConfig.tbPuertoRemoto.Text + datconfapl.Servidores.Add(ServRemoto) + End If + bGuardarConfiguracion = True + Else + datconfapl = New Datos.DatosConfiguracionAplicacion + datconfapl = tsl5.Utilidades.DeserializaFichero(sFichConf, datconfapl.GetType) + End If + End If + Try + Dim bConectado As Boolean = False + For Each servidor In datconfapl.Servidores + Try + datconfcli = New Datos.DatosConfiguracionCliente + datconfcli.ServidorActivo = servidor + datconfcli.ConstantesCliente = datconfapl.ConstantesCliente + datconfcli.NombreEjecutable = Process.GetCurrentProcess.ProcessName & ".exe" + datconexcli = tsl5.Rutinas.ObtieneDatConexCliente(datconfcli, sr, 1) + bConectado = True + Exit For + Catch ex As Exception + End Try + Next + If Not bConectado Then Throw New Exception("No se ha podido conectar con ninguno de los servidores") + If bGuardarConfiguracion Then + If IO.File.Exists(sFichConf) Then IO.File.Delete(sFichConf) + tsl5.Utilidades.CreaEstructuraDirectorio(IO.Path.GetDirectoryName(sFichConf)) + tsl5.Utilidades.CreaEstructuraDirectorio(datconfcli.ConstantesCliente.RutaDatos) + tsl5.Utilidades.CreaEstructuraDirectorio(datconfcli.ConstantesCliente.RutaTmp) + tsl5.Utilidades.serializar(datconfapl, sFichConf) + End If + + Exit Do + Catch ex As Exception + Select Case MsgBox(ex.Message & vbCrLf & "Pulse si para volver a intentar, 'no' para modificar la configuración, cancelar para salir de la aplicación", MsgBoxStyle.YesNoCancel, "¡Atención!") + Case MsgBoxResult.No + bReintentar = True + If IO.File.Exists(sFichConf) Then IO.File.Delete(sFichConf) + Case MsgBoxResult.Yes + bReintentar = False + + Case MsgBoxResult.Cancel + Environment.Exit(0) + End Select + End Try + Loop + ' tsl5.Rutinas.ActualizaCliente(datconfcli, datconexcli, sr) 'solo datos 20120614 + Dim exc As Exception = Nothing + Dim idGrupoBD As Integer + Do + exc = Nothing + Try + If fidentificacion.ShowDialog = Windows.Forms.DialogResult.OK Then + datsesioncli = sr.IniciaSesion(fidentificacion.tbUsuario.Text, fidentificacion.tbClave.Text, idGrupoBD, exc) + If Not exc Is Nothing Then Throw exc + Exit Do + Else + Environment.Exit(0) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Atención") + End Try + Loop + If idGrupoBD <> 1 Then datconexcli = tsl5.Rutinas.ObtieneDatConexCliente(datconfcli, sr, idGrupoBD) + tsl5.Rutinas.GeneraMenus(Formulario, datconexcli, datsesioncli, Evento) + tcFormularios.CausesValidation = False + Formulario.IsMdiContainer = True + Dim c As Control + For Each c In Formulario.Controls + If TypeOf c Is MdiClient Then + ' '' c.BackColor = Color.FromArgb(8, 98, 83) + c.BackColor = Color.White + Exit For + End If + Next + Catch ex As Exception + MsgBox(ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Exclamation, "Error frmInicio_Load") + Environment.Exit(0) + Finally + Formulario.Enabled = True + End Try + End Sub + Public Shared Sub InicioClienteSinServicio(Aplicacion As String, Formulario As Form, tcFormularios As System.Windows.Forms.TabControl, FicheroConfServidor As String, FichConfProduccion As String, FichConfDesarrollo As String, Evento As EventHandler, ByRef datconfcli As Datos.DatosConfiguracionCliente, ByRef datconexcli As Datos.DatosConexionCliente, ByRef datsesioncli As Datos.DatosSesionCliente, Optional NumeroBDServicio As Integer = 0) + Try + Dim fidentificacion As New frmIdentificacion + 'Dim sr As tsl5.Interfaces.IServicioNR = Nothing + Dim datconfapl As Datos.DatosConfiguracionAplicacion = Nothing + Dim sFichConf As String + If IO.File.Exists(FichConfDesarrollo) Then + sFichConf = FichConfDesarrollo + Else + sFichConf = FichConfProduccion + End If + Dim bReintentar As Boolean = True + Dim bCambiarConfiguracion As Boolean + Dim bGuardarConfiguracion As Boolean + Do + If bReintentar Then + If Not IO.File.Exists(sFichConf) Or bCambiarConfiguracion Then + + Dim fConfig As New frmConfiguracionAplicacion + Dim ServLocal As New tsl5.Datos.Servidor + Dim ServRemoto As New tsl5.Datos.Servidor + If datconfapl Is Nothing Then + fConfig.tbRutaDatos.Text = IO.Path.GetDirectoryName(sFichConf) & "\datos\" + fConfig.tbRutaTemporales.Text = IO.Path.GetDirectoryName(sFichConf) & "\tmp\" + Else + fConfig.tbRutaDatos.Text = datconfcli.ConstantesCliente.RutaDatos + fConfig.tbRutaTemporales.Text = datconfcli.ConstantesCliente.RutaTmp + For Each servidor In datconfapl.Servidores + Try + If servidor.Localizacion = LocalizacionesEnum.Local Then + fConfig.tbServidorLocal.Text = servidor.Servidor + fConfig.tbPuertoLocal.Text = servidor.Puerto + Else + fConfig.tbServidorRemoto.Text = servidor.Servidor + fConfig.tbPuertoRemoto.Text = servidor.Puerto + End If + Catch ex As Exception + End Try + Next + End If + fConfig.tbServidorLocal.Focus() + fConfig.ShowDialog() + + + Dim conscli As New Datos.ConstantesCliente + conscli.NombreServicio = "" + conscli.RutaDatos = fConfig.tbRutaDatos.Text + conscli.RutaTmp = fConfig.tbRutaTemporales.Text + conscli.RutaAplicacion = Windows.Forms.Application.StartupPath + datconfapl = New Datos.DatosConfiguracionAplicacion + datconfapl.ConstantesCliente = conscli + If fConfig.tbServidorLocal.Text.Trim <> "" Then + ServLocal.Localizacion = LocalizacionesEnum.Local + ServLocal.Servidor = fConfig.tbServidorLocal.Text + ServLocal.Puerto = fConfig.tbPuertoLocal.Text + datconfapl.Servidores.Add(ServLocal) + End If + If fConfig.tbServidorRemoto.Text.Trim <> "" Then + ServRemoto.Localizacion = LocalizacionesEnum.Remoto + ServRemoto.Servidor = fConfig.tbServidorRemoto.Text + ServRemoto.Puerto = fConfig.tbPuertoRemoto.Text + datconfapl.Servidores.Add(ServRemoto) + End If + bGuardarConfiguracion = True + Else + datconfapl = New Datos.DatosConfiguracionAplicacion + datconfapl = tsl5.Utilidades.DeserializaFichero(sFichConf, datconfapl.GetType) + End If + End If + Try + Dim bConectado As Boolean = False + For Each servidor In datconfapl.Servidores + Try + datconfcli = New Datos.DatosConfiguracionCliente + datconfcli.ServidorActivo = servidor + datconfcli.ConstantesCliente = datconfapl.ConstantesCliente + datconfcli.NombreEjecutable = Process.GetCurrentProcess.ProcessName & ".exe" + datconexcli = tsl5.Rutinas.ObtieneDatConexClienteSinServicio(FicheroConfServidor, datconfcli, 1) + bConectado = True + Exit For + Catch ex As Exception + End Try + Next + If Not bConectado Then Throw New Exception("No se ha podido conectar con ninguno de los servidores") + If bGuardarConfiguracion Then + If IO.File.Exists(sFichConf) Then IO.File.Delete(sFichConf) + tsl5.Utilidades.CreaEstructuraDirectorio(IO.Path.GetDirectoryName(sFichConf)) + tsl5.Utilidades.CreaEstructuraDirectorio(datconfcli.ConstantesCliente.RutaDatos) + tsl5.Utilidades.CreaEstructuraDirectorio(datconfcli.ConstantesCliente.RutaTmp) + tsl5.Utilidades.serializar(datconfapl, sFichConf) + End If + + Exit Do + Catch ex As Exception + Select Case MsgBox(ex.Message & vbCrLf & "Pulse si para volver a intentar, 'no' para modificar la configuración, cancelar para salir de la aplicación", MsgBoxStyle.YesNoCancel, "¡Atención!") + Case MsgBoxResult.No + bReintentar = True + If IO.File.Exists(sFichConf) Then IO.File.Delete(sFichConf) + Case MsgBoxResult.Yes + bReintentar = False + + Case MsgBoxResult.Cancel + Environment.Exit(0) + End Select + End Try + Loop + ' tsl5.Rutinas.ActualizaCliente(datconfcli, datconexcli, sr) 'solo datos 20120614 + Dim exc As Exception = Nothing + Dim idGrupoBD As Integer + Do + exc = Nothing + Try + If fidentificacion.ShowDialog = Windows.Forms.DialogResult.OK Then + datsesioncli = IniciaSesionSinServicio(fidentificacion.tbUsuario.Text, fidentificacion.tbClave.Text, idGrupoBD, Aplicacion, exc) + If Not exc Is Nothing Then Throw exc + Exit Do + Else + Environment.Exit(0) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Atención") + End Try + Loop + If idGrupoBD <> 1 Then datconexcli = tsl5.Rutinas.ObtieneDatConexClienteSinServicio(FicheroConfServidor, datconfcli, idGrupoBD) + tsl5.Rutinas.GeneraMenus(Formulario, datconexcli, datsesioncli, Evento) + tcFormularios.CausesValidation = False + Formulario.IsMdiContainer = True + Dim c As Control + For Each c In Formulario.Controls + If TypeOf c Is MdiClient Then + ' '' c.BackColor = Color.FromArgb(8, 98, 83) + c.BackColor = Color.White + Exit For + End If + Next + Catch ex As Exception + MsgBox(ex.Message & vbCrLf & ex.StackTrace, MsgBoxStyle.Exclamation, "Error frmInicio_Load") + Environment.Exit(0) + Finally + Formulario.Enabled = True + End Try + End Sub + +End Class diff --git a/InicioServicioYClientes/frmConfiguracionAplicacion.resx b/InicioServicioYClientes/frmConfiguracionAplicacion.resx new file mode 100644 index 0000000..ec933b3 --- /dev/null +++ b/InicioServicioYClientes/frmConfiguracionAplicacion.resx @@ -0,0 +1,145 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAEBAAAAEAIABoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAQAQAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABmMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2Yz + AP8AAAAAAAAAAAAAAABmMwD///////////////////////////////////////////////////////// + ////////ZjMA/wAAAABmMwD///////////////////////////////////////////////////////// + //////////////////9mMwD/ZjMA////////////cEAQ/3BAEP9wQBD/cEAQ////////////cEAQ//// + //9wQBD/cEAQ////////////ZjMA/2YzAP////////////////9wQBD/cEAQ/////////////////3BA + EP9wQBD//////3BAEP9wQBD//////2YzAP9mMwD/////////////////cEAQ/3BAEP////////////// + //////////////////9wQBD/cEAQ//////9mMwD/ZjMA/////////////////3BAEP9wQBD///////// + /////////////3BAEP9wQBD/cEAQ/3BAEP//////ZjMA/2YzAP////////////////9wQBD/cEAQ//// + /////////////3BAEP9wQBD/cEAQ/3BAEP///////////2YzAP9mMwD/////////////////cEAQ/3BA + EP////////////////9wQBD/cEAQ//////////////////////9mMwD/ZjMA//////9wQBD//////3BA + EP9wQBD//////3BAEP//////cEAQ/3BAEP//////cEAQ/3BAEP//////ZjMA/2YzAP//////cEAQ/3BA + EP9wQBD/cEAQ/3BAEP9wQBD///////////9wQBD/cEAQ//////9wQBD//////2YzAP9mMwD///////// + //////////////////////////////////////////////////////////////////9mMwD/AAAAAGYz + AP////////////////////////////////////////////////////////////////9mMwD/AAAAAAAA + AAAAAAAAZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/ZjMA/2YzAP9mMwD/AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA//8AAMADAACAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAB + AADAAwAA//8AAA== + + + \ No newline at end of file diff --git a/InicioServicioYClientes/frmConfiguracionAplicacion.vb b/InicioServicioYClientes/frmConfiguracionAplicacion.vb new file mode 100644 index 0000000..cd1ebd7 --- /dev/null +++ b/InicioServicioYClientes/frmConfiguracionAplicacion.vb @@ -0,0 +1,288 @@ +Imports System.Data +Imports System.Data.OleDb +Imports cablin.clFuncionesGenericas +Imports cablin +Public Class frmConfiguracionAplicacion + Inherits System.Windows.Forms.Form + Private bIdentificacionValida As Boolean + Private WithEvents tlbBarraGenerica As New ucBarraGenerica + Friend WithEvents tbPuertoLocal As System.Windows.Forms.textBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents tbRutaDatos As System.Windows.Forms.textBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tbRutaTemporales As System.Windows.Forms.textBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents tbPuertoRemoto As System.Windows.Forms.textBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents tbServidorRemoto As System.Windows.Forms.textBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Public WithEvents clCab As cablin.clCabLin + 'Friend NombreServicio As String + 'Friend Puerto As String + 'Friend FicheroConfig As String + + +#Region " Cdigo generado por el Diseador de Windows Forms " + + Public Sub New() + MyBase.New() + + 'El Diseador de Windows Forms requiere esta llamada. + InitializeComponent() + + 'Agregar cualquier inicializacin despus de la llamada a InitializeComponent() + + End Sub + + 'Form reemplaza a Dispose para limpiar la lista de componentes. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + If Not (components Is Nothing) Then + components.Dispose() + End If + End If + MyBase.Dispose(disposing) + End Sub + + 'Requerido por el Diseador de Windows Forms + Private components As System.ComponentModel.IContainer + + 'NOTA: el Diseador de Windows Forms requiere el siguiente procedimiento + 'Puede modificarse utilizando el Diseador de Windows Forms. + 'No lo modifique con el editor de cdigo. + Friend WithEvents Estado As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents tbServidorLocal As System.Windows.Forms.textBox + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfiguracionAplicacion)) + Me.Estado = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.tbServidorLocal = New System.Windows.Forms.textBox() + Me.tbPuertoLocal = New System.Windows.Forms.textBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.tbRutaDatos = New System.Windows.Forms.textBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.tbRutaTemporales = New System.Windows.Forms.textBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.tbPuertoRemoto = New System.Windows.Forms.textBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.tbServidorRemoto = New System.Windows.Forms.textBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'Estado + ' + Me.Estado.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Estado.ForeColor = System.Drawing.Color.Red + Me.Estado.Location = New System.Drawing.Point(16, 64) + Me.Estado.Name = "Estado" + Me.Estado.Size = New System.Drawing.Size(653, 16) + Me.Estado.tabIndex = 19 + Me.Estado.text = "Estado:" + ' + 'Label1 + ' + Me.Label1.Location = New System.Drawing.Point(21, 99) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(138, 16) + Me.Label1.tabIndex = 28 + Me.Label1.text = "Servidor Local:" + ' + 'tbServidorLocal + ' + Me.tbServidorLocal.Location = New System.Drawing.Point(173, 95) + Me.tbServidorLocal.Name = "tbServidorLocal" + Me.tbServidorLocal.Size = New System.Drawing.Size(196, 20) + Me.tbServidorLocal.tabIndex = 27 + Me.tbServidorLocal.tag = "IND:1|NBD:N-E:ServidorLocal|USC:1" + ' + 'tbPuertoLocal + ' + Me.tbPuertoLocal.Location = New System.Drawing.Point(173, 121) + Me.tbPuertoLocal.Name = "tbPuertoLocal" + Me.tbPuertoLocal.Size = New System.Drawing.Size(196, 20) + Me.tbPuertoLocal.tabIndex = 29 + Me.tbPuertoLocal.tag = "IND:2|NBD:N-E:PuertoLocal|USC:1" + ' + 'Label2 + ' + Me.Label2.Location = New System.Drawing.Point(21, 125) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(138, 16) + Me.Label2.tabIndex = 30 + Me.Label2.text = "Puerto Local:" + ' + 'tbRutaDatos + ' + Me.tbRutaDatos.Location = New System.Drawing.Point(173, 224) + Me.tbRutaDatos.Name = "tbRutaDatos" + Me.tbRutaDatos.Size = New System.Drawing.Size(496, 20) + Me.tbRutaDatos.tabIndex = 33 + Me.tbRutaDatos.tag = "IND:5|NBD:N-E:RutaDatos|BCO:O|USC:1" + ' + 'Label4 + ' + Me.Label4.Location = New System.Drawing.Point(21, 229) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(138, 16) + Me.Label4.tabIndex = 34 + Me.Label4.text = "Ruta Datos:" + ' + 'tbRutaTemporales + ' + Me.tbRutaTemporales.Location = New System.Drawing.Point(173, 251) + Me.tbRutaTemporales.Name = "tbRutaTemporales" + Me.tbRutaTemporales.Size = New System.Drawing.Size(496, 20) + Me.tbRutaTemporales.tabIndex = 35 + Me.tbRutaTemporales.tag = "IND:6|NBD:N-E:RutaFicherosTemporales|BCO:O|USC:1" + ' + 'Label5 + ' + Me.Label5.Location = New System.Drawing.Point(21, 256) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(138, 16) + Me.Label5.tabIndex = 36 + Me.Label5.text = "Ruta Ficheros Temporales:" + ' + 'tbPuertoRemoto + ' + Me.tbPuertoRemoto.Location = New System.Drawing.Point(173, 186) + Me.tbPuertoRemoto.Name = "tbPuertoRemoto" + Me.tbPuertoRemoto.Size = New System.Drawing.Size(196, 20) + Me.tbPuertoRemoto.tabIndex = 39 + Me.tbPuertoRemoto.tag = "IND:4|NBD:N-E:PuertoRemoto|BCO:O|USC:1" + ' + 'Label3 + ' + Me.Label3.Location = New System.Drawing.Point(21, 190) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(138, 16) + Me.Label3.tabIndex = 40 + Me.Label3.text = "Puerto Remoto:" + ' + 'tbServidorRemoto + ' + Me.tbServidorRemoto.Location = New System.Drawing.Point(173, 160) + Me.tbServidorRemoto.Name = "tbServidorRemoto" + Me.tbServidorRemoto.Size = New System.Drawing.Size(196, 20) + Me.tbServidorRemoto.tabIndex = 37 + Me.tbServidorRemoto.tag = "IND:3|NBD:N-E:ServidorRemoto|USC:1" + ' + 'Label6 + ' + Me.Label6.Location = New System.Drawing.Point(21, 164) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(138, 16) + Me.Label6.tabIndex = 38 + Me.Label6.text = "Servidor Remoto:" + ' + 'frmConfiguracionAplicacion + ' + Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(681, 345) + Me.ControlBox = False + Me.Controls.Add(Me.tbPuertoRemoto) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.tbServidorRemoto) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.tbRutaTemporales) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.tbRutaDatos) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.tbPuertoLocal) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.tbServidorLocal) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Estado) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.KeyPreview = True + Me.MinimizeBox = False + Me.Name = "frmConfiguracionAplicacion" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.tag = "APSB:S" + Me.text = "Configuracin de la Aplicacin" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + +#End Region + + Private Sub frmcambioPin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Call AgregaBarraGenerica(Me, CType(tlbBarraGenerica, Object)) + clCab = New clCabLin(Me, "Instalacion", Nothing) + Me.tlbBarraGenerica.tlbSiguiente.Enabled = False + Me.tlbBarraGenerica.tlbSiguiente.Visible = False + Me.tlbBarraGenerica.tlbAlmacenar.Visible = True + Me.tlbBarraGenerica.tlbAlmacenar.Enabled = True + Me.tlbBarraGenerica.tlbLimpiarPantalla.Visible = False + Me.tlbBarraGenerica.tlbSalir.Enabled = True + Me.tlbBarraGenerica.tlbEliminaFicha.Visible = False + clCab.Estado = "Introduzca Datos" + + Call RedibujaBarraGenerica(tlbBarraGenerica.tbGenerico) + End Sub + Private Sub clCab_DespuesFPulsado(ByVal Tecla As String) Handles clCab.DespuesFPulsado + Select Case Tecla + Case "1" + Try + If Me.tbServidorLocal.text <> "" Then + If Me.tbPuertoLocal.text = "" Then + Throw New Exception("Si especifica un servidor local, debe especificar el puerto de conexin Local") + End If + End If + If Me.tbPuertoLocal.text <> "" Then + If Me.tbServidorLocal.text = "" Then + Throw New Exception("Si especifica un puerto local, debe especificar el servidor de conexin Local") + End If + End If + If Me.tbServidorRemoto.text <> "" Then + If Me.tbPuertoRemoto.text = "" Then + Throw New Exception("Si especifica un servidor remoto, debe especificar el puerto de conexin remoto") + End If + End If + If Me.tbPuertoRemoto.text <> "" Then + If Me.tbServidorRemoto.text = "" Then + Throw New Exception("Si especifica un puerto remoto, debe especificar el servidor de conexin remoto") + End If + End If + If Me.tbServidorRemoto.text = "" And Me.tbServidorLocal.text = "" Then + Throw New Exception("Debe especificar al menos un servidor") + End If + Me.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error") + ' Environment.Exit(0) + End Try + Case "8" + Environment.Exit(0) + End Select + End Sub + Public Shared Sub RedibujaBarraGenerica(ByVal BarraHerramientas As Windows.Forms.ToolBar) + Try + Dim butBoton As Windows.Forms.ToolBarButton, iNumbotones As Integer + For Each butBoton In BarraHerramientas.Buttons + If butBoton.Visible Then + iNumbotones += 1 + End If + Next + BarraHerramientas.Width = (BarraHerramientas.ButtonSize.Width * iNumbotones) + 10 + BarraHerramientas.Parent.Width = BarraHerramientas.Width + Catch ex As Exception + MsgBox(ex.Message & ". En Redibujabarragenerica" & vbCrLf & ex.StackTrace) + End Try + End Sub + + 'Private Sub frmSeleccionInstalacion_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing + ' e.Cancel = Not bIdentificacionValida + 'End Sub + + Private Sub frmConfiguracionAplicacion_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown + + + tbServidorLocal.Focus() + End Sub +End Class diff --git a/InicioServicioYClientes/frmIdentificacion.resx b/InicioServicioYClientes/frmIdentificacion.resx new file mode 100644 index 0000000..09e1d36 --- /dev/null +++ b/InicioServicioYClientes/frmIdentificacion.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/InicioServicioYClientes/frmIdentificacion.vb b/InicioServicioYClientes/frmIdentificacion.vb new file mode 100644 index 0000000..17b0156 --- /dev/null +++ b/InicioServicioYClientes/frmIdentificacion.vb @@ -0,0 +1,167 @@ +Public Class frmIdentificacion + Inherits System.Windows.Forms.Form + + +#Region " Cdigo generado por el Diseador de Windows Forms " + + Public Sub New() + MyBase.New() + + 'El Diseador de Windows Forms requiere esta llamada. + InitializeComponent() + + 'Agregar cualquier inicializacin despus de la llamada a InitializeComponent() + + End Sub + + 'Form reemplaza a Dispose para limpiar la lista de componentes. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + If Not (components Is Nothing) Then + components.Dispose() + End If + End If + MyBase.Dispose(disposing) + End Sub + + 'Requerido por el Diseador de Windows Forms + Private components As System.ComponentModel.IContainer + + 'NOTA: el Diseador de Windows Forms requiere el siguiente procedimiento + 'Puede modificarse utilizando el Diseador de Windows Forms. + 'No lo modifique con el editor de cdigo. + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents tbClave As System.Windows.Forms.textBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents IniciarSesion As System.Windows.Forms.Button + Friend WithEvents Cancelar As System.Windows.Forms.Button + Friend WithEvents tbUsuario As System.Windows.Forms.textBox + Private Sub InitializeComponent() + Me.Label1 = New System.Windows.Forms.Label() + Me.tbClave = New System.Windows.Forms.textBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.tbUsuario = New System.Windows.Forms.textBox() + Me.IniciarSesion = New System.Windows.Forms.Button() + Me.Cancelar = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(23, 49) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(144, 16) + Me.Label1.tabIndex = 28 + Me.Label1.text = "Clave Acceso:" + ' + 'tbClave + ' + Me.tbClave.Location = New System.Drawing.Point(136, 49) + Me.tbClave.Name = "tbClave" + Me.tbClave.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.tbClave.Size = New System.Drawing.Size(142, 20) + Me.tbClave.tabIndex = 1 + Me.tbClave.tag = "IND:2|NBD:Clave_Acceso" + ' + 'Label5 + ' + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(23, 23) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(107, 16) + Me.Label5.tabIndex = 46 + Me.Label5.text = "Cdigo Usuario.:" + ' + 'tbUsuario + ' + Me.tbUsuario.Location = New System.Drawing.Point(136, 20) + Me.tbUsuario.Name = "tbUsuario" + Me.tbUsuario.Size = New System.Drawing.Size(142, 20) + Me.tbUsuario.tabIndex = 0 + Me.tbUsuario.tag = "IND:1|NBD:Codigo" + ' + 'IniciarSesion + ' + Me.IniciarSesion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.IniciarSesion.Location = New System.Drawing.Point(168, 85) + Me.IniciarSesion.Name = "IniciarSesion" + Me.IniciarSesion.Size = New System.Drawing.Size(110, 23) + Me.IniciarSesion.tabIndex = 2 + Me.IniciarSesion.text = "&Iniciar Sesin" + Me.IniciarSesion.UseVisualStyleBackColor = True + ' + 'Cancelar + ' + Me.Cancelar.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Cancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Cancelar.Location = New System.Drawing.Point(26, 85) + Me.Cancelar.Name = "Cancelar" + Me.Cancelar.Size = New System.Drawing.Size(110, 23) + Me.Cancelar.tabIndex = 3 + Me.Cancelar.text = "&Cancelar" + Me.Cancelar.UseVisualStyleBackColor = True + ' + 'frmIdentificacion + ' + Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) + Me.CancelButton = Me.Cancelar + Me.ClientSize = New System.Drawing.Size(302, 125) + Me.ControlBox = False + Me.Controls.Add(Me.Cancelar) + Me.Controls.Add(Me.IniciarSesion) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.tbUsuario) + Me.Controls.Add(Me.tbClave) + Me.Controls.Add(Me.Label1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D + Me.KeyPreview = True + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmIdentificacion" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.tag = "" + Me.text = "Identificacin" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + +#End Region + + + + Private Sub IniciarSesion_Click(sender As System.Object, e As System.EventArgs) Handles IniciarSesion.Click + Me.DialogResult = System.Windows.Forms.DialogResult.OK + End Sub + + Private Sub frmIdentificacion_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'If e.KeyCode = Keys.Enter Then + ' If Not (tbUsuario.text <> "" And tbClave.text <> "") Then + ' e.Handled = True + ' If Me.ActiveControl Is tbClave Then + ' tbUsuario.Focus() + ' Else + ' tbClave.Focus() + ' End If + ' Else + ' Me.DialogResult = Windows.Forms.DialogResult.OK + ' End If + 'End If + End Sub + + Private Sub frmIdentificacion_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress + If e.KeyChar = Chr(13) Then + e.Handled = True + If Not (tbUsuario.text <> "" And tbClave.text <> "") Then + If Me.ActiveControl Is tbClave Then + tbUsuario.Focus() + Else + tbClave.Focus() + End If + Else + Me.DialogResult = System.Windows.Forms.DialogResult.OK + End If + End If + End Sub +End Class diff --git a/InicioServicioYClientes/ucBarraGenerica.resx b/InicioServicioYClientes/ucBarraGenerica.resx new file mode 100644 index 0000000..afc2378 --- /dev/null +++ b/InicioServicioYClientes/ucBarraGenerica.resx @@ -0,0 +1,1311 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAD2 + EwEAAk1TRnQBSQFMAgEBHgEAATQBAAE0AQABIAEAASABAAT/ARkBAAj/AUIBTQE2BwABNgMAASgDAAGA + BAABAQIAAQEBAAEYBgABgAEBkgAD/wP+/wAzAAHJAg0BngIwAX4CRgFxAlgBdAJYAX0CRgGeAi8ByQIK + JwAD/QLZAdgC1wHRAtkB0wLbAdUDxAP9BgAG/v8AAwAB1gIUAc8CNwHJAlEBwQJiAbgCaQGwAm0BqwJr + AacCaAHIAqABpwKNAX4BdwF5AY0BkAGTAZ0BnwGjAawBpAGgAakBogGcAZEBlQGYAX0BgAGEAW8BaAFq + AacBNQE2AdIaAAP8AsoByQLZAdMC2wHVAt0B1wLfAdkC4QHbAuMB3QLlAd8DmgOsA88D0gNJA9gD/gP/ + A/wD+wP/6gAB3gJEAeIChQHWAqIB2QKoAdoCqgHZAqYB2gKnAd8CrAHcAqoB5QLIAaMBjgGPAZIBkQGT + AbYBsgGvAesBzAGnAf8B3gGpAf8B4QGwAf8B4gGwAf8B3QGnAeYBwwGeAZ8BmwGYAXgBewF9AZgCSAHS + DgAD/gLCAcACywHEAtcB0QLeAdgC4AHaAuIB3ALkAd4C5gHgAugB4gLqAeQC7AHmAvEB6gOIA7cDrAOi + AaQBoAGdAXoBQQERAdcBfAEJAe0BkAETAasBYgEUAZYBkwGRA/fhAAHXAhMB2gKLAeECtgHyAssB8gLK + AewCvwHjArQB2wKpAdkCpgHbAqgB4gO+AqUBnQGYAZwBzAG/AbEB/wHiAa4B/wHjAbYB/wHjAbsB/wHi + AbsB/wHkAcAB/wHoAcsB/wHmAcAB/wHdAagBtQGmAZgBdwF7AX0BqQI2CQACsgGtAroBtALHAcAC1AHO + AuAB2gLmAeAC6AHiAuoB5ALsAeYC7QHnAvAB6gLyAewC9AHuAvYB8AKEAYIDYwOLA4AB6QGNARgB7wGV + ASIB9QGdAS0B/AGnATkB9gGmATsBzAGEAR0BaAEzARED3wP/2AAB1QIJAeICkQH2As8B/wLdAfYCzwHw + AsQB6QK8AeICsgHbAqkB2QKmAd0CrQHgAscBnAGJAYsBxwHDAb4B/wHjAbEB/wHkAbgB/wHiAbcB/wHi + AbcB/wHhAbYB/wHgAbUB/wHfAbAB/wHlAcIB/wHqAcoB/wHeAakBpAGeAZcBbgFnAWoByQIKDAAD+wLb + AdUC6QHjAu0B5wLvAekC8QHrAvMB7QL1Ae8C9wHxAvkB8wL7AfUC/QH3Av8B+QNJA0QDDQHtAacBPgHk + AZQBKQGxAYcBSgHnAcgBgwHoAbkBVwGhAWABBwGLAU4BBQFsAS8BBwOrA/vVAAHbAk0B8QLGAf8C4wH6 + AtcB9ALNAe8CwwHpAroB4QKvAdkCpgHZAqUB5gLBAb0CoQG0AbIBuAH4AdgBsgH/AecBvAH/AecBvAH/ + AeYBvQH/AegBvQH/AewBwQH/AesBwAH/AeQBuQH/AeABsgH/AeQBwgH/AegBxQHwAckBoAF9AYEBhQGe + Ai8JAAK+Ab0D0QLBAcIC8gHsAvQB7gL3AfEC+QHzAvsB9QL9AfcC/wH4Av8B+gL/AfoC/wH6Av8B+gKD + AYIDDwNbA00DjwNsAd0BlQEAAdoBkgEEAZ8BXAEBAykDMAE5ATYBNQFjAT8BLQPrA//PAAHcAnIB+wLY + Af8C4AH6AtUB9gLRAfkC3gH9AuIB/wLfAfoC0QHmArcB5gLIAagCigHPAdEBzwH/AeUBtgH/AeoBwQH/ + AekBwQH/AesBwwH/AfYBywG7AasBkAG3AaUBigH/AewBwAH/AeYBugH/AeABsgH/AeoBzQH/AeIBrQGc + ApoBfQJIDAAD+QOhAYoBjQGTAvwB9gL+AfgC/wH6Av8B+gL/AfoC/wH6Av8B+wL/AfsC/wH7Av8B/AL1 + AfECIgEjAywDUgNYA1YB2AGOAQ0B1gGEAQcBlQFTAQMDJQMsA0UDUwFfASQBBAPBA/7MAAHfAncB+wLY + Af8C4wH/AvYB6wLVAdYCrwHLApgBvAKJAbkChQHDAo8B5QLKAacBjwGRAeIB1wHJAf8B8gHPAf8B8wHa + Af8B7gHGAf8B9AHMAeMB1QGyAVUBWAFgAUgBTQFTAc8BvQGbAf8B7gHEAf8B4gG3Af8B5QHDAf8B5wG5 + AbcBqwGdAXICWgwAAcgBrAF9AdsBgQEOAdkBjgErAdABtQGbAv8B+gL/AfsC/wH7Av8B+wL/AfwC+gH2 + AuUB4ALQAcsCuwG1AqUBnwKBAXsCGAEXAwADQAM/AdkBiQEYAZ4BYgEeAY0BSgEGBiUDKwNLA1oBQQJA + A/bMAAHgAnkB/QLmAfYC7AHkArwB7gLFAfICxwHtAsAB5gK2Ad4CrAHcAqkB7QLSAa4BkgGTAekB3AHO + Af8B9AHTAf8B9wHfAf8B9gHVAv8B2wGQAYsBeAFTAVUBWgFDAUUBSgF1AW4BXwHoAdQBrgH/AekBvQH/ + AeYBvwH/AegCvAGuAaEBbwFYAVkMAAHwAZYBJAH2AZ4BLwH9AagBPAF2ATYBBAP/Av0B+QHqAesB5gHW + AdUB0QK/AbkCrAGmAowBhgJhAVsCTgFIATsBOgE2AgIBAQMaAzgDLQMoAdQBgQEnAZ0BYQEtAYUBQQEI + AywDIAMnA0MDUQNfA2XMAAHiAnMB+QLjAf4C2wH9AtkB9QLOAe8CxAHpArwB4gKyAdsCqQHZAqYB6QLL + AbQCkQHqAegB5AH/Ae8ByQH/AfoB6AL/AeoBtAGvAZcBBgEIARABwAG4AZ4B1wHLAa0BEgEVARsBZwFg + AVYB8AHZAbEB/wHnAcEB/wHlAbYBrAGoAaQBeQFIAUkPAAHeAbABVgGjAaUBpwMAA0oCugG0ApQBjgJs + AWYCTwFKAkQBPwIJAQgCEAERAzgDLQMoAyIDGwMWAxEBywFzATEBtQG7Ab4BfgE4AQgDMgMaAyEDNQNI + A1cDTMwAAeACdQH5AtMB/wLgAfoC1gH0As0B7wLEAekCvAHiArAB2gKmAdgCpAHkAsABxgKjAdwB2QHe + Af8B5gG/Av8B9AHKAcgBtgEGAQcBDgGyAa4BmQL/AeIC/wHZAe0B3gG8AR4BIQEkAfEB2wG0Af8B6gHD + AfsB2AGsAY8BkwGXAZwCMQwAAdcBjAEFAaoBmQF5A1kJAAEJAQoBCQMHAzUDLQMnAyEDGwMVAxADCgME + AwIDDgHIAW4BRAHBAWYBRAF0ATABDQM5AxQDGwMhAz4DTgNEzAAB4QKFAf4C3AH/At8B+gLWAfQCywHw + AsUB8ALHAfACywHvAsoB7wLEAe4CwAHqAs4BwwGmAacB/wH2AekC/wHcARwBHwEkApEBiAL/AfMB/wH7 + AdkB/wH0Ac8B/wH3Ac8B/wH4Ac4B/wHvAcQB/wHqAbgBxQG7AbABfgF0AXYByAINDAABzwGLAR4B2gGH + AQ8DRAMDAy8DLQMnAyEDGwMVAxADCgMEAwIDDwMcAygDNgNDAdIBiAFkAdcBkwFxAZ0BYAFBAy0DDwMV + AxwDNANEAzbMAAHlAogB/wLcAf8C3gH/AukB/wLxAecCzwHZArUBzwKeAcECjQG9AokBuAKFAc0CqgHL + AqUB3gHUAdgB/wH6AeEB+QHuAcsC/wH7Av8B6wH/AfkB4QH/AfYB2gH/AfEB0gH/Ae4BxAH/AesBuwHd + AcgBswGUAZMBlwGqATkBOg8AAc8BgAEeAc8BfQEhAy8DIQMbAxUDEAMKAwQDAgMVA0QDKQM2A0MDTgNr + A48DlAHBAa4BngHwAcoBqAH8Ad8BvAHoAekB6gMHAxADFgMoAzoCLwEwzAAB5gKKAf8C5gH3AvAB5gLL + AdsCrgHpAr4B7AK9AeUCtAHdAqsB3AKpAd4CqwHaAqgB5QLIAcECmwHfAdcB2gH/AfwB7gH/AesBwwH/ + AfYB0gH/AfoB2gH/AfcB1wH/AfEByQH+AeEBtgHVAcsBvwGhAZsBnwGbAkwB0gIBDwABzgF6ASwBygF1 + AS4DGgMKAwMDAgMQAxwDKQM8A0IDTgF4AXkBeAOlA6gDrAOyA6oDlQF9An4B+wHjAbQB9AHTAZABjwFW + ASABxAGxAaUDKwMQAxYDMAIqASnMAAHnAoMB+QLsAfwC2gH9AtgB9wLQAfECxQHpArwB4gKyAdsCqQHZ + AqYB2gKnAdYCowHQAp4B4QLDAdACqQHDAacBqAHiAd8B5AHyAe4B5gHwAeMB0gHrAd4BzQHbAdYBzwG6 + AbcBvQGbAYoBjQGlAowB0gIBEgABygFxATkBxQFtATsDGgMcAykDNwNDA1EDiwO8A7sDvQPBA7kDqQOX + A4QDcwNSAy8BogGlAasB2QGLAQAB3AGVAQAB3QGWAQABmwFYAQEBoAF6AVQDHQMgAyPMAAHmAngB+wLU + Af8C3wH6AtYB9ALNAe8CxAHpArwB4gKyAdsCqQHZAqYB2gKnAdYCowHPApwBygKXAdUCsgHZAr0BvgGb + AZwBsAGLAY0BrAGRAZIBpwGOAZABoAKEAacCiwG1A5wCahUAAcIBZgFFAccBcAFPA1EDVQGjAaIBowLS + AdMD0QPQA9IDywO8A60DngOUA0UDWgPoA/4D9QPvA+kD4gHeAeIB6gHbAY4BAAHcAZUBAAHcAZUBAAG7 + AXkBAgGDAVABGgElAibMAAHoApIB/wLgAf8C3wH6AtYB9ALNAe8CxAHpArsB4QKvAdkCpgHXAqQB2gKn + AdYCowHPApwByQKWAcICjwHAApEByQKkAc8CsQHPArQByAKtAboCmwGhA3wCTQFsAi0VAAHqAdEBwAH6 + AfIB7QPyBuID3APQA8QDvAObATkBNgExAZIBZAEjAd8BmQEEAbcBeAEEAdsBoAEAAe0B7gH2A+UD3wPZ + A9UDyAK+Ab0DvwHHAcgByQFfAWYBeAHcAZUBAAHcAZUBAAHcAZQBAAP+zAAB7AKZAf8C3gH+At0B+gLV + AfYCzwH1AtEB9ALTAfQC0QHyAskB8QLCAewCuQHnArQB4QKuAdkCpgHSAp8BywKYAcACjQG1AoIBqQJ2 + AZgCZQGLAlgBfgJLAXICPwFtAiwVAAP/Af0B+AHxAf8B+QHxA+gD3AN3A1cD6AP+A/YD7wL2AfkBsQGW + AR0B4AGtAQ0BmQGQAWgB3QHfAekCtQGwApQBjQKiAZwCqAGhAq4BpwKzAa0CuQGyAagBqwGtAa8BjgFI + AVcBWwFi1QAB7AKYAf8C3gH/Au0B/wL4Ae0C2AHfAr4B1gKqAc0CmQHDAo4BuwKIAbsCiAG4AoUBsQJ+ + AasCeAGpAnYBpgJzAaUCcgGhAm4BoAJtAZ8CbAGgAm0BhgJTAXECPwFrAiwYAAP+AewBtwFNAeQBqgE0 + Aa8BfgEXAb8BwgHIA+sD5QPfA9cD8AOKAwACJgElAq0BpwKyAawCuAGyAr4BuALCAb0CygHDAs8ByQLS + AcsC0wHMAtQBzgHXAdsB4AHIAbgBodUAAe4CmwH/AvoB8ALZAeQCuwHvAsYB8gLFAewCvwHlArUB3gKs + AdwCqQHeAqsB2gKnAdICnwHMApkBxQKSAb4CiwG2AoMBsAJ9AacCdAGTAmABgAJNAYYCUwGWAmMBZwIu + IQAB5AHZAcIB3QGVAQAB6AGeAQABPwE9ATkB7QHvAfEBHAEeASIBJwEoASkDNQNAAj0BPALRAcoC0wHN + AtQBzgLVAc8C1gHQAtYB0QLXAdEC2AHTAtkB1ALaAdQBmgFcAQ4BxAGKAS3VAAHpAocB+QLXAf8C3wH9 + AtkB9QLOAe8CxAHpArwB4gKyAdsCqQHZAqYB2gKnAdYCowHPApwByQKWAcICjwG7AogBtAKBAa4CewGl + AnIBmAJlAYwCWQF+AksBdAJBAXQCKCoAAdsBwAGIAdwBnAEZAdcBsQFfAfgC9wKFAYYGjAHiAeMB4ALh + AdwC3wHaAuEB3ALiAd0C4wHeAuQB3gLkAd8C5QHgAuUB4AHqAe0B7AHXAZ0BQQHAAagBktIAAfACpQH/ + AuAB/gLeAfoC1gH0As0B7wLEAekCvAHiArIB2wKpAdkCpgHaAqcB1gKjAc8CnAHJApYBwgKPAbsCiAG0 + AoEBrgJ7AaUCcgGYAmUBiwJYAX4CSwFyAj8BbwIuPwABugF7AR8C3QHYAt4B2ALfAdkC4AHbAuEB3ALj + Ad0C6gHlAuwB5wLqA+UB4AHSAZUBOgHgAacBS9IAAfACpQH/AuEB/gLeAfoC1gH0As0B7wLEAekCvAHi + ArIB2wKpAdkCpgHaAqcB1gKjAc8CnAHJApYBwgKPAbsCiAG0AoEBrgJ7AaUCcgGYAmUBiwJYAX4CSwFz + AkABdAIwPwAB6QHgAdMC4wHdAuQB3gLkAd8C5QHgAucB4QLoAeIC6QHjAuoB5ALrAeUC7AHmAdMBnQFS + AfsBwwFl0gAB8AKpAf8C4AH+At0B+gLVAfQCygHvAsEB6AK5Ad8CrQHYAqMB1gKgAdgCowHTAqABzAKY + AcYCkgG/AosBuAKFAbECfgGsAnkBpAJxAZcCZAGLAlgBfgJLAXMCQAF0AjFCAAHoAd8BygLpAeQC6wHl + AuwB5gLsAecC7QHoAu8B6QLwAeoC8QHrAvEB7AHyAfUB9gH/AckBbAHNAcABvM8AAfUCqgH/At8B/wLo + Af8C7QH9Au8B/QLrAf4C5gH+AuQB/ALfAfwC2gH6AtYB9wLRAfMCygHuAsIB5wK5AeACrwHUAqQBxgKT + AbQCgQGjAnABlgJjAYUCUgFuAjsBdQI1QgAB9AG2AVQC8AHqAvEB6wLxAewC8QHsAvEB7ALxAewC8QHs + AvEB7ALxAewC8QHsAe0BxgGF0gAB9AKmA/8B/gLrAfoC0gH3AsMB9AK9AfICvAHwAroB7gK4AeoCtQHo + ArMB5wKyAeUCsQHjArAB4AKtAd4CqwHeAqoB3QKqAd4CqwHZAqYBzgKbAbUCggGYAmUBdQI1QgAB9AHw + AekB3wHgAd4C5gHhAuwB5wLxAewC8QHsAvEB7ALxAewC8QHsAvEB7ALxAewD+tIAAegCZwH9AtQB+wLG + AfwCxwH5AsYB9wLEAfUCwgHxAr4B7wK8Ae0CugHrArgB6AK1AeYCswHkArEB4wKwAeECrgHgAq0B3wKs + AdwCqQHdAqoB3wKsAdsCqAGJAlYBmAIqRQAB3AHaAdkC0QHMAtcB0gLdAdkC4wHfAukB5ALtAegC7AHn + AuoB5QLoA+MB4NUAAeACRAHzApwB9QK+AfACvQHxAr4B8AK9AfECvAHwArwB7wK7Ae0CuQHtAroB6wK4 + AegCtQHlArEB4AKtAdwCqQHSAp8BxwKUAbgChQGlAnMBnwJRAbcCKQHRAgFIAAK3AbICvAG3AsEBvALF + Ab8CygHEAs8ByQLTAc0C1gHRAtoB1ALcAdfbAAHWAgwB2QIxAdwCUAHdAmQB2gJ1AdkCgAHWAoUB0gKI + Ac0CiAHLAoQBxwJ+AcACcQG+AmYBugJYAbsCSAG8AjgBwQIkAc4CD1EAApwBlgKhAZsCpgGgAqwBpQKx + AasCtgGwAr8BuQLbAdgD9/8AZgACrAGpA/j/AP8A/wD/AKsAA4BIwEUAAckCDQGeAjABfgJGAXECWAF0 + AlgBfQJGAZ4CLwHJAgp7AAO5A3lXAAOARf8DwB4AAb8BKgEyASYBbgGaATIBaAGQAW8BTAFkAa8BKgE0 + AdQCBg8AAdICAQGqAjoBfgFzAXUBjQGQAZMBnQGfAaMBrAGkAaABqQGiAZwBkQGVAZgBfQGAAYQBbwFo + AWoBpwE1ATYB0nQAA7cFcQGOAaIBiAGgVAADgEX/A8AeAAFiAVYBeAEMAa4B2wEAAXMBpgEAAZsBzQEA + AXUBqwEMAWYBmQJdAX8BoAE8AUsB0gESARMDAAHSAgEBnQJKAZIBkQGTAbYBsgGvAesBzAGnAf8B3gGp + Af8B4QGwAf8B4gGwAf8B3QGnAeYBwwGeAZ8BmwGYAXgBewF9AZgCSAHScQADtAFMAX8BuQFWAWwBrwF/ + AXoBpQGkAYkBnlEAA4BF/wPAHgABMAFwAZwBKgHZAf8BBAF6Aa0BFAHPAfwBFAHfAf8BDgHOAf4BBAGp + AdkBAAGAAbUBBAFqAZ4BggGWAa8BsAGRAZYBnQGYAZwBzAG/AbEB/wHiAa4B/wHjAbYB/wHjAbsB/wHi + AbsB/wHkAcAB/wHoAcsB/wHmAcAB/wHdAagBtQGmAZgBdwF7AX0BqQI2BwABgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgA0AAasB1wHyAVABtgH/ + ATsBjgHqAVYBbAGvAYEBewGlAasBkAGjTgADgEX/A8AbAAHPASABIgEAAWkBoQFGAfgB/wEDAXkBrAEd + AcsB9AEhAdkB/wEcAdcB/wEaAdoB/wEXAd0B/wElAdwB/wGNAdAB4wGbAYkBjAHHAcMBvgH/AeMBsQH/ + AeQBuAH/AeIBtwH/AeIBtwH/AeEBtgH/AeABtQH/Ad8BsAH/AeUBwgH/AeoBygH/Ad4BqQGkAZ4BlwFu + AWcBagHJAgoEAAGAAQADgAPAA/8DgAzAA/8DgAzAA/8DgAzAA/8DgAzAA/8DwAOAAQABgA0AAfIB+AH+ + AXkBzAH9AVABtgH/ATwBiwHmAVYBbAGvAYEBewGlAa8BkQGiSwADgEX/A8AbAAGOAUABVQEOAZABvgFV + AfgB/wEGAX0BrgEmAc0B8wErAdwB/wEnAdgB/wElAdcB/wEiAdgB/wFeAeMB/wGTAa0BtQG0AbIBuAH4 + AdgBsgH/AecBvAH/AecBvAH/AeYBvQH/AegBvQH/AewBwQH/AesBwAH/AeQBuQH/AeABsgH/AeQBwgH/ + AegBxQHwAckBoAF9AYEBhQGeAi8EAAGAAQADwAP/A8AD/wEAAYACAAGAAgABgAEAA/8DwAP/AQABgAIA + AYACAAGAAQAD/wPAA/8BAAGAAgABgAIAAYABAAP/A8AD/wEAAYACAAGAAgABgAEAA/8DwAP/A8ABAAGA + BQABgAIAAYACAAGAAgABgAEAAfQB+gH+AX4B0QH9AVABtgH/ATwBiwHmAVYBbAGvAYEBewGlAa8BkQGi + AQABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGA + AgABgAIAAYACAAGAAgABgAIAAYANAAOARf8DwBsAAU4BYQGIATcBwQHiAV8B+AH/AQYBfgGvATUB0QHy + ATYB4AH/ATMB3AH/ATAB2wH/AS0B2gH/AYUB6QH/AZkBkQGUAc8B0QHPAf8B5QG2Af8B6gHBAf8B6QHB + Af8B6wHDAf8B9gHLAbsBqwGQAbcBpQGKAf8B7AHAAf8B5gG6Af8B4AGyAf8B6gHNAf8B4gGtAZwCmgF9 + AkgEAAGAAgABgAIAAYABAEvAAQABgAIAAYACAAGABQABgAEAA4ADwAP/A4AB9AH6Af4BfgHRAf0BTQGz + Af8BPAGLAeYBVgFsAa8BgQF7AaUBrwGRAaIJwAP/A4AMwAP/A4AMwAP/A8ADgAEAAYANAAOARf8DwBgA + AdMCDAEHAWUBmwFoAfIB/wFrAfoB/wEFAX8BsAFEAdUB9AFAAeQB/wE+AeAB/wE7Ad8B/wE4Ad4B/wGa + Ae4B/wGjAZEBlAHiAdcByQH/AfIBzwH/AfMB2gH/Ae4BxgH/AfQBzAHjAdUBsgFVAVgBYAFIAU0BUwHP + Ab0BmwH/Ae4BxAH/AeIBtwH/AeUBwwH/AecBuQG3AasBnQFzAWoBbAQAAYABAAOAA/8DwEX/A8AD/wOA + AQABgAUAAYABAAPAA/8DwAP/AQABgAIAAYABAAF5AcIB6AFNAbMB/wE8AYUB3wFXAWoBqwF9AXkBpQHe + Ac4BygEAAYABAAP/AfMB2gHHAegBygG4AfEB0gHAAfEB0QG9AfsB3wHFA/8DwAP/AQABgAIAAYACAAGA + AQAD/wPAA/8DwAEAAYANAAOARf8DwBgAAaUBOwFKAQgBgwGyAXwB/gH/AXcB/AH/AQUBgAGxAVMB2AHz + AU0B5wH/AUkB4wH/AUYB4gH/AUMB4gH/AZ8B7wH/AaoBlAGWAekB3AHOAf8B9AHTAf8B9wHfAf8B9gHV + Av8B2wGQAYsBeAFTAVUBWgFDAUUBSgF1AW4BXwHoAdQBrgH/AekBvQH/AeYBvwH/AegCvAGuAaEBagFs + AW8EAAGAAQAD/wbADP8BAA7/AQAL/wEAEf8BAAv/BsAD/wEAAYAFAAGAAgABgAIAAYABAA/AAXoBzAH4 + AUgBrgH/AT4BggHbAXQBggGdAbkBtAGvAd0BxwG+AcUBmwGTAcQBmgGHAdYBswGXAdYBswGXAdYBswGX + AdMBsAGgAdMBqAGeAfoB2xPAAQABgAIAAYACAAGADQADgEX/A8AYAAFYAVoBfAFGAb0B2QGEAfwB/wGD + Av8BBQGCAbIBYAHdAfMBVwHrAf8BVAHnAf8BUQHmAf8BTgHlAf8BmAHwAf8BqAGXAZoB6gHoAeQB/wHv + AckB/wH6AegC/wHqAbQBrwGXAQYBCAEQAcABuAGeAdcBywGtARIBFQEbAWcBYAFWAfAB2QGxAf8B5wHB + Af8B5QG2AawBqAGkAWsBdgF8BAABgAEAA8AD/wPACf8BgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACABL/A8AD/wPAAQABgAUAAYABAAOAA/8DwA//AX0BzgH7 + AaQByAHkA5sBoAKNAdEBogGPAfoB1gGpAf8B8AHCAf8B/AHQAv8B2QL/AdYC/wHbAfIB6AHJAcIBmQGQ + Ae8BzQG2DP8DwAP/A4ABAAGADQADgEX/A8AVAAHVAgoBCwFmAZsBjAH5Af0BjAH8Af8BkQL/AQYBhAG0 + AW0B3wHzAWIB7wH/AV8B6wH/AVwB6gH/AVkB6QH/AYcB7gH/AasBsgG4AdwB2QHeAf8B5gG/Av8B9AHK + AcgBtgEGAQcBDgGyAa4BmQL/AeIC/wHZAe0B3gG8AR4BIQEkAfEB2wG0Af8B6gHDAfsB2AGsAY8BkwGX + AXcBjgGaBAABgAEAA8ABAAGAAQADwAP/AQAR/wEADv8BAA7/AQAL/wEABf8DwAEAAYABAAPAAQABgAUA + AYABAAP/BsAM/wEABv8B9AHqAbUBpQGkAdUBogGPAf8B5QG5Af8B+gHLAf8B/AHJAv8B0wL/AdsC/wHk + Av8B6AH/AfwBzgH6AfcB8AG7AZEBiQH5AdoBvwn/BsAD/wEAAYANAAOARf8DwBUAAasBNAFAAQYBgAGw + AasC/wGWAf4B/wGeAv8BBQGFAbUBewHkAfUBbwHzAf8BawHvAf8BZwHuAf8BZAHsAf8BbgHtAf8BtAHl + Ae4BwgGmAacB/wH2AekC/wHcARwBHwEkApEBiAL/AfMB/wH7AdkB/wH0Ac8B/wH3Ac8B/wH4Ac4B/wHv + AcQB/wHqAbgBxQG7AbABfQF7AX0BgwGwAcYEAAGAAQADwAEAAYABAAPACf8BgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgAY/wPAAQABgAEAA8ABAAGABQABgAEAA8AD/wPA + Cf8BgAIAAYACAAGAAgABgAIAAdEBogGYAZcBSwEAAZcBSwEAAZcBSwEAAZcBSwEAAZcBSwEAAZcBSwEA + AZcBSwEAAZcBSwEAAZcBSwEAAf8B/AHOAegB2wG/AcoBoQGVCf8DwAP/A8ABAAGADQADgEX/A8AVAAFd + AVoBegFUAb0B1gGuAv8BnwH+Af8BqgL/AQYBiAG2AYYB5wH0AXkB9wH/AXYB8gH/AXIB8QH/AW4B8AH/ + AWsB7wH/AZoB8wH/AbwBvgHCAd4B1AHYAf8B+gHhAfkB7gHLAv8B+wL/AesB/wH5AeEB/wH2AdoB/wHx + AdIB/wHuAcQB/wHrAbsB3QHIAbMBlAGTAZcBqwG5AboBSwGXAbsEAAGAAQADwAEAAYABAAPADP8BAA7/ + AQAL/wEAEf8BAAv/A8ABAAGAAQADwAEAAYAFAAGAAQADwAEAAYABAAPAA/8BAA7/AekB0QHNAegBvwGf + Af8B+AHLAf8B4wGwAf8B5QGzAv8BzAL/AdkC/wHlAv8B8gX/AfkC/wHoAv8B1wG2AY4BggP/AQAF/wPA + AQABgAEAA8ABAAGADQADgEX/A8ASAAHUAgcBDQFjAZ0BqAL8Aa4C/wGmAv8BswL/AQYBiAG6AZMB6gH0 + AYQB+gH/AYEB9gH/AX0B9QH/AXkB9AH/AXUB8gH/AXMB8QH/AbIB9QH9AbQBpwGpAd8B1wHaAf8B/AHu + Af8B6wHDAf8B9gHSAf8B+gHaAf8B9wHXAf8B8QHJAf4B4QG2AdUBywG/AaEBmwGfAZ0BngGfAdIC/gEB + AWwBoQQAAYABAAOAA/8DwC3/AYACABX/A8AD/wOAAQABgAUAAYABAAPAAQABgAEAA8AJ/wGAAgABgAIA + AYACAAHdAbsBuQGXAUsBAAGXAUsBAAGXAUsBAAGXAUsBAAGXAUsBAAGXAUsBAAGXAUsBAAL/AfAC/wH0 + Av8B8AL/AeQC/wHTAcwBswGZAeYBxQGxBv8DwAEAAYABAAPAAQABgA0AA4BF/wPAEgABpgEzAUEBCgGB + AbABywL/AbMC/wGtAv8BugL/AQIBhwG5AZ8B7wH3AZAB/gH/AYsB+gH/AYcB+AH/AYQB9wH/AYAB9gH/ + AXwB9QH/AXoB8wH/AbUB9gH9Ar8BwgHDAagBqQHiAd8B5AHyAe4B5gHwAeMB0gHrAd4BzQHbAdYBzwG6 + AbcBvQGaAYsBjgGuAbgBuwHSAfsB/QG3Av8BAAFsAaEEAAGAAQAD/wbAA/8BABT/AYACAAb/AQAL/wGA + AgAP/wEABf8GwAP/AQABgAUAAYABAAPAAQABgAEAA8AM/wEABf8B1gGvAa4B/wHsAbkB/wH5AcYB/wHX + AaQB/wHhAa4B/wH3AcQC/wHTAv8B3gL/AeQC/wHoAv8B5AL/Ad4C/wHPAdkBxAGkAeYBxwG0Bv8DwAEA + AYABAAPAAQABgA0AA4BF/wPAEgACWQF7AWYBwQHYAckC/wG5Av8BtAL/AcIC/wEAAYYBuQGuAfMB+AGa + Av8BlQH9Af8BkwH8Af8BjgH8Af8BigH5Af8BhwH4Af8BgQH4Af8BfwH1Af8BpgH4Af8BvwHqAe8BsQG0 + AbgBqwGWAZkBqwGVAZcBpgGTAZUBnQGTAZQBowGxAbUBrwHdAeUBzAH+Af8BtAL/AbwC/wEAAW8BpAQA + AYABAAPAA/8DwAb/A8ABAAKAAQACgAPAA/8BgAIABv8BgAIAAYACAAb/AYACAAP/AYACAAP/AYACAAP/ + AYACAAGAAgAD/wPAA/8DwAEAAYAFAAGAAQADgAP/A8AS/wHWAq8B/wHwAb0B/wH5AcYB/wHZAagB/wHq + AboB/wHyAcAC/wHMAv8B0wL/AdkC/wHcAv8B2gL/AdMB/wH9AcoB0gGyAZYB5gHHAbUG/wPAA/8DgAEA + AYANAAOARf8DwA8AAdMCCwEMAWIBnAHGAfwB/QHKAv8BwQL/AbsC/wHJAv8BAAGHAboBtQHyAfcBoAL/ + AZ0B/gH/AZsB/QH/AZYB/AH/AZIB+wH/AY0B+QH/AYkB+AH/AYUB9wH/AYEB9wH/AYgB9QH/AaAB9wH/ + AbEB+AH/AbcB+AH/AbUB9wH/AaoB9gH/AZMB7QH5AY0B6AHxAcAC/wG7Av8BwwL/AQEBbwGkBAABgAEA + A8ABAAGAAQADwAP/A8ABAAWAAQACgAEAAoADwAP/AYACAAGAAgABgAIAA/8BgAIAAYACAAP/AYACAAP/ + AQAC/wGAAgABgAIAAYACAAb/A8ABAAGAAQADwAEAAYAFAAGAAQAD/wbAA/8BAA7/AeMByAHHAfQB3wG5 + Af8B/AHOAf8B8QHOAf8B1wGnAZcBSwEAAf8B9wHEAf8B+QHGAZcBSwEAAv8BzwL/Ac0BlwFLAQAB/wHy + AcABxgGdAYcB7AHRAb8BAAX/BsAD/wEAAYANAAOARf8DwA8AAZ8BLgE8ARUBhwG1AekC/wHOAv8ByQL/ + AcMC/wHQAv8BAAGJAbsBvAHzAfcBpwL/AaQC/wGiAf4B/wGcAf0B/wGYAfsB/wGUAfoB/wGQAfkB/wGM + AfcB/wGIAfYB/wGDAfUB/wF/AfMB/wF7AfIB/wF3AfEB/wFyAfAB/wFvAfAB/wFmAdkB7AG1AfoB/QHB + Av8BwAL/AcgC/wEAAXABpgQAAYABAAPAAQABgAEAA8AD/wEABYABAAWAAQACgAEAAoAD/wGAAgAV/wGA + AgABgAIAD/8DwAEAAYABAAPAAQABgAUAAYABAAPAA/8DwAb/A8ABAAKAAQACgAPAAfAC5AHhAcEBpwH/ + AfwB3wH/AfwBzgH/AfwBzgH/AdwBsQGXAUsBAAH/AegBtQH/AecBtQGXAUsBAAH/AecBtQH/AfYBwwGA + AUABAAG2AYkCgAIAAYACAAP/A8AD/wPAAQABgA0AA4BF/wPADwABUQFZAXkBlgHTAeUB+wL/AegC/wHe + Av8B0wL/AdwC/wEBAYwBvgHCAfMB9wGwAv8BqgL/AacB/gH/AaMB/QH/AZ8B/AH/AZsB+gH/AZcB+QH/ + AZIB+AH/AY4B9gH/AYoB9QH/AYYB9AH/AYIB8wH/AX0B8QH/AXkB8QH/AXIB6gH7AYAB4gHuAc0C/wHD + Av8BwwL/Ac4C/wEAAXIBpQQAAYABAAPAAQABgAEAA8ABAAL/A4ABAAWAAQAFgAEAAoAM/wEAC/8BgAIA + A/8BgAIAAYACAAP/AQAI/wPAAQABgAEAA8ABAAGABQABgAEAA8ABAAGAAQADwAP/A8ABAAWAAQACgAEA + AoADwAHVAbEBrgH7AfIB1AGXAUsBAAGXAUsBAAGXAUsBAAH/AesBwAGXAUsBAAGXAUsBAAH/AdwBqQGX + AUsBAAH/Ae0BugHXAakBjQHdAb4BswGAAgAG/wPAAQABgAEAA8ABAAGADQADgEX/A8APAAEQAXMBoQEO + AYIBsgEvAZcBvgFKAakBywFmAb0B1wF+Ac4B4QGjAekB8gEAAYsBvgHJAfYB+QG9Av8BtgL/AbMC/wGv + Av8BqgL/AaQB/gH/AZ8B+gH/AZoB+QH/AZYB+AH/AZAB9QH/AYwB9AH/AYgB8wH/AYQB8QH/AX8B8gH/ + AXQB4AHxAbIB9AH5AcwC/wHIAv8ByAL/AdIC/wEAAXEBpwQAAYABAAOAA/8DwAP/A8ADgAEABYABAAKA + A8Aw/wPAA/8DgAEAAYAFAAGAAQADwAEAAYABAAPAA/8BAAWAAQAFgAEAAoABAAKAAfQC6gHMAaQBnAH/ + AfwBzgH/AfwBzgH/AfwBzgGXAUsBAAH/AewBuQGXAUsBAAH/AfsBygH/AeYBswHgAa0BjQHIAaMBnQz/ + A8ABAAGAAQADwAEAAYANAAOARf8DwA8AAc8BFQEZAboBLAE1AaIBOgFJAYoBRgFbAXIBVgFxAVgBYgGE + AUMBcAGXAQQBfgG3AbIB5AHvAYYB2QHqAXsB1wHpAYIB3QHsAYkB4wHwAY8B5wHzAZIB7AH2AZUB7wH4 + AZcB8wH6AZgB9AH9AZcB+AH/AZUB9wH/AZAB9gH/AYwB9QH/AYUB8AH/AYEB3gHtAdcC/wHOAv8BzQL/ + Ac8C/wHYAv8BAAFzAacEAAGAAQAD/wbABv8DwAOAAQACgAPABv8BAA7/AQAL/wEADv8BAAL/BsAD/wEA + AYAFAAGAAQADwAEAAYABAAPAAQAC/wOAAQAFgAEABYABAAKAA/8B8gLoAcYBngGXAeABxAGlAf8B9wHL + Af8B9gHGAf8B8gHAAf8B8AHAAfcB2gGwAdwBrwGWAcwBpwGjAYACAAP/AQAI/wPAAQABgAEAA8ABAAGA + DQADgEX/A8AkAAEdAZQByAHhAfoB/AHmAv8B2AL/Ac4B+gH8AcMB9gH5AbgB8QH3Aa0B7QH2AaMB6AHz + AZkB5QHxAY4B4AHwAYQB3QHtAX0B2wHuAX8B3gHwAYEB4QHyAXsB3wHwAa8B8AH3AdcC/wHSAv8B0gL/ + AdQC/wHeAv8BAAFzAagEAAGAAQADwAP/A8BF/wPAA/8DwAEAAYAFAAGAAQADgAP/A8AD/wPAA4ABAAWA + AQACgAPABv8B+gL3AdoCxAG/AZoBlwG6AZABhAHUAasBngHVAaoBoAHYAbUBsgHtAdkB0hL/A8AD/wOA + AQABgA0AA4BF/wPAJAABEwGVAcsB4wH7Af0B5QL/AdsC/wHcAv8B3gL/Ad0C/wHfAv8B4AL/AeIC/wHi + Av8B4wL/AeIC/wHZAf4B/wHOAfoB+wHCAfUB+gHbAv8B2gL/AdgC/wHXAv8B2QL/Ad0C/wEEAXYBqgQA + AYABAAOAAQABgAEAS8ABAAGAAQADgAEAAYAFAAGAAQAD/wbABv8DwAOAAQACgAPABv8BAA7/AQAL/wEA + Dv8BAAL/BsAD/wEAAYANAAOAM/8DgDYAARIBlwHNAfUC/wH+Av8B9AL/AfEC/wHvAv8B6wL/AegC/wHm + Av8B4gL/AeAC/wHfAv8B3gL/Ad0C/wHfAv8B4AL/Ad4C/wHcAv8B3AL/AdwC/wHfAv8B4QL/AQMBdwGq + BAABgAIAAYABAAPAA/8DwAP/AQABgAIAAYACAAGAAQAD/wPAA/8BAAGAAgABgAIAAYABAAP/A8AD/wEA + AYACAAGAAgABgAEAA/8DwAP/AQABgAIAAYACAAGAAQAG/wPAAQABgAUAAYABAAPAA/8DwEX/A8AD/wPA + AQABgA0AA4Az/wOACf8DwAOAJwABGAGdAc4BbQHDAd8BhQHMAeQBkAHSAecBngHYAeoBrAHeAe0BugHk + AfABxwHqAfMB1QHxAfcB4QH3AfoB7gL+AfoF/wH6Av8B5QL/AeMC/wHiAv8B4gL/AeIC/wHhAv8B5AL/ + AegC/wEDAXcBrAQAAYACAAGAAQADgAPAA/8DgAzAA/8DgAzAA/8DgAzAA/8DgAzAA4ABAAGAAgABgAUA + AYABAAOAAQABgAEAS8ABAAGAAQADgAEAAYANAAOAM/8DgAb/A8ADgCoAAZ0BUwFjAXYBZAGAAWMBXAF7 + AWABcgGSAUwBaAGNAUsBfQGjATkBdQGgATIBggGxASUBgAGyARoBiAG9AREBgwG6AQkBdgGuAQABcQGt + AZoB0gHlAfQC/wHoAv8B6AL/AecC/wHnAv8B5wL/AeoC/wHwAv8BAwF4AawEAAGAAgABgAIAAYACAAGA + AgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGA + AgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGABQABgAIAAYABAAPA + A/8DwAP/AQABgAIAAYACAAGAAQAD/wPAA/8BAAGAAgABgAIAAYABAAP/A8AD/wEAAYACAAGAAgABgAEA + A/8DwAP/AQABgAIAAYACAAGAAQAG/wPAAQABgA0AA4Az/wOAA/8DwAOATgAB0wIBAYwBPQFOAUIBpQHL + A/8B7QL/Ae4C/wHuAv8B7gL/AewC/wH3Av8BuAHhAewBKgFkAYxkAAGAAgABgAEAA4ADwAP/A4AMwAP/ + A4AMwAP/A4AMwAP/A4AMwAOAAQABgAIAAYANAAOAM/8DgAPAA4BUAAHPAh0BAAGDAboV/wFdAawBzQF2 + AUYBXmQAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGA + AgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGA + AgABgAIAAYANAAOAM/8GgFoAAUsBgwGqAQQBhgG4AQABfgG0AQABfQGxAQABewGwAQABeQGuAQABeAGt + AQABdwGsAQEBdgGoAb8BJAEqzAADgDP/A4D/AEgAOYD/AP8ABgAkgL4AAUsBlwFmAcwB/wFmAcwB/wFm + AcwB/wFmAcwB/wFmAcwB/wFmAcwB/wFmAcwB/wFmAcwB/wFmAcwB/wFmAcwB/wFmAcwB/wFmAcwB/wFm + AcwB/wFmAcwB/wFmAcwB/wFmAcwB/wFmAcwB/2kAA4AD/wEAAv8DwAEAAv8DwAEAAv8DwAEAAv8DwAEA + Av8DgD8AS/80AAFLAZcBzAL/AaYBygHwAZkC/wGmAcoB8AGZAv8BpgHKAfABmQL/AaYBygHwAZkC/wGm + AcoB8AGZAv8BpgHKAfABmQL/AaYBygHwAaYBygHwAaYBygHwAWYBzAH/RwAB/wIAAf8CAAH/AgAB/wIA + Af8SAAOAA/8BAAL/A8ABAAL/A8ABAAL/A8ABAAL/A8ABAAL/A8ADAAOAPABL/zQAAUsBlwHMAv8BmQL/ + AZkC/wGZAv8BpgHKAfABmQL/AaYBygHwAZkC/wGmAcoB8AGZAv8BpgHKAfABmQL/AaYBygHwAZkC/wGm + AcoB8AGmAcoB8AFmAcwB/0EAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wwAA4AD/wPA + AQAC/wPAAQAC/wPAAQAC/wPAAQAC/wPAA4ADAAOAPAAJ/wMAD/8DAA//AwAP/wMACf80AAFLAZcBzAL/ + AZkC/wGmAcoB8AGZAv8BmQL/AaYBygHwAZkC/wGmAcoB8AGZAv8BpgHKAfABmQL/AaYBygHwAZkC/wGm + AcoB8AGZAv8BpgHKAfABZgHMAf8+AAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/ + AgAB/wYAA4AD/wPAAQAC/wPAAQAC/wPAAQAC/wPAAQAC/wPAAQAC/wMABoA8AAb/CQAJ/wkACf8JAAn/ + CQAG/zQAAUsBlwHMAv8DOwGZAv8BmQL/AaYBygHwAZkC/wGmAcoB8AGZAv8BpgHKAfABmQL/AaYBygHw + AZkC/wGmAcoB8AGZAv8BpgHKAfABmQL/AWYBzAH/OwAB/wIAAf8CAAT/AgAB/wIAAf8CAAH/AgAB/wIA + BP8CAAH/AgAB/wIAAf8DAAOAHv8DgAMAA8ADgDwAA/8PAAP/DwAD/w8AA/8PAAP/IQAYOwIAAf8DOwGZ + Av8BmQL/AZkC/wGZAv8BpgHKAfABmQL/AaYBygHwAZkC/wGmAcoB8AGZAv8BpgHKAfABmQL/AaYBygHw + AWYBzAH/OwAB/wIACv8CAAH/AgAB/wIACv8CAAH/AgAB/wMAJ4ABAAL/A4A8AAb/CQAJ/wkACf8JAAn/ + CQAG/x4AAzsCAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AzsBmQL/AaYBygHw + AZkC/wGZAv8BpgHKAfABmQL/AaYBygHwAZkC/wGmAcoB8AGZAv8BpgHKAfABmQL/AWYBzAH/BAABgAIA + AYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIA + AYADAAH/AgAB/wIAAf8CAAr/AgAK/wIAAf8CAAH/AgAB/wIAAf8DAAOAA/8DwAEAAv8DwAEAAv8DwAEA + Av8DwAEAAv8DwAEAAv8DwAOANAABgAIAAYAEAAn/AwAP/wMAD/8DAA//AwAJ/wQAAYACAAGAEwADOwIA + Af8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wGmAcoB8AGZAv8BmQL/ + AaYBygHwAZkC/wGmAcoB8AGZAv8BpgHKAfABmQL/AaYBygHwAZkC/wGmAcoB8AFmAcwB/wQAAYABAAOA + A8AD/wOADMAD/wOADMAD/wOAAgAB/wIAAf8CAAH/AgAB/wIAEP8CAAH/AgAB/wIAAf8CAAH/AgAB/wMA + A4AD/wEAAv8DwAEAAv8DwAEAAv8DwA//A4A0AAGAAQADgAMAS/8DAAOAAQABgBUAAf8CAAH/AgAB/wIA + Af8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wGZAv8BmQL/AZkC/wGZAv8BmQL/AZkC/wGZ + Av8BpgHKAfABmQL/AaYBygHwAZkC/wGmAcoB8AGZAv8BZgHMAf8EAAGAAQADwAP/A8AD/wEAAYACAAGA + AgABgAEAA/8DwAP/AQABgAIAAYACAAGAAQAD/wPAA/8CAAH/AgAB/wIAAf8CAAH/AgAB/wIACv8CAAH/ + AgAB/wIAAf8CAAH/AgAB/wIAAf8DAAOAA/8DwAEAAv8DwAEAAv8DwAP/EoA0AAGAAQADwAMAS/8DAAPA + AQABgBUAAf8CAAH/AgAB/xAAAUsBlwHMAv8CAAH/AZkC/wGZAv8BmQL/AaYBygHwAZkC/wGZAv8BmQL/ + AaYBygHwAZkC/wGmAcoB8AGZAv8BpgHKAfABmQL/AaYBygHwAWYBzAH/BAABgAIAAYACAAGAAQAqwAIA + Af8CAAH/AgAB/wIAAf8CABD/AgAB/wIAAf8CAAH/AgAB/wIAAf8GAAOAD/8DgEYAAYACAAGAUwABgAIA + AYAVAAH/AgAB/xMAAUsBlwHMAv8BmQL/AZkC/wGZAv8BmQL/AZkC/wGZAv8BpgHKAfABmQL/AZkC/wGZ + Av8BmQL/AaYBygHwAZkC/wGmAcoB8AGZAv8BZgHMAf8EAAGAAQADgAP/A8An/wIAAf8CAAH/AgAB/wIA + Cv8CAAr/AgAB/wIAAf8CAAH/AgAB/wkAD4BJAAGAAQADgAP/A8BF/wPAA/8DgAEAAYAVAAH/FgABSwGX + AcwC/wHMAv8BzAL/AcwC/wHMAv8BzAL/AcwC/wHMAv8BzAL/AcwC/wHMAv8BzAL/AcwC/wHMAv8BzAL/ + AZkC/wFmAcwB/wQAAYABAAP/BsAM/wEADv8BAA7/AgAB/wIACv8CAAH/AgAB/wIACv8CAAH/AgAB/2QA + AYABAAP/BsAM/wEADv8BAAv/AQAR/wEAC/8GwAP/AQABgBUAAf8WAAFLAZcBZgHMAf8BZgHMAf8BZgHM + Af8BZgHMAf8BZgHMAf8BZgHMAf8BZgHMAf8BZgHMAf8BZgHMAf8BAAFLAZcBAAFLAZcBAAFLAZcBAAFL + AZcBAAFLAZcBAAFLAZcBAAFLAZcBAAFLAZcEAAGAAQADwAP/A8AJ/wGAAgABgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgAIAAYACAAGAAgABgAQAAf8CAAH/AgAE/wIAAf8CAAH/AgAB/wIAAf8CAAT/AgAB/wIA + Af8CAAH/ZAABgAEAA8AD/wPACf8BgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgAIAAYACABL/A8AD/wPAAQABgBAAAwQCAAH/AwQGAAMEDQABSwGXAcwC/wHMAv8BzAL/ + AcwC/wHMAv8BzAL/AZkC/wEAAUsBlxwAAYABAAPAAQABgAEAA8AD/wEAEf8BAA7/AQAI/wIAAf8CAAH/ + AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AQABgBUAAf9PAAGAAQADwAEAAYABAAPA + A/8BABH/AQAO/wEADv8BAAv/AQAF/wPAAQABgAEAA8ABAAGABQABgAIAAYACAAGAAgABgAIAAYACAAGA + AgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABSwGXAQABSwGXAQABSwGXAQABSwGX + AQABSwGXAQABSwGXAQABSwGXAQABSwGXAQABgAIAAYAXAAGAAQADwAEAAYABAAPACf8BgAIAAYACAAGA + AgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIACf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/ + AgAB/wIAAf8DwAEAAYASAAH/AgAB/wIAAf9MAAGAAQADwAEAAYABAAPACf8BgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgAY/wPAAQABgAEAA8ABAAGABQABgAEAA4ADwAOA + CcAD/wOACcAD/wOACcAD/wOADMADgAEAAYAXAAGAAQADwAEAAYABAAPADP8BAA7/AQAL/wEADv8CAAH/ + AgAB/wIAAf8CAAH/AgAB/wPAAQABgAEAA8ABAAGADwAB/wIAAf8CAAH/AgAB/wIAAf9JAAGAAQADwAEA + AYABAAPADP8BAA7/AQAL/wEAEf8BAAv/A8ABAAGAAQADwAEAAYAFAAGAAgABgAIAAYABADnAAQABgAIA + AYACAAGAFwABgAEAA4AD/wPALf8BgAIAFf8DwAP/A4ABAAGAZQABgAEAA4AD/wPALf8BgAIAFf8DwAP/ + A4ABAAGABQABgAEAA4A//wOAAQABgBcAAYABAAP/BsAD/wEAFP8BgAIABv8BAAv/AYACAAz/AQAI/wbA + A/8BAAGAZQABgAEAA/8GwAP/AQAU/wGAAgAG/wEAC/8BgAIAD/8BAAX/BsAD/wEAAYAFAAGAAQADwAz/ + AYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgAS/wPAAQABgBcAAYABAAPA + A/8DwAb/A8ABAAKAAQACgAPAA/8BgAIABv8BgAIAAYACAAb/AYACAAP/AYACAAP/AYACAAP/AYACAAGA + AgAD/wPAA/8DwAEAAYAVAAH/TwABgAEAA8AD/wPABv8DwAEAAoABAAKAA8AD/wGAAgAG/wGAAgABgAIA + Bv8BgAIAA/8BgAIAA/8BgAIAA/8BgAIAAYACAAP/A8AD/wPAAQABgAUAAYABAAPAAQABgAEAA/8BAA7/ + AQAL/wEAC/8BAAj/AQAF/wEAAYABAAPAAQABgBcAAYABAAPAAQABgAEAA8AD/wPAAQAFgAEAAoABAAKA + A8AD/wGAAgABgAIAAYACAAP/AYACAAGAAgAD/wGAAgAD/wEAAv8BgAIAAYACAAGAAgAG/wPAAQABgAEA + A8ABAAGAEgAB/wIAAf8CAAH/JwAhgAQAAYABAAPAAQABgAEAA8AD/wPAAQAFgAEAAoABAAKAA8AD/wGA + AgABgAIAAYACAAP/AYACAAGAAgAD/wGAAgAD/wEAAv8BgAIAAYACAAGAAgAG/wPAAQABgAEAA8ABAAGA + BQABgAEAA8ABAAGAAQAJ/wGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgAD/wEAF/8BAAGAAQADwAEA + AYAXAAGAAQADwAEAAYABAAPAA/8BAAWAAQAFgAEAAoABAAKAA/8BgAIAFf8BgAIAAYACAA//A8ABAAGA + AQADwAEAAYAPAAH/AgAB/wIAAf8CAAH/AgAB/yQAA4AD/wzACQAD/wOABAABgAEAA8ABAAGAAQADwAP/ + AQAFgAEABYABAAKAAQACgAP/AYACABX/AYACAAGAAgAP/wPAAQABgAEAA8ABAAGABQABgAEAA4AP/wEA + Gv8BABT/A4ABAAGAFwABgAEAA8ABAAGAAQADwAEAAv8DgAEABYABAAWAAQACgAz/AQAL/wGAAgAD/wGA + AgABgAIAA/8BAAj/A8ABAAGAAQADwAEAAYBAAAOAG/8DgAQAAYABAAPAAQABgAEAA8ABAAL/A4ABAAWA + AQAFgAEAAoAM/wEAC/8BgAIAA/8BgAIAAYACAAP/AQAI/wPAAQABgAEAA8ABAAGABQABgAEAA/8DwAP/ + AQAO/wGAAgAG/wEAF/8BAAX/A8AD/wEAAYAXAAGAAQADgAP/A8AD/wPAA4ABAAWAAQACgAPAMP8DwAP/ + A4ABAAGAQwAbgAcAAYABAAOAA/8DwAP/A8ADgAEABYABAAKAA8Aw/wPAA/8DgAEAAYAFAAGAAQADwAn/ + A8ABAAKAA8AJ/wGAAgABgAIABv8BgAIAAYACAAP/AYACAAGAAgABgAIABv8DwAEAAYAXAAGAAQAD/wbA + Bv8DwAOAAQACgAPABv8BAA7/AQAL/wEADv8BAAL/BsAD/wEAAYAVAAH/AgAB/wIAAf8CAAH/JAADgBXA + A4AHAAGAAQAD/wbABv8DwAOAAQACgAPABv8BAA7/AQAL/wEADv8BAAL/BsAD/wEAAYAFAAGAAQADwAEA + AYABAAP/A8ABAAKAAQACgAEAAoADwAGAAgABgAIAAYACAAP/AYACAAGAAgAG/wEAAv8BgAIAAYACAAb/ + AQABgAEAA8ABAAGAFwABgAEAA8AD/wPARf8DwAP/A8ABAAGAFQAB/wIAAf8CAAH/DgAB/w4AAf8JAAOA + A8ADgAL/AQAC/wEAAv8BAAL/AQADwAOABwABgAEAA8AD/wPARf8DwAP/A8ABAAGABQABgAEAA8ABAAGA + AgAC/wOAAQACgAEABYABAAKACf8BAA7/AYACAAGAAwAI/wEAAYABAAPAAQABgBcAAYABAAOAAQABgAEA + S8ABAAGAAQADgAEAAYAVAAH/AgAB/w4AAf8CAAH/CwAB/wIAAf8JAAOAA8ADgAL/AQAC/wEAAv8BAAL/ + AQADwAOABwABgAEAA4ABAAGAAQBLwAEAAYABAAOAAQABgAUAAYABAAOABv8DwAaAAQACgAPAKv8DgAEA + AYAXAAGAAgABgAEAA8AD/wPAA/8BAAGAAgABgAIAAYABAAP/A8AD/wEAAYACAAGAAgABgAEAA/8DwAP/ + AQABgAIAAYACAAGAAQAD/wPAA/8BAAGAAgABgAIAAYABAAb/A8ABAAGAFQAB/w4AAf8CAAH/AgAB/wgA + Af8CAAH/AgAB/wkAA4ADwAOAAv8BAAL/AQAC/wEAAv8BAAPAA4AHAAGAAgABgAEAA8AD/wPAA/8BAAGA + AgABgAIAAYABAAP/A8AD/wEAAYACAAGAAgABgAEAA/8DwAP/AQABgAIAAYACAAGAAQAD/wPAA/8BAAGA + AgABgAIAAYABAAb/A8ABAAGABQABgAEAA8A//wPAAQABgBcAAYACAAGAAQADgAPAA/8DgAzAA/8DgAzA + A/8DgAzAA/8DgAzAA4ABAAGAAgABgCcAAf8CAAH/CwAB/wIAAf8JAAOAA8APgAPAA4AHAAGAAgABgAEA + A4ADwAP/A4AMwAP/A4AMwAP/A4AMwAP/A4AMwAOAAQABgAIAAYAFAAGAAQADgAEAAYABADnAAQABgAEA + A4ABAAGAFwABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgCoAAf8OAAH/CQADgBXAA4AHAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGABQABgAIAAYABAAOAAwADgAnAAwAMwAMAA4AJwAMA + CcADgAEAAYACAAGAuAAYgGcAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGA + AgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYD/AP8A + vgAkgDwAJIBIAAEsAR0BtQEsAR0BtQEsAR0BtQEsAR0BtQEsAR0BtWYAAbgBiQFsAcsBpAGPAcoBogGO + AccBngGIAccBnQGGAcUBmwGEAcUBmgGCAcUBmQGAAcQBmAF+AcMBlwF8AcIBlQF5AcIBlAF3AcIBkwF0 + AcEBkgFzAcMBkgFyAbQBgwFiDwADgAP/AQAC/wPMAQAC/wPMAQAC/wPMAQAC/wPMAQAC/wOAPAADgAP/ + AQAC/wPAAQAC/wPAAQAC/wPAAQAC/wPAAQAC/wOAQgABLAEdAbUBLAEdAbUBaAHcAfkBVwHeAf8BQwHU + Af8BMgHDAf8BKgGqAfoBLAEdAbUBLAEdAbVgAAHDAZYBfAH9AfcB6wH9AfYB6AH5Ae4B4AH4AesB2wH2 + AecB1QH2AeQB0AH0AeEBywHyAd0BxgHxAdkBwAHvAdUBugHtAdEBtAHsAc0BrgHqAcoBqgHtAc8BrQHC + AZQBdAwAA4AD/wEAAv8DzAEAAv8DzAEAAv8DzAEAAv8DzAEAAv8DzAMAA4A2AAOAA/8BAAL/A8ABAAL/ + A8ABAAL/A8ABAAL/A8ABAAL/A8ADAAOAPAABLAEdAbUBaAHGAewBUgGsAeQBMQF2Ac8BIgFqAcwBHgF0 + AdUBIQGFAeYBJAGSAfgBIAGDAf4BGgFpAfYBLAEdAbVdAAHGAZkBfgH4Ae4B5QH3AesB4AH1AecB2QH0 + AeQB1QHzAeAB0AHxAdwBygHxAdoBxgHvAdcBwgHuAdQBvQHtAdEBuAHrAc0BsgHoAcgBqwHoAcYBpwHq + AcoBqgHBAZIBcwwAA4AD/wPMAQAC/wPMAQAC/wPMAQAC/wPMAQAC/wPMA4ADAAOANgADgAP/A8ABAAL/ + A8ABAAL/A8ABAAL/A8ABAAL/A8ADgAMAA4A8AAEsAR0BtQFaAboB6gEKARYBowIAAZoCAAGaAgABmgED + AQ4BowELAS4BuwEaAWkB9gEYAWAB/wEsAR0BtV0AAccBnAGCAfoB8gHrAfkB8AHnAfYB6gHfAfYB6AHb + AfQB5AHWAfQB4gHRAfIB3gHMAfAB2gHHAfAB2AHCAe4B1QG+AewB0AG3AesBzQGzAeoBygGtAewBzwGx + AcIBkwF2CQADgAP/A8wBAAL/A8wBAAL/A8wBAAL/A8wBAAL/A8wBAAL/AwAGgDMAA4AD/wPAAQAC/wPA + AQAC/wPAAQAC/wPAAQAC/wPAAQAC/wMABoA5AAEsAR0BtQFHAZ8B4AEgAUsBuwIAAZoCAAGaAgABmgIA + AZoCAAGaAgABmgEGARkBtgEQAUAB7wELAS0B7wEsAR0BtQGyAnsBsgJ7VAABygGfAYQB/AH3AfIB+gH0 + Ae0B+QHvAeYB9wHrAeEB9gHoAdsB9QHmAdgB9AHiAdIB8gHeAcwB8QHbAccB8AHYAcMB7gHVAb8B7QHR + AbgB6wHOAbQB7gHTAbcBwwGVAXgJAAOAHv8DgAMAA8wDgDMAA4Ae/wOAAwADwAOAOQABLAEdAbUBQgGs + AegBFQE8AbYCAAGaAgABmgIAAZoCAAGaAgABmgIAAZoCAAGaAQMBDQGwAQcBHgHzASwBHQG1Ad8BswGy + AdYBqQGoAbICewGyAnsBsgJ7SwABywGhAYcB/QH6AfgB/AH4AfMB+QHxAesB+QHvAecB9wHrAeEB9gHo + AdwB9QHlAdcB9AHiAdMB8wHfAc8B8QHcAckB8AHYAcMB7gHVAb8B7gHTAboB8AHYAb8BwwGWAXsJACeA + AQAC/wOAMwAngAEAAv8DgDkAASwBHQG1AScBhwHcARwBbQHSAgABmgIAAZoCAAGaAgABmgIAAZoCAAGa + AgABmgIAAZoBAAEnAbEBAAEnAbEB2gHFAcsB/AHTAdIB/AHTAdIB/AHTAdIB1QG7AboBsgJ7AbICe0UA + Ac4BpQGMBP4B/AH5AfwB9wHyAfoB8wHtAfkB8AHoAfcB7AHiAfYB6AHcAfUB5gHYAfQB4wHTAfMB3wHO + AfEB3AHIAfAB2QHEAe4B1gHAAfIB3AHFAcQBmAF+DAADgAP/A8wBAAL/A8wBAAL/A8wBAAL/A8wBAAL/ + A8wBAAL/A8wDgDYAA4AD/wPAAQAC/wPAAQAC/wPAAQAC/wPAAQAC/wPAAQAC/wPAA4A8AAEsAR0BtQEp + AaUB+AEMATEBugIAAZoCAAGaAgABmgIAAZoCAAGaAgABmgEAASkBqgEAAYsBwwEAAYoBvQExAY0BtwF7 + AaEBuwHnAckBywH+AdwB2wH8AfsB/AHzAeoB6QG9ApwBsgJ7QgAB0QGoAY4G/gH9AfoB+QH7AfcB8gH6 + AfQB7QH5AfAB6QH3AewB5AH3AekB3gH2AecB2gH0AeQB1QHyAd8BzwHyAd0BygHxAdoBxQH0AeABywHE + AZkBgAwAA4AD/wEAAv8DzAEAAv8DzAEAAv8DzA//A4A2AAOAA/8BAAL/A8ABAAL/A8ABAAL/A8AP/wOA + PAABLAEdAbUBIAF4AegBIAGDAf4BFQFWAecBBwEfAb8BAwEOAa8BAAEDAaMCAAGaAgABmgEAAR8BpgEA + Ab4B8QEAAbQB5wEAAZ4B0QEAAYsBwwEOAX8BsAFjAaUBxAHFAd0B6QH8AfsC/AH7AfwBywGzArICeyEA + AbgBiQFsAcsBpAGPAcoBogGOAccBngGIAccBnQGGAcUBmwGEAcUBmgGCAcUBmQGAAcQBmAF+AcMBlwF8 + AdMBqwGQCf4B/QH6AfgB+wH3AfMB+wH1Ae8B+gHyAeoB+AHtAeQB9wHqAd8B9gHnAdsB9QHkAdUB8wHg + Ac8B8gHdAcoB9QHkAdABxwGcAYMMAAOAA/8DzAEAAv8DzAEAAv8DzAP/EoA2AAOAA/8DwAEAAv8DwAEA + Av8DwAP/EoA/AAEsAR0BtQEcAXIB/wEYAWAB/wERAUgB/QELAS0B7wEFARcB5wIDAeUBAgEEAdYCAwHl + AQABcAHUAQEBqAHbAQABvgHxAQABrwHiAQABngHRAQABhAG3ARUBhAGzAVkBpALFAd0B6QH2AfAB7wG9 + ApwBsgJ7HgABwwGWAXwB/QH3AesB/QH2AegB+QHuAeAB+AHrAdsB9gHnAdUB9gHkAdAB9AHhAcsB8gHd + AcYB8QHZAcAB1gGuAZIN/gH9AfsB/AH5AfQB+wH0Ae8B+gHyAeoB+QHuAeUB9gHqAd8B9gHoAdsB9QHl + AdYB9AHiAdEB9wHoAdYByAGfAYcPAAOAD/8DgEsAA4AP/wOAUQABLAEdAbUBFgFYAfoBEQFIAf0BDAEz + AfsBCAEhAf8BAAEBAf4BAAEBAf4BAAEBAf4BAAEBAf4CAwHlAX0BegG9AVkBpAHFASMBqgHWAQABrwHi + AQABrwHiAQABngHRAQABigG9AQUBdQGoATwBkgG5AZsBugHMAbICex4AAcYBmQF+AfgB7gHlAfcB6wHg + AfUB5wHZAfQB5AHVAfMB4AHQAfEB3AHKAfEB2gHGAe8B1wHCAe4B1AG9AdgBrwGUEP4B/QH7AfwB+AH1 + AfoB9QHwAfoB8gHrAfgB7gHmAfcB6wHhAfYB5wHcAfUB5QHWAfgB6wHcAcsBowGLEgAPgFEAD4BRAAGy + AnsBhwFgAYoBDAEyAeEBDAEzAfsBCAEhAf8BCAEhAf8BAAEBAf4BAAEBAf4BAAEBAf4BAAEBAf4BKQEk + AccB0gGwAckB/AHTAdIBzAHEAc0BcQG+AdsBFwGeAcwBAAGvAeIBAAGvAeIBAAGeAdEBAAGFAbkBDgF/ + AbABKQF1AZwBcwGGAZgbAAHHAZwBggH6AfIB6wH5AfAB5wH2AeoB3wH2AegB2wH0AeQB1gH0AeIB0QHy + Ad4BzAHwAdoBxwHwAdgBwgHaAbIBlxP+Af0B/AH9AfoB9wH8AfcB8gH6AfMB7AH5Ae8B5wH3AewB4gH2 + AegB3AH7AfEB4wHOAacBkNIAAbICewHmArcBFQEYAcgBCAEhAf8BAAEBAf4BAAEBAf4BAAEBAf4BAAEB + Af4BAAEBAf4BAAEBAf4BdAFhAccB+AHTAecB+AHTAecB+wHnAfcB/AH7AvwB+wH8AY8BwgHZAUEBrQHT + AQABngHRAQEBqAHbAQABngHRAQABhQG5AQUBdQGoAQUBdQGoGAABygGfAYQB/AH3AfIB+gH0Ae0B+QHv + AeYB9wHrAeEB9gHoAdsB9QHmAdgB9AHiAdIB8gHeAcwB8QHbAccB3AG1AZkW/gH9AvwB+QH2AfwB+AHz + AfoB9AHuAfoB8QHpAfgB7gHkAfwB9wHrAdEBrQGW0gABsgJ7AfwByQHKAToBMwHBAQgBIQH/AQABAQH+ + AQABAQH+AQABAQH+AQABAQH+AQABAQH+AQgBBgHKAdoBsQHiAf4BzwHrAf4BzwHrAf0B1wH6AfwB+wL8 + AfsC/AH7AfwB5wHxAfUBnwHPAeIBQwGnAc0BAAGeAdEBAQGoAdsBAQGYAcsBAAGEAbcBBQF1AagBIAF8 + AakBbgGhAbsPAAHLAaEBhwH9AfoB+AH8AfgB8wH5AfEB6wH5Ae8B5wH3AesB4QH2AegB3AH1AeUB1wH0 + AeIB0wHzAd8BzwHeAbgBnBv+AfsB9gHzAeQB0AHKAeIBygHAAeYBzwHDAesB1wHJAcgBnQGCIAAB/1gA + AYACAAGAAgABgAIAAYACAAGASQABsgJ7AckCmgH8AckBygE8ATABtwEVARgByAEOAQsBvgEAAQEB/gEA + AQEB/gEAAQEB/gIDAeUBaQFDAaEBtgGEAYMBsgJ7AcUCqAH4AdMB5wH9AdcB+gH8AfsC/AH7AvwB+wL8 + AfsC/AH7AfwBugHTAd4BYwGlAcQBFwGeAcwBAAGeAdEBAAGeAdEBAAGEAbcBBQF1AagBNgGHAbAMAAHO + AaUBjAT+AfwB+QH8AfcB8gH6AfMB7QH5AfAB6AH3AewB4gH2AegB3AH1AeYB2AH0AeMB0wHfAboBnhj+ + AfsB9wH1AdcBsAGYAc8BpQGNAc8BpAGKAc4BogGEAcQBkQFtAb4BnQGCHQAB/wIAAf8CAAH/WAABgAIA + AYACAAGATAABsgJ7AdkCpwH8AckBygGQAXQBtwG6AZQBvgEnAR8BwwEAAQEB/gEAAQEB/gEAAQEB/gEs + AR0BtQGcAWcBfQG9ApwB4gHUAdMBtwGUAZMBywGzAbIB/QHXAfoB+wHnAfcB9gHwAe8B8wHqAekB8wHq + AekB8wHqAekB8wHqAekB5QHpAeIBqAG1AcABUgGDAZ8BFwGeAcwBAQGYAcsBAAGLAcMBFQGEAbMMAAHR + AagBjgb+Af0B+gH5AfsB9wHyAfoB9AHtAfkB8AHpAfcB7AHkAfcB6QHeAfYB5wHaAeABvgGhGP4B+AHv + AewB2AGxAZgB+AHwAesB9AHkAtYBqgGKAcEBnwGDHQAB/wIAAf8CAAH/AgAB/wIAAf9YAAGATwABsgJ7 + AdwCqgH8AckBygH8AckBygH8AckBygEnAR8BwwEAAQEB/gEAAQEB/gEsAR0BtQF0AWEBxwGyAXkBeAHm + AtkB/QH8AfsBzAKzAcUBpwGlAf0B1AH7AfMB4AHpAe8B5AHhAe8B5AHhAe8B5AHhAfMB4AHeAfMB4AHe + AfMB4AHeAZkBZwFmCQABWQGkAcUPAAHTAasBkAn+Af0B+gH4AfsB9wHzAfsB9QHvAfoB8gHqAfgB7QHk + AfcB6gHfAeMBwAGlGP4B+AHwAe0B3QG3AZ0B9AHjAdQB2gGxAZEBxAGpAZIdAAH/AgAB/wIAAf8CAAH/ + AgAB/wIAAf8CAAH/pQABsgJ7AdkCpwH8AckBygH8AckBygH8AckBygEIAQYBygEAAQEB/gIDAeUBYQFg + Ab4B/gHQAfQBvwGKAYkBvwGgAZ8B5gLZAawBhAGDAdEBkwGVAf0B1AH7Af4CzAH+AdQB0wH+AdQB0wH+ + AdQB0wH+AdQB0wH+AdQB0wH+AdQB0wGZAWcBZhsAAdYBrgGSDf4B/QH7AfwB+QH0AfsB9AHvAfoB8gHq + AfkB7gHlAeMBwgGoGP4B+QHyAfAB3AGzAZMB2QGtAYkBxwGuAZgdAAH/AgAB/wIAAf8CAAH/AgAB/wIA + Af8CAAH/AgAB/wIAAf8eAA+AeAABsgJ7AfwByQHKAfwB0wHSAfwByQHKAQgBBgHKAgMB5QFhAWABvgH/ + AuYB/gHZAf0B+AHdAfQBvwGXAZYBsgF5AXgBxQGEAYcB/gHCAd4B/gHCAd4B/gG9AbwB/gLMAf4B1AHT + Af4B1AHTAf4B1AHTAf4B1AHTAesBwAG/AZkBZwFmGwAB2AGvAZQQ/gH9AfsB/AH4AfUB+gH1AfAB+gHy + AesB5QHFAasY/gH4Ae8B6wHVAaIBewHJAbMBnykAAf8CAAH/AgAB/yQAA4AB/wLsAf8C7AH/AuwB/wLs + Af8C7AOAHAABgAIAAYACAAGAAgABgAIAAYBMAAGyAnsB/AHJAcoB/AHJAcoBvgGiAcgBAgEEAdYBKQEk + AccBswHLAcEB/QH8AfsB/QH8AfsB/gHZAf0B/gHQAfQB/gHKAeoB/QHUAfsB/gHKAeoB/QKlAf0CpQH9 + AbQBswH+AswB/gHUAdMB/gHUAdMB/gHUAdMB0gGlAaQBmQFnAWYbAAHaAbIBlxP+Af0B/AH9AfoB9wH8 + AfcB8gHgAb8BngHnAcsBsgHnAcoBsgHmAcgBsAHlAcYBrgHkAcUBrAHjAcIBqgHjAcEBqQHhAb8BpwHb + AbEBkAHMAbcBpCwAAf8CAAH/AgAB/yEAA4AB/wLMAf8C7AH/AuwB/wLsAf8C7AH/AuwD/wOAHAABgAIA + AYACAAGAIgAhgAwAAbICewHnAckBywH8AfsB/AJmAcICRwHBAtsB8QP/Af0B/AH7Af0B/AH7Af8C7gH+ + AdQB0wH+AcQBzwH+AcQBwwH9Aq0B/QGmAagB/QKlAf0CpQH9Aq0B/gHEAcMB/gHUAdMB/gHUAdMBrAF0 + AXMeAAHcAbUBmRb+Af0C/AH5AfYB/AH4AfMB+gH0Ae4B+gHxAekB+AHuAeQB/AH3AesB0QGtAZY7AAH/ + AgAB/wIAAf8eAAOAAf8CzAH/AswB/wLMAf8C7AH/AuwB/wLsCf8DgBwAAYAlAAOAA/8MwAkAA/8DgA8A + AbICewLUAe4CVQG7AtsB8QH8AfsB/AP/Af0B/AH7Af0B/AH7Af4C3AH+AcQBzwH+AswB/gHEAcMB/QG0 + AbMB/QKtAf0BpgGoAf0CpQH9AqUB/QKtAf4BvQG8AeUBtgG1AZkBZwFmHgAB3gG4AZwb/gH7AfYB8wHk + AdABygHiAcoBwAHmAc8BwwHrAdcByQHIAZ0BgjsAAf8CAAH/AgAB/x4AA4AB/wLMAf8CzAH/AswB/wLM + Af8C7Ar/ArsDgEIAA4Ab/wOADwABsgJ7Ad8B1AHYAfwB+wL8AfsC/AH7AfwD/wH9AfwB+wH9AfwB+wH+ + AswB/gLMAf4CzAH+AswB/gHEAcMB/QG0AbMB/QG0AbMB/QGmAagB/QKlAf0CpQH3AqQBmQFnAWYhAAHf + AboBnhj+AfsB9wH1AdcBsAGYAc8BpQGNAc8BpAGKAc4BogGEAcQBkQFtAb4BnQGCOwAB/wIAAf8CAAH/ + GwADgAH/ArsB/wK7Af8CzAH/AswB/wLMA4AH/wK7Af8CuwH/ArsDgBwAAYAlABuAFQABsgJ7AfMB6gHp + AfwB+wL8AfsB/AP/Af0B/AH7Af8C5gH+AswB/gHUAdMB/gLMAf4B1AHTAf4CzAH+AcQBwwH+Ab0BvAH9 + AbQBswH9Aq0B/QKlAb8CfAGZAWcBZiEAAeABvgGhGP4B+AHvAewB2AGxAZgB+AHwAesB9AHkAtYBqgGK + AcEBnwGDPgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8DAAOAAf8CuwH/ + ArsB/wK7Af8CuwOAAwADgAH/ArsB/wK7Af8CuwH/ArsDgBkAAYACAAGACAABgA4AAYANAAOAFcADgBgA + AbICewHzAeoB6QH8AfsB/AP/Af0B/AH7Af4B1AHTAf4CzAH+AswB/gLMAf4CzAH+AdQB0wH+AswB/gHE + AcMB/gG9AbwB9wKwAb8BgQGAAZkBZwFmJAAB4wHAAaUY/gH4AfAB7QHdAbcBnQH0AeMB1AHaAbEBkQHE + AakBkkQAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8DAAOAAf8CuwH/ArsB/wK7 + Bv8DgAH/AswB/wLMAf8CzAH/ArsB/wK7A4AWAAGAAgABgAIAAYAIAAGAAgABgAsAAYACAAGACgADgAPA + A4AC/wEAAv8BAAL/AQAC/wEAA8ADgBsAAbICewHfAdQB2AH8AfsB/AH/Au4B/gLMAf4CzAH+AdQB0wH+ + AswB/gHUAdMB/gLMAf4CzAH+AswB5QKuAZkBZwFmAZkBZwFmJwAB4wHCAagY/gH5AfIB8AHcAbMBkwHZ + Aa0BiQHHAa4BmEoAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wYAA4AB/wK7Cv8C7AH/ + AswB/wLMAf8CzAH/AswDgBYAAYACAAGAAgABgAIAAYAIAAGAAgABgAIAAYAIAAGAAgABgAIAAYAHAAOA + A8ADgAL/AQAC/wEAAv8BAAL/AQADwAOAHgABsgJ7AbICewGsAXQBcwHSAaUBpAHrArkB/gLMAf4B1AHT + Af4CzAHrArkB0gGgAZ8BmQFnAWYBmQFnAWYtAAHlAcUBqxj+AfgB7wHrAdUBogF7AckBswGfbAADgAr/ + AuwB/wLsAf8C7AH/AswB/wLMAf8CzAOAKAABgAIAAYALAAGAAgABgAoAA4ADwAOAAv8BAAL/AQAC/wEA + Av8BAAPAA4AnAAGZAWcBZgGZAWcBZgGZAWcBZgGZAWcBZgGZAWcBZgGZAWcBZgGZAWcBZjMAAeABvwGe + AecBywGyAecBygGyAeYByAGwAeUBxgGuAeQBxQGsAeMBwgGqAeMBwQGpAeEBvwGnAdsBsQGQAcwBtwGk + cgADgAT/AuwB/wLsAf8C7AH/AuwB/wLsAf8CzAOAKwABgA4AAYANAAOAA8APgAPAA4D/AAYAA4AB/wLs + Af8C7AH/AuwB/wLsAf8C7AOASwADgBXAA4D/AAkAD4BRABiAfgABugGmAa4BmwGAAYsBhAFiAXABdgFR + AV8BcwFOAV0BcwFOAV0BdgFSAWABiQFpAXYBnAGCAY0BugGmAa7/AF0AAaQBiQGRAZABaAFvAZ0BdwF6 + Aa4BigGMAbkCmAG4ApYBuAKUAbcCkgGiAXcBeQGWAWoBbwGHAV0BZQGBAVwBaAGJAWkBdgGvAZkBoyoA + JIA8ACSAogABvAGlAasBogF6AX4BxAKuAdcCzwHbAtQB2gLRAdkCzgHYAsoB1wLGAdYCwAHVArsB0wK2 + AcsCqAG0AocBkgFlAWoBfwFaAWYBlgF5AYQnAAOAA/8BAAL/A8ABAAL/A8ABAAL/A8ABAAL/A8ABAAL/ + A4A8AAOAA/8BAAL/A8ABAAL/A8ABAAL/A8ABAAL/A8ABAAL/A4BpAAGvAYUBZwGvAYQBZQGvAYQBZQGv + AYQBZQGvAYQBZQGvAYQBZQGvAYQBZQGvAYQBZQGvAYUBZxsAAcABpQGpAb8CpQHdAtwB3QLcAd0D3ALa + AdwC1wHaAtMB2QLPAdgCygG+ApsBqAKBAa8CgwHBApsB0QKtAc0CpAGsAXwBfQF/AVgBYwGWAXkBhCEA + A4AD/wEAAv8DwAEAAv8DwAEAAv8DwAEAAv8DwAEAAv8DwAMAA4A2AAOAA/8BAAL/A8ABAAL/A8ABAAL/ + A8ABAAL/A8ABAAL/A8ADAAOAZgABrgGDAWMB9AHaAcIB8wHXAb4B8wHUAboB8gHTAbcB8gHRAbMB8QHP + AbABrwGEAWUB0gGqAYoBrwGEAWUYAAHDAqkD4APkBuUD4gHeAt0B3ALYAdoC0wHOArgBywKxAcQCwQGe + ApIBngJ/AagCfAHNAqUBzwKjAa0BfAF9AYQBXgFqAcABrwG2HgADgAP/A8ABAAL/A8ABAAL/A8ABAAL/ + A8ABAAL/A8ADgAMAA4A2AAOAA/8DwAEAAv8DwAEAAv8DwAEAAv8DwAEAAv8DwAOAAwADgEsAA5gYAAGt + AYMBZAH2Ad8BygH1AdwBxgH0AdkBwgH0AdcBvgHzAdUBugHzAdIBtwGvAYQBZQHwAcsBqgHVAa0BjQGv + AYQBZRIAAcQCoAHdAtoD5gPrA+4D7QPpA+MB3QLcAdsC1gHFAqcB2gLGAcECsQGlAo4BpgKMAacCiAHF + Ap0BzwKkAcMCkwGWAWkBcQG7AagBsBsAA4AD/wPAAQAC/wPAAQAC/wPAAQAC/wPAAQAC/wPAAQAC/wMA + BoAzAAOAA/8DwAEAAv8DwAEAAv8DwAEAAv8DwAEAAv8DwAEAAv8DAAaATgAJmA8AAa0BgwFkAfcB4wHS + AfYB4QHOAfYB3gHJAfQB2wHGAfQB2QHCAfMB1wG+Aa8BhAFlAd4BtwGWAegBwgGfAcYBnAF8Aa8BhAFl + DwABzAKwA+QD6wPyA/UD9APvA+cD4AHcAtgBvQKWAeMC0gG4ApkBqwKHAa0ChQGuAoQByAKgAc8CpQHH + ApgBmQFvAXYBvgGtAbUbAAOAHv8DgAMAA8ADgDMAA4Ae/wOAAwADwAOATgADmBUAAa0BgwFkAfgB6QHa + AfcB5gHWAfcB4wHSAfYB4QHOAfUB3gHJAfUB3AHGAa8BhAFlAa8BhAFlAa8BhAFlAa8BhAFlAa8BhAFl + DwAB2AK7AeMC3wPuA/YD/AP5A/ED6gPhAdoC1AHBApUB3QLDAbECggGyAoEBswKAAbUCfgHNAqYBzwKm + AccCmAGeAXYBfR4AJ4ABAAL/A4AzACeAAQAC/wOATgADmBUAAa0BgwFkAfoB7QHiAfgB6gHfAfgB6QHa + AfcB5gHWAfcB4wHSAfYB4AHNAfYB3gHJAfQB3AHGAfQB2QHBAfQB1wG+Aa8BhAFlEgAB0AK0A+0D9AHr + AtgB9ALvA/AD6QPhAdECvQHOAqYB0QKqAbgCfAG5AnoBuwJ4AbwCdwHRAqsBzgKkAbEBggGFAZEBZgFu + IQADgAP/A8ABAAL/A8ABAAL/A8ABAAL/A8ABAAL/A8ABAAL/A8ADgDYAA4AD/wPAAQAC/wPAAQAC/wPA + AQAC/wPAAQAC/wPAAQAC/wPAA4BmAAGtAYMBZQH6AfIB6gH6Ae8B5gH6Ae0B4gH5AesB3gH4AegB2gH3 + AeYB1gH3AeMB0gH2AeEBzgH1Ad4ByQH0AdsBxgGvAYQBZRUAAdoCwAHiAtIBygKSAb8CdAHRAqAB3ALI + Ad8C3gHKAqQB0QKnAckCkQG+AnUBwAJzAcICcQHEAnABzgKmAcMClCcAA4AD/wEAAv8DwAEAAv8DwAEA + Av8DwA//A4A2AAOAA/8BAAL/A8ABAAL/A8ABAAL/A8AP/wOAZgABrQGDAWYB/AH2AfEB+wH0Ae4B+wHy + AesB+gHvAeYB+QHuAeIB+QHrAd8B+AHoAdoB9wHlAdYB9wHjAdIB9gHgAc4BrwGEAWUYAAHVAbABsQHL + ApYB8gHGAZcB5QLGAdICmQHFAn8ByAKOAcsCjwHGAncBxgJtAccCbAHJAmoBygJpLQADgAP/A8ABAAL/ + A8ABAAL/A8AD/xKANgADgAP/A8ABAAL/A8ABAAL/A8AD/xKAZgABrQGCAWQB/QH6AfgB/QH4AfUB/AH2 + AfEB+wH1Ae4B+wHyAesB+gHwAecB+QHtAeIB+AHrAd8B+AHpAdsB9wHlAdYBrwGEAWUYAAHVAbEBsgHH + Ao8B/wGhARAB/wGoASIB+wHFAXcB7wHNAbMB2QKoAckCfQHGAm0ByQJnAcgCZAHFAmABxQJqMAADgA// + A4BLAAOAD/8DgHgAAa8BhAFlAv0B/AH9AfwB+gH9AfoB9wH8AfgB9QH7AfcB8QH7AfQB7gH7AfIB6gH6 + Ae8B5gH6Ae4B4gH5AesB3gGvAYQBZRgAAdECqQHTAZQBcgH/AaYBHAH/AagBIAH/AaoBIwH/AasBJQH8 + AbUBSQHzAcgBlgHeAa8BpwHPAooBxAJoAbwCWwG7AmszAA+AUQAPgHsAAa8BhAFlAv0B/AH9AfwB+gH9 + AfoB9wH8AfgB9QH7AfcB8QH7AfQB7gH7AfIB6gH6Ae8B5gH6Ae4B4gH5AesB3gGvAYQBZRgAAc4CogHW + AZQBYwH/AawBJwH/Aa4BKwH/AbABLgH/AbEBMQH/AbIBMwH/AbIBMwH9AbMBPAH0AboBbAHkAbIBkgHS + ApcByQJ4Ac4Ci/AAAa8BhAFlAa8BhAFlAa8BhAFlAa8BhAFlAa8BhAFlAa8BhAFlAa8BhAFlAa8BhAFl + Aa8BhAFlAa8BhAFlAa8BhAFlAa8BhAFlBgABrwGEAWUH/gH9AfwB/QH8AfoB/QH6AfcB/QH4AfQB/AH2 + AfEB+wH0Ae4B+wHyAeoB+wHwAecBrwGEAWUYAAHWArEB2gGXAVcB/wGyATMB/wG0ATcB/wG2AToB/wG3 + ATwB/wG4AT8B/wG4AT8B/wG4AT8B/wG4AT8BpAKUAaMCnwGkAaEBoAGZAZQBkgGQAYABfwHSAorqAAGv + AYQBZQf+Af0B/AH9AfwB+gH9AfoB9wH9AfgB9AH8AfYB8QH7AfQB7gH7AfIB6gH7AfAB5wGvAYQBZQYA + Aa8BhAFlAv0B/AH9AfwB+gH9AfoB9wH8AfgB9QH7AfcB8QH7AfQB7gH7AfIB6gH6Ae8B5gH6Ae4B4gH5 + AesB3gGvAYQBZRUAAdUBvQG+AdMCrwHsAagBTAH/AbcBPgH/AboBQwH/AbwBRgH/Ab0BSQH/Ab4BSwH/ + Ab8BTAH/Ab8BTAGkApQDugbJAcgBxwHEAaMBoQGeAVYBSgFxAcsCaZUAAf9RAAGvAYQBZQL9AfwB/QH8 + AfoB/QH6AfcB/AH4AfUB+wH3AfEB+wH0Ae4B+wHyAeoB+gHvAeYB+gHuAeIB+QHrAd4BrwGEAWUGAAGv + AYQBZQf+Af0B/AH9AfwB+gH9AfoB9wH9AfgB9AH8AfYB8QH7AfQB7gH7AfIB6gH7AfAB5wGvAYQBZRUA + Ac8CtAHLAqYB9QGzAUwB/wG9AUkB/wG/AU4B/wHBAVIB/wHDAVUB/wHEAVcB/wHFAVkBoAKJA7oD3QHe + AdQB0gPdAuEB3wLXAdQCUgGnASIBFwF/LgABgAIAAYACAAGAXQAB/wIAAf8CAAH/TgABrwGEAWUH/gH9 + AfwB/QH8AfoB/QH6AfcB/QH4AfQB/AH2AfEB+wH0Ae4B+wHyAeoB+wHwAecBrwGEAWUGAAGvAYQBZQGv + AYQBZQGvAYQBZQGvAYQBZQGvAYQBZQGvAYQBZQGvAYQBZQGvAYQBZQGvAYQBZQGvAYQBZQGvAYQBZQGv + AYQBZRUAAcsCrgHHAaEBmgH/AcABTgH/AcMBVAH/AcUBWgH/AccBXgH/AckBYQH/AcoBYgH/AcsBZQGs + AqYD3QLlAewJ/gH2AfQB8QJqAboCAAGTAgABmisAAYACAAGAAgABgFoAAf8CAAH/AgAB/wIAAf8CAAH/ + SwABrwGEAWUC/QH8Af0B/AH6Af0B+gH3AfwB+AH1AfsB9wHxAfsB9AHuAfsB8gHqAfoB7wHmAfoB7gHi + AfkB6wHeAa8BhAFlPwAB1AK5AcsBogGHAf8BxQFYAf8ByAFfAf8BywFlAf8BzQFqAf8BzwFtAf8B0AFv + Af8B0AFvAbcCsAH2AfQB8Qz+Ae4B7AH2AUABPwGuAgABkwIAAZoCAAGaKAABgAIAAYACAAGAVwAB/wIA + Af8CAAH/AgAB/wIAAf8CAAH/AgAB/0gAAa8BhAFlAv0B/AH9AfwB+gH9AfoB9wH8AfgB9QH7AfcB8QH7 + AfQB7gH7AfIB6gH6Ae8B5gH6Ae4B4gH5AesB3gGvAYQBZTwAAdkBzAHNAeICywHPAaQBdgH/AcoBYwH/ + Ac0BaQH/AdABcAH/AdMBdQH/AdUBeQH/AdYBfAH/AdcBfAG8AbYBswz+AfAB7gH1AVkBWwHFASABMwHC + AQoBEQGlAgABkwIAAZoCAAGaJQABgAIAAYACAAGAVAAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIA + Af8CAAH/RQABrQGCAWQB/QH6AfgB/QH4AfUB/AH2AfEB+wH1Ae4B+wHyAesB+gHwAecB+QHtAeIB+AHr + Ad8B+AHpAdsB9wHlAdYBrwGEAWU8AAHQAcABwQHfAssB2QGvAXYB/wHPAWwB/wHSAXQB/wHWAXoB/wHZ + AYAB/wHbAYQB/wHcAYcB/wHdAYgBtQKtCf4B7gHsAfYBWAFdAcQBIAFEAdkBVQGLAf8BOwFgAeUBCgER + AaUCAAGTAgABmgIAAZoiAAGAAgABgAIAAYBdAAH/AgAB/wIAAf9OAAGtAYMBZgH8AfYB8QH7AfQB7gH7 + AfIB6wH6Ae8B5gH5Ae4B4gH5AesB3wH4AegB2gH3AeUB1gH3AeMB0gH2AeABzgGvAYQBZTwAAcgCuAHU + AsAB6QG+AXUB/wHTAXUB/wHXAX0B/wHbAYQB/wHeAYoB/wHhAY8B/wHiAZIB/wHjAZQBrQGbAZoD7gP+ + AfAB7gH1AVgBXQHEAR0BQwHYAVEBhAH/AU0BfQH+AVEBhAH/AT8BZwHqAQoBEQGlAgABkwIAAZoCAAGa + HwABgAIAAYACAAGAEQABgBMAIYAXAAH/AgAB/wIAAf8hACGADAABrQGDAWUB+gHyAeoB+gHvAeYB+gHt + AeIB+QHrAd4B+AHoAdoB9wHmAdYB9wHjAdIB9gHhAc4B9QHeAckB9AHbAcYBrwGEAWU8AAHKArsBxgK0 + Af8B0gF0Af8B1wF9Af8B3AGFAf8B4AGNAf8B4wGVAf8B5gGaAf8B6AGeAf8B6gGhAf8B6gGhA7oC5QHs + AVkBWwHFASABRAHZAVEBhAH/AU0BfQH+AU0BfQH+AU0BfQH+AVEBhAH/AUIBagHtARABGQGsAgABkwIA + AZoCAAGaHAABgAIAAYACAAGAEQABgAIAAYAQAAOAA/8MwAkAA/8DgBcAAf8CAAH/AgAB/yEAA4AD/wzA + CQAD/wOADAABrQGDAWQB+gHtAeIB+AHqAd8B+AHpAdoB9wHmAdYB9wHjAdIB9gHgAc0B9gHeAckB9AHc + AcYB9AHZAcEB9AHXAb4BrwGEAWUVAAOYJAAB4ALVAcMBrgGjAf8B1gF6Af8B2wGEAf8B4AGNAf8B5AGX + Af8B6AGfAf8B7AGmAf8B7gGqAf8B7wGtAf8B7wGtAf8B7gGqATsBOgGfAScBTAHgAVEBhAH/AU0BfQH+ + AU0BfQH+AU0BfQH+AU0BfQH+AU0BfQH+AVEBhAH/AUIBbgHxARABGQGsAgABkwIAAZoCAAGaGQABgAIA + AYACAAGAEQABgAIAAYACAAGADQADgBv/A4AXAAH/AgAB/wIAAf8hAAOAG/8DgAwAAa0BgwFkAfgB6QHa + AfcB5gHWAfcB4wHSAfYB4QHOAfUB3gHJAfUB3AHGAa8BhAFlAa8BhAFlAa8BhAFlAa8BhAFlAa8BhAFl + FQADmCEAAckBwgHDAfIC7AG4AaIBiwH/AdkBgAH/Ad4BigH/AeMBlQH/AegBngH/Ae0BqAH/AfEBsAH/ + AfQBtgH/AfUBuQH/AfUBuAH/AfQBtQH/AfABrwElAT0BzAFPAYAB/gFNAX0B/gFNAX0B/gFNAX0B/gFN + AX0B/gFNAX0B/gFNAX0B/gFRAYQB/wFCAW4B8QEPARkBrAIAAZMCAAGaAXsBegGdFgABgAIAAYACAAGA + AgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGADQAbgBoAAf8CAAH/AgAB/yQAG4APAAGt + AYMBZAH3AeMB0gH2AeEBzgH2Ad4ByQH0AdsBxgH0AdkBwgHzAdcBvgGvAYQBZQHeAbcBlgHoAcIBnwHG + AZwBfAGvAYQBZQ8ACZghAAG8ArgB7wLqAb0BqAGLAecByAGHAf8B4AGPAf8B5gGaAf8B6wGlAf8B8QGv + Af8B9QG5Af8B+QHAAf8B+wHEAf8B+wHEAf8B+QHAAf8B9QG4Af8B8AGuASUBPQHMAVEBhAH/AVEBhAH/ + AU0BfQH+AU0BfQH+AU0BfQH+AU0BfQH+AU0BfQH+AVEBhAH/AUIBagHtAQ8BGQGsAgABmgJ+AaEZAAGA + AgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAgABgAIAAYAKAAOAFcADgBoAAf8CAAH/ + AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wkAA4AVwAOADwABrQGDAWQB9gHf + AcoB9QHcAcYB9AHZAcIB9AHXAb4B8wHVAboB8wHSAbcBrwGEAWUB8AHLAaoB1QGtAY0BrwGEAWUbAAOY + HgABswKxAesC6QGeApQBnwKTAaECkQG0AaABkwHGAbIBmAHYAcYBowHpAd0BsgH/Af0ByQL/AcwC/wHM + Af8B/QHJAf8B+AG/Af8B8wGzAf8B7QGoASUBPQHMAU8BgAH+AU8BgAH+AU0BfQH+AU0BfQH+AU0BfQH+ + AU0BfQH+AU0BfQH+AVEBhAH/AUIBbgHxAgABoAF7AXoBnRwAAYACAAGAAgABgAIAAYACAAGAAgABgAIA + AYACAAGAAgABgAIAAYANAAOAA8ADgAL/AQAC/wEAAv8BAAL/AQADwAOAHQAB/wIAAf8CAAH/AgAB/wIA + Af8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8JAAOAA8ADgAL/AQAC/wEAAv8BAAL/AQADwAOADwABrgGD + AWMB9AHaAcIB8wHXAb4B8wHUAboB8gHTAbcB8gHRAbMB8QHPAbABrwGEAWUB0gGqAYoBrwGEAWU/AAOt + Ad8C3gHxAu8B5ALeAdICyAHHAroBtwKmAaQCjgGmAo0BpwKLAbkBoAGWAcoBtQGiAdoBygGtAeoB3QGz + Af8B9AG3Af8B7gGrAf8B6AGeASUBPQHMAU8BgAH+AU8BgAH+AU0BfQH+AU0BfQH+AU0BfQH+AU8BgAH+ + AU0BfQH+ASABRAHZAW4BcAHEMQABgAIAAYACAAGAEAADgAPAA4AC/wEAAv8BAAL/AQAC/wEAA8ADgCAA + Af8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8CAAH/AgAB/wIAAf8JAAOAA8ADgAL/AQAC/wEAAv8BAAL/ + AQADwAOADwABrwGFAWcBrwGEAWUBrwGEAWUBrwGEAWUBrwGEAWUBrwGEAWUBrwGEAWUBrwGEAWUBrwGF + AWdIAAHLAcgByQG/ArsBxQK+AcUCvAHWAsoB3wLSAegC2QHdA8oCswG+AqEBtgKWAawChgGtAoUBvgGX + AYoBzgGoAYwBxgGYAYUBIwE6AcgBTQF9Af4BTwGAAf4BTQF9Af4BTwGAAf4BTQF9Af4BIAE7AdEBfwF+ + AdE0AAGAAgABgBMAA4ADwAOAAv8BAAL/AQAC/wEAAv8BAAPAA4BFAAOAA8ADgAL/AQAC/wEAAv8BAAL/ + AQADwAOAhAABzwLFAc0CvwHLArkByQKyAdUCvQHgAscB2wK/AdACrwHIAqMBtAKFAaQBfQGCASMBOgHI + AU0BfQH+AVEBhAH/AU0BfQH+ARsBNAHMAoUBzTcAAYAWAAOAA8APgAPAA4BFAAOAA8APgAPAA4CWAAHT + AsEBzQKzAc4CrwG4Ao8GAAEgATMBwgFNAX0B/gElAT0BzAGOAYwB0lEAA4AVwAOARQADgBXAA4CrAAEK + AREBpQKFAc1XABiASAAYgPYABoYDVQNfqAAB6QHTAcgB8AHcAdEB8AHcAdEB8AHcAdEB8AHcAdEB8AHc + AdEB7wHbAdAB3wHKAb6uAAaGAZABqQGtA8wDXwNVA00DVVQACYA8AAHpAdQByQHyAeAB1gH0AegB4wH0 + Ae8B7QL0AvMC9AHwAfIB8wHxAfIB8wHxAfIB8wHyAvEB9AHtAekB8wHlAd0B7gHbAdBgAAP+A+0G0QPm + A/4wAAaGAZABqQGtCcwDXwZVA00GKUgABoADwAyAMwAB8gHfAdUB9QHwAe4B8gH0AfUB8AHyAfMB6wHu + Ae8B3wHiAeQB3wHiAeMB6AHrAuwB7wHxAewB7wHxAe0B8AHyAe0B8AHyAe8C8gHzAfIB8QH0AekB4wHv + AdsB0CEABvkD/i0AA/4D4gGhApsDdANsA5sD8SoABoYBkAGpAa0B1gLnA8wB1gLnBswDZgNfA1UGTQMp + AyIDKTwABoAJwBKAKgAB9QHrAeUB9AL1AfAB8QHyAe0B8QHyAeQB3QHbAcsBrwGiAb4BiwFyAb8BfAFb + AcIBeAFSAcYBfQFZAcwBjwFxAdUBqwGWAd8BzgHEA+kB7QHwAfIB8AHxAfIB9gL0AfIB4QHYGwAD+QPV + A8gD2wPqA/ID+AP8HgAD/gHiAuEBsgGZAZsBhgF4AY0BaQFtAXYBaAFmAWQDdwPrJAAGhgGQAakBrQPM + AdYC5wPMAdYC5wnMAZABqQGtA18GVQNNCSk2AAaAD8ASgCcAAfYB8QHvAfMC9AHwAfQB9QHqAecB5gHV + AasBlQHAAXEBSQG7AVsBKgG+AVoBJwHAAWEBMwHIAYEBXwHGAXMBSQG8AVYBIwG7AVgBJwG+AWIBNAHJ + AYcBZwHeAccBvAHtAfAB8gHvAfAB8QH0AvYB9AHmAd4YAAG2AdwB6QF8AaIBrwFYAWEBZANbA3QDlwO5 + A9QD5wPwA/YD/A8AA/4B5ALjAbQBmQGbAZUBfgGbAVEBcAG6AUUBgQHFAW4BfQSGA+4eAAaGAZABqQGt + AdYC5wPMAdYC5wPMA+oDzAHWAucJzANmA18DVQZNBikwAAaAFcASgCQAAfcB8QHtAfQC9QHwAfQB9QHl + AdgB0QHIAYABXQG9AVoBKAG/AVsBKgHDAWABLwHCAWYBOAHFAaoBnQHsAe4B7wH1Ae0B6QHSAYgBYwHC + AV0BKwHAAV4BLQG9AVkBJwG9AWABMgHRAaEBiQHqAekB6AHvAvEB9QH2AfcB8wHiAdkVAAF5AcUB3wFQ + AbkB3AFNAbkB3wEMAYcBsQEeAXMBkAEzAWMBcwFGAVgBXwNYA20DjgOxA9ID5gPvA/UD+wP+AeMC4gGz + ApoBlAF+AZwBVAFsAbEBOQGJAeUBTgG6Af8BWAGXAccDvAP4GwADhgGQAakBrQHWAucB1gLnA8wB1gLn + A8wD+AGZAcwBmQEAAWYBAAP4A9cGzAZmBlUDTQkpJwAGgAbAA4ASwBKAIQAB9gHoAeEB9gL3AfIB9wH4 + AeIBzQHBAcMBbQFDAb4BWgEoAcMBYgExAcYBYwEyAcoBYgEuAbwBdwFVAcEBxAHFAvgB+QP/AeoBygG6 + AccBYwEwAcYBYwEyAcQBYgEyAcABXwEuAbwBWgEoAc0BkAFxAewB6gHpAfEC8gH2AvcB8AHdAdISAAF5 + AcUB3wFnAcMB4gHaAfQB/wFtAdMB/wFTAcUB8gE3AbcB5gEcAagB2QEOAZEBvgEZAXgBmAEuAWcBewFF + AVcBXgNWA2UDhQOoA8oB0ALPAbMBmgGbAZQBfgGcAVEBbAGyAToBiQHjAVABuAH/AVYBsgHtAZABsQHO + A/EbAAOGA8wB1gLnAdYC5wHWAucG6gP4AWYBmQFmAQABZgEAAZkBzAGZA/gJzAZmA18DVQZNBikeAAmA + CcADgAEAAYABABLAFYAbAAHxAd4B0wL5AfoB9AL2AegB2wHVAcQBbgFDAcABXAEqAcUBYwEyAcgBZAEz + AcsBZgEzAc0BZAExAcABbwFHAb8BuwG5Af4C/wH1AfwB/wHZAagBjwHKAWIBLgHKAWUBMwHIAWUBMwHH + AWMBMQHCAWEBMAG8AVgBJgHQAZgBfAHuAe8B8AHyAfMB9AH2Ae4B6gHbAcYBuw8AAXkBxQHfATsBtAHi + A/8BewHaAf8BcgHYAf8BcgHYAf8BcgHYAf8BcgHYAf8BXQHNAfUBQQG9AekBJAGtAdwBCwGXAcUBFAF9 + AaABKAFrAYEBPwFbAWUBWAJVAZEBdwF4AZQBfgGbAVEBawGyAToBigHlAU8BuQH/AVMBrwHsAYwBqgHH + A/EeAAOZAdYC5wHWAucB1gLnAdYC5wP4AZkBzAGZAWYBmQFmAQABgAIAAYACAAGAAgABZgEAA/gGzAN3 + BmYGVQNNBikeAAOADMADgAEAAYACAAGAAgABgAIAAYACAAGAAQAJwBWAGwAB9wHuAekB9gH4AfkC8QHw + Ac4BiAFmAcABXAEpAcYBZAEzAckBZQE0AcwBZwE0AcwBZwE0AcwBZgEzAcsBZAEwAckBhQFjAekByAG3 + Ad0BqAGPAcsBaAE2AcwBZAExAcwBZgE0AcwBZgE0AckBZQEzAcYBYwEzAcIBYAEvAb4BXQEsAdwBuQGo + AfEB9QH3AfUB9gH3AfIB3wHVDwABeQHFAd8BTAG9AewBrwHfAe8BqQHpAf8BdgHcAf8BdgHcAf8BdgHc + Af8BdgHcAf8BdgHcAf8BdgHcAf8BdgHcAf8BdgHcAf8BaAHUAfkBSgHEAewBMgGzAd0BawGcAbcBkwF/ + AZ8BUgFsAbIBOgGKAeUBUAG5Af8BUAGtAesBUwFxAY8DswP4HgADmQHWAucB1gLnAdYC5wHWAucD6gFm + AZkBZgEAAYACAAGAAQABZgGZAWYBAAGAAgABgAIAAWYBAAP4A8ABkAGpAa0GZgNfA1UGTQMpHgADgAbA + AQABgAEAA8ABAAGAAgABgAIAAYACAAGAAgABgAIAAYACAAGAAQAGwBWAGAAB7gHaAc8B+QH6AfkB9gH6 + AfsB4QHBAbEBwgFfAS8BxgFjATIBygFmATQBzAFnATUBzAFnATQBzAFnATQBzAFmATMBzAFmATIBzQFi + ASwBygFgASsBygFfASoBywFjAS8BzAFmATMBzAFmATMBzAFmATQBywFmATQBygFlATMBxwFkATIBwAFe + AS0BxgF2AU0B6wHmAeMB8wL1AfYB7QHoAd0ByAG9DAABaAG9AdoBeQHRAfwBcAHGAeIB1gH2Af8BfAHi + Af8BfAHiAf8BfAHiAf8BgAHcAfcBjwHMAeIBlwHEAdcBjQG2AccBhgG8AdABgQHNAeYBfAHiAf8BfgHh + Af0BkQGfAbQBSwFpAbIBNgGJAeYBUAG6Af8BSwG4AfoBGQGPAcgBMgFiAXIDgAPnHgABkAGpAa0B1gLn + AdYC5wHWAucBmQHMAZkBAAFmAQAD+AFmAZkBZgEAAYABAAbMAWYBmQFmAQABZgEAA/gGwAN3BmYDVQZN + BikbAAOAA8ABAAGAAQADgAbAAQABgAIAAYABAAbAA4ABAAGAAQAGwBWAGAAB9AHlAdwB+QH6AfsD9AHQ + AYkBZQHDAV4BKwHKAWYBNQHNAWgBNgHNAWgBNQHMAWcBNAHMAWYBMwHMAWUBMgHKAWcBNQHLAZUBfAHp + AcABrAHqAcABqgHTAXwBUAHLAWIBLgHMAWYBMwHMAWYBMwHMAWcBNAHMAWcBNAHKAWUBNAHFAWMBMgG/ + AVwBKwHcAbYBowH0AfkB+wL2AfUB7wHaAc8MAAE7Aa0B0wF3AdAB+gEwAa4B2gH3Af0B/wGAAeYB/wGA + AeYB/wGPAcUB1QKxAbMB1AHFAbYB5wHVAbkB3wHJAakBywGxAZkBswGgAZgBnwGzAb4BlgHJAdcBhAGZ + AZ8BYAGNAcEBUgG5Af8BVQG/Af8BawHRAf8BawHYAfkBGQGJAasDWAPAA/kYAAOZA8wB1gLnAdYC5wGZ + AcwBmQEAAWYBAAP4AdYC5wPMAQABgAEABswBmQHMAZkBAAFmAQAD+AbAA3cGZgNfA1UGTQMpGAADgAPA + AQABgAIAAYABAAzAAQABgAEACcABAAGAAQAGwBiAEgAB4AHEAbYB+AHuAekB+gH9Af4B7QHcAdQBxgFm + ATYByAFmATQBzQFoATYBzQFoATYBzQFoATUBzAFmATMBzAFmATMBzAFlATIBxwFnATcBxwG6AbMG/wHa + AZEBawHKAV8BKQHMAWYBMwHMAWYBMwHMAWcBNAHMAWcBNAHLAWYBNAHIAWUBNAHBAVwBKAHOAYkBZgPx + AfcB+QH6AfIB3wHVAeABxAG2CQABTAG1AdoBeQHRAfkBJAGrAd4BzwHsAfUBrAHwAf0BlQG4AcMBzQG5 + AbEB9QHtAdUC/gHcAv8B2wL/AdgC/wHPAfkB7QG+AekBwAGfAbYBjQGHAZ4BlAGTAaUBzAHRAXUBzwH5 + AW4B1gH/AYYB7AH/AW4B1AH/AU8BzAHmATcBXQFqA44D7RgAA5kB1gLnAdYC5wGZAcwBmQEAAWYBAAGZ + AcwBmQHWAucDzAHWAucBZgGZAWYB1gLnBswBAAFmAQAD+AbABncGZgZVA00DKRgAA4ADwAEAAYACAAGA + AQAYwAEAAYABAAbAGIASAAHuAdgBzAH8AfgB9QH8Av8B5AG8AakBxgFiATABzAFpATgBzwFqATgBzgFo + ATYBzAFmATMBzAFmATMBzAFmATMBzAFmATIByAFlATMBwQGuAaUB/AH+BP8B4wGqAY0BygFdASgBzAFm + ATMBzAFmATMBzAFmATMBzQFnATQBzQFoATUBywFnATUBxQFgAS4BxwFzAUkB7QHkAd8B9wH5AfsB9QHm + Ad4B7gHYAcwJAAFgAb0B4AGAAdMB+wE7AbcB6gGAAcwB5gHAAcQBxwHMAbUBsAH8AfsB9wL/AfwC/wHr + Av8B4wL/AdoC/wHPAf8B/gHKAf8B9wHEAfABwwGdAcQBmwGTAZgB2wHlAYkB7gH+AYoB8AH/AYoB8AH/ + AW8B1QH/AZ0B+QH8ASIBfgGaA14DzwP8FQADmQHWAucB1gLnAZkBzAGZAQABZgEAA/gB1gLnAdYC5wPM + AdYC5wnMA8ADzAbAAZABqQGtA3cGZgNfA1UGTQMpFQADgAPAAQABgAIAAYABAAPAAQABgAEAG8AYgBIA + Ae8B2wHQAf4C/QH+Av8B3wGoAY4BygFlATIBzwFrATkB0AFrATgBzgFoATYBzAFmATMBzAFmATMBzAFm + ATMBzAFmATMBzAFjAS8BuAGMAXcB5AHqAewD/wH6AfEB7AHZAYwBZQHKAWABLAHMAWYBMwHMAWYBMwHM + AWcBNAHNAWgBNQHMAWgBNgHIAWQBMgHGAWkBOQHrAdsB0wH3AfoB/AH1AekB4wHvAdsB0AkAAWABvQHf + AYkB1wH8AU0BvwHyAUkBqAHNAcQBpwGcAfkB9QHhCP8B9gL/AesC/wHfAv8B0gH/AfMBvwH/AfIBvgH/ + AfQBwQHoAbwBngGoAcoBzgGQAfYB/wGQAfYB/wGQAfYB/wFwAdYB/wGxAv8BQgG/Ad8BQgFVAVsDngPy + FQADmQHWAucB1gLnAWYBmQFmAQABZgEAA/gD6gPMAdYC5wPMAdYC5wnMA8ADzAbABncDZgNfBlUDTQMp + FQADgAPAAQABgAIAAYACAAGAAgABgAEACcABAAGAAgABgAIAAYACAAGAAQAGwBiAEgAB8AHcAdEB/wL+ + A/8B3wGgAYEBzgFoATUB0gFuATwB0QFsAToBzgFpATYBzAFmATMBzAFmATMBzAFmATMBzAFmATMBzQFl + ATEBxgFoATkBuwGkAZkB8QH2AfgD/wH6AfEB7AHYAYsBZQHKAWABKwHMAWYBMwHMAWcBNAHOAWkBNgHO + AWkBNwHKAWYBNAHIAWkBOQHrAdcBzQH5AfwB/gH3AesB5QHwAdwB0QkAATYBrwHaAYsB2AH9AVYBxAH3 + AVYBlQG1AdcBwgGqAv8B5gL/AfAC/wH6Av8B+QL/Ae0C/wHhAv8B0wH/AfUBwQH/AeMBrwH/AfMBvwH7 + AeUBuAHFAbgBsQGYAfEB9gGUAfoB/wGUAfoB/wFyAdgB/wG7Av8BowHyAfkBIAFsAYYDaAPaA/4SAAGQ + AakBrQHWAucB1gLnAQABgAIAAWYBAAP4AdYC5wHWAucDzAHWAucBmQHMAZkBZgGZAWYBAAFmAQAD+APM + CcAGdwZmA18DVQNNAykSAAOACcABAAGAAgABgAIAAYABAAzAAQABgAIAAYACAAGAAQAGwBuADwAB8AHc + AdEC/gH9A/8B5AGnAYkB0gFsATkB1QFxAT8B0wFuATsBzwFpATYBzAFmATMBzAFmATMBzAFmATMBzAFm + ATMBzAFmATMBzQFkAS8BxQFoATkBxAGuAaIB9gH5AfsD/wH7AfEB7QHXAYcBXwHLAWIBLQHNAWcBNAHP + AWkBNwHPAWsBOQHMAWgBNgHKAWsBOwHuAdsB0gH8Av8B9wHsAeUB8AHcAdEJAAErAawB2QGFAdYB/QFf + AcgB+wF5AZYBqwHmAdoBugL/AeIC/wHlAv8B7wL/AfAC/wHoAv8B3QL/AdEB/wH0Ab8B/wHeAakB/wHl + AbIB/wH0AcMB1wG8AawBoQHtAe4BmQL/AZkC/wFzAdkB/wHDAv8BwwL/AUEBswHTAUsBVAFXA60D9g8A + A5kDzAHWAucB1gLnAQABgAIAAYACAAFmAgABZgEAA/gB1gLnAQABZgIAAWYCAAFmAgABgAEAA/gDwAPM + BsAJdwZmA1UDTQMpEgADgAbAAQABgAIAAYACAAGAAgABgAEACcABAAGAAgABgAIAAYACAAGAAQAGwBuA + DwAB8AHbAdAB/gL7A/8B7AG5AZ8B2AFyAT4B2gF2AUQB1gFxAT4B0AFrATgBzQFnATQBzAFmATMBzAFm + ATMBzAFmATMBzAFmATMBzAFmATMBzQFkAS4BxQFpAToB0QG9AbMB/AX/AfUB4AHXAc4BbQE8Ac0BZQEx + AdEBawE4AdIBbQE7Ac4BagE3Ac4BcQFDAfQB5QHeA/8B9wHqAeMB8AHbAdAJAAFZAb8B5gGMAdgB/wFm + AcwB/wGKAZ0BrwHuAeIBvAL/AdsC/wHdAv8B4wL/AeMC/wHfAv8B1gH/Af0BygH/Ae8BvAH/AdoBpwH/ + Ad0BqQH/AfgBxwHbAb8BrgGrAekB6gGjAv8BowL/AXUB2QH/Ac4C/wHOAv8BmwHmAfIBKgFjAXYDcwPj + DwADmQHWAucBAAGAAgABgAIAAYACAAGAAgABgAEAA/gB1gLnAdYC5wPMAQABZgIAAYACAAGAAQAD+APM + CcABkAGpAa0GdwZmA18DVQZNDwADgBLAAQABgAIAAYACAAGAAgABgAIAAYABAAPAAQABgAEABsAbgA8A + AesB1AHHAfwB9gHzA/8B+gHbAcsB3wF5AUYB4AF8AUoB2wF2AUQB0wFtATsBzgFoATUBzAFjAS4BywFh + ASwBygFgASoBywFkATABzAFmATMBzAFmATMBzQFjAS0BxAF0AUwB7AHnAeUF/wH+AdwBlAFwAc0BYwEv + AdIBbQE7AdQBcAE+Ac8BaQE2AdYBhQFcAfsB9QHzA/8B9QHkAdwB6wHUAccJAAFdAcEB5gGTAd4B/wFt + AdMB/wGKAZwBrgHqAdYBsAL/AdMB/wH+AdEC/wHXAv8B1wL/AdMB/wH9AcwB/wHzAb8B/wHmAbMB/wHd + AawB/wHnAbcB/wH5AcgB2wG/Aa8BtwLsAbMC/wGzAv8BeQHZAf8B1gL/AdYC/wHWAv8BLwGhAcMDUwO3 + A/gMAAOZAdYC5wHWAucBAAGAAgABgAIAAYABAAP4A+oB1gLnAdYC5wEAAWYCAAGAAQABZgGZAWYBAAGA + AQAD+APAA8wJwAl3BmYGVQNNDwADgBXAA4ABAAGAAgABgAEABsAP/xWAEgAB+AHsAeYD/wH+AfoB9wHs + AZEBYwHoAYIBTwHjAX4BTAHYAXIBPwHPAW8BPwHPAZABcQHaAaYBjQHnAbkBowHUAX0BUAHLAWIBLQHM + AWYBMwHMAWYBMwHKAWMBMAHhAc0Bwgb/AeQBsAGVAdABZwEzAdYBcgE+AdgBdAFBAdIBawE3AeUBqwGO + BP8C/gHwAdwB0QkAA/kBYAHBAeYBmgHiAf8BdAHaAf8BggGtAcQB2QG3AZkC/wHLAf8B+AHEAf8B9gHE + Af8B+QHHAf8B9gHDAf8B8QG9Af8B4wGxAf8B3QGvAf8B6AHFAf8B/AHZAfsB8AHGAdABvAGzAcEB9QH2 + AcAC/wHAAv8BfAHZAf8B4QL/AeEC/wHhAv8BjQHZAewBMAFfAXADgAPqDAADmQHWAucB1gLnAdYC5wEA + AYABAAGZAcwBmQP4AdYC5wHWAucBAAFmAgABgAEAAWYBmQFmA/gBAAGAAQAD6gPMDMAJdwZmA18GVQwA + A4AhwAb/D8AJ/w+ADwAB9AHiAdkG/wH7AckBrgHxAYcBUgHuAYoBVwHjAXwBSAHSAXYBSAHJAcIBvgHx + AfYB+QP/AesBwgGuAcoBXwEpAcsBYwEvAcsBYAEsAcoBcAFDAewB4gHdA/8B+QH8Af0B3wGlAYkB1QFt + ATgB3AF3AUUB3AF4AUYB2AF2AUQB+AHfAdMD/wH9AfoB+QHtAdgBzgkAAbsB4QHuAWQBwwHmAZUB5wH/ + AX4B5AH/AYEB0QHpAbEBlgGPAfgB4wG1Af8B+wHHAf8B6AGzAf8B4wGvAf8B4gGvAf8B5AGyAf8B2wGs + Af8B7gHZAf8B+wH1Av8B7wHqAdABtAHMAs0B0QL+AdEC/wHRAv8BgQHZAf8B6QL/AekC/wHpAv8B6QL/ + AS0BjwGvA1sDzAP8CQADmQHWAucB1gLnAdYC5wGZAcwBmQHWAucBmQHMAZkBAAGAAgABgAIAAYABAAFm + AZkBZgP4CcwDwAPMCcAMdwZmA1UDTQwAA4AbwAb/A8AVAAbACf8GgA8AAe0B1wHLAf0B+gH4BP8B9wHw + Af0BowF0AfwBlQFiAfQBjwFcAeQBewFHAcYBnwGMAfAB9QH3A/8B/gH9AfwB5gGyAZkB0gF3AUsB0QF/ + AVYB5AHHAbkB/AH+BP8C7QHsAdwBjwFqAd8BdgFBAeMBfwFNAeABdwFEAesBqwGKBv8B9gHpAeEMAAG7 + AeEB7gF0AckB6QGXAewB/wGFAesB/wGFAeoB/gGQAbUBwQHTAaYBiwH/AewBugH/AfYBwwH/AeYBsgH/ + AdkBpQH/AdwBrAH/AeoBwgH/AfwB7wP/AfQB6QHdAdUBswGrAe0B8QHyAe0C/wHnAv8B5QL/AYQB2QH/ + AfQC/wH0Av8B9AL/AfQC/wGJAdIB6QFAAVMBWQOXA/AJAAGQAakBrQHWAucB1gLnAdYC5wHWAucB1gLn + AdYC5wHWAucDzAHWAucDzAHWAucGzAzADPgGdwZmA18DVQNNCQADgBXABv8GwB7/AwAGwAb/EgAB9gHo + AeAH/wHjAdIB/wGjAW4B/wGjAXEB+gGVAWEB4AGKAV8BzQHGAcMB+gH9Af4G/wH8AfUB8QH7AfgB9gb/ + AfYB+wH9AeMBygG+AeYBgwFSAewBhgFTAesBgwFPAewBkwFmAf0B9QHuA/8B/gL8Ae8B2wHQDAABuwHh + Ae4BoAHbAfIBoQH0Af8BjwH1Af8BjwH1Af8BjwHxAfsBnQG0AbkB1AGoAZEB+QHgAbIB/wH2AcQB/wH1 + AcMB/wH2AcYB/gH8AdYB/gH7Ad8B6QHXAcoBpwGgAaMBdwG8AdEBYAG/Ad8BgAHMAeYBrwHfAe8BvwHm + AfIG/wH+Av8B/QL/AfwC/wHsAfkB/AEhAYABoAOOA+0GAAOZA8wB1gLnAdYC5wHWAucB1gLnAdYC5wHW + AucB1gLnAdYC5wPMAdYC5wPMCcAJ+AN3BpkDwAb4A3cGZgZVCQADgA/ABv8DwCEABv8DAAbABv8SAAHu + AdgBzQH9AfoB+Qf/AeEBwwH/AbUBgAH/AbQBgQH/AaIBbgHmAaEBfgHXAc4BywHuAfMC9QH5AfsB9wH7 + Af0B9wH7AfwB9wH6AfwB8QH2AfkB6QHYAdEB8QGcAXMB+AGSAV4B+gGTAWAB9gGUAWEB/gHiAdIG/wH3 + AekB4g8AAboB4AHtAaYB3QHyAagB+gH/AZYB/AH/AZYB/AH/AZYB/AH/AZYB+gH9AZ8B0AHSAb4BrgGn + Ad4BwwGqAegB1QG1AeAB0QGyAdUBxQGoAcIBrQGdAaYBtAGyAZoB6gHtAZYB/AH/AZYB/AH/AY0B9gH8 + AXEB5AHyAV8B2AHsARMBpgHSASUBjwGxAWcBvgHaAXABxgHiAYABzAHmAb8B5gHyATIBpAHKA9sD/AYA + A5kB1gLnAdYC5wHWAucB1gLnAdYC5wHWAucB1gLnAdYC5wPMCcAJ+AMpA2YDdwaZBsABkAGpAa0DwAb4 + BmYDTQYAA4AMwAb/BsAq/wMABv8GgBUAAfIB4AHWCv8B6wHUAf8B0AGcAf8BywGXAf8BuwGHAfcBswGJ + AekBvwGqAd0BxgG+AdcBxwHAAdcBxwHAAd8ByQG/AfABwQGpAfwBqQF8Af8BowFwAf8BpAFvAf8BrgF+ + Af8B6AHXBv8B/AH3AfUB6gHVAcoPAAGtAdwB7AGqAd4B8gGsAf0B/wGZAv8BmQL/AZkC/wGZAv8BmQL/ + AZkC/wGZAv8BmQL/AZkC/wGZAv8BmQL/AZkC/wGZAv8BmQL/AZkC/wGZAv8BmQL/AZkC/wEmAbMB2QNY + A+cDAAHfAfIB+AG9AeMB8AHaAe0B8wP8CQADmQHWAucB1gLnAdYC5wHWAucB1gLnA+oJwAn4BhwDKQNf + A3cGmQbAAZABqQGtA8ABkAGpAa0GwAb4A1UGAAOABsAG/wmABv8hAAb/AwAGgB4AAfYB6AHgCv8B/AHt + Af8B7wHGAf8B6QG0Af8B3QGmAf8B0QGbAf8BxgGWAf4BvwGPAf0BvQGMAf8BvQGLAf8BuwGHAf8BvAGG + Af8BwgGOAf8B0QGvAf8B/AH4Bv8B/gL9AfAB3AHREgAB3wHyAfgBdQHJAeYBzAH7Af8BmQL/AZkC/wGZ + Av8BmQL/AZkC/wGZAv8BowH+Af8B1wH7Af8B1wH7Af8BwwH8Af8BuAH9Af8BrgH+Af8BngL/AZkC/wGZ + Av8BmQL/AZkC/wGZAv8BJgGzAdkDWwPnGAADmQPqAdYC5wHWAucJwAn4DBwDIgNmA3cGmQbAAZABqQGt + A8ABkAGpAa0DwAGQAakBrQbABmYGAAOABv8PgC3/KgAB9gHnAeAO/wHtAf8B/QHlAf8B+wHRAf8B9gHD + Af8B7wG7Af8B6AG1Af8B5AGxAf8B5gG3Af8B6wHNAf8B9gHoCf8B/QH5AfgB8AHcAdIYAAFNAbYB2QHj + AfQB/AGkAv8BmQL/AZkC/wGZAv8BmQL/AZkC/wHiAfsB/wF9AcUB3QFmAbUB0AFoAcEB3wF5AcoB5gGI + AdAB6QG1AeIB8gHOAe4B+QHcAfwB/wHRAfwB/wHGAf0B/wGwAf4B/wE7AbkB3AN8A+oYAAOZCcAJ+BIc + AykDZgN3BpkGwAGQAakBrQPAAZABqQGtA8ABkAGpAa0JZgwAA4AD/xKABv8YAAb/CYAtAAHzAeAB1gH8 + AfcB9RH/Af0C/wH9Av8B/AL/AfwC/wH9DP8B+AHuAegB7gHZAc4bAAG/AeUB8gF7AcsB5gHsAf0B/wHh + Af0B/wHKAf4B/wHDAf4B/wGxAv8B1QH+Af8BuQHkAfIBVAGNAaAD5AYAAc8B6wH1AbwB4gHvAXwByAHi + AWsBwAHdAWoBwgHfAVoBvAHdAWsBxAHiAUsBtQHYA+obAAOZCfgYHAMpA18DdwaZBsABkAGpAa0DwAGQ + AakBrQlmFQADgAb/D4Ah/zwAAewB1gHKAfUB5gHeAfwB+AH0G/8B/gH8AfsB+gHxAewB8gHfAdUB1wG9 + AbEhAAFgAb8B3wF7AccB4QFPAbcB2wFwAcYB4gGAAcwB5gGvAd8B7wG/AeYB8gFCAasBzQPhA/48AAOZ + AyIbHAMpA18DdwaZBsABkAGpAa0JZiEABoAJ/waAIf8DgAP/A8A5AAHqAdQBxwHzAeAB1QH2AekB4QH6 + AfIB7gH9AfoB+QH+AfwB+wH+AfwB+wH8AfcB9gH5Ae4B6QH1AeUB3QHuAdoBzwHgAckBvTMAAd8B8gH4 + Ab0B4wHwAbsB4QHuAekB8gH1A/5CAAmZEhwDKQNmA3cGmQPACWYwAAmAA/8DgCH/A4ADwEUAAecBzgHB + AfAB2wHQAfAB3AHRAfAB3AHRAe4B2QHNAd4BwQGylgAJmQkcA2YDdwaZBmZCAAaAIf8DgPkAFZlLACeA + /wBRAAGCAaMBuAE+AaQB+QEWAXwBxAEtAXIBmwGfAY4BmVcAA/wDwQNpA042UANOA2nSAAG1Ad0B/QFZ + Ab8B/wE+AaQB+QEWAXwBxAEtAXIBmwGfAY4BmQGkAoYzUANOA2kYAAP7A7UD/wP7AfkC9wH0AvMB8ALv + Ae4D6wLqAecD5APhAt8B3gPaAtUB1gHUAdIB0QLMAc0DxwLBAcICvAG+AbYBtQG7ArQBtwKvAbIBqQGq + AcICuxsAMICKAAG1Ad4B/QFZAb8B/wE+AaQB+QEWAXwBxAEtAXIBmwGfAY4BmQGkAoYB8ALvAe4D6wLq + AecD5APhAt8B3gPaAtUB1gHUAdIB0QLMAc0DxwLBAcICvAG+AbYBtQG7ArQBtwKvAbIBqQGqAcICuxgA + A/sDtgH8AvsB9wL2AfMC8gHwAu4B7APqA+gC5gOBAdACzgG2ArIBegJ5AWICXwF1AnIBlAKPAVMCTwGa + ApYBVgJSAVgCVAGoAp8BVgJUAYECeQG3Aq8bADCAJwAD6QbnA/MwAAP+A/MD7SEAAbUB3gH9AVkBvwH/ + AT4BpAH5ARYBfAHEAS0BcgGbAZ8BjgGZAaQChgHqA+gC5gOBAdACzgG2ArIBegJ5AWICXwF1AnIBlAKP + AVMCTwGaApYBVgJSAVgCVAGoAp8BVgJUAYECeQG3Aq8YAAP7A7YB+AL3AfMC8gHxAu8B7QPrA+kC5wHo + AuUBnwKbAWUCYwFmAmQBVgJTAcQCvwFcAlkBYQJfAbYCrwNFAX4CegGbApYBMwExATABcgJuAbACqgG3 + ArAbAAaADAAegCQAA+cDdgNZA2QDogPzKgAD+APYA6QDlAPtHgAD+wG1Ad4B/QFZAb8B/wE+AaQB+QEW + AXwBxAEtAXIBmwGfAY4BmQGlAowB6ALlAZ8CmwFlAmMBZgJkAVYCUwHEAr8BXAJZAWECXwG2Aq8DRQF+ + AnoBmwKWATMBMQEwAXICbgGwAqoBtwKwGAAD+wO2AfUC9AG3AbUB4AF2AXUB7AGSAZAB5wHqAugB6QLn + AekC5gHHAsQBYwJhAYMCggFoAmcBxALAAWUCYgFjAmABvQK3AUkCRwGJAoUBowKfAToBNwE4AW0CaAFE + AkMBtwKvGwAGgAwAHoAhAAP+ATQBDgHeASkBAAHfASkBAAHfATUBIQGRA3AD4ScAA+0BsAGuAbsBTgE6 + AaoBMwEVAbwDcQPnHgAD+wO2AbUB3gH9AVkBvwH/AT4BpAH5ARYBfAHEATEBcQGXAoUBhwOjAbQCsgGl + ApYBlwKCAZoChAGkAo8BnAKMAZwCmgG9ArcBSQJHAYkChQGjAp8BOgE3ATgBbQJoAUQCQwG3Aq8YAAP7 + A7YB8gLwAbgBtgHqAX0BfAHnAYgBhwHpAYQBgwHkAeoC6AHqAucB4gLeAWYCZQGJAoYBuQK0ATwCOwFg + Al8BkQKPAUECPgGcApcBTQJKAUUCQgGoAqQBXgJbAVgCVQG3Aq8bAAaADAAegCEAAfAB7gH8ASkBAAHf + ASkBAAHfASkBAAHfASsBCAHKA1IDrQP1IQAD5AGBAXcBrwEwAQwBzwEpAQAB3wEpAQAB3wPCA/seAAP7 + A7YB8gLwAbUB3gH9AVkBvwH/AUYBpQH0AXYBiQSYAawClwGvAYMBfQHdAboBmgHsAdYBrQH/AfkBxgH1 + AesBxAHpAdUBugHMAaUBmwGRAngBnAKXAU0CSgFFAkIBqAKkAV4CWwFYAlUBtwKvGAAD+wO2Ae8C7gHs + AuoBmwGZAegBogGgAeYCcAHmAaoBpwHnAesB6ALpAuUBQwFBAUIBZwJmAekC5QHKAsUBTAJJAewC5QHL + AscB0wLNAVYCUwHVAtIB2wLUAb0CtAG8ArcBxAK+GwAGgAwAHoAhAAHxAe8B/AFQAS8B5AEpAQAB3wEp + AQAB3wEpAQAB3wE4ASkBfANrA9ED/hgAA/4D3QFeAUoBuQEpAQAB3wEpAQAB3wE8ARsB0AG2Aa8B2QP5 + IQAD+wO2Ae8C7gHsAuoBwwHkAf0BWQG/Af8DpgGhAoEB3gGwAZMB/wHjAbIB/wH3AckB/wH9Ac4C/wHW + Av8B2AL/AdkC/wHgAecB1wHEAaABfAF5AZECjgHVAtIB2wLUAb0CtAG8ArcBxAK+GAAD+wO2Ae4B7ALr + AukB6gHnAegBsgGwAegBoAGeAecBXAFbAecB3AHaAesB9gHxAeoBlAKRAbICsAHpAuUB6wLnAV4CXQHp + AucB5QLhAcoCxgFuAmwB6QLlAdECzAHKAsQBxQK/AdMCzRsABoAMAB6AJAAB1gHPAfgBNQEPAd8BKQEA + Ad8BKQEAAd8BKgEEAdUBRQFDAVEDhgPgFQAD/APSAUkBMAG6ASkBAAHfASkBAAHfAVUBPAHHAdgB1gHj + A/4kAAP7A7YB7gHsAusC6QHqAecB6AHlAuMBwwKwAeIBsAGTAf8B5QG2Af8B+QHJAf8B9wHEAv8B0QL/ + AdsC/wHkAv8B6QL/AfwB5QLhAekB3AHOAY8CbwHlAuMB0QLMAcoCxAHFAr8B0wLNGAAD+wO2AewC6QHq + AugB6wLoAesC6AHkAeEB6QGHAYYB6AF8AXsB6QHoAeYB7wHxAu8B8ALuAe8C7QHvAu0B7gPsAuoB6QHm + AuUC4gHhAt0B2wLYAaABnQHTAXABbQHWAckCwgHVAtAbAAaADAAegCcAAdYBzwH4ATUBDwHfASkBAAHf + ASkBAAHfAS4BEAG2A1ADmgPpDwAD/AHHAcUB0gE5ARgBzQEpAQAB3wEpAQAB3wFpAVUBxQPqKgAD+wO2 + AewC6QHqAugB6wLoAeUC4wHTAagBnQH/Ad8BsAH/AfgBxgH/AeoBtwH/AfoBxwL/AdUC/wHhAv8B7QL/ + AfUB7ALqAekB5gHlAv8B6wHEAaQBlQGLAoIBoAGdAdMBcAFtAdYByQLCAdUC0BgAA/sDtgHqAugB6QLn + AeoC6AHsAukB7QLqAdkB2AHrAkwB6AGjAaIB7AGsAasB6QGuAa0B6gHIAcYB6wHdAdwB7AHuAewB7QHu + A+wC6gHIAcUB5QGSAZEB4gGDAYEB4QGBAX8B3gGPAYwB1gHLAsYB1ALRGwAGgAwAHoAqAAHJAb8B9gEp + AQAB3wEpAQAB3wEpAQAB3wEzARwBmQNZA6sD8AkAA/wBxwHFAdIBOQEYAc0BKQEAAd8BKQEAAd8BegFr + Ab4D7S0AA/sDtgHqAugB6QLnAeoC6AHqAt8B6gHAAaAB/wH4AcoB/wHkAbIB/wHpAbYB/wH8AckC/wHX + Av8B4wL/Ae8C/wH6Av8B+gL/AfQC/wHaAfMB7QHIAYkCbQGBAX8B3gGPAYwB1gHLAsYB1ALRGAAD+wO2 + AekB5gHnAegC5gHpAucB6wLpAe4C6wHwAu4BjgGNAe4CWAHmAeEB3wHuAcMBwgHuAZ0BnAHpAYwBiwHr + AYMBggHnAWoBaQHoAWEBYAHoAjIB6gFYAVcB5wGBAX8B4wF8AXsB3gGKAYcB2QHOAskB1wLTHgAqgDAA + Aa4BnwHyASkBAAHfASkBAAHfASkBAAHfATcBKAF8A2EDuQP1AwAD/AHHAcUB0gE5ARgBzQEpAQAB3wEp + AQAB3wF6AWsBvgPtMAAD+wO2AekB5gHnAegC5gHpAucB3ALDAfsB4QG2Af8B9wHFAf8B3QGqAf8B6QG2 + Af8B+gHHAv8B1AL/AeAC/wHqAv8B8QL/AfAC/wHoAv8B2gL/AdMBnAF6AXUBfAF7Ad4BigGHAdkBzgLJ + AdcC0xgAA/sDtgHtAusB5QLjAegC5gHqAegB6QHtAesB7AHwAu8C5AHwAlcB6gG0AbMB7AHwAu4B7wLt + AekB5wHtAmwB6QJZAewBnQGcAegBsAGvAeoBrwGtAeoBpwGlAeYBswGwAd0B1wLTAdEBzAHLAdYC03sA + Aa4BnwHyASkBAAHfASkBAAHfASkBAAHfATsBMQFoA2sDwAPzAccBxQHSATkBGAHNASkBAAHfASkBAAHf + AXoBawG+A+0zAAP7A7YB7QLrAeUC4wHoAuYB2QK7Af8B6gG6Af8B8wHAAf8B1gGjAf8B5QGyAf8B8wHA + Av8BzwL/AdkC/wHhAv8B5gL/AeUC/wHgAv8B1QH/Af0BzgGzAYoBfgGzAbAB3QHXAtMB0QHMAcsB1gLT + GAAD+wO2AeoC5wHiAuAB5gLjAekC5wHsAeoB6wHwAu8B8ALvArYB7wJeAecB8ALuAe8C7QF0AXMB5gGJ + AYgB6wHtAesB7QHvAu0B7gLsAegC5gHjAuAB3QLZAdcC0gHWAtAB1gLRfgABrgGfAfIBKQEAAd8BKQEA + Ad8BLAEGAdYBPgE3AWADawGdAZsBqQE4ARcBzAEpAQAB3wEpAQAB3wF6AWsBvgPtNgAD+wO2AeoC5wHi + AuAB5gLjAdsCvgH/AewBvgH/AfQBwQH/AdwBrAH/Ae8BwQH/AfQBwQH/AfwByQL/AdAC/wHWAv8B2AL/ + AdgC/wHVAv8BzwH/AfUBxwGpAYEBeAHdAtkB1wLSAdYC0AHWAtEYAAP7A7YB6gLnAeIC4AHmAuMB6QLn + AesC6QHvAe0B7gHxAvAB6QHoAe8CWQHpAdgB1wHtAbcBtgHrAmQB6gHxAe8B7gHwAu4B8ALuAewC6gHn + AuQB4gLeAdsC2AHVAtEB1QLPAdUC0IEAAa4BnwHyASkBAAHfASkBAAHfAS0BBwHYATwBMgFqAS8BDwHD + ASkBAAHfASkBAAHfAXoBawG+A+05AAP7A7YB6gLnAeIC4AHmAuMB7gLgAfEB1QGwAf8B+gHNAf8B9QHV + Af8B3gGrAf8B4AGtAf8B8QG+Af8B+AHFAf8B/AHKAf8B/QHMAf8B/QHMAf8B+wHIAf8B/AHNAf8B6QG2 + AZYCdAHbAtgB1QLRAdUCzwHVAtAYAAP7A7YB5gLjAeEB3QHeAeMB4AHhAecC5AHqAegB5wHuAuwB8QLw + AfEC8AKOAe8BggGBAeYBbQFsAeoBwQHAAe4B8ALvAfAC7gHvAu0B6gLnAeUC4gHfAdwB2wHZAtUB0wLO + AdMCzQHUAtCEAAHWAc8B+AE1AQ8B3wEpAQAB3wEpAQAB3wEpAQAB3wEpAQAB3wFVAUYBmQPbPAAD+wO2 + AeYC4wHhAd0B3gHjAeAB4QHlAuMB2wG1AaIB/wH3AdMB/wH8Ae8B/wH7Ae4B/wHpAcAB/wHeAasB/wH0 + AcIB/wHsAbkB/wHtAboB/wHtAboB/wHxAb4B/wHzAccB2wG0AZQBsQKkAdkC1QHTAs4B0wLNAdQC0BgA + A/sDtgPgAd8B3AHdAeIB3gHfAeUC4wHnAeQB5QHrAugB7gLtAeoC5wHYAdcB7QJMAegBiQGIAesB8ALv + AfAC7w8AAdMCzgHTAs4B0wLOAdMCzoQAA/wBkAGBAdUBKQEAAd8BKQEAAd8BKQEAAd8BLwERAbgDVQOr + A+k5AAP7A7YD4AHfAdwB3QHiAd4B3wHlAuMB2QK8AfMB4AHAAe4C7QHvAu4B/wHzAdoB/wHlAbYB/wHn + AbgB/wHdAaoB/wHfAawB/wHpAbYB/wH6AcwB+gHTAaQBrQGEAX8B6QLoAdcC0gHRAssB0QLLAdQCzhgA + A/sDtgPdAdwB2wHaAeEC3gHkAuEB4wLhAecB5AHlAeoC5wHqAucB6gLnAW0BbAHqAbcBtgHrAfAC7wQA + Bf8BAAKAAQACgAEAAoADAAHTAs4B0wLOAdMCzhgANv8zAAP8AccBxQHSAS4BCAHZASkBAAHfASkBAAHf + ASkBAAHfASkBAAHfAT8BMAGDA1kDmgPjA/4zAAP7A7YD3QHcAdsB2gHhAt4B5ALhAeUC4wHOAagBngH2 + Ae8B4gL/Af4B/wH6AeUB/wH5AdUB/wHmAbMB/wHoAbUB/wH0AcIB/wHxAcIB+gHQAaIBuQGLAYIB4QLe + AdgC1AHTAc4CzQLGAc4BxwHIAc4BywHJGAAD+wO2AdgB1QHUAdoC1wHfAtwB4QLeAd8C3AHjAeAB3wHm + AuMB6gLnAeoC5wwAA/8BAAL/AQACgA8AAdMCzhUAPP8tAAP8AccBxQHSATkBGAHNASkBAAHfASkBAAHf + AVEBOAHCAUsBKgHfASkBAAHfASkBAAHfAT0BJwGkA1MDkgPXA/swAAP7A7YB2AHVAdQB2gLXAd8C3AHh + At4B3wLcAeUC4wHOAa4BqwHbAbsBnwH5AekBvwH/AfMBxAH/AfEBwQH/Ae8BwAH/AeUBtwHlAboBmgG+ + AZIBiwHrAugB2QPUAc4BzQHOAsgBxwHBAcIBygHDAcQBzALGGAAD+wO2AdACyQHSAs4B2QLVAdwB2QHa + Ad8C3AHjAeAB3wHmAuMB6gLnAQACgAEABf8HAAX/BAAF/wEAAoABAAKAAQACgBgAPP8qAAP8AccBxQHS + ATkBGAHNASkBAAHfASkBAAHfAVEBOAHCA+EDAAF5AWAB6wEpAQAB3wEpAQAB3wE+ASUBsAFMAUoBWAN9 + A8kD9S0AA/sDtgHQAskB0gLOAdkC1QHcAdkB2gHfAtwB4wHgAd8B5gLjAfIC6gHHAqoBtAGJAXwBwwGX + AYsB2AGrAZ8B0wGxAa4B5QLZAeUC4wHeA9kD1AHOAc0BzgLIAccBwQHCAcUCvgHHAr8DAAFZAVgBswIB + AU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIB + AU0BAAKAA/8BAAX/AQAF/wEAAv8BAAX/AQAC/wEAAoABAAKAAQACgBgAPP8nAAP8AccBxQHSATkBGAHN + ASkBAAHfASkBAAHfAUsBMgG9A94JAAGuAZ8B8gEpAQAB3wEpAQAB3wE2ARUBygFIAUMBXwNrA7MD6hUA + AVkBWAGzAgEBTQIBAU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIB + AU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIBAU0CAQFNAeEB3QLcA9cB0gHTAdICzQHMA8cCwQHCArsBvQK2 + AagCpQMAAYgBhwH9ATcBNgH/ATsBOAH/AToBOAH/ATgBNAH/ATIBMAH/ASwBKQH/ASgBJQH/ASQBIAH/ + AR4BGwH/ARkBFwH/ARgBFQH/ARMBDwH/ARABDQH7AQ0BCgH4AQsBCAHyAQ8BDAH3AQ8BDAH3AwAD/wEA + Av8BAAKAAQACgAQAAv8BAAL/BAACgAYAAbIBqQGqFQA8/yQAA/wBxwHFAdIBOQEYAc0BKQEAAd8BKQEA + Ad8BPgEgAccD1AP+DAAB1gHPAfgBNgEQAeEBKQEAAd8BLgEIAdkBRQE4AX4DWwOaA+AD/g8AAYgBhwH9 + ATcBNgH/ATsBOAH/AToBOAH/ATgBNAH/ATIBMAH/ASwBKQH/ASgBJQH/ASQBIAH/AR4BGwH/ARkBFwH/ + ARgBFQH/ARMBDwH/ARABDQH7AQ0BCgH4AQsBCAHyAQoBBwHrAQgBBQHhAQYBAwHXAQYBAgHKAQQBAQHJ + AgEBTQHSAc4BzAHRA80DyQLEAcMBvQK+AbkBuAG9AbkBuwGmAqQBpQKkAwABigGJAf0BMwExAf8BKwEp + Af8BLgEqAf8C3wH/ATIBMAH/ATABLQH/ASoBJwH/AtsB/wLdAf8B3QHcAf8BWwFZAf8BEwEPAf8B3AHb + Af8BDQEKAfgBDAEJAfQBDwEMAfcHAAL/AQACgAEAAv8BAAKAAQACgAMAA/8kADz/IQAD+AHGAcQB0QE5 + ARgBzQEpAQAB3wEpAQAB3wE2ARUBygHEAcIB0AP8EgAB8QHvAfwBXgFAAecBKQEAAd8BKQEAAd8BPgEo + AaUDUgOGA+ED/gwAAYoBiQH9ATMBMQH/ASsBKQH/AS4BKgH/AS4BKwH/AuAB/wEwAS0B/wEqAScB/wEk + ASAB/wLdAf8B3QHcAf8C3AH/AV8BXQH/ARABDQH8AdsB2gH+AQwBCQH0AQoBBwHsAQgBBQHjAQcBBAHb + AQYBAwHOAQQBAQHJAgEBTQG4ArUBtwK0Aa8DrAKqAasCqQGqAqcBoQKgA5kDxAMAAY4BjQH9ATwBOAH/ + ATEBLgH/ASkBJgH/At8B/wEyATAB/wEfARsB/wEdARkB/wLbAf8BHgEbAf8BHwEcAf8B3AHbAf8BEwEP + Af8B3AHbAf8BDQEKAfgBDwEMAfcBAAKAA/8BAAX/AQACgAQAAv8BAAKABAAF/wEAAv8BAAKAAQACgAEA + AoAVADz/HgAD9QGyAbABvQE2ARYBywEpAQAB3wEpAQAB3wEtAQcB2AG2AbQBwQP5GwABhgFwAe0BKQEA + Ad8BKQEAAd8BOQEbAcIBYwFhAW8DzgP5DAABjgGNAf0BPAE4Af8BMQEuAf8BKQEmAf8BIQEeAf8B3gHd + Af8BHwEbAf8BHQEZAf8BIQEdAf8B3gHdAf8BHwEcAf8BGgEXAf8C3AH/ARIBDwH9AtsB/gEPAQwB9wEN + AQoB8QELAQgB6gEJAQYB4AEIAQUB1gEGAQIB0AIBAU0BvwK8A7UDjQOOA40DoQPBA9YDyQMAAZIBkAH9 + AUABPgH/ATcBNAH/ASwBKQH/At8B/wLdAf8BfwF9Af8BHQEZAf8C2wH/AR4BGwH/ARkBFwH/AdwB2wH/ + ARMBDwH/AdwB2wH/AdwB2wH+AX8BfQH/AQACgAEABf8BAAL/AQACgAMAA/8BAAKAAwAD/wEABf8BAAKA + AQACgAEAAoAVADz/GwAD+wGcAZIByQExAQ0B0AEpAQAB3wEpAQAB3wEsAQYB1gGTAYwBtQPyIQABuwGv + AfQBNQEPAd8BKQEAAd8BmwGRAcgD8A8AAZIBkAH9AUABPgH/ATcBNAH/ASwBKQH/ASYBIgH/At0B/wHd + AdwB/wF8AXoB/wERAQ0B/wLbAf8BGQEXAf8BHAEZAf8B3QHcAf8BFQESAf0B3AHbAf4C2wH+AYYBhQH6 + AQ0BCQHuAQoBBwHmAQkBBgHdAQcBBAHYAgEBTQG1ArIDpwP/Cf4D4APHA/YDAAGWAZMB/AFKAUcB/wE/ + AT0B/wEzATEB/wLfAf8BMgEwAf8C3AH/AR0BGQH/AtsB/wEeARsB/wEKAQcB/wHcAdsB/wETAQ8B/wHc + AdsB/wENAQoB+AESAQ8B+gEPAQwB9wEAAoABAAKAA/8BAAKAA/8BAAKAAQACgAQAAv8kADz/GwABxwHA + AeoBLgEIAdkBKQEAAd8BKQEAAd8BKQEAAd8BbwFgAbQD6ScAAfEB7wH8Aa0BngHxA/YSAAGWAZMB/AFK + AUcB/wE/AT0B/wEzATEB/wEqAScB/wLeAf8BHAEZAf8C3AH/ARIBDgH/AdsB2gH/AQoBBwH/AQ4BCgH/ + AdwB2wH/ARcBFAH/AtwB/wESAQ8B+gEQAQ0B9wEOAQsB8QEMAQkB7AELAQgB4wEJAQYB4AIBAU0BswKw + A58D/gb/A90DwwPcBgABmQGXAfwBUwFRAf8BSgFHAf8BPQE7Af8C3wH/At8B/wF/AX0B/wEdARkB/wLb + Af8C2wH/AdsB2gH/AVsBWQH/ARMBDwH/AdwB2wH/AdwB2wH/AtsB/wEPAQwB9wEPAQwB9wEAAoABAAX/ + AQACgAEAAoAEAAX/BAACgB4APP8bAAFMASsB4AEpAQAB3wEpAQAB3wEpAQAB3wFSATsBuAPgRQABmQGX + AfwBUwFRAf8BSgFHAf8BPQE7Af8BMgEvAf8C3wH/Ad4B3QH/AX8BfQH/ARQBEAH/AtsB/wHbAdoB/wHb + AdoB/wFbAVkB/wESAQ4B/wHcAdsB/wLbAf8C2wH+AQ0BCgH3AQsBCAHyAQoBBwHrAQkBBgHpAgEBTQGt + AqoDowb/A+ADxwPdA/4GAAGYAZYB/AFlAWIB/gFgAV0B/gFTAVEB/wFKAUcB/wFBAT4B/wE7ATcB/wEy + AS8B/wErASkB/wErASgB/wEqAScB/wEpASYB/wEpASUB/wEoASQB/wEnASMB/wEjAR8B/wEPAQwB9wEA + AoABAAX/AQAF/wEABf8BAAL/AQAF/wEAAoABAAKAAQACgBgAPP8bAAEpAQAB3wEpAQAB3wEpAQAB3wE9 + AR8BxQPSA/5FAAGYAZYB/AFlAWIB/gFgAV0B/gFTAVEB/wFKAUcB/wFBAT4B/wE7ATcB/wEyAS8B/wEr + ASkB/wErASgB/wEqAScB/wEpASYB/wEpASUB/wEoASQB/wEnASMB/wEjAR8B/wEeARsB/wEcARkB/gEa + ARcB/AEaARcB+QEWARMB/QIBAU0BpgKjA6wD/wPdA8YD3AP+CQABiwGKAf0BlgGTAfwBkAGPAf0BiwGK + Af0BiAGHAf0BhQGDAf4BgAF/Af4BgAF9Af4BfQF6Af8BewF4Af8BegF3Af8BdgF0Af8BdgF0Af8BcwFx + Af4BcgFwAf4BcQFvAf0BcQFvAf0BAAKAA/8BAAL/BgAD/wEAAv8DAAP/AQAC/wEAAoABAAKAAQACgBgA + PP8bAAF5AWAB6wE1AQ8B3wFBAR0B3wHdAdsB6AP+SAABiwGKAf0BlgGTAfwBkAGPAf0BiwGKAf0BiAGH + Af0BhQGDAf4BgAF/Af4BgAF9Af4BfQF6Af8BewF4Af8BegF3Af8BdgF0Af8BdgF0Af8BcwFxAf4BcgFw + Af4BcQFvAf0BcQFvAf0BcAFuAf0BcAFuAfwBcAFuAfsBbwFtAfsBUgFPAbkBnAKZA7cD4APHA+ED/iEA + A/sDtgGuAqYBrwGpAacBrgKoAa8BpwGqAbQCrgGzAq0BtAKuAbQBsAGxAbQBsAGxAQACgAEAAoAEAAKA + AQAF/wEAAoAnADz/hwAD+wO2Aa4CpgGvAakBpwGuAqgBrwGnAaoBtAKuAbMCrQG0Aq4BsgKsAbICrQGv + AqsBrgKoAawCqAGvAqsBmwKZA8QDyAPxA/8kAAP7A7YBsgKqAa8BqQGoAbACqQGvAqkBtAKuAbQCrwG0 + AbABsQG0AbABsQG0AbABsQG0AbABsQG0AbABsQO2AQACgAP/AQAC/wEAAoABAAKAAQACgOQAA/sDtgGy + AqoBrwGpAagBsAKpAa8CqQG0Aq4BtAKvAbQBsAGxAbUCsAGzAa4BrwGxAqwBrgGpAasBrgKqAbcCtQGr + AqoD1gP+A/8nAAP/A/cD7QPqA+sD7QPsBu0S/wEAAoABAAKA7QAD+wP3A+0D6gPrA+0D7AbtBu4D7QP1 + A/kD/gn/GwBU/xUAAYIBowG4AT4BpAH5ARYBfAHEAS0BcgGbAZ8BjgGZSABU/2wAVP8VAAG1Ad0B/QFZ + Ab8B/wE+AaQB+QEWAXwBxAEtAXIBmwGfAY4BmQGkAoYzUANOA2kJAFT/DAABwAHHAeUBMwFLAagBBgEi + AZUBCAEkAZQBCQEmAZcBCwEnAZcBCwEnAZcBDQEpAZcBDQEoAZUBDAEoAZkBCwEoAZkBDAEoAZsBDAEp + AZ0BCwEpAZ0BCQEmAZoBCAEmAZsBBgElAZ0BBgEmAaABBQElAZ8BBAEjAZsBAwEjAZ8BAgEjAaEBAgEi + AaABAAEhAaABAAEgAZ0BAAEeAZcBLwFHAaQBrwG3AdkGAAb/AYUBtwKFAbcBhQEPAW8CDwFvAQ8BFgF0 + AhYBdAEWARoBdgIaAXYCGgF2AhoBdgEaARgBeAIYAXgBGAEXAXkCFwF5ARcBEwF9AhMBfQETAQ0BfwIN + AX8BDQEKAX4CCgF+AQoBBwF8AgcBfAEHAQIBewICAXsBAgEAAXACAAFwAQABfwGwAn8BsAF/Bv8SAAG1 + Ad4B/QFZAb8B/wE+AaQB+QEWAXwBxAEtAXIBmwGfAY4BmQGkAoYB8ALvAe4D6wLqAecD5APhAt8B3gPa + AtUB1gHUAdIB0QLMAc0DxwLBAcICvAG+AbYBtQG7ArQBtwKvAbIBqQGqAcICuwMABv8BfwGwAn8BsAF/ + AQABcAIAAXABAAECAXsCAgF7AQIBBwF8AgcBfAEHAQoBfgIKAX4BCgENAX8CDQF/AQ0BEwF9AhMBfQET + ARcBeQIXAXkBFwEYAXgCGAF4ARgBGgF2AhoBdgIaAXYCGgF2ARoBFgF0AhYBdAEWAQ8BbwIPAW8BDwGF + AbcChQG3AYUG/wMAAcAByAHqAQYBJwGsAQsBLQGzAQ8BMAG1ARMBMwG0ARYBNwG4ARkBOAG4ARoBOQG4 + ARsBOgG4ARoBOgG3ARkBOQG4ARkBOQG5ARgBOQG5ARcBOQG5ARUBNwG4ARMBNwG8ARIBNwG9AQ8BNQG+ + AQ0BNAHAAQwBNAHBAQoBMQG+AQgBLwG9AQYBLgG/AQMBLAG/AQIBKwHAAQABKQG7AQABJgG2AQABIgGp + AQABHQGUAa8BtwHZAwAG/wGFAbcChQG3AYUBDwFvAg8BbwEPARYBdAIWAXQBFgEaAXYCGgF2AhoBdgIa + AXYBGgEYAXgCGAF4ARgBFwF5AhcBeQEXARMBfQITAX0BEwENAX8CDQF/AQ0BCgF+AgoBfgEKAQcBfAIH + AXwBBwECAXsCAgF7AQIBAAFwAgABcAEAAX8BsAJ/AbABfwb/FQABtQHeAf0BWQG/Af8BPgGkAfkBFgF8 + AcQBLQFyAZsBnwGOAZkBpAKGAeoD6ALmA4EB0ALOAbYCsgF6AnkBYgJfAXUCcgGUAo8BUwJPAZoClgFW + AlIBWAJUAagCnwFWAlQBgQJ5AbcCrwMABv8BfwGwAn8BsAF/AQABcAIAAXABAAECAXsCAgF7AQIBBwF8 + AgcBfAEHAQoBfgIKAX4BCgENAX8CDQF/AQ0BEwF9AhMBfQETARcBeQIXAXkBFwEYAXgCGAF4ARgBGgF2 + AhoBdgIaAXYCGgF2ARoBFgF0AhYBdAEWAQ8BbwIPAW8BDwGFAbcChQG3AYUG/wMAATMBUgHMAQsBMAHG + ARIBNwHKARcBOgHKARsBPgHLASABQwHOASMBRQHOASUBRgHOASUBRwHOASQBRgHNASMBRgHPASIBRgHO + ASIBRgHPASABRQHPAR4BRAHPARwBRQHSARoBQwHSARcBQgHTARQBQAHUARIBPwHUARABPQHTAQ0BOwHT + AQkBOAHUAQcBNwHVAQMBMwHUAQEBMQHSAQABLQHKAQABKAG/AQABIgGpAS8BRwGkAwAG/wERAYMCEQGD + AREBHwGMAh8BjAEfASoBkQIqAZEBKgEvAZMCLwGTAS8BLgGUAi4BlAEuASwBlgIsAZYBLAEpAZoCKQGa + ASkBIwGeAiMBngEjARwBowIcAaMBHAEVAaQCFQGkARUBDQGkAg0BpAENAQUBnwIFAZ8BBQEBAZECAQGR + AQEBAAFvAgABbwEABv8VAAP7AbUB3gH9AVkBvwH/AT4BpAH5ARYBfAHEAS0BcgGbAZ8BjgGZAaUCjAHo + AuUBnwKbAWUCYwFmAmQBVgJTAcQCvwFcAlkBYQJfAbYCrwNFAX4CegGbApYBMwExATABcgJuAbACqgG3 + ArADAAb/AQABbwIAAW8BAAEBAZECAQGRAQEBBQGfAgUBnwEFAQ0BpAINAaQBDQEVAaQCFQGkARUBHAGj + AhwBowEcASMBngIjAZ4BIwEpAZoCKQGaASkBLAGWAiwBlgEsAS4BlAIuAZQBLgEvAZMCLwGTAS8BKgGR + AioBkQEqAR8BjAIfAYwBHwERAYMCEQGDAREG/wMAAQcBLwHPARABNwHUARgBPgHXAR8BRQHYASQBSQHZ + ASoBTQHaASwBTwHbAS8BUgHbAS8BUgHcAS4BUQHbASwBUQHcASwBUAHbASsBUgHdASkBUQHdAScBUAHd + ASUBUAHfASIBTwHfAR8BTQHgARsBSwHhARgBSgHhARQBRwHhARABRAHiAQwBQgHiAQkBPgHhAQUBOgHg + AQIBNwHeAQABMgHYAQABLQHMAQABJgG3AQABHgGWAwAG/wERAYMCEQGDAREBHwGMAh8BjAEfASoBkQIq + AZEBKgEvAZMCLwGTAS8BLgGUAi4BlAEuASwBlgIsAZYBLAEpAZoCKQGaASkBIwGeAiMBngEjARwBowIc + AaMBHAEVAaQCFQGkARUBDQGkAg0BpAENAQUBnwIFAZ8BBQEBAZECAQGRAQEBAAFvAgABbwEABv8VAAP7 + A7YBtQHeAf0BWQG/Af8BPgGkAfkBFgF8AcQBMQFxAZcChQGHA6MBtAKyAaUClgGXAoIBmgKEAaQCjwGc + AowBnAKaAb0CtwFJAkcBiQKFAaMCnwE6ATcBOAFtAmgBRAJDAbcCrwMABv8BAAFvAgABbwEAAQEBkQIB + AZEBAQEFAZ8CBQGfAQUBDQGkAg0BpAENARUBpAIVAaQBFQEcAaMCHAGjARwBIwGeAiMBngEjASkBmgIp + AZoBKQEsAZYCLAGWASwBLgGUAi4BlAEuAS8BkwIvAZMBLwEqAZECKgGRASoBHwGMAh8BjAEfAREBgwIR + AYMBEQb/AwABCQEzAdgBFAE8AdsBHQFEAd0BJQFKAd8BKwFPAd8BMAFTAeABMwFWAeABNgFYAeEBNgFY + AeEBNQFYAeEBNAFXAeEBMwFYAeEBMgFYAeIBLwFXAeIBLQFWAeMBKgFWAeQBJwFVAeUBJAFTAeUBIAFR + AeYBHAFPAeYBGAFMAeYBFAFKAeYBDwFGAecBCwFDAeYBBwE/AeUBBAE7AeQBAQE2Ad4BAQExAdIBAAEp + Ab4BAAEgAZ4DAAb/ARkBjQIZAY0BGQEsAZYCLAGWASwBNwGcAjcBnAE3AT0BnwI9AZ8BPQE8AZ8CPAGf + ATwBOQGhAjkBoQE5AaMB1gKjAdYBowb/ASQBrwIkAa8BJAEcAbECHAGxARwBEwGyAhMBsgETAQoBrQIK + Aa0BCgEEAZ8CBAGfAQQBAgF5AgIBeQECBv8VAAP7A7YB8gLwAbUB3gH9AVkBvwH/AUYBpQH0AXYBiQSY + AawClwGvAYMBfQHdAboBmgHsAdYBrQH/AfkBxgH1AesBxAHpAdUBugHMAaUBmwGRAngBnAKXAU0CSgFF + AkIBqAKkAV4CWwFYAlUBtwKvAwAG/wECAXkCAgF5AQIBBAGfAgQBnwEEAQoBrQIKAa0BCgETAbICEwGy + ARMBHAGxAhwBsQEcASQBrwIkAa8BJAb/AaMB1gKjAdYBowE5AaECOQGhATkBPAGfAjwBnwE8AT0BnwI9 + AZ8BPQE3AZwCNwGcATcBLAGWAiwBlgEsARkBjQIZAY0BGQb/AwABCwE1AdwBGAFAAd4BIwFJAeABKwFQ + AeEBMQFUAeEBNgFZAeIBOgFcAeMBPQFeAeQBPQFeAeQBOwFeAeQBRgFnAeYBgwGaAe4BwQHMAfcB5gHr + AfwG/wHlAeoB/AG8AcsB+AF1AZUB8QEsAV4B6gEbAVEB6QEXAU4B6QESAUoB6QEOAUgB6QEKAUMB6AEG + AT8B5gEDATkB4QECATMB1AEBASsBwAEBASEBnwMABv8BGQGNAhkBjQEZASwBlgIsAZYBLAE3AZwCNwGc + ATcBPQGfAj0BnwE9ATwBnwI8AZ8BPAE5AaECOQGhATkBowHWAqMB1gGjBv8BJAGvAiQBrwEkARwBsQIc + AbEBHAETAbICEwGyARMBCgGtAgoBrQEKAQQBnwIEAZ8BBAECAXkCAgF5AQIG/xUAA/sDtgHvAu4B7ALq + AcMB5AH9AVkBvwH/A6YBoQKBAd4BsAGTAf8B4wGyAf8B9wHJAf8B/QHOAv8B1gL/AdgC/wHZAv8B4AHn + AdcBxAGgAXwBeQGRAo4B1QLSAdsC1AG9ArQBvAK3AcQCvgMABv8BAgF5AgIBeQECAQQBnwIEAZ8BBAEK + Aa0CCgGtAQoBEwGyAhMBsgETARwBsQIcAbEBHAEkAa8CJAGvASQG/wGjAdYCowHWAaMBOQGhAjkBoQE5 + ATwBnwI8AZ8BPAE9AZ8CPQGfAT0BNwGcAjcBnAE3ASwBlgIsAZYBLAEZAY0CGQGNARkG/wMAAQ0BNwHd + ARwBQwHfASkBTgHgATEBVQHhATcBWQHiATwBXQHjAUABYAHkAUIBYwHlAUIBYwHlAYgBnAHvAfMB9QH9 + GP8B8QH0Af4BgAGeAfMBGQFRAeoBFAFOAeoBEQFKAeoBDAFFAekBCAFBAecBBQE7AeEBAwE0AdUBAgEr + AcEBAQEiAaADAAb/ASIBkQIiAZEBIgE4AZwCOAGcATgBQwGiAkMBogFDAUgBpAJIAaQBSAFFAaUCRQGl + AUUBQgGmAkIBpgFCEv8BIQG1AiEBtQEhARgBtgIYAbYBGAEOAbECDgGxAQ4BCAGjAggBowEIAQUBfgIF + AX4BBQb/FQAD+wO2Ae4B7ALrAukB6gHnAegB5QLjAcMCsAHiAbABkwH/AeUBtgH/AfkByQH/AfcBxAL/ + AdEC/wHbAv8B5AL/AekC/wH8AeUC4QHpAdwBzgGPAm8B5QLjAdECzAHKAsQBxQK/AdMCzQMABv8BBQF+ + AgUBfgEFAQgBowIIAaMBCAEOAbECDgGxAQ4BGAG2AhgBtgEYASEBtQIhAbUBIRL/AUIBpgJCAaYBQgFF + AaUCRQGlAUUBSAGkAkgBpAFIAUMBogJDAaIBQwE4AZwCOAGcATgBIgGRAiIBkQEiBv8DAAEQATkB3QEg + AUYB4AEuAVIB4QE3AVkB4wE9AV4B5AFCAWIB5AFGAWUB5QFHAWcB5QG6AcYB9gb/AecB7AH8AZMBqAHx + AWEBgQHrAToBYwHnATcBYwHnAVkBfgHsAYkBpAHzAeQB6wH8Bv8BqgG/AfcBFwFQAeoBEwFMAeoBDgFI + AeoBCwFDAecBBwE9AeIBBgE3AdYBBAEuAcIBAQEiAaADAAb/ASIBkQIiAZEBIgE4AZwCOAGcATgBQwGi + AkMBogFDAUgBpAJIAaQBSAFFAaUCRQGlAUUBQgGmAkIBpgFCEv8BIQG1AiEBtQEhARgBtgIYAbYBGAEO + AbECDgGxAQ4BCAGjAggBowEIAQUBfgIFAX4BBQb/FQAD+wO2AewC6QHqAugB6wLoAeUC4wHTAagBnQH/ + Ad8BsAH/AfgBxgH/AeoBtwH/AfoBxwL/AdUC/wHhAv8B7QL/AfUB7ALqAekB5gHlAv8B6wHEAaQBlQGL + AoIBoAGdAdMBcAFtAdYByQLCAdUC0AMABv8BBQF+AgUBfgEFAQgBowIIAaMBCAEOAbECDgGxAQ4BGAG2 + AhgBtgEYASEBtQIhAbUBIRL/AUIBpgJCAaYBQgFFAaUCRQGlAUUBSAGkAkgBpAFIAUMBogJDAaIBQwE4 + AZwCOAGcATgBIgGRAiIBkQEiBv8DAAESATsB3QElAUoB4AEzAVYB4gE8AV0B4wFCAWIB5AFGAWYB5QFK + AWkB5QG7AccB9Qb/AaMBtAHyAUUBZwHmAUIBZwHnAT8BZgHnATwBZQHnATgBYwHnATQBYQHoAS8BXwHp + ASsBXQHqAYQBogHzBv8BqAG9AfcBEwFMAeoBEAFJAekBDQFFAecBCgE/AeIBCgE5AdYBBwEwAcIBAwEk + AaADAAb/ASwBlgIsAZYBLAFCAaACQgGgAUIBTAGlAkwBpQFMAU8BpwJPAacBTwFMAacCTAGnAUwBRgGn + AkYBpwFGAUABqgJAAaoBQBL/ARoBswIaAbMBGgEUAa8CFAGvARQBDwGjAg8BowEPAQsBgAILAYABCwb/ + FQAD+wO2AeoC6AHpAucB6gLoAeoC3wHqAcABoAH/AfgBygH/AeQBsgH/AekBtgH/AfwByQL/AdcC/wHj + Av8B7wL/AfoC/wH6Av8B9AL/AdoB8wHtAcgBiQJtAYEBfwHeAY8BjAHWAcsCxgHUAtEDAAb/AQsBgAIL + AYABCwEPAaMCDwGjAQ8BFAGvAhQBrwEUARoBswIaAbMBGhL/AUABqgJAAaoBQAFGAacCRgGnAUYBTAGn + AkwBpwFMAU8BpwJPAacBTwFMAaUCTAGlAUwBQgGgAkIBoAFCASwBlgIsAZYBLAb/AwABFQE+Ad4BKQFO + AeABOAFaAeMBQQFgAeQBRgFlAeUBSgFoAeUBkAGiAe8G/wGPAaIB7wFJAWoB5gFHAWkB5wFEAWgB5wFB + AWcB5wE9AWYB5wE5AWQB5wE1AWIB6AEwAV8B6QErAVwB6QEmAVkB6QF0AZYB8Qb/AXsBmgHzARMBSwHp + ARABRgHnAQ4BQgHhAQ0BPAHWAQoBMgHCAQQBJQGhAwAG/wEsAZYCLAGWASwBQgGgAkIBoAFCAUwBpQJM + AaUBTAFPAacCTwGnAU8BTAGnAkwBpwFMAUYBpwJGAacBRgFAAaoCQAGqAUAS/wEaAbMCGgGzARoBFAGv + AhQBrwEUAQ8BowIPAaMBDwELAYACCwGAAQsG/xUAA/sDtgHpAeYB5wHoAuYB6QLnAdwCwwH7AeEBtgH/ + AfcBxQH/Ad0BqgH/AekBtgH/AfoBxwL/AdQC/wHgAv8B6gL/AfEC/wHwAv8B6AL/AdoC/wHTAZwBegF1 + AXwBewHeAYoBhwHZAc4CyQHXAtMDAAb/AQsBgAILAYABCwEPAaMCDwGjAQ8BFAGvAhQBrwEUARoBswIa + AbMBGhL/AUABqgJAAaoBQAFGAacCRgGnAUYBTAGnAkwBpwFMAU8BpwJPAacBTwFMAaUCTAGlAUwBQgGg + AkIBoAFCASwBlgIsAZYBLAb/AwABGAFAAd4BLgFSAeEBPQFdAeQBRQFkAeUBSgFoAeUBWAF0AecB9AH2 + Af0D/wGnAbYB8gFNAW0B5gFLAWsB5gFJAWoB5gFFAWkB5wFCAWgB5wb/ATUBYgHnATEBXwHpASwBXQHp + AScBWQHpASMBVgHpAYEBngHzA/8B8QH0Af4BJAFXAekBFAFJAeYBEgFFAeEBEAE+AdUBDAE0AcMBBgEm + AaEDAAb/ATUBmgI1AZoBNQFLAaUCSwGlAUsBUgGoAlIBqAFSAVMBqQJTAakBUwFOAagCTgGoAU4BSQGn + AkkBpwFJAUEBqAJBAagBQQE4AaoCOAGqATgS/wEZAawCGQGsARkBGAGiAhgBogEYARIBggISAYIBEgb/ + FQAD+wO2Ae0C6wHlAuMB6ALmAdkCuwH/AeoBugH/AfMBwAH/AdYBowH/AeUBsgH/AfMBwAL/Ac8C/wHZ + Av8B4QL/AeYC/wHlAv8B4AL/AdUB/wH9Ac4BswGKAX4BswGwAd0B1wLTAdEBzAHLAdYC0wMABv8BEgGC + AhIBggESARgBogIYAaIBGAEZAawCGQGsARkS/wE4AaoCOAGqATgBQQGoAkEBqAFBAUkBpwJJAacBSQFO + AagCTgGoAU4BUwGpAlMBqQFTAVIBqAJSAagBUgFLAaUCSwGlAUsBNQGaAjUBmgE1Bv8DAAEcAUIB3wEy + AVUB4gFCAWEB5AFJAWcB5QFOAWsB5gGSAaQB7wP/AekB7QH8AVEBbgHmAU4BbgHnAUwBbAHmAUoBagHm + AUYBaQHnAUMBZwHnBv8BNgFhAecBMQFfAegBLAFcAegBKAFZAekBJAFXAekBIAFUAekB4wHpAfwD/wFu + AY8B8AEXAUsB5gEWAUcB4QEUAUEB1gEQATcBwwEJASgBoQMABv8BNQGaAjUBmgE1AUsBpQJLAaUBSwFS + AagCUgGoAVIBUwGpAlMBqQFTAU4BqAJOAagBTgFJAacCSQGnAUkBQQGoAkEBqAFBATgBqgI4AaoBOBL/ + ARkBrAIZAawBGQEYAaICGAGiARgBEgGCAhIBggESBv8VAAP7A7YB6gLnAeIC4AHmAuMB2wK+Af8B7AG+ + Af8B9AHBAf8B3AGsAf8B7wHBAf8B9AHBAf8B/AHJAv8B0AL/AdYC/wHYAv8B2AL/AdUC/wHPAf8B9QHH + AakBgQF4Ad0C2QHXAtIB1gLQAdYC0QMABv8BEgGCAhIBggESARgBogIYAaIBGAEZAawCGQGsARkS/wE4 + AaoCOAGqATgBQQGoAkEBqAFBAUkBpwJJAacBSQFOAagCTgGoAU4BUwGpAlMBqQFTAVIBqAJSAagBUgFL + AaUCSwGlAUsBNQGaAjUBmgE1Bv8DAAEfAUYB3wE3AVkB4wFGAWUB5QFNAWsB5gFSAW4B5gHJAdIB9wP/ + AZ4BrgHxAVIBbwHnAVABbgHmAU0BbAHmAUoBagHmAUYBaQHnAUMBZwHnBv8BNQFgAeYBMQFdAecBLAFb + AegBJwFXAegBIwFVAegBIAFTAegBfwGcAfED/wG3AccB9wEaAUwB5QEZAUkB4AEZAUMB1QETATkBwgEL + ASkBoAMABv8BPwGfAj8BnwE/AVMBqQJTAakBUzz/AR8BngIfAZ4BHwEYAYECGAGBARgG/xUAA/sDtgHq + AucB4gLgAeYC4wHuAuAB8QHVAbAB/wH6Ac0B/wH1AdUB/wHeAasB/wHgAa0B/wHxAb4B/wH4AcUB/wH8 + AcoB/wH9AcwB/wH9AcwB/wH7AcgB/wH8Ac0B/wHpAbYBlgJ0AdsC2AHVAtEB1QLPAdUC0AMABv8BGAGB + AhgBgQEYAR8BngIfAZ4BHzz/AVMBqQJTAakBUwE/AZ8CPwGfAT8G/wMAASIBSAHfAT0BXQHkAUsBaQHl + AVIBbgHmAVQBcAHnAeoB7QH8A/8BdAGKAewBUwFvAecBUQFtAeYBTQFrAeYBSQFpAeYBRgFoAeYBQgFm + AeYG/wE1AV4B5gEwAVwB5gErAVkB5wEnAVYB5wEjAVMB5gEgAVEB5wFHAW8B6wP/AfEB9AH9AR0BTQHk + AR0BSwHgARwBRQHVARYBOwHBAQ0BKwGgAwAG/wE/AZ8CPwGfAT8BUwGpAlMBqQFTPP8BHwGeAh8BngEf + ARgBgQIYAYEBGAb/FQAD+wO2AeYC4wHhAd0B3gHjAeAB4QHlAuMB2wG1AaIB/wH3AdMB/wH8Ae8B/wH7 + Ae4B/wHpAcAB/wHeAasB/wH0AcIB/wHsAbkB/wHtAboB/wHtAboB/wHxAb4B/wHzAccB2wG0AZQBsQKk + AdkC1QHTAs4B0wLNAdQC0AMABv8BGAGBAhgBgQEYAR8BngIfAZ4BHzz/AVMBqQJTAakBUwE/AZ8CPwGf + AT8G/wMAASYBSwHgAUEBYQHkAU8BbAHmAVUBcQHnAVYBcgHoBv8BVgFwAecBUwFvAecBUAFsAeYBTQFq + AeYBSQFoAeUBRQFmAeYBQQFkAeYG/wE0AVwB5QEwAVoB5QErAVcB5gEnAVQB5gEkAVIB5gEgAVAB5QEe + AU4B5Qb/ASABTgHkASEBTQHfASABSAHUARkBPAHBAQ4BLAGgAwAG/wFFAaICRQGiAUUBWgGsAloBrAFa + PP8BJQGaAiUBmgElAR0BfwIdAX8BHQb/FQAD+wO2A+AB3wHcAd0B4gHeAd8B5QLjAdkCvAHzAeABwAHu + Au0B7wLuAf8B8wHaAf8B5QG2Af8B5wG4Af8B3QGqAf8B3wGsAf8B6QG2Af8B+gHMAfoB0wGkAa0BhAF/ + AekC6AHXAtIB0QLLAdECywHUAs4DAAb/AR0BfwIdAX8BHQElAZoCJQGaASU8/wFaAawCWgGsAVoBRQGi + AkUBogFFBv8DAAEoAU0B4AFEAWQB5QFSAW4B5wFXAXIB6AFZAXMB6Ab/AVcBcQHnAVQBbwHnAVEBbQHm + AU0BagHmAUkBZwHlAUUBZQHlAUEBYwHlBv8BNAFbAeQBLwFYAeQBKwFVAeUBJwFTAeUBJAFQAeUBIQFP + AeQBHgFNAeUG/wEiAU4B4wEkAU4B3wEiAUgB0wEbAT0BwAEQAS0BnwMABv8BRQGiAkUBogFFAVoBrAJa + AawBWjz/ASUBmgIlAZoBJQEdAX8CHQF/AR0G/xUAA/sDtgPdAdwB2wHaAeEC3gHkAuEB5QLjAc4BqAGe + AfYB7wHiAv8B/gH/AfoB5QH/AfkB1QH/AeYBswH/AegBtQH/AfQBwgH/AfEBwgH6AdABogG5AYsBggHh + At4B2ALUAdMBzgLNAsYBzgHHAcgBzgHLAckDAAb/AR0BfwIdAX8BHQElAZoCJQGaASU8/wFaAawCWgGs + AVoBRQGiAkUBogFFBv8DAAEsAVAB4QFJAWcB5QFXAXIB6AFcAXYB6AFdAXcB6AHrAe4B/AP/AXcBiwHr + AVQBbwHnAVEBbQHmAU0BagHlAUkBZwHlAUYBZQHlAUEBYgHlBv8BNAFaAeQBMAFXAeQBKwFUAeQBKAFR + AeQBJQFQAeQBIgFOAeQBOwFiAeYD/wHxAfQB/QEkAU4B4wEmAU8B3gElAUoB0wEdAT8BwAERAS4BoAMA + Bv8BTwGnAk8BpwFPAWMBsQJjAbEBYwFhAa8CYQGvAWEBWQGrAlkBqwFZAVEBpgJRAaYBUQFIAaICSAGi + AUgBPwGfAj8BnwE/ATYBnAI2AZwBNhL/ASYBmQImAZkBJgEqAZcCKgGXASoBIQF+AiEBfgEhBv8VAAP7 + A7YB2AHVAdQB2gLXAd8C3AHhAt4B3wLcAeUC4wHOAa4BqwHbAbsBnwH5AekBvwH/AfMBxAH/AfEBwQH/ + Ae8BwAH/AeUBtwHlAboBmgG+AZIBiwHrAugB2QPUAc4BzQHOAsgBxwHBAcIBygHDAcQBzALGAwAG/wEh + AX4CIQF+ASEBKgGXAioBlwEqASYBmQImAZkBJhL/ATYBnAI2AZwBNgE/AZ8CPwGfAT8BSAGiAkgBogFI + AVEBpgJRAaYBUQFZAasCWQGrAVkBYQGvAmEBrwFhAWMBsQJjAbEBYwFPAacCTwGnAU8G/wMAAS8BUgHh + AU0BawHmAV0BdwHoAWABegHoAWABegHoAc0B1QH4A/8BoQGvAfIBVQFvAecBUQFsAeYBTQFpAeUBSQFm + AeUBRQFkAeQBQQFhAeQG/wE0AVgB4wEwAVYB4wErAVMB4wEoAVEB4wEmAU8B4wEjAU0B4wF0AY8B7QP/ + AcgB0gH4AScBTwHiASkBUAHdAScBSwHTAR8BQAG/ARMBLwGfAwAG/wFPAacCTwGnAU8BYwGxAmMBsQFj + AWEBrwJhAa8BYQFZAasCWQGrAVkBUQGmAlEBpgFRAUgBogJIAaIBSAE/AZ8CPwGfAT8BNgGcAjYBnAE2 + Ev8BJgGZAiYBmQEmASoBlwIqAZcBKgEhAX4CIQF+ASEG/xUAA/sDtgHQAskB0gLOAdkC1QHcAdkB2gHf + AtwB4wHgAd8B5gLjAfIC6gHHAqoBtAGJAXwBwwGXAYsB2AGrAZ8B0wGxAa4B5QLZAeUC4wHeA9kD1AHO + Ac0BzgLIAccBwQHCAcUCvgHHAr8DAAb/ASEBfgIhAX4BIQEqAZcCKgGXASoBJgGZAiYBmQEmEv8BNgGc + AjYBnAE2AT8BnwI/AZ8BPwFIAaICSAGiAUgBUQGmAlEBpgFRAVkBqwJZAasBWQFhAa8CYQGvAWEBYwGx + AmMBsQFjAU8BpwJPAacBTwb/AwABMwFWAeIBUQFuAecBYQF7AekBZAF+AekBYwF9AegBnAGsAfED/wHq + Ae0B/AFWAW8B5wFSAWwB5gFNAWkB5QFJAWYB5AFFAWMB5AFBAWAB5Ab/ATQBVwHiATABVAHiASwBUgHi + ASkBUAHjAScBTgHiASQBTQHiAeMB6AH7A/8BhAGbAe8BKQFQAeEBKwFQAd0BKQFMAdIBIQFBAb8BFAEv + AZ8DAAb/AVMBqQJTAakBUwFsAbYCbAG2AWwBaAG0AmgBtAFoAV4BrQJeAa0BXgFUAagCVAGoAVQBTAGj + AkwBowFMAUIBnwJCAZ8BQhL/ASkBlwIpAZcBKQErAZgCKwGYASsBLQGVAi0BlQEtASMBfgIjAX4BIwb/ + AVkBWAGzAgEBTQIBAU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIB + AU0CAQFNAgEBTQIBAU0CAQFNAgEBTQIBAU0CAQFNAeEB3QLcA9cB0gHTAdICzQHMA8cCwQHCArsBvQK2 + AagCpQMABv8BIwF+AiMBfgEjAS0BlQItAZUBLQErAZgCKwGYASsBKQGXAikBlwEpEv8BQgGfAkIBnwFC + AUwBowJMAaMBTAFUAagCVAGoAVQBXgGtAl4BrQFeAWgBtAJoAbQBaAFsAbYCbAG2AWwBUwGpAlMBqQFT + Bv8DAAEyAVUB4gFWAXEB6AFnAYAB6QFpAYMB6gFoAYEB6QFuAYYB6gH1AfcB/gP/AaEBrgHyAVQBbgHn + AVABawHmAUsBZwHlAUcBZAHkAUIBYQHkBv8BNgFYAeIBMgFWAeIBLgFTAeIBLAFRAeIBKgFQAeIBhQGb + Ae8D/wHxAfQB/QE2AVkB5AErAVEB4QEtAVIB3QEqAU0B0wEiAUIBvwEUATABnwMABv8BUwGpAlMBqQFT + AWwBtgJsAbYBbAFoAbQCaAG0AWgBXgGtAl4BrQFeAVQBqAJUAagBVAFMAaMCTAGjAUwBQgGfAkIBnwFC + Ev8BKQGXAikBlwEpASsBmAIrAZgBKwEtAZUCLQGVAS0BIwF+AiMBfgEjBv8BiAGHAf0BNwE2Af8BOwE4 + Af8BOgE4Af8BOAE0Af8BMgEwAf8BLAEpAf8BKAElAf8BJAEgAf8BHgEbAf8BGQEXAf8BGAEVAf8BEwEP + Af8BEAENAfsBDQEKAfgBCwEIAfIBCgEHAesBCAEFAeEBBgEDAdcBBgECAcoBBAEBAckCAQFNAdIBzgHM + AdEDzQPJAsQBwwG9Ar4BuQG4Ab0BuQG7AaYCpAGlAqQDAAb/ASMBfgIjAX4BIwEtAZUCLQGVAS0BKwGY + AisBmAErASkBlwIpAZcBKRL/AUIBnwJCAZ8BQgFMAaMCTAGjAUwBVAGoAlQBqAFUAV4BrQJeAa0BXgFo + AbQCaAG0AWgBbAG2AmwBtgFsAVMBqQJTAakBUwb/AwABNgFZAeMBWQF0AegBawGEAeoBbwGIAesBbQGG + AeoBaQGCAeoBqAG2AfMG/wGWAaUB8AFSAWwB5gFNAWkB5QFJAWUB5AFFAWMB5AFBAWAB5AE8AVwB5AE4 + AVoB4wE1AVcB4gExAVQB4gEvAVMB4gFTAXEB5wb/AYcBnQHvASsBUAHiAS0BUgHhAS4BUgHdASsBTQHR + ASMBQgG/ARQBMAGfAwAG/wFeAa8CXgGvAV4BegG9AnoBvQF6AXABuAJwAbgBcAFjAbACYwGwAWMBWgGr + AloBqwFaAVIBpgJSAaYBUhL/ATMBmQIzAZkBMwEwAZkCMAGZAjABmAIwAZgBMAEvAZQCLwGUAS8BIwF9 + AiMBfQEjBv8BigGJAf0BMwExAf8BKwEpAf8BLgEqAf8BLgErAf8C4AH/ATABLQH/ASoBJwH/ASQBIAH/ + At0B/wHdAdwB/wLcAf8BXwFdAf8BEAENAfwB2wHaAf4BDAEJAfQBCgEHAewBCAEFAeMBBwEEAdsBBgED + Ac4BBAEBAckCAQFNAbgCtQG3ArQBrwOsAqoBqwKpAaoCpwGhAqADmQPEAwAG/wEjAX0CIwF9ASMBLwGU + Ai8BlAEvATABmAIwAZgCMAGZAjABmQEwATMBmQIzAZkBMxL/AVIBpgJSAaYBUgFaAasCWgGrAVoBYwGw + AmMBsAFjAXABuAJwAbgBcAF6Ab0CegG9AXoBXgGvAl4BrwFeBv8DAAE3AVkB4wFdAXgB6AFwAYkB6wF0 + AYwB7AFxAYoB6wFsAYUB6wFnAYAB6gHEAc0B9gb/AZ4BrQHxAU8BagHmAUsBZwHlAUcBZAHkAUMBYQHk + AT4BXgHkATsBXAHjATcBWQHjATQBVgHiAYsBnwHvBv8BsAG9AfQBLgFSAeIBLQFRAeIBLwFSAeEBLgFR + Ad4BLQFOAdMBJAFDAb8BFQExAZ4DAAb/AV4BrwJeAa8BXgF6Ab0CegG9AXoBcAG4AnABuAFwAWMBsAJj + AbABYwFaAasCWgGrAVoBUgGmAlIBpgFSEv8BMwGZAjMBmQEzATABmQIwAZkCMAGYAjABmAEwAS8BlAIv + AZQBLwEjAX0CIwF9ASMG/wGOAY0B/QE8ATgB/wExAS4B/wEpASYB/wEhAR4B/wHeAd0B/wEfARsB/wEd + ARkB/wEhAR0B/wHeAd0B/wEfARwB/wEaARcB/wLcAf8BEgEPAf0C2wH+AQ8BDAH3AQ0BCgHxAQsBCAHq + AQkBBgHgAQgBBQHWAQYBAgHQAgEBTQG/ArwDtQONA44DjQOhA8ED1gPJAwAG/wEjAX0CIwF9ASMBLwGU + Ai8BlAEvATABmAIwAZgCMAGZAjABmQEwATMBmQIzAZkBMxL/AVIBpgJSAaYBUgFaAasCWgGrAVoBYwGw + AmMBsAFjAXABuAJwAbgBcAF6Ab0CegG9AXoBXgGvAl4BrwFeBv8DAAE7AVsB4wFhAXsB6QF2AY4B7AF6 + AZIB7AF3AY8B7AFwAYoB6wFqAYMB6gFkAX0B6QHDAc0B9gb/AekB7QH8AZwBqwHxAWsBggHqAUYBYwHk + AUIBYAHkAVYBcgHmAYQBmAHtAeYB6gH7Bv8BsgG/AfQBMAFUAeEBMAFUAeEBMAFTAeIBMAFTAeABMAFT + Ad0BLQFOAdIBJAFDAb4BFAEwAZ4DAAb/AWsBtQJrAbUBawGNAcYCjQHGAY0BgAHAAoABwAGAAW8BtwJv + AbcBbwFnAbICZwGyAWcBYAGuAmABrgFgAbQB2QK0AdkBtAb/AUwBpQJMAaUBTAFJAaQCSQGkAUkBQQGh + AkEBoQFBAToBnQI6AZ0BOgEwAZUCMAGVATABHgF6Ah4BegEeBv8BkgGQAf0BQAE+Af8BNwE0Af8BLAEp + Af8BJgEiAf8C3QH/Ad0B3AH/AXwBegH/AREBDQH/AtsB/wEZARcB/wEcARkB/wHdAdwB/wEVARIB/QHc + AdsB/gLbAf4BhgGFAfoBDQEJAe4BCgEHAeYBCQEGAd0BBwEEAdgCAQFNAbUCsgOnA/8J/gPgA8cD9gMA + Bv8BHgF6Ah4BegEeATABlQIwAZUBMAE6AZ0COgGdAToBQQGhAkEBoQFBAUkBpAJJAaQBSQFMAaUCTAGl + AUwG/wG0AdkCtAHZAbQBYAGuAmABrgFgAWcBsgJnAbIBZwFvAbcCbwG3AW8BgAHAAoABwAGAAY0BxgKN + AcYBjQFrAbUCawG1AWsG/wMAAT4BXgHjAWgBgQHqAX8BlgHtAYYBmwHuAYMBmAHtAXoBkQHsAXEBigHr + AWkBggHqAWUBfgHpAaYBtAHyAfUB9gH+GP8B8wH1Af0BkQGkAfABOgFbAeMBOAFaAeMBNwFZAeIBNAFX + AeIBMwFWAeEBMAFTAd0BLAFNAdIBIQFAAb0BEgEuAZ0DAAb/AWsBtQJrAbUBawGNAcYCjQHGAY0BgAHA + AoABwAGAAW8BtwJvAbcBbwFnAbICZwGyAWcBYAGuAmABrgFgAbQB2QK0AdkBtAb/AUwBpQJMAaUBTAFJ + AaQCSQGkAUkBQQGhAkEBoQFBAToBnQI6AZ0BOgEwAZUCMAGVATABHgF6Ah4BegEeBv8BlgGTAfwBSgFH + Af8BPwE9Af8BMwExAf8BKgEnAf8C3gH/ARwBGQH/AtwB/wESAQ4B/wHbAdoB/wEKAQcB/wEOAQoB/wHc + AdsB/wEXARQB/wLcAf8BEgEPAfoBEAENAfcBDgELAfEBDAEJAewBCwEIAeMBCQEGAeACAQFNAbMCsAOf + A/4G/wPdA8MD3AYABv8BHgF6Ah4BegEeATABlQIwAZUBMAE6AZ0COgGdAToBQQGhAkEBoQFBAUkBpAJJ + AaQBSQFMAaUCTAGlAUwG/wG0AdkCtAHZAbQBYAGuAmABrgFgAWcBsgJnAbIBZwFvAbcCbwG3AW8BgAHA + AoABwAGAAY0BxgKNAcYBjQFrAbUCawG1AWsG/wMAAUMBYwHlAXEBiQHrAYoBngHvAZIBpQHwAYwBoQHv + AYMBmAHtAXkBkAHsAXABiQHrAWwBhQHqAWkBggHqAW4BhgHqAZwBrAHxAc0B1QH4AfUB9gH9Bv8B9AH2 + Af0B0wHaAfkBmwGrAfEBVwFzAecBSQFnAeUBRQFkAeQBQQFiAeQBPwFgAeQBOwFcAeMBNgFZAeEBMQFU + Ad0BKgFLAdIBHgE+Ab0BDwErAZsDAAb/AXcBuwJ3AbsBdwGdAc8CnQHPAZ0BjAHGAowBxgGMAXkBvAJ5 + AbwBeQFwAbgCcAG4AXABaQG0AmkBtAFpAWUBsgJlAbIBZQFiAbACYgGwAWIBXQGuAl0BrgFdAVYBqwJW + AasBVgFOAacCTgGnAU4BQQGhAkEBoQFBAS8BlAIvAZQBLwEZAXcCGQF3ARkG/wGZAZcB/AFTAVEB/wFK + AUcB/wE9ATsB/wEyAS8B/wLfAf8B3gHdAf8BfwF9Af8BFAEQAf8C2wH/AdsB2gH/AdsB2gH/AVsBWQH/ + ARIBDgH/AdwB2wH/AtsB/wLbAf4BDQEKAfcBCwEIAfIBCgEHAesBCQEGAekCAQFNAa0CqgOjBv8D4APH + A90D/gYABv8BGQF3AhkBdwEZAS8BlAIvAZQBLwFBAaECQQGhAUEBTgGnAk4BpwFOAVYBqwJWAasBVgFd + Aa4CXQGuAV0BYgGwAmIBsAFiAWUBsgJlAbIBZQFpAbQCaQG0AWkBcAG4AnABuAFwAXkBvAJ5AbwBeQGM + AcYCjAHGAYwBnQHPAp0BzwGdAXcBuwJ3AbsBdwb/AwABSAFnAeUBeQGQAewBlAGmAfABmwGsAfEBlgGo + AfABiwGfAe8BgAGVAe0BdwGPAewBcgGLAesBbgGHAesBawGEAeoBaAGBAekBZQF+AegBYwF9AegBYQF7 + AegBYAF6AekBXgF4AegBXAF3AegBWgF1AegBVwFzAecBUwFwAeYBTwFsAeYBSwFqAeUBRwFmAeUBQAFh + AeQBOQFbAeIBMQFUAd0BKAFKAdEBGwE7AbwBDQEpAZsDAAb/AXcBuwJ3AbsBdwGdAc8CnQHPAZ0BjAHG + AowBxgGMAXkBvAJ5AbwBeQFwAbgCcAG4AXABaQG0AmkBtAFpAWUBsgJlAbIBZQFiAbACYgGwAWIBXQGu + Al0BrgFdAVYBqwJWAasBVgFOAacCTgGnAU4BQQGhAkEBoQFBAS8BlAIvAZQBLwEZAXcCGQF3ARkG/wGY + AZYB/AFlAWIB/gFgAV0B/gFTAVEB/wFKAUcB/wFBAT4B/wE7ATcB/wEyAS8B/wErASkB/wErASgB/wEq + AScB/wEpASYB/wEpASUB/wEoASQB/wEnASMB/wEjAR8B/wEeARsB/wEcARkB/gEaARcB/AEaARcB+QEW + ARMB/QIBAU0BpgKjA6wD/wPdA8YD3AP+CQAG/wEZAXcCGQF3ARkBLwGUAi8BlAEvAUEBoQJBAaEBQQFO + AacCTgGnAU4BVgGrAlYBqwFWAV0BrgJdAa4BXQFiAbACYgGwAWIBZQGyAmUBsgFlAWkBtAJpAbQBaQFw + AbgCcAG4AXABeQG8AnkBvAF5AYwBxgKMAcYBjAGdAc8CnQHPAZ0BdwG7AncBuwF3Bv8DAAFJAWcB5QF7 + AZIB7QGYAaoB8QGgAbEB8gGaAawB8QGPAaIB8AGDAZgB7QF5AZEB7AF0AY0B7AFxAYoB6wFuAYYB6gFr + AYQB6gFpAYIB6QFnAYAB6QFmAX8B6QFlAX8B6QFjAX0B6QFiAXwB6QFfAXkB6QFcAXcB6AFXAXQB5wFT + AXAB5wFPAW0B5gFKAWgB5QFDAWMB5QE5AVsB4gExAVMB3QElAUcB0AEYATkBugEMASgBmgMABv8BsQHY + ArEB2AGxAXYBuwJ2AbsBdgFnAbMCZwGzAWcBWwGtAlsBrQFbAVQBqQJUAakBVAFPAacCTwGnAU8BSgGk + AkoBpAFKAUsBpQJLAaUBSwFGAaMCRgGjAUYBPwGgAj8BoAE/ATsBngI7AZ4BOwExAZgCMQGYATEBIwGM + AiMBjAEjAYoBuwKKAbsBigb/AYsBigH9AZYBkwH8AZABjwH9AYsBigH9AYgBhwH9AYUBgwH+AYABfwH+ + AYABfQH+AX0BegH/AXsBeAH/AXoBdwH/AXYBdAH/AXYBdAH/AXMBcQH+AXIBcAH+AXEBbwH9AXEBbwH9 + AXABbgH9AXABbgH8AXABbgH7AW8BbQH7AVIBTwG5AZwCmQO3A+ADxwPhA/4MAAb/AYoBuwKKAbsBigEj + AYwCIwGMASMBMQGYAjEBmAExATsBngI7AZ4BOwE/AaACPwGgAT8BRgGjAkYBowFGAUsBpQJLAaUBSwFK + AaQCSgGkAUoBTwGnAk8BpwFPAVQBqQJUAakBVAFbAa0CWwGtAVsBZwGzAmcBswFnAXYBuwJ2AbsBdgGx + AdgCsQHYAbEG/wMAAV0BeAHoAXABiAHrAY8BogHvAZcBqQHxAZIBpQHwAYcBnAHuAXsBkgHsAXQBjAHr + AXEBigHrAW0BhgHqAWcBgQHpAWYBfwHpAWQBfgHpAWIBfAHpAWABegHoAWABegHoAV4BeAHoAVoBdgHo + AVgBdAHnAVYBcwHnAVMBcAHmAU4BbQHmAUoBaQHlAUQBZAHkAT0BXgHkATQBVgHhASwBUAHbASEBRAHP + ARYBNgG5ATcBTwGsAwAG/wGxAdgCsQHYAbEBdgG7AnYBuwF2AWcBswJnAbMBZwFbAa0CWwGtAVsBVAGp + AlQBqQFUAU8BpwJPAacBTwFKAaQCSgGkAUoBSwGlAksBpQFLAUYBowJGAaMBRgE/AaACPwGgAT8BOwGe + AjsBngE7ATEBmAIxAZgBMQEjAYwCIwGMASMBigG7AooBuwGKBv8VAAP7A7YBrgKmAa8BqQGnAa4CqAGv + AacBqgG0Aq4BswKtAbQCrgGyAqwBsgKtAa8CqwGuAqgBrAKoAa8CqwGbApkDxAPIA/ED/w8ABv8BigG7 + AooBuwGKASMBjAIjAYwBIwExAZgCMQGYATEBOwGeAjsBngE7AT8BoAI/AaABPwFGAaMCRgGjAUYBSwGl + AksBpQFLAUoBpAJKAaQBSgFPAacCTwGnAU8BVAGpAlQBqQFUAVsBrQJbAa0BWwFnAbMCZwGzAWcBdgG7 + AnYBuwF2AbEB2AKxAdgBsQb/AwAByQHSAfcBRwFmAeUBbQGGAeoBeQGQAewBdQGNAewBawGEAeoBYgF9 + AekBXgF4AegBXAF2AegBWQF0AegBUgFvAecBUgFuAecBUgFuAecBUAFtAecBTgFrAeYBTgFrAeYBTAFq + AeYBSQFnAeUBRgFkAeUBQwFiAeQBQAFhAeQBPgFfAeQBPAFeAeQBNgFYAeIBMAFUAeEBKAFMAd8BIgFG + AdkBGgE9AcsBEAEwArIBuwHgCQBU/xsAA/sDtgGyAqoBrwGpAagBsAKpAa8CqQG0Aq4BtAKvAbQBsAGx + AbUCsAGzAa4BrwGxAqwBrgGpAasBrgKqAbcCtQGrAqoD1gP+A/8YAFT/DAAByQHSAfcBYAF7AegBRAFj + AeQBQgFhAeQBPQFeAeQBOAFZAeMBNAFWAeIBNQFXAeIBMwFVAeIBMAFTAeIBMQFUAeEBMgFUAeIBMgFU + AeIBMQFUAeIBLAFQAeEBKwFOAeEBKgFOAeEBKAFNAeEBIwFJAeABIwFJAd8BJAFJAeABJAFJAeABHgFF + Ad8BGwFCAd8BFwE+AdwBEwE6AdUBPAFZAdABsgG8AeYMAFT/GwAD+wP3A+0D6gPrA+0D7AbtBu4D7QP1 + A/kD/gn/GwBU/2YAAUIBTQE+BwABPgMAASgDAAGABAABAQIAAQEBAAEBBgABEBYAA/8BAAX/AecC/wgA + Av8B4AEfAf8BAQGfAf8IAAH/AYABAAEHAfgCAAF/CAAB/gIAAQMBwAIAAT8IAAH4AgABAwGAAgABDwgA + AfACAAEBAeACAAEHCAAB8AIAAQEBwAIAAQEIAAHwAgABAQHgCwAB8AIAAQEB4AsAAfACAAEBAeALAAHw + AgABAQHwCwAB8AIAAQEB4AsAAfACAAEBAeALAAHwAgABAwHgCwAB8AIAAQMB4AsAAfACAAEHAeALAAHw + AgABDwHgCwAB8AIAAQ8B4AsAAfACAAEPAeACAAEHCAAB8AIAAQ8B8AIAAQcIAAHwAgABDwH+AgABBwgA + AfACAAEPAf8BwAEAAQMIAAHwAgABDwL/AYABAwgAAfACAAEPAv8BgAEDCAAB8AIAAQ8C/wHAAQEIAAHw + AgABDwL/AcABAwgAAfACAAEPAv8BwAEDCAAB8AIAAQ8C/wHgAQMIAAH4AgABDwL/AfABAwgAAf4CAAF/ + Av8B8AEHCAAG/wHzAf8IAAj/CAAI/wHgAgABBwz/AeACAAEHAv8B4AEfBP8B8wP/AeACAAEHAfwBDwGA + AQcE/wHhA/8B4AIAAQcB/AEBAQABAwGAAwAB4AP/AeACAAEHAfwCAAEDBAAB4AF/Av8B4AIAAQcB+AIA + AQEEAAGAAwAB4AIAAQcB+AIAAQEIAAHgAgABBwH4AgABAQgAAeACAAEHAfACAAEBCAAB4AIAAQcB8AIA + AQEIAAHgAgABBwHwAgABAQgAAeACAAEHAeACAAEBCAAB4AIAAQcB4AIAAQEIAAHgAgABBwHgAgABAQgA + AeACAAEHAcACAAEBCAAB4AIAAQcBwAIAAQEIAAHgAgABBwHAAgABAQgAAeACAAEHAYACAAEBCAAB4AIA + AQcBgAIAAQEIAAHgAgABBwGAAgABAQgAAeACAAEHAYACAAEBCAAB4AIAAQcBgAIAAQEIAAHgAgABBwH/ + AgABAQgAAeACAAEHAf8CAAEBCAAB4AIAAQcB/wIAAQEIAAHgAgABDwH/AgABAQgAAeACAAEfAf8CAAEB + AwABAQQAAeACAAE/Av8B4AEBBP8EAAHgAgABfwL/AfABAQT/AwABAQHgAgAD/wH4AQEI/wHgAQABAQ3/ + AeABAAEDBf8B4AEAB/8B/AIABP8BwAEAAv8BwAIAAQcB/wH4AgAE/wHAAQAC/wHAAgABBwH/AfgCAAL/ + AfwBHwGAAQAC/wHAAgABBwH/AfgCAAL/AfABBwGAAQAC/wHAAgABBwH/AfgCAAL/AeABAwIAAv8BwAIA + AQcB/wH4AgAC/wHAAQECAAL/AcACAAEHAf4DAAGABQAC/wGAAwAB/AcAAYABAAL/BAAB+AcAAYABAAL/ + BAAB+AcAAYABAQL/BAAC+AYAAcABfwL/BAAB+QH4BgAB4AP/BAAB+wH4BgAE/wQAAfsB+AEAAQEEAAT/ + BAABgAIAAT8EAAH7A/8HAAE/BAAB8QP/BwABPwQAAeAD/wcAAT8EAAT/BwABPwQABP8HAAE/BAAB+wH/ + AfgIAAE/BAAB8QH/AfAIAAE/BAAB4AH/AfAIAAE/BAAC/wHwCAABPwQAAv8B+AgAAT8EAAH4AX8B+AEB + BwABPwQAAfgB9wG4AQEHAAE/BAAB+QHnATgBAQcAAT8EAAH7AcYBOAEBBwABPwQAAf8B5wE4AQEHAAE/ + AwABAQH/AfcBuAEBAwABAQEQAYQBIAE/Bv8B/AEDBP8DAAF/DP8B4AEAAv8B4AEACv8BwAEAAv8BwAEA + Av8B/AEfA/8B+AEAAQcBwAEAAv8BwAEAAv8B8AEHA/8B+AEAAQcBgAEAAv8BgAEAAv8B4AEDA/8B+AEA + AQcBgAEAAv8BgAEAAv8B4AEDA/8B+AEAAQcCAAL/AgAC/wHAAQABfwL/AfgBAAEHAgAC/wIAAv8BwAEA + AQ8C/wH4AQABBwIAAv8CAAL/AcABAAEDAv8B+AEAAQcBgAEAAv8BgAEAAv8B4AEAAQEC/wH4AQABBwGA + AQAC/wGAAQAC/wHgAgAB/wHgAgABBwGAAQEC/wGAAQEC/wHwAgABfwHgAgABBwHAAX8C/wHAAX8C/wHw + AgABfwHgAgABBwHgA/8B4AP/AeACAAE/AeACAAEHCP8B4AIAAR8B4AIAAQcI/wHgAgABAwHgAgABBwH+ + A/8B+AE/Av8BwAIAAQEB4AIAAQcB/AF/Av8B/AF/Av8BwAIAAQEB4AIAAQ8B+AE/Av8B/gP/AcACAAE7 + AeACAAEfAfABHwH+AR8E/wHAAgABPwHgAgABPwHgAQ8B/AEPBP8B4AIAAT8B4AIAAX8B/AF/AfgBBwH4 + AT8B+AEAAeACAAE/AeACAAH/AfwBfwHwAQMB/AF/AfABAAHgAgABfwHgAQABHwH/AfwBfwHgAQEB/gH/ + AfABAAHwAgABfwHgAQABHwH/AfwBfwHgAQEC/wHwAQAB8AIAAf8B4AEAAR8B/wH8AX8BwAEAAf8BfwH4 + AQAB+AIAAf8B4AEAAT8B/wH8AQABQAGAAf4BbwF4AQEB/AEAAQEB/wHgAQABfwH/Af4BAAFAAQAB/AFn + ATgBAQH+AQABAwH/AeABAAP/AQABYAEBAfgBYwEYAQEB/wEAAQ8B/wHgAQEE/wHgAQEB/wHnATgBAQH/ + AeABPwH/AeABAwT/AfABAwH/Ae8BeAEBCv8B+AEHAv8B+AEBCv8B/AEPAv8B/AEDBf8BAAE/Af8B4AEA + Av8B4AEABv8B/AEAAQ8B/wHAAQAC/wHAAQAG/wHwAQABBwH/AcABAAL/AcABAAT/AYABPwHgAQABAwH/ + AYABAAL/AYABAAT/AYABHwHgAQABAQH/AYABAAL/AYABAAP/AQ8BgAEPAcABAAEBAf8CAAL/AgAD/wEP + AYABBwHAAQABAQH/AgAC/wIAA/8BPwGAAQcBwAEAAQMB/wIAAv8CAAP/AT8BgAEHAeABAAEDAf8BgAEA + Av8BgAEAAv8B/AEfAYABBwHwAQABDwH/AYABAAL/AYABAAL/Af4BPwGAAQcB+AEAAT8B/wGAAQEC/wGA + AQED/wF/AYABBwH4AQABPwH/AcABfwL/AcABfwT/AYABBwH4AQABPwH/AeAD/wHgBf8BgAEHAfgBAAEf + Cf8B4AEBAYABBwH4AQABBwn/AeABAQGAAQcB8AEAAQMF/wH+A/8B4AEBAYABBwHwAQABAwH/AfgD/wH8 + AX8C/wHgAQEBgAEHAfABAAEBAf8B+AP/AfgBPwL/AeABAQL/AfACAAH/AfgD/wHwAR8C/wHgAQEC/wHg + AgABfwH4A/8B4AEPAv8B4AEBAf4B/wHgAgABPwH4Af8B+AEAAfwBfwH4AQAB4AEBAfwBfwHgAgABHwH4 + AfsB8AEAAfwBfwHwAQAB4AEBAfgBPwHgAgABDwH4AfkB8AEAAfwBfwHwAQAB4AEBAfwB/wHgAgABBwL4 + AfABAAH8AX8B8AEAAeABAQH8Af8BwAIAAQMB+AEAAXgBAAH8AX8B+AEAAeABAQHwAf8BwAIAAQMB/AEA + ATgBAQH8AQABOAEBAeABAwHwAf8BwAIAAQMB/gEAAXgBAQH+AQABOAEBAeABBwL/AcACAAEHAf8C+AEB + Af8BAAE4AQEB4AEPAv8B8AIAAQ8B/wH5AfgBAQL/AfgBAQX/AcABAAEfAf8B+wH4AQEC/wH4AQEG/wEM + AT8C/wH4AQEC/wH4AQEG/wH+AX8C/wH8AQMC/wH8AQMK/wEPA/8BxwL/AfABDwb/AfwBAwP/AQEC/wGA + AQMD/wH8AQ8B/wHwAQAC/wH8AQABfwH/AgAB/wHjAf8B+AEPAf8BwAEAAT8B/wHwAQABPwH+AgABfwHA + AT8B8AEPAf8CAAE/Af8BwAEAAT8B/AIAAT8BwAEDAeABDwH8AgABPwH/AgABPwH4AgABHwHAAgABDwH4 + AgABHwH8AgABPwHwAgABDwHAAgABHwHwAgABHwH4AgABHwHgAgABBwHAAgABPwHwAgABHwH4AgABHwHg + AgABBwHAAgABPwHwAgABHwH4AgABHwHAAgABAwHAAgABPwHwAgABDwH4AgABHwHAAgABAwHAAgABHwHg + AgABDwHwAgABDwGAAgABAQHAAgABHwHgAgABDwHwAgABDwGAAgABAQHAAgABDwHgAgABBwHwAgABDwGA + AgABAQHAAgABDwHgAgABBwHwAgABDwGAAgABAQHAAgABBwHgAgABBwHgAgABBwGAAgABAQHAAgABBwHA + AgABBwHgAgABBwGAAgABAQHAAgABBwHAAgABAwHgAgABBwGAAgABAQHAAgABAwHAAgABAwHgAgABBwHA + AgABAwGAAgABAwHAAgABAwHAAgABAwHAAgABAwGAAgABAQHAAgABAwHAAQEB/AEDAcACAAEHAYACAAEB + AcACAAEBAcACAAEDAeACAAEHAYACAAEBAYACAAEBAcABHwH8AQMB4AIAAQ8BgAIAAQEBgAIAAQEBgAIA + AQcB8AIAAQ8BgAIAAUMBgAIAAQEBgAEfAfwBHwH4AgABHwGAAgABfwGAAgABAQGAAgABfwH8AgABPwHA + AgABfwGAAgABBwGAAR8B4AF/Af4CAAF/AcABBgEAAf8BgAIAAT8BgAIAAX8B/wIAAf8B4AEHAv8BgAEA + AQEB/wHAAgAC/wHAAQMB/wH+AQ8C/wHAAQABDwH/AfABAAEBAv8B+AEfBf8B+AEAAX8B/wH+AQABAwr/ + AQED/wEAAQcN/wH4AT8C/wH+AgABAQj/AfgCAAEBAf4CAAEBAfACAAEDBP8B/AIAAQEB/gIAAQEB4AIA + AQMB+AF/Af8BjwH+AgABAQH+AgABAQHAAgABAwHwAT8B/wEHAf4CAAEBAf4CAAEBAcACAAEDAeABPwH+ + AQcB/gIAAQEB/gIAAQEBwAIAAQMB4AEfAfwBBwH+AgABAQH+AgABAQHAAgABAwHgAQ8B8AEPAf4CAAEB + Af4CAAEBAcACAAEDAfABDwHgAR8B/gIAAQEB/gIAAQEBwAIAAQMB+AEHAcABfwH+AgABAQH+AgABAQHA + AgABAwH8AQMBgAH/Af4CAAEBAf4CAAEBAcACAAEDAf4CAQH/Af4CAAEBAf4CAAEBAcACAAEDAf8BAAED + Af8B/gIAAQEB/gIAAQEBwAIAAQMB/wGAAQcB/wH+AgABAQH+AgABAQHAAgABAwH/AcABDwH/Af4CAAEB + Af4CAAEBAcACAAEDAf8B4AEfAf8B/gIAAQEB/gIAAQEBwAIAAQMB/wHgAQ8B/wH+AgABAQH+AgABAQHA + AgABAwH/AcABAwH/Af4CAAEBAf4CAAEBAcACAAEDAf8BgAEBAf8B/gIAAQEB/gIAAQEBwAIAAQMB/wEB + AQAB/wH+AgABAQMAAQEBwAIAAQMB/gEDAYABfwMAAQEDAAEBAcACAAEDAfwBAwHAAR8DAAEBAwABAQHA + AgABAwH4AQcB4AEPAwABAQQAAcACAAEDAfABDwH4AQ8DAAEBBAABwAIAAQMB4AEfAfwBHwMAAQEDAAEB + AcACAAEDAeABPwH+AT8DAAEDAwABAwHAAgABAwHgAX8C/wMAAQMDAAEBAdgCAAEDAeABfwL/AwABBwMA + AQEB2AIAAQMB4AP/AwABDwH+AgABAwHAAgABAwT/Af4CAAEfAf4CAAEPAcACAAEDBP8B/gIAAT8B/gIA + AR8I/wH+AgABfwHAAgABAwH4AT8C/wHAAgABAwT/AcACAAEDAfgCAAEBAcACAAEDAcACAAEDBAAB/AIA + AQEEAAGAAgABAQQAAf4CAAEBBAABgAIAAQEEAAH+AgABAQQAAYACAAEBBAAB/gIAAQEEAAGAAgABAQQA + Af4CAAEBBAABgAIAAQEEAAH+AgABAQQAAYACAAEBBAAB/gIAAQEEAAGAAgABAQQAAf4CAAEBBAABgAIA + AQEEAAH+AgABAQQAAYACAAEBBAAB/gIAAQEEAAGAAgABAQQAAf4CAAEBBAABgAIAAQEEAAH+AgABAQQA + AYACAAEBBAAB/gIAAQEEAAGAAgABAQQAAf4CAAEBBAABgAIAAQEEAAH+AgABAQQAAYACAAEBBAAB/gIA + AQEEAAGAAgABAQQAAf4CAAEBBAABgAIAAQEEAAH+AgABAQQAAYACAAEBBwABAQQAAYACAAEBBwABAQQA + AYACAAEBBwABAQQAAYACAAEBBwABAQQAAYACAAEBBwABAQQAAYACAAEBBwABAwQAAYACAAEBBwABAwQA + AYACAAEBBwABBwQAAYACAAEBBwABDwQAAYACAAEBBAAB/gIAAR8EAAGAAgABAQHAAgABAwH+AgABPwHA + AgABAwHAAgABAwHAAgABAwH+AgABfwHAAgABAwT/Cw== + + + \ No newline at end of file diff --git a/InicioServicioYClientes/ucBarraGenerica.vb b/InicioServicioYClientes/ucBarraGenerica.vb new file mode 100644 index 0000000..f0d95df --- /dev/null +++ b/InicioServicioYClientes/ucBarraGenerica.vb @@ -0,0 +1,342 @@ + +Public Class ucBarraGenerica + Inherits System.Windows.Forms.UserControl + Public Event ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.toolBarButtonClickEventArgs) + +#Region " Cdigo generado por el Diseador de Windows Forms " + + Public Sub New() + MyBase.New() + + 'El Diseador de Windows Forms requiere esta llamada. + InitializeComponent() + + 'Agregar cualquier inicializacin despus de la llamada a InitializeComponent() + + End Sub + + 'UserControl reemplaza a Dispose para limpiar la lista de componentes. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + If Not (components Is Nothing) Then + components.Dispose() + End If + End If + MyBase.Dispose(disposing) + End Sub + + 'Requerido por el Diseador de Windows Forms + Private components As System.ComponentModel.IContainer + + 'NOTA: el Diseador de Windows Forms requiere el siguiente procedimiento + 'Puede modificarse utilizando el Diseador de Windows Forms. + 'No lo modifique con el editor de cdigo. + Friend WithEvents Botones As System.Windows.Forms.ImageList + Public WithEvents tlbSiguiente As System.Windows.Forms.toolBarButton + Public WithEvents TlbCrearPdf As System.Windows.Forms.toolBarButton + Public WithEvents tlbVisualizarPDF As System.Windows.Forms.toolBarButton + Public WithEvents tlbLimpiarPantalla As System.Windows.Forms.toolBarButton + Public WithEvents tlbAlmacenar As System.Windows.Forms.toolBarButton + Public WithEvents tlbEliminaFicha As System.Windows.Forms.toolBarButton + Public WithEvents tlbAyuda As System.Windows.Forms.toolBarButton + Public WithEvents tlbEnviar As System.Windows.Forms.toolBarButton + Public WithEvents tlbRecibir As System.Windows.Forms.toolBarButton + Public WithEvents tlbCancelar As System.Windows.Forms.toolBarButton + Public WithEvents tlbGrabar As System.Windows.Forms.toolBarButton + Public WithEvents tlbCopiar As System.Windows.Forms.toolBarButton + Public WithEvents tlbSalir As System.Windows.Forms.toolBarButton + Public WithEvents tbGenerico As System.Windows.Forms.toolBar + Public WithEvents tlbRecibirdeDisco As System.Windows.Forms.toolBarButton + Friend WithEvents tlbSolicitarCertificado As System.Windows.Forms.toolBarButton + Friend WithEvents tlbVerCertificado As System.Windows.Forms.toolBarButton + Friend WithEvents tlbCambiarPIN As System.Windows.Forms.toolBarButton + Friend WithEvents tlbExportarCertificado As System.Windows.Forms.toolBarButton + Friend WithEvents tlbRestaurarCopia As System.Windows.Forms.toolBarButton + Friend WithEvents tlbImprimir As System.Windows.Forms.toolBarButton + Friend WithEvents tlbRevocarCertificado As System.Windows.Forms.toolBarButton + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim tlbAnterior As System.Windows.Forms.toolBarButton + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucBarraGenerica)) + Me.tbGenerico = New System.Windows.Forms.toolBar() + Me.tlbSiguiente = New System.Windows.Forms.toolBarButton() + Me.tlbCrearPdf = New System.Windows.Forms.toolBarButton() + Me.tlbVisualizarPDF = New System.Windows.Forms.toolBarButton() + Me.tlbAlmacenar = New System.Windows.Forms.toolBarButton() + Me.tlbLimpiarPantalla = New System.Windows.Forms.toolBarButton() + Me.tlbEliminaFicha = New System.Windows.Forms.toolBarButton() + Me.tlbEnviar = New System.Windows.Forms.toolBarButton() + Me.tlbGrabar = New System.Windows.Forms.toolBarButton() + Me.tlbCopiar = New System.Windows.Forms.toolBarButton() + Me.tlbRecibir = New System.Windows.Forms.toolBarButton() + Me.tlbRecibirdeDisco = New System.Windows.Forms.toolBarButton() + Me.tlbCancelar = New System.Windows.Forms.toolBarButton() + Me.tlbAyuda = New System.Windows.Forms.toolBarButton() + Me.tlbSolicitarCertificado = New System.Windows.Forms.toolBarButton() + Me.tlbVerCertificado = New System.Windows.Forms.toolBarButton() + Me.tlbCambiarPIN = New System.Windows.Forms.toolBarButton() + Me.tlbExportarCertificado = New System.Windows.Forms.toolBarButton() + Me.tlbRevocarCertificado = New System.Windows.Forms.toolBarButton() + Me.tlbRestaurarCopia = New System.Windows.Forms.toolBarButton() + Me.tlbImprimir = New System.Windows.Forms.toolBarButton() + Me.tlbSalir = New System.Windows.Forms.toolBarButton() + Me.Botones = New System.Windows.Forms.ImageList(Me.components) + tlbAnterior = New System.Windows.Forms.toolBarButton() + Me.SuspendLayout() + ' + 'tlbAnterior + ' + tlbAnterior.Enabled = False + tlbAnterior.ImageIndex = 2 + tlbAnterior.Name = "tlbAnterior" + tlbAnterior.tag = "NOM:ANTERIOR" + tlbAnterior.toolTipText = "Anterior (F4)" + tlbAnterior.Visible = False + ' + 'tbGenerico + ' + Me.tbGenerico.AutoSize = False + Me.tbGenerico.Buttons.AddRange(New System.Windows.Forms.toolBarButton() {tlbAnterior, Me.tlbSiguiente, Me.tlbCrearPdf, Me.tlbVisualizarPDF, Me.tlbAlmacenar, Me.tlbLimpiarPantalla, Me.tlbEliminaFicha, Me.tlbEnviar, Me.tlbGrabar, Me.tlbCopiar, Me.tlbRecibir, Me.tlbRecibirdeDisco, Me.tlbCancelar, Me.tlbAyuda, Me.tlbSolicitarCertificado, Me.tlbVerCertificado, Me.tlbCambiarPIN, Me.tlbExportarCertificado, Me.tlbRevocarCertificado, Me.tlbRestaurarCopia, Me.tlbImprimir, Me.tlbSalir}) + Me.tbGenerico.Dock = System.Windows.Forms.DockStyle.None + Me.tbGenerico.DropDownArrows = True + Me.tbGenerico.ImageList = Me.Botones + Me.tbGenerico.Location = New System.Drawing.Point(0, 0) + Me.tbGenerico.Name = "tbGenerico" + Me.tbGenerico.ShowToolTips = True + Me.tbGenerico.Size = New System.Drawing.Size(765, 44) + Me.tbGenerico.tabIndex = 46 + Me.tbGenerico.tag = "FUN:S" + ' + 'tlbSiguiente + ' + Me.tlbSiguiente.Enabled = False + Me.tlbSiguiente.ImageIndex = 0 + Me.tlbSiguiente.Name = "tlbSiguiente" + Me.tlbSiguiente.tag = "NOM:SIGUIENTE|FUN:5" + Me.tlbSiguiente.toolTipText = "Siguiente (F5)" + Me.tlbSiguiente.Visible = False + ' + 'TlbCrearPdf + ' + Me.tlbCrearPdf.Enabled = False + Me.tlbCrearPdf.ImageIndex = 4 + Me.tlbCrearPdf.Name = "TlbCrearPdf" + Me.tlbCrearPdf.tag = "NOM:CREARPDF" + Me.tlbCrearPdf.toolTipText = "Crear PDF" + Me.tlbCrearPdf.Visible = False + ' + 'tlbVisualizarPDF + ' + Me.tlbVisualizarPDF.Enabled = False + Me.tlbVisualizarPDF.ImageIndex = 7 + Me.tlbVisualizarPDF.Name = "tlbVisualizarPDF" + Me.tlbVisualizarPDF.tag = "NOM:VISUALIZARPDF" + Me.tlbVisualizarPDF.toolTipText = "Visualizar PDF" + Me.tlbVisualizarPDF.Visible = False + ' + 'tlbAlmacenar + ' + Me.tlbAlmacenar.Enabled = False + Me.tlbAlmacenar.ImageIndex = 5 + Me.tlbAlmacenar.Name = "tlbAlmacenar" + Me.tlbAlmacenar.tag = "NOM:ALMCENAR|FUN:1|IMGN:26|IMGA:5" + Me.tlbAlmacenar.toolTipText = "Almacenar (F1)" + ' + 'tlbLimpiarPantalla + ' + Me.tlbLimpiarPantalla.Enabled = False + Me.tlbLimpiarPantalla.ImageIndex = 13 + Me.tlbLimpiarPantalla.Name = "tlbLimpiarPantalla" + Me.tlbLimpiarPantalla.tag = "NOM:LIMPIARPANTALLA|FUN:6" + Me.tlbLimpiarPantalla.toolTipText = "Limpiar Pantalla (F6)" + ' + 'tlbEliminaFicha + ' + Me.tlbEliminaFicha.Enabled = False + Me.tlbEliminaFicha.ImageIndex = 11 + Me.tlbEliminaFicha.Name = "tlbEliminaFicha" + Me.tlbEliminaFicha.tag = "NOM:ELIMINAFICHA|FUN:7" + Me.tlbEliminaFicha.toolTipText = "Elimina Ficha (F7)" + ' + 'tlbEnviar + ' + Me.tlbEnviar.Enabled = False + Me.tlbEnviar.ImageIndex = 19 + Me.tlbEnviar.Name = "tlbEnviar" + Me.tlbEnviar.tag = "NOM:ENVIAR" + Me.tlbEnviar.toolTipText = "Enviar por internet" + Me.tlbEnviar.Visible = False + ' + 'tlbGrabar + ' + Me.tlbGrabar.Enabled = False + Me.tlbGrabar.ImageIndex = 16 + Me.tlbGrabar.Name = "tlbGrabar" + Me.tlbGrabar.tag = "NOM:GRABAR" + Me.tlbGrabar.toolTipText = "Grabar en CD / DVD" + Me.tlbGrabar.Visible = False + ' + 'tlbCopiar + ' + Me.tlbCopiar.Enabled = False + Me.tlbCopiar.ImageIndex = 17 + Me.tlbCopiar.Name = "tlbCopiar" + Me.tlbCopiar.tag = "NOM:COPIAR|FUN:4" + Me.tlbCopiar.toolTipText = "Copiar (F4)" + Me.tlbCopiar.Visible = False + ' + 'tlbRecibir + ' + Me.tlbRecibir.Enabled = False + Me.tlbRecibir.ImageIndex = 20 + Me.tlbRecibir.Name = "tlbRecibir" + Me.tlbRecibir.tag = "NOM:RECIBIR" + Me.tlbRecibir.toolTipText = "Recibir de Internet" + Me.tlbRecibir.Visible = False + ' + 'tlbRecibirdeDisco + ' + Me.tlbRecibirdeDisco.Enabled = False + Me.tlbRecibirdeDisco.ImageIndex = 18 + Me.tlbRecibirdeDisco.Name = "tlbRecibirdeDisco" + Me.tlbRecibirdeDisco.tag = "NOM:RECIBIRDEDISCO" + Me.tlbRecibirdeDisco.toolTipText = "Incorporar datos desde disco" + Me.tlbRecibirdeDisco.Visible = False + ' + 'tlbCancelar + ' + Me.tlbCancelar.Enabled = False + Me.tlbCancelar.ImageIndex = 6 + Me.tlbCancelar.Name = "tlbCancelar" + Me.tlbCancelar.tag = "NOM:CANCELAR" + Me.tlbCancelar.toolTipText = "Cancelar" + Me.tlbCancelar.Visible = False + ' + 'tlbAyuda + ' + Me.tlbAyuda.Enabled = False + Me.tlbAyuda.ImageIndex = 8 + Me.tlbAyuda.Name = "tlbAyuda" + Me.tlbAyuda.tag = "NOM:AYUDA" + Me.tlbAyuda.toolTipText = "Ayuda" + Me.tlbAyuda.Visible = False + ' + 'tlbSolicitarCertificado + ' + Me.tlbSolicitarCertificado.ImageIndex = 24 + Me.tlbSolicitarCertificado.Name = "tlbSolicitarCertificado" + Me.tlbSolicitarCertificado.tag = "NOM:SolicitarCertificado|FUN:SOLICITARCERTIFICADO|VCO:S" + Me.tlbSolicitarCertificado.toolTipText = "Importar un certificado" + Me.tlbSolicitarCertificado.Visible = False + ' + 'tlbVerCertificado + ' + Me.tlbVerCertificado.ImageIndex = 25 + Me.tlbVerCertificado.Name = "tlbVerCertificado" + Me.tlbVerCertificado.tag = "NOM:VerCertificado" + Me.tlbVerCertificado.toolTipText = "Ver Certificado" + Me.tlbVerCertificado.Visible = False + ' + 'tlbCambiarPIN + ' + Me.tlbCambiarPIN.ImageIndex = 21 + Me.tlbCambiarPIN.Name = "tlbCambiarPIN" + Me.tlbCambiarPIN.tag = "NOM:CambiarPIN" + Me.tlbCambiarPIN.toolTipText = "Cambiar PIN del certificado" + Me.tlbCambiarPIN.Visible = False + ' + 'tlbExportarCertificado + ' + Me.tlbExportarCertificado.ImageIndex = 22 + Me.tlbExportarCertificado.Name = "tlbExportarCertificado" + Me.tlbExportarCertificado.tag = "NOM:ExportarCertificado" + Me.tlbExportarCertificado.toolTipText = "Exportar el certificado" + Me.tlbExportarCertificado.Visible = False + ' + 'tlbRevocarCertificado + ' + Me.tlbRevocarCertificado.ImageIndex = 23 + Me.tlbRevocarCertificado.Name = "tlbRevocarCertificado" + Me.tlbRevocarCertificado.tag = "NOM:RevocarCertificado" + Me.tlbRevocarCertificado.toolTipText = "Revocar el certificado" + Me.tlbRevocarCertificado.Visible = False + ' + 'tlbRestaurarCopia + ' + Me.tlbRestaurarCopia.ImageIndex = 28 + Me.tlbRestaurarCopia.Name = "tlbRestaurarCopia" + Me.tlbRestaurarCopia.tag = "NOM:RestaurarCopia" + Me.tlbRestaurarCopia.toolTipText = "Restaurar copia de seguridad" + Me.tlbRestaurarCopia.Visible = False + ' + 'tlbImprimir + ' + Me.tlbImprimir.ImageIndex = 29 + Me.tlbImprimir.Name = "tlbImprimir" + Me.tlbImprimir.tag = "NOM:IMPRIMIR|FUN:9" + Me.tlbImprimir.toolTipText = "Imprimir (F9)" + Me.tlbImprimir.Visible = False + ' + 'tlbSalir + ' + Me.tlbSalir.Enabled = False + Me.tlbSalir.ImageIndex = 3 + Me.tlbSalir.Name = "tlbSalir" + Me.tlbSalir.tag = "NOM:SALIR|FUN:8" + Me.tlbSalir.toolTipText = "Salir (F8)" + ' + 'Botones + ' + Me.Botones.ImageStream = CType(resources.GetObject("Botones.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.Botones.transparentColor = System.Drawing.Color.Blue + Me.Botones.Images.SetKeyName(0, "") + Me.Botones.Images.SetKeyName(1, "") + Me.Botones.Images.SetKeyName(2, "") + Me.Botones.Images.SetKeyName(3, "") + Me.Botones.Images.SetKeyName(4, "") + Me.Botones.Images.SetKeyName(5, "") + Me.Botones.Images.SetKeyName(6, "") + Me.Botones.Images.SetKeyName(7, "") + Me.Botones.Images.SetKeyName(8, "") + Me.Botones.Images.SetKeyName(9, "") + Me.Botones.Images.SetKeyName(10, "") + Me.Botones.Images.SetKeyName(11, "") + Me.Botones.Images.SetKeyName(12, "") + Me.Botones.Images.SetKeyName(13, "") + Me.Botones.Images.SetKeyName(14, "") + Me.Botones.Images.SetKeyName(15, "") + Me.Botones.Images.SetKeyName(16, "") + Me.Botones.Images.SetKeyName(17, "") + Me.Botones.Images.SetKeyName(18, "") + Me.Botones.Images.SetKeyName(19, "") + Me.Botones.Images.SetKeyName(20, "") + Me.Botones.Images.SetKeyName(21, "") + Me.Botones.Images.SetKeyName(22, "") + Me.Botones.Images.SetKeyName(23, "") + Me.Botones.Images.SetKeyName(24, "") + Me.Botones.Images.SetKeyName(25, "") + Me.Botones.Images.SetKeyName(26, "") + Me.Botones.Images.SetKeyName(27, "folder_time.png") + Me.Botones.Images.SetKeyName(28, "data_time.png") + Me.Botones.Images.SetKeyName(29, "printer.png") + ' + 'ucBarraGenerica + ' + Me.BackColor = System.Drawing.SystemColors.Control + Me.Controls.Add(Me.tbGenerico) + Me.Name = "ucBarraGenerica" + Me.Size = New System.Drawing.Size(768, 48) + Me.ResumeLayout(False) + + End Sub + +#End Region + + Private Sub tbGenerico_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.toolBarButtonClickEventArgs) Handles tbGenerico.ButtonClick + Try + RaiseEvent ButtonClick(sender, e) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error tbGenerico_ButtonClick") + End Try + End Sub +End Class diff --git a/Interfaces.vb b/Interfaces.vb new file mode 100644 index 0000000..948aa7b --- /dev/null +++ b/Interfaces.vb @@ -0,0 +1,13 @@ +Imports tsl5.Datos +Imports tsl5.Enumeraciones +Namespace Interfaces + Public Interface IServicioNR + Function ObtieneDatosConexionCliente(Peticion As DatosConfiguracionCliente, idGrupoBD As Integer, ByRef ex As Exception) As DatosConexionCliente + Function IniciaSesion(Usuario As String, Contraseña As String, ByRef idGrupoBD As Integer, ByRef ex As Exception) As DatosSesionCliente + ' Function CompruebaActualizacionesCliente(Aplicacion As String, ByRef Version As Datos.Actualizacion, ByRef ex As Exception) As TipoActualizacionEnum + End Interface + Public Interface IServiciotsl5 + Sub IniciarServicio() + Sub DetenerServicio() + End Interface +End Namespace \ No newline at end of file diff --git a/My Project/Application.Designer.vb b/My Project/Application.Designer.vb new file mode 100644 index 0000000..24aaa49 --- /dev/null +++ b/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' Este código fue generado por una herramienta. +' Versión de runtime:4.0.30319.42000 +' +' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si +' se vuelve a generar el código. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/My Project/Application.myapp b/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..b956f24 --- /dev/null +++ b/My Project/AssemblyInfo.vb @@ -0,0 +1,39 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' La información general sobre un ensamblado se controla mediante el siguiente +' conjunto de atributos. Cambie estos atributos para modificar la información +' asociada con un ensamblado. + +' Revisar los valores de los atributos del ensamblado + + + + + + + + + + +'El siguiente GUID sirve como identificador de typelib si este proyecto se expone a COM + + +' La información de versión de un ensamblado consta de los cuatro valores siguientes: +' +' Versión principal +' Versión secundaria +' Número de compilación +' Revisión +' +' Puede especificar todos los valores o usar los valores predeterminados de número de compilación y de revisión +' mediante el asterisco ('*'), como se muestra a continuación: +' + + + + +' Modificaciones: +' =============== +' 06/05/2012 MANMOG Cambios en AñadeAzip \ No newline at end of file diff --git a/My Project/DataSources/Entities.datasource b/My Project/DataSources/Entities.datasource new file mode 100644 index 0000000..869f918 --- /dev/null +++ b/My Project/DataSources/Entities.datasource @@ -0,0 +1,10 @@ + + + + tsl5.Entities, tsl5Model.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/My Project/DataSources/tsl5.tsl5Model.Entities.datasource b/My Project/DataSources/tsl5.tsl5Model.Entities.datasource new file mode 100644 index 0000000..b3b0a76 --- /dev/null +++ b/My Project/DataSources/tsl5.tsl5Model.Entities.datasource @@ -0,0 +1,10 @@ + + + + tsl5.tsl5Model.Entities, tsl5Model.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/My Project/Resources.Designer.vb b/My Project/Resources.Designer.vb new file mode 100644 index 0000000..6820006 --- /dev/null +++ b/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' Este código fue generado por una herramienta. +' Versión de runtime:4.0.30319.42000 +' +' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si +' se vuelve a generar el código. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'StronglyTypedResourceBuilder generó automáticamente esta clase + 'a través de una herramienta como ResGen o Visual Studio. + 'Para agregar o quitar un miembro, edite el archivo .ResX y, a continuación, vuelva a ejecutar ResGen + 'con la opción /str o recompile su proyecto de VS. + ''' + ''' Clase de recurso fuertemente tipado, para buscar cadenas traducidas, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Devuelve la instancia de ResourceManager almacenada en caché utilizada por esta clase. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("tsl5.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Reemplaza la propiedad CurrentUICulture del subproceso actual para todas las + ''' búsquedas de recursos mediante esta clase de recurso fuertemente tipado. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/My Project/Resources.resx b/My Project/Resources.resx new file mode 100644 index 0000000..6419bec --- /dev/null +++ b/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/My Project/Settings.Designer.vb b/My Project/Settings.Designer.vb new file mode 100644 index 0000000..fd4f6f8 --- /dev/null +++ b/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' Este código fue generado por una herramienta. +' Versión de runtime:4.0.30319.42000 +' +' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si +' se vuelve a generar el código. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funcionalidad para autoguardar My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.tsl5.My.MySettings + Get + Return Global.tsl5.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/My Project/Settings.settings b/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/My Project/licenses.licx b/My Project/licenses.licx new file mode 100644 index 0000000..e69de29 diff --git a/My Project/licenses.licx.bak b/My Project/licenses.licx.bak new file mode 100644 index 0000000..12e45c5 --- /dev/null +++ b/My Project/licenses.licx.bak @@ -0,0 +1 @@ +C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid, Version=1.3.20051.50128, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da \ No newline at end of file diff --git a/NetRemoting.vb b/NetRemoting.vb new file mode 100644 index 0000000..dfecf8c --- /dev/null +++ b/NetRemoting.vb @@ -0,0 +1,15 @@ +Imports System.Runtime.Remoting + +Public Class NetRemoting + Shared Sub IniciaServicioNR(Puerto As Integer, Nombre As String, tipo As Type) + Dim ht As New Hashtable + ht("port") = Puerto + ht("name") = Nombre + Dim serverProvTcp As New System.Runtime.Remoting.Channels.BinaryServerFormatterSinkProvider + serverProvTcp.TypeFilterLevel = Runtime.Serialization.Formatters.TypeFilterLevel.Full + Dim clientProvTcp As New System.Runtime.Remoting.Channels.BinaryClientFormatterSinkProvider + Dim tc As System.Runtime.Remoting.Channels.Tcp.TcpChannel = New System.Runtime.Remoting.Channels.Tcp.TcpChannel(ht, clientProvTcp, serverProvTcp) + System.Runtime.Remoting.RemotingConfiguration.RegisterWellKnownServiceType(tipo, Nombre & ".soap", WellKnownObjectMode.Singleton) + End Sub + +End Class diff --git a/NumerosAPalabras.vb b/NumerosAPalabras.vb new file mode 100644 index 0000000..212daed --- /dev/null +++ b/NumerosAPalabras.vb @@ -0,0 +1,380 @@ +Imports System +Imports System.Text + Imports System.Globalization + +''' +''' Convierte números en su expresión numérica a su numeral cardinal +''' +Public NotInheritable Class NumerosAPalabras + +#Region "Miembros estáticos" + + Private Const UNI As Integer = 0, DIECI As Integer = 1, DECENA As Integer = 2, CENTENA As Integer = 3 + Private Shared _matriz As String(,) = New String(CENTENA, 9) { + {Nothing, " uno", " dos", " tres", " cuatro", " cinco", " seis", " siete", " ocho", " nueve"}, + {" diez", " once", " doce", " trece", " catorce", " quince", " dieciséis", " diecisiete", " dieciocho", " diecinueve"}, + {Nothing, Nothing, Nothing, " treinta", " cuarenta", " cincuenta", " sesenta", " setenta", " ochenta", " noventa"}, + {Nothing, Nothing, Nothing, Nothing, Nothing, " quinientos", Nothing, " setecientos", Nothing, " novecientos"}} + Private Const [sub] As Char = CChar(ChrW(26)) + 'Cambiar acá si se quiere otro comportamiento en los métodos de clase + Public Const SeparadorDecimalSalidaDefault As String = "con" + Public Const MascaraSalidaDecimalDefault As String = "00'/100.-'" + Public Const DecimalesDefault As Int32 = 2 + Public Const LetraCapitalDefault As Boolean = False + Public Const ConvertirDecimalesDefault As Boolean = True + Public Const ApocoparUnoParteEnteraDefault As Boolean = False + Public Const ApocoparUnoParteDecimalDefault As Boolean = False + +#End Region + +#Region "Propiedades" + + Private _decimales As Int32 = DecimalesDefault + Private _cultureInfo As CultureInfo = Globalization.CultureInfo.CurrentCulture + Private _separadorDecimalSalida As String = SeparadorDecimalSalidaDefault + Private _posiciones As Int32 = DecimalesDefault + Private _mascaraSalidaDecimal As String, _mascaraSalidaDecimalInterna As String = MascaraSalidaDecimalDefault + Private _esMascaraNumerica As Boolean = True + Private _letraCapital As Boolean = LetraCapitalDefault + Private _convertirDecimales As Boolean = ConvertirDecimalesDefault + Private _apocoparUnoParteEntera As Boolean = False + Private _apocoparUnoParteDecimal As Boolean + + ''' + ''' Indica la cantidad de decimales que se pasarán a entero para la conversión + ''' + ''' Esta propiedad cambia al cambiar MascaraDecimal por un valor que empieze con '0' + Public Property Decimales() As Int32 + Get + Return _decimales + End Get + Set(ByVal value As Int32) + If value > 10 Then + Throw New ArgumentException(value.ToString() + " excede el número máximo de decimales admitidos, solo se admiten hasta 10.") + End If + _decimales = value + End Set + End Property + + ''' + ''' Objeto CultureInfo utilizado para convertir las cadenas de entrada en números + ''' + Public Property CultureInfo() As CultureInfo + Get + Return _cultureInfo + End Get + Set(ByVal value As CultureInfo) + _cultureInfo = value + End Set + End Property + + ''' + ''' Indica la cadena a intercalar entre la parte entera y la decimal del número + ''' + Public Property SeparadorDecimalSalida() As String + Get + Return _separadorDecimalSalida + End Get + Set(ByVal value As String) + _separadorDecimalSalida = value + 'Si el separador decimal es compuesto, infiero que estoy cuantificando algo, + 'por lo que apocopo el "uno" convirtiéndolo en "un" + If value.Trim().IndexOf(" ") > 0 Then + _apocoparUnoParteEntera = True + Else + _apocoparUnoParteEntera = False + End If + End Set + End Property + + ''' + ''' Indica el formato que se le dara a la parte decimal del número + ''' + Public Property MascaraSalidaDecimal() As String + Get + If Not [String].IsNullOrEmpty(_mascaraSalidaDecimal) Then + Return _mascaraSalidaDecimal + Else + Return "" + End If + End Get + Set(ByVal value As String) + 'determino la cantidad de cifras a redondear a partir de la cantidad de '0' o '' + 'que haya al principio de la cadena, y también si es una máscara numérica + Dim i As Integer = 0 + While i < value.Length AndAlso (value(i) = "0"c OrElse value(i) = "#") + i += 1 + End While + _posiciones = i + If i > 0 Then + _decimales = i + _esMascaraNumerica = True + Else + _esMascaraNumerica = False + End If + _mascaraSalidaDecimal = value + If _esMascaraNumerica Then + _mascaraSalidaDecimalInterna = value.Substring(0, _posiciones) + "'" + value.Substring(_posiciones).Replace("''", [sub].ToString()).Replace("'", [String].Empty).Replace([sub].ToString(), "'") + "'" + Else + _mascaraSalidaDecimalInterna = value.Replace("''", [sub].ToString()).Replace("'", [String].Empty).Replace([sub].ToString(), "'") + End If + End Set + End Property + + ''' + ''' Indica si la primera letra del resultado debe estár en mayúscula + ''' + Public Property LetraCapital() As Boolean + Get + Return _letraCapital + End Get + Set(ByVal value As Boolean) + _letraCapital = value + End Set + End Property + + ''' + ''' Indica si se deben convertir los decimales a su expresión nominal + ''' + Public Property ConvertirDecimales() As Boolean + Get + Return _convertirDecimales + End Get + Set(ByVal value As Boolean) + _convertirDecimales = value + _apocoparUnoParteDecimal = value + If value Then + ' Si la máscara es la default, la borro + If _mascaraSalidaDecimal = MascaraSalidaDecimalDefault Then + MascaraSalidaDecimal = "" + End If + ElseIf [String].IsNullOrEmpty(_mascaraSalidaDecimal) Then + MascaraSalidaDecimal = MascaraSalidaDecimalDefault + 'Si no hay máscara dejo la default + End If + End Set + End Property + + ''' + ''' Indica si de debe cambiar "uno" por "un" en las unidades. + ''' + Public Property ApocoparUnoParteEntera() As Boolean + Get + Return _apocoparUnoParteEntera + End Get + Set(ByVal value As Boolean) + _apocoparUnoParteEntera = value + End Set + End Property + + ''' + ''' Determina si se debe apococopar el "uno" en la parte decimal + ''' + ''' El valor de esta propiedad cambia al setear ConvertirDecimales + Public Property ApocoparUnoParteDecimal() As Boolean + Get + Return _apocoparUnoParteDecimal + End Get + Set(ByVal value As Boolean) + _apocoparUnoParteDecimal = value + End Set + End Property + +#End Region + +#Region "Constructores" + + Public Sub New() + MascaraSalidaDecimal = MascaraSalidaDecimalDefault + SeparadorDecimalSalida = SeparadorDecimalSalidaDefault + LetraCapital = LetraCapitalDefault + ConvertirDecimales = _convertirDecimales + End Sub + + Public Sub New(ByVal ConvertirDecimales As Boolean, ByVal MascaraSalidaDecimal As String, ByVal SeparadorDecimalSalida As String, ByVal LetraCapital As Boolean) + If Not [String].IsNullOrEmpty(MascaraSalidaDecimal) Then + Me.MascaraSalidaDecimal = MascaraSalidaDecimal + End If + If Not [String].IsNullOrEmpty(SeparadorDecimalSalida) Then + _separadorDecimalSalida = SeparadorDecimalSalida + End If + _letraCapital = LetraCapital + _convertirDecimales = ConvertirDecimales + End Sub + +#End Region + +#Region "Conversores de instancia" + + Public Function ToCustomCardinal(ByVal Numero As Double) As String + Return Convertir(Convert.ToDecimal(Numero), _decimales, _separadorDecimalSalida, _mascaraSalidaDecimalInterna, _esMascaraNumerica, _letraCapital, + _convertirDecimales, _apocoparUnoParteEntera, _apocoparUnoParteDecimal) + End Function + + Public Function ToCustomCardinal(ByVal Numero As String) As String + Dim dNumero As Double + If Double.TryParse(Numero, NumberStyles.Float, _cultureInfo, dNumero) Then + Return ToCustomCardinal(dNumero) + Else + Throw New ArgumentException("'" + Numero + "' no es un número válido.") + End If + End Function + + Public Function ToCustomCardinal(ByVal Numero As Decimal) As String + Return ToCardinal(Numero) + End Function + + Public Function ToCustomCardinal(ByVal Numero As Int32) As String + Return Convertir(Convert.ToDecimal(Numero), 0, _separadorDecimalSalida, _mascaraSalidaDecimalInterna, _esMascaraNumerica, _letraCapital, + _convertirDecimales, _apocoparUnoParteEntera, False) + End Function + +#End Region + +#Region "Conversores estáticos" + + Public Shared Function ToCardinal(ByVal Numero As Int32) As String + Return Convertir(Convert.ToDecimal(Numero), 0, Nothing, Nothing, True, LetraCapitalDefault, + ConvertirDecimalesDefault, ApocoparUnoParteEnteraDefault, ApocoparUnoParteDecimalDefault) + End Function + + Public Shared Function ToCardinal(ByVal Numero As Double) As String + Return Convertir(Convert.ToDecimal(Numero), DecimalesDefault, SeparadorDecimalSalidaDefault, MascaraSalidaDecimalDefault, True, LetraCapitalDefault, + ConvertirDecimalesDefault, ApocoparUnoParteEnteraDefault, ApocoparUnoParteDecimalDefault) + End Function + + Public Shared Function ToCardinal(ByVal Numero As String, ByVal ReferenciaCultural As CultureInfo) As String + Dim dNumero As Double + If Double.TryParse(Numero, NumberStyles.Float, ReferenciaCultural, dNumero) Then + Return ToCardinal(dNumero) + Else + Throw New ArgumentException("'" + Numero + "' no es un número válido.") + End If + End Function + + Public Shared Function ToCardinal(ByVal Numero As String) As String + Return NumerosAPalabras.ToCardinal(Numero, CultureInfo.CurrentCulture) + End Function + + Public Shared Function ToCardinal(ByVal Numero As Decimal) As String + Return ToCardinal(Convert.ToDouble(Numero)) + End Function + +#End Region + + Private Shared Function Convertir(ByVal Numero As Decimal, ByVal Decimales As Int32, ByVal SeparadorDecimalSalida As String, ByVal MascaraSalidaDecimal As String, ByVal EsMascaraNumerica As Boolean, ByVal LetraCapital As Boolean, + ByVal ConvertirDecimales As Boolean, ByVal ApocoparUnoParteEntera As Boolean, ByVal ApocoparUnoParteDecimal As Boolean) As String + Dim Num As Int64 + Dim terna As Int32, centenaTerna As Int32, decenaTerna As Int32, unidadTerna As Int32, iTerna As Int32 + Dim cadTerna As String + Dim Resultado As New StringBuilder() + + Num = Math.Floor(Math.Abs(Numero)) + + If Num >= 1000000000001 OrElse Num < 0 Then + Throw New ArgumentException("El número '" + Numero.ToString() + "' excedió los límites del conversor: [0;1.000.000.000.001]") + End If + If Num = 0 Then + Resultado.Append(" cero") + Else + iTerna = 0 + + Do Until Num = 0 + + iTerna += 1 + cadTerna = String.Empty + terna = Num Mod 1000 + + centenaTerna = Int(terna / 100) + decenaTerna = terna - centenaTerna * 100 'Decena junto con la unidad + unidadTerna = (decenaTerna - Math.Floor(decenaTerna / 10) * 10) + + Select Case decenaTerna + Case 1 To 9 + cadTerna = _matriz(UNI, unidadTerna) + cadTerna + Case 10 To 19 + cadTerna = cadTerna + _matriz(DIECI, unidadTerna) + Case 20 + cadTerna = cadTerna + " veinte" + Case 21 To 29 + cadTerna = " veinti" + _matriz(UNI, unidadTerna).Substring(1) + Case 30 To 99 + If unidadTerna <> 0 Then + cadTerna = _matriz(DECENA, Int(decenaTerna / 10)) + " y" + _matriz(UNI, unidadTerna) + cadTerna + Else + cadTerna += _matriz(DECENA, Int(decenaTerna / 10)) + End If + End Select + + Select Case centenaTerna + Case 1 + If decenaTerna > 0 Then + cadTerna = " ciento" + cadTerna + Else + cadTerna = " cien" + cadTerna + End If + Exit Select + Case 5, 7, 9 + cadTerna = _matriz(CENTENA, Int(terna / 100)) + cadTerna + Exit Select + Case Else + If Int(terna / 100) > 1 Then + cadTerna = _matriz(UNI, Int(terna / 100)) + "cientos" + cadTerna + End If + Exit Select + End Select + 'Reemplazo el 'uno' por 'un' si no es en las únidades o si se solicító apocopar + If (iTerna > 1 OrElse ApocoparUnoParteEntera) AndAlso decenaTerna = 21 Then + cadTerna = cadTerna.Replace("veintiuno", "veintiún") + ElseIf (iTerna > 1 OrElse ApocoparUnoParteEntera) AndAlso unidadTerna = 1 AndAlso decenaTerna <> 11 Then + cadTerna = cadTerna.Substring(0, cadTerna.Length - 1) + 'Acentúo 'veintidós', 'veintitrés' y 'veintiséis' + ElseIf decenaTerna = 22 Then + cadTerna = cadTerna.Replace("veintidos", "veintidós") + ElseIf decenaTerna = 23 Then + cadTerna = cadTerna.Replace("veintitres", "veintitrés") + ElseIf decenaTerna = 26 Then + cadTerna = cadTerna.Replace("veintiseis", "veintiséis") + End If + + 'Completo miles y millones + Select Case iTerna + Case 3 + If Numero < 2000000 Then + cadTerna += " millón" + Else + cadTerna += " millones" + End If + Case 2, 4 + If terna > 0 Then cadTerna += " mil" + End Select + Resultado.Insert(0, cadTerna) + Num = Int(Num / 1000) + Loop + End If + + 'Se agregan los decimales si corresponde + If Decimales > 0 Then + Dim EnteroDecimal As Int32 = Int(Math.Round((Numero - Int(Numero)) * Math.Pow(10, Decimales))) + If EnteroDecimal > 0 Then + Resultado.Append(" " + SeparadorDecimalSalida + " ") + If ConvertirDecimales Then + Dim esMascaraDecimalDefault As Boolean = MascaraSalidaDecimal = MascaraSalidaDecimalDefault + Resultado.Append(Convertir(Convert.ToDecimal(EnteroDecimal), 0, Nothing, Nothing, EsMascaraNumerica, False, + False, (ApocoparUnoParteDecimal AndAlso Not EsMascaraNumerica), False) + " " + (IIf(EsMascaraNumerica, "", MascaraSalidaDecimal))) + ElseIf EsMascaraNumerica Then + Resultado.Append(EnteroDecimal.ToString(MascaraSalidaDecimal)) + Else + Resultado.Append(EnteroDecimal.ToString() + " " + MascaraSalidaDecimal) + End If + End If + End If + 'Se pone la primer letra en mayúscula si corresponde y se retorna el resultado + If LetraCapital Then + Return Resultado(1).ToString().ToUpper() + Resultado.ToString(2, Resultado.Length - 2) + Else + Return Resultado.ToString().Substring(1) + End If + End Function + +End Class diff --git a/RegistroLocal.vb b/RegistroLocal.vb new file mode 100644 index 0000000..a711ffd --- /dev/null +++ b/RegistroLocal.vb @@ -0,0 +1,29 @@ +Public Class RegistroLocal + Public Shared Sub AñadirAlRegistroLocal(ByVal rutaConNombreDeArchivo As String, ByVal textoQueSeAñade As String) + Dim i As Integer = 0 + Dim hecho As Boolean = False + Dim carpeta As String = IO.Path.GetDirectoryName(rutaConNombreDeArchivo) + Dim archivo As String = IO.Path.GetFileNameWithoutExtension(rutaConNombreDeArchivo) + Dim extension As String = IO.Path.GetExtension(rutaConNombreDeArchivo) + Dim fechaHora As String + Dim nombreArchivoResultante As String + If Not IO.Directory.Exists(carpeta) Then + IO.Directory.CreateDirectory(carpeta) + End If + + While i < 3 AndAlso Not hecho + i += 1 + fechaHora = Now.ToString("yyyy-MM-dd--HH-mm-ss.fff") + nombreArchivoResultante = carpeta & "\" & archivo & "-" & fechaHora & extension + + Try + Using escritor As IO.StreamWriter = IO.File.AppendText(nombreArchivoResultante) + escritor.WriteLine(String.Format("{0} {1} {2}{3}", Now.ToShortDateString, Now.ToShortTimeString, Environment.NewLine, textoQueSeAñade)) + End Using + hecho = True + Catch ex As Exception + 'Nada, a propósito, ya que está diseñado para usar otro nombre de archivo si hace falta. Siempre debería dejarse registro en archivo. + End Try + End While + End Sub +End Class diff --git a/Settings.vb b/Settings.vb new file mode 100644 index 0000000..a6479e9 --- /dev/null +++ b/Settings.vb @@ -0,0 +1,11 @@ + +Namespace My + + 'Esta clase le permite controlar eventos específicos en la clase de configuración: + ' El evento SettingChanging se desencadena antes de cambiar un valor de configuración. + ' El evento PropertyChanged se desencadena después de cambiar el valor de configuración. + ' El evento SettingsLoaded se desencadena después de cargar los valores de configuración. + ' El evento SettingsSaving se desencadena antes de guardar los valores de configuración. + Partial Friend NotInheritable Class MySettings + End Class +End Namespace diff --git a/TripleDES.vb b/TripleDES.vb new file mode 100644 index 0000000..eb1b2ec --- /dev/null +++ b/TripleDES.vb @@ -0,0 +1,236 @@ +Imports System.IO +Imports System.Text +Imports System.Security.Cryptography + +Public Class TripleDES + Private TripleDes As New TripleDESCryptoServiceProvider + Private Function TruncateHash( + ByVal key As String, + ByVal length As Integer) As Byte() + + Dim sha1 As New SHA1CryptoServiceProvider + + ' Hash the key. + Dim keyBytes() As Byte = + System.Text.Encoding.Unicode.GetBytes(key) + Dim hash() As Byte = sha1.ComputeHash(keyBytes) + + ' Truncate or pad the hash. + ReDim Preserve hash(length - 1) + Return hash + End Function + Sub New(ByVal key As String) + ' Initialize the crypto provider. + TripleDes.Key = Encoding.ASCII.GetBytes(key) ' TruncateHash(key, TripleDes.KeySize \ 8) + Dim B As Byte() = New Byte() {0, 0, 0, 0, 0, 0, 0, 0} + TripleDes.IV = B + + TripleDes.Padding = PaddingMode.None + TripleDes.Mode = CipherMode.CBC + + End Sub + Public Function EncryptData( + ByVal plaintext As String) As String + + ' Convert the plaintext string to a byte array. + Dim plaintextBytes() As Byte = System.Text.Encoding.ASCII.GetBytes(plaintext) + + ' Create the stream. + Dim ms As New System.IO.MemoryStream + ' Create the encoder to write to the stream. + Dim encStream As New CryptoStream(ms, + TripleDes.CreateEncryptor(), + System.Security.Cryptography.CryptoStreamMode.Write) + + + ' Use the crypto stream to write the byte array to the stream. + encStream.Write(plaintextBytes, 0, plaintextBytes.Length) + encStream.FlushFinalBlock() + + ' Convert the encrypted stream to a printable string. + 'Return Convert.ToBase64String(ms.ToArray) + 'Return Convert.ToBase64String(ms.ToArray) + Return System.Text.Encoding.UTF8.GetString(ms.ToArray) + End Function + + Public Function EncryptDataHex(ByVal plaintext As String) As String + + ' Convert the plaintext string to a byte array. + Dim plaintextBytes() As Byte = System.Text.Encoding.ASCII.GetBytes(plaintext) + + ' Create the stream. + Dim ms As New System.IO.MemoryStream + ' Create the encoder to write to the stream. + Dim encStream As New CryptoStream(ms, + TripleDes.CreateEncryptor(), + System.Security.Cryptography.CryptoStreamMode.Write) + + + ' Use the crypto stream to write the byte array to the stream. + encStream.Write(plaintextBytes, 0, plaintextBytes.Length) + encStream.FlushFinalBlock() + + Return Utilidades.ByteArrayToHex(ms.ToArray) + End Function + + Public Function DecryptData( + ByVal encryptedtext As String) As String + + ' Convert the encrypted text string to a byte array. + 'Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext) + Dim encryptedBytes() As Byte = Encoding.ASCII.GetBytes(encryptedtext) + + ' Create the stream. + Dim ms As New System.IO.MemoryStream + ' Create the decoder to write to the stream. + Dim decStream As New CryptoStream(ms, + TripleDes.CreateDecryptor(), + System.Security.Cryptography.CryptoStreamMode.Write) + + ' Use the crypto stream to write the byte array to the stream. + decStream.Write(encryptedBytes, 0, encryptedBytes.Length) + decStream.FlushFinalBlock() + + ' Convert the plaintext stream to a string. + 'Return System.Text.Encoding.UTF8.GetString(ms.ToArray) + Return Convert.ToBase64String(ms.ToArray) + End Function + Public Function DecryptData(ByVal Encriptado() As Byte) As String + + ' Convert the encrypted text string to a byte array. + 'Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext) + + + ' Create the stream. + Dim ms As New System.IO.MemoryStream + ' Create the decoder to write to the stream. + Dim decStream As New CryptoStream(ms, + TripleDes.CreateDecryptor(), + System.Security.Cryptography.CryptoStreamMode.Write) + + + ' Use the crypto stream to write the byte array to the stream. + decStream.Write(Encriptado, 0, Encriptado.Length) + decStream.FlushFinalBlock() + + ' Convert the plaintext stream to a string. + Return System.Text.Encoding.ASCII.GetString(ms.ToArray) + ' Return Convert.ToBase64String(ms.ToArray) + End Function +End Class + +'Public Class TripleDES + +' ' define the triple des provider +' Private m_des As New TripleDESCryptoServiceProvider + +' ' define the string handler +' Private m_utf8 As New UTF8Encoding + +' ' define the local property arrays +' Private m_key() As Byte +' 'Private m_iv() As Byte + + +' Private Shared IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF} +' Public Sub New(ByVal key As String) +' Me.m_key = Encoding.ASCII.GetBytes(key) +' m_des.Mode = CipherMode.CBC +' m_des.Padding = PaddingMode.PKCS7 +' m_des.BlockSize = 64 + +' ' m_des.Padding = PaddingMode.None +' ' m_des.Mode = CipherMode.ECB +' ' Me.m_iv = iv +' End Sub + +' Public Sub New(ByVal key() As Byte, ByVal iv() As Byte) +' Me.m_key = key +' ' m_des.Padding = PaddingMode.None +' ' m_des.Mode = CipherMode.ECB +' ' Me.m_iv = iv +' End Sub + +' Public Function EncryptData(ByVal input() As Byte) As Byte() +' Return Transform(input, m_des.CreateEncryptor(m_key, IV)) +' End Function + +' Public Function Decrypt(ByVal input() As Byte) As Byte() +' Return Transform(input, m_des.CreateDecryptor(m_key, IV)) +' End Function + +' Public Function EncryptData(ByVal text As String) As String +' Dim input() As Byte = m_utf8.GetBytes(text) +' Dim output() As Byte = Transform(input, _ +' m_des.CreateEncryptor(m_key, IV)) +' Return Convert.ToBase64String(output) +' End Function + +' Public Function Decrypt(ByVal text As String) As String +' Dim input() As Byte = Convert.FromBase64String(text) +' Dim output() As Byte = Transform(input, _ +' m_des.CreateDecryptor(m_key, IV)) +' Return m_utf8.GetString(output) +' End Function + +' Private Function Transform(ByVal input() As Byte, _ +' ByVal CryptoTransform As ICryptoTransform) As Byte() +' ' create the necessary streams +' Dim memStream As MemoryStream = New MemoryStream +' Dim cryptStream As CryptoStream = New _ +' CryptoStream(memStream, CryptoTransform, _ +' CryptoStreamMode.Write) +' ' transform the bytes as requested +' cryptStream.Write(input, 0, input.Length) +' cryptStream.FlushFinalBlock() +' ' Read the memory stream and convert it back into byte array +' memStream.Position = 0 +' Dim result(CType(memStream.Length - 1, System.Int32)) As Byte +' memStream.Read(result, 0, CType(result.Length, System.Int32)) +' ' close and release the streams +' memStream.Close() +' cryptStream.Close() +' ' hand back the encrypted buffer +' Return result +' End Function +' Public Shared Function DESEncrypt(ByVal Data As String, ByVal Key As String) As Byte() + +' Try +' Dim bykey() As Byte = System.Text.Encoding.UTF8.GetBytes(Left(Key, 24)) + + +' If String.IsNullOrEmpty(Data) Then + +' Throw New ArgumentException("No data passed", "input") + +' ElseIf bykey Is Nothing OrElse bykey.Length <> 24 Then + +' Throw New ArgumentException("Invalid Key. Key must be 24 bytes length", "key") + +' End If + +' Dim InputByteArray() As Byte = System.Text.Encoding.UTF8.GetBytes(Data) + +' Using ms As New IO.MemoryStream + +' Using des As New Security.Cryptography.TripleDESCryptoServiceProvider + +' Using cs As New Security.Cryptography.CryptoStream(ms, des.CreateEncryptor(bykey, IV), Security.Cryptography.CryptoStreamMode.Write) + +' cs.Write(InputByteArray, 0, InputByteArray.Length) +' cs.FlushFinalBlock() +' Return ms.ToArray() + +' End Using + +' End Using + +' End Using + +' Catch ex As Exception +' Throw +' End Try + +' End Function + +'End Class diff --git a/TsLogger.vb b/TsLogger.vb new file mode 100644 index 0000000..b6bae38 --- /dev/null +++ b/TsLogger.vb @@ -0,0 +1,218 @@ +Imports System.Net.Http +Imports System.IO +Imports Microsoft.Extensions.Logging +Imports System.Threading.Tasks +Imports System.Configuration + +'// Ejemplo de uso de la extensión LogVariable(): +'// +'// ' Registrar información de una variable +'// Dim peassoVariable As String = "Hello, World!" +'// logger.LogVariable("peassoVariable", peassoVariable, LogLevel.Debug) + +'// El uso del destino Pushover está limitado a danmun. + +Public NotInheritable Class TsLoggerConfiguration + '// Identificador del evento a registrar (0 para todos). + Public Property EventId As Integer = 0 + '// Nivel mínimo de registro. + Private Property _minimumLogLevel As LogLevel = LogLevel.Trace + Public Property MinimumLogLevel As String + Get + Return _minimumLogLevel + End Get + Set(logLevelString As String) + If Not [Enum].TryParse(logLevelString, True, _minimumLogLevel) Then + '// Valor predeterminado en caso de que no se pueda + '// interpretar la configuración. + _minimumLogLevel = LogLevel.Trace + End If + End Set + End Property + '// Indica si se debe registrar en la consola. + Public Property LogToConsole As Boolean = False + '// Indica si se debe registrar en la salida de depuración. + Public Property LogToDebug As Boolean = True + '// Indica si se debe registrar en un archivo. + Public Property LogToFile As Boolean = False + '// Ruta base para los archivos de registro (debe ser válida y accesible). + Public Property LogFilePath As String + Public Property LogToPushover As Boolean = False + Public Property PushoverMinimumLogLevel As LogLevel = LogLevel.Error + Public Property LogToSlack As Boolean = False + Public Property SlackDestination As String = "#notificaciones" + Public Property NetworkInSeparateThread As Boolean = False + Public Property IncludeSourceInfo As Boolean = False + '// Mapeo entre los niveles de registro y los colores de la consola. + Friend ReadOnly Property LogLevelToColorMap As Dictionary(Of LogLevel, ConsoleColor) = New Dictionary(Of LogLevel, ConsoleColor) From { + {LogLevel.Trace, ConsoleColor.DarkCyan}, + {LogLevel.Debug, ConsoleColor.Cyan}, + {LogLevel.Information, ConsoleColor.Green}, + {LogLevel.Warning, ConsoleColor.DarkYellow}, + {LogLevel.Error, ConsoleColor.Red}, + {LogLevel.Critical, ConsoleColor.Magenta} + } +End Class + +Public NotInheritable Class TsLogger + Implements ILogger + + Private ReadOnly _name As String + Private ReadOnly _getCurrentConfig As Func(Of TsLoggerConfiguration) + Private ReadOnly _config As TsLoggerConfiguration + + '// Constructor con nombre y función para obtener la configuración actual. + Public Sub New(name As String, getCurrentConfig As Func(Of TsLoggerConfiguration)) + If String.IsNullOrEmpty(name) Then Throw New ArgumentException("El nombre no puede estar vacío", NameOf(name)) + If getCurrentConfig Is Nothing Then Throw New ArgumentNullException(NameOf(getCurrentConfig)) + _name = name + _getCurrentConfig = getCurrentConfig + End Sub + + '// Constructor con nombre y configuración directa. + Public Sub New(name As String, config As TsLoggerConfiguration) + If String.IsNullOrEmpty(name) Then Throw New ArgumentException("El nombre no puede estar vacío", NameOf(name)) + If config Is Nothing Then Throw New ArgumentNullException(NameOf(config)) + _name = name + _config = config + End Sub + + '// Obtener la configuración actual. + Private Function GetCurrentConfiguration() As TsLoggerConfiguration + Return If(_getCurrentConfig IsNot Nothing, _getCurrentConfig.Invoke(), _config) + End Function + + '// Verifica si el nivel de registro está habilitado. + Public Function IsEnabled(logLevel As LogLevel) As Boolean Implements ILogger.IsEnabled + Return logLevel >= GetCurrentConfiguration().MinimumLogLevel + End Function + + '// Registra un mensaje con la configuración dada. + Public Sub Log(Of TState)(logLevel As LogLevel, eventId As EventId, state As TState, exception As Exception, formatter As Func(Of TState, Exception, String)) Implements ILogger.Log + Try + Dim config As TsLoggerConfiguration = GetCurrentConfiguration() '// Obtener la configuración. + If Not IsEnabled(logLevel) Then Return + + '// Obtener la información del archivo de código fuente si está habilitado. + Dim sourceInfo As String = "" + If config.IncludeSourceInfo Then + Dim stackTrace As New Diagnostics.StackTrace(True) + Dim frame As Diagnostics.StackFrame = stackTrace.GetFrame(1) + Dim fileName As String = frame.GetFileName() + Dim method As String = frame.GetMethod().Name + Dim line As Integer = frame.GetFileLineNumber() + sourceInfo = $" [Archivo: {fileName}, Método: {method}, Línea: {line}]" + End If + + '// Mensaje básico sin la fecha y hora. + Dim basicMessage As String = $"[{eventId.Id,2}: {logLevel,-12}] {_name} - {formatter(state, exception)}{sourceInfo}" + '// Agregar la fecha y hora actual al inicio del mensaje para consola y archivo. + Dim timestamp As String = DateTime.Now.ToString("yyyy-MM-dd_HH·mm·sszz") + Dim messageWithTimestamp As String = $"{timestamp} {basicMessage}" + + '// Registrar en la consola si está habilitado. + If config.LogToConsole Then + Console.ForegroundColor = config.LogLevelToColorMap(logLevel) + Console.WriteLine(messageWithTimestamp) + End If + + '// Registrar en la salida de depuración si está habilitado. + If config.LogToDebug Then + Debug.WriteLine(basicMessage) + End If + + '// Registrar en un archivo si está habilitado. + If config.LogToFile Then + If String.IsNullOrEmpty(config.LogFilePath) Then + Debug.WriteLine($"La ruta del archivo de registro no está especificada. Se omite el registro en archivos para el mensaje: {basicMessage}") + Else + Try + '// Intentar crear el directorio si no existe. + Directory.CreateDirectory(config.LogFilePath) + Dim folderPath As String = Path.Combine(config.LogFilePath, DateTime.Now.ToString("yyyy\\MM")) + Directory.CreateDirectory(folderPath) + + Dim fileName As String = $"{DateTime.Now:yyyy-MM-dd_HH·mm·sszz}_{_name}.log" + Dim filePath As String = Path.Combine(folderPath, fileName) + + Using writer As New StreamWriter(filePath, append:=True) + writer.WriteLine(messageWithTimestamp) + End Using + Catch ex As IOException + Debug.WriteLine($"Error al intentar crear o acceder a la ruta del archivo de registro '{config.LogFilePath}'. Error: {ex}") + End Try + End If + End If + + '// Enviar notificación a Pushover si está habilitado. + If config.LogToPushover AndAlso logLevel >= config.PushoverMinimumLogLevel Then + Dim parameters As New Dictionary(Of String, String) From { + {"token", "a42g7oaz2t4u7unbdg5nm7qaqocht6"}, + {"user", "uxzAV6NcPoxkAGLSNWSsZX9SfPeUo5"}, + {"message", basicMessage}, + {"title", $"{_name}"}, '// Utilizar el nombre del registrador como título. + {"priority", GetPushoverPriority(logLevel)} '// Establecer la prioridad en función del nivel de registro. + } + If config.NetworkInSeparateThread Then + Task.Run(Sub() + Using client As New HttpClient() + Dim response = client.PostAsync("https://api.pushover.net/1/messages.json", New FormUrlEncodedContent(parameters)).Result + Debug.WriteLine(response.ToString) + End Using + End Sub) + Else + Using client As New HttpClient() + Dim response = client.PostAsync("https://api.pushover.net/1/messages.json", New FormUrlEncodedContent(parameters)).Result + Debug.WriteLine(response.ToString) + End Using + End If + End If + + '// Enviar notificación a Slack si está habilitado. + If config.LogToSlack Then + If config.NetworkInSeparateThread Then + Task.Run(Sub() + tsl5.Utilidades.EnviarNotificacionSlack(basicMessage, otroTexto:=timestamp, descripcionRemitente:=$"TsLogger {_name}", destinatario:=config.SlackDestination) + End Sub) + Else + tsl5.Utilidades.EnviarNotificacionSlack(basicMessage, otroTexto:=timestamp, descripcionRemitente:=$"TsLogger {_name}", destinatario:=config.SlackDestination) + End If + End If + Catch ex As Exception + Debug.WriteLine($"Excepción en TsLogger: {ex}") + End Try + End Sub + + '// Implementación básica de BeginScope (no se necesita un manejo detallado de alcance en esta implementación). + Private Function ILogger_BeginScope(Of TState)(state As TState) As IDisposable Implements ILogger.BeginScope + Return New EmptyDisposable() + End Function + + '// Clase auxiliar para cumplir con la interfaz IDisposable requerida por BeginScope. + Private Class EmptyDisposable + Implements IDisposable + Public Sub Dispose() Implements IDisposable.Dispose + '// No se requiere ninguna acción aquí. + End Sub + End Class + ' Método auxiliar para convertir el nivel de registro en una prioridad para Pushover. + Private Function GetPushoverPriority(logLevel As LogLevel) As String + Select Case logLevel + Case LogLevel.Critical + Return "1" ' Prioridad alta + Case LogLevel.Error + Return "1" ' Prioridad alta + Case LogLevel.Warning + Return "0" ' Prioridad normal + Case LogLevel.Information + Return "-1" ' Prioridad baja + Case LogLevel.Debug + Return "-1" ' Prioridad baja + Case LogLevel.Trace + Return "-2" ' Prioridad mínima + Case Else + Return "0" ' Prioridad normal + End Select + End Function +End Class + diff --git a/UrlDetector.vb b/UrlDetector.vb new file mode 100644 index 0000000..73ea2ac --- /dev/null +++ b/UrlDetector.vb @@ -0,0 +1,56 @@ +Imports System.Text.RegularExpressions + +Public Class UrlDetector + '// Lista de protocolos compatibles + Private Shared ReadOnly Protocols As String = "https?|ftps?|sftp|file|mailto|data|rtsp|rtmp|mms|jdbc|telnet|ssh|ws|wss|svn|git|vnc|irc|sip|bitcoin|ethereum|magnet|news|nntp|ldap" + + '// Patrón de nombres de dominio + Private Shared ReadOnly DomainPattern As String = "(?:[a-zA-Z0-9-]+\.)+[a-zA-Z]{2,6}" + + '// Patrón para direcciones IPv4 + Private Shared ReadOnly IPv4Pattern As String = "(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)" + + '// Patrón para direcciones IPv6 + Private Shared ReadOnly IPv6Pattern As String = "\[(?:[0-9a-fA-F]{1,4}:){7}[0-9a-fA-F]{1,4}\]" + + '// Patrón para localhost + Private Shared ReadOnly LocalhostPattern As String = "localhost" + + '// Número de puerto y ruta opcionales + Private Shared ReadOnly PortAndPathPattern As String = "(?::\d{1,5})?(?:/\S*)?" + + '// Compilar los patrones regex para mejorar el rendimiento + Private Shared ReadOnly UrlContainsRegex As New Regex( + $"({Protocols})://(?:{DomainPattern}|{IPv4Pattern}|{IPv6Pattern}|{LocalhostPattern}){PortAndPathPattern}", + RegexOptions.Compiled Or RegexOptions.IgnoreCase) + + Private Shared ReadOnly UrlIsRegex As New Regex( + $"^({Protocols})://(?:{DomainPattern}|{IPv4Pattern}|{IPv6Pattern}|{LocalhostPattern}){PortAndPathPattern}$", + RegexOptions.Compiled Or RegexOptions.IgnoreCase) + + ''' + ''' Determina si el mensaje dado contiene una URL. + ''' + ''' El mensaje a verificar. + ''' True si el mensaje contiene una URL, en caso contrario False. + Public Shared Function ContainsUrl(message As String) As Boolean + If String.IsNullOrWhiteSpace(message) Then + Return False + End If + + Return UrlContainsRegex.IsMatch(message) + End Function + + ''' + ''' Determina si el mensaje dado es una URL. + ''' + ''' El mensaje a verificar. + ''' True si el mensaje contiene una URL, en caso contrario False. + Public Shared Function IsUrl(message As String) As Boolean + If String.IsNullOrWhiteSpace(message) Then + Return False + End If + + Return UrlIsRegex.IsMatch(message) + End Function +End Class \ No newline at end of file diff --git a/Utilidades.vb b/Utilidades.vb new file mode 100644 index 0000000..840cd05 --- /dev/null +++ b/Utilidades.vb @@ -0,0 +1,1214 @@ +Imports System.IO +Imports System.Xml +Imports System.Xml.Serialization +Imports System.Windows.Forms +Imports System.Text.RegularExpressions +Imports System.Text +Imports System.Net +Imports System.Net.Security +Imports System.Security.Cryptography.X509Certificates +Imports Renci.SshNet.Security.Org.BouncyCastle.Math.EC +Imports System.Globalization +Imports System.Net.Http +Imports System.Threading.Tasks +Imports System.Web +Imports System.Runtime.Serialization + +Public Enum FormatoFechasEnum As Integer + FECHA_HORA = 0 + FECHA_SEPARADO_POR_BARRAS = 1 + FECHA_ESPACIADO_GRANDE = 2 + FECHA_ESPACIADO_PEQUEÑO = 3 +End Enum +Public Class Utilidades + Public Shared Function CodificarBase64(texto As String) As String + Dim stringbytes As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(texto) + Return System.Convert.ToBase64String(stringbytes).TrimEnd("=").Replace("+", "-").Replace("/", "_") + End Function + Public Shared Function AscciABase64(texto As String) As String + Dim stringbytes As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(texto) + Return System.Convert.ToBase64String(stringbytes) + End Function + Public Shared Function Base64AAscii(texto As String) As String + Dim bytes As Byte() = Convert.FromBase64String(texto) + Return Encoding.ASCII.GetString(bytes) + End Function + Public Shared Function DecodificarBase64(texto As String) As String + Dim bytes As Byte() = Convert.FromBase64String(texto) + Return Encoding.ASCII.GetString(bytes) + End Function + + Public Shared Function ObtieneMensajeExcepcionCompleto(ex As Exception) As String + Dim sMensaje As String = "Tipo excepción: " & ex.ToString & vbCrLf + Dim exError As Exception = ex + Do + sMensaje &= exError.StackTrace & vbCrLf + exError = exError.InnerException + Loop Until IsNothing(exError) + Return sMensaje + End Function + Public Shared Function IntervalosFechasCoincidentes(FechaInicio1 As DateTime, FechaFin1 As DateTime, FechaInicio2 As DateTime, FechaFin2 As DateTime, Optional LimitesIgualesPermitidos As Boolean = False) As Boolean + 'Return (FechaInicio1 <= FechaInicio2 And FechaInicio2 < FechaFin1) OrElse (FechaInicio2 <= FechaInicio1 And FechaFin2 > FechaInicio1) + ' Return (FechaInicio1 <= FechaInicio2 AndAlso FechaInicio2 <= FechaFin1) OrElse (FechaInicio2 <= FechaInicio1 AndAlso FechaFin2 >= FechaInicio1) + If LimitesIgualesPermitidos Then + Return FechaInicio1 < FechaFin2 AndAlso FechaInicio2 < FechaFin1 + Else + Return FechaInicio1 <= FechaFin2 AndAlso FechaInicio2 <= FechaFin1 + End If + End Function + + Public Shared Sub CreaEstructuraDirectorio(ByVal Ruta As String) + Dim sDirectorios() As String = Ruta.Split("\") + Dim sDirectorio As String = "" + Dim i As Integer + For i = 0 To sDirectorios.Length - 1 + Try + sDirectorio &= sDirectorios(i) & "\" + If Not IO.Directory.Exists(sDirectorio) Then IO.Directory.CreateDirectory(sDirectorio) + Catch ex As Exception + End Try + Next + End Sub + + Public Shared Function Deserializa(ByVal BA As Byte(), ByVal tipo As System.Type, Optional SinErrores As Boolean = False) As Object + Dim xs As New System.Xml.Serialization.XmlSerializer(tipo) + If SinErrores Then + AddHandler xs.UnknownElement, AddressOf ElementoDesconocido + AddHandler xs.UnknownNode, AddressOf NodoDesconocido + AddHandler xs.UnknownAttribute, AddressOf AtributoDesconocido + AddHandler xs.UnreferencedObject, AddressOf ObjetoNoReferenciado + End If + 'Dim fs As New FileStream(Fichero, FileMode.Open, FileAccess.Read) + Dim ms As New MemoryStream(BA) + Dim obj As Object = xs.Deserialize(ms) + '.Close() + Return obj + End Function + + Public Shared Function DeserializaFichero(ByVal Fichero As String, ByVal tipo As System.Type) As Object + Dim xs As New System.Xml.Serialization.XmlSerializer(tipo) + Dim fs As New FileStream(Fichero, FileMode.Open, FileAccess.Read) + Dim obj As Object = xs.Deserialize(fs) + fs.Close() + Return obj + End Function + Public Shared Function Serializar(ByVal obj As Object) As String + Dim se As New System.Xml.Serialization.XmlSerializer(obj.GetType) + Dim sw As New StringWriter + se.Serialize(sw, obj) + Return sw.ToString + End Function + + 'Public Shared Function serializarBase64(ByVal obj As Object, Codificacion As System.Text.Encoding) As String + ' Dim xs As New System.Xml.Serialization.XmlSerializer(obj.GetType) + ' Dim sw As New StringWriter + ' xs.Serialize(sw, obj) + ' Dim str = sw.ToString + ' Dim b = Codificacion.GetBytes(str) + + ' Return sw.ToString + 'End Function + + Public Shared Sub SerializarUTF8(ByVal obj As Object, FicheroDestino As String) + Dim se As New System.Xml.Serialization.XmlSerializer(obj.GetType) + If IO.File.Exists(FicheroDestino) Then IO.File.Delete(FicheroDestino) + Dim fs As New IO.FileStream(FicheroDestino, FileMode.CreateNew) + Dim settings = New XmlWriterSettings() + With settings + .Encoding = UTF8Encoding.UTF8 + .NewLineOnAttributes = True + .Indent = True + End With + Dim xmlw = XmlWriter.Create(fs, settings) + se.Serialize(xmlw, obj) + fs.Close() + End Sub + Public Shared Function SerializarUTF8(ByVal obj As Object) As String + Dim se As New System.Xml.Serialization.XmlSerializer(obj.GetType) + Dim sb As New StringBuilder + Dim settings = New XmlWriterSettings() + With settings + .Encoding = UTF8Encoding.UTF8 + .NewLineOnAttributes = True + .Indent = True + End With + Dim xmlw = XmlWriter.Create(sb, settings) + se.Serialize(xmlw, obj) + Return sb.ToString + End Function + + Public Shared Sub Serializar(ByVal obj As Object, FicheroDestino As String, Optional EliminarNamespace As Boolean = False) + Dim se As New System.Xml.Serialization.XmlSerializer(obj.GetType) + If IO.File.Exists(FicheroDestino) Then IO.File.Delete(FicheroDestino) + Dim fs As New IO.FileStream(FicheroDestino, FileMode.CreateNew) + If EliminarNamespace Then + + Dim xmlNamespace = New XmlSerializerNamespaces() + xmlNamespace.Add(String.Empty, "https://filezilla-project.org") + se.Serialize(fs, obj, xmlNamespace) + Else + se.Serialize(fs, obj) + End If + fs.Close() + End Sub + + + + Public Shared Function SerializarAByteArray(ByVal obj As Object) As Byte() + Dim se As New System.Xml.Serialization.XmlSerializer(obj.GetType) + Dim ms As New MemoryStream + se.Serialize(ms, obj) + Return ms.ToArray + End Function + + Public Shared Function SerializarSinDeclaracion(ByVal obj As Object) As String + Dim ms As New MemoryStream + Dim settings As New XmlWriterSettings + Dim utf8 As New System.Text.UTF8Encoding + settings.OmitXmlDeclaration = True + settings.Indent = True + settings.Encoding = utf8 + Dim xw As XmlWriter = XmlWriter.Create(ms, settings) + Dim ns As New XmlSerializerNamespaces() + ns.Add("", "") + Dim se As New System.Xml.Serialization.XmlSerializer(obj.GetType) + se.Serialize(xw, obj, ns) + Return utf8.GetString(ms.ToArray) + End Function + Public Shared Sub ByteArrayAFichero(Datos() As Byte, NombreFichero As String, Optional Sobreescribir As Boolean = False) + If Not IO.Directory.Exists(IO.Path.GetDirectoryName(NombreFichero)) Then CreaEstructuraDirectorio(IO.Path.GetDirectoryName(NombreFichero)) + If IO.File.Exists(NombreFichero) And Sobreescribir Then IO.File.Delete(NombreFichero) + Dim oFileStream As System.IO.FileStream + oFileStream = New System.IO.FileStream(NombreFichero, System.IO.FileMode.Create) + oFileStream.Write(Datos, 0, Datos.Length) + oFileStream.Close() + End Sub + Public Shared Function deserializar(ByVal cadena As String, ByVal tipo As System.Type) As Object + Dim xs As New System.Xml.Serialization.XmlSerializer(tipo) + Dim sr As New StringReader(cadena) + Dim xr As New System.Xml.XmlTextReader(sr) + Dim obj As Object = xs.Deserialize(xr) + xr.Close() + sr.Close() + Return obj + End Function + + Public Shared Function DeserializarSinErrores(ByVal cadena As String, ByVal tipo As System.Type) As Object + Return deserializar(cadena, tipo, True) + End Function + + + Public Shared Function deserializar(ByVal cadena As String, ByVal tipo As System.Type, Optional SinErrores As Boolean = True) As Object + Dim xs As New System.Xml.Serialization.XmlSerializer(tipo) + If SinErrores Then + AddHandler xs.UnknownElement, AddressOf ElementoDesconocido + AddHandler xs.UnknownNode, AddressOf NodoDesconocido + AddHandler xs.UnknownAttribute, AddressOf AtributoDesconocido + AddHandler xs.UnreferencedObject, AddressOf ObjetoNoReferenciado + End If + Dim sr As New StringReader(cadena) + Dim xr As New System.Xml.XmlTextReader(sr) + Dim obj As Object = xs.Deserialize(xr) + xr.Close() + sr.Close() + Return obj + End Function + + + Private Shared Sub ObjetoNoReferenciado(sender As Object, e As UnreferencedObjectEventArgs) + + End Sub + + Private Shared Sub AtributoDesconocido(sender As Object, e As XmlAttributeEventArgs) + + End Sub + + Private Shared Sub NodoDesconocido(sender As Object, e As XmlNodeEventArgs) + + End Sub + + Private Shared Sub ElementoDesconocido(sender As Object, e As XmlElementEventArgs) + + End Sub + + Public Shared Function ObtieneFicheroNoExistente(DirectorioInicial As String, Nombre As String, ByVal Extension As String) As String + If Not IO.Directory.Exists(DirectorioInicial) Then IO.Directory.CreateDirectory(DirectorioInicial) + Dim sFichero As String = DirectorioInicial & Nombre & "." & Extension.TrimStart(".") + Dim i As Integer = 0 + Do While IO.File.Exists(sFichero) + i += 1 + sFichero = DirectorioInicial & Nombre & "_" & i.ToString & "." & Extension.TrimStart(".") + Loop + Return sFichero + End Function + Public Shared Function ObtieneFicheroAleatorio(DirectorioInicial As String, ByVal Extension As String) As String + If Not IO.Directory.Exists(DirectorioInicial) Then IO.Directory.CreateDirectory(DirectorioInicial) + Dim sFichero As String = DirectorioInicial & System.IO.Path.GetRandomFileName & "." & Extension + Do While IO.File.Exists(sFichero) + 'Try + ' IO.File.Delete(sFichero) + 'Catch ex As Exception + sFichero = DirectorioInicial & System.IO.Path.GetRandomFileName & "." & Extension + ' End Try + Loop + Return sFichero + End Function + Public Shared Function ObtieneFicheroAleatorio(ByVal Extension As String) As String + Dim sFichero As String = System.IO.Path.GetTempPath & System.IO.Path.GetRandomFileName & "." & Extension + Do While IO.File.Exists(sFichero) + 'Try + ' IO.File.Delete(sFichero) + 'Catch ex As Exception + sFichero = System.IO.Path.GetTempPath & "\" & System.IO.Path.GetRandomFileName & "." & Extension + ' End Try + Loop + Return sFichero + End Function + Public Shared Function ObtieneDirectorioAleatorio() As String + Dim sDir As String = System.IO.Path.GetTempPath & System.IO.Path.GetRandomFileName + Do While IO.Directory.Exists(sDir) + sDir = System.IO.Path.GetTempPath & "\" & System.IO.Path.GetRandomFileName + Loop + IO.Directory.CreateDirectory(sDir) + Return sDir + End Function + Public Shared Function ObtieneDirectorioAleatorioInicial(DirectorioInicial As String) As String + Dim sDir As String = DirectorioInicial.TrimEnd("\") & "\" & System.IO.Path.GetRandomFileName & "\" + Do While IO.Directory.Exists(sDir) Or IO.File.Exists(sDir) + sDir = DirectorioInicial.TrimEnd("\") & "\" & System.IO.Path.GetRandomFileName & "\" + Loop + IO.Directory.CreateDirectory(sDir) + Return sDir + End Function + Public Shared Function ObtieneDirectorioAleatorio(Subdirectorio As String) As String + If Not IO.Directory.Exists(System.IO.Path.GetTempPath & "\" & Subdirectorio & "\") Then IO.Directory.CreateDirectory(System.IO.Path.GetTempPath & "\" & Subdirectorio & "\") + Dim sDir As String = System.IO.Path.GetTempPath & "\" & Subdirectorio & "\" & System.IO.Path.GetRandomFileName + Do While IO.Directory.Exists(sDir) Or IO.File.Exists(sDir) + sDir = System.IO.Path.GetTempPath & "\" & System.IO.Path.GetRandomFileName + Loop + IO.Directory.CreateDirectory(sDir) + Return sDir + End Function + Public Shared Function EliminaDirectorioTemporal(Subdirectorio As String) As String + Dim sDir As String = System.IO.Path.GetTempPath & "\" & Subdirectorio & "\" + If IO.Directory.Exists(sDir) Then + Try + IO.Directory.Delete(sDir, True) + Catch ex As Exception + End Try + End If + End Function + + + Public Shared Sub CopiaDirectorio(ByVal DirectorioOrigen As String, ByVal DirectorioDestino As String, ByVal Recursivo As Boolean, ByVal SobreEscribir As Boolean, Optional ByRef EtiquetaProgreso As Label = Nothing, Optional ByRef BarraProgreso As ProgressBar = Nothing, Optional ByRef NumeroFicherosACopiar As Integer = 0, Optional ByRef OmitirBloqueados As Boolean = False, Optional ByVal Doevents As Boolean = True) + If Not BarraProgreso Is Nothing Then + If BarraProgreso.Tag = "CANCELAR" Then Exit Sub + End If + Try + If Not BarraProgreso Is Nothing And NumeroFicherosACopiar = 0 Then + NumeroFicherosACopiar = ObtieneNumeroFicheros(DirectorioOrigen) + BarraProgreso.Maximum = NumeroFicherosACopiar + End If + Dim sDir As String + Dim dDirInfo As IO.DirectoryInfo + Dim sDirInfo As IO.DirectoryInfo + Dim sFile As String + Dim sFileInfo As IO.FileInfo + Dim dFileInfo As IO.FileInfo + ' Add trailing separators to the supplied paths if they don't exist. + If Not DirectorioOrigen.EndsWith(System.IO.Path.DirectorySeparatorChar.ToString()) Then + DirectorioOrigen &= System.IO.Path.DirectorySeparatorChar + End If + If Not DirectorioDestino.EndsWith(System.IO.Path.DirectorySeparatorChar.ToString()) Then + DirectorioDestino &= System.IO.Path.DirectorySeparatorChar + End If + 'If destination directory does not exist, create it. + dDirInfo = New System.IO.DirectoryInfo(DirectorioDestino) + If dDirInfo.Exists = False Then dDirInfo.Create() + dDirInfo = Nothing + ' Recursive switch to continue drilling down into directory structure. + If Recursivo Then + ' Get a list of directories from the current parent. + For Each sDir In System.IO.Directory.GetDirectories(DirectorioOrigen) + sDirInfo = New System.IO.DirectoryInfo(sDir) + dDirInfo = New System.IO.DirectoryInfo(DirectorioDestino & sDirInfo.Name) + ' Create the directory if it does not exist. + If dDirInfo.Exists = False Then dDirInfo.Create() + ' Since we are in recursive mode, copy the children also + CopiaDirectorio(sDirInfo.FullName, dDirInfo.FullName, Recursivo, SobreEscribir, EtiquetaProgreso, BarraProgreso, NumeroFicherosACopiar, OmitirBloqueados, Doevents) + sDirInfo = Nothing + dDirInfo = Nothing + Next + End If + ' Get the files from the current parent. + For Each sFile In System.IO.Directory.GetFiles(DirectorioOrigen) + sFileInfo = New System.IO.FileInfo(sFile) + dFileInfo = New System.IO.FileInfo(Replace(sFile, DirectorioOrigen, DirectorioDestino)) + 'If File does not exist. Copy. + If Not EtiquetaProgreso Is Nothing Then + EtiquetaProgreso.Text = "Copiando " & sFileInfo.FullName & " ..." + End If + + Try + sFileInfo.CopyTo(dFileInfo.FullName, SobreEscribir) + Catch ex As Exception + If Not OmitirBloqueados Then Throw New Exception(ex.Message, ex) + End Try + If Doevents Then System.Windows.Forms.Application.DoEvents() + + If Not BarraProgreso Is Nothing Then + If BarraProgreso.Tag = "CANCELAR" Then Exit Sub + BarraProgreso.Value = Math.Min(BarraProgreso.Maximum, BarraProgreso.Value + 1) + End If + + sFileInfo = Nothing + dFileInfo = Nothing + Next + Catch ex As Exception + Throw New Exception("Error en Copiadirectorio. " & ex.Message, ex) 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, "CopiaDirectorio") + End Try + End Sub + Public Shared Function ObtieneNumeroFicheros(ByVal Directory As String) As Integer + Dim FileCount As Integer = 0 + Dim SubDirectory() As String + Dim i As Integer + FileCount = System.IO.Directory.GetFiles(Directory).Length + SubDirectory = System.IO.Directory.GetDirectories(Directory) + For i = 0 To SubDirectory.Length - 1 + FileCount = ObtieneNumeroFicheros(SubDirectory(i)) + FileCount + Next + Return FileCount + End Function + Public Shared Sub ObtieneFicherosRecursivo(ByVal Ruta As String, ByRef Ficheros() As String) + Dim sFicheros() As String = IO.Directory.GetFiles(Ruta) + Dim iNumeroFicheros As Integer + If Not IsNothing(Ficheros) Then iNumeroFicheros = Ficheros.Length + ReDim Preserve Ficheros(sFicheros.Length - 1 + iNumeroFicheros) + sFicheros.CopyTo(Ficheros, iNumeroFicheros) + Dim sDirectorio, sDirectorios() As String + sDirectorios = IO.Directory.GetDirectories(Ruta) + For Each sDirectorio In sDirectorios + ObtieneFicherosRecursivo(sDirectorio, Ficheros) + Next + End Sub + Public Shared Function FechaEnCastellano(ByVal Fecha As Date, ByVal Formato As FormatoFechasEnum) As String + Dim sMeses(11) As String + sMeses(0) = "Enero" + sMeses(1) = "Febrero" + sMeses(2) = "Marzo" + sMeses(3) = "Abril" + sMeses(4) = "Mayo" + sMeses(5) = "Junio" + sMeses(6) = "Julio" + sMeses(7) = "Agosto" + sMeses(8) = "Septiembre" + sMeses(9) = "Octubre" + sMeses(10) = "Noviembre" + sMeses(11) = "Diciembre" + Dim sDia As String, sMes As String, sAño As String + sDia = Fecha.Day.ToString + sMes = sMeses(Fecha.Month - 1) + sAño = Fecha.Year + Select Case Formato + Case FormatoFechasEnum.FECHA_ESPACIADO_GRANDE + FechaEnCastellano = sDia & " de " & sMes & " de " & sAño + Case FormatoFechasEnum.FECHA_HORA + FechaEnCastellano = Fecha.Day.ToString.PadLeft(2, "0") & "/" & Fecha.Month.ToString.PadLeft(2, "0") & "/" & Fecha.Year.ToString & " " & Fecha.Hour.ToString.PadLeft(2, "0") & ":" & Fecha.Minute.ToString.PadLeft(2, "0") & ":" & Fecha.Second.ToString.PadLeft(2, "0") + Case FormatoFechasEnum.FECHA_ESPACIADO_PEQUEÑO + FechaEnCastellano = sDia & " de " & sMes & " de " & sAño + Case FormatoFechasEnum.FECHA_SEPARADO_POR_BARRAS + FechaEnCastellano = Fecha.Day.ToString.PadLeft(2, "0") & "/" & Fecha.Month.ToString.PadLeft(2, "0") & "/" & Fecha.Year.ToString + Case Else + Throw New Exception("Formato no reconocido") + End Select + End Function + Public Shared Function MesCastellano(Mes As Integer) As String + Dim sMeses(11) As String + sMeses(0) = "Enero" + sMeses(1) = "Febrero" + sMeses(2) = "Marzo" + sMeses(3) = "Abril" + sMeses(4) = "Mayo" + sMeses(5) = "Junio" + sMeses(6) = "Julio" + sMeses(7) = "Agosto" + sMeses(8) = "Septiembre" + sMeses(9) = "Octubre" + sMeses(10) = "Noviembre" + sMeses(11) = "Diciembre" + Return sMeses(Mes - 1) + End Function + + Public Shared Function ObtenerRutaDelEnsamblado() As String + Return IO.Path.GetDirectoryName(IO.Path.GetFullPath(New System.Uri(System.Reflection.Assembly.GetExecutingAssembly().CodeBase).AbsolutePath)) + End Function + Public Class Mes + Property NumeroMes As Integer + Property Mes As String + End Class + Public Shared Function Meses() As List(Of Mes) + Dim listadoMeses As New List(Of Mes) + Dim m As Mes + m = New Mes + m.NumeroMes = 1 + m.Mes = "Enero" + listadoMeses.Add(m) + + m = New Mes + m.NumeroMes = 2 + m.Mes = "Febrero" + listadoMeses.Add(m) + + m = New Mes + m.NumeroMes = 3 + m.Mes = "Marzo" + listadoMeses.Add(m) + + m = New Mes + m.NumeroMes = 4 + m.Mes = "Abril" + listadoMeses.Add(m) + + m = New Mes + m.NumeroMes = 5 + m.Mes = "Mayo" + listadoMeses.Add(m) + + m = New Mes + m.NumeroMes = 6 + m.Mes = "Junio" + listadoMeses.Add(m) + + m = New Mes + m.NumeroMes = 7 + m.Mes = "Julio" + listadoMeses.Add(m) + + m = New Mes + m.NumeroMes = 8 + m.Mes = "Agosto" + listadoMeses.Add(m) + + m = New Mes + m.NumeroMes = 9 + m.Mes = "Septiembre" + listadoMeses.Add(m) + + m = New Mes + m.NumeroMes = 10 + m.Mes = "Octubre" + listadoMeses.Add(m) + + m = New Mes + m.NumeroMes = 11 + m.Mes = "Noviembre" + listadoMeses.Add(m) + + m = New Mes + m.NumeroMes = 12 + m.Mes = "Diciembre" + listadoMeses.Add(m) + Return listadoMeses + End Function + + Public Shared Function CalculoLetraCif(ByVal DNI As String) As String + ' Dim sResultado As String = "", iTamanoDNI As Integer, sLetrasNif As String, i As Integer, Cdd0 As Integer, V1 As String = "" + Dim sResultado As String = "", iTamanoDNI As Integer, sLetrasNif As String, i As Integer, V1 As String = "" + sLetrasNif = "TRWAGMYFPDXBNJZSQVHLCKE" + iTamanoDNI = Len(DNI) + If iTamanoDNI = 0 Or iTamanoDNI > 10 Then Return DNI + DNI = DNI.ToUpper + For i = 1 To iTamanoDNI + If Asc(Mid(DNI, i, 1)) >= 48 And Asc(Mid(DNI, i, 1)) <= 57 Or Asc(Mid(DNI, i, 1)) >= 65 And Asc(Mid(DNI, i, 1)) <= 90 Then sResultado = sResultado & Mid(DNI, i, 1) + Next i + iTamanoDNI = Len(sResultado) + If iTamanoDNI = 0 Then + Return sResultado + End If + If Asc(Mid(sResultado, 1, 1)) < 48 Or Asc(Mid(sResultado, 1, 1)) > 57 Or Asc(Mid(sResultado, iTamanoDNI, 1)) < 48 Or Asc(Mid(sResultado, iTamanoDNI, 1)) > 57 Then + Return sResultado + End If + ' Cdd0 = 0 + For i = 1 To iTamanoDNI + ' If Cdd0 Or (Asc(Mid(sResultado, i, 1)) <> 48) Then + If Asc(Mid(sResultado, i, 1)) >= 48 And Asc(Mid(sResultado, i, 1)) <= 57 Then V1 = V1 & Mid(sResultado, i, 1) + ' Cdd0 = 1 + ' End If + Next i + If Trim(V1) = "" Then Return V1 + If V1.Length < 9 Then V1 = V1.PadLeft(8, "0") + Return V1 & Mid(sLetrasNif, Val(V1) Mod 23 + 1, 1) + End Function + Public Shared Function ValidateNif(ByRef nif As String) As Boolean + + '******************************************************************* + ' Nombre: ValidateNif + ' por Enrique Martínez Montejo + ' + ' Finalidad: Validar el NIF/NIE pasado a la función. + ' + ' Entradas: + ' NIF: String. El NIF/NIE que xs desea verificar. El número + ' será devuelto formateado y con el NIF/NIE correcto. + ' Resultados: + ' Boolean: True/False + ' + '******************************************************************* + nif = nif.Trim() + Dim nifTemp As String = nif.Trim().ToUpper() + + If (nifTemp.Length > 9) Then Return False + + ' Guardamos el dígito de control. + Dim dcTemp As Char = nifTemp.Chars(nif.Length - 1) + + ' Compruebo si el dígito de control es un número. + If (Char.IsDigit(dcTemp)) Then Return Nothing + + ' Nos quedamos con los caracteres, sin el dígito de control. + nifTemp = nifTemp.Substring(0, nif.Length - 1) + + If (nifTemp.Length < 8) Then + Dim paddingChar As String = New String("0"c, 8 - nifTemp.Length) + nifTemp = nifTemp.Insert(nifTemp.Length, paddingChar) + End If + + ' Obtengo el dígito de control correspondiente, utilizando + ' para ello una llamada a la función GetDcNif. + ' + Dim dc As Char = GetDcNif(nif) + + If (Not (dc = Nothing)) Then + nif = nifTemp & dc + End If + + Return (dc = dcTemp) + + End Function + Public Shared Function GetDcNif(ByVal nif As String) As Char + + '******************************************************************* + ' Nombre: GetDcNif + ' por Enrique Martínez Montejo + ' + ' Finalidad: Devuelve la letra correspondiente al NIF o al NIE + ' (Número de Identificación de Extranjero) + ' + ' Entradas: + ' NIF: String. La cadena del NIF cuya letra final xs desea + ' obtener. + ' + ' Resultados: + ' String: La letra del NIF/NIE. + ' + '******************************************************************* + + ' Pasamos el NIF a mayúscula a la vez que eliminamos los + ' espacios en blanco al comienzo y al final de la cadena. + ' + nif = nif.Trim().ToUpper() + + ' El NIF está formado de uno a nueve números seguido de una letra. + ' + ' El NIF de otros colectivos de personas físicas, está + ' formato por una letra (K, L, M), seguido de 7 números + ' y de una letra final. + ' + ' El NIE está formado de una letra inicial (X, Y, Z), + ' seguido de 7 números y de una letra final. + ' + ' En el patrón de la expresión regular, defino cuatro grupos en el + ' siguiente orden: + ' + ' 1º) 1 a 8 dígitos. + ' 2º) 1 a 8 dígitos + 1 letra. + ' 3º) 1 letra + 1 a 7 dígitos. + ' 4º) 1 letra + 1 a 7 dígitos + 1 letra. + ' + Try + Dim re As New Regex( + "(^\d{1,8}$)|(^\d{1,8}[A-Z]$)|(^[K-MX-Z]\d{1,7}$)|(^[K-MX-Z]\d{1,7}[A-Z]$)", + RegexOptions.IgnoreCase) + + If (Not (re.IsMatch(nif))) Then Return Nothing + + ' Nos quedamos únicamente con los números del NIF, y + ' los formateamos con ceros a la izquierda si su + ' longitud es inferior a siete caracteres. + ' + re = New Regex("(\d{1,8})") + + Dim numeros As String = re.Match(nif).Value.PadLeft(7, "0"c) + + ' Primer carácter del NIF. + ' + Dim firstChar As Char = nif.Chars(0) + + ' Si procede, reemplazamos la letra del NIE por el peso que le corresponde. + ' + If (firstChar = "X"c) Then + numeros = "0" & numeros + + ElseIf (firstChar = "Y"c) Then + numeros = "1" & numeros + + ElseIf (firstChar = "Z"c) Then + numeros = "2" & numeros + + End If + + ' Tabla del NIF + ' + ' 0T 1R 2W 3A 4G 5M 6Y 7F 8P 9D + ' 10X 11B 12N 13J 14Z 15S 16Q 17V 18H 19L + ' 20C 21K 22E 23T + ' + ' Procedo a calcular el NIF/NIE + ' + Dim dni As Integer = CInt(numeros) + + ' La operación consiste en calcular el resto de dividir el DNI + ' entre 23 (sin decimales). Dicho resto (que estará entre 0 y 22), + ' xs busca en la tabla y nos da la letra del NIF. + ' + ' Obtenemos el resto de la división. + ' + Dim r As Integer = dni Mod 23 + + ' Obtenemos el dígito de control del NIF + ' + Dim dc As Char = CChar("TRWAGMYFPDXBNJZSQVHLCKE".Substring(r, 1)) + + Return dc + + Catch + ' Cualquier excepción producida, devolverá el valor Nothing. + ' + Return Nothing + + End Try + + End Function + Public Shared Function RecalculaNIF(ByVal nif As String) As Char + + '******************************************************************* + ' Nombre: GetDcNif + ' por Enrique Martínez Montejo + ' + ' Finalidad: Devuelve la letra correspondiente al NIF o al NIE + ' (Número de Identificación de Extranjero) + ' + ' Entradas: + ' NIF: String. La cadena del NIF cuya letra final xs desea + ' obtener. + ' + ' Resultados: + ' String: La letra del NIF/NIE. + ' + '******************************************************************* + + ' Pasamos el NIF a mayúscula a la vez que eliminamos los + ' espacios en blanco al comienzo y al final de la cadena. + ' + nif = nif.Trim().ToUpper() + + ' El NIF está formado de uno a nueve números seguido de una letra. + ' + ' El NIF de otros colectivos de personas físicas, está + ' formato por una letra (K, L, M), seguido de 7 números + ' y de una letra final. + ' + ' El NIE está formado de una letra inicial (X, Y, Z), + ' seguido de 7 números y de una letra final. + ' + ' En el patrón de la expresión regular, defino cuatro grupos en el + ' siguiente orden: + ' + ' 1º) 1 a 8 dígitos. + ' 2º) 1 a 8 dígitos + 1 letra. + ' 3º) 1 letra + 1 a 7 dígitos. + ' 4º) 1 letra + 1 a 7 dígitos + 1 letra. + ' + Try + Dim re As New Regex( + "(^\d{1,8}$)|(^\d{1,8}[A-Z]$)|(^[K-MX-Z]\d{1,7}$)|(^[K-MX-Z]\d{1,7}[A-Z]$)", + RegexOptions.IgnoreCase) + + If (Not (re.IsMatch(nif))) Then Return Nothing + + ' Nos quedamos únicamente con los números del NIF, y + ' los formateamos con ceros a la izquierda si su + ' longitud es inferior a siete caracteres. + ' + re = New Regex("(\d{1,8})") + + Dim numeros As String = re.Match(nif).Value.PadLeft(7, "0"c) + + ' Primer carácter del NIF. + ' + Dim firstChar As Char = nif.Chars(0) + + ' Si procede, reemplazamos la letra del NIE por el peso que le corresponde. + ' + If (firstChar = "X"c) Then + numeros = "0" & numeros + + ElseIf (firstChar = "Y"c) Then + numeros = "1" & numeros + + ElseIf (firstChar = "Z"c) Then + numeros = "2" & numeros + + End If + + ' Tabla del NIF + ' + ' 0T 1R 2W 3A 4G 5M 6Y 7F 8P 9D + ' 10X 11B 12N 13J 14Z 15S 16Q 17V 18H 19L + ' 20C 21K 22E 23T + ' + ' Procedo a calcular el NIF/NIE + ' + Dim dni As Integer = CInt(numeros) + + ' La operación consiste en calcular el resto de dividir el DNI + ' entre 23 (sin decimales). Dicho resto (que estará entre 0 y 22), + ' xs busca en la tabla y nos da la letra del NIF. + ' + ' Obtenemos el resto de la división. + ' + Dim r As Integer = dni Mod 23 + + ' Obtenemos el dígito de control del NIF + ' + Dim dc As Char = CChar("TRWAGMYFPDXBNJZSQVHLCKE".Substring(r, 1)) + + Dim NifCorregido As String = numeros & dc + Return NifCorregido + + Catch + ' Cualquier excepción producida, devolverá el valor Nothing. + ' + Return Nothing + + End Try + + End Function + Public Shared Function ConvertirTiempoUnixADateTime(ByVal tiempoUnix As Long) + Dim fecha As New DateTime(1970, 1, 1, 0, 0, 0, 0, System.DateTimeKind.Utc) + System.Diagnostics.Debug.WriteLine(fecha.AddSeconds(tiempoUnix).ToLocalTime.ToString) + System.Diagnostics.Debug.WriteLine(fecha.AddSeconds(tiempoUnix).ToLocalTime.ToUniversalTime) + Return fecha.AddSeconds(tiempoUnix).ToUniversalTime + End Function + Public Shared Function UpCast(Of B, S As {New, B})(ByVal baseObj As B) As S + Dim superObj As S = New S() + Dim superProp As System.Reflection.PropertyInfo = Nothing + + For Each baseProp As System.Reflection.PropertyInfo In baseObj.GetType().GetProperties() + superProp = superObj.GetType().GetProperty(baseProp.Name) + superProp.SetValue(superObj, baseProp.GetValue(baseObj, Nothing), Nothing) + Next + + Return superObj + End Function + Public Shared Function GetHexString(source As String) As String + Dim b As Byte() = System.Text.Encoding.UTF8.GetBytes(source) + Return BitConverter.ToString(b).Replace("-", "") + End Function + Public Shared Function StringToHex(ByVal text As String) As String + Dim shex As String = "" + For i As Integer = 0 To text.Length - 1 + shex &= Asc(text.Substring(i, 1)).ToString("x").ToUpper + Next + Return shex + End Function + Public Shared Function HexToString(ByVal hex As String) As String + Dim text As New System.Text.StringBuilder(hex.Length \ 2) + For i As Integer = 0 To hex.Length - 2 Step 2 + text.Append(Chr(Convert.ToByte(hex.Substring(i, 2), 16))) + Next + Return text.ToString + End Function + Public Shared Function HexToArray(ByVal hex As String) As Byte() + Dim raw As Byte() = New Byte((hex.Length / 2) - 1) {} + Dim i As Integer + For i = 0 To raw.Length - 1 + raw(i) = Convert.ToByte(hex.Substring((i * 2), 2), &H10) + Next i + Return raw + End Function + + Public Shared Function GetUnixTimestamp() As Integer + Return GetUnixTime(DateTime.UtcNow) + End Function + Public Shared Function GetUnixTime(ByVal dt As DateTime) As Integer + Dim span As TimeSpan = (dt - New DateTime(1970, 1, 1, 0, 0, 0, 0).ToLocalTime()) + Return span.TotalSeconds + End Function + + Public Shared Function ByteArrayToHex(ByVal bytes_Input As Byte()) As String + Dim strTemp As New StringBuilder(bytes_Input.Length * 2) + For Each b As Byte In bytes_Input + strTemp.Append(Conversion.Hex(b).PadLeft(2, "0")) + Next + Return strTemp.ToString() + End Function + Public Shared Function Ttagi(ByVal sValortag As String, ByVal sToken As String) As String + Ttagi = "" + Try + sValortag = "|" & sValortag & "|" + If InStr(1, "|" & sValortag & "|", "|" & sToken & "=", vbTextCompare) > 0 Then + Ttagi = Mid(sValortag, (InStr(1, sValortag, "|" & sToken & "=") + Len(sToken) + 2), InStr(1, Mid(sValortag, InStr(1, sValortag, "|" & sToken & "=") + Len(sToken) + 2), "|") - 1) + End If + Catch ex As Exception + Throw ex + End Try + End Function + Public Shared Function FindType(ByVal name As String) As Type + Dim base As Type + + base = Reflection.Assembly.GetEntryAssembly.GetType(name, False, True) + If base IsNot Nothing Then Return base + + base = Reflection.Assembly.GetExecutingAssembly.GetType(name, False, True) + If base IsNot Nothing Then Return base + + For Each assembly As Reflection.Assembly In + AppDomain.CurrentDomain.GetAssemblies + base = assembly.GetType(name, False, True) + If base IsNot Nothing Then Return base + Next + Throw New Exception("Clase no encontrada") + End Function + Public Shared Function StringAFechaHora(ByVal Fecha As String) As DateTime + Dim sValores() As String = Fecha.Split("_") + Dim dFecha As DateTime + dFecha = New DateTime(sValores(0), sValores(1), sValores(2), sValores(3), sValores(4), sValores(5)) + Return dFecha + End Function + ''' + ''' + ''' + ''' + ''' + ''' Esto es de Manuel Pulido. + ''' + Public Shared Function TryParseDateTimeOffset(ByVal sFecha As String, ByRef fecha As DateTimeOffset) As Boolean + Dim resultado As Boolean + If String.IsNullOrWhiteSpace(sFecha) Then + resultado = False + Else + If sFecha.Trim().ToUpper().EndsWith("Z") Then + sFecha = sFecha.Trim().ToUpper().Replace("Z", "") + sFecha = sFecha.Replace("T", " ") + End If + resultado = DateTimeOffset.TryParseExact( + sFecha, + { + "yyyy-MM-dd HH:mm:ss", + "yyyy-MM-dd HH:mm:ssz", + "yyyy-MM-dd HH:mm:sszz", + "yyyy-MM-dd HH:mm:sszzz", + "yyyy-MM-ddTHH:mm:ss", + "yyyy-MM-ddTHH:mm:ssz", + "yyyy-MM-ddTHH:mm:sszz", + "yyyy-MM-ddTHH:mm:sszzz", + "d/M/yyyy HH:mm:ss", + "d/M/yy HH:mm:ss", + "dd/MM/yyyy HH:mm:ss zzz", + "yyyyMMddHHmmsszz", + "d/M/yyyy", + "dd/MM/yyyy", + "d/M/yy", + "dd/MM/yy", + "yyyy-MM-dd" + }, + System.Globalization.CultureInfo.InvariantCulture.DateTimeFormat, + System.Globalization.DateTimeStyles.AssumeLocal, + fecha + ) + Debug.WriteLine($"{sFecha} = {fecha}") + End If + Return resultado + End Function + + Public Shared Async Function EnviarNotificacionSlack( + ByVal mensaje As String, + Optional ByVal otroTexto As String = "", + Optional ByVal destinatario As String = "", + Optional ByVal descripcionRemitente As String = "" + ) As Task(Of String) + + Dim resultado As String = "" + Const maxRetries As Integer = 2 + Dim attempt As Integer = 0 + Dim delayTask As Task = Nothing + + ' Escapar las cadenas para compatibilizarlas con JSON + mensaje = HttpUtility.JavaScriptStringEncode(mensaje) + otroTexto = HttpUtility.JavaScriptStringEncode(otroTexto) + destinatario = HttpUtility.JavaScriptStringEncode(destinatario) + descripcionRemitente = HttpUtility.JavaScriptStringEncode(descripcionRemitente) + + ' Asignar valores por defecto + If String.IsNullOrWhiteSpace(destinatario) Then + destinatario = "#notificaciones" + End If + + Dim machineName As String = Environment.MachineName.ToUpper().Trim() + If machineName = "INTI" OrElse machineName = "CERBERO" OrElse machineName = "QUISQUILLA" Then + destinatario = "@danmun" + End If + + If String.IsNullOrWhiteSpace(descripcionRemitente) Then + descripcionRemitente = String.Format(".NET {0}@{1}", Environment.UserName, Environment.MachineName) + End If + + Dim mensajeJSON As String = "" + If String.IsNullOrWhiteSpace(otroTexto) Then + mensajeJSON = String.Format("{{""channel"": ""{0}"", ""username"": ""notificaciones"", ""text"": ""*{1}* — {2}""}}", destinatario.Trim(), descripcionRemitente.Trim(), mensaje.Trim()) + Else + mensajeJSON = String.Format("{{""channel"": ""{0}"", ""username"": ""notificaciones"", ""text"": ""*{1}* — {2} — _{3}_""}}", destinatario.Trim(), descripcionRemitente.Trim(), mensaje.Trim(), otroTexto.Trim()) + End If + + ' Configurar HttpClientHandler para aceptar todos los certificados + Dim handler As New HttpClientHandler() + handler.ServerCertificateCustomValidationCallback = Function(sender, cert, chain, sslPolicyErrors) True + + Dim requestUri As String = "https://hooks.slack.com/services/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" + Dim postData As String = "payload=" & HttpUtility.UrlEncode(mensajeJSON) + + Using client As New HttpClient(handler) + client.DefaultRequestHeaders.ExpectContinue = False + + ' Bucle de reintentos + Dim continuar As Boolean = True + While continuar + ' Crear el contenido (se debe recrear en cada intento) + Dim content As New StringContent(postData, System.Text.Encoding.UTF8, "application/x-www-form-urlencoded") + Try + Dim response As HttpResponseMessage = Await client.PostAsync(requestUri, content) + resultado = Await response.Content.ReadAsStringAsync() + Debug.WriteLine("Respuesta: " & resultado) + + If response.Headers.Contains("Retry-After") Then + Dim retryValues = response.Headers.GetValues("Retry-After") + For Each value As String In retryValues + Debug.WriteLine("Retry-After: " & value) + Exit For + Next + End If + + If response.IsSuccessStatusCode Then + ' Éxito, salimos del bucle + continuar = False + ElseIf response.StatusCode = 429 Then + ' Error 429: tomar el tiempo indicado o 45 segundos por defecto + Dim delaySeconds As Integer = 45 + If response.Headers.Contains("Retry-After") Then + Dim retryValue As String = response.Headers.GetValues("Retry-After").FirstOrDefault() + If Not Integer.TryParse(retryValue, delaySeconds) Then + delaySeconds = 45 + End If + End If + + Debug.WriteLine(String.Format("Rate limit excedido. Esperando {0} segundos antes del reintento...", delaySeconds)) + attempt += 1 + If attempt > maxRetries Then + Debug.WriteLine("Se alcanzó el número máximo de reintentos.") + continuar = False + Else + delayTask = Task.Delay(delaySeconds * 1000) + End If + Else + ' Otros errores HTTP: salir sin reintentar + Debug.WriteLine("Error HTTP: " & response.StatusCode.ToString()) + continuar = False + End If + Catch ex As HttpRequestException + Debug.WriteLine("HttpRequestException: " & ex.Message) + attempt += 1 + If attempt > maxRetries Then + continuar = False + Else + Debug.WriteLine("Reintentando tras error de conexión en 45 segundos...") + delayTask = Task.Delay(45000) + End If + End Try + + ' Si se asignó un Task de retraso, se espera fuera del bloque Catch + If delayTask IsNot Nothing Then + Await delayTask + delayTask = Nothing + End If + End While + End Using + + Return resultado + End Function + + + + Private Shared Function AcceptAllCertifications(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) As Boolean + Return True + End Function + + Public Shared Function GenerarCsvDesdeDataTable(dt As DataTable, Optional ByVal separador As Char = ";") As String + Dim sb As New Text.StringBuilder() + For i As Integer = 0 To dt.Columns.Count - 1 + sb.Append("""" & dt.Columns(i).ToString & """") + If i < dt.Columns.Count - 1 Then + sb.Append(separador) + End If + Next + sb.AppendLine() + For Each dr As DataRow In dt.Rows + For i As Integer = 0 To dt.Columns.Count - 1 + sb.Append("""" & dr(i).ToString() & """") + + If i < dt.Columns.Count - 1 Then + sb.Append(separador) + End If + Next + sb.AppendLine() + Next + Return sb.ToString() + End Function + ''' + ''' Descripción de este método: + ''' + ''' 1. Recibe una cadena de texto que representa un nombre de archivo. + ''' 2. Elimina del nombre de archivo los caracteres inválidos para Windows. + ''' 3. Devuelve el nombre de archivo con los caracteres inválidos eliminados. + ''' + ''' Añadido por danmun en 2023-08-25. + ''' + ''' File name, not path. + ''' + Public Shared Function SanitizeFileName(input As String) As String + Dim invalidChars As Char() = Path.GetInvalidFileNameChars() + Dim sanitized As String = String.Join("_", input.Split(invalidChars, StringSplitOptions.RemoveEmptyEntries)) + Return sanitized + End Function + Public Shared Function ObtenerPrimerDiaMes(año As Integer, mes As Integer, DiaSemana As DayOfWeek) As Date + Dim fechaInicial As New Date(año, mes, 1) + While fechaInicial.DayOfWeek <> DiaSemana + fechaInicial = fechaInicial.AddDays(1) + End While + Return fechaInicial + End Function + +End Class +Public Class DescripcionValor + Property Descripcion As String + Property Valor As Integer + Property Habilitado As Boolean + + 'ReadOnly Property Habilitado As Boolean + ' Get + ' If _ListaDesHabilitados Is Nothing Then + ' Return True + ' Else + ' Return Not _ListaDesHabilitados.Contains(Valor) + ' End If + + ' End Get + 'End Property + + + + ' Private _ListaDesHabilitados As List(Of Integer) + Public Shared Function EnumADescripcionValor(Enumeracion As Type, Optional ListaDesHabilitados As List(Of Integer) = Nothing) As List(Of DescripcionValor) + Dim values As Array = [Enum].GetValues(Enumeracion) + Dim underlyingType As Type = [Enum].GetUnderlyingType(Enumeracion) + 'Dim arr As Array = Array.CreateInstance(underlyingType, values.Length) + Dim lista As New List(Of DescripcionValor) + + For i As Integer = 0 To values.Length - 1 + Dim dv As New DescripcionValor + 'dv._ListaDesHabilitados = ListaHabilitados + dv.Valor = values.GetValue(i) + If ListaDesHabilitados Is Nothing Then + dv.Habilitado = True + Else + dv.Habilitado = (ListaDesHabilitados.Contains(dv.Valor) = False) + End If + dv.Descripcion = values(i).ToString.Replace("_", " ") + lista.Add(dv) + Next + Return lista + End Function + Public Shared Function EnumADescripcionValorAmpliado(Enumeracion As Type) As List(Of DescripcionValor) + Dim values As Array = [Enum].GetValues(Enumeracion) + Dim underlyingType As Type = [Enum].GetUnderlyingType(Enumeracion) + 'Dim arr As Array = Array.CreateInstance(underlyingType, values.Length) + Dim lista As New List(Of DescripcionValor) + + For i As Integer = 0 To values.Length - 1 + Dim dv As New DescripcionValor + dv.Valor = values.GetValue(i) + dv.Descripcion = values(i).ToString.Replace("_", " ") & " (" & dv.Valor.ToString & ")" + lista.Add(dv) + Next + Return lista + End Function +End Class + + +Public Class DescripcionValorAlfabetico + Property Descripcion As String + Property Valor As String + Property Habilitado As Boolean + + 'ReadOnly Property Habilitado As Boolean + ' Get + ' If _ListaDesHabilitados Is Nothing Then + ' Return True + ' Else + ' Return Not _ListaDesHabilitados.Contains(Valor) + ' End If + + ' End Get + 'End Property + + + + ' Private _ListaDesHabilitados As List(Of Integer) + Public Shared Function EnumADescripcionValor(Enumeracion As Type, Optional ListaDesHabilitados As List(Of Integer) = Nothing) As List(Of DescripcionValorAlfabetico) + Dim values As Array = [Enum].GetValues(Enumeracion) + Dim underlyingType As Type = [Enum].GetUnderlyingType(Enumeracion) + 'Dim arr As Array = Array.CreateInstance(underlyingType, values.Length) + Dim lista As New List(Of DescripcionValorAlfabetico) + + For i As Integer = 0 To values.Length - 1 + Dim dv As New DescripcionValorAlfabetico + 'dv._ListaDesHabilitados = ListaHabilitados + dv.Valor = values.GetValue(i) + If ListaDesHabilitados Is Nothing Then + dv.Habilitado = True + Else + dv.Habilitado = (ListaDesHabilitados.Contains(dv.Valor) = False) + End If + dv.Descripcion = values(i).ToString.Replace("_", " ") + lista.Add(dv) + Next + Return lista + End Function + Public Shared Function EnumADescripcionValorAmpliado(Enumeracion As Type) As List(Of DescripcionValorAlfabetico) + Dim values As Array = [Enum].GetValues(Enumeracion) + Dim underlyingType As Type = [Enum].GetUnderlyingType(Enumeracion) + 'Dim arr As Array = Array.CreateInstance(underlyingType, values.Length) + Dim lista As New List(Of DescripcionValorAlfabetico) + + For i As Integer = 0 To values.Length - 1 + Dim dv As New DescripcionValorAlfabetico + dv.Valor = values.GetValue(i) + dv.Descripcion = values(i).ToString.Replace("_", " ") & " (" & dv.Valor.ToString & ")" + lista.Add(dv) + Next + Return lista + End Function + + + +End Class \ No newline at end of file diff --git a/Validaciones.vb b/Validaciones.vb new file mode 100644 index 0000000..3e4b867 --- /dev/null +++ b/Validaciones.vb @@ -0,0 +1,8 @@ +'Imports System.Text.RegularExpressions + +'Public Class Validaciones +' Public Shared Function EsEmail(ByVal email As String) As Boolean +' Static emailExpression As New Regex("^[_a-z0-9-]+(.[a-z0-9-]+)@[a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2,4})$") +' Return emailExpression.IsMatch(email) +' End Function +'End Class diff --git a/ValidarDocumentoIdentidad.vb b/ValidarDocumentoIdentidad.vb new file mode 100644 index 0000000..e67a3d6 --- /dev/null +++ b/ValidarDocumentoIdentidad.vb @@ -0,0 +1,407 @@ + +Imports System.Linq.Expressions +Imports System.Text.RegularExpressions + + +''' +''' Representa un número. En la clase se desglosan las distintas opciones que se puedan +''' encontrar +''' +Public Class ValidarDocumentoIdentidad + ''' + ''' Tipos de Códigos. + ''' + ''' Aunque actualmente no se utilice el término CIF, se usa en la enumeración + ''' por comodidad + Public Enum TiposDocumentosEnum + NIF + NIE + CIF + End Enum + + ' Número tal cual lo introduce el usuario + Private m_numero As String + + Private tipo As TiposDocumentosEnum + Public ReadOnly Property TipoDocumento As TiposDocumentosEnum + Get + Return tipo + End Get + End Property + + ''' + ''' Parte de Nif: En caso de ser un Nif intracomunitario, permite obtener el cógido del país + ''' + Public Property CodigoIntracomunitario() As String + Get + Return m_CodigoIntracomunitario + End Get + Friend Set(value As String) + m_CodigoIntracomunitario = value + End Set + End Property + Private m_CodigoIntracomunitario As String + Friend Property EsIntraComunitario() As Boolean + Get + Return m_EsIntraComunitario + End Get + Set(value As Boolean) + m_EsIntraComunitario = value + End Set + End Property + Private m_EsIntraComunitario As Boolean + + ''' + ''' Parte de Nif: Letra inicial del Nif, en caso de tenerla + ''' + Public Property LetraInicial() As String + Get + Return m_LetraInicial + End Get + Friend Set(value As String) + m_LetraInicial = value + End Set + End Property + Private m_LetraInicial As String + + ''' + ''' Parte de Nif: Bloque numérico del NIF. En el caso de un NIF de persona física, + ''' corresponderá al DNI + ''' + Public Property Identificador() As Integer + Get + Return m_numero + End Get + Friend Set(value As Integer) + m_numero = value + End Set + End Property + Private m_Identificador As Integer + + ''' + ''' Parte de Nif: Dígito de control. Puede ser número o letra + ''' + Public Property DigitoControl() As String + Get + Return m_DigitoControl + End Get + Friend Set(value As String) + m_DigitoControl = value + End Set + End Property + Private m_DigitoControl As String + + ''' + ''' Valor que representa si el Nif introducido es correcto + ''' + Public Property EsCorrecto() As Boolean + Get + Return m_EsCorrecto + End Get + Friend Set(value As Boolean) + m_EsCorrecto = value + End Set + End Property + Private m_EsCorrecto As Boolean + + ''' + ''' Cadena que representa el tipo de Nif comprobado: + ''' - NIF : Número de identificación fiscal de persona física + ''' - NIE : Número de identificación fiscal extranjería + ''' - CIF : Código de identificación fiscal (Entidad jurídica) + ''' + Public ReadOnly Property TipoNif() As String + Get + Return tipo.ToString() + End Get + End Property + + ''' + ''' Constructor. Al instanciar la clase se realizan todos los cálculos + ''' + ''' Cadena de 9 u 11 caracteres que contiene el DNI/NIF + ''' tal cual lo ha introducido el usuario para su verificación + Public Sub New(numero As String) + ' Se eliminan los carácteres sobrantes + Try + ' numero = EliminaCaracteres(numero) + + + ' numero = numero.ToUpper() + + ' Comprobación básica de la cadena introducida por el usuario + If numero.Length <> 9 AndAlso numero.Length <> 11 Then + Me.EsCorrecto = False + Else + + Me.m_numero = numero + Desglosa() + + Select Case tipo + Case TiposDocumentosEnum.NIF, TiposDocumentosEnum.NIE + Me.EsCorrecto = CompruebaNif() + Exit Select + Case TiposDocumentosEnum.CIF + Me.EsCorrecto = validateCif(numero) + ' Me.EsCorrecto = CompruebaCif() + Exit Select + End Select + End If + Catch ex As Exception + Me.EsCorrecto = False + End Try + End Sub + +#Region "Preparación del número (desglose)" + + ''' + ''' Realiza un desglose del número introducido por el usuario en las propiedades + ''' de la clase + ''' + Private Sub Desglosa() + Dim n As Int32 + If m_numero.Length = 11 Then + ' Nif Intracomunitario + EsIntraComunitario = True + CodigoIntracomunitario = m_numero.Substring(0, 2) + LetraInicial = m_numero.Substring(2, 1) + Int32.TryParse(m_numero.Substring(3, 7), n) + DigitoControl = m_numero.Substring(10, 1) + tipo = GetTipoDocumento(LetraInicial(0)) + Else + ' Nif español + tipo = GetTipoDocumento(m_numero(0)) + EsIntraComunitario = False + If tipo = TiposDocumentosEnum.NIF Then + LetraInicial = String.Empty + Int32.TryParse(m_numero.Substring(0, 8), n) + Else + LetraInicial = m_numero.Substring(0, 1) + Dim listaLetrasNIE As Char() = {"X", "Y", "Z"} + If listaLetrasNIE.Contains(LetraInicial) Then + '// Las letras por las que comienza el NIE deben ser reemplazadas por números antes de realizar + '// la operación Int32.TryParse, que además deberá incluir ese número reemplazado. + '// X = 0 + '// Y = 1 + '// Z = 2 + Select Case LetraInicial + Case "X" + m_numero = 0 & m_numero.Substring(1, m_numero.Length - 1) + Case "Y" + m_numero = 1 & m_numero.Substring(1, m_numero.Length - 1) + Case "Z" + m_numero = 2 & m_numero.Substring(1, m_numero.Length - 1) + End Select + Int32.TryParse(m_numero.Substring(0, 8), n) + Else + '// El curso normal, cuando la letra inicial no es X, Y o Z. + Int32.TryParse(m_numero.Substring(1, 7), n) + End If + + End If + DigitoControl = m_numero.Substring(8, 1) + End If + Identificador = n + End Sub + + ''' + ''' En base al primer carácter del código, se obtiene el tipo de documento que se intenta + ''' comprobar + ''' + ''' Primer carácter del número pasado + ''' Tipo de documento + Private Function GetTipoDocumento(letra As Char) As TiposDocumentosEnum + Dim regexIdentificadors As New Regex("[0-9]") + If regexIdentificadors.IsMatch(letra.ToString()) Then + Return TiposDocumentosEnum.NIF + End If + + Dim regexLetrasNIE As New Regex("[LKMXYZ]") + If regexLetrasNIE.IsMatch(letra.ToString()) Then + Return TiposDocumentosEnum.NIE + End If + + Dim regexLetrasCIF As New Regex("[ABCDEFGHJPQRSUVNW]") + If regexLetrasCIF.IsMatch(letra.ToString()) Then + Return TiposDocumentosEnum.CIF + End If + + Throw New ApplicationException("El código no es reconocible") + End Function + + ''' + ''' Eliminación de todos los carácteres no numéricos o de texto de la cadena + ''' + ''' Número tal cual lo escribe el usuario + ''' Cadena de 9 u 11 carácteres sin signos + Private Function EliminaCaracteres(numero As String) As String + ' Todos los carácteres que no sean números o letras + Dim caracteres As String = "[^\w]" + Dim regex As New Regex(caracteres) + Return regex.Replace(numero, "") + End Function + +#End Region + +#Region "Cálculos" + + Private Function CompruebaNif() As Boolean + Return DigitoControl = GetLetraNif() + End Function + + + + Public Shared Function validateCif(ByVal cif As String) As Boolean + If String.IsNullOrEmpty(cif) Then Return False + cif = cif.Trim().ToUpper() + If cif.Length <> 9 Then Return False + Dim firstChar As String = cif.Substring(0, 1) + Dim cadena As String = "ABCDEFGHJNPQRSUVW" + If cadena.IndexOf(firstChar) = -1 Then Return False + + Try + Dim sumaPar As Int32 = Nothing + Dim sumaImpar As Int32 = Nothing + Dim cif_sinControl As String = cif.Substring(0, 8) + Dim digits As String = cif_sinControl.Substring(1, 7) + + For n As Int32 = 0 To digits.Length - 1 Step 2 + + If n < 6 Then + sumaPar += Convert.ToInt32(digits(n + 1).ToString()) + End If + + Dim dobleImpar As Int32 = 2 * Convert.ToInt32(digits(n).ToString()) + sumaImpar += (dobleImpar Mod 10) + (dobleImpar \ 10) + Next + + Dim sumaTotal As Int32 = sumaPar + sumaImpar + sumaTotal = (10 - (sumaTotal Mod 10)) Mod 10 + Dim digitoControl As String = "" + + Select Case firstChar + Case "N", "P", "Q", "R", "S", "W" + Dim characters As Char() = {"J"c, "A"c, "B"c, "C"c, "D"c, "E"c, "F"c, "G"c, "H"c, "I"c} + digitoControl = characters(sumaTotal).ToString() + Case Else + digitoControl = sumaTotal.ToString() + End Select + + Return digitoControl.Equals(cif.Substring(8, 1)) + Catch __unusedException1__ As Exception + Return False + End Try + End Function + + + + ''' + ''' Cálculos para la comprobación del Cif (Entidad jurídica) + ''' + 'Private Function CompruebaCif() As Boolean + ' Dim letrasCodigo As String() = {"J", "A", "B", "C", "D", "E", _ + ' "F", "G", "H", "I"} + + ' Dim n As String = Identificador.ToString() + ' Dim sumaPares As Int32 = 0 + ' Dim sumaImpares As Int32 = 0 + ' Dim sumaTotal As Int32 = 0 + ' Dim i As Int32 = 0 + ' Dim digitoCalculado As String + ' Dim retVal As Boolean = False + + ' ' Recorrido por todos los dígitos del número + ' For i = 0 To n.Length - 1 + ' Dim aux As Int32 + ' Int32.TryParse(n(i).ToString(), aux) + + ' If (i + 1) Mod 2 = 0 Then + ' ' Si es una posición par, se suman los dígitos + ' sumaPares += aux + ' Else + ' ' Si es una posición impar, se multiplican los dígitos por 2 + ' aux = aux * 2 + + ' ' se suman los dígitos de la suma + ' sumaImpares += SumaDigitos(aux) + ' End If + ' Next + ' ' Se suman los resultados de los números pares e impares + ' sumaTotal += sumaPares + sumaImpares + + ' ' Se obtiene el dígito de las unidades + ' Dim unidades As Int32 = sumaTotal Mod 10 + + ' ' Si las unidades son distintas de 0, se restan de 10 + ' If unidades <> 0 Then + ' unidades = 10 - unidades + ' End If + + ' Select Case LetraInicial + ' ' Sólo números + ' Case "A", "B", "E", "H" + ' retVal = DigitoControl = unidades.ToString() + ' Exit Select + + ' ' Sólo letras + ' Case "K", "P", "Q", "S" + ' retVal = DigitoControl = letrasCodigo(unidades) + ' Exit Select + ' Case Else + + ' retVal = (DigitoControl = unidades.ToString()) OrElse (DigitoControl = letrasCodigo(unidades)) + ' Exit Select + ' End Select + + ' Return retVal + + 'End Function + + ''' + ''' Obtiene la suma de todos los dígitos + ''' + ''' de 23, devuelve la suma de 2 + 3 + Private Function SumaDigitos(digitos As Int32) As Int32 + Dim sIdentificador As String = digitos.ToString() + Dim suma As Int32 = 0 + + For i As Int32 = 0 To sIdentificador.Length - 1 + Dim aux As Int32 + Int32.TryParse(sIdentificador(i).ToString(), aux) + suma += aux + Next + Return suma + End Function + + ''' + ''' Obtiene la letra correspondiente al Dni + ''' + Private Function GetLetraNif() As String + Dim indice As Integer = Identificador Mod 23 + Return "TRWAGMYFPDXBNJZSQVHLCKET"(indice).ToString() + End Function + + ''' + ''' Obtiene una cadena con el número de identificación completo + ''' + Public Overrides Function ToString() As String + Dim nif As String + nif = If(EsIntraComunitario, CodigoIntracomunitario, Convert.ToString(String.Empty + LetraInicial & Identificador) & DigitoControl) + Return nif + End Function + +#End Region + + ''' + ''' Comprobación de un número de identificación fiscal español + ''' + ''' Identificador a analizar + ''' Instancia de con los datos del número. + ''' Destacable la propiedad , que contiene la verificación + ''' + Public Shared Function CompruebaNif(numero As String) As ValidarDocumentoIdentidad + + Return New ValidarDocumentoIdentidad(numero) + End Function + +End Class \ No newline at end of file diff --git a/bbdd.vb b/bbdd.vb new file mode 100644 index 0000000..0ab8c0d --- /dev/null +++ b/bbdd.vb @@ -0,0 +1,774 @@ +Imports MySql.Data.MySqlClient +Imports System.Data.OleDb +Imports System.Data.EntityClient +Imports System.Data.SqlClient +Imports Oracle.ManagedDataAccess.Client +Imports System.Data.Objects + +Public Class bbdd + Public Shared Function SQLADatarow(ByVal Conexion As System.Data.Common.DbConnection, ByVal ClausulaSQL As String) As DataRow + If Conexion.GetType Is GetType(OleDbConnection) Then + Throw New Exception("Tipo no soportado") + ElseIf Conexion.GetType Is GetType(MySqlConnection) Then + Return SQLADatarowMysql(Conexion, ClausulaSQL) + ElseIf Conexion.GetType Is GetType(OracleConnection) Then + Return SQLADatarowOracle(Conexion, ClausulaSQL) + Else + Throw New Exception("Tipo no soportado") + End If + End Function + Private Shared Function SQLADatarowOracle(ByVal Conexion As OracleConnection, ByVal ClausulaSQL As String) As DataRow + Try + Dim ad As OracleDataAdapter, dsDatos As New DataSet + ad = New OracleDataAdapter(ClausulaSQL, Conexion) + ad.Fill(dsDatos) + If dsDatos.Tables(0).Rows.Count > 0 Then + SQLADatarowOracle = dsDatos.Tables(0).Rows(0) + Else + SQLADatarowOracle = Nothing + End If + Catch ex As Exception + Throw New Exception(ex.Message & vbCrLf & "SQL: " & ClausulaSQL) + End Try + End Function + Private Shared Function SQLADatarowMysql(ByVal Conexion As MySqlConnection, ByVal ClausulaSQL As String) As DataRow + Try + Dim ad As MySqlDataAdapter, dsDatos As New DataSet + ad = New MySqlDataAdapter(ClausulaSQL, Conexion) + ad.Fill(dsDatos) + If dsDatos.Tables(0).Rows.Count > 0 Then + SQLADatarowMysql = dsDatos.Tables(0).Rows(0) + Else + SQLADatarowMysql = Nothing + End If + Catch ex As Exception + Throw New Exception(ex.Message & vbCrLf & "SQL: " & ClausulaSQL) + End Try + End Function + Public Shared Function EjecutaComandoMysql(ByVal Conexion As MySqlConnection, ClausulaSQL As String, Optional Parametros() As Object = Nothing) As Integer + Dim bCerrar As Boolean + Try + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + Conexion.Open() + End If + Dim i As Integer + ClausulaSQL = ClausulaSQL.Replace("?", "@") + Do While ClausulaSQL.Contains("@") + ClausulaSQL = ClausulaSQL.Split("@")(0) & "?" & i.ToString & ClausulaSQL.Split("@", 2, StringSplitOptions.None)(1) + i += 1 + Loop + 'ClausulaSQL = ClausulaSQL.Replace("?", "@") + Dim mc As New MySqlCommand(ClausulaSQL, Conexion) + Dim mp As MySqlParameter + mc.Prepare() + If Not Parametros Is Nothing Then + For i = 0 To Parametros.Length - 1 + Select Case Parametros(i).GetType + Case GetType(DateTime) + mp = New MySqlParameter("?" & i.ToString, MySqlDbType.DateTime) + mp.Value = Parametros(i) + mc.Parameters.Add(mp) + Case GetType(Boolean) + mp = New MySqlParameter("?" & i.ToString, MySqlDbType.Bit) + mp.Value = Parametros(i) + mc.Parameters.Add(mp) + Case Else + mp = New MySqlParameter("?" & i.ToString, Parametros(i)) + mc.Parameters.Add(mp) + End Select + + Next + End If + Return mc.ExecuteNonQuery() + Catch ex As Exception + Throw ex + Finally + Try + If bCerrar Then + Conexion.Close() + End If + Catch ex As Exception + End Try + End Try + End Function + Public Shared Function EjecutaComandoSql(ByVal Conexion As SqlConnection, ClausulaSQL As String, Optional Parametros() As Object = Nothing) As Integer + Dim bCerrar As Boolean + Try + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + Conexion.Open() + End If + Dim i As Integer + ClausulaSQL = ClausulaSQL.Replace("?", "@") + Do While ClausulaSQL.Contains("@") + ClausulaSQL = ClausulaSQL.Split("@")(0) & "?" & i.ToString & ClausulaSQL.Split("@", 2, StringSplitOptions.None)(1) + i += 1 + Loop + 'ClausulaSQL = ClausulaSQL.Replace("?", "@") + Dim mc As New SqlCommand(ClausulaSQL, Conexion) + Dim mp As SqlParameter + mc.Prepare() + If Not Parametros Is Nothing Then + For i = 0 To Parametros.Length - 1 + Select Case Parametros(i).GetType + Case GetType(DateTime) + mp = New SqlParameter("?" & i.ToString, MySqlDbType.DateTime) + mp.Value = Parametros(i) + mc.Parameters.Add(mp) + Case GetType(Boolean) + mp = New SqlParameter("?" & i.ToString, MySqlDbType.Bit) + mp.Value = Parametros(i) + mc.Parameters.Add(mp) + Case Else + mp = New SqlParameter("?" & i.ToString, Parametros(i)) + mc.Parameters.Add(mp) + End Select + + Next + End If + Return mc.ExecuteNonQuery() + Catch ex As Exception + Throw ex + Finally + Try + If bCerrar Then + Conexion.Close() + End If + Catch ex As Exception + End Try + End Try + End Function + + Public Shared Function ObtienePrimeraFilaMysql(ByVal Conexion As MySqlConnection, ClausulaSQL As String, Optional Parametros() As Object = Nothing) As DataRow + Dim bCerrar As Boolean + Try + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + Conexion.Open() + End If + Dim i As Integer + ClausulaSQL = ClausulaSQL.Replace("?", "@") + Do While ClausulaSQL.Contains("@") + ClausulaSQL = ClausulaSQL.Split("@")(0) & "?" & i.ToString & ClausulaSQL.Split("@", 2, StringSplitOptions.None)(1) + i += 1 + Loop + Dim mc As New MySqlCommand(ClausulaSQL, Conexion) + Dim mp As MySqlParameter + mc.Prepare() + If Not Parametros Is Nothing Then + For i = 0 To Parametros.Length - 1 + mp = New MySqlParameter("?" & i.ToString, Parametros(i)) + mc.Parameters.Add(mp) + Next + End If + Dim dr As MySql.Data.MySqlClient.MySqlDataReader = mc.ExecuteReader() + Dim dt As New DataTable + dt.Load(dr) + If dt.Rows.Count > 0 Then + Return dt(0) + Else + Return Nothing + End If + + Catch ex As Exception + Throw ex + Finally + Try + If bCerrar Then + Conexion.Close() + End If + Catch ex As Exception + End Try + End Try + End Function + Public Shared Function ObtienePrimeraFilaSQLServer(ByVal Conexion As Data.SqlClient.SqlConnection, ClausulaSQL As String, Optional Parametros() As Object = Nothing) As DataRow + Dim bCerrar As Boolean + Try + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + Conexion.Open() + End If + Dim i As Integer + ClausulaSQL = ClausulaSQL.Replace("?", "@") + Do While ClausulaSQL.Contains("@") + ClausulaSQL = ClausulaSQL.Split("@")(0) & "?" & i.ToString & ClausulaSQL.Split("@", 2, StringSplitOptions.None)(1) + i += 1 + Loop + ClausulaSQL = ClausulaSQL.Replace("?", "@") + Dim mc As New Data.SqlClient.SqlCommand(ClausulaSQL, Conexion) + Dim mp As SqlParameter + mc.Prepare() + If Not Parametros Is Nothing Then + For i = 0 To Parametros.Length - 1 + mp = New SqlParameter("@" & i.ToString, Parametros(i)) + mc.Parameters.Add(mp) + Next + End If + Dim dr As SqlDataReader = mc.ExecuteReader() + Dim dt As New DataTable + dt.Load(dr) + If dt.Rows.Count > 0 Then + Return dt(0) + Else + Return Nothing + End If + + Catch ex As Exception + Throw ex + Finally + Try + If bCerrar Then + Conexion.Close() + End If + Catch ex As Exception + End Try + End Try + End Function + Public Shared Function ObtieneTablaMysql(ByVal Conexion As MySqlConnection, ClausulaSQL As String, Optional Parametros() As Object = Nothing) As DataTable + Dim bCerrar As Boolean + Try + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + Conexion.Open() + End If + Dim i As Integer + ClausulaSQL = ClausulaSQL.Replace("?", "@") + Do While ClausulaSQL.Contains("@") + ClausulaSQL = ClausulaSQL.Split("@")(0) & "?" & i.ToString & ClausulaSQL.Split("@", 2, StringSplitOptions.None)(1) + i += 1 + Loop + Dim mc As New MySqlCommand(ClausulaSQL, Conexion) + Dim mp As MySqlParameter + mc.Prepare() + If Not Parametros Is Nothing Then + For i = 0 To Parametros.Length - 1 + mp = New MySqlParameter("?" & i.ToString, Parametros(i)) + mc.Parameters.Add(mp) + Next + End If + Dim dr As MySql.Data.MySqlClient.MySqlDataReader = mc.ExecuteReader() + Dim dt As New DataTable + ' dt.BeginLoadData() + dt.Load(dr) + ' dt.EndLoadData() + Return dt + Catch ex As Exception + Throw ex + Finally + Try + If bCerrar Then + Conexion.Close() + End If + Catch ex As Exception + End Try + End Try + End Function + + + Public Shared Function ObtieneTablaSqlServer(ByVal Conexion As SqlConnection, ClausulaSQL As String, Optional Parametros() As Object = Nothing) As DataTable + Dim bCerrar As Boolean + Try + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + Conexion.Open() + End If + Dim i As Integer + ClausulaSQL = ClausulaSQL.Replace("?", "@") + Do While ClausulaSQL.Contains("@") + ClausulaSQL = ClausulaSQL.Split("@")(0) & "?" & i.ToString & ClausulaSQL.Split("@", 2, StringSplitOptions.None)(1) + i += 1 + Loop + Dim mc As New SqlCommand(ClausulaSQL, Conexion) + Dim mp As SqlParameter + mc.Prepare() + If Not Parametros Is Nothing Then + For i = 0 To Parametros.Length - 1 + mp = New SqlParameter("?" & i.ToString, Parametros(i)) + mc.Parameters.Add(mp) + Next + End If + Dim dr As SqlDataReader = mc.ExecuteReader() + Dim dt As New DataTable + ' dt.BeginLoadData() + dt.Load(dr) + ' dt.EndLoadData() + Return dt + Catch ex As Exception + Throw ex + Finally + Try + If bCerrar Then + Conexion.Close() + End If + Catch ex As Exception + End Try + End Try + End Function + + Private Shared Function ObtienePrimeraFilaMysql(ByVal Conexion As MySqlConnection, ClausulaSQL As String, Parametros() As MySql.Data.MySqlClient.MySqlParameter) As DataRow + Try + Dim ad As New MySqlDataAdapter(ClausulaSQL, Conexion) + Dim ds As New DataSet + ad.FillSchema(ds, SchemaType.Mapped) + + For Each par In Parametros + ad.SelectCommand.Parameters.Add(par) + Next + ad.Fill(ds) + Return ds.Tables(0).Rows(0) + Catch ex As Exception + Throw ex + End Try + End Function + Public Shared Function GetMySQLType(ByVal sysType As Type) As MySqlDbType + If sysType Is GetType(String) Then + Return MySqlDbType.VarChar + ElseIf sysType Is GetType(Integer) Then + Return MySqlDbType.Int64 + ElseIf sysType Is GetType(Boolean) Then + Return MySqlDbType.Byte + ElseIf sysType Is GetType(Date) Then + Return MySqlDbType.Date + ElseIf sysType Is GetType(Char) Then + Return MySqlDbType.Byte + ElseIf sysType Is GetType(Decimal) Then + Return MySqlDbType.Decimal + ElseIf sysType Is GetType(Double) Then + Return MySqlDbType.Double + ElseIf sysType Is GetType(Single) Then + Return MySqlDbType.LongBlob + ElseIf sysType Is GetType(Byte()) Then + Return MySqlDbType.Binary + ElseIf sysType Is GetType(Guid) Then + Return MySqlDbType.Guid + Else + Throw New Exception("Tipo no soportado") + End If + End Function + + + Public Shared Function GeneraConnectionStringMySQLPasswordClara(Servidor As String, Esquema As String, usuario As String, password As String, Optional Puerto As Integer = 13306, Optional SegundosTimeout As Integer = 60, Optional Pooling As Boolean = False, Optional SSL As Boolean = False, Optional FicheroCertificado As String = "", Optional ContraseñaCertificado As String = "") As String + Dim sCadenaDeConexion As String + sCadenaDeConexion = "server=" & Servidor & + ";database=" & Esquema & + ";user=" & usuario & + ";Password=" & password & + ";port=" & Puerto.ToString & + ";default command Timeout=" & SegundosTimeout.ToString & ";" & + ";Connection Timeout=" & SegundosTimeout.ToString & ";" + If Pooling Then sCadenaDeConexion &= "Pooling=True;" + If SSL Then sCadenaDeConexion &= "SSL Mode=Required;" + If FicheroCertificado <> "" Then sCadenaDeConexion &= "CertificateFile=" & FicheroCertificado & ";" + If FicheroCertificado <> "" Then sCadenaDeConexion &= "CertificateFile=" & FicheroCertificado & ";" + If ContraseñaCertificado <> "" Then sCadenaDeConexion &= "CertificatePassword=" & ContraseñaCertificado & ";" + + Return sCadenaDeConexion + End Function + + Public Shared Function GeneraConnectionStringMySQL(Servidor As String, Esquema As String, usuario As String, passwordEnc As String, Optional Puerto As Integer = 13306, Optional SegundosTimeout As Integer = 60, Optional Pooling As Boolean = False, Optional SSL As Boolean = False, Optional FicheroCertificado As String = "", Optional ContraseñaCertificado As String = "") As String + Dim cadenaDeConexion As String = "" + Dim juegoDeCaracteresDeOrigen As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + Dim juegoDeCaracteresDeDestino As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + Dim spassword As String = crypt.FEncS(passwordEnc, juegoDeCaracteresDeOrigen, juegoDeCaracteresDeDestino, -875421649) + cadenaDeConexion = "server=" & Servidor & + ";database=" & Esquema & + ";user=" & usuario & + ";Password=" & spassword & + ";port=" & Puerto.ToString & + ";default command Timeout=" & SegundosTimeout.ToString & ";" & + ";Connection Timeout=" & SegundosTimeout.ToString & ";" + If Pooling Then cadenaDeConexion &= "Pooling=True;" + If SSL Then cadenaDeConexion &= "SSL Mode=Required;" + If FicheroCertificado <> "" Then cadenaDeConexion &= "CertificateFile=" & FicheroCertificado & ";" + If FicheroCertificado <> "" Then cadenaDeConexion &= "CertificateFile=" & FicheroCertificado & ";" + If ContraseñaCertificado <> "" Then cadenaDeConexion &= "CertificatePassword=" & ContraseñaCertificado & ";" + Return cadenaDeConexion + End Function + + + Public Shared Function GeneraConnectionStringOraclePasswordClara(Servidor As String, Esquema As String, usuario As String, password As String, Optional Puerto As Integer = 13306, Optional SegundosTimeout As Integer = 60, Optional Pooling As Boolean = False, Optional SSL As Boolean = False, Optional FicheroCertificado As String = "", Optional ContraseñaCertificado As String = "") As String + Dim cadenaDeConexion As String + If Pooling Then + cadenaDeConexion = "DATA SOURCE=" & Servidor & + ":" & Puerto.ToString & + "/" & Esquema & + ";USER ID=" & usuario & + ";PASSWORD=" & password & + ";PERSIST SECURITY INFO=True;" + Else + cadenaDeConexion = "DATA SOURCE=" & Servidor & + ":" & Puerto.ToString & + "/" & Esquema & + ";USER ID=" & usuario & + ";PASSWORD=" & password & + ";POOLING=False" & + ";PERSIST SECURITY INFO=True;" + End If + Return cadenaDeConexion + End Function + + Public Shared Function GeneraConnectionStringOracle(Servidor As String, Esquema As String, usuario As String, passwordEnc As String, Optional Puerto As Integer = 13306, Optional SegundosTimeout As Integer = 60, Optional Pooling As Boolean = False, Optional SSL As Boolean = False, Optional FicheroCertificado As String = "", Optional ContraseñaCertificado As String = "") As String + Dim cadenaDeConexion As String = "" + Dim juegoDeCaracteresDeOrigen As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + Dim juegoDeCaracteresDeDestino As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + Dim spassword As String = crypt.FEncS(passwordEnc, juegoDeCaracteresDeOrigen, juegoDeCaracteresDeDestino, -875421649) + If Pooling Then + cadenaDeConexion = "DATA SOURCE=" & Servidor & + ":" & Puerto.ToString & + "/" & Esquema & + ";USER ID=" & usuario & + ";PASSWORD=" & spassword & + ";PERSIST SECURITY INFO=True;" + Else + cadenaDeConexion = "DATA SOURCE=" & Servidor & + ":" & Puerto.ToString & + "/" & Esquema & + ";USER ID=" & usuario & + ";PASSWORD=" & spassword & + ";POOLING=False" & + ";PERSIST SECURITY INFO=True;" + End If + Return cadenaDeConexion + End Function + + + Public Shared Function GeneraConnectionStringLocalDB(Servidor As String, FicheroMDF As String) As String + Return "Server=" & Servidor & ";Integrated Security=true;AttachDbFileName=" & FicheroMDF & ";" + End Function + Public Shared Function GeneraConnectionStringSQLServer(Servidor As String, DataBase As String, usuario As String, passwordEnc As String, Optional Puerto As Integer = 1433) As String + Dim cadenaDeConexion As String = "" + 'Dim juegoDeCaracteresDeOrigen As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + 'Dim juegoDeCaracteresDeDestino As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + Dim spassword As String = crypt.FEncS(passwordEnc, "[JO1]", "[JD1]", -875421649) + cadenaDeConexion = "Server=" & Servidor & ", " & Puerto.ToString & + ";Database=" & DataBase & + ";User Id=" & usuario & + ";Password=" & spassword & ";" + Return cadenaDeConexion + End Function + Public Shared Function GeneraConnectionStringSQLServer(Servidor As String, DataBase As String, usuario As String, passwordEnc As String, Optional Puerto As Integer = 1433, Optional JuegoCaracteresOrigen As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-", Optional JuegoCaracteresDestino As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-") As String + Dim cadenaDeConexion As String = "" + ' Dim juegoDeCaracteresDeOrigen As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + ' Dim juegoDeCaracteresDeDestino As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + Dim spassword As String = crypt.FEncS(passwordEnc, JuegoCaracteresOrigen, JuegoCaracteresDestino, -875421649) + cadenaDeConexion = "Server=" & Servidor & ", " & Puerto.ToString & + ";Database=" & DataBase & + ";User Id=" & usuario & + ";Password=" & spassword & ";" + + Return cadenaDeConexion + End Function + Public Shared Function GeneraConnectionStringSQLServerPasswordClara(Servidor As String, DataBase As String, usuario As String, password As String, Optional Puerto As Integer = 1433) As String + Dim cadenaDeConexion As String = "" + cadenaDeConexion = "Server=" & Servidor & ", " & Puerto.ToString & + ";Database=" & DataBase & + ";User Id=" & usuario & + ";Password=" & password & ";" + Return cadenaDeConexion + End Function + + + 'Public Shared Function ConectarTsl5EntitySQLServer(ByVal DataSource As String, InitialCatalog As String, ByVal user As String, ByVal password As String, NombreMetadata As String) As tsl5Entities + ' Return New tsl5Entities(ObtieneEntityConnectionStringSQLServer(DataSource, InitialCatalog, user, password, NombreMetadata)) + 'End Function + 'Public Shared Function ConectarTsl5EntityMySQL(ByVal server As String, ByVal database As String, ByVal port As String, ByVal user As String, ByVal password As String, NombreMetadata As String, Optional Pooling As Boolean = False, Optional SSL As Boolean = False, Optional FicheroCertificado As String = "", Optional ContraseñaCertificado As String = "") As tsl5Entities + ' Return New tsl5Entities(ObtieneEntityConnectionStringMysql(server, database, port, user, password, NombreMetadata, Pooling, SSL, FicheroCertificado, ContraseñaCertificado)) + 'End Function + 'Public Shared Function ConectarTsl5EntityLocalDB(ByVal Datasource As String, ByVal Fichero As String, ByVal Database As String, NombreMetaData As String, Optional IntegratedSecurity As Boolean = True) As tsl5Entities + ' Return New tsl5Entities(ObtieneEntityConnectionStringLocalDB(Datasource, Fichero, Database, NombreMetaData, IntegratedSecurity)) + 'End Function + + Public Shared Function ObtieneEntityConnectionStringSQLServer(ByVal DataSource As String, InitialCatalog As String, ByVal user As String, ByVal password As String, NombreMetadata As String, Optional passwordclara As Boolean = False, Optional Puerto As Integer = 1433, Optional ConnectionTimeout As Integer = 60) As String + + + ' Initialize the connection string builder for the underlying provider. + Dim sqlBuilder As New Data.SqlClient.SqlConnectionStringBuilder + + ' Set the properties for the data source. + sqlBuilder.DataSource = DataSource & "," & Puerto.ToString + sqlBuilder.InitialCatalog = InitialCatalog + sqlBuilder.PersistSecurityInfo = True + sqlBuilder.MultipleActiveResultSets = True + sqlBuilder.IntegratedSecurity = False + sqlBuilder.ConnectTimeout = ConnectionTimeout + + If passwordclara Then + sqlBuilder.Password = password + Else + sqlBuilder.Password = crypt.FEncS(password, "[JO1]", "[JD1]", -875421649) + End If + + sqlBuilder.UserID = user + + ' Build the SqlConnection connection string. + Dim providerString As String = sqlBuilder.ToString() + + ' Initialize the EntityConnectionStringBuilder. + Dim entityBuilder As New EntityConnectionStringBuilder() + + 'Set the provider name. + entityBuilder.Provider = "System.Data.SqlClient" + + ' Set the provider-specific connection string. + entityBuilder.ProviderConnectionString = providerString + + + ' Set the Metadata location. + entityBuilder.Metadata = "res://*/" & NombreMetadata & ".csdl|res://*/" & NombreMetadata & ".ssdl|res://*/" & NombreMetadata & ".msl" + + Return entityBuilder.ToString + End Function + + Public Shared Function ObtieneEntityConnectionStringLocalDB(ByVal Datasource As String, ByVal Fichero As String, ByVal Database As String, NombreMetaData As String, Optional IntegratedSecurity As Boolean = True, Optional ConnectionTimeout As Integer = 60) As String + + Dim SqlBuilder As New Data.SqlClient.SqlConnectionStringBuilder + SqlBuilder.DataSource = Datasource + SqlBuilder.AttachDBFilename = Fichero + SqlBuilder.InitialCatalog = Database + SqlBuilder.IntegratedSecurity = IntegratedSecurity + SqlBuilder.Enlist = True ' tsl5.cryp.FEncS(password, juegoDeCaracteresDeOrigen, juegoDeCaracteresDeDestino, -875421649) + SqlBuilder.MultipleActiveResultSets = True + SqlBuilder.ConnectTimeout = ConnectionTimeout + + ' Build the SqlConnection connection string. + Dim providerString As String = SqlBuilder.ToString() + + ' Initialize the EntityConnectionStringBuilder. + Dim entityBuilder As New System.Data.EntityClient.EntityConnectionStringBuilder() + + 'Set the provider name. + entityBuilder.Provider = "System.Data.SqlClient" + + ' Set the provider-specific connection string. + entityBuilder.ProviderConnectionString = providerString + + ' Set the Metadata location. + entityBuilder.Metadata = "res://*/" & NombreMetaData & ".csdl|res://*/" & NombreMetaData & ".ssdl|res://*/" & NombreMetaData & ".msl" + Return entityBuilder.ToString() + End Function + Public Shared Function ObtieneEntityConnectionStringMysql(ByVal server As String, ByVal database As String, ByVal port As String, ByVal user As String, ByVal passwordEnc As String, NombreMetadata As String, Optional Pooling As Boolean = False, Optional SSL As Boolean = False, Optional FicheroCertificado As String = "", Optional ContraseñaCertificado As String = "", Optional ConnectionTimeout As UInteger = 60) As String + Dim juegoDeCaracteresDeOrigen As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + Dim juegoDeCaracteresDeDestino As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + + ' Initialize the connection string builder for the underlying provider. + Dim mySqlBuilder As New MySqlConnectionStringBuilder + + + ' Set the properties for the data source. + mySqlBuilder.Server = server + mySqlBuilder.Port = port + mySqlBuilder.Database = database + mySqlBuilder.Password = crypt.FEncS(passwordEnc, juegoDeCaracteresDeOrigen, juegoDeCaracteresDeDestino, -875421649) + mySqlBuilder.UserID = user + mySqlBuilder.ConnectionTimeout = ConnectionTimeout + mySqlBuilder.Pooling = Pooling + mySqlBuilder.ConvertZeroDateTime = True + mySqlBuilder.SslMode = If(SSL, MySqlSslMode.Required, MySqlSslMode.None) + If FicheroCertificado <> "" Then mySqlBuilder.CertificateFile = FicheroCertificado + If ContraseñaCertificado <> "" Then mySqlBuilder.CertificatePassword = ContraseñaCertificado + + ' Build the SqlConnection connection string. + Dim providerString As String = mySqlBuilder.ToString() + + ' Initialize the EntityConnectionStringBuilder. + Dim entityBuilder As New EntityConnectionStringBuilder() + + 'Set the provider name. + entityBuilder.Provider = "MySql.Data.MySqlClient" + + ' Set the provider-specific connection string. + entityBuilder.ProviderConnectionString = providerString + + ' Set the Metadata location. + If NombreMetadata <> "" Then + entityBuilder.Metadata = "res://*/" & NombreMetadata & ".csdl|res://*/" & NombreMetadata & ".ssdl|res://*/" & NombreMetadata & ".msl" + End If + + Return entityBuilder.ToString + + End Function + + + Public Shared Function ObtieneEntityConnectionStringMysqlReducido(ByVal server As String, ByVal database As String, ByVal port As String, ByVal user As String, ByVal passwordEnc As String, Optional Pooling As Boolean = False, Optional SSL As Boolean = False, Optional FicheroCertificado As String = "", Optional ContraseñaCertificado As String = "", Optional ConnectionTimeout As UInteger = 60) As String + Dim juegoDeCaracteresDeOrigen As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + Dim juegoDeCaracteresDeDestino As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + + ' Initialize the connection string builder for the underlying provider. + Dim mySqlBuilder As New MySqlConnectionStringBuilder + + + ' Set the properties for the data source. + mySqlBuilder.Server = server + mySqlBuilder.Port = port + mySqlBuilder.Database = database + mySqlBuilder.Password = crypt.FEncS(passwordEnc, juegoDeCaracteresDeOrigen, juegoDeCaracteresDeDestino, -875421649) + mySqlBuilder.UserID = user + mySqlBuilder.ConnectionTimeout = ConnectionTimeout + mySqlBuilder.Pooling = Pooling + mySqlBuilder.SslMode = If(SSL, MySqlSslMode.Required, MySqlSslMode.None) + If FicheroCertificado <> "" Then mySqlBuilder.CertificateFile = FicheroCertificado + If ContraseñaCertificado <> "" Then mySqlBuilder.CertificatePassword = ContraseñaCertificado + Dim providerString As String = mySqlBuilder.ToString() + Return providerString + + End Function + + + + Public Shared Function ObtieneEntityConnectionStringOracle(ByVal server As String, ByVal database As String, ByVal port As String, ByVal user As String, ByVal passwordEnc As String, NombreMetadata As String, Optional Pooling As Boolean = True, Optional SSL As Boolean = False, Optional FicheroCertificado As String = "", Optional ContraseñaCertificado As String = "", Optional ConnectionTimeOut As Integer = 60) As String + Dim juegoDeCaracteresDeOrigen As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + Dim juegoDeCaracteresDeDestino As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + + ' Initialize the connection string builder for the underlying provider. + Dim Builder As New OracleConnectionStringBuilder + + + ' Set the properties for the data source. + + Builder.DataSource = server & ":" & port & "/" & database + + Builder.Password = crypt.FEncS(passwordEnc, juegoDeCaracteresDeOrigen, juegoDeCaracteresDeDestino, -875421649) + Builder.UserID = user + Builder.ConnectionTimeout = ConnectionTimeOut + Builder.Pooling = Pooling + + ' Builder.SslMode = If(SSL, MySqlSslMode.Required, MySqlSslMode.None) + ' If FicheroCertificado <> "" Then Builder.CertificateFile = FicheroCertificado + ' If ContraseñaCertificado <> "" Then Builder.CertificatePassword = ContraseñaCertificado + + + ' Build the SqlConnection connection string. + Dim providerString As String = Builder.ToString() + + ' Initialize the EntityConnectionStringBuilder. + Dim entityBuilder As New EntityConnectionStringBuilder() + + 'Set the provider name. + entityBuilder.Provider = "Oracle.ManagedDataAccess.Client" '"System.Data.EntityClient" + + ' Set the provider-specific connection string. + entityBuilder.ProviderConnectionString = providerString + + ' Set the Metadata location. + entityBuilder.Metadata = "res://*/" & NombreMetadata & ".csdl|res://*/" & NombreMetadata & ".ssdl|res://*/" & NombreMetadata & ".msl" + + + Return entityBuilder.ToString + + End Function + Public Shared Function ObtieneEntityConnectionStringOraclePasswordClara(ByVal server As String, ByVal database As String, ByVal port As String, ByVal user As String, ByVal password As String, NombreMetadata As String, Optional Pooling As Boolean = True, Optional SSL As Boolean = False, Optional FicheroCertificado As String = "", Optional ContraseñaCertificado As String = "", Optional ConnectionTimeOut As Integer = 60) As String + Dim juegoDeCaracteresDeOrigen As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + Dim juegoDeCaracteresDeDestino As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.:/\-" + + ' Initialize the connection string builder for the underlying provider. + Dim Builder As New OracleConnectionStringBuilder + + + ' Set the properties for the data source. + + Builder.DataSource = server & ":" & port & "/" & database + + + Builder.Password = password + Builder.UserID = user + Builder.ConnectionTimeout = ConnectionTimeOut + Builder.Pooling = Pooling + ' Builder.SslMode = If(SSL, MySqlSslMode.Required, MySqlSslMode.None) + ' If FicheroCertificado <> "" Then Builder.CertificateFile = FicheroCertificado + ' If ContraseñaCertificado <> "" Then Builder.CertificatePassword = ContraseñaCertificado + + + ' Build the SqlConnection connection string. + Dim providerString As String = Builder.ToString() + + ' Initialize the EntityConnectionStringBuilder. + Dim entityBuilder As New EntityConnectionStringBuilder() + + 'Set the provider name. + entityBuilder.Provider = "Oracle.ManagedDataAccess.Client" '"System.Data.EntityClient" + + ' Set the provider-specific connection string. + entityBuilder.ProviderConnectionString = providerString + + ' Set the Metadata location. + entityBuilder.Metadata = "res://*/" & NombreMetadata & ".csdl|res://*/" & NombreMetadata & ".ssdl|res://*/" & NombreMetadata & ".msl" + + + Return entityBuilder.ToString + + End Function + + + + Public Shared Function ObtieneEntityConnectionStringMysqlPasswordClara(ByVal server As String, ByVal database As String, ByVal port As String, ByVal user As String, ByVal password As String, NombreMetadata As String, Optional Pooling As Boolean = True, Optional SSL As Boolean = False, Optional FicheroCertificado As String = "", Optional ContraseñaCertificado As String = "") As String + + + ' Initialize the connection string builder for the underlying provider. + Dim mySqlBuilder As New MySqlConnectionStringBuilder + + ' Set the properties for the data source. + mySqlBuilder.Server = server + mySqlBuilder.Port = port + mySqlBuilder.Database = database + mySqlBuilder.Password = password + mySqlBuilder.UserID = user + mySqlBuilder.ConnectionTimeout = 60 + mySqlBuilder.Pooling = Pooling + mySqlBuilder.SslMode = If(SSL, MySqlSslMode.Required, MySqlSslMode.None) + If FicheroCertificado <> "" Then mySqlBuilder.CertificateFile = FicheroCertificado + If ContraseñaCertificado <> "" Then mySqlBuilder.CertificatePassword = ContraseñaCertificado + + + ' Build the SqlConnection connection string. + Dim providerString As String = mySqlBuilder.ToString() + + ' Initialize the EntityConnectionStringBuilder. + Dim entityBuilder As New EntityConnectionStringBuilder() + + 'Set the provider name. + entityBuilder.Provider = "MySql.Data.MySqlClient" + + ' Set the provider-specific connection string. + entityBuilder.ProviderConnectionString = providerString + + ' Set the Metadata location. + entityBuilder.Metadata = "res://*/" & NombreMetadata & ".csdl|res://*/" & NombreMetadata & ".ssdl|res://*/" & NombreMetadata & ".msl" + + + Return entityBuilder.ToString + + End Function + Public Shared Function FechaHoraMySQL(ByVal FechaHora As Date) As String + Return FechaHora.Year.ToString & FechaHora.Month.ToString.PadLeft(2, "0") & FechaHora.Day.ToString.PadLeft(2, "0") & FechaHora.Hour.ToString.PadLeft(2, "0") & FechaHora.Minute.ToString.PadLeft(2, "0") & FechaHora.Second.ToString.PadLeft(2, "0") + End Function + Public Shared Function FechaMySQL(ByVal FechaHora As Date) As String + Return FechaHora.Year.ToString & FechaHora.Month.ToString.PadLeft(2, "0") & FechaHora.Day.ToString.PadLeft(2, "0") + End Function + Public Shared Function AhoraMysql(bd As System.Data.Objects.ObjectContext) As DateTime + Try + Dim FechaServidor As DateTime = bd.ExecuteStoreQuery(Of DateTime)("select now() as Ahora").First + Return FechaServidor + Catch ex As Exception + Return Now + End Try + End Function + Public Shared Function ObtieneIPMysql(bd As System.Data.Objects.ObjectContext) As String + Dim sConexion As String = bd.ExecuteStoreQuery(Of String)("select host from information_schema.processlist WHERE ID=connection_id()").First + Dim sIP As String = sConexion.Split(":")(0) + Return sIP + End Function + Public Shared Function ObtieneIPSqlServer(bd As System.Data.Objects.ObjectContext) As String + Dim sConexion As String = bd.ExecuteStoreQuery(Of String)("SELECT client_net_address FROM sys.dm_exec_connections WHERE session_id = @@SPID").First + Return sConexion + End Function + + Public Shared Function AhoraSqlServer(bd As ObjectContext) As DateTime + Try + Dim FechaServidor As DateTime = bd.ExecuteStoreQuery(Of DateTime)("select SYSDATETIME() as Ahora").First + Return FechaServidor + Catch ex As Exception + Return Now + End Try + End Function +End Class diff --git a/clFuncionesGenericas.vb b/clFuncionesGenericas.vb new file mode 100644 index 0000000..a48a6c0 --- /dev/null +++ b/clFuncionesGenericas.vb @@ -0,0 +1,3885 @@ +Imports System.Windows.Forms +Imports System.Data +Imports System.Data.SqlClient +Imports MySql.Data.MySqlClient +Imports System.Data.OleDb +Imports System.IO +'Imports ComponentAce.Compression.ZipForge +'Imports ComponentAce.Compression.Archiver +Imports System.Environment + +'Imports UtilidadesTSL4net.clCharConv + +Public Class clFuncionesGenericas + 'DANMUN Private Shared WithEvents Zip As C1.C1Zip.C1ZipFile + Public Shared EsServicio As Boolean = True + + Private Shared pbProgreso As ProgressBar + Private Shared WINDOWS() As Char = "ñѺªçÇáéíóúÁÉÍÓÚàèìòùÀÈÌÒÙâêîôûÂÊÎÔÛäëïöüÄËÏÖÜ" + Private Shared ROMAN8() As Char = "·¶úùµ´ÄÅÕÆÇàÜåçíÈÉÙÊË¡£æè­ÀÁÑÂ⤦߮ÌÍÝÎÏØ¥§ÚÛ" + Private Shared ROMAN8SA() As Char = "·¶úùµ´aeiouAEIOUÈÉÙÊË¡£æè­ÀÁÑÂ⤦߮ÌÍÝÎÏØ¥§ÚÛ" + Private Shared NumChar As Integer = WINDOWS.Length + + + 'Public Shared Function prueba() As String + ' Return "prueba desde cablin4" + 'End Function + Public Shared Function Ttag(ByVal sValortag As String, ByVal sToken As String) As String + Ttag = "" + Try + ' Devuelve el token pedido + sValortag = "|" & sValortag & "|" + If InStr(1, "|" & sValortag & "|", "|" & sToken & ":", vbTextCompare) > 0 Then + Ttag = Mid(sValortag, (InStr(1, sValortag, "|" & sToken & ":") + Len(sToken) + 2), InStr(1, Mid(sValortag, InStr(1, sValortag, "|" & sToken & ":") + Len(sToken) + 2), "|") - 1) + End If + Catch ex As Exception + If EsServicio Then Throw New Exception(ex.Message, ex) + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "ttag") + End Try + End Function + Public Shared Function Ttag(ByVal sValortag As String, ByVal sToken As String, ByVal SeparadorVariableValor As String) As String + Ttag = "" + Try + ' Devuelve el token pedido + sValortag = "|" & sValortag & "|" + If InStr(1, "|" & sValortag & "|", "|" & sToken & SeparadorVariableValor, vbTextCompare) > 0 Then + Ttag = Mid(sValortag, (InStr(1, sValortag, "|" & sToken & SeparadorVariableValor) + Len(sToken) + 2), InStr(1, Mid(sValortag, InStr(1, sValortag, "|" & sToken & SeparadorVariableValor) + Len(sToken) + 2), "|") - 1) + End If + Catch ex As Exception + If EsServicio Then Throw New Exception(ex.Message, ex) + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "ttag") + End Try + End Function + + Public Shared Function Numero_Caracteres(ByVal Cadena_Origen As String, ByVal caracter As String) As Integer + Dim iNC As Integer + Try + Dim i As Integer + iNC = 0 + For i = 1 To Len(Trim$(Cadena_Origen)) + If Mid$(Trim$(Cadena_Origen), i, 1) = caracter Then + iNC = iNC + 1 + End If + Next i + + Catch ex As Exception + iNC = 0 + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Numero_Caracteres") + If EsServicio Then Throw New Exception(ex.Message, ex) + End Try + Return iNC + End Function + Public Shared Function Lee_Registro(ByVal conexion As System.Data.Common.DbConnection, ByVal Clausula_FROM As String, ByVal Clausula_WHERE As String, Optional ByVal sCampoAIncrementar As String = "", Optional ByVal iIncremento As Integer = 0, Optional ByVal bGuardar As Boolean = False, Optional ByVal bSinMensajesError As Boolean = True, Optional ByVal Transaccion As System.Data.Common.DbTransaction = Nothing) As DataRow + If conexion.GetType Is GetType(OleDbConnection) Then + Dim co As OleDbConnection = conexion + Dim ts As OleDbTransaction = Transaccion + Return Lee_Registro(co, Clausula_FROM, Clausula_WHERE, sCampoAIncrementar, iIncremento, bGuardar, bSinMensajesError, ts) + ElseIf conexion.GetType Is GetType(MySqlConnection) Then + Dim co As MySqlConnection = conexion + Dim ts As MySqlTransaction = Transaccion + Return LeeRegistroMySQL(co, Clausula_FROM, Clausula_WHERE, sCampoAIncrementar, iIncremento, bGuardar, bSinMensajesError, ts) + Else + Throw New Exception("Tipo no soportado") + End If + End Function + + Public Shared Function Lee_Registro(ByVal Conexion As OleDbConnection, ByVal Clausula_FROM As String, ByVal Clausula_WHERE As String, Optional ByVal sCampoAIncrementar As String = "", Optional ByVal iIncremento As Integer = 0, Optional ByVal bGuardar As Boolean = False, Optional ByVal bSinMensajesError As Boolean = True, Optional ByVal Transaccion As OleDb.OleDbTransaction = Nothing) As DataRow + ' ---------------------------------------------------------------------------------------------------- + ' Descripción Función: Devuelve el primer registro de una conexion oledb + ' Fecha. Creacion: ????? + ' Creada por: manmog + ' Ultima Modificacion: 14/09/2010 + ' + ' Modificaciones: + ' =============== + ' 14/09/2010 manmog En caso de error se devuelve más información de los parámetros. + + Lee_Registro = Nothing + Try + Dim adAdaptador As OleDbDataAdapter, dsDatos As New DataSet + Dim sSQL As String + If Trim(Clausula_WHERE) <> "" Then + sSQL = "SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & ";" + Else + sSQL = "SELECT * FROM " & Clausula_FROM & ";" + End If + If Conexion.Provider = "SQLOLEDB" Then sSQL = sSQL.Replace(Chr(34), "'") + adAdaptador = New OleDbDataAdapter(sSQL, Conexion) + If Not Transaccion Is Nothing Then + adAdaptador.SelectCommand.Transaction = Transaccion + End If + TSFill(adAdaptador, dsDatos, "TABLA") + If dsDatos.Tables(0).Rows.Count = 0 Then + Lee_Registro = Nothing + Else + If sCampoAIncrementar <> "" Then + If IsDBNull(dsDatos.Tables(0).Rows(0)(sCampoAIncrementar)) Then dsDatos.Tables(0).Rows(0)(sCampoAIncrementar) = 0 + dsDatos.Tables(0).Rows(0)(sCampoAIncrementar) += iIncremento + End If + Lee_Registro = dsDatos.Tables(0).Rows(0) + If bGuardar Then + Dim coComando As New OleDbCommandBuilder(adAdaptador) + 'adAdaptador.Update(dsDatos, "TABLA") + TSUpdate(adAdaptador, dsDatos, "TABLA") + End If + End If + Catch ex As Exception + If bSinMensajesError Or EsServicio Then + Throw New Exception(ex.Message & vbCrLf & "FROM: " & Clausula_FROM & " WHERE: " & Clausula_WHERE & "(Transaccion=" & (Transaccion IsNot Nothing).ToString & " Connectionstring=" & Conexion.ConnectionString & ")", ex) + 'Throw ex + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro") + End If + End Try + End Function + + Public Shared Function Lee_Registro(ByVal Conexion As SqlConnection, ByVal Clausula_FROM As String, ByVal Clausula_WHERE As String, Optional ByVal sCampoAIncrementar As String = "", Optional ByVal iIncremento As Integer = 0, Optional ByVal bGuardar As Boolean = False, Optional ByVal bSinMensajesError As Boolean = True, Optional ByVal Transaccion As SqlTransaction = Nothing) As DataRow + Lee_Registro = Nothing + Try + Dim adAdaptador As SqlDataAdapter, dsDatos As New DataSet + If Trim(Clausula_WHERE) <> "" Then + adAdaptador = New SqlDataAdapter("SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & ";", Conexion) + Else + adAdaptador = New SqlDataAdapter("SELECT * FROM " & Clausula_FROM & ";", Conexion) + End If + If Not IsNothing(Transaccion) Then + adAdaptador.SelectCommand.Transaction = Transaccion + End If + TSFill(adAdaptador, dsDatos, "TABLA") + If dsDatos.Tables(0).Rows.Count = 0 Then + Lee_Registro = Nothing + Else + If sCampoAIncrementar <> "" Then + If IsDBNull(dsDatos.Tables(0).Rows(0)(sCampoAIncrementar)) Then dsDatos.Tables(0).Rows(0)(sCampoAIncrementar) = 0 + dsDatos.Tables(0).Rows(0)(sCampoAIncrementar) += iIncremento + End If + Lee_Registro = dsDatos.Tables(0).Rows(0) + If bGuardar Then + Dim coComando As New SqlCommandBuilder(adAdaptador) + 'adAdaptador.Update(dsDatos, "TABLA") + TSUpdate(adAdaptador, dsDatos, "TABLA") + End If + End If + Catch ex As Exception + If bSinMensajesError Or EsServicio Then + Throw New Exception(ex.Message & vbCrLf & "FROM: " & Clausula_FROM & "WHERE: " & Clausula_WHERE, ex) + 'Throw ex + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro") + End If + End Try + End Function + + Public Shared Function LeeRegistroMySQL(ByVal Conexion As MySqlConnection, ByVal Clausula_FROM As String, ByVal Clausula_WHERE As String, Optional ByVal sCampoAIncrementar As String = "", Optional ByVal iIncremento As Integer = 0, Optional ByVal bGuardar As Boolean = False, Optional ByVal bSinMensajesError As Boolean = True, Optional ByVal Transaccion As MySqlTransaction = Nothing) As DataRow + LeeRegistroMySQL = Nothing + Try + Dim adAdaptador As MySqlDataAdapter, dsDatos As New DataSet + dsDatos.EnforceConstraints = False + If Trim(Clausula_WHERE) <> "" Then + adAdaptador = New MySqlDataAdapter("SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & ";", Conexion) + Else + adAdaptador = New MySqlDataAdapter("SELECT * FROM " & Clausula_FROM & ";", Conexion) + End If + If Not IsNothing(Transaccion) Then + adAdaptador.SelectCommand.Transaction = Transaccion + End If + TSFillMySQL(adAdaptador, dsDatos, "TABLA") + If dsDatos.Tables(0).Rows.Count = 0 Then + LeeRegistroMySQL = Nothing + Else + If sCampoAIncrementar <> "" Then + If IsDBNull(dsDatos.Tables(0).Rows(0)(sCampoAIncrementar)) Then dsDatos.Tables(0).Rows(0)(sCampoAIncrementar) = 0 + dsDatos.Tables(0).Rows(0)(sCampoAIncrementar) += iIncremento + End If + LeeRegistroMySQL = dsDatos.Tables(0).Rows(0) + If bGuardar Then + Dim coComando As New MySqlCommandBuilder(adAdaptador) + 'adAdaptador.Update(dsDatos, "TABLA") + TSUpdateMySQL(adAdaptador, dsDatos, "TABLA") + End If + End If + Catch ex As Exception + If bSinMensajesError Or EsServicio Then + Throw New Exception(ex.Message & vbCrLf & "FROM: " & Clausula_FROM & "WHERE: " & Clausula_WHERE, ex) + 'Throw ex + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro") + End If + End Try + End Function + + + Public Shared Function Lee_Registros(ByVal Conexion As OleDbConnection, ByVal Clausula_FROM As String, Optional ByVal Clausula_WHERE As String = "", Optional ByVal Clausula_ORDER As String = "", Optional ByVal SinMensajesError As Boolean = True) As DataTable + Lee_Registros = Nothing + Try + Dim adAdaptador As OleDbDataAdapter, dsDatos As New DataSet + Dim sSQL As String + If Trim(Clausula_WHERE) = "" Then + If Trim(Clausula_ORDER) = "" Then + sSQL = "SELECT * FROM " & Clausula_FROM & ";" + Else + sSQL = "SELECT * FROM " & Clausula_FROM & " ORDER BY " & Clausula_ORDER & ";" + End If + Else + If Trim(Clausula_ORDER) = "" Then + sSQL = "SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & ";" + Else + sSQL = "SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & " ORDER BY " & Clausula_ORDER & ";" + End If + End If + If Conexion.Provider = "SQLOLEDB" Then sSQL = sSQL.Replace(Chr(34), "'") + adAdaptador = New OleDbDataAdapter(sSQL, Conexion) + TSFillSchema(adAdaptador, dsDatos, SchemaType.Mapped, "TABLA") + 'adAdaptador.Fill(dsDatos, "TABLA") + TSFill(adAdaptador, dsDatos, "TABLA") + Lee_Registros = dsDatos.Tables(0) + Catch ex As Exception + If SinMensajesError Or EsServicio Then + Throw New Exception(ex.Message & vbCrLf & "FROM: " & Clausula_FROM & "WHERE: " & Clausula_WHERE & " ORDER: " & Clausula_ORDER, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registros") + End If + End Try + End Function + Public Shared Function Lee_Registros(ByVal Conexion As SqlConnection, ByVal Clausula_FROM As String, Optional ByVal Clausula_WHERE As String = "", Optional ByVal Clausula_ORDER As String = "", Optional ByVal SinMensajesError As Boolean = True) As DataTable + Lee_Registros = Nothing + Try + Dim adAdaptador As SqlDataAdapter, dsDatos As New DataSet + If Trim(Clausula_WHERE) = "" Then + If Trim(Clausula_ORDER) = "" Then + adAdaptador = New SqlDataAdapter("SELECT * FROM " & Clausula_FROM & ";", Conexion) + Else + adAdaptador = New SqlDataAdapter("SELECT * FROM " & Clausula_FROM & " ORDER BY " & Clausula_ORDER & ";", Conexion) + End If + Else + If Trim(Clausula_ORDER) = "" Then + adAdaptador = New SqlDataAdapter("SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & ";", Conexion) + Else + adAdaptador = New SqlDataAdapter("SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & " ORDER BY " & Clausula_ORDER & ";", Conexion) + End If + End If + TSFillSchema(adAdaptador, dsDatos, SchemaType.Mapped, "TABLA") + 'adAdaptador.Fill(dsDatos, "TABLA") + TSFill(adAdaptador, dsDatos, "TABLA") + Lee_Registros = dsDatos.Tables(0) + Catch ex As Exception + If SinMensajesError Or EsServicio Then + Throw New Exception(ex.Message & vbCrLf & "FROM: " & Clausula_FROM & "WHERE: " & Clausula_WHERE & " ORDER: " & Clausula_ORDER, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registros") + End If + End Try + End Function + + Public Shared Function LeeRegistrosMYSQL(ByVal Conexion As MySqlConnection, ByVal Clausula_FROM As String, Optional ByVal Clausula_WHERE As String = "", Optional ByVal Clausula_ORDER As String = "", Optional ByVal SinMensajesError As Boolean = True) As DataTable + LeeRegistrosMYSQL = Nothing + Try + Dim adAdaptador As MySqlDataAdapter, dsDatos As New DataSet + dsDatos.EnforceConstraints = False + If Trim(Clausula_WHERE) = "" Then + If Trim(Clausula_ORDER) = "" Then + adAdaptador = New MySqlDataAdapter("SELECT * FROM " & Clausula_FROM & ";", Conexion) + Else + adAdaptador = New MySqlDataAdapter("SELECT * FROM " & Clausula_FROM & " ORDER BY " & Clausula_ORDER & ";", Conexion) + End If + Else + If Trim(Clausula_ORDER) = "" Then + adAdaptador = New MySqlDataAdapter("SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & ";", Conexion) + Else + adAdaptador = New MySqlDataAdapter("SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & " ORDER BY " & Clausula_ORDER & ";", Conexion) + End If + End If + TSFillSchema(adAdaptador, dsDatos, SchemaType.Mapped, "TABLA") + 'adAdaptador.Fill(dsDatos, "TABLA") + TSFillMySQL(adAdaptador, dsDatos, "TABLA") + LeeRegistrosMYSQL = dsDatos.Tables(0) + Catch ex As Exception + If SinMensajesError Or EsServicio Then + Throw New Exception(ex.Message & vbCrLf & "FROM: " & Clausula_FROM & "WHERE: " & Clausula_WHERE & " ORDER: " & Clausula_ORDER, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registros") + End If + End Try + End Function + + Public Shared Function Lee_Registros_SQL(ByVal Conexion As OleDbConnection, ByVal Clausula_SQL As String, Optional ByVal Sin_Errores As Boolean = True) As DataTable + Lee_Registros_SQL = Nothing + Try + Dim adAdaptador As OleDbDataAdapter, dsDatos As New DataSet + If Conexion.Provider = "SQLOLEDB" Then Clausula_SQL = Clausula_SQL.Replace(Chr(34), "'") + If Not Clausula_SQL.EndsWith(";") Then Clausula_SQL &= ";" + adAdaptador = New OleDbDataAdapter(Clausula_SQL, Conexion) + 'adAdaptador.FillSchema(dsDatos, SchemaType.Mapped, "TABLA") + TSFillSchema(adAdaptador, dsDatos, SchemaType.Mapped, "TABLA") + 'adAdaptador.Fill(dsDatos, "TABLA") + TSFill(adAdaptador, dsDatos, "TABLA") + Lee_Registros_SQL = dsDatos.Tables(0) + Catch ex As Exception + If Sin_Errores Or EsServicio Then + Throw New Exception(ex.Message & vbCrLf & "SQL: " & Clausula_SQL) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registros_SQL") + End If + End Try + End Function + Public Shared Function Lee_Registros_SQL(ByVal Conexion As SqlConnection, ByVal Clausula_SQL As String, Optional ByVal Sin_Errores As Boolean = True) As DataTable + Lee_Registros_SQL = Nothing + Try + Dim adAdaptador As SqlDataAdapter, dsDatos As New DataSet + If Not Clausula_SQL.EndsWith(";") Then Clausula_SQL &= ";" + Clausula_SQL = Clausula_SQL.Replace(Chr(34), "'") + adAdaptador = New SqlDataAdapter(Clausula_SQL, Conexion) + 'adAdaptador.FillSchema(dsDatos, SchemaType.Mapped, "TABLA") + TSFillSchema(adAdaptador, dsDatos, SchemaType.Mapped, "TABLA") + 'adAdaptador.Fill(dsDatos, "TABLA") + TSFill(adAdaptador, dsDatos, "TABLA") + Lee_Registros_SQL = dsDatos.Tables(0) + Catch ex As Exception + If Sin_Errores Or EsServicio Then + Throw New Exception(ex.Message & vbCrLf & "SQL: " & Clausula_SQL) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registros_SQL") + End If + End Try + End Function + + Public Shared Function LeeRegistrosSQLMySQL(ByVal Conexion As MySqlConnection, ByVal Clausula_SQL As String, Optional ByVal Sin_Errores As Boolean = True, Optional ByVal NombreDataset As String = "DATASET", Optional ByVal NombreTabla As String = "TABLA") As DataTable + LeeRegistrosSQLMySQL = Nothing + Try + Dim adAdaptador As MySqlDataAdapter, dsDatos As New DataSet(NombreDataset) + dsDatos.EnforceConstraints = False + If Not Clausula_SQL.EndsWith(";") Then Clausula_SQL &= ";" + Clausula_SQL = Clausula_SQL.Replace(Chr(34), "'") + adAdaptador = New MySqlDataAdapter(Clausula_SQL, Conexion) + 'adAdaptador.FillSchema(dsDatos, SchemaType.Mapped, "TABLA") + TSFillSchema(adAdaptador, dsDatos, SchemaType.Mapped, NombreTabla) + 'adAdaptador.Fill(dsDatos, "TABLA") + TSFillMySQL(adAdaptador, dsDatos, NombreTabla) + LeeRegistrosSQLMySQL = dsDatos.Tables(0) + Catch ex As Exception + If Sin_Errores Or EsServicio Then + Throw New Exception(ex.Message & vbCrLf & "SQL: " & Clausula_SQL) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registros_SQL") + End If + End Try + End Function + + + 'Public Shared Function Max(ByVal A, ByVal B) + ' If A > B Then Return A Else Return B + 'End Function + 'Public Shared Function Min(ByVal A, ByVal B) + ' If A > B Then Return B Else Return A + 'End Function + Public Shared Function RED(ByVal Valor As Double, ByVal Numero As Integer) As Double + If Numero < 0 Then + Return Math.Round(Valor, Math.Abs(Numero), MidpointRounding.AwayFromZero) + Else + Return Math.Round(Valor / 10 ^ Numero, MidpointRounding.AwayFromZero) * 10 ^ Numero + End If + End Function + + Public Shared Function SeleccionaRegistros(ByVal Tabla As DataTable, ByVal Filtro As String) As DataView + Try + Tabla.CaseSensitive = False + Tabla.DefaultView.RowFilter = Filtro + SeleccionaRegistros = Tabla.DefaultView + Catch ex As Exception + If EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "SeleccionaRegistros") + SeleccionaRegistros = Nothing + End If + End Try + End Function + Public Shared Function rellena(ByRef I_D As String, ByRef Valor As String, ByRef NUMERO As Integer, ByRef Caracter_Relleno As String) As String + rellena = "" + Try + If Len(Trim(Valor)) >= NUMERO Then + rellena = Mid(Valor, 1, NUMERO) + Else + If I_D = "I" Then + rellena = New String(Caracter_Relleno, NUMERO - Len(Trim(Valor))) & Trim(Valor) + Else + rellena = Trim(Valor) & New String(Caracter_Relleno, NUMERO - Len(Trim(Valor))) + End If + End If + Catch ex As Exception + If EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Rellena") + End If + End Try + End Function + Public Shared Function Lee_Registro_SQL(ByVal Conexion As OleDbConnection, ByVal Clausula_SQL As String, Optional ByVal SinErrores As Boolean = True) As DataRow + Lee_Registro_SQL = Nothing + Try + Dim adAdaptador As OleDbDataAdapter, dsDatos As New DataSet + If Conexion.Provider = "SQLOLEDB" Then Clausula_SQL = Clausula_SQL.Replace(Chr(34), "'") + adAdaptador = New OleDbDataAdapter(Clausula_SQL, Conexion) + TSFill(adAdaptador, dsDatos, "TABLA") + If dsDatos.Tables(0).Rows.Count = 0 Then + Lee_Registro_SQL = Nothing + Else + Lee_Registro_SQL = dsDatos.Tables(0).Rows(0) + End If + Catch ex As Exception + If SinErrores = False And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro_SQL") + Else + Throw New Exception(ex.Message & vbCrLf & "SQL: " & Clausula_SQL) + 'Throw ex + End If + End Try + End Function + Public Shared Function Lee_Registro_SQL(ByVal Conexion As SqlConnection, ByVal Clausula_SQL As String, Optional ByVal SinErrores As Boolean = True) As DataRow + Lee_Registro_SQL = Nothing + Try + Dim adAdaptador As SqlDataAdapter, dsDatos As New DataSet + adAdaptador = New SqlDataAdapter(Clausula_SQL, Conexion) + TSFill(adAdaptador, dsDatos, "TABLA") + If dsDatos.Tables(0).Rows.Count = 0 Then + Lee_Registro_SQL = Nothing + Else + Lee_Registro_SQL = dsDatos.Tables(0).Rows(0) + End If + Catch ex As Exception + If SinErrores = False And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro_SQL") + Else + Throw New Exception(ex.Message & vbCrLf & "SQL: " & Clausula_SQL) + 'Throw ex + End If + End Try + End Function + Public Shared Function LeeRegistroSQLMySQL(ByVal Conexion As MySqlConnection, ByVal Clausula_SQL As String, Optional ByVal SinErrores As Boolean = True) As DataRow + LeeRegistroSQLMySQL = Nothing + Try + Dim adAdaptador As MySqlDataAdapter, dsDatos As New DataSet + adAdaptador = New MySqlDataAdapter(Clausula_SQL, Conexion) + TSFillMySQL(adAdaptador, dsDatos, "TABLA") + If dsDatos.Tables(0).Rows.Count > 0 Then + LeeRegistroSQLMySQL = dsDatos.Tables(0).Rows(0) + End If + Catch ex As Exception + If SinErrores = False And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro_SQL") + Else + Throw New Exception(ex.Message & vbCrLf & "SQL: " & Clausula_SQL) + 'Throw ex + End If + End Try + End Function + + + 'Public Shared Function ENST(ByVal Base As Long, ByVal CADENA As String) As String + ' Try + ' Dim caracter As Integer, X As Integer, RESP As Long, I As Integer + ' Randomize(Base) + ' ENST = "" + ' X = Base + ' For I = 1 To Len(CADENA) + ' X = (Rnd(-X) * 254) + ' caracter = Asc(Mid$(CADENA, I, 1)) - 1 + ' ENST = ENST & Chr((caracter Xor X) + 1) + ' Next I + ' Catch ex As Exception + ' MsgBox(ex) + ' End Try + 'End Function + 'Public Shared Function ENST(ByVal Base As Long, ByVal CADENA As String, ByVal Caracter_Inicio As Integer, ByVal Caracter_Fin As Integer) As String + ' Try + ' Dim caracter As Integer, X As Integer, RESP As Long, I As Integer, iNumCar As Integer + ' iNumCar = Caracter_Fin - Caracter_Inicio + ' Randomize(Base) + ' ENST = "" + ' X = Base + ' For I = 1 To Len(CADENA) + ' X = (Rnd(-X) * iNumCar) + ' caracter = Asc(Mid$(CADENA, I, 1)) - 1 + ' ENST = ENST & Chr((caracter Xor X) + Caracter_Inicio) + ' Next I + ' Catch ex As Exception + ' MsgBox(ex) + ' End Try + 'End Function + 'Public Shared Function ENSTG(ByVal Base As Long, ByVal CADENA As String, ByVal Caracter_Inicio As Integer, ByVal Caracter_Fin As Integer) As String + ' Try + ' Dim caracter As Integer, X As Integer, RESP As Long, I As Integer, iNumCar As Integer + ' iNumCar = Caracter_Fin - Caracter_Inicio + ' Randomize(Base) + ' ENSTG = "" + ' X = Base + ' For I = 1 To Len(CADENA) + ' X = (Rnd(-X) * iNumCar) + ' caracter = Asc(Mid$(CADENA, I, 1)) - 1 + ' ENSTG = ENSTG & Chr((caracter Xor X) + Caracter_Inicio) + ' Next I + ' Catch ex As Exception + ' MsgBox(ex) + ' End Try + 'End Function + + + Public Shared Sub TablaATxt(ByVal Tabla As DataTable, ByVal RutaFichero As String, Optional ByVal Roman8 As Boolean = False, Optional ByVal Version As String = "") + Try + Dim drTmp As DataRow, dcTmp As DataColumn, sCadena As String + Dim iFichero As Integer = FreeFile() + FileOpen(iFichero, RutaFichero, OpenMode.Output, OpenAccess.Write, OpenShare.LockReadWrite) + If Version = "" Then + sCadena = "TABLA:" & Tabla.TableName & "|CAMPOS:" + Else + sCadena = "VERSION:" & Version & "|TABLA:" & Tabla.TableName & "|CAMPOS:" + End If + Dim i As Integer + For Each dcTmp In Tabla.Columns + Select Case dcTmp.DataType.ToString.ToUpper + Case "SYSTEM.STRING" + If dcTmp.MaxLength < 256 Then + sCadena = sCadena & dcTmp.ColumnName & ":" & dcTmp.DataType.ToString.ToUpper & "(" & i.ToString & ";" & dcTmp.MaxLength.ToString & ")," + i += dcTmp.MaxLength + End If + Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + sCadena = sCadena & dcTmp.ColumnName & ":" & dcTmp.DataType.ToString.ToUpper & "(" & i.ToString & ";25)," + i += 25 + Case "SYSTEM.DATETIME" + sCadena = sCadena & dcTmp.ColumnName & ":" & dcTmp.DataType.ToString.ToUpper & "(" & i.ToString & ";19)," + i += 19 + Case "SYSTEM.BOOLEAN" + sCadena = sCadena & dcTmp.ColumnName & ":" & dcTmp.DataType.ToString.ToUpper & "(" & i.ToString & ";1)," + i += 1 + Case "SYSTEM.BYTE[]" + Case Else + If EsServicio Then + Throw New Exception("TIPO NO SOPORTADO " & dcTmp.ColumnName) + Else + MsgBox("TIPO NO SOPORTADO " & dcTmp.ColumnName) + End If + End Select + Next + PrintLine(iFichero, sCadena) + For Each drTmp In Tabla.Rows + sCadena = "" + For Each dcTmp In Tabla.Columns + Select Case dcTmp.DataType.ToString.ToUpper + Case "SYSTEM.STRING" + If dcTmp.MaxLength <= 0 Then + Console.WriteLine(dcTmp.MaxLength) + End If + If dcTmp.MaxLength < 256 Then sCadena = sCadena & drTmp(dcTmp).ToString.Replace(Chr(13), "").Replace(Chr(10), "").PadRight(dcTmp.MaxLength) + Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + sCadena = sCadena & drTmp(dcTmp).ToString.PadRight(25).Replace(",", ".") + Case "SYSTEM.DATETIME" + If IsDBNull(drTmp(dcTmp)) Then + sCadena = sCadena & " " + Else + sCadena = sCadena & Format(drTmp(dcTmp), "dd/MM/yyyy HH:mm:ss") + End If + Case "SYSTEM.BOOLEAN" + If drTmp(dcTmp) Then + sCadena = sCadena & "V" + Else + sCadena = sCadena & "F" + End If + Case "SYSTEM.BYTE[]" + Case Else + If EsServicio Then + Throw New Exception("TIPO NO SOPORTADO " & dcTmp.ColumnName) + Else + MsgBox("TIPO NO SOPORTADO " & dcTmp.ColumnName) + End If + + End Select + Next + PrintLine(iFichero, sCadena) + Next + FileClose(iFichero) + If Roman8 Then CharConverter("WINDOWS", "ROMAN8SA", RutaFichero) + Catch ex As Exception + Throw New Exception(ex.Message & " Fichero: " & RutaFichero, ex) + ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "TablaATxt") + End Try + End Sub + + Public Shared Sub DataSetATxt(ByVal ds As DataSet, ByVal RutaFichero As String, Optional ByVal Roman8 As Boolean = False, Optional ByVal Version As String = "") + Try + Dim drTmp As DataRow, dcTmp As DataColumn, sCadena As String + Dim iFichero As Integer = FreeFile() + FileOpen(iFichero, RutaFichero, OpenMode.Output, OpenAccess.Write, OpenShare.LockReadWrite) + For Each Tabla In ds.Tables + If Version = "" Then + sCadena = "TABLA:" & Tabla.TableName & "|CAMPOS:" + Else + sCadena = "VERSION:" & Version & "|TABLA:" & Tabla.TableName & "|CAMPOS:" + End If + Dim i As Integer = 0 + For Each dcTmp In Tabla.Columns + Select Case dcTmp.DataType.ToString.ToUpper + Case "SYSTEM.STRING" + If dcTmp.MaxLength < 256 Then + sCadena = sCadena & dcTmp.ColumnName & ":" & dcTmp.DataType.ToString.ToUpper & "(" & i.ToString & ";" & dcTmp.MaxLength.ToString & ")," + i += dcTmp.MaxLength + End If + Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + sCadena = sCadena & dcTmp.ColumnName & ":" & dcTmp.DataType.ToString.ToUpper & "(" & i.ToString & ";25)," + i += 25 + Case "SYSTEM.DATETIME" + sCadena = sCadena & dcTmp.ColumnName & ":" & dcTmp.DataType.ToString.ToUpper & "(" & i.ToString & ";19)," + i += 19 + Case "SYSTEM.BOOLEAN" + sCadena = sCadena & dcTmp.ColumnName & ":" & dcTmp.DataType.ToString.ToUpper & "(" & i.ToString & ";1)," + i += 1 + Case "SYSTEM.BYTE[]" + Case Else + If EsServicio Then + Throw New Exception("TIPO NO SOPORTADO " & dcTmp.ColumnName) + Else + MsgBox("TIPO NO SOPORTADO " & dcTmp.ColumnName) + End If + End Select + Next + PrintLine(iFichero, sCadena) + For Each drTmp In Tabla.Rows + sCadena = "" + For Each dcTmp In Tabla.Columns + Select Case dcTmp.DataType.ToString.ToUpper + Case "SYSTEM.STRING" + If dcTmp.MaxLength < 256 Then sCadena = sCadena & drTmp(dcTmp).ToString.Replace(Chr(13), "").Replace(Chr(10), "").PadRight(dcTmp.MaxLength) + Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + sCadena = sCadena & drTmp(dcTmp).ToString.PadRight(25).Replace(",", ".") + Case "SYSTEM.DATETIME" + If IsDBNull(drTmp(dcTmp)) Then + sCadena = sCadena & " " + Else + sCadena = sCadena & Format(drTmp(dcTmp), "dd/MM/yyyy HH:mm:ss") + End If + Case "SYSTEM.BOOLEAN" + If Not drTmp(dcTmp) Is DBNull.Value AndAlso drTmp(dcTmp) Then + sCadena = sCadena & "V" + Else + sCadena = sCadena & "F" + End If + Case "SYSTEM.BYTE[]" + Case Else + If EsServicio Then + Throw New Exception("TIPO NO SOPORTADO " & dcTmp.ColumnName) + Else + MsgBox("TIPO NO SOPORTADO " & dcTmp.ColumnName) + End If + + End Select + Next + PrintLine(iFichero, sCadena) + Next + Next + FileClose(iFichero) + If Roman8 Then CharConverter("WINDOWS", "ROMAN8SA", RutaFichero) + Catch ex As Exception + Throw New Exception(ex.Message & " Fichero: " & RutaFichero, ex) + ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "TablaATxt") + End Try + End Sub + + Public Shared Sub CopiaDirectorio(ByVal DirectorioOrigen As String, ByVal DirectorioDestino As String, ByVal Recursivo As Boolean, ByVal SobreEscribir As Boolean, Optional ByRef EtiquetaProgreso As Label = Nothing, Optional ByRef BarraProgreso As ProgressBar = Nothing, Optional ByRef NumeroFicherosACopiar As Integer = 0, Optional ByRef OmitirBloqueados As Boolean = False) + If Not BarraProgreso Is Nothing Then + If BarraProgreso.Tag = "CANCELAR" Then Exit Sub + End If + Try + If Not BarraProgreso Is Nothing And NumeroFicherosACopiar = 0 Then + NumeroFicherosACopiar = ObtieneNumeroFicheros(DirectorioOrigen) + BarraProgreso.Maximum = NumeroFicherosACopiar + End If + Dim sDir As String + Dim dDirInfo As IO.DirectoryInfo + Dim sDirInfo As IO.DirectoryInfo + Dim sFile As String + Dim sFileInfo As IO.FileInfo + Dim dFileInfo As IO.FileInfo + ' Add trailing separators to the supplied paths if they don't exist. + If Not DirectorioOrigen.EndsWith(System.IO.Path.DirectorySeparatorChar.ToString()) Then + DirectorioOrigen &= System.IO.Path.DirectorySeparatorChar + End If + If Not DirectorioDestino.EndsWith(System.IO.Path.DirectorySeparatorChar.ToString()) Then + DirectorioDestino &= System.IO.Path.DirectorySeparatorChar + End If + 'If destination directory does not exist, create it. + dDirInfo = New System.IO.DirectoryInfo(DirectorioDestino) + If dDirInfo.Exists = False Then dDirInfo.Create() + dDirInfo = Nothing + ' Recursive switch to continue drilling down into directory structure. + If Recursivo Then + ' Get a list of directories from the current parent. + For Each sDir In System.IO.Directory.GetDirectories(DirectorioOrigen) + sDirInfo = New System.IO.DirectoryInfo(sDir) + dDirInfo = New System.IO.DirectoryInfo(DirectorioDestino & sDirInfo.Name) + ' Create the directory if it does not exist. + If dDirInfo.Exists = False Then dDirInfo.Create() + ' Since we are in recursive mode, copy the children also + CopiaDirectorio(sDirInfo.FullName, dDirInfo.FullName, Recursivo, SobreEscribir, EtiquetaProgreso, BarraProgreso, NumeroFicherosACopiar, OmitirBloqueados) + sDirInfo = Nothing + dDirInfo = Nothing + Next + End If + ' Get the files from the current parent. + For Each sFile In System.IO.Directory.GetFiles(DirectorioOrigen) + sFileInfo = New System.IO.FileInfo(sFile) + dFileInfo = New System.IO.FileInfo(Replace(sFile, DirectorioOrigen, DirectorioDestino)) + 'If File does not exist. Copy. + If Not EtiquetaProgreso Is Nothing Then + EtiquetaProgreso.Text = "Copiando " & sFileInfo.FullName & " ..." + End If + + If dFileInfo.Exists = False Then + Try + sFileInfo.CopyTo(dFileInfo.FullName, SobreEscribir) + Catch ex As Exception + If Not OmitirBloqueados Then Throw New Exception(ex.Message, ex) + End Try + Else + 'If file exists and is the same length (size). Skip. + 'If file exists and is of different Length (size) and SobreEscribir = True. Copy + If sFileInfo.Length <> dFileInfo.Length AndAlso SobreEscribir Then + Try + sFileInfo.CopyTo(dFileInfo.FullName, SobreEscribir) + Catch ex As Exception + If Not OmitirBloqueados Then Throw New Exception(ex.Message, ex) + End Try + + 'If file exists and is of different Length (size) and SobreEscribir = False. Skip + ElseIf sFileInfo.Length <> dFileInfo.Length AndAlso Not SobreEscribir Then + 'Debug.WriteLine(sFileInfo.FullName & " Not copied.") + End If + End If + Application.DoEvents() + + If Not BarraProgreso Is Nothing Then + If BarraProgreso.Tag = "CANCELAR" Then Exit Sub + BarraProgreso.Value = Math.Min(BarraProgreso.Maximum, BarraProgreso.Value + 1) + End If + + sFileInfo = Nothing + dFileInfo = Nothing + Next + Catch ex As Exception + Throw New Exception("Error en Copiadirectorio. " & ex.Message, ex) 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, "CopiaDirectorio") + End Try + End Sub + + + + + + 'Public Shared Sub CopiaDirectorio(ByVal DirectorioOrigen As String, ByVal DirectorioDestino As String, ByVal Recursivo As Boolean, ByVal SobreEscribir As Boolean) + ' Try + ' Dim sDir As String + ' Dim dDirInfo As IO.DirectoryInfo + ' Dim sDirInfo As IO.DirectoryInfo + ' Dim sFile As String + ' Dim sFileInfo As IO.FileInfo + ' Dim dFileInfo As IO.FileInfo + ' ' Add trailing separators to the supplied paths if they don't exist. + ' If Not DirectorioOrigen.EndsWith(System.IO.Path.DirectorySeparatorChar.ToString()) Then + ' DirectorioOrigen &= System.IO.Path.DirectorySeparatorChar + ' End If + ' If Not DirectorioDestino.EndsWith(System.IO.Path.DirectorySeparatorChar.ToString()) Then + ' DirectorioDestino &= System.IO.Path.DirectorySeparatorChar + ' End If + ' 'If destination directory does not exist, create it. + ' dDirInfo = New System.IO.DirectoryInfo(DirectorioDestino) + ' If dDirInfo.Exists = False Then dDirInfo.Create() + ' dDirInfo = Nothing + ' ' Recursive switch to continue drilling down into directory structure. + ' If Recursivo Then + ' ' Get a list of directories from the current parent. + ' For Each sDir In System.IO.Directory.GetDirectories(DirectorioOrigen) + ' sDirInfo = New System.IO.DirectoryInfo(sDir) + ' dDirInfo = New System.IO.DirectoryInfo(DirectorioDestino & sDirInfo.Name) + ' ' Create the directory if it does not exist. + ' If dDirInfo.Exists = False Then dDirInfo.Create() + ' ' Since we are in recursive mode, copy the children also + ' CopiaDirectorio(sDirInfo.FullName, dDirInfo.FullName, Recursivo, SobreEscribir) + ' sDirInfo = Nothing + ' dDirInfo = Nothing + ' Next + ' End If + ' ' Get the files from the current parent. + ' For Each sFile In System.IO.Directory.GetFiles(DirectorioOrigen) + ' sFileInfo = New System.IO.FileInfo(sFile) + ' dFileInfo = New System.IO.FileInfo(Replace(sFile, DirectorioOrigen, DirectorioDestino)) + ' 'If File does not exist. Copy. + ' If dFileInfo.Exists = False Then + ' sFileInfo.CopyTo(dFileInfo.FullName, SobreEscribir) + ' Else + ' 'If file exists and is the same length (size). Skip. + ' 'If file exists and is of different Length (size) and SobreEscribir = True. Copy + ' If sFileInfo.Length <> dFileInfo.Length AndAlso SobreEscribir Then + ' sFileInfo.CopyTo(dFileInfo.FullName, SobreEscribir) + ' 'If file exists and is of different Length (size) and SobreEscribir = False. Skip + ' ElseIf sFileInfo.Length <> dFileInfo.Length AndAlso Not SobreEscribir Then + ' 'Debug.WriteLine(sFileInfo.FullName & " Not copied.") + ' End If + ' End If + ' sFileInfo = Nothing + ' dFileInfo = Nothing + ' Next + ' Catch ex As Exception + ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "CopiaDirectorio") + ' End Try + 'End Sub + Public Shared Function CalculoLetraCif(ByVal DNI As String) As String + Dim sResultado As String = "", iTamanoDNI As Integer, sLetrasNif As String, i As Integer, Cdd0 As Integer, V1 As String = "" + sLetrasNif = "TRWAGMYFPDXBNJZSQVHLCKE" + iTamanoDNI = Len(DNI) + If iTamanoDNI = 0 Then Return DNI + DNI = DNI.ToUpper + For i = 1 To iTamanoDNI + If Asc(Mid(DNI, i, 1)) >= 48 And Asc(Mid(DNI, i, 1)) <= 57 Or Asc(Mid(DNI, i, 1)) >= 65 And Asc(Mid(DNI, i, 1)) <= 90 Then sResultado = sResultado & Mid(DNI, i, 1) + Next i + iTamanoDNI = Len(sResultado) + If iTamanoDNI = 0 Then + Return sResultado + End If + If Asc(Mid(sResultado, 1, 1)) < 48 Or Asc(Mid(sResultado, 1, 1)) > 57 Or Asc(Mid(sResultado, iTamanoDNI, 1)) < 48 Or Asc(Mid(sResultado, iTamanoDNI, 1)) > 57 Then + Return sResultado + End If + Cdd0 = 0 + For i = 1 To iTamanoDNI + If Cdd0 Or (Asc(Mid(sResultado, i, 1)) <> 48) Then + If Asc(Mid(sResultado, i, 1)) >= 48 And Asc(Mid(sResultado, i, 1)) <= 57 Then V1 = V1 & Mid(sResultado, i, 1) + Cdd0 = 1 + End If + Next i + If Trim(V1) = "" Then Return V1 + Return V1 & Mid(sLetrasNif, Val(V1) Mod 23 + 1, 1) + End Function + ' Public Shared Sub AgregaBarraGenerica(ByRef Formulario As Form, ByRef tlbBarraGenerica As ucBarraGenerica) + Public Shared Sub AgregaBarraGenerica(ByRef Formulario As Form, ByRef tlbBarraGenerica As Object) + Formulario.Controls.Add(tlbBarraGenerica) + tlbBarraGenerica.Top = 0 + tlbBarraGenerica.Left = 0 + tlbBarraGenerica.Anchor = AnchorStyles.Top + AnchorStyles.Left + 'tlbBarraGenerica.Visible = True + 'tlbBarraGenerica.BringToFront() + End Sub + 'Public Shared Function CodTecnosis(ByVal CadenaACod As String) As String + ' Dim i As Integer, lSumaCaracter As Long + ' For i = 1 To Len(CadenaACod) + ' lSumaCaracter = lSumaCaracter + Asc(Mid$(CadenaACod, i, 1)) + ' Next + ' CodTecnosis = ((Math.Sqrt((lSumaCaracter) / 13) * 100)) + ' CodTecnosis = Int((CodTecnosis - (Int(CodTecnosis))) * 1000000.0) + 'End Function + Public Shared Function EjecutaSql(ByVal Conexion As OleDbConnection, ByVal InstruccionSQL As String, Optional ByVal Mostrar_Error As Boolean = False) As Boolean + Try + EjecutaSql = True + Dim sql As New OleDb.OleDbCommand, bCerrar As Boolean = False + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + TSOpen(Conexion) + End If + sql.Connection = Conexion + sql.CommandText = InstruccionSQL + EjecutaSql = sql.ExecuteNonQuery() + If bCerrar Then Conexion.Close() + Catch ex As Exception + ' Throw New Exception(ex.Message) + EjecutaSql = False + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message) + End If + End Try + End Function + + Public Shared Function EjecutaSql(ByVal Conexion As SqlConnection, ByVal InstruccionSQL As String, Optional ByVal Mostrar_Error As Boolean = False) As Boolean + Try + EjecutaSql = True + Dim sql As New SqlCommand, bCerrar As Boolean = False + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + TSOpen(Conexion) + End If + sql.Connection = Conexion + sql.CommandText = InstruccionSQL.Replace(Chr(34), "'") + EjecutaSql = sql.ExecuteNonQuery() + If bCerrar Then Conexion.Close() + Catch ex As Exception + ' Throw New Exception(ex.Message) + EjecutaSql = False + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message) + End If + End Try + End Function + + Public Shared Function EjecutaSqlMySQL(ByVal Conexion As MySqlConnection, ByVal InstruccionSQL As String, Optional ByVal Mostrar_Error As Boolean = False, Optional ByVal ReemplazarComillas As Boolean = True) As Boolean + Try + EjecutaSqlMySQL = True + Dim sql As New MySqlCommand, bCerrar As Boolean = False + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + TSOpenMySQL(Conexion) + End If + sql.Connection = Conexion + If ReemplazarComillas Then + sql.CommandText = InstruccionSQL.Replace(Chr(34), "'") + Else + sql.CommandText = InstruccionSQL + End If + EjecutaSqlMySQL = sql.ExecuteNonQuery() + If bCerrar Then Conexion.Close() + Catch ex As Exception + ' Throw New Exception(ex.Message) + EjecutaSqlMySQL = False + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message) + End If + End Try + End Function + + + + Public Shared Function EjecutaSqlConTransaccion(ByVal Conexion As OleDbConnection, ByVal InstruccionSQL As String, Optional ByVal Mostrar_Error As Boolean = False) As Boolean + + ' Dim ts As OleDb.OleDbTransaction = Nothing + Dim bTransaccionIniciada, bCerrar As Boolean + Dim sql As New OleDb.OleDbCommand + Try + + EjecutaSqlConTransaccion = True + + If Conexion.State = ConnectionState.Closed Then + TSOpen(Conexion) + bCerrar = True + End If + sql.Connection = Conexion + sql.CommandText = InstruccionSQL.Replace(Chr(34), "'") + sql.Transaction = Conexion.BeginTransaction + bTransaccionIniciada = True + EjecutaSqlConTransaccion = sql.ExecuteNonQuery() + sql.Transaction.Commit() + Catch ex As Exception + If bTransaccionIniciada Then + Try + sql.Transaction.Rollback() + Catch ex2 As Exception + End Try + End If + ' Throw New Exception(ex.Message) + EjecutaSqlConTransaccion = False + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message & vbCrLf & "SQL: " & InstruccionSQL) + End If + Finally + If bCerrar Then Conexion.Close() + End Try + End Function + + Public Shared Function EjecutaSqlConTransaccion(ByVal Conexion As SqlConnection, ByVal InstruccionSQL As String, Optional ByVal Mostrar_Error As Boolean = False) As Boolean + + ' Dim ts As OleDb.OleDbTransaction = Nothing + Dim bTransaccionIniciada, bCerrar As Boolean + Dim sql As New SqlCommand + Try + + EjecutaSqlConTransaccion = True + + If Conexion.State = ConnectionState.Closed Then + TSOpen(Conexion) + bCerrar = True + End If + sql.Connection = Conexion + sql.CommandText = InstruccionSQL.Replace(Chr(34), "'") + sql.Transaction = Conexion.BeginTransaction + bTransaccionIniciada = True + EjecutaSqlConTransaccion = sql.ExecuteNonQuery() + sql.Transaction.Commit() + Catch ex As Exception + If bTransaccionIniciada Then + Try + sql.Transaction.Rollback() + Catch ex2 As Exception + End Try + End If + ' Throw New Exception(ex.Message) + EjecutaSqlConTransaccion = False + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message & vbCrLf & "SQL: " & InstruccionSQL) + End If + Finally + If bCerrar Then Conexion.Close() + End Try + End Function + Public Shared Function EjecutaSqlConTransaccionMySQL(ByVal Conexion As MySqlConnection, ByVal InstruccionSQL As String, ByVal Transaccion As MySqlTransaction) As Boolean + + Dim sql As New MySqlCommand + Try + EjecutaSqlConTransaccionMySQL = True + sql.Connection = Conexion + sql.CommandText = InstruccionSQL + sql.Transaction = Transaccion + EjecutaSqlConTransaccionMySQL = sql.ExecuteNonQuery() + Catch ex As Exception + Throw New Exception(ex.Message & vbCrLf & "SQL: " & InstruccionSQL, ex) + End Try + End Function + + + Public Shared Function EjecutaSql(ByVal Conexion As OleDbConnection, ByVal Comando As OleDbCommand, Optional ByVal Mostrar_Error As Boolean = False, Optional ByVal MilisegundosReintentos As Integer = 20000) As Boolean + Dim sw As New Stopwatch + Dim bCerrar As Boolean = False + Try + Do + Try + sw.Start() + EjecutaSql = True + Comando.Connection = Conexion + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + TSOpen(Conexion) + Else + bCerrar = False + End If + EjecutaSql = Comando.ExecuteNonQuery() + Exit Do + Catch ex As OleDb.OleDbException + If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + If sw.ElapsedMilliseconds > MilisegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + Else + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message & vbCrLf & "COMMANDTEXT: " & Comando.CommandText, ex) + End If + End If + Application.DoEvents() + Catch ex As Exception + EjecutaSql = False + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message & vbCrLf & "COMMANDTEXT: " & Comando.CommandText) + End If + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + Try + If bCerrar Then Conexion.Close() + Catch ex As Exception + End Try + End Try + End Function + Public Shared Function EjecutaSqlMySQL(ByVal Conexion As MySqlConnection, ByVal Comando As MySqlCommand, Optional ByVal Mostrar_Error As Boolean = False, Optional ByVal MilisegundosReintentos As Integer = 2500) As Boolean + Dim sw As New Stopwatch + Dim bCerrar As Boolean = False + Try + Do + Try + sw.Start() + EjecutaSqlMySQL = True + Comando.Connection = Conexion + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + TSOpenMySQL(Conexion) + Else + bCerrar = False + End If + EjecutaSqlMySQL = Comando.ExecuteNonQuery() + Exit Do + Catch ex As Exception + If sw.ElapsedMilliseconds > MilisegundosReintentos Then Throw ex + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message & vbCrLf & "COMMANDTEXT: " & Comando.CommandText, ex) + End If + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + Try + If bCerrar Then Conexion.Close() + Catch ex As Exception + End Try + End Try + End Function + + Public Shared Function EjecutaSqlConTransaccion(ByVal Conexion As OleDbConnection, ByVal Comando As OleDbCommand, Optional ByVal Mostrar_Error As Boolean = False, Optional ByVal MilisegundosReintentos As Integer = 20000) As Boolean + Dim sw As New Stopwatch + Dim bTransaccionIniciada, bCerrar As Boolean + + Try + Do + Try + sw.Start() + EjecutaSqlConTransaccion = True + Comando.Connection = Conexion + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + TSOpen(Conexion) + Else + bCerrar = False + End If + Comando.Transaction = Conexion.BeginTransaction + bTransaccionIniciada = True + EjecutaSqlConTransaccion = Comando.ExecuteNonQuery() + Comando.Transaction.Commit() + Exit Do + Catch ex As OleDb.OleDbException + If bTransaccionIniciada Then + Try + Comando.Transaction.Rollback() + Catch ex2 As Exception + End Try + End If + If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + If sw.ElapsedMilliseconds > MilisegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + Else + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message & vbCrLf & Comando.CommandText) + End If + End If + Application.DoEvents() + Catch ex As Exception + If bTransaccionIniciada Then + Try + Comando.Transaction.Rollback() + Catch ex2 As Exception + End Try + End If + + EjecutaSqlConTransaccion = False + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message & vbCrLf & Comando.CommandText) + End If + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + Try + If bCerrar Then Conexion.Close() + Catch ex As Exception + End Try + End Try + End Function + + Public Shared Function EjecutaSqlConTransaccion(ByVal Conexion As SqlConnection, ByVal Comando As SqlCommand, Optional ByVal Mostrar_Error As Boolean = False, Optional ByVal MiliSegundosReintentos As Integer = 2500) As Boolean + Dim sw As New Stopwatch + Dim bTransaccionIniciada, bCerrar As Boolean + + Try + Do + Try + sw.Start() + EjecutaSqlConTransaccion = True + Comando.CommandText = Comando.CommandText.Replace(Chr(34), "'") + Comando.Connection = Conexion + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + TSOpen(Conexion) + Else + bCerrar = False + End If + Comando.Transaction = Conexion.BeginTransaction + bTransaccionIniciada = True + EjecutaSqlConTransaccion = Comando.ExecuteNonQuery() + Comando.Transaction.Commit() + Exit Do + Catch ex As OleDb.OleDbException + If bTransaccionIniciada Then + Try + Comando.Transaction.Rollback() + Catch ex2 As Exception + End Try + End If + If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + Else + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message & vbCrLf & Comando.CommandText) + End If + End If + Application.DoEvents() + Catch ex As Exception + If bTransaccionIniciada Then + Try + Comando.Transaction.Rollback() + Catch ex2 As Exception + End Try + End If + + EjecutaSqlConTransaccion = False + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message & vbCrLf & Comando.CommandText) + End If + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + Try + If bCerrar Then Conexion.Close() + Catch ex As Exception + End Try + End Try + End Function + + Public Shared Function EjecutaSqlConTransaccionMySQL(ByVal Conexion As MySqlConnection, ByVal Comando As MySqlCommand, Optional ByVal Mostrar_Error As Boolean = False, Optional ByVal MiliSegundosReintentos As Integer = 2500) As Boolean + Dim sw As New Stopwatch + Dim bTransaccionIniciada, bCerrar As Boolean + + Try + Do + Try + sw.Start() + EjecutaSqlConTransaccionMySQL = True + Comando.CommandText = Comando.CommandText.Replace(Chr(34), "'") + Comando.Connection = Conexion + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + TSOpenMySQL(Conexion) + Else + bCerrar = False + End If + Comando.Transaction = Conexion.BeginTransaction + bTransaccionIniciada = True + EjecutaSqlConTransaccionMySQL = Comando.ExecuteNonQuery() + Comando.Transaction.Commit() + Exit Do + Catch ex As OleDb.OleDbException + If bTransaccionIniciada Then + Try + Comando.Transaction.Rollback() + Catch ex2 As Exception + End Try + End If + If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + Else + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message & vbCrLf & Comando.CommandText) + End If + End If + Application.DoEvents() + Catch ex As Exception + If bTransaccionIniciada Then + Try + Comando.Transaction.Rollback() + Catch ex2 As Exception + End Try + End If + + EjecutaSqlConTransaccionMySQL = False + If Mostrar_Error And Not EsServicio Then + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "EjecutaSql") + Else + Throw New Exception(ex.Message & vbCrLf & Comando.CommandText) + End If + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + Try + If bCerrar Then Conexion.Close() + Catch ex As Exception + End Try + End Try + End Function + + + 'Public Shared Sub InicializaMenus(ByVal Menu As C1.Win.C1Command.C1CommandHolder, ByVal Conexion As OleDbConnection, ByVal Usuario As String, ByVal grupo As String) + ' Try + ' Dim c1SubMenu As C1.Win.C1Command.C1Command + ' For Each c1SubMenu In Menu.Commands + ' Call PermisosObjeto(c1SubMenu.Name, "Menu", Conexion, Usuario, grupo, c1SubMenu) + ' Next + ' Catch ex As Exception + ' If EsServicio Then + ' Throw New Exception(ex.Message, ex) + ' Else + ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "InicializaMenus") + ' End If + ' End Try + + 'End Sub + 'Public Shared Sub InicializaMenus(ByVal Menu As C1.Win.C1Command.C1CommandHolder, ByVal Conexion As MySqlConnection, ByVal Usuario As String, ByVal grupo As String) + ' Try + ' Dim c1SubMenu As C1.Win.C1Command.C1Command + ' For Each c1SubMenu In Menu.Commands + ' Call PermisosObjetoMySQL(c1SubMenu.Name, "Menu", Conexion, Usuario, grupo, c1SubMenu) + ' Next + ' Catch ex As Exception + ' If EsServicio Then + ' Throw New Exception(ex.Message, ex) + ' Else + ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "InicializaMenus") + ' End If + ' End Try + + 'End Sub + + Public Shared Sub PermisosObjeto(ByVal Nombre As String, ByVal Tipo As String, ByVal conexion As OleDbConnection, ByVal Usuario As String, ByVal grupo As String, Optional ByVal Objeto As Object = Nothing) + Try + Dim drPermisos As DataRow + drPermisos = Lee_Registro(conexion, "ExcUsu", "Codigo_Usuario=" & Chr(34) & Usuario & Chr(34) & " AND Nombre=" & Chr(34) & Nombre & Chr(34)) + If Not IsNothing(drPermisos) Then LimitarAccesoObjeto(drPermisos, Tipo, Objeto) + drPermisos = Lee_Registro(conexion, "ExcGru", "Codigo_Grupo=" & Chr(34) & grupo & Chr(34) & " AND Nombre=" & Chr(34) & Nombre & Chr(34)) + If Not IsNothing(drPermisos) Then LimitarAccesoObjeto(drPermisos, Tipo, Objeto) + Catch ex As Exception + If EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "PermisosObjeto") + End If + + End Try + + End Sub + Public Shared Sub PermisosObjetoMySQL(ByVal Nombre As String, ByVal Tipo As String, ByVal conexion As MySqlConnection, ByVal Usuario As String, ByVal grupo As String, Optional ByVal Objeto As Object = Nothing) + Try + Dim drPermisos As DataRow + drPermisos = LeeRegistroMySQL(conexion, "ExcUsu", "Codigo_Usuario=" & Chr(34) & Usuario & Chr(34) & " AND Nombre=" & Chr(34) & Nombre & Chr(34)) + If Not IsNothing(drPermisos) Then LimitarAccesoObjeto(drPermisos, Tipo, Objeto) + drPermisos = LeeRegistroMySQL(conexion, "ExcGru", "Codigo_Grupo=" & Chr(34) & grupo & Chr(34) & " AND Nombre=" & Chr(34) & Nombre & Chr(34)) + If Not IsNothing(drPermisos) Then LimitarAccesoObjeto(drPermisos, Tipo, Objeto) + Catch ex As Exception + If EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "PermisosObjeto") + End If + End Try + End Sub + + Private Shared Sub LimitarAccesoObjeto(ByVal Registro As DataRow, ByVal Tipo As String, Optional ByVal Objeto As Object = Nothing) + Try + Select Case Tipo.ToUpper + Case "MENU" + If Registro("Denegar_Modificaciones") Then Objeto.enabled = False + If Registro("Denegar_Visualizacion") Then Objeto.visible = False + End Select + Catch ex As Exception + If EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "LimitarAccesoObjeto") + End If + End Try + End Sub + 'Public Shared Sub ConstruyeComando(ByRef adAdaptador As OleDbDataAdapter, ByVal dtTabla As DataTable, ByVal TablaAActualizar As String, ByVal CampoSIndice() As String, ByVal CamposRelacionados As String, ByVal Conexion As OleDbConnection) + ' Try + ' Dim adTabla As OleDb.OleDbDataAdapter, dsDatos As New DataSet, dcColumna As DataColumn + ' Dim sComandoUpdate As String = "UPDATE " & TablaAActualizar & " SET " + ' Dim sComandoInsert As String = "INSERT INTO " & TablaAActualizar & " (" + ' Dim sComandoInsertFin As String = ") VALUES (" + ' Dim sComandoDelete As String = "" + ' ' Dim sComandoDelete As String = "DELETE FROM " & TablaAActualizar & " WHERE (" & sCampoIndiceSinPrefijo & "=@" & sCampoIndiceSinPrefijo & ")" + ' Dim bCampoDeBusquedaEnUpdate As Boolean + ' Dim coComandoDelete As New OleDbCommand, coComandoUpdate As New OleDbCommand, coComandoInsert As New OleDbCommand + ' Dim sCamposOrigen As String = "|" + ' Dim sNombreColumna As String + ' Dim sCamposIndiceSinPrefijo(CampoSIndice.Length - 1) As String + ' Dim sCampoIndice As String + ' Dim i As Integer + ' For i = 0 To CampoSIndice.Length - 1 + ' sCampoIndice = CampoSIndice(i) + ' If InStr(sCampoIndice, ".") = 0 Then + ' sCamposIndiceSinPrefijo(i) = sCampoIndice + ' Else + ' sCamposIndiceSinPrefijo(i) = sCampoIndice.Split(".")(1) + ' End If + + ' If i = 0 Then + ' sComandoDelete = "DELETE FROM " & TablaAActualizar & " WHERE (" & sCampoIndice & "=@" & sCampoIndice & ")" + ' Else + ' sComandoDelete &= " AND (" & sCampoIndice & "=@" & sCampoIndice & ")" + ' End If + ' Next i + ' For Each dcColumna In dtTabla.Columns + ' sCamposOrigen = sCamposOrigen & dcColumna.ColumnName & "|" + ' Next + ' adTabla = New OleDb.OleDbDataAdapter("SELECT * FROM " & TablaAActualizar, Conexion) + ' 'adTabla.FillSchema(dsDatos, SchemaType.Mapped, TablaAActualizar) + ' TSFillSchema(adTabla, dsDatos, SchemaType.Mapped, TablaAActualizar) + + ' For i = 0 To CampoSIndice.Length - 1 + ' sCampoIndice = CampoSIndice(i) + ' coComandoDelete.Parameters.Add("@" & sCampoIndice, GetOleDbType(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType)) + ' coComandoDelete.Parameters("@" & sCampoIndice).SourceColumn = sCampoIndice ' dsDatos.Tables(TablaAActualizar).Columns(sCampoIndiceSinPrefijo).ColumnName + ' coComandoDelete.Parameters("@" & sCampoIndice).Value = GetOleDbTypeDefaultValue(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType) + ' adAdaptador.DeleteCommand = coComandoDelete + ' Next i + + ' For Each dcColumna In dsDatos.Tables(TablaAActualizar).Columns + ' For i = 0 To CampoSIndice.Length - 1 + ' If sCamposIndiceSinPrefijo(i).ToUpper = dcColumna.ColumnName.ToUpper Then bCampoDeBusquedaEnUpdate = True + ' Next i + ' If dcColumna.AutoIncrement = False Then + ' ' If CampoIndice.ToUpper = dcColumna.ColumnName.ToUpper Then bCampoDeBusquedaEnUpdate = True ' OJO SE SACA DEL IF 20050226 + ' If InStr(sCamposOrigen.ToUpper, "|" & dcColumna.ColumnName.ToUpper & "|") > 0 Then + ' sNombreColumna = dcColumna.ColumnName + ' Else + ' If InStr(sCamposOrigen.ToUpper, "|" & TablaAActualizar.ToUpper & "." & dcColumna.ColumnName.ToUpper & "|") > 0 Then + ' sNombreColumna = TablaAActualizar & "." & dcColumna.ColumnName + ' Else + ' sNombreColumna = "" + ' End If + ' End If + ' If sNombreColumna <> "" Then + ' ' If InStr("|" & CamposRelacionados & "|", "|" & TablaAActualizar & "." & dcColumna.ColumnName & "|") > 0 Then + ' ' sNombreColumna = TablaAActualizar & "." & dcColumna.ColumnName + ' ' End If + ' coComandoUpdate.Parameters.Add("@" & sNombreColumna, GetOleDbType(dcColumna.DataType)) + ' coComandoUpdate.Parameters("@" & sNombreColumna).SourceColumn = sNombreColumna + ' coComandoUpdate.Parameters("@" & sNombreColumna).Value = GetOleDbTypeDefaultValue(dcColumna.DataType) + + ' coComandoInsert.Parameters.Add("@" & sNombreColumna, GetOleDbType(dcColumna.DataType)) + ' coComandoInsert.Parameters("@" & sNombreColumna).SourceColumn = sNombreColumna + ' coComandoInsert.Parameters("@" & sNombreColumna).Value = GetOleDbTypeDefaultValue(dcColumna.DataType) + + ' sComandoUpdate = sComandoUpdate & sNombreColumna & "=@" & sNombreColumna & ", " + ' sComandoInsert = sComandoInsert & dcColumna.ColumnName & ", " + ' sComandoInsertFin = sComandoInsertFin & "@" & sNombreColumna & ", " + ' End If + ' End If + ' Next + ' For i = 0 To CampoSIndice.Length - 1 + ' sCampoIndice = CampoSIndice(i) + ' If i = 0 Then + ' sComandoUpdate = Mid$(sComandoUpdate, 1, Len(sComandoUpdate) - 2) & " WHERE " & sCampoIndice & "=@" & sCampoIndice + ' Else + ' sComandoUpdate &= " AND " & sCampoIndice & "=@" & sCampoIndice + ' End If + + ' If bCampoDeBusquedaEnUpdate Then + + ' sCampoIndice = CampoSIndice(i) + + ' coComandoUpdate.Parameters.Add("@" & sCampoIndice, GetOleDbType(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType)) + ' coComandoUpdate.Parameters("@" & sCampoIndice).SourceColumn = sCampoIndice + ' ' If dsDatos.Tables(TablaAActualizar).Columns(CampoIndice).AutoIncrement = False Then + ' coComandoUpdate.Parameters("@" & sCampoIndice).Value = GetOleDbTypeDefaultValue(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType) + + ' ' End If + ' End If + ' Next i + ' sComandoInsert = Mid$(sComandoInsert, 1, Len(sComandoInsert) - 2) & Mid$(sComandoInsertFin, 1, Len(sComandoInsertFin) - 2) & ")" + ' adAdaptador.InsertCommand = coComandoInsert + ' adAdaptador.UpdateCommand = coComandoUpdate + ' adAdaptador.DeleteCommand.CommandText = sComandoDelete + ' adAdaptador.InsertCommand.CommandText = sComandoInsert + ' adAdaptador.UpdateCommand.CommandText = sComandoUpdate + ' adAdaptador.InsertCommand.Connection = Conexion + ' adAdaptador.UpdateCommand.Connection = Conexion + ' adAdaptador.DeleteCommand.Connection = Conexion + ' Catch ex As Exception + ' If EsServicio Then + ' Throw New Exception(ex.Message, ex) + ' Else + ' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "ConstruyeComando") + ' End If + ' End Try + 'End Sub + Public Shared Sub ConstruyeComando(ByRef adAdaptador As System.Data.Common.DbDataAdapter, ByVal dtTabla As DataTable, ByVal TablaAActualizar As String, ByVal CampoSIndice() As String, ByVal CamposRelacionados As String, ByVal Conexion As System.Data.Common.DbConnection, CampoAutonumericoTraspasado As String) + Try + Dim adTabla As System.Data.Common.DbDataAdapter, dsDatos As New DataSet, dcColumna As DataColumn + Dim sComandoUpdate As String = "UPDATE " & TablaAActualizar & " SET " + Dim sComandoInsert As String = "INSERT INTO " & TablaAActualizar & " (" + Dim sComandoInsertFin As String = ") VALUES (" + Dim sComandoDelete As String = "" + ' Dim sComandoDelete As String = "DELETE FROM " & TablaAActualizar & " WHERE (" & sCampoIndiceSinPrefijo & "=@" & sCampoIndiceSinPrefijo & ")" + Dim bCampoDeBusquedaEnUpdate As Boolean + + Dim coComandoDeleteoledb, coComandoUpdateoledb, coComandoInsertoledb As OleDbCommand + Dim coComandoDeleteMySQL, coComandoUpdateMySQL, coComandoInsertMySQL As MySqlCommand + + ' Dim coComandoDelete As System.Data.Common.DbCommand, coComandoUpdate As System.Data.Common.DbCommand, coComandoInsert As System.Data.Common.DbCommand + + If Conexion.GetType Is GetType(OleDbConnection) Then + coComandoDeleteoledb = New OleDbCommand + coComandoUpdateoledb = New OleDbCommand + coComandoInsertoledb = New OleDbCommand + ElseIf Conexion.GetType Is GetType(MySql.Data.MySqlClient.MySqlConnection) Then + coComandoDeleteMySQL = New MySql.Data.MySqlClient.MySqlCommand + coComandoUpdateMySQL = New MySql.Data.MySqlClient.MySqlCommand + coComandoInsertMySQL = New MySql.Data.MySqlClient.MySqlCommand + Else + Throw New Exception("Tipo de conexión no soportado") + End If + + Dim sCamposOrigen As String = "|" + Dim sNombreColumna As String + Dim sCamposIndiceSinPrefijo(CampoSIndice.Length - 1) As String + Dim sCampoIndice As String + Dim i As Integer + For i = 0 To CampoSIndice.Length - 1 + sCampoIndice = CampoSIndice(i) + If InStr(sCampoIndice, ".") = 0 Then + sCamposIndiceSinPrefijo(i) = sCampoIndice + Else + sCamposIndiceSinPrefijo(i) = sCampoIndice.Split(".")(1) + End If + + If i = 0 Then + sComandoDelete = "DELETE FROM " & TablaAActualizar & " WHERE (" & sCampoIndice & "=@" & sCampoIndice & ")" + Else + sComandoDelete &= " AND (" & sCampoIndice & "=@" & sCampoIndice & ")" + End If + Next i + For Each dcColumna In dtTabla.Columns + sCamposOrigen = sCamposOrigen & dcColumna.ColumnName & "|" + Next + If Conexion.GetType Is GetType(OleDbConnection) Then + adTabla = New OleDb.OleDbDataAdapter("SELECT * FROM " & TablaAActualizar, Conexion) + ElseIf Conexion.GetType Is GetType(MySql.Data.MySqlClient.MySqlConnection) Then + adTabla = New MySql.Data.MySqlClient.MySqlDataAdapter("SELECT * FROM " & TablaAActualizar, Conexion) + Else + Throw New Exception("Tipo no soportado.") + End If + 'adTabla.FillSchema(dsDatos, SchemaType.Mapped, TablaAActualizar) + TSFillSchema(adTabla, dsDatos, SchemaType.Mapped, TablaAActualizar) + If Conexion.GetType Is GetType(OleDbConnection) Then + For i = 0 To CampoSIndice.Length - 1 + sCampoIndice = CampoSIndice(i) + coComandoDeleteoledb.Parameters.Add("@" & sCampoIndice, GetOleDbType(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType)) + coComandoDeleteoledb.Parameters("@" & sCampoIndice).SourceColumn = sCampoIndice ' dsDatos.Tables(TablaAActualizar).Columns(sCampoIndiceSinPrefijo).ColumnName + coComandoDeleteoledb.Parameters("@" & sCampoIndice).Value = GetOleDbTypeDefaultValue(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType) + adAdaptador.DeleteCommand = coComandoDeleteoledb + Next i + ElseIf Conexion.GetType Is GetType(MySqlConnection) Then + For i = 0 To CampoSIndice.Length - 1 + sCampoIndice = CampoSIndice(i) + coComandoDeleteMySQL.Parameters.Add("@" & sCampoIndice, GetMySQLType(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType)) + coComandoDeleteMySQL.Parameters("@" & sCampoIndice).SourceColumn = sCampoIndice ' dsDatos.Tables(TablaAActualizar).Columns(sCampoIndiceSinPrefijo).ColumnName + coComandoDeleteMySQL.Parameters("@" & sCampoIndice).Value = GetmysqlTypeDefaultValue(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType) + adAdaptador.DeleteCommand = coComandoDeleteMySQL + Next i + End If + + For Each dcColumna In dsDatos.Tables(TablaAActualizar).Columns + For i = 0 To CampoSIndice.Length - 1 + If sCamposIndiceSinPrefijo(i).ToUpper = dcColumna.ColumnName.ToUpper Then bCampoDeBusquedaEnUpdate = True + Next i + If dcColumna.AutoIncrement = False Then + ' If CampoIndice.ToUpper = dcColumna.ColumnName.ToUpper Then bCampoDeBusquedaEnUpdate = True ' OJO SE SACA DEL IF 20050226 + If InStr(sCamposOrigen.ToUpper, "|" & dcColumna.ColumnName.ToUpper & "|") > 0 Then + sNombreColumna = dcColumna.ColumnName + Else + If InStr(sCamposOrigen.ToUpper, "|" & TablaAActualizar.ToUpper & "." & dcColumna.ColumnName.ToUpper & "|") > 0 Then + sNombreColumna = TablaAActualizar & "." & dcColumna.ColumnName + Else + sNombreColumna = "" + End If + End If + If sNombreColumna <> "" Then + ' If InStr("|" & CamposRelacionados & "|", "|" & TablaAActualizar & "." & dcColumna.ColumnName & "|") > 0 Then + ' sNombreColumna = TablaAActualizar & "." & dcColumna.ColumnName + ' End If + If Conexion.GetType Is GetType(OleDbConnection) Then + coComandoUpdateoledb.Parameters.Add("@" & sNombreColumna, GetOleDbType(dcColumna.DataType)) + coComandoUpdateoledb.Parameters("@" & sNombreColumna).SourceColumn = sNombreColumna + coComandoUpdateoledb.Parameters("@" & sNombreColumna).Value = GetOleDbTypeDefaultValue(dcColumna.DataType) + + coComandoInsertoledb.Parameters.Add("@" & sNombreColumna, GetOleDbType(dcColumna.DataType)) + coComandoInsertoledb.Parameters("@" & sNombreColumna).SourceColumn = sNombreColumna + coComandoInsertoledb.Parameters("@" & sNombreColumna).Value = GetOleDbTypeDefaultValue(dcColumna.DataType) + ElseIf Conexion.GetType Is GetType(MySqlConnection) Then + coComandoUpdateMySQL.Parameters.Add("@" & sNombreColumna, GetMySQLType(dcColumna.DataType)) + coComandoUpdateMySQL.Parameters("@" & sNombreColumna).SourceColumn = sNombreColumna + coComandoUpdateMySQL.Parameters("@" & sNombreColumna).Value = GetmysqlTypeDefaultValue(dcColumna.DataType) + + coComandoInsertMySQL.Parameters.Add("@" & sNombreColumna, GetMySQLType(dcColumna.DataType)) + coComandoInsertMySQL.Parameters("@" & sNombreColumna).SourceColumn = sNombreColumna + coComandoInsertMySQL.Parameters("@" & sNombreColumna).Value = GetmysqlTypeDefaultValue(dcColumna.DataType) + End If + + sComandoUpdate = sComandoUpdate & sNombreColumna & "=@" & sNombreColumna & ", " + sComandoInsert = sComandoInsert & dcColumna.ColumnName & ", " + sComandoInsertFin = sComandoInsertFin & "@" & sNombreColumna & ", " + End If + End If + Next + + + For i = 0 To CampoSIndice.Length - 1 + sCampoIndice = CampoSIndice(i) + If i = 0 Then + sComandoUpdate = Mid$(sComandoUpdate, 1, Len(sComandoUpdate) - 2) & " WHERE " & sCampoIndice & "=@" & sCampoIndice + Else + sComandoUpdate &= " AND " & sCampoIndice & "=@" & sCampoIndice + End If + + If bCampoDeBusquedaEnUpdate Then + + sCampoIndice = CampoSIndice(i) + + If Conexion.GetType Is GetType(OleDbConnection) Then + coComandoUpdateoledb.Parameters.Add("@" & sCampoIndice, GetOleDbType(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType)) + coComandoUpdateoledb.Parameters("@" & sCampoIndice).SourceColumn = sCampoIndice + ' If dsDatos.Tables(TablaAActualizar).Columns(CampoIndice).AutoIncrement = False Then + coComandoUpdateoledb.Parameters("@" & sCampoIndice).Value = GetOleDbTypeDefaultValue(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType) + ElseIf Conexion.GetType Is GetType(MySqlConnection) Then + coComandoUpdateMySQL.Parameters.Add("@" & sCampoIndice, GetMySQLType(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType)) + coComandoUpdateMySQL.Parameters("@" & sCampoIndice).SourceColumn = sCampoIndice + ' If dsDatos.Tables(TablaAActualizar).Columns(CampoIndice).AutoIncrement = False Then + coComandoUpdateMySQL.Parameters("@" & sCampoIndice).Value = GetmysqlTypeDefaultValue(dsDatos.Tables(TablaAActualizar).Columns(sCamposIndiceSinPrefijo(i)).DataType) + End If + + ' End If + End If + Next i + sComandoInsert = Mid$(sComandoInsert, 1, Len(sComandoInsert) - 2) & Mid$(sComandoInsertFin, 1, Len(sComandoInsertFin) - 2) & ")" + + If Conexion.GetType Is GetType(OleDbConnection) Then + adAdaptador.InsertCommand = coComandoInsertoledb + adAdaptador.UpdateCommand = coComandoUpdateoledb + ElseIf Conexion.GetType Is GetType(MySqlConnection) Then + adAdaptador.InsertCommand = coComandoInsertMySQL + adAdaptador.UpdateCommand = coComandoUpdateMySQL + End If + adAdaptador.DeleteCommand.CommandText = sComandoDelete & ";" + + + If CampoAutonumericoTraspasado = "" Then + adAdaptador.InsertCommand.CommandText = sComandoInsert & ";" + Else + adAdaptador.InsertCommand.CommandText = sComandoInsert & ";SELECT last_insert_id() as " & CampoAutonumericoTraspasado + adAdaptador.InsertCommand.UpdatedRowSource = UpdateRowSource.FirstReturnedRecord + End If + + adAdaptador.UpdateCommand.CommandText = sComandoUpdate & ";" + adAdaptador.InsertCommand.Connection = Conexion + adAdaptador.UpdateCommand.Connection = Conexion + adAdaptador.DeleteCommand.Connection = Conexion + Catch ex As Exception + If EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "ConstruyeComando") + End If + End Try + End Sub + + Public Shared Function GetOleDbType(ByVal sysType As Type) As OleDbType + If sysType Is GetType(String) Then + Return OleDbType.VarChar + ElseIf sysType Is GetType(Integer) Then + Return OleDbType.Integer + ElseIf sysType Is GetType(Int16) Then + Return OleDbType.Integer + ElseIf sysType Is GetType(Int32) Then + Return OleDbType.Integer + ElseIf sysType Is GetType(Int64) Then + Return OleDbType.Integer + ElseIf sysType Is GetType(Boolean) Then + Return OleDbType.Boolean + ElseIf sysType Is GetType(Date) Then + Return OleDbType.Date + ElseIf sysType Is GetType(Char) Then + Return OleDbType.Char + ElseIf sysType Is GetType(Decimal) Then + Return OleDbType.Decimal + ElseIf sysType Is GetType(Double) Then + Return OleDbType.Double + ElseIf sysType Is GetType(Single) Then + Return OleDbType.Single + ElseIf sysType Is GetType(Byte()) Then + Return OleDbType.Binary + ElseIf sysType Is GetType(Guid) Then + Return OleDbType.Guid + End If + End Function + Public Shared Function GetOleDbTypeDefaultValue(ByVal sysType As Type) As Object + If sysType Is GetType(String) Then + Return "" + ElseIf sysType Is GetType(Integer) Or sysType Is GetType(Int16) Or sysType Is GetType(Int64) Or sysType Is GetType(Int32) Then + Return 0 + ElseIf sysType Is GetType(Boolean) Then + Return False + ElseIf sysType Is GetType(Date) Then + Return Nothing + ElseIf sysType Is GetType(Char) Then + Return "" + ElseIf sysType Is GetType(Decimal) Then + Return 0 + ElseIf sysType Is GetType(Double) Then + Return 0 + ElseIf sysType Is GetType(Single) Then + Return 0 + ElseIf sysType Is GetType(Byte()) Then + Return 0 + Else + Return Nothing + End If + End Function + + Public Shared Function GetMySQLType(ByVal sysType As Type) As MySqlDbType + If sysType Is GetType(String) Then + Return MySqlDbType.VarChar + ElseIf sysType Is GetType(Integer) Then + Return MySqlDbType.Int64 + ElseIf sysType Is GetType(Boolean) Then + Return MySqlDbType.Byte + ElseIf sysType Is GetType(Date) Then + Return MySqlDbType.DateTime + ElseIf sysType Is GetType(Char) Then + Return MySqlDbType.Byte + ElseIf sysType Is GetType(Decimal) Then + Return MySqlDbType.Decimal + ElseIf sysType Is GetType(Double) Then + Return MySqlDbType.Double + ElseIf sysType Is GetType(Single) Then + Return MySqlDbType.LongBlob + ElseIf sysType Is GetType(Byte()) Then + Return MySqlDbType.Binary + ElseIf sysType Is GetType(Guid) Then + Return MySqlDbType.Guid + End If + End Function + Public Shared Function GetmysqlTypeDefaultValue(ByVal sysType As Type) As Object + If sysType Is GetType(String) Then + Return "" + ElseIf sysType Is GetType(Integer) Then + Return 0 + ElseIf sysType Is GetType(Boolean) Then + Return False + ElseIf sysType Is GetType(Date) Then + Return Nothing + ElseIf sysType Is GetType(Char) Then + Return "" + ElseIf sysType Is GetType(Decimal) Then + Return 0 + ElseIf sysType Is GetType(Double) Then + Return 0 + ElseIf sysType Is GetType(Single) Then + Return 0 + ElseIf sysType Is GetType(Byte()) Then + Return 0 + Else + Return Nothing + End If + End Function + + + Public Shared Sub VisualizarPdf(ByVal RutaTemporal As String, ByVal Fichero As String, ByVal VisualizaCopia As Boolean) 'Public Sub VisualizaPdf(ByVal Fichero As String, ByVal FormularioAOcultar As Form) + 'If GbCerrandoFormularioActivo Then + Try + If VisualizaCopia Then + If Not IO.Directory.Exists(RutaTemporal) Then IO.Directory.CreateDirectory(RutaTemporal) + Try + Kill(RutaTemporal & "\*.pdf") + Catch ex As Exception + End Try + Dim i As Integer, sNombreFicherotmp As String + Dim sNombreFicherotmpse As String = IO.Path.GetFileNameWithoutExtension(Fichero) + If Not IO.Directory.Exists(RutaTemporal) Then IO.Directory.CreateDirectory(RutaTemporal) + sNombreFicherotmpse = IO.Path.GetFileNameWithoutExtension(Fichero) + Do + i += 1 + sNombreFicherotmp = RutaTemporal & "\" & sNombreFicherotmpse & "-" & Trim(Str(i)) & ".pdf" + Loop Until Not IO.File.Exists(sNombreFicherotmp) + IO.File.Copy(Fichero, sNombreFicherotmp) + Process.Start(sNombreFicherotmp) + Else + Process.Start(Fichero) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error") + End Try + End Sub + Public Shared Function FEncS$(ByVal X$, ByVal Jco0$, ByVal Jcd0$, ByVal Xs0 As Long) + Dim T$, Resultado$, Jco$, Jcd$, Cd$, Co$ + Dim R, F, Lo0, Ld0, Lx, Ld, Xs, Po, Lo, Pd, Px, Spac As Long + Dim SEncDes, I As Integer + Resultado$ = "" + If Xs0 = 0 Then ' Traduccion de tokens + T$ = X$ + Do + F = 0 + If Left$(T$, 3) = "[V]" Then Resultado$ = Resultado$ + "" : T$ = Mid$(T$, 4) : F = 1 + If Left$(T$, 4) = "[AM]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZ" : T$ = Mid$(T$, 5) : F = 1 + If Left$(T$, 4) = "[Am]" Then Resultado$ = Resultado$ + "abcdefghijklmnopqrstuvwxyz" : T$ = Mid$(T$, 5) : F = 1 + If Left$(T$, 3) = "[N]" Then Resultado$ = Resultado$ + "0123456789" : T$ = Mid$(T$, 4) : F = 1 + If Left$(T$, 4) = "[AN]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" : T$ = Mid$(T$, 5) : F = 1 + 'If Left$(T$, 5) = "[ANM]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" : T$ = Mid$(T$, 6) : F = 1 + If Left$(T$, 5) = "[JO1]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789ÁÉÍÓÚáéíóúÄËÏÖÜäëïöüÂÊÎÔÛâêîôûºªÑñÇç'.,+-_@/\* =#|!:;$%&" : T$ = Mid$(T$, 6) : F = 1 + If Left$(T$, 5) = "[JD1]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789ÁÉÍÓÚáéíóúÄËÏÖÜäëïöüÂÊÎÔÛâêîôûºªÑñÇç'.,+-_@/\*)=#|!:;$%&" : T$ = Mid$(T$, 6) : F = 1 + + ' If Left$(T$, 5) = "[JO1]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789ÁÉÍÓÚáéíóúÄËÏÖÜäëïöüÂÊÎÔÛâêîôûºªÑñÇç'.,+-_@/\* =#|!:;$%&" : T$ = Mid$(T$, 6) : F = 1 + ' If Left$(T$, 5) = "[JD1]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789ÁÉÍÓÚáéíóúÄËÏÖÜäëïöüÂÊÎÔÛâêîôûºªÑñÇç'.,+-_@/\*)=#|!:;$%&" : T$ = Mid$(T$, 6) : F = 1 + + Loop Until F = 0 + FEncS$ = Resultado$ + T$ + Exit Function + End If + + If Math.Abs(Xs0) < 100000000.0 Then Error 11 + SEncDes = Math.Sign(Xs0) ' +1 o -1 + If SEncDes > 0 Then ' inversion de parametros si Desencriptacion + Jco$ = Jco0$ : Jcd$ = Jcd0$ + Else + Jco$ = Jcd0$ : Jcd$ = Jco0$ + End If + + Jco$ = FEncS$(Jco$, "", "", 0) + Jcd$ = FEncS$(Jcd$, "", "", 0) + Lo0 = Len(Jco$) : Ld0 = Len(Jcd$) + Lo = Lo0 + -256 * (Lo0 = 0) : Ld = Ld0 + -256 * (Ld0 = 0) + + If SEncDes > 0 Then Lx = Ld Else Lx = Lo + + Xs = Math.Abs(Xs0) + 611957 * (Len(X$) Mod 1000) ' ???? + ' R = FRndL(-(ABS(Xs0) + 1000000 * (LEN(X$) MOD 1000))) + Spac = Math.Abs(Xs0) Mod Lx + For I = 1 To Len(X$) + Co$ = Mid$(X$, I, 1) + If Lo0 <> 0 Then Po = InStr(Jco$, Co$) Else Po = Asc(Co$) + 1 + If Po = 0 Then Resultado$ = "" : Error 11 + + Xs = 16807 * (Xs Mod 127773) - 2836 * (Xs \ 127773) + If Xs < 0 Then Xs = Xs + 2147483647 + R = Int((Xs / 2147483647.0#) * Lx) + ' R1 = INT(FRndL(0) * Lx) + ' IF R <> R1 THEN STOP + + Pd = ((Po - 1) + SEncDes * (R + Spac) + 2 * Lx) Mod Lx + 1 + + If SEncDes > 0 Then Px = Po Else Px = Pd + Spac = (Spac + Px * 17) Mod Lx + + If Ld0 <> 0 Then Cd$ = Mid$(Jcd$, Pd, 1) Else Cd$ = Chr(Pd - 1) + Resultado$ = Resultado$ + Cd$ + Next I + FEncS$ = Resultado$ + End Function + + Public Shared Function FRndL#(ByVal Xs0 As Double) ' <0:set=ABS 0:LaAnterior >0:usaXs0 + Static Xs As Double + If Xs0 Then Xs = Math.Abs(Xs0) : If Xs0 < 0 Then Exit Function + If Xs = 0 Then Xs = 1718281829 + Xs = 16807 * (Xs Mod 127773) - 2836 * (Xs \ 127773) + If Xs < 0 Then Xs = Xs + 2147483647 + FRndL# = Xs / 2147483647 + End Function + + Public Shared Function HashdeFichero(ByVal NombreFichero As String) As String + + Dim byHash() As Byte, shaTmp As New System.Security.Cryptography.SHA1CryptoServiceProvider + Dim fsTmp As IO.FileStream + fsTmp = IO.File.OpenRead(NombreFichero) + byHash = shaTmp.ComputeHash(fsTmp) + fsTmp.Close() + Return ByteArrayAString(byHash) + End Function + + Public Shared Function ByteArrayAString(ByVal arrInput() As Byte) As String + Dim i As Integer + Dim sOutput As New System.Text.StringBuilder(arrInput.Length) + For i = 0 To arrInput.Length - 1 + 'Convierte el array de bytes en cadena hexadecimal de 2 caracteres por byte (x2) + sOutput.Append(arrInput(i).ToString("x2")) + Next + Return sOutput.ToString() + End Function + Public Shared Function PrevInstance() As Boolean + If UBound(Diagnostics.Process.GetProcessesByName(System.Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then + Return True + Else + Return False + End If + End Function + + Public Shared Function PreviaInstanciaMismoEjecutable() As Boolean + Dim cp = Application.ExecutablePath + Dim prs = Diagnostics.Process.GetProcessesByName(System.Diagnostics.Process.GetCurrentProcess.ProcessName).Where(Function(x) x.MainModule.FileName = cp).Count + Return prs > 1 + End Function + + Public Shared Function arraysIguales(ByVal a1 As Byte(), ByVal a2 As Byte()) As Boolean + + '------------------------------------------------------------------------------------- + ' Devuelve True si los dos arrays de bytes "a1" y "a2" coinciden; False en otro caso. + '------------------------------------------------------------------------------------- + If (a1 Is Nothing) Or (a2 Is Nothing) Then Return (a1 Is Nothing) And (a2 Is Nothing) + If a1.Length <> a2.Length Then Return False + Dim i As Integer + For i = 0 To (a1.Length - 1) + If a1(i) <> a2(i) Then Return False + Next + Return True + End Function + Public Shared Function FicheroAArrayBytes(ByVal RutaFichero As String) As Byte() + FicheroAArrayBytes = Nothing + Try + Dim fstmp As IO.FileStream, by() As Byte + fstmp = IO.File.OpenRead(RutaFichero) + ReDim by(fstmp.Length - 1) + fstmp.Read(by, 0, fstmp.Length) + fstmp.Close() + FicheroAArrayBytes = by + Catch ex As Exception + If EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error") + End If + End Try + End Function + Public Shared Function FilasNoEliminadas(ByVal Tabla As DataTable) As Integer + Try + Dim i As Integer + Dim dr As DataRow + For Each dr In Tabla.Rows + If dr.RowState <> DataRowState.Deleted Then i += 1 + Next + Return i + Catch ex As Exception + If EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error FilasNoEliminadas") + End If + End Try + End Function + Public Shared Function CopiaRegistro(ByVal RegistroOrigen As DataRow, ByVal RegistroDestino As DataRow) As Boolean + Try + Dim i As Integer, sColumna As String, bResultado As Boolean + bResultado = True + For i = 0 To RegistroDestino.Table.Columns.Count - 1 + sColumna = RegistroDestino.Table.Columns(i).ColumnName + Try + RegistroDestino(sColumna) = RegistroOrigen(sColumna) + Catch ex As Exception + bResultado = False + End Try + Next + Return bResultado + Catch ex As Exception + If EsServicio Then Throw New Exception(ex.Message, ex) + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error CopiaRegistro") + End Try + End Function + + Public Shared Function ValorN(ByVal Valor As Object) As Double + Try + Return CDbl(Valor) + Catch ex As Exception + Return 0 + End Try + End Function + + Public Shared Function DateToString(ByVal dDate As Date) As String + DateToString = Year(dDate) & Right("0" & Month(dDate), 2) & Right("0" & dDate.Day, 2) + End Function + + Public Shared Function DateTimeToString(ByVal dDateTime As DateTime) As String + DateTimeToString = Year(dDateTime) & Right("0" & Month(dDateTime), 2) & Right("0" & dDateTime.Day, 2) & Right("0" & Hour(dDateTime), 2) & Right("0" & Minute(dDateTime), 2) & Right("0" & Second(dDateTime), 2) + End Function + Public Shared Function TimeToString(ByVal dTime As Date) As String + TimeToString = Right("0" & Hour(dTime), 2) & ":" & Right("0" & Minute(dTime), 2) & ":" & Right("0" & Second(dTime), 2) + End Function + + Public Shared Function StringToDate(ByVal sDate As String) As Date + Dim dDate As Date + If sDate Like "????-??-??" Or sDate Like "????/??/??" Then + dDate = DateSerial(Left(sDate, 4), Mid(sDate, 6, 2), Mid(sDate, 9, 2)) + Else + If Len(sDate) < 8 Then + dDate = DateSerial(Left(sDate, 4), Mid(sDate, 5, 2), Mid(sDate, 7, 2)) + Else + dDate = New Date(Left(sDate, 4), Mid(sDate, 5, 2), Mid(sDate, 7, 2), Mid(sDate, 9, 2), Mid(sDate, 11, 2), Mid(sDate, 13, 2)) + End If + End If + StringToDate = dDate + End Function + Public Shared Sub ActualizaRegistro(ByVal Conexion As SqlConnection, ByVal Clausula_FROM As String, ByVal Clausula_WHERE As String, ByVal Campos() As String, ByVal Valores() As Object, Optional ByVal bSinMensajesError As Boolean = False) + Try + Dim adAdaptador As SqlDataAdapter, dsDatos As New DataSet, dr As DataRow + Dim i As Integer + If Trim(Clausula_WHERE) <> "" Then + adAdaptador = New SqlDataAdapter("SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & ";", Conexion) + Else + adAdaptador = New SqlDataAdapter("SELECT * FROM " & Clausula_FROM & ";", Conexion) + End If + Try + 'adAdaptador.Fill(dsDatos, "TABLA") + TSFill(adAdaptador, dsDatos, "TABLA") + If dsDatos.Tables(0).Rows.Count = 0 Then + Throw New Exception("Registro no encontrado") + Else + dr = dsDatos.Tables("TABLA").Rows(0) + Dim coComando As New SqlCommandBuilder(adAdaptador) + For i = 0 To Campos.Length - 1 + dr(Campos(i)) = Valores(i) + Next + 'adAdaptador.Update(dsDatos, "TABLA") + TSUpdate(adAdaptador, dsDatos, "TABLA") + End If + Catch ex As Exception + If bSinMensajesError Or EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro") + End If + End Try + Catch ex As Exception + If bSinMensajesError Or EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro") + End If + End Try + End Sub + Public Shared Sub ActualizaRegistro(ByVal Conexion As MySqlConnection, ByVal Clausula_FROM As String, ByVal Clausula_WHERE As String, ByVal Campos() As String, ByVal Valores() As Object, Optional ByVal bSinMensajesError As Boolean = False) + Try + Dim adAdaptador As MySqlDataAdapter, dsDatos As New DataSet, dr As DataRow + Dim i As Integer + If Trim(Clausula_WHERE) <> "" Then + adAdaptador = New MySqlDataAdapter("SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & ";", Conexion) + Else + adAdaptador = New MySqlDataAdapter("SELECT * FROM " & Clausula_FROM & ";", Conexion) + End If + Try + 'adAdaptador.Fill(dsDatos, "TABLA") + TSFillMySQL(adAdaptador, dsDatos, "TABLA") + If dsDatos.Tables(0).Rows.Count = 0 Then + Throw New Exception("Registro no encontrado") + Else + dr = dsDatos.Tables("TABLA").Rows(0) + Dim coComando As New MySqlCommandBuilder(adAdaptador) + For i = 0 To Campos.Length - 1 + dr(Campos(i)) = Valores(i) + Next + 'adAdaptador.Update(dsDatos, "TABLA") + TSUpdateMySQL(adAdaptador, dsDatos, "TABLA") + End If + Catch ex As Exception + If bSinMensajesError Or EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro") + End If + End Try + Catch ex As Exception + If bSinMensajesError Or EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro") + End If + End Try + End Sub + + Public Shared Sub ActualizaRegistro(ByVal Conexion As OleDbConnection, ByVal Clausula_FROM As String, ByVal Clausula_WHERE As String, ByVal Campos() As String, ByVal Valores() As Object, Optional ByVal bSinMensajesError As Boolean = False) + Try + Dim adAdaptador As OleDbDataAdapter, dsDatos As New DataSet, dr As DataRow + Dim i As Integer + If Trim(Clausula_WHERE) <> "" Then + adAdaptador = New OleDbDataAdapter("SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & ";", Conexion) + Else + adAdaptador = New OleDbDataAdapter("SELECT * FROM " & Clausula_FROM & ";", Conexion) + End If + Try + 'adAdaptador.Fill(dsDatos, "TABLA") + TSFill(adAdaptador, dsDatos, "TABLA") + If dsDatos.Tables(0).Rows.Count = 0 Then + Throw New Exception("Registro no encontrado") + Else + dr = dsDatos.Tables("TABLA").Rows(0) + Dim coComando As New OleDbCommandBuilder(adAdaptador) + For i = 0 To Campos.Length - 1 + dr(Campos(i)) = Valores(i) + Next + 'adAdaptador.Update(dsDatos, "TABLA") + TSUpdate(adAdaptador, dsDatos, "TABLA") + End If + Catch ex As Exception + If bSinMensajesError Or EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro") + End If + End Try + Catch ex As Exception + If bSinMensajesError Or EsServicio Then + Throw New Exception(ex.Message, ex) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registro") + End If + End Try + End Sub + + Public Shared Sub CreaEstructuraDirectorio(ByVal Ruta As String) + Dim sDirectorios() As String = Ruta.Split("\") + Dim sDirectorio As String = "" + Dim i As Integer + For i = 0 To sDirectorios.Length - 1 + Try + sDirectorio &= sDirectorios(i) & "\" + If Not IO.Directory.Exists(sDirectorio) Then IO.Directory.CreateDirectory(sDirectorio) + Catch ex As Exception + End Try + Next + End Sub + Public Shared Function FechaHoraMySQL(ByVal FechaHora As Date) As String + 'Return FechaHora.ToString + Return FechaHora.Year.ToString & FechaHora.Month.ToString.PadLeft(2, "0") & FechaHora.Day.ToString.PadLeft(2, "0") & FechaHora.Hour.ToString.PadLeft(2, "0") & FechaHora.Minute.ToString.PadLeft(2, "0") & FechaHora.Second.ToString.PadLeft(2, "0") + End Function + Public Shared Function FechaSQL(ByVal FechaHora As Date) As String + 'Return FechaHora.ToShortDateString() + Return FechaHora.Day & "/" & FechaHora.Month & "/" & FechaHora.Year + End Function + Public Shared Function FechaAccess(ByVal FechaHora As Date) As String + 'Return FechaHora.ToShortDateString() + Return "#" & FechaHora.Month & "/" & FechaHora.Day & "/" & FechaHora.Year & "#" + End Function + + Public Shared Function FechaEnCastellano(ByVal Fecha As Date, ByVal Formato As Integer) As String + Dim sMeses(11) As String + sMeses(0) = "Enero" + sMeses(1) = "Febrero" + sMeses(2) = "Marzo" + sMeses(3) = "Abril" + sMeses(4) = "Mayo" + sMeses(5) = "Junio" + sMeses(6) = "Julio" + sMeses(7) = "Agosto" + sMeses(8) = "Septiembre" + sMeses(9) = "Octubre" + sMeses(10) = "Noviembre" + sMeses(11) = "Diciembre" + Dim sDia As String, sMes As String, sAño As String + sDia = Fecha.Day.ToString + sMes = sMeses(Fecha.Month - 1) + sAño = Fecha.Year + Select Case Formato + Case 1 + FechaEnCastellano = sDia & " de " & sMes & " de " & sAño + Case 2 + FechaEnCastellano = Fecha.Day.ToString.PadLeft(2, "0") & "/" & Fecha.Month.ToString.PadLeft(2, "0") & "/" & Fecha.Year.ToString & " " & Fecha.Hour.ToString.PadLeft(2, "0") & ":" & Fecha.Minute.ToString.PadLeft(2, "0") & ":" & Fecha.Second.ToString.PadLeft(2, "0") + Case Else + FechaEnCastellano = sDia & " de " & sMes & " de " & sAño + End Select + End Function + Public Shared Function FicheroTxtAString(ByVal Fichero As String) As String + Try + Dim clsReader As System.IO.TextReader = System.IO.File.OpenText(Fichero) + Dim sResultado As String = "" + Dim sLine As String = clsReader.ReadLine() + While Not sLine Is Nothing + sResultado &= sLine & vbCrLf + sLine = clsReader.ReadLine() + End While + clsReader.Close() + Return sResultado + Catch ex As Exception + Return "" + End Try + End Function + Public Shared Function LeeRegistroDR(ByVal Conexion As OleDbConnection, ByVal Clausula_FROM As String, ByVal Clausula_WHERE As String, Optional ByVal sCampoAIncrementar As String = "", Optional ByVal iIncremento As Integer = 0, Optional ByVal bGuardar As Boolean = False, Optional ByVal bSinMensajesError As Boolean = True) As Collection + Dim bCerrar As Boolean + Try + Dim dr As OleDbDataReader + Dim co As OleDb.OleDbCommand + Dim col As New Collection + If Conexion.State = ConnectionState.Closed Then + bCerrar = True + Conexion.Open() + End If + If Trim(Clausula_WHERE) <> "" Then + co = New OleDbCommand("SELECT * FROM " & Clausula_FROM & " WHERE " & Clausula_WHERE & ";", Conexion) + Else + co = New OleDbCommand("SELECT * FROM " & Clausula_FROM & ";", Conexion) + End If + dr = co.ExecuteReader + dr.Read() + Dim i As Integer + For i = 0 To dr.FieldCount - 1 + col.Add(dr(i), dr.GetName(i)) + Next + dr.Close() + LeeRegistroDR = col + Catch ex As Exception + Throw New Exception(ex.Message, ex) + Finally + If bCerrar Then + Conexion.Close() + End If + End Try + End Function + 'Public Shared Sub TxtATabla(ByVal Tabla As DataTable, ByVal Adaptador As OleDb.OleDbDataAdapter, ByVal RutaFichero As String, Optional ByVal CampoIndice As String = "", Optional ByVal Roman8 As Boolean = False) + ' Try + ' Dim sCadena As String + ' Dim iFichero As Integer = FreeFile() + ' Dim sCampos(), sCampo As String, sTipo As String = "" + ' Dim iLongitudCampo As Integer + ' Dim i As Integer + ' If Roman8 Then UtilidadesTSL4net.clCharConv.CharConverter("ROMAN8", "WINDOWS", RutaFichero) + ' FileOpen(iFichero, RutaFichero, OpenMode.Input, OpenAccess.Read, OpenShare.LockReadWrite) + ' sCadena = LineInput(iFichero) + ' sCampos = Ttag(sCadena, "CAMPOS").ToString.Split(",") + ' Dim iPosicion As Integer = 0 + ' Dim dr As DataRow, drIndice() As DataRow = Nothing + ' Dim sFecha As String + ' Dim iDia, iMes, iAño, iHora, iMinutos, iSegundos As Integer + ' Dim dfecha As DateTime + + ' Dim iInicio, iLongitud As Integer + ' Dim sSelect As String + ' Dim sLongitudCampo As String + + ' If CampoIndice <> "" Then + ' iPosicion = 0 + ' For i = 0 To sCampos.Length - 1 + ' sCampo = sCampos(i).Split(":")(0) + ' sTipo = sCampos(i).Split(":")(1).Split("(")(0) + + ' sLongitudCampo = sCampos(i).Split(":")(1).Split("(")(1).Split(")")(0) + ' If sLongitudCampo.Contains(";") Then sLongitudCampo = sLongitudCampo.Split(";")(1) + ' iLongitudCampo = Val(sLongitudCampo) + + ' Select Case sTipo + ' Case "SYSTEM.STRING" + ' If sCampo.ToUpper = CampoIndice.ToUpper Then + ' iInicio = iPosicion + ' iLongitud = iLongitudCampo + ' Exit For + ' End If + ' iPosicion += iLongitudCampo + ' Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + ' iPosicion += 25 + ' Case "SYSTEM.DATETIME" + ' iPosicion += 19 + ' Case "SYSTEM.BOOLEAN" + ' iPosicion += 1 + ' Case "SYSTEM.BYTE[]" + ' Case Else + ' Throw New Exception("Tipo " & sTipo & " no soportado") + ' End Select + ' Next + ' End If + ' Do + ' If EOF(iFichero) Then Exit Do + ' iPosicion = 0 + ' sCadena = LineInput(iFichero) + ' If CampoIndice <> "" Then + ' Select Case sTipo + ' Case "SYSTEM.STRING" + ' sSelect = CampoIndice & "='" & sCadena.Substring(iInicio, iLongitud).Trim & "'" + ' Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + ' sSelect = CampoIndice & "=" & sCadena.Substring(iInicio, iLongitud).Trim + ' Case Else + ' Throw New Exception("Tipo del índice " & sTipo & " no soportado") + ' End Select + ' drIndice = Tabla.Select(sSelect) + ' If drIndice.Length > 0 Then + ' dr = drIndice(0) + ' ' dr.Delete() + ' ' dr = Tabla.NewRow + ' Else + ' dr = Tabla.NewRow + ' End If + ' Else + ' dr = Tabla.NewRow + ' End If + + ' For i = 0 To sCampos.Length - 1 + ' If sCampos(i).Trim <> "" Then + ' sCampo = sCampos(i).Split(":")(0) + ' sTipo = sCampos(i).Split(":")(1).Split("(")(0) + ' sLongitudCampo = sCampos(i).Split(":")(1).Split("(")(1).Split(")")(0) + ' If sLongitudCampo.Contains(";") Then sLongitudCampo = sLongitudCampo.Split(";")(1) + ' iLongitudCampo = Val(sLongitudCampo) + ' Select Case sTipo + ' Case "SYSTEM.STRING" + ' If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = sCadena.Substring(iPosicion, iLongitudCampo).Trim + ' iPosicion += iLongitudCampo + ' Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + ' If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = Val(sCadena.Substring(iPosicion, 25).Trim) + ' iPosicion += 25 + ' Case "SYSTEM.DATETIME" + ' If Tabla.Columns.Contains(sCampo) Then + ' sFecha = sCadena.Substring(iPosicion, 19).Trim + ' If sFecha = "" Then + ' dr(sCampo) = DBNull.Value + ' Else + ' iDia = sFecha.Split("/")(0) + ' iMes = sFecha.Split("/")(1) + ' iAño = sFecha.Split("/")(2).Split(" ")(0) + ' iHora = sFecha.Split(" ")(1).Split(":")(0) + ' iMinutos = sFecha.Split(" ")(1).Split(":")(1) + ' iSegundos = sFecha.Split(" ")(1).Split(":")(2) + ' dfecha = New Date(iAño, iMes, iDia, iHora, iMinutos, iSegundos) + ' dr(sCampo) = dfecha + ' End If + ' End If + ' iPosicion += 19 + ' Case "SYSTEM.BOOLEAN" + ' If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = (sCadena.Substring(iPosicion, 1) = "V") + ' iPosicion += 1 + ' Case "SYSTEM.BYTE[]" + ' Case Else + ' Throw New Exception("Tipo " & sTipo & " no soportado") + ' End Select + ' End If + ' Next + ' If IsNothing(drIndice) Then + ' Tabla.Rows.Add(dr) + ' Else + ' If drIndice.Length = 0 Then Tabla.Rows.Add(dr) + ' End If + ' Loop Until EOF(iFichero) + ' 'Adaptador.Update(Tabla) + ' TSUpdate(Adaptador, Tabla) + ' 'Tabla.AcceptChanges() + + ' FileClose(iFichero) + ' Catch ex As Exception + ' Throw New Exception(ex.Message, ex) + ' 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, "TablaATxt") + ' End Try + 'End Sub + + Public Shared Sub TxtATablaConIndices(ByVal Tabla As DataTable, ByVal Adaptador As OleDb.OleDbDataAdapter, ByVal RutaFichero As String, ByVal CamposIndice() As String, ByVal BusquedaIndice As String, Optional ByVal Roman8 As Boolean = False) + Try + Dim sCadena As String + Dim iFichero As Integer = FreeFile() + Dim sCampos(), sCampo As String, sTipo As String = "" + Dim iLongitudCampo As Integer + Dim i, j As Integer + If Roman8 Then CharConverter("ROMAN8", "WINDOWS", RutaFichero) + FileOpen(iFichero, RutaFichero, OpenMode.Input, OpenAccess.Read, OpenShare.LockReadWrite) + sCadena = LineInput(iFichero) + sCampos = Ttag(sCadena, "CAMPOS").ToString.Split(",") + Dim iPosicion As Integer = 0 + Dim dr As DataRow = Nothing, drIndice() As DataRow = Nothing + Dim sFecha As String + Dim iDia, iMes, iAño, iHora, iMinutos, iSegundos As Integer + Dim dfecha As DateTime + + Dim iInicio() As Integer = Nothing, iLongitud() As Integer = Nothing + Dim sTipos() As String = Nothing + Dim sSelect As String = BusquedaIndice + Dim sLongitudCampo As String + + Dim h As Integer = 0 + If Not IsNothing(CamposIndice) Then + iPosicion = 0 + ReDim iInicio(CamposIndice.Length - 1) + ReDim iLongitud(CamposIndice.Length - 1) + ReDim sTipos(CamposIndice.Length - 1) + For i = 0 To sCampos.Length - 1 + sCampo = sCampos(i).Split(":")(0) + If sCampo.Trim <> "" Then + sTipo = sCampos(i).Split(":")(1).Split("(")(0) + + sLongitudCampo = sCampos(i).Split(":")(1).Split("(")(1).Split(")")(0) + If sLongitudCampo.Contains(";") Then sLongitudCampo = sLongitudCampo.Split(";")(1) + iLongitudCampo = Val(sLongitudCampo) + + + Select Case sTipo + Case "SYSTEM.STRING" + For j = 0 To CamposIndice.Length - 1 + If sCampo.ToUpper = CamposIndice(j).ToUpper Then + h += 1 + sTipos(h - 1) = sTipo + iInicio(h - 1) = iPosicion + iLongitud(h - 1) = iLongitudCampo + Exit For + End If + Next j + iPosicion += iLongitudCampo + Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + For j = 0 To CamposIndice.Length - 1 + If sCampo.ToUpper = CamposIndice(j).ToUpper Then + h += 1 + sTipos(h - 1) = sTipo + iInicio(h - 1) = iPosicion + iLongitud(h - 1) = 25 + Exit For + End If + Next j + iPosicion += 25 + Case "SYSTEM.DATETIME" + iPosicion += 19 + Case "SYSTEM.BOOLEAN" + iPosicion += 1 + Case "SYSTEM.BYTE[]" + Case Else + Throw New Exception("Tipo " & sTipo & " no soportado") + End Select + If h = CamposIndice.Length Then Exit For + End If + Next + End If + Dim sValor As String + Do + If EOF(iFichero) Then Exit Do + iPosicion = 0 + sCadena = LineInput(iFichero) + If Not IsNothing(CamposIndice) Then + For j = 0 To CamposIndice.Length - 1 + sValor = "" + Select Case sTipos(j) + Case "SYSTEM.STRING" + 'If sSelect.Trim = "" Then + ' sSelect = "(" & CamposIndice(j) & "='" & sCadena.Substring(iInicio(j), iLongitud(j)).Trim & "'" + 'Else + ' sSelect &= " AND " & CamposIndice(j) & "='" & sCadena.Substring(iInicio(j), iLongitud(j)).Trim & "'" + 'End If + sValor = "'" & sCadena.Substring(iInicio(j), iLongitud(j)).Trim & "'" + + + + Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + 'If sSelect.Trim = "" Then + ' sSelect = CamposIndice(j) & "=" & sCadena.Substring(iInicio(j), iLongitud(j)).Trim + 'Else + ' sSelect &= " AND " & CamposIndice(j) & "=" & sCadena.Substring(iInicio(j), iLongitud(j)).Trim + 'End If + sValor = sCadena.Substring(iInicio(j), iLongitud(j)).Trim + Case Else + Throw New Exception("Tipo del índice " & sTipos(j) & " no soportado") + End Select + sSelect = sSelect.Replace("$" & CamposIndice(j), sValor) + Next j + + drIndice = Tabla.Select(sSelect) + If drIndice.Length > 0 Then + dr = drIndice(0) + ' dr.Delete() + ' dr = Tabla.NewRow + Else + dr = Tabla.NewRow + End If + Else + dr = Tabla.NewRow + End If + + For i = 0 To sCampos.Length - 1 + If sCampos(i).Trim <> "" Then + sCampo = sCampos(i).Split(":")(0) + sTipo = sCampos(i).Split(":")(1).Split("(")(0) + sLongitudCampo = sCampos(i).Split(":")(1).Split("(")(1).Split(")")(0) + If sLongitudCampo.Contains(";") Then sLongitudCampo = sLongitudCampo.Split(";")(1) + iLongitudCampo = Val(sLongitudCampo) + Select Case sTipo + Case "SYSTEM.STRING" + If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = sCadena.Substring(iPosicion, iLongitudCampo).Trim + iPosicion += iLongitudCampo + Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = Val(sCadena.Substring(iPosicion, 25).Trim) + iPosicion += 25 + Case "SYSTEM.DATETIME" + If Tabla.Columns.Contains(sCampo) Then + sFecha = sCadena.Substring(iPosicion, 19).Trim + If sFecha = "" Then + dr(sCampo) = DBNull.Value + Else + iDia = sFecha.Split("/")(0) + iMes = sFecha.Split("/")(1) + iAño = sFecha.Split("/")(2).Split(" ")(0) + iHora = sFecha.Split(" ")(1).Split(":")(0) + iMinutos = sFecha.Split(" ")(1).Split(":")(1) + iSegundos = sFecha.Split(" ")(1).Split(":")(2) + dfecha = New Date(iAño, iMes, iDia, iHora, iMinutos, iSegundos) + dr(sCampo) = dfecha + End If + End If + iPosicion += 19 + Case "SYSTEM.BOOLEAN" + If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = (sCadena.Substring(iPosicion, 1) = "V") + iPosicion += 1 + Case "SYSTEM.BYTE[]" + Case Else + Throw New Exception("Tipo " & sTipo & " no soportado") + End Select + End If + Next + If IsNothing(drIndice) Then + Tabla.Rows.Add(dr) + Else + If drIndice.Length = 0 Then Tabla.Rows.Add(dr) + End If + Loop Until EOF(iFichero) + 'Adaptador.Update(Tabla) + TSUpdate(Adaptador, Tabla) + 'Tabla.AcceptChanges() + + + FileClose(iFichero) + Catch ex As Exception + Throw New Exception(ex.Message, ex) + 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, "TablaATxt") + End Try + End Sub + + + + + + + Public Shared Sub TxtATabla(ByVal Tabla As DataTable, ByVal Adaptador As OleDb.OleDbDataAdapter, ByVal RutaFichero As String, Optional ByVal CamposIndice() As String = Nothing, Optional ByVal Roman8 As Boolean = False) + ' ---------------------------------------------------------------------------------------------------- + ' Descripción Sub: Pasa fichero txt a tabla + ' Fecha. Creacion: ??? + ' Creada por: manmog + ' Ultima Modificacion: 02/10/2009 + ' + ' Modificaciones: + ' =============== + ' 02/10/2009 DANMUN Corrección en la incorporación de fechas + + Try + Dim sCadena As String + Dim iFichero As Integer = FreeFile() + Dim sCampos(), sCampo As String, sTipo As String = "" + Dim iLongitudCampo As Integer + Dim i, j As Integer + If Roman8 Then CharConverter("ROMAN8", "WINDOWS", RutaFichero) + FileOpen(iFichero, RutaFichero, OpenMode.Input, OpenAccess.Read, OpenShare.LockReadWrite) + sCadena = LineInput(iFichero) + sCampos = Ttag(sCadena, "CAMPOS").ToString.Split(",") + Dim iPosicion As Integer = 0 + Dim dr As DataRow = Nothing, drIndice() As DataRow = Nothing + Dim sFecha As String + Dim iDia, iMes, iAño, iHora, iMinutos, iSegundos As Integer + Dim dfecha As DateTime + + Dim iInicio() As Integer = Nothing, iLongitud() As Integer = Nothing + Dim sTipos() As String = Nothing + Dim sSelect As String = "" + Dim sLongitudCampo As String + + Dim h As Integer = 0 + If Not IsNothing(CamposIndice) Then + iPosicion = 0 + ReDim iInicio(CamposIndice.Length - 1) + ReDim iLongitud(CamposIndice.Length - 1) + ReDim sTipos(CamposIndice.Length - 1) + For i = 0 To sCampos.Length - 1 + sCampo = sCampos(i).Split(":")(0) + If sCampo.Trim <> "" Then + sTipo = sCampos(i).Split(":")(1).Split("(")(0) + + sLongitudCampo = sCampos(i).Split(":")(1).Split("(")(1).Split(")")(0) + If sLongitudCampo.Contains(";") Then sLongitudCampo = sLongitudCampo.Split(";")(1) + iLongitudCampo = Val(sLongitudCampo) + + + Select Case sTipo + Case "SYSTEM.STRING" + For j = 0 To CamposIndice.Length - 1 + If sCampo.ToUpper = CamposIndice(j).ToUpper Then + h += 1 + sTipos(h - 1) = sTipo + iInicio(h - 1) = iPosicion + iLongitud(h - 1) = iLongitudCampo + Exit For + End If + Next j + iPosicion += iLongitudCampo + Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + For j = 0 To CamposIndice.Length - 1 + If sCampo.ToUpper = CamposIndice(j).ToUpper Then + h += 1 + sTipos(h - 1) = sTipo + iInicio(h - 1) = iPosicion + iLongitud(h - 1) = 25 + Exit For + End If + Next j + iPosicion += 25 + Case "SYSTEM.DATETIME" + iPosicion += 19 + Case "SYSTEM.BOOLEAN" + iPosicion += 1 + Case "SYSTEM.BYTE[]" + Case Else + Throw New Exception("Tipo " & sTipo & " no soportado") + End Select + If h = CamposIndice.Length Then Exit For + End If + Next + End If + Do + If EOF(iFichero) Then Exit Do + iPosicion = 0 + sCadena = LineInput(iFichero) + If Not IsNothing(CamposIndice) Then + For j = 0 To CamposIndice.Length - 1 + Select Case sTipos(j) + Case "SYSTEM.STRING" + If sSelect.Trim = "" Then + sSelect = CamposIndice(j) & "='" & sCadena.Substring(iInicio(j), iLongitud(j)).Trim & "'" + Else + sSelect &= " AND " & CamposIndice(j) & "='" & sCadena.Substring(iInicio(j), iLongitud(j)).Trim & "'" + End If + Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + If sSelect.Trim = "" Then + sSelect = CamposIndice(j) & "=" & sCadena.Substring(iInicio(j), iLongitud(j)).Trim + Else + sSelect &= " AND " & CamposIndice(j) & "=" & sCadena.Substring(iInicio(j), iLongitud(j)).Trim + End If + Case Else + Throw New Exception("Tipo del índice " & sTipos(j) & " no soportado") + End Select + drIndice = Tabla.Select(sSelect) + If drIndice.Length > 0 Then + dr = drIndice(0) + ' dr.Delete() + ' dr = Tabla.NewRow + Else + dr = Tabla.NewRow + End If + Next j + Else + dr = Tabla.NewRow + End If + + For i = 0 To sCampos.Length - 1 + If sCampos(i).Trim <> "" Then + sCampo = sCampos(i).Split(":")(0) + sTipo = sCampos(i).Split(":")(1).Split("(")(0) + sLongitudCampo = sCampos(i).Split(":")(1).Split("(")(1).Split(")")(0) + If sLongitudCampo.Contains(";") Then sLongitudCampo = sLongitudCampo.Split(";")(1) + iLongitudCampo = Val(sLongitudCampo) + Select Case sTipo + Case "SYSTEM.STRING" + If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = sCadena.Substring(iPosicion, iLongitudCampo).Trim + iPosicion += iLongitudCampo + Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = Val(sCadena.Substring(iPosicion, 25).Trim) + iPosicion += 25 + Case "SYSTEM.DATETIME" + If Tabla.Columns.Contains(sCampo) Then + sFecha = sCadena.Substring(iPosicion, 19).Trim.Replace("-", "/") + If sFecha = "" Then + dr(sCampo) = DBNull.Value + Else + 'iDia = sFecha.Split("/")(0) + 'iMes = sFecha.Split("/")(1) + 'iAño = sFecha.Split("/")(2).Split(" ")(0) + 'iHora = sFecha.Split(" ")(1).Split(":")(0) + 'iMinutos = sFecha.Split(" ")(1).Split(":")(1) + 'iSegundos = sFecha.Split(" ")(1).Split(":")(2) + + iDia = sFecha.Substring(0, 2) + iMes = sFecha.Substring(3, 2) + iAño = sFecha.Substring(6, 4) + iHora = sFecha.Substring(11, 2) + iMinutos = sFecha.Substring(14, 2) + iSegundos = sFecha.Substring(17, 2) + + + dfecha = New Date(iAño, iMes, iDia, iHora, iMinutos, iSegundos) + dr(sCampo) = dfecha + End If + End If + iPosicion += 19 + Case "SYSTEM.BOOLEAN" + If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = (sCadena.Substring(iPosicion, 1) = "V") + iPosicion += 1 + Case "SYSTEM.BYTE[]" + Case Else + Throw New Exception("Tipo " & sTipo & " no soportado") + End Select + End If + Next + If IsNothing(drIndice) Then + Tabla.Rows.Add(dr) + Else + If drIndice.Length = 0 Then Tabla.Rows.Add(dr) + End If + Loop Until EOF(iFichero) + 'Adaptador.Update(Tabla) + TSUpdate(Adaptador, Tabla) + 'Tabla.AcceptChanges() + + + FileClose(iFichero) + Catch ex As Exception + Throw New Exception(ex.Message, ex) + 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, "TablaATxt") + End Try + End Sub + + Public Shared Function TxtATablaNueva(ByVal RutaFichero As String, Optional ByVal Roman8 As Boolean = False) As DataTable + ' ---------------------------------------------------------------------------------------------------- + ' Descripción Sub: Pasa fichero txt a tabla nueva + ' Fecha. Creacion: ??? + ' Creada por: manmog + ' Ultima Modificacion: 02/10/2009 + ' + ' Modificaciones: + ' =============== + ' 02/10/2009 DANMUN Corrección en la incorporación de fechas + + + Try + Dim sCadena As String + Dim iFichero As Integer = FreeFile() + Dim sCampos(), sCampo As String, sTipo As String = "" + Dim iLongitudCampo As Integer + Dim i As Integer + If Roman8 Then CharConverter("ROMAN8", "WINDOWS", RutaFichero) + FileOpen(iFichero, RutaFichero, OpenMode.Input, OpenAccess.Read, OpenShare.LockReadWrite) + sCadena = LineInput(iFichero) + sCampos = Ttag(sCadena, "CAMPOS").ToString.Split(",") + Dim iPosicion As Integer = 0 + Dim dr As DataRow = Nothing, drIndice() As DataRow = Nothing + Dim sFecha As String + Dim iDia, iMes, iAño, iHora, iMinutos, iSegundos As Integer + Dim dfecha As DateTime + + Dim iInicio() As Integer = Nothing, iLongitud() As Integer = Nothing + Dim sTipos() As String = Nothing + Dim sSelect As String = "" + Dim sLongitudCampo As String + Dim Tabla As New DataTable + Dim Columna As DataColumn = Nothing + + + For i = 0 To sCampos.Length - 1 + sCampo = sCampos(i).Split(":")(0) + If sCampo.Trim <> "" Then + sTipo = sCampos(i).Split(":")(1).Split("(")(0) + sLongitudCampo = sCampos(i).Split(":")(1).Split("(")(1).Split(")")(0) + If sLongitudCampo.Contains(";") Then sLongitudCampo = sLongitudCampo.Split(";")(1) + iLongitudCampo = Val(sLongitudCampo) + Columna = New DataColumn(sCampo) + Select Case sTipo + Case "SYSTEM.STRING" + Columna.DataType = GetType(System.String) + Columna.MaxLength = iLongitudCampo + iPosicion += iLongitudCampo + Case "SYSTEM.DOUBLE" + Columna.DataType = GetType(System.Double) + iPosicion += 25 + Case "SYSTEM.DECIMAL" + Columna.DataType = GetType(System.Decimal) + iPosicion += 25 + Case "SYSTEM.INT32" + Columna.DataType = GetType(System.Int32) + iPosicion += 25 + Case "SYSTEM.INT16" + Columna.DataType = GetType(System.Int16) + iPosicion += 25 + Case "SYSTEM.SINGLE" + Columna.DataType = GetType(System.Single) + iPosicion += 25 + Case "SYSTEM.DATETIME" + Columna.DataType = GetType(System.DateTime) + iPosicion += 19 + Case "SYSTEM.BOOLEAN" + Columna.DataType = GetType(System.Boolean) + iPosicion += 1 + Case "SYSTEM.BYTE[]" + Case Else + Throw New Exception("Tipo " & sTipo & " no soportado") + End Select + Tabla.Columns.Add(Columna) + End If + Next + Do + If EOF(iFichero) Then Exit Do + iPosicion = 0 + sCadena = LineInput(iFichero) + dr = Tabla.NewRow + For i = 0 To sCampos.Length - 1 + If sCampos(i).Trim <> "" Then + sCampo = sCampos(i).Split(":")(0) + sTipo = sCampos(i).Split(":")(1).Split("(")(0) + sLongitudCampo = sCampos(i).Split(":")(1).Split("(")(1).Split(")")(0) + If sLongitudCampo.Contains(";") Then sLongitudCampo = sLongitudCampo.Split(";")(1) + iLongitudCampo = Val(sLongitudCampo) + Select Case sTipo + Case "SYSTEM.STRING" + If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = sCadena.Substring(iPosicion, iLongitudCampo).Trim + iPosicion += iLongitudCampo + Case "SYSTEM.DOUBLE", "SYSTEM.DECIMAL", "SYSTEM.INT32", "SYSTEM.INT16", "SYSTEM.SINGLE" + If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = Val(sCadena.Substring(iPosicion, 25).Trim) + iPosicion += 25 + Case "SYSTEM.DATETIME" + If Tabla.Columns.Contains(sCampo) Then + sFecha = sCadena.Substring(iPosicion, 19).Trim + If sFecha = "" Then + dr(sCampo) = DBNull.Value + Else + iDia = sFecha.Substring(0, 2) + iMes = sFecha.Substring(3, 2) + iAño = sFecha.Substring(6, 4) + iHora = sFecha.Substring(11, 2) + iMinutos = sFecha.Substring(14, 2) + iSegundos = sFecha.Substring(17, 2) + dfecha = New Date(iAño, iMes, iDia, iHora, iMinutos, iSegundos) + dr(sCampo) = dfecha + End If + End If + iPosicion += 19 + Case "SYSTEM.BOOLEAN" + If Tabla.Columns.Contains(sCampo) Then dr(sCampo) = (sCadena.Substring(iPosicion, 1) = "V") + iPosicion += 1 + Case "SYSTEM.BYTE[]" + Case Else + Throw New Exception("Tipo " & sTipo & " no soportado") + End Select + End If + Next + Tabla.Rows.Add(dr) + Loop Until EOF(iFichero) + FileClose(iFichero) + Return Tabla + Catch ex As Exception + Throw New Exception(ex.Message, ex) + 'MsgBox(ex.Message, MsgBoxStyle.Exclamation, "TablaATxt") + End Try + End Function + + Public Shared Function ListaFicherosPorFecha(ByVal Directorio As String, ByVal searchPattern As String) As ArrayList + Dim sFicheros(), Fecha, Fichero As String + Dim alFichFecha As New ArrayList + Dim alFicheros As New ArrayList + Dim i As Integer + Try + alFichFecha.Clear() + sFicheros = Directory.GetFiles(Directorio, searchPattern) + For Each Fichero In sFicheros + Fecha = File.GetLastWriteTime(Fichero).ToFileTime + alFichFecha.Add(Fecha.ToString & "|" & Fichero) + Next + alFichFecha.Sort() + alFicheros.Clear() + For i = 0 To alFichFecha.Count - 1 + Fichero = alFichFecha(i).ToString.Split("|")(1) + alFicheros.Add(Fichero) + Next + Return alFicheros + Catch ex As Exception + Throw New Exception(ex.Message, ex) + End Try + End Function + Public Shared Function MesEnCastellano(ByVal Fecha As Date) As String + Dim sMeses(11) As String + sMeses(0) = "Enero" + sMeses(1) = "Febrero" + sMeses(2) = "Marzo" + sMeses(3) = "Abril" + sMeses(4) = "Mayo" + sMeses(5) = "Junio" + sMeses(6) = "Julio" + sMeses(7) = "Agosto" + sMeses(8) = "Septiembre" + sMeses(9) = "Octubre" + sMeses(10) = "Noviembre" + sMeses(11) = "Diciembre" + MesEnCastellano = sMeses(Now.Month - 1) + End Function + Public Shared Function CodTecnosis(ByVal CadenaACod As String) As String + Dim i As Integer, lSumaCaracter As Long + For i = 1 To Len(CadenaACod) + lSumaCaracter = lSumaCaracter + Asc(Mid$(CadenaACod, i, 1)) + Next + CodTecnosis = ((Math.Sqrt((lSumaCaracter) / 13) * 100)) + CodTecnosis = Int((CodTecnosis - (Int(CodTecnosis))) * 1000000.0) + End Function + Public Shared Sub TSFillSchema(ByVal Adaptador As System.Data.Common.DbDataAdapter, ByVal Datos As DataSet, ByVal TipoEsquema As SchemaType, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 20000) + If Adaptador.GetType Is GetType(OleDbDataAdapter) Then + Dim ad As OleDbDataAdapter = Adaptador + TSFillSchema(ad, Datos, TipoEsquema, NombreTabla, MiliSegundosReintentos) + + ElseIf Adaptador.GetType Is GetType(MySqlDataAdapter) Then + Dim ad As MySqlDataAdapter = Adaptador + TSFillSchemaMySQL(ad, Datos, TipoEsquema, NombreTabla, 2500) + Else + Throw New Exception("Tipo no soportado.") + End If + End Sub + + Public Shared Sub TSFillSchema(ByVal Adaptador As OleDbDataAdapter, ByVal Datos As DataSet, ByVal TipoEsquema As SchemaType, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 20000) + Dim sw As New Stopwatch + Try + Do + Try + sw.Start() + Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + Adaptador.FillSchema(Datos, TipoEsquema, NombreTabla) + Exit Do + Catch ex As OleDb.OleDbException + If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + Else + 'Throw ex + Throw New Exception("OledDbException|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + End If + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + Public Shared Sub TSFillSchema(ByVal Adaptador As SqlDataAdapter, ByVal Datos As DataSet, ByVal TipoEsquema As SchemaType, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 2500) + Dim sw As New Stopwatch + Try + Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + Do + Try + sw.Start() + Adaptador.FillSchema(Datos, TipoEsquema, NombreTabla) + Exit Do + Catch ex As Exception + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + + Public Shared Sub TSFillSchemaMySQL(ByVal Adaptador As MySqlDataAdapter, ByVal Datos As DataSet, ByVal TipoEsquema As SchemaType, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 2500) + Dim sw As New Stopwatch + Try + If Not Adaptador.SelectCommand Is Nothing Then Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + Do + Try + sw.Start() + Adaptador.FillSchema(Datos, TipoEsquema, NombreTabla) + Exit Do + Catch ex As Exception + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + + 'Public Shared Sub TSFill(ByVal Adaptador As OleDbDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 20000) + ' Dim sw As New Stopwatch + ' Try + ' sw.Start() + ' Do + ' Try + ' Adaptador.Fill(Datos, NombreTabla) + ' Exit Do + ' Catch ex As OleDb.OleDbException + ' If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + ' If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + ' Else + ' 'Throw ex + ' Throw New Exception("OledDbException|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + ' End If + ' System.Threading.Thread.Sleep(100) + ' Application.DoEvents() + ' End Try + ' Loop + ' Finally + ' Try + ' sw.Stop() + ' Catch ex As Exception + ' End Try + ' End Try + 'End Sub + Public Shared Sub TSFill(ByVal Adaptador As System.Data.Common.DbDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 20000) + If Adaptador.GetType Is GetType(OleDbDataAdapter) Then + Dim ad As OleDbDataAdapter = Adaptador + TSFill(ad, Datos, NombreTabla, MiliSegundosReintentos) + ElseIf Adaptador.GetType Is GetType(MySqlDataAdapter) Then + Dim ad As MySqlDataAdapter = Adaptador + TSFillMySQL(ad, Datos, NombreTabla, 2500) + Else + Throw New Exception("Tipo no soportado") + End If + + End Sub + Public Shared Sub TSFill(ByVal Adaptador As OleDbDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 20000) + Dim sw As New Stopwatch + Try + sw.Start() + ' Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + Do + Try + Adaptador.Fill(Datos, NombreTabla) + Exit Do + Catch ex As OleDb.OleDbException + If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + Else + 'Throw ex + Throw New Exception("OledDbException|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + End If + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Catch ex As Exception + Dim sCommandText As String = "" + Try + sCommandText = Adaptador.SelectCommand.CommandText + Catch ex2 As Exception + End Try + Throw New Exception(ex.Message & vbCrLf & "Adaptador.Selectcommand.Commandtext= " & sCommandText & " Adaptador Nothing=" & (Adaptador Is Nothing).ToString & " Datos Nothing=" & (Datos Is Nothing).ToString & " NombreTabla = " & NombreTabla) + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + Public Shared Sub TSFill(ByVal Adaptador As SqlDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 2500) + Dim sw As New Stopwatch + Try + Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + sw.Start() + Do + Try + Adaptador.Fill(Datos, NombreTabla) + Exit Do + Catch ex As Exception + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Catch ex As Exception + Dim sCommandText As String = "" + Try + sCommandText = Adaptador.SelectCommand.CommandText + Catch ex2 As Exception + End Try + Throw New Exception(ex.Message & vbCrLf & "Adaptador.Selectcommand.Commandtext= " & sCommandText & " Adaptador Nothing=" & (Adaptador Is Nothing).ToString & " Datos Nothing=" & (Datos Is Nothing).ToString & " NombreTabla = " & NombreTabla) + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + Public Shared Sub TSFillMySQL(ByVal Adaptador As MySqlDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 2500) + Dim sw As New Stopwatch + 'Dim bErrorConstraint As Boolean + Try + Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + sw.Start() + Do + Try + Adaptador.Fill(Datos, NombreTabla) + Exit Do + Catch ex As System.Data.ConstraintException + ' COMENTADO ESTO PORQUE AUNQUE DA ERROR LLENA LA TABLA + 'If Not bErrorConstraint Then + ' bErrorConstraint = True + ' Adaptador.FillSchema(Datos, SchemaType.Mapped, NombreTabla) + 'Else + Throw ex + 'End If + Catch ex As Exception + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Catch ex As Exception + Dim sCommandText As String = "" + Try + sCommandText = Adaptador.SelectCommand.CommandText + Catch ex2 As Exception + End Try + Throw New Exception(ex.Message & vbCrLf & "Adaptador.Selectcommand.Commandtext= " & sCommandText & " Adaptador Nothing=" & (Adaptador Is Nothing).ToString & " Datos Nothing=" & (Datos Is Nothing).ToString & " NombreTabla = " & NombreTabla) + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + + + + Public Overloads Shared Sub TSUpdateConTransaccion(ByVal Conexion As OleDbConnection, ByVal Adaptador As OleDbDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 20000) + Dim sw As New Stopwatch, bCerrar, bTransaccionIniciada As Boolean + Dim ts As OleDb.OleDbTransaction = Nothing + Try + sw.Start() + Do + Try + If Not Adaptador.SelectCommand Is Nothing Then Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.UpdateCommand Is Nothing Then Adaptador.UpdateCommand.CommandText = Adaptador.UpdateCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.InsertCommand Is Nothing Then Adaptador.InsertCommand.CommandText = Adaptador.InsertCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.DeleteCommand Is Nothing Then Adaptador.DeleteCommand.CommandText = Adaptador.DeleteCommand.CommandText.Replace(Chr(34), "'") + + If Conexion.State = ConnectionState.Closed Then + Conexion.Open() + bCerrar = True + End If + + ts = Conexion.BeginTransaction + + Adaptador.SelectCommand.Transaction = ts + If Not IsNothing(Adaptador.UpdateCommand) Then Adaptador.UpdateCommand.Transaction = ts + If Not IsNothing(Adaptador.InsertCommand) Then Adaptador.InsertCommand.Transaction = ts + If Not IsNothing(Adaptador.DeleteCommand) Then Adaptador.DeleteCommand.Transaction = ts + + + bTransaccionIniciada = True + Adaptador.Update(Datos, NombreTabla) + ts.Commit() + Exit Do + Catch ex As OleDb.OleDbException + If bTransaccionIniciada Then + ts.Rollback() + End If + If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + Else + Throw New Exception("OledDbException|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + End If + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + If bCerrar Then + Try + Conexion.Close() + Catch ex As Exception + End Try + End If + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + Public Overloads Shared Sub TSUpdateConTransaccion(ByVal Conexion As SqlConnection, ByVal Adaptador As SqlDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 20000) + Dim sw As New Stopwatch, bCerrar, bTransaccionIniciada As Boolean + Dim ts As SqlTransaction = Nothing + Try + If Not IsNothing(Adaptador.SelectCommand) Then Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + If Not IsNothing(Adaptador.UpdateCommand) Then Adaptador.UpdateCommand.CommandText = Adaptador.UpdateCommand.CommandText.Replace(Chr(34), "'") + If Not IsNothing(Adaptador.InsertCommand) Then Adaptador.InsertCommand.CommandText = Adaptador.InsertCommand.CommandText.Replace(Chr(34), "'") + If Not IsNothing(Adaptador.DeleteCommand) Then Adaptador.DeleteCommand.CommandText = Adaptador.DeleteCommand.CommandText.Replace(Chr(34), "'") + sw.Start() + Do + Try + If Conexion.State = ConnectionState.Closed Then + Conexion.Open() + bCerrar = True + End If + + ts = Conexion.BeginTransaction + + Adaptador.SelectCommand.Transaction = ts + If Not IsNothing(Adaptador.UpdateCommand) Then Adaptador.UpdateCommand.Transaction = ts + If Not IsNothing(Adaptador.InsertCommand) Then Adaptador.InsertCommand.Transaction = ts + If Not IsNothing(Adaptador.DeleteCommand) Then Adaptador.DeleteCommand.Transaction = ts + + + bTransaccionIniciada = True + Adaptador.Update(Datos, NombreTabla) + ts.Commit() + Exit Do + Catch ex As Exception + If bTransaccionIniciada Then + ts.Rollback() + End If + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + If bCerrar Then + Try + Conexion.Close() + Catch ex As Exception + End Try + End If + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + + Public Overloads Shared Sub TSUpdateConTransaccionMySQL(ByVal Conexion As MySqlConnection, ByVal Adaptador As MySqlDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 2500) + Dim sw As New Stopwatch, bCerrar, bTransaccionIniciada As Boolean + Dim ts As MySqlTransaction = Nothing + Try + If Not IsNothing(Adaptador.SelectCommand) Then Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + If Not IsNothing(Adaptador.UpdateCommand) Then Adaptador.UpdateCommand.CommandText = Adaptador.UpdateCommand.CommandText.Replace(Chr(34), "'") + If Not IsNothing(Adaptador.InsertCommand) Then Adaptador.InsertCommand.CommandText = Adaptador.InsertCommand.CommandText.Replace(Chr(34), "'") + If Not IsNothing(Adaptador.DeleteCommand) Then Adaptador.DeleteCommand.CommandText = Adaptador.DeleteCommand.CommandText.Replace(Chr(34), "'") + sw.Start() + Do + Try + If Conexion.State = ConnectionState.Closed Then + Conexion.Open() + bCerrar = True + End If + + ts = Conexion.BeginTransaction + + Adaptador.SelectCommand.Transaction = ts + If Not IsNothing(Adaptador.UpdateCommand) Then Adaptador.UpdateCommand.Transaction = ts + If Not IsNothing(Adaptador.InsertCommand) Then Adaptador.InsertCommand.Transaction = ts + If Not IsNothing(Adaptador.DeleteCommand) Then Adaptador.DeleteCommand.Transaction = ts + + + bTransaccionIniciada = True + Adaptador.Update(Datos, NombreTabla) + ts.Commit() + Exit Do + Catch ex As Exception + If bTransaccionIniciada Then + ts.Rollback() + End If + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + If bCerrar Then + Try + Conexion.Close() + Catch ex As Exception + End Try + End If + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + + Overloads Shared Sub TSUpdate(ByVal Adaptador As System.Data.Common.DataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 20000) + If Adaptador.GetType Is GetType(OleDbDataAdapter) Then + Dim ad As OleDbDataAdapter = Adaptador + TSUpdate(ad, Datos, NombreTabla, MiliSegundosReintentos) + ElseIf Adaptador.GetType Is GetType(MySqlDataAdapter) Then + Dim ad As MySqlDataAdapter = Adaptador + TSUpdateMySQL(ad, Datos, NombreTabla, 2500) + Else + Throw New Exception("Tipo no soportado") + End If + End Sub + + + Overloads Shared Sub TSUpdate(ByVal Adaptador As OleDbDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 20000) + Dim sw As New Stopwatch + Try + sw.Start() + Do + Try + If Not Adaptador.SelectCommand Is Nothing Then Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.UpdateCommand Is Nothing Then Adaptador.UpdateCommand.CommandText = Adaptador.UpdateCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.InsertCommand Is Nothing Then Adaptador.InsertCommand.CommandText = Adaptador.InsertCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.DeleteCommand Is Nothing Then Adaptador.DeleteCommand.CommandText = Adaptador.DeleteCommand.CommandText.Replace(Chr(34), "'") + + Adaptador.Update(Datos, NombreTabla) + Exit Do + Catch ex As OleDb.OleDbException + If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + Else + Throw New Exception("OledDbException|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + End If + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + + Overloads Shared Sub TSUpdate(ByVal Adaptador As SqlDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 20000) + Dim sw As New Stopwatch + Try + If Not Adaptador.SelectCommand Is Nothing Then Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.UpdateCommand Is Nothing Then Adaptador.UpdateCommand.CommandText = Adaptador.UpdateCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.InsertCommand Is Nothing Then Adaptador.InsertCommand.CommandText = Adaptador.InsertCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.DeleteCommand Is Nothing Then Adaptador.DeleteCommand.CommandText = Adaptador.DeleteCommand.CommandText.Replace(Chr(34), "'") + sw.Start() + Do + Try + Adaptador.Update(Datos, NombreTabla) + Exit Do + Catch ex As Exception + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + Overloads Shared Sub TSUpdateMySQL(ByVal Adaptador As MySqlDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 2500) + Dim sw As New Stopwatch + Try + If Not Adaptador.SelectCommand Is Nothing Then Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.UpdateCommand Is Nothing Then Adaptador.UpdateCommand.CommandText = Adaptador.UpdateCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.InsertCommand Is Nothing Then Adaptador.InsertCommand.CommandText = Adaptador.InsertCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.DeleteCommand Is Nothing Then Adaptador.DeleteCommand.CommandText = Adaptador.DeleteCommand.CommandText.Replace(Chr(34), "'") + sw.Start() + Do + Try + Adaptador.Update(Datos, NombreTabla) + Exit Do + Catch ex As Exception + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + + + Friend Overloads Shared Sub TSUpdateConTransaccion(ByVal Conexion As OleDbConnection, ByVal Adaptador As OleDbDataAdapter, ByVal Tabla As System.Data.DataTable, Optional ByVal MiliSegundosReintentos As Integer = 20000) + Dim sw As New Stopwatch, bCerrar, bTransaccionIniciada As Boolean + Dim ts As OleDb.OleDbTransaction = Nothing + + Try + sw.Start() + Do + Try + If Not Adaptador.SelectCommand Is Nothing Then Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.UpdateCommand Is Nothing Then Adaptador.UpdateCommand.CommandText = Adaptador.UpdateCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.InsertCommand Is Nothing Then Adaptador.InsertCommand.CommandText = Adaptador.InsertCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.DeleteCommand Is Nothing Then Adaptador.DeleteCommand.CommandText = Adaptador.DeleteCommand.CommandText.Replace(Chr(34), "'") + + If Conexion.State = ConnectionState.Closed Then + Conexion.Open() + bCerrar = True + End If + Conexion.BeginTransaction() + bTransaccionIniciada = True + + Adaptador.SelectCommand.Transaction = ts + If Not IsNothing(Adaptador.UpdateCommand) Then Adaptador.UpdateCommand.Transaction = ts + If Not IsNothing(Adaptador.InsertCommand) Then Adaptador.InsertCommand.Transaction = ts + If Not IsNothing(Adaptador.DeleteCommand) Then Adaptador.DeleteCommand.Transaction = ts + + Adaptador.Update(Tabla) + Exit Do + Catch ex As Exception + If bTransaccionIniciada Then + ts.Rollback() + End If + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + If bCerrar Then + Try + Conexion.Close() + Catch ex As Exception + End Try + End If + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + Public Overloads Shared Sub TSUpdate(ByVal Adaptador As OleDbDataAdapter, ByVal Tabla As System.Data.DataTable, Optional ByVal MiliSegundosReintentos As Integer = 20000) + Dim sw As New Stopwatch + + Try + sw.Start() + Do + Try + If Not Adaptador.SelectCommand Is Nothing Then Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.UpdateCommand Is Nothing Then Adaptador.UpdateCommand.CommandText = Adaptador.UpdateCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.InsertCommand Is Nothing Then Adaptador.InsertCommand.CommandText = Adaptador.InsertCommand.CommandText.Replace(Chr(34), "'") + If Not Adaptador.DeleteCommand Is Nothing Then Adaptador.DeleteCommand.CommandText = Adaptador.DeleteCommand.CommandText.Replace(Chr(34), "'") + + Adaptador.Update(Tabla) + Exit Do + Catch ex As OleDb.OleDbException + If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + Else + Throw New Exception("OledDbException|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + End If + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + + Public Shared Sub TSOpen(ByVal bd As OleDbConnection, Optional ByVal MiliSegundosReintentos As Integer = 20000) + Dim sw As New Stopwatch + Try + sw.Start() + Do + Try + bd.Open() + Exit Do + Catch ex As OleDb.OleDbException + If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + Else + Throw New Exception("OledDbException|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + End If + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + Public Shared Sub TSOpen(ByVal bd As SqlConnection, Optional ByVal MiliSegundosReintentos As Integer = 2500) + Dim sw As New Stopwatch + Try + sw.Start() + Do + Try + bd.Open() + Exit Do + Catch ex As Exception + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + + Public Shared Sub TSOpenMySQL(ByVal bd As MySqlConnection) + bd.Open() + End Sub + + Public Shared Sub TSClose(ByVal bd As OleDbConnection, Optional ByVal MiliSegundosReintentos As Integer = 2500) + Dim sw As New Stopwatch + Try + sw.Start() + Do + Try + bd.Close() + Exit Do + Catch ex As OleDb.OleDbException + If EsErrorTipoBloqueo(ex.Errors(0).NativeError) Then + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw New Exception("TS:TiempoSobrepasado|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + Else + Throw New Exception("OledDbException|NativeError:" & ex.Errors(0).NativeError.ToString & "|" & ex.Message, ex) + End If + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + + Public Shared Sub TSClose(ByVal bd As SqlConnection, Optional ByVal MiliSegundosReintentos As Integer = 2500) + Dim sw As New Stopwatch + Try + sw.Start() + Do + Try + bd.Close() + Exit Do + Catch ex As Exception + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + Public Shared Sub TSCloseMYSQL(ByVal bd As MySqlConnection, Optional ByVal MiliSegundosReintentos As Integer = 2500) + Dim sw As New Stopwatch + Try + sw.Start() + Do + Try + bd.Close() + Exit Do + Catch ex As Exception + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub + + + Private Shared Function EsErrorTipoBloqueo(ByVal NumeroError As Integer) As Boolean + EsErrorTipoBloqueo = NumeroError = -72156238 Or NumeroError = -67503111 Or NumeroError = -544083682 Or NumeroError = -69338147 Or NumeroError = -536544438 Or NumeroError = -544083682 Or NumeroError = -249630434 + End Function + + Public Shared Sub AñadeStringACola(ByRef Matriz() As String, ByVal NuevoElemento As String) + If IsNothing(Matriz) Then + ReDim Matriz(0) + Matriz(0) = NuevoElemento + Else + ReDim Preserve Matriz(Matriz.Length) + Matriz(Matriz.Length - 1) = NuevoElemento + End If + End Sub + Public Shared Function FechaHoraAString(ByVal Fecha As DateTime) As String + 'Return Fecha.Year & "_" & Fecha.Month & "_" & Fecha.Day & "_" & Fecha.Hour & "_" & Fecha.Minute & "_" & Fecha.Second + Return Fecha.Year & "_" & Fecha.Month.ToString.PadLeft(2, "0") & "_" & Fecha.Day.ToString.PadLeft(2, "0") & "_" & Fecha.Hour.ToString.PadLeft(2, "0") & "_" & Fecha.Minute.ToString.PadLeft(2, "0") & "_" & Fecha.Second.ToString.PadLeft(2, "0") + End Function + + Public Shared Function StringAFechaHora(ByVal Fecha As String) As DateTime + Dim sValores() As String = Fecha.Split("_") + Dim dFecha As DateTime + dFecha = New DateTime(sValores(0), sValores(1), sValores(2), sValores(3), sValores(4), sValores(5)) + Return dFecha + End Function + Public Shared Function StringToStream(ByVal str As String) As System.IO.Stream + Return New System.IO.MemoryStream(System.Text.Encoding.Default.GetBytes(str)) + End Function + + Public Shared Function GetWinVersion() As String + Dim SO_info As OperatingSystem + SO_info = OSVersion + With SO_info + Select Case .Platform + Case .Platform.Win32Windows + Select Case (.Version.Minor) + Case 0 + GetWinVersion = "Windows 95" + Case 10 + If .Version.Revision.ToString() = "2222A" Then + GetWinVersion = "Windows 98 SE" + Else + GetWinVersion = "Windows 98" + End If + Case 90 + GetWinVersion = "Windows ME" + Case Else + GetWinVersion = "Desconocido" + End Select + + Case .Platform.Win32NT + Select Case (.Version.Major) + Case 3 + GetWinVersion = "Windows NT 3.51" + Case 4 + GetWinVersion = "Windows NT 4.0" + Case 5 + If .Version.Minor = 0 Then + GetWinVersion = "Windows 2000" + Else + GetWinVersion = "Windows XP" + End If + Case 6 + GetWinVersion = "Windows Vista" + Case Else + GetWinVersion = "Superior" + End Select + Case Else + GetWinVersion = "S.O desconocido" + End Select + End With + End Function + Public Shared Function StringToHex(ByVal text As String) As String + Dim shex As String = "" + For i As Integer = 0 To text.Length - 1 + shex &= Asc(text.Substring(i, 1)).ToString("x").ToUpper + Next + Return shex + End Function + Public Shared Function HexToString(ByVal hex As String) As String + Dim text As New System.Text.StringBuilder(hex.Length \ 2) + For i As Integer = 0 To hex.Length - 2 Step 2 + text.Append(Chr(Convert.ToByte(hex.Substring(i, 2), 16))) + Next + Return text.ToString + End Function + + + Public Shared Function EnumToArrayString(ByVal tipo As Type) As String() + Dim info() As System.Reflection.FieldInfo = tipo.GetFields() + Dim inf As System.Reflection.FieldInfo + Dim campos As New ArrayList + For Each inf In info + campos.Add(inf.Name) + Next + Return campos.ToArray + End Function + Public Shared Function EliminaElementoMatrizStrings(ByVal MatrizStrings() As String, ByVal ElementoAEliminar As Integer) As String() + Dim NuevaMatriz(MatrizStrings.Length - 2) As String + Dim i, j As Integer + For i = 0 To MatrizStrings.Length - 1 + If i <> ElementoAEliminar Then + NuevaMatriz(j) = MatrizStrings(i) + j += 1 + End If + Next + Return NuevaMatriz + End Function + Public Shared Function ObtieneNumeroFicheros(ByVal Directory As String) As Integer + Dim FileCount As Integer = 0 + Dim SubDirectory() As String + Dim i As Integer + FileCount = System.IO.Directory.GetFiles(Directory).Length + SubDirectory = System.IO.Directory.GetDirectories(Directory) + For i = 0 To SubDirectory.Length - 1 + FileCount = ObtieneNumeroFicheros(SubDirectory(i)) + FileCount + Next + Return FileCount + End Function + Public Shared Function NuevoAdaptador(ByVal CadenaSQL As String, ByVal Conexion As System.Data.Common.DbConnection) As System.Data.Common.DbDataAdapter + If Conexion.GetType Is GetType(OleDbConnection) Then + Return New OleDbDataAdapter(CadenaSQL, Conexion) + ElseIf Conexion.GetType Is GetType(MySqlConnection) Then + Return New MySqlDataAdapter(CadenaSQL, Conexion) + Else + Throw New Exception("Tipo no soportado.") + End If + + End Function + Public Shared Function NuevoCommandBuilder(ByVal Adaptador As System.Data.Common.DbDataAdapter, CampoAutonumericoTraspasado As String) As System.Data.Common.DbCommandBuilder + If Adaptador.GetType Is GetType(OleDbDataAdapter) Then + Return New OleDb.OleDbCommandBuilder(Adaptador) + ElseIf Adaptador.GetType Is GetType(MySqlDataAdapter) Then + Dim cb As New MySqlCommandBuilder(Adaptador) + If CampoAutonumericoTraspasado <> "" Then + ' Try + Dim ic As New MySqlCommand + ic = cb.GetInsertCommand.Clone + ic.CommandText &= ";SELECT last_insert_id() as " & CampoAutonumericoTraspasado + ic.UpdatedRowSource = UpdateRowSource.FirstReturnedRecord + Adaptador.InsertCommand = ic + 'Catch ex As Exception + ' Adaptador.InsertCommand.CommandText &= "SELECT last_insert_id() as " & CampoAutonumericoTraspasado + ' Adaptador.InsertCommand.UpdatedRowSource = UpdateRowSource.FirstReturnedRecord + 'End Try + End If + Return cb + Else + Throw New Exception("Tipo no soportado.") + End If + + + End Function + Public Shared Sub CharConverter(ByVal jcOrigen As String, ByVal jcDestino As String, ByVal Fichero_Origen As String, Optional ByVal Fichero_Destino As String = "") + Try + Dim Temporal As String = Fichero_Origen & ".tmp" + Dim sBuffer As String + Dim i, pos, fr, fw As Integer + Dim Size As Long = FileLen(Fichero_Origen) + Dim cAux(), cOrigen(), cDestino() As Char + 'Inicializamos los juegos de caracteres origen y destino + Select Case jcOrigen.ToUpper + Case "WINDOWS" + cOrigen = WINDOWS + Case "ROMAN8" + cOrigen = ROMAN8 + Case "ROMAN8SA" + cOrigen = ROMAN8SA + Case Else + ' MsgBox("Juegos de caracteres origen erróneo o no soportado.") + ' Exit Sub + Throw New Exception("Juego de caracteres origen erróneo.") + End Select + Select Case jcDestino.ToUpper + Case "WINDOWS" + cDestino = WINDOWS + Case "ROMAN8" + cDestino = ROMAN8 + Case "ROMAN8SA" + cDestino = ROMAN8SA + Case Else + Throw New Exception("Juego de caracteres destino erróneo.") + 'MsgBox("Juegos de caracteres destino erróneo o no soportado.") + 'Exit Sub + End Select + 'Abrimos Origen y Destino + fr = FreeFile() + fw = fr + 1 + FileOpen(fr, Fichero_Origen, OpenMode.Input, OpenAccess.Read) + FileOpen(fw, Temporal, OpenMode.Output, OpenAccess.Write) + 'Guardamos el contenido del fichero en un Buffer + sBuffer = InputString(fr, Size) + 'Reemplazamos los caracteres especiales en Windows UTF8 por sus correspondientes en Roman8 + cAux = sBuffer + For i = 0 To NumChar - 1 + pos = 0 + Do + pos = InStr(pos + 1, sBuffer, cOrigen(i), CompareMethod.Binary) + If pos > 0 Then + cAux(pos - 1) = cDestino(i) + End If + Loop Until pos = 0 + Next + sBuffer = cAux + Print(fw, sBuffer) + 'Cerramos los ficheros + FileClose(fr, fw) + 'Si el destino no viene especificado es que tomaremos el origen como destino + 'y usaremos como destino para el proceso un fichero temporal + If Fichero_Destino = "" Then + File.Copy(Temporal, Fichero_Origen, True) + Else + File.Copy(Temporal, Fichero_Destino, True) + End If + 'Borramos el fichero temporal + File.Delete(Temporal) + Catch ex As Exception + 'MsgBox(ex.Message, , "Error") + Throw New Exception(ex.Message) + End Try + End Sub + Public Shared Function LeeRegistrosSQLSQLServer(ByVal Conexion As SqlConnection, ByVal Clausula_SQL As String, Optional ByVal Sin_Errores As Boolean = True, Optional ByVal NombreDataset As String = "DATASET", Optional ByVal NombreTabla As String = "TABLA") As DataTable + LeeRegistrosSQLSQLServer = Nothing + Try + Dim adAdaptador As SqlDataAdapter, dsDatos As New DataSet(NombreDataset) + If Not Clausula_SQL.EndsWith(";") Then Clausula_SQL &= ";" + Clausula_SQL = Clausula_SQL.Replace(Chr(34), "'") + adAdaptador = New SqlDataAdapter(Clausula_SQL, Conexion) + 'If Clausula_SQL.ToLower.StartsWith("select * from") Then TSFillSchema(adAdaptador, dsDatos, SchemaType.Mapped, NombreTabla) + TSFillSchema(adAdaptador, dsDatos, SchemaType.Mapped, NombreTabla) + TSFillSQLServer(adAdaptador, dsDatos, NombreTabla) + LeeRegistrosSQLSQLServer = dsDatos.Tables(0) + Catch ex As Exception + If Sin_Errores Or EsServicio Then + Throw New Exception(ex.Message & vbCrLf & "SQL: " & Clausula_SQL) + Else + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Lee_Registros_SQL") + End If + End Try + + End Function + Public Shared Sub TSFillSQLServer(ByVal Adaptador As SqlDataAdapter, ByVal Datos As DataSet, ByVal NombreTabla As String, Optional ByVal MiliSegundosReintentos As Integer = 2500) + Dim sw As New Stopwatch + Dim bErrorConstraint As Boolean + Try + Adaptador.SelectCommand.CommandText = Adaptador.SelectCommand.CommandText.Replace(Chr(34), "'") + sw.Start() + Do + Try + + Adaptador.Fill(Datos, NombreTabla) + Exit Do + Catch ex As System.Data.ConstraintException + If Not bErrorConstraint Then + bErrorConstraint = True + Adaptador.FillSchema(Datos, SchemaType.Mapped, NombreTabla) + Else + Throw ex + End If + Catch ex As Exception + If sw.ElapsedMilliseconds > MiliSegundosReintentos Then Throw ex + System.Threading.Thread.Sleep(100) + Application.DoEvents() + End Try + Loop + Catch ex As Exception + Dim sCommandText As String = "" + Try + sCommandText = Adaptador.SelectCommand.CommandText + Catch ex2 As Exception + End Try + Throw New Exception(ex.Message & vbCrLf & "Adaptador.Selectcommand.Commandtext= " & sCommandText & " Adaptador Nothing=" & (Adaptador Is Nothing).ToString & " Datos Nothing=" & (Datos Is Nothing).ToString & " NombreTabla = " & NombreTabla) + Finally + Try + sw.Stop() + Catch ex As Exception + End Try + End Try + End Sub +End Class diff --git a/crypt.vb b/crypt.vb new file mode 100644 index 0000000..c2d53fa --- /dev/null +++ b/crypt.vb @@ -0,0 +1,585 @@ +Imports System.IO +Imports System.Security.Cryptography +Imports System.Text + +Public Class crypt + Public Shared Function FEncS$(ByVal X$, ByVal Jco0$, ByVal Jcd0$, ByVal Xs0 As Long) + Dim T$, Resultado$, Jco$, Jcd$, Cd$, Co$ + Dim R, F, Lo0, Ld0, Lx, Ld, Xs, Po, Lo, Pd, Px, Spac As Long + Dim SEncDes, I As Integer + Resultado$ = "" + If Xs0 = 0 Then ' Traduccion de tokens + T$ = X$ + Do + F = 0 + If Left$(T$, 3) = "[V]" Then Resultado$ = Resultado$ + "" : T$ = Mid$(T$, 4) : F = 1 + If Left$(T$, 4) = "[AM]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZ" : T$ = Mid$(T$, 5) : F = 1 + If Left$(T$, 4) = "[Am]" Then Resultado$ = Resultado$ + "abcdefghijklmnopqrstuvwxyz" : T$ = Mid$(T$, 5) : F = 1 + If Left$(T$, 3) = "[N]" Then Resultado$ = Resultado$ + "0123456789" : T$ = Mid$(T$, 4) : F = 1 + If Left$(T$, 4) = "[AN]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" : T$ = Mid$(T$, 5) : F = 1 + 'If Left$(T$, 5) = "[ANM]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" : T$ = Mid$(T$, 6) : F = 1 + If Left$(T$, 5) = "[JO1]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789ÁÉÍÓÚáéíóúÄËÏÖÜäëïöüÂÊÎÔÛâêîôûºªÑñÇç'.,+-_@/\* =#|!:;$%&" : T$ = Mid$(T$, 6) : F = 1 + If Left$(T$, 5) = "[JD1]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789ÁÉÍÓÚáéíóúÄËÏÖÜäëïöüÂÊÎÔÛâêîôûºªÑñÇç'.,+-_@/\*)=#|!:;$%&" : T$ = Mid$(T$, 6) : F = 1 + + ' If Left$(T$, 5) = "[JO1]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789ÁÉÍÓÚáéíóúÄËÏÖÜäëïöüÂÊÎÔÛâêîôûºªÑñÇç'.,+-_@/\* =#|!:;$%&" : T$ = Mid$(T$, 6) : F = 1 + ' If Left$(T$, 5) = "[JD1]" Then Resultado$ = Resultado$ + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789ÁÉÍÓÚáéíóúÄËÏÖÜäëïöüÂÊÎÔÛâêîôûºªÑñÇç'.,+-_@/\*)=#|!:;$%&" : T$ = Mid$(T$, 6) : F = 1 + + Loop Until F = 0 + FEncS$ = Resultado$ + T$ + Exit Function + End If + + If Math.Abs(Xs0) < 100000000.0 Then Error 11 + SEncDes = Math.Sign(Xs0) ' +1 o -1 + If SEncDes > 0 Then ' inversion de parametros si Desencriptacion + Jco$ = Jco0$ : Jcd$ = Jcd0$ + Else + Jco$ = Jcd0$ : Jcd$ = Jco0$ + End If + + Jco$ = FEncS$(Jco$, "", "", 0) + Jcd$ = FEncS$(Jcd$, "", "", 0) + Lo0 = Len(Jco$) : Ld0 = Len(Jcd$) + Lo = Lo0 + -256 * (Lo0 = 0) : Ld = Ld0 + -256 * (Ld0 = 0) + + If SEncDes > 0 Then Lx = Ld Else Lx = Lo + + Xs = Math.Abs(Xs0) + 611957 * (Len(X$) Mod 1000) ' ???? + ' R = FRndL(-(ABS(Xs0) + 1000000 * (LEN(X$) MOD 1000))) + Spac = Math.Abs(Xs0) Mod Lx + For I = 1 To Len(X$) + Co$ = Mid$(X$, I, 1) + If Lo0 <> 0 Then Po = InStr(Jco$, Co$) Else Po = Asc(Co$) + 1 + If Po = 0 Then Resultado$ = "" : Error 11 + + Xs = 16807 * (Xs Mod 127773) - 2836 * (Xs \ 127773) + If Xs < 0 Then Xs = Xs + 2147483647 + R = Int((Xs / 2147483647.0#) * Lx) + ' R1 = INT(FRndL(0) * Lx) + ' IF R <> R1 THEN STOP + + Pd = ((Po - 1) + SEncDes * (R + Spac) + 2 * Lx) Mod Lx + 1 + + If SEncDes > 0 Then Px = Po Else Px = Pd + Spac = (Spac + Px * 17) Mod Lx + + If Ld0 <> 0 Then Cd$ = Mid$(Jcd$, Pd, 1) Else Cd$ = Chr(Pd - 1) + Resultado$ = Resultado$ + Cd$ + Next I + FEncS$ = Resultado$ + End Function + Public Shared Function SHA1ASCII(ByVal strToHash As String) As String + Dim sha1Obj As New Security.Cryptography.SHA1CryptoServiceProvider + Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash) + bytesToHash = sha1Obj.ComputeHash(bytesToHash) + Dim strResult As String = "" + For Each b As Byte In bytesToHash + strResult += b.ToString("x2") + Next + Return strResult.ToUpper + End Function + Public Shared Function SHA1(ByVal strToHash As String) As String + Dim sha1Obj As New Security.Cryptography.SHA1CryptoServiceProvider + Dim bytesToHash() As Byte = System.Text.Encoding.Unicode.GetBytes(strToHash) + bytesToHash = sha1Obj.ComputeHash(bytesToHash) + Dim strResult As String = "" + For Each b As Byte In bytesToHash + strResult += b.ToString("x2") + Next + Return strResult.ToUpper + End Function + Public Shared Function SHA1(ByVal Datos() As Byte) As String + Dim sha1Obj As New Security.Cryptography.SHA1CryptoServiceProvider + Dim bytesToHash() As Byte = Datos + bytesToHash = sha1Obj.ComputeHash(bytesToHash) + Dim strResult As String = "" + For Each b As Byte In bytesToHash + strResult += b.ToString("x2") + Next + Return strResult.ToUpper + End Function + + Public Shared Function SHA256(ByVal Datos() As Byte) As String + Dim sha256Obj As New Security.Cryptography.SHA256CryptoServiceProvider + Dim bytesToHash() As Byte = Datos + bytesToHash = sha256Obj.ComputeHash(bytesToHash) + Dim strResult As String = "" + For Each b As Byte In bytesToHash + strResult += b.ToString("x2") + Next + Return strResult.ToUpper + End Function + + Public Shared Function SHA256(ByVal Cadena As String) As String + Dim sha256Obj As New Security.Cryptography.SHA256CryptoServiceProvider + Dim Datos() As Byte = System.Text.Encoding.Unicode.GetBytes(Cadena) + Dim bytesToHash() As Byte = Datos + bytesToHash = sha256Obj.ComputeHash(bytesToHash) + Dim strResult As String = "" + For Each b As Byte In bytesToHash + strResult += b.ToString("x2") + Next + Return strResult.ToUpper + End Function + Public Shared Function ObtenerCadenaHashSHA256AportandoSal(ByVal cadenaQueQuieroHashear As String, ByVal sal As String) + Dim sb As Text.StringBuilder = New Text.StringBuilder() + For Each b As Byte In GetHashSHA256(cadenaQueQuieroHashear, sal) + sb.Append(b.ToString("X2")) + Next + Return sb.ToString() + End Function + + Private Shared Function GetHashSHA256(ByVal cadenaQueQuieroHashear As String, ByVal sal As String) As Byte() + Using ha As Security.Cryptography.HashAlgorithm = Security.Cryptography.SHA256.Create() + Return ha.ComputeHash(Text.Encoding.UTF8.GetBytes(String.Format("{0}{1}", cadenaQueQuieroHashear.Trim(), sal.Trim()))) + End Using + End Function + + Public Shared Function AES(ByVal streamOrigen As Stream, + ByVal encriptar As Boolean, + ByVal clave As Byte(), + ByVal IV As Byte(), + ByVal streamDestino As Stream, + Optional ByVal padding As PaddingMode = PaddingMode.PKCS7) As Long + + '------------------------------------------------------------------------------------------- + ' Versión sobrecargada de AES() para streams. + '------------------------------------------------------------------------------------------- + ' streamOrigen: Fuente de los datos. Se encripta/desencripta 'streamOrigen' AL COMPLETO, + ' independientemente de la posición de su cabeza lectora. + ' + ' encriptar: Si True, se encripta; si False, se desencripta. + ' + ' clave: Clave secreta AES (128 bits, 192 bits o 256 bits). + ' IV: Vector de inicialización (16 bytes). + ' + ' streamDestino: Destino de los datos encriptados/desencriptados. + ' Los datos encriptados/desencriptados se escriben A PARTIR DE LA POSICIÓN + ' EN LA QUE SE ENCUENTRE LA CABEZA ESCRITORA de'streamDestino'. + ' + ' padding: Modo de padding. Por defecto padding PKCS #7. + ' + ' VALOR DEVUELTO: Número de bytes escritos en 'streamDestino'. + ' + '------------------------------------------------------------------------------------------- + ' INFORMACIÓN ADICIONAL: + ' - Se usa la clase AesCryptoServiceProvider. + ' - Se usa el modo de cifrado CBC (Cipher Block Chaining). + '------------------------------------------------------------------------------------------- + + ' Tamaño del buffer de lectura/escritura (en bytes). + ' Se lee/escribe en bloques de TAM_BUFFER bytes. + Const TAM_BUFFER As Integer = 4 * 1024 + + Try + + If streamOrigen Is Nothing Then Throw New Exception("'streamOrigen' es Nothing.") + If clave Is Nothing Then Throw New Exception("'clave' es Nothing.") + If IV Is Nothing Then Throw New Exception("'IV' es Nothing.") + If streamDestino Is Nothing Then Throw New Exception("'streamDestino' es Nothing.") + + '--------------- + + Dim aesCSP As New AesCryptoServiceProvider() + + aesCSP.Padding = padding + aesCSP.Mode = CipherMode.CBC + + aesCSP.Key = clave + aesCSP.IV = IV + + '--------------- + + Dim ctransform As ICryptoTransform + If encriptar Then + ctransform = aesCSP.CreateEncryptor() + Else + ctransform = aesCSP.CreateDecryptor() + End If + + '--------------- + + Dim cstream As New CryptoStream(streamDestino, ctransform, CryptoStreamMode.Write) + + '------------------------------------------------------------------- + ' Leemos datos desde 'streamOrigen' y los escribimos en 'cstream', + ' que a su vez los escribe en 'streamDestino' previa aplicación de + ' la transformación de encriptación/desencriptación. + '------------------------------------------------------------------- + + ' Leemos 'streamOrigen' desde el principio: + streamOrigen.Position = 0 + + Dim buffer(TAM_BUFFER - 1) As Byte + Dim n As Integer ' Número de bytes leídos en la iteración actual. + + Dim posInicialDestino As Long = streamDestino.Position + + While True + n = streamOrigen.Read(buffer, 0, TAM_BUFFER) + If n = 0 Then + ' Fin del stream + Exit While + End If + cstream.Write(buffer, 0, n) + End While + + cstream.FlushFinalBlock() + + Dim posFinalDestino As Long = streamDestino.Position + + ' Se devuelve el número de bytes escritos en 'streamDestino': + Return posFinalDestino - posInicialDestino + + Catch ex As Exception + Throw New Exception("Calculando AES." & vbCrLf & ex.Message, ex) + End Try + + End Function + + Public Shared Function AES(ByVal bytesOrigen As Byte(), + ByVal encriptar As Boolean, + ByVal clave As Byte(), + ByVal IV As Byte(), + Optional ByVal padding As PaddingMode = PaddingMode.PKCS7) As Byte() + + '------------------------------------------------------------------------------------------- + ' Versión sobrecargada de AES() para arrays de bytes. + '------------------------------------------------------------------------------------------- + ' bytesOrigen: Fuente de los datos para la encriptación/desencriptación. + ' + ' encriptar: Si True, se encripta; si False, se desencripta. + ' + ' clave: Clave secreta AES (128 bits, 192 bits o 256 bits). + ' IV: Vector de inicialización (16 bytes). + ' + ' padding: Modo de padding. Por defecto padding PKCS #7. + ' + ' VALOR DEVUELTO: Array de bytes resultado de la encriptación/desencriptación. + ' + '------------------------------------------------------------------------------------------- + ' INFORMACIÓN ADICIONAL: + ' - Se usa la clase AesCryptoServiceProvider. + ' - Se usa el modo de cifrado CBC (Cipher Block Chaining). + '------------------------------------------------------------------------------------------- + + If bytesOrigen Is Nothing Then + Throw New Exception("Calculando AES: 'bytesOrigen' es Nothing.") + End If + + Dim streamOrigen As New MemoryStream(bytesOrigen) + Dim streamDestino As New MemoryStream() + + AES(streamOrigen, encriptar, clave, IV, streamDestino, padding) + + Return streamDestino.ToArray() + + End Function + + ''' + ''' Utilizado por Arquia para las traspasos en el COAS. + ''' + ''' + ''' + ''' + Public Shared Function TripleDES_Cifrar(ByVal toEncrypt As String, + ByVal securityKey As String) As String + Dim resultado As String = String.Empty + + Try + Dim keyArray As Byte() + Dim toEncryptArray As Byte() = UTF8Encoding.UTF8.GetBytes(toEncrypt) + Dim hashmd5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider() + keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(securityKey)) + hashmd5.Clear() + Dim tdes As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider() + tdes.Key = keyArray + tdes.Mode = CipherMode.ECB + tdes.Padding = PaddingMode.PKCS7 + Dim cTransform As ICryptoTransform = tdes.CreateEncryptor() + Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length) + tdes.Clear() + resultado = Convert.ToBase64String(resultArray, 0, resultArray.Length) + Catch ex As Exception + '// TODO: danmun, excepción calculando + Throw ex + End Try + Return resultado + End Function + + ''' + ''' Utilizado por Arquia para las traspasos en el COAS. + ''' + ''' + ''' + ''' + Public Shared Function TripleDES_Descifrar(ByVal cipherString As String, ByVal securityKey As String) As String + Dim resultado As String = "" + + Try + Dim keyArray As Byte() + Dim toEncryptArray As Byte() = Convert.FromBase64String(cipherString) + Dim hashmd5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider() + keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(securityKey)) + hashmd5.Clear() + Dim tdes As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider() + tdes.Key = keyArray + tdes.Mode = CipherMode.ECB + tdes.Padding = PaddingMode.PKCS7 + Dim cTransform As ICryptoTransform = tdes.CreateDecryptor() + Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length) + tdes.Clear() + resultado = UTF8Encoding.UTF8.GetString(resultArray) + Catch ex As Exception + '// TODO: danmun, excepción calculando + Throw New Exception(ex.Message, ex) + End Try + Return resultado + End Function + + Public Shared Function TripleDES(ByVal streamOrigen As Stream, + ByVal encriptar As Boolean, + ByVal clave As Byte(), + ByVal IV As Byte(), + ByVal streamDestino As Stream, + Optional ByVal padding As PaddingMode = PaddingMode.PKCS7) As Long + + '------------------------------------------------------------------------------------------- + ' Versión sobrecargada de TripleDES() para streams. + '------------------------------------------------------------------------------------------- + ' streamOrigen: Fuente de los datos. Se encripta/desencripta 'streamOrigen' AL COMPLETO, + ' independientemente de la posición de su cabeza lectora. + ' + ' encriptar: Si True, se encripta; si False, se desencripta. + ' + ' clave: Clave secreta TripleDES (128 bits o 192 bits). + ' IV: Vector de inicialización (8 bytes). + ' + ' streamDestino: Destino de los datos encriptados/desencriptados. + ' Los datos encriptados/desencriptados se escriben A PARTIR DE LA POSICIÓN + ' EN LA QUE SE ENCUENTRE LA CABEZA ESCRITORA de'streamDestino'. + ' + ' padding: Modo de padding. Por defecto padding PKCS #7 (= padding PKCS #5). + ' + ' VALOR DEVUELTO: Número de bytes escritos en 'streamDestino'. + ' + '------------------------------------------------------------------------------------------- + ' INFORMACIÓN ADICIONAL: + ' - Se usa la clase TripleDESCryptoServiceProvider. + ' - Se usa el modo de cifrado CBC (Cipher Block Chaining). + '------------------------------------------------------------------------------------------- + + ' Tamaño del buffer de lectura/escritura (en bytes). + ' Se lee/escribe en bloques de TAM_BUFFER bytes. + Const TAM_BUFFER As Integer = 4 * 1024 + + Try + + If streamOrigen Is Nothing Then Throw New Exception("'streamOrigen' es Nothing.") + If clave Is Nothing Then Throw New Exception("'clave' es Nothing.") + If IV Is Nothing Then Throw New Exception("'IV' es Nothing.") + If streamDestino Is Nothing Then Throw New Exception("'streamDestino' es Nothing.") + + '--------------- + + Dim tdesCSP As New TripleDESCryptoServiceProvider() + + tdesCSP.Padding = padding + tdesCSP.Mode = CipherMode.CBC + + tdesCSP.Key = clave + tdesCSP.IV = IV + + '--------------- + + Dim ctransform As ICryptoTransform + If encriptar Then + ctransform = tdesCSP.CreateEncryptor() + Else + ctransform = tdesCSP.CreateDecryptor() + End If + + '--------------- + + Dim cstream As New CryptoStream(streamDestino, ctransform, CryptoStreamMode.Write) + + '------------------------------------------------------------------- + ' Leemos datos desde 'streamOrigen' y los escribimos en 'cstream', + ' que a su vez los escribe en 'streamDestino' previa aplicación de + ' la transformación de encriptación/desencriptación. + '------------------------------------------------------------------- + + ' Leemos 'streamOrigen' desde el principio: + streamOrigen.Position = 0 + + Dim buffer(TAM_BUFFER - 1) As Byte + Dim n As Integer ' Número de bytes leídos en la iteración actual. + + Dim posInicialDestino As Long = streamDestino.Position + + While True + n = streamOrigen.Read(buffer, 0, TAM_BUFFER) + If n = 0 Then + ' Fin del stream + Exit While + End If + cstream.Write(buffer, 0, n) + End While + + cstream.FlushFinalBlock() + + Dim posFinalDestino As Long = streamDestino.Position + + ' Se devuelve el número de bytes escritos en 'streamDestino': + Return posFinalDestino - posInicialDestino + + Catch ex As Exception + Throw New Exception("Calculando TripleDES." & vbCrLf & ex.Message, ex) + End Try + + End Function + + ''' + ''' Utilizado para la comunicación con ADA SURNET en TsBUS. + ''' + ''' + ''' + ''' + ''' + ''' + ''' + Public Shared Function TripleDES(ByVal bytesOrigen As Byte(), + ByVal encriptar As Boolean, + ByVal clave As Byte(), + ByVal IV As Byte(), + Optional ByVal padding As PaddingMode = PaddingMode.PKCS7) As Byte() + + '------------------------------------------------------------------------------------------- + ' Versión sobrecargada de TripleDES() para arrays de bytes. + '------------------------------------------------------------------------------------------- + ' bytesOrigen: Fuente de los datos para la encriptación/desencriptación. + ' + ' encriptar: Si True, se encripta; si False, se desencripta. + ' + ' clave: Clave secreta TripleDES (128 bits o 192 bits). + ' IV: Vector de inicialización (8 bytes). + ' + ' padding: Modo de padding. Por defecto padding PKCS #7 (= padding PKCS #5). + ' + ' VALOR DEVUELTO: Array de bytes resultado de la encriptación/desencriptación. + ' + '------------------------------------------------------------------------------------------- + ' INFORMACIÓN ADICIONAL: + ' - Se usa la clase TripleDESCryptoServiceProvider. + ' - Se usa el modo de cifrado CBC (Cipher Block Chaining). + '------------------------------------------------------------------------------------------- + + If bytesOrigen Is Nothing Then + Throw New Exception("Calculando TripleDES: 'bytesOrigen' es Nothing.") + End If + + Dim streamOrigen As New MemoryStream(bytesOrigen) + Dim streamDestino As New MemoryStream() + + TripleDES(streamOrigen, encriptar, clave, IV, streamDestino, padding) + + Return streamDestino.ToArray() + + End Function + + '------------------------ + + Public Shared Function ArrayAleatorio(ByVal numBytes As Integer) As Byte() + + '---------------------------------------------------- + ' Devuelve un array de bytes de longitud 'numBytes'. + ' Los bytes son rellenados con valores aleatorios + ' generados de manera criptográficamente sólida. + '---------------------------------------------------- + + Dim rng As New RNGCryptoServiceProvider() + + Dim a(numBytes - 1) As Byte + + rng.GetBytes(a) + + Return a + + End Function + + Public Shared Function ArraysIguales(ByVal a1 As Byte(), ByVal a2 As Byte(), + Optional ByVal longitudMin As Integer = -1) As Boolean + + '------------------------------------------------------------------------------------- + ' Devuelve True si los dos arrays de bytes 'a1' y 'a2' coinciden; False en otro caso. + '------------------------------------------------------------------------------------- + ' 'longitudMin' indica la longitud mínima exigida de los arrays para ser considerados + ' iguales; si NO se cumple, se devuelve FALSE. Casos: + ' + ' longitudMin = -1 --> Permite TODO (se considera que Nothing = Nothing es True) + ' = 0 --> NO PERMITE Nothings, SÍ PERMITE VACÍOS. + ' > 0 --> Requiere que 'a1' y 'a2' tengan al menos esa longitud. + ' + '------------------------------------------------------------------------------------- + + If longitudMin < -1 Then + Throw New Exception("ArraysIguales(): Parámetro longitudMin < -1") + End If + + '------ + + If (a1 Is Nothing) Or (a2 Is Nothing) Then + Return (longitudMin = -1) And (a1 Is Nothing) And (a2 Is Nothing) + End If + + If a1.Length <> a2.Length Then Return False + + If a1.Length < longitudMin Then Return False + + Dim i As Integer + For i = 0 To (a1.Length - 1) + If a1(i) <> a2(i) Then Return False + Next + + Return True + + End Function + + Public Shared Function ArrayToHex(ByVal a As Byte(), Optional ByVal separador As String = "") As String + + '-------------------------------------------------------------------------------------------------- + ' Transforma un array de bytes a un string en hexadecimal (cada byte se representa en hexadecimal). + ' Los caracteres alfabéticos hexadecimales SIEMPRE SE REPRESENTAN EN MAYÚSCULAS (ABCDEF). + '-------------------------------------------------------------------------------------------------- + ' 'separador' es el string separador de bytes (POR DEFECTO VACÍO). + '-------------------------------------------------------------------------------------------------- + + Dim res As String = "" + + If (a IsNot Nothing) AndAlso (a.Length > 0) Then + + Dim i As Integer + + For i = 0 To (a.Length - 2) + res &= [String].Format("{0:X2}", a(i)) & separador + Next + + res &= [String].Format("{0:X2}", a(a.Length - 1)) + + End If + + Return res + + End Function + Public Shared Function RandomString(minCharacters As Integer, maxCharacters As Integer) As String + Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789ÁÉÍÓÚáéíóúÄËÏÖÜäëïöüÂÊÎÔÛâêîôûºªÑñÇç" + Static r As New Random + Dim chactersInString As Integer = r.Next(minCharacters, maxCharacters) + Dim sb As New StringBuilder + For i As Integer = 1 To chactersInString + Dim idx As Integer = r.Next(0, s.Length) + sb.Append(s.Substring(idx, 1)) + Next + Return sb.ToString() + End Function +End Class \ No newline at end of file diff --git a/http.vb b/http.vb new file mode 100644 index 0000000..754d260 --- /dev/null +++ b/http.vb @@ -0,0 +1,94 @@ +Imports System.IO + +Public Class http + Public Shared Function EjecutaURL(ByVal fullUrl As String, + Optional ByVal bAllowAutoRedirect As Boolean = True, + Optional ByVal iTimeout As Integer = 120000, Optional Codificacion As System.Text.Encoding = Nothing) As String + If Codificacion Is Nothing Then + Return EjecutaURL(fullUrl, System.Text.Encoding.UTF8, bAllowAutoRedirect, iTimeout) + Else + Return EjecutaURL(fullUrl, Codificacion, bAllowAutoRedirect, iTimeout) + End If + End Function + Public Shared Function EjecutaURL(ByVal fullUrl As String, _ + ByVal Codificacion As System.Text.Encoding, _ + Optional ByVal bAllowAutoRedirect As Boolean = True, _ + Optional ByVal iTimeout As Integer = 120000) As String + Dim webRequest As System.Net.HttpWebRequest = Nothing + Dim webResponse As System.Net.HttpWebResponse = Nothing + Try + 'Creamos un HttpWebRequest con la URL especificada. + webRequest = CType(System.Net.WebRequest.Create(fullUrl), System.Net.HttpWebRequest) + webRequest.AllowAutoRedirect = bAllowAutoRedirect + 'webRequest.MaximumAutomaticRedirections = 50 + webRequest.Timeout = iTimeout + + + 'Enviamos la peticion y esperamos una respuesta. + Try + webResponse = CType(webRequest.GetResponse(), System.Net.HttpWebResponse) + Select Case (webResponse.StatusCode) + Case System.Net.HttpStatusCode.OK + 'Leemos el contenido de la respuesta + Dim responseStream As System.IO.Stream = _ + webResponse.GetResponseStream() + ' Dim responseEncoding As System.text.Encoding = _ + 'System.text.Encoding.Default + 'Mandamos la respuesta a un stream reader con su codificacion correspondiente + Dim responseReader As New StreamReader(responseStream, Codificacion) + Dim responseContent As String = _ + responseReader.ReadToEnd() + Return responseContent.Trim + Case System.Net.HttpStatusCode.Redirect, System.Net.HttpStatusCode.MovedPermanently + Throw New System.Exception(String.Format( _ + "No ha sido posible leer el contenido de la respuesta. La URL ha sido movida." & _ + " StatusCode={0}.", webResponse.StatusCode)) + Case System.Net.HttpStatusCode.NotFound + Throw New System.Exception(String.Format( _ + "No ha sido posible leer el contenido de la respuesta. La URL no se encuentra." & _ + " StatusCode={0}.", webResponse.StatusCode)) + Case Else + Throw New System.Exception(String.Format( _ + "No ha sido posible leer el contenido de la respuesta. StatusCode={0}.", _ + webResponse.StatusCode)) + End Select + Catch we As System.Net.WebException + If (we.Status = Net.WebExceptionStatus.Timeout) Then + 'Return False + Throw New System.Exception("No ha sido posible ejecutar la URL (TIMEOUT).", we) + End If + Throw New System.Exception("No ha sido posible ejecutar la URL (webException).", we) + Finally + If (Not IsNothing(webResponse)) Then + webResponse.Close() + End If + End Try + Catch e As System.Exception + Throw New System.Exception("No ha sido posible ejecutar la URL (systemException).", e) + End Try + End Function + + Public Shared Function EjemacHP(ByVal UrlCGIBIN As String, ByVal Macro As String, Optional ByVal Parametros As String = "", Optional Codificacion As System.Text.Encoding = Nothing) As String + Try + Dim sUrl As String + If Parametros <> "" Then + Parametros = Parametros.Replace("¡", "?") + sUrl = UrlCGIBIN & "?" & Macro & "=" & Parametros + Else + sUrl = UrlCGIBIN & "?" & Macro + 'sUrl = UrlCGIBIN & "?" & Macro & "=" & Parametros & "?" & Macro + End If + ' Dim sRespuesta As String = EjecutaURL(sUrl, System.Text.Encoding.Default, , 500000) + If Codificacion Is Nothing Then + Dim sRespuesta As String = EjecutaURL(sUrl, System.Text.Encoding.Default, , 500000) + Return sRespuesta + Else + Dim sRespuesta As String = EjecutaURL(sUrl, Codificacion, , 500000) + Return sRespuesta + End If + + Catch EX As Exception + Throw New Exception(EX.Message, EX) + End Try + End Function +End Class diff --git a/licenses.licx b/licenses.licx new file mode 100644 index 0000000..139597f --- /dev/null +++ b/licenses.licx @@ -0,0 +1,2 @@ + + diff --git a/red.vb b/red.vb new file mode 100644 index 0000000..e8710df --- /dev/null +++ b/red.vb @@ -0,0 +1,60 @@ +Imports System.Net +Imports System.Management.ManagementClass +Imports System.Management + +Public Class red + Public Shared Function Ping(Servidor As String) As String + Try + Dim sRespuesta As String = "" + Dim eco As New System.Net.NetworkInformation.Ping + Dim res As System.Net.NetworkInformation.PingReply + Dim ip As IPAddress + + Dim myIPAddresses() As IPAddress = Dns.GetHostAddresses(Servidor) + + For Each ip In myIPAddresses + res = eco.Send(ip) + If res.Status = NetworkInformation.IPStatus.Success Then + sRespuesta &= Servidor & ": Respuesta desde " & res.Address.ToString & vbNewLine + Else + sRespuesta &= Servidor & ": Sin Respuesta desde " & res.Address.ToString & vbNewLine + End If + Next + Return sRespuesta + Catch ex As Exception + Return ex.StackTrace + End Try + End Function + + Public Shared Sub SetIP(nicName As String, IpAddresses As String, SubnetMask As String, Gateway As String, DnsSearchOrder As String) + Dim mc As New ManagementClass("Win32_NetworkAdapterConfiguration") + Dim moc As ManagementObjectCollection = mc.GetInstances() + + For Each mo As ManagementObject In moc + ' Make sure this is a IP enabled device. + ' Not something like memory card or VM Ware + If DirectCast(mo("IPEnabled"), Boolean) Then + If mo("Caption").Equals(nicName) Then + + Dim newIP As ManagementBaseObject = mo.GetMethodParameters("EnableStatic") + Dim newGate As ManagementBaseObject = mo.GetMethodParameters("SetGateways") + Dim newDNS As ManagementBaseObject = mo.GetMethodParameters("SetDNSServerSearchOrder") + + newGate("DefaultIPGateway") = New String() {Gateway} + newGate("GatewayCostMetric") = New Integer() {1} + + newIP("IPAddress") = IpAddresses.Split(","c) + newIP("SubnetMask") = New String() {SubnetMask} + + newDNS("DNSServerSearchOrder") = DnsSearchOrder.Split(","c) + + Dim setIP__1 As ManagementBaseObject = mo.InvokeMethod("EnableStatic", newIP, Nothing) + Dim setGateways As ManagementBaseObject = mo.InvokeMethod("SetGateways", newGate, Nothing) + Dim setDNS As ManagementBaseObject = mo.InvokeMethod("SetDNSServerSearchOrder", newDNS, Nothing) + + Exit For + End If + End If + Next + End Sub +End Class diff --git a/serv_u.vb b/serv_u.vb new file mode 100644 index 0000000..e46d7d2 --- /dev/null +++ b/serv_u.vb @@ -0,0 +1,364 @@ +Imports System.IO +Public Class serv_u + + Public Shared Sub FTPuserEdit(ByVal Accion As String, ByVal RutaIni As String, ByVal Usuario As String, + ByVal Passwd As String, ByVal HomeDir As String, ByVal IP As String, + ByVal Puerto As String, ByVal Permisos As String, + ByVal RutaActualizaciones As String, + ByVal ConfiguracionAdicional() As String) + Try + If RutaActualizaciones = "" Then RutaActualizaciones = "C:\TECNOSIS\BIN\ACTUALIZACIONES" + Dim SW As StreamWriter + Dim SR As StreamReader + Dim separadores() As Char = {"=", "|"} + Dim linea, p(), dominio(), PassCrypt As String + Dim nomdom As String = "" + Dim numdom As String = "" + Dim encDom, encUser As Boolean + Dim i As Integer + 'Comprobamos que se nos proporciona una accion valida + If Accion = "" Then + Throw New Exception("Acción no especificada: Por favor, indique una " & + "de las posibles acciones (ALTA/BAJA).") + Exit Sub + End If + 'Permisos es una cadena entre 0 y 9 letras en el siguiente orden: RWAMELCDP + 'Las 5 primeras son los acceso a ficheros: Read(R), Write(W), Append(A), Delete(M), Execute(E) + 'Las 3 siguientes son los acceso al directorio: List(L), Create(C), Remove(D) + 'La ultima es el acceso a subdirectorios: Inherit(P) + If Permisos = "" Then + Permisos = "RWAMLCP" + End If + 'Buscamos el dominio al que pertenece el usuario + SR = File.OpenText(RutaIni & "\ServUDaemon.ini") + encDom = False + Do + linea = SR.ReadLine + If linea Is Nothing Then + Exit Do + End If + '=||||||0 + 'dominio(0)=dominio(1)|dominio(2)|dominio(3)|dominio(4)|dominio(5)|dominio(6)|dominio(7) + 'En dominio(0) tendremos la etiqueta del dominio, en dominio(1) tendremos la IP, + 'en dominio(3) el puerto y en dominio(5) el numero de dominio + dominio = linea.Split(separadores) + If dominio.Length > 5 Then + If Not encDom And dominio(1) = IP And dominio(3) = Puerto Then + nomdom = dominio(0) + numdom = dominio(5) + encDom = True + End If + End If + Loop Until encDom + SR.Close() + 'Si hemos encontrado el dominio, copiamos el contenido del fichero hasta llegar + 'a la etiqueta del dominio buscado (si es que existe) + If encDom Then + SR = File.OpenText(RutaIni & "\ServUDaemon.ini") + SW = File.CreateText(RutaIni & "\ServUDaemon.txt") + SW.AutoFlush = True + 'Copiamos lineas hasta llegar a la etiqueta del dominio buscado + encDom = True + Do + linea = SR.ReadLine + 'Si llegamos al final del fichero y no hemos encontrado la etiqueta + 'salimos del bucle e indicamos que no se ha encontrado dicha etiqueta + If IsNothing(linea) Then + encDom = False + Exit Do + End If + SW.WriteLine(linea) + Loop Until linea = "[" & nomdom & "]" + + Select Case Accion.ToUpper + Case "ALTA" + 'Comprobamos que el usuario y la password no estan vacios + If Usuario = "" Or Passwd = "" Then + SR.Close() + SW.Close() + Throw New Exception("Datos incompletos: El usuario o la clave están " & + "vacíos. Por favor, complete ambos campos.") + Exit Sub + End If + 'Si no hemos encontrado la etiqueta del dominio la escribimos, + 'ya que eso significa que aun no hay datos sobre el dominio, + 'y procedemos a dar de alta al nuevo usuario (que es el primero) + If Not encDom Then + SW.WriteLine("[" & nomdom & "]") + SW.WriteLine("User1=" & Usuario & "|1|0") + Else + 'Buscamos el numero de usuarios existentes en el dominio + i = 1 + Do + linea = SR.ReadLine + If IsNothing(linea) Then + 'Si llegamos al final del fichero nos salimos del bucle + Exit Do + ElseIf linea.Substring(0, 1) = "[" Then + 'Si encontramos otra etiqueta nos salimos del bucle + Exit Do + End If + SW.WriteLine(linea) + p = linea.Split(separadores) + 'Comprobamos que el usuario a dar de alta no exista en el dominio + If p(0).Substring(0, 4) = "User" Then + If p(1) = Usuario Then + 'Si existe abortamos el proceso y nos salimos + SR.Close() + SW.Close() + Throw New Exception("Usuario existente: El usuario ya " & + "existe en el dominio actual.") + Exit Sub + Else + 'Si no coincide el nombre incrementamos el contador + i += 1 + End If + End If + Loop + 'Añadimos el nuevo usuario al final de la lista + SW.WriteLine("User" & i & "=" & Usuario & "|1|0") + 'Y si la linea leida no es Nothing la copiamos al fichero destino + If Not IsNothing(linea) Then + SW.WriteLine(linea) + End If + End If + 'Copiamos el resto del fichero + linea = SR.ReadToEnd + SW.Write(linea) + 'Añadimos al final del fichero los datos del nuevo usuario + 'PassCrypt = GeneraMD5(Passwd, False) + PassCrypt = GeneraMD5(Passwd) + SW.WriteLine("[USER=" & Usuario & "|" & numdom & "]") + SW.WriteLine("Password=" & PassCrypt) + SW.WriteLine("HomeDir=" & HomeDir) + SW.WriteLine("NeedSecure=1") + SW.WriteLine("RelPaths=1") + SW.WriteLine("TimeOut=600") + SW.WriteLine("Access1=" & HomeDir & "|" & Permisos.ToUpper) + SW.WriteLine("Access2=" & RutaActualizaciones & "|REL") + For i = 0 To ConfiguracionAdicional.Length - 1 + SW.WriteLine(ConfiguracionAdicional(i)) + Next + Case "BAJA" + 'Comprobamos que el usuario no esta vacio + If Usuario = "" Then + SR.Close() + SW.Close() + Throw New Exception("Datos incompletos: El usuario está vacío. " & + "Por favor, complete el campo.") + Exit Sub + End If + 'Si no hemos encontrado la etiqueta del dominio es que no habia ningun usuario + 'para ese dominio,por tanto, anulamos el proceso de la baja + If Not encDom Then + SR.Close() + SW.Close() + Throw New Exception("Usuario no encontrado: El dominio no tiene ningún " & + "usuario. El proceso de baja se anulará.") + Exit Sub + Else + 'Buscamos el usuario a dar de baja + encUser = False + Do + linea = SR.ReadLine + 'Si llegamos al final del fichero sin encontrar al usuario, + 'es que este no existia y asi lo indicamos + If IsNothing(linea) Then + SR.Close() + SW.Close() + Throw New Exception("Usuario no encontrado: El usuario especificado " & + "no existe en el dominio. El proceso de baja se " & + "anulará.") + Exit Sub + ElseIf linea.Substring(0, 1) = "[" Then + 'Si encontramos otra etiqueta es que no hemos encontrado al usuario + 'en el dominio, avisamos de ello y salimos de la rutina + SR.Close() + SW.Close() + Throw New Exception("Usuario no encontrado: El usuario especificado " & + "no existe en el dominio. El proceso de baja se " & + "anulará.") + Exit Sub + End If + p = linea.Split(separadores) + If p(0).Substring(0, 4) = "User" Then + 'Si es el usuario buscado lo indicamos y no copiamos la linea, + 'en otro caso, copiamos la linea leida + If p(1) = Usuario Then + encUser = True + Else + SW.WriteLine(linea) + End If + Else + SW.WriteLine(linea) + End If + Loop Until encUser + 'Guardo el numero del usuario que damos de baja + i = CInt(p(0).Substring(4)) + 'Reenumeramos al resto de usuarios + Do + linea = SR.ReadLine + p = linea.Split("=") + If IsNothing(linea) Then + 'Si llegamos al final del fichero nos salimos del bucle + Exit Do + ElseIf linea.Substring(0, 1) = "[" Then + 'Si encontramos otra etiqueta nos salimos del bucle + Exit Do + ElseIf p(0).Substring(0, 4) = "User" Then + linea = "User" & i & "=" & p(1) + i += 1 + End If + SW.WriteLine(linea) + Loop + 'Si la ultima linea leida no es Nothing copiamos dicha linea + 'a menos que sea la etiqueta del usuario a dar de baja + If IsNothing(linea) Then + Exit Select + Else + 'Escribo todas las lineas del fichero original hasta encontrar la etiqueta + 'del usuario a dar de baja + Do Until linea = "[USER=" & Usuario & "|" & numdom & "]" + SW.WriteLine(linea) + linea = SR.ReadLine + Loop + 'Leo todas las lineas del bloque correspondiente al usuario a dar de baja + Do + linea = SR.ReadLine + If IsNothing(linea) Then + 'Si llego al final del fichero salgo del bucle + Exit Do + End If + Loop Until linea.Substring(0, 1) = "[" + End If + 'Si la ultima linea leida no es Nothing la copiamos al fichero destino + If Not IsNothing(linea) Then + SW.WriteLine(linea) + End If + 'Copiamos el resto del fichero + linea = SR.ReadToEnd + SW.Write(linea) + End If + Case "MODIFICA" + 'De momento sin uso + SR.Close() + SW.Close() + Throw New Exception("Acción no implementada: Por favor, indique una de " & + "las posibles acciones (ALTA/BAJA).") + Exit Sub + Case Else + SR.Close() + SW.Close() + Throw New Exception("Acción no válida: Por favor, indique una de " & + "las posibles acciones (ALTA/BAJA).") + Exit Sub + End Select + SR.Close() + SW.Close() + File.Copy(RutaIni & "\ServUDaemon.ini", RutaIni & "\ServUDaemon.bak", True) + File.Copy(RutaIni & "\ServUDaemon.txt", RutaIni & "\ServUDaemon.ini", True) + Else + 'Si no hemos encontrado el dominio + Throw New Exception("Dominio no encontrado: No se ha encontrado el dominio " & + "buscado. Verifique los datos de IP y puerto.") + End If + Catch ex As Exception + Throw New Exception("Error: rutina FTPuserEdit" & Chr(10) & Chr(13) & ex.Message) + End Try + End Sub + + Public Shared Function GeneraMD5(ByVal SourceText As String, + ByVal CtrlErrores As Boolean) As String + Try + Dim oMD5, sHashedStr As Object + Dim salt As String + ' create the object + oMD5 = CreateObject("MD5.WSC") + ' The calcMD5 method will hash the given string using MD5. + ' NOTE: The password given by the user in this example would + ' be "test". The two characters prepended to the + ' password ("yy") are the salt. The salt is created + ' by choosing two random characters from a..z. + ' sHashedStr contains the hashed string. + salt = GeneraSalt(CtrlErrores) + sHashedStr = oMD5.calcMD5(salt & SourceText) + ' clean up + oMD5 = Nothing + Return salt & sHashedStr + Catch EX As Exception + If CtrlErrores Then + MsgBox(EX.Message, MsgBoxStyle.Critical, "Error en la rutina GeneraMD5") + Else + Throw New Exception("Error: rutina GeneraMD5" & Chr(10) & Chr(13) & EX.Message) + End If + Return "" + End Try + End Function + Public Shared Function GeneraMD5(ByVal strToHash As String) As String + Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider + Dim salt As String = GeneraSalt(False) + Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(salt & strToHash) + + bytesToHash = md5Obj.ComputeHash(bytesToHash) + + Dim strResult As String = "" + + For Each b As Byte In bytesToHash + strResult += b.ToString("x2") + Next + + Return salt & strResult.ToUpper + End Function + + Public Shared Function getMD5HashANT(ByVal strToHash As String) As String + Try + Dim oMD5, sHashedStr As Object + oMD5 = CreateObject("MD5.WSC") + sHashedStr = oMD5.calcMD5(strToHash) + oMD5 = Nothing + Return sHashedStr + Catch EX As Exception + Throw New Exception("Error: rutina GeneraMD5" & Chr(10) & Chr(13) & EX.Message) + End Try + End Function + + Public Shared Function getMD5Hash(ByVal strToHash As String) As String + Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider + Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash) + + bytesToHash = md5Obj.ComputeHash(bytesToHash) + + Dim strResult As String = "" + + For Each b As Byte In bytesToHash + strResult += b.ToString("x2") + Next + + Return strResult.ToUpper + End Function + + + Private Shared Function GeneraSalt(Optional ByVal CtrlErrores As Boolean = False) As String + Try + Dim p1, p2, li, ls As Integer + Dim s1, s2 As String + Dim cadena As String = "abcdefghijklmnopqrstuvwxyz" + li = 0 + ls = cadena.Length - 1 + p1 = CInt(Int((ls - li + 1) * Rnd() + li)) + p2 = CInt(Int((ls - li + 1) * Rnd() + li)) + s1 = cadena.Substring(p1, 1) + s2 = cadena.Substring(p2, 1) + Return s1 & s2 + Catch ex As Exception + If CtrlErrores Then + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error en la rutina GeneraSalt") + Else + Throw New Exception("Error: rutina GeneraSalt" & Chr(10) & Chr(13) & ex.Message) + End If + Return "" + End Try + End Function + +End Class + diff --git a/sistema.vb b/sistema.vb new file mode 100644 index 0000000..b4ee9ff --- /dev/null +++ b/sistema.vb @@ -0,0 +1,26 @@ +Imports System.Windows.Forms +Imports System.Reflection + +Public Class sistema + Public Shared Function EstadoBateria() As String + Try + Dim t As Type = GetType(System.Windows.Forms.PowerStatus) + Dim pi As PropertyInfo() = t.GetProperties() + Dim i As Integer + Dim sEstado As String = "" + For i = 0 To pi.Length - 1 + Dim propval As Object = pi(i).GetValue(SystemInformation.PowerStatus, Nothing) + sEstado &= pi(i).Name & " = " & propval.ToString & vbCrLf + Next i + Return sEstado + Catch ex As Exception + Throw + End Try + End Function + Public Shared Function PorcentajeBateria() As Integer + Dim power As PowerStatus = SystemInformation.PowerStatus + Dim percent As Single = power.BatteryLifePercent * 100 + Return percent + End Function + +End Class diff --git a/tsBloqueo.vb b/tsBloqueo.vb new file mode 100644 index 0000000..5239402 --- /dev/null +++ b/tsBloqueo.vb @@ -0,0 +1,23 @@ +Public Class tsBloqueo + Public Enum TipoBloqueoEnum As Integer + SIN_AVISOS = 0 + CON_AVISOS = 1 + SOLO_LECTURA_SI_EXISTEN_BLOQUEOS = 2 + End Enum + + Public Enum AccionBloqueEnum As Integer + BLOQUEAR = 0 + DESBLOQUEAR = 1 + COMPRUEBABLOQUEO = 2 + ACTUALIZAVERSION = 3 + End Enum + Public Property Bloqueo As Object + Public Property idSesion As Integer + Public Property Usuario As String + Public Property ip As String + Public Property ExistenOtrosBloqueos As Boolean + Public Property Tipobloqueo As TipoBloqueoEnum + Public Property PermitirGuardarConCambios As Boolean + Public Property Version As Integer + +End Class diff --git a/tsNotificacionesClient.vb b/tsNotificacionesClient.vb new file mode 100644 index 0000000..293e812 --- /dev/null +++ b/tsNotificacionesClient.vb @@ -0,0 +1,130 @@ +Imports System.Configuration +Imports System.Diagnostics +Imports System.IO +Imports System.Net +Imports System.Net.Http +Imports System.Net.Http.Headers +Imports System.Threading.Tasks +Imports Newtonsoft.Json + +Public Class TsNotificacionesClient + + Private ReadOnly _http As HttpClient + Private ReadOnly _idAplicacion As Integer + + Public Sub New(baseUrl As String, idAplicacion As Integer, apiKey As String) + _idAplicacion = idAplicacion + + ServicePointManager.ServerCertificateValidationCallback = Function(s, c, ch, e) True + ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 Or SecurityProtocolType.Tls11 + + _http = New HttpClient() With {.BaseAddress = New Uri(baseUrl)} + _http.DefaultRequestHeaders.Add("X-Api-Key", apiKey) + End Sub + + Public Shared Async Function RegistrarAsync(titulo As String, descripcion As String, tipo As TipoNotificacionEnum, Optional fichero As Byte() = Nothing, Optional incluirEnEventLog As Boolean = True) As Task + Try + ' ============================ + ' CARGAR CONFIGURACIÓN + ' ============================ + Dim apiUrl As String = ConfigurationManager.AppSettings("TsNotificaciones.ApiUrl") + Dim idAplicacion As Integer = Integer.Parse(ConfigurationManager.AppSettings("TsNotificaciones.IdAplicacion")) + Dim aplicacion As String = ConfigurationManager.AppSettings("TsNotificaciones.Aplicacion") + If aplicacion = "" Then aplicacion = "Tecnosis idAplicacion:" & idAplicacion.ToString + Dim apiKey As String = ConfigurationManager.AppSettings("TsNotificaciones.ApiKey") + Dim nombreServidor As String = Environment.MachineName + + If String.IsNullOrEmpty(apiUrl) Then apiUrl = "http://localhost:7159" + + ' ============================ + ' LOG EN EVENT VIEWER + ' ============================ + If incluirEnEventLog Then + Dim ele As EventLogEntryType + + Select Case tipo + Case TipoNotificacionEnum.INFO + ele = EventLogEntryType.Information + Case TipoNotificacionEnum.ADVERTENCIA + ele = EventLogEntryType.Warning + Case TipoNotificacionEnum.ERROR, TipoNotificacionEnum.CRÍTICO + ele = EventLogEntryType.Error + End Select + + ' EventID ≠ 0 para evitar el mensaje de descripción faltante + Dim eventId As Integer = 1000 + CInt(tipo) + + EventLog.WriteEntry("Application", $"{aplicacion} {titulo} {descripcion}", ele, eventId) + End If + + ' ============================ + ' LLAMADA A LA API + ' ============================ + Dim http = New HttpClient() With {.BaseAddress = New Uri(apiUrl)} + http.DefaultRequestHeaders.Add("X-Api-Key", apiKey) + + Dim payload = New With { + .idAplicacion = idAplicacion, + .nombreServidor = nombreServidor, + .ipServidor = ObtenerIp(), + .titulo = titulo, + .descripcion = descripcion, + .tipoNotificacion = CInt(tipo) + } + + Dim json As String = JsonConvert.SerializeObject(payload) + Dim content As New StringContent(json, System.Text.Encoding.UTF8, "application/json") + + Dim response = Await http.PostAsync("/api/alertas/registrar", content) + Dim body As String = Await response.Content.ReadAsStringAsync() + + Dim jsonObj = JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(body) + Dim id As Integer = Convert.ToInt32(jsonObj("id")) + + If fichero IsNot Nothing Then + Await SubirFichero(http, apiKey, id, fichero) + End If + + Catch ex As Exception + Throw New Exception(ex.Message, ex) + End Try + End Function + + Private Shared Async Function SubirFichero(http As HttpClient, apiKey As String, alertaId As Integer, datos As Byte()) As Task + Try + Dim fileContent = New ByteArrayContent(datos) + fileContent.Headers.ContentType = New MediaTypeHeaderValue("image/png") + + Dim multipart = New MultipartFormDataContent() + multipart.Add(fileContent, "archivo", "Imagen.png") + + Dim request = New HttpRequestMessage(HttpMethod.Post, $"/api/alertas/{alertaId}/archivo") + request.Headers.Add("X-Api-Key", apiKey) + request.Content = multipart + + Dim response = Await http.SendAsync(request) + + If Not response.IsSuccessStatusCode Then + Throw New Exception($"Subida fallida ({response.StatusCode}): {Await response.Content.ReadAsStringAsync()}") + End If + + Catch ex As Exception + Throw New Exception(ex.Message, ex) + End Try + End Function + + Private Shared Function ObtenerIp() As String + For Each addr In Dns.GetHostAddresses(Dns.GetHostName()) + If addr.AddressFamily = Sockets.AddressFamily.InterNetwork Then Return addr.ToString() + Next + Return "127.0.0.1" + End Function + + Public Enum TipoNotificacionEnum + INFO = 0 + ADVERTENCIA = 1 + [ERROR] = 2 + CRÍTICO = 3 + End Enum + +End Class diff --git a/tsl5.sln b/tsl5.sln new file mode 100644 index 0000000..f541c26 --- /dev/null +++ b/tsl5.sln @@ -0,0 +1,35 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 17 +VisualStudioVersion = 17.11.35431.28 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "tsl5", "tsl5.vbproj", "{5D8119B9-DFA0-44F7-A1E3-CBB871A305E2}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {5D8119B9-DFA0-44F7-A1E3-CBB871A305E2}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {5D8119B9-DFA0-44F7-A1E3-CBB871A305E2}.Debug|Any CPU.Build.0 = Debug|Any CPU + {5D8119B9-DFA0-44F7-A1E3-CBB871A305E2}.Release|Any CPU.ActiveCfg = Release|Any CPU + {5D8119B9-DFA0-44F7-A1E3-CBB871A305E2}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {1637BF19-DBA7-45E3-935F-A07C0E51E817} + EndGlobalSection + GlobalSection(TeamFoundationVersionControl) = preSolution + SccNumberOfProjects = 1 + SccEnterpriseProvider = {4CA58AB2-18FA-4F8D-95D4-32DDF27D184C} + SccTeamFoundationServer = http://ts-devopss:81/tecnosiscollection + SccProjectUniqueName0 = tsl5.vbproj + SccProjectName0 = . + SccAuxPath0 = http://ts-devopss:81/tecnosiscollection + SccLocalPath0 = . + SccProvider0 = {4CA58AB2-18FA-4F8D-95D4-32DDF27D184C} + EndGlobalSection +EndGlobal diff --git a/tsl5.vbproj b/tsl5.vbproj new file mode 100644 index 0000000..8be0554 --- /dev/null +++ b/tsl5.vbproj @@ -0,0 +1,298 @@ + + + + Debug + AnyCPU + + + + + {5D8119B9-DFA0-44F7-A1E3-CBB871A305E2} + Library + tsl5 + tsl5 + 512 + Windows + v4.8 + SAK + SAK + SAK + SAK + + publicar\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + false + true + + + + + true + full + true + true + bin\Debug\ + tsl5.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + AnyCPU + false + false + + + pdbonly + false + true + true + bin\Release\ + tsl5.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + AnyCPU + false + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + UserControl + + + + + + + + + + + + + True + Application.myapp + True + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + + + + + + + + + + frmIdentificacion.vb + Designer + + + ucBarraGenerica.vb + Designer + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + Designer + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + + + + False + Microsoft .NET Framework 4 %28x86 y x64%29 + true + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + false + + + False + SQL Server Compact 4.0 SP1 + true + + + False + Windows Installer 4.5 + true + + + + + 3.24.4 + + + 5.9.0 + + + 10.0.7 + + + 10.0.7 + + + 4.72.1 + + + 7.0.2 + + + 13.0.3 + + + 2020.0.2 + + + 10.0.7 + + + 10.0.5 + + + + + + False + ..\..\Controles\Binarios\MySQL Connector Net 6.8.3\Assemblies\v4.5\MySql.Data.dll + + + False + ..\..\Controles\Binarios\MySQL Connector Net 6.8.3\Assemblies\v4.5\MySql.Data.Entity.EF5.dll + + + False + ..\..\Controles\Binarios\oracle\bin\Oracle.ManagedDataAccess.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/tsl5.vbproj.bak b/tsl5.vbproj.bak new file mode 100644 index 0000000..55ed870 --- /dev/null +++ b/tsl5.vbproj.bak @@ -0,0 +1,271 @@ + + + + Debug + AnyCPU + + + + + {5D8119B9-DFA0-44F7-A1E3-CBB871A305E2} + Library + tsl5 + tsl5 + 512 + Windows + v4.0 + SAK + SAK + SAK + SAK + + publicar\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + false + true + + + true + full + true + true + bin\Debug\ + tsl5.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + AnyCPU + + + pdbonly + false + true + true + bin\Release\ + tsl5.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + AnyCPU + + + On + + + Binary + + + Off + + + On + + + + False + ..\..\Controles\Binarios\PowerTCP\Dart.PowerTCP.SecureFtp.DLL + + + False + ..\..\Controles\Binarios\PowerTCP\Dart.PowerTCP.SecureFtp.Forms.dll + + + + + + + + False + ..\..\Controles\Binarios\MySQL Connector Net 6.8.3\Assemblies\v4.0\MySql.Data.dll + True + + + ..\..\Controles\Binarios\pdf4net\NET2.0\O2S.Components.PDF4NET.dll + + + ..\..\Clientes\COAATSE\PKICOAATSE\PKICOAATSE.dll + False + + + + + + + + + + + + + + False + ..\..\Controles\Binarios\tsPDF\tsPDF.dll + + + ..\..\Controles\Binarios\ZipForge.NET\Framework 2.0\ZipForge.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + Form + + + UserControl + + + + + + + + True + True + tsl5Model.edmx + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + + + + frmConfiguracionAplicacion.vb + Designer + + + frmIdentificacion.vb + Designer + + + ucBarraGenerica.vb + Designer + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + EntityModelCodeGenerator + tsl5Model.Designer.vb + + + Designer + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + Designer + + + + + + + + + + False + Microsoft .NET Framework 4 %28x86 y x64%29 + true + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + false + + + False + SQL Server Compact 4.0 SP1 + true + + + False + Windows Installer 4.5 + true + + + + + {A7FEA864-066A-4D8B-938D-87006D6CBE69} + cablin4 + + + + + \ No newline at end of file diff --git a/tsl5Model.Designer.vb b/tsl5Model.Designer.vb new file mode 100644 index 0000000..5a92001 --- /dev/null +++ b/tsl5Model.Designer.vb @@ -0,0 +1,1090 @@ + +'------------------------------------------------------------------------------ +' +' Este código se generó a partir de una plantilla. +' +' Los cambios manuales en este archivo pueden causar un comportamiento inesperado de la aplicación. +' Los cambios manuales en este archivo se sobrescribirán si se regenera el código. +' +'------------------------------------------------------------------------------ + +Imports System +Imports System.ComponentModel +Imports System.Data.EntityClient +Imports System.Data.Objects +Imports System.Data.Objects.DataClasses +Imports System.Linq +Imports System.Runtime.Serialization +Imports System.Xml.Serialization + + +#Region "Metadatos de relaciones en EDM" + + + + + + +#End Region + +#Region "Contextos" + +''' +''' No hay documentación de metadatos disponible. +''' +Public Partial Class tsl5Entities + Inherits ObjectContext + + #Region "Constructores" + + ''' + ''' Inicializa un nuevo objeto tsl5Entities usando la cadena de conexión encontrada en la sección 'tsl5Entities' del archivo de configuración de la aplicación. + ''' + Public Sub New() + MyBase.New("name=tsl5Entities", "tsl5Entities") + MyBase.ContextOptions.LazyLoadingEnabled = true + OnContextCreated() + End Sub + + ''' + ''' Inicializar un nuevo objeto tsl5Entities. + ''' + Public Sub New(ByVal connectionString As String) + MyBase.New(connectionString, "tsl5Entities") + MyBase.ContextOptions.LazyLoadingEnabled = true + OnContextCreated() + End Sub + + ''' + ''' Inicializar un nuevo objeto tsl5Entities. + ''' + Public Sub New(ByVal connection As EntityConnection) + MyBase.New(connection, "tsl5Entities") + MyBase.ContextOptions.LazyLoadingEnabled = true + OnContextCreated() + End Sub + + #End Region + + #Region "Métodos parciales" + + Partial Private Sub OnContextCreated() + End Sub + + #End Region + + #Region "Propiedades de ObjectSet" + + ''' + ''' No hay documentación de metadatos disponible. + ''' + Public ReadOnly Property excepcionesmenus() As ObjectSet(Of excepcionesmenus) + Get + If (_excepcionesmenus Is Nothing) Then + _excepcionesmenus = MyBase.CreateObjectSet(Of excepcionesmenus)("excepcionesmenus") + End If + Return _excepcionesmenus + End Get + End Property + + Private _excepcionesmenus As ObjectSet(Of excepcionesmenus) + + ''' + ''' No hay documentación de metadatos disponible. + ''' + Public ReadOnly Property grupobd() As ObjectSet(Of grupobd) + Get + If (_grupobd Is Nothing) Then + _grupobd = MyBase.CreateObjectSet(Of grupobd)("grupobd") + End If + Return _grupobd + End Get + End Property + + Private _grupobd As ObjectSet(Of grupobd) + + ''' + ''' No hay documentación de metadatos disponible. + ''' + Public ReadOnly Property gruposmenus() As ObjectSet(Of gruposmenus) + Get + If (_gruposmenus Is Nothing) Then + _gruposmenus = MyBase.CreateObjectSet(Of gruposmenus)("gruposmenus") + End If + Return _gruposmenus + End Get + End Property + + Private _gruposmenus As ObjectSet(Of gruposmenus) + + ''' + ''' No hay documentación de metadatos disponible. + ''' + Public ReadOnly Property menus() As ObjectSet(Of menus) + Get + If (_menus Is Nothing) Then + _menus = MyBase.CreateObjectSet(Of menus)("menus") + End If + Return _menus + End Get + End Property + + Private _menus As ObjectSet(Of menus) + + ''' + ''' No hay documentación de metadatos disponible. + ''' + Public ReadOnly Property usuarios() As ObjectSet(Of usuarios) + Get + If (_usuarios Is Nothing) Then + _usuarios = MyBase.CreateObjectSet(Of usuarios)("usuarios") + End If + Return _usuarios + End Get + End Property + + Private _usuarios As ObjectSet(Of usuarios) + + #End Region + + #Region "Métodos AddTo" + + ''' + ''' Método desusado para agregar un nuevo objeto al EntitySet excepcionesmenus. Considere la posibilidad de usar el método .Add de la propiedad ObjectSet(Of T) asociada. + ''' + Public Sub AddToexcepcionesmenus(ByVal excepcionesmenus As excepcionesmenus) + MyBase.AddObject("excepcionesmenus", excepcionesmenus) + End Sub + + ''' + ''' Método desusado para agregar un nuevo objeto al EntitySet grupobd. Considere la posibilidad de usar el método .Add de la propiedad ObjectSet(Of T) asociada. + ''' + Public Sub AddTogrupobd(ByVal grupobd As grupobd) + MyBase.AddObject("grupobd", grupobd) + End Sub + + ''' + ''' Método desusado para agregar un nuevo objeto al EntitySet gruposmenus. Considere la posibilidad de usar el método .Add de la propiedad ObjectSet(Of T) asociada. + ''' + Public Sub AddTogruposmenus(ByVal gruposmenus As gruposmenus) + MyBase.AddObject("gruposmenus", gruposmenus) + End Sub + + ''' + ''' Método desusado para agregar un nuevo objeto al EntitySet menus. Considere la posibilidad de usar el método .Add de la propiedad ObjectSet(Of T) asociada. + ''' + Public Sub AddTomenus(ByVal menus As menus) + MyBase.AddObject("menus", menus) + End Sub + + ''' + ''' Método desusado para agregar un nuevo objeto al EntitySet usuarios. Considere la posibilidad de usar el método .Add de la propiedad ObjectSet(Of T) asociada. + ''' + Public Sub AddTousuarios(ByVal usuarios As usuarios) + MyBase.AddObject("usuarios", usuarios) + End Sub + + #End Region + +End Class + +#End Region + +#Region "Entidades" + +''' +''' No hay documentación de metadatos disponible. +''' + + + +Public Partial Class excepcionesmenus + Inherits EntityObject + #Region "Método de generador" + + ''' + ''' Crear un nuevo objeto excepcionesmenus. + ''' + ''' Valor inicial de la propiedad idExcepcionesMenus. + Public Shared Function Createexcepcionesmenus(idExcepcionesMenus As Global.System.Int32) As excepcionesmenus + Dim excepcionesmenus as excepcionesmenus = New excepcionesmenus + excepcionesmenus.idExcepcionesMenus = idExcepcionesMenus + Return excepcionesmenus + End Function + + #End Region + + #Region "Propiedades simples" + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property idExcepcionesMenus() As Global.System.Int32 + Get + Return _idExcepcionesMenus + End Get + Set + If (_idExcepcionesMenus <> Value) Then + OnidExcepcionesMenusChanging(value) + ReportPropertyChanging("idExcepcionesMenus") + _idExcepcionesMenus = StructuralObject.SetValidValue(value, "idExcepcionesMenus") + ReportPropertyChanged("idExcepcionesMenus") + OnidExcepcionesMenusChanged() + End If + End Set + End Property + + Private _idExcepcionesMenus As Global.System.Int32 + Private Partial Sub OnidExcepcionesMenusChanging(value As Global.System.Int32) + End Sub + + Private Partial Sub OnidExcepcionesMenusChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property idMenu() As Nullable(Of Global.System.Int32) + Get + Return _idMenu + End Get + Set + OnidMenuChanging(value) + ReportPropertyChanging("idMenu") + _idMenu = StructuralObject.SetValidValue(value, "idMenu") + ReportPropertyChanged("idMenu") + OnidMenuChanged() + End Set + End Property + + Private _idMenu As Nullable(Of Global.System.Int32) + Private Partial Sub OnidMenuChanging(value As Nullable(Of Global.System.Int32)) + End Sub + + Private Partial Sub OnidMenuChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property idUsuario() As Nullable(Of Global.System.Int32) + Get + Return _idUsuario + End Get + Set + OnidUsuarioChanging(value) + ReportPropertyChanging("idUsuario") + _idUsuario = StructuralObject.SetValidValue(value, "idUsuario") + ReportPropertyChanged("idUsuario") + OnidUsuarioChanged() + End Set + End Property + + Private _idUsuario As Nullable(Of Global.System.Int32) + Private Partial Sub OnidUsuarioChanging(value As Nullable(Of Global.System.Int32)) + End Sub + + Private Partial Sub OnidUsuarioChanged() + End Sub + + #End Region + + #Region "Propiedades de navegación" + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + + + Public Property menus() As menus + Get + Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of menus)("tsl5Model.excepcionesmenus_menus", "menus").Value + End Get + Set + CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of menus)("tsl5Model.excepcionesmenus_menus", "menus").Value = value + End Set + End Property + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property menusReference() As EntityReference(Of menus) + Get + Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of menus)("tsl5Model.excepcionesmenus_menus", "menus") + End Get + Set + If (Not value Is Nothing) + CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of menus)("tsl5Model.excepcionesmenus_menus", "menus", value) + End If + End Set + End Property + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + + + Public Property usuarios() As usuarios + Get + Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of usuarios)("tsl5Model.excepcionesmenus_usuarios", "usuarios").Value + End Get + Set + CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of usuarios)("tsl5Model.excepcionesmenus_usuarios", "usuarios").Value = value + End Set + End Property + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property usuariosReference() As EntityReference(Of usuarios) + Get + Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of usuarios)("tsl5Model.excepcionesmenus_usuarios", "usuarios") + End Get + Set + If (Not value Is Nothing) + CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of usuarios)("tsl5Model.excepcionesmenus_usuarios", "usuarios", value) + End If + End Set + End Property + + #End Region + +End Class + +''' +''' No hay documentación de metadatos disponible. +''' + + + +Public Partial Class grupobd + Inherits EntityObject + #Region "Método de generador" + + ''' + ''' Crear un nuevo objeto grupobd. + ''' + ''' Valor inicial de la propiedad idGrupoBD. + Public Shared Function Creategrupobd(idGrupoBD As Global.System.Int32) As grupobd + Dim grupobd as grupobd = New grupobd + grupobd.idGrupoBD = idGrupoBD + Return grupobd + End Function + + #End Region + + #Region "Propiedades simples" + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property idGrupoBD() As Global.System.Int32 + Get + Return _idGrupoBD + End Get + Set + If (_idGrupoBD <> Value) Then + OnidGrupoBDChanging(value) + ReportPropertyChanging("idGrupoBD") + _idGrupoBD = StructuralObject.SetValidValue(value, "idGrupoBD") + ReportPropertyChanged("idGrupoBD") + OnidGrupoBDChanged() + End If + End Set + End Property + + Private _idGrupoBD As Global.System.Int32 + Private Partial Sub OnidGrupoBDChanging(value As Global.System.Int32) + End Sub + + Private Partial Sub OnidGrupoBDChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property Descripcion() As Global.System.String + Get + Return _Descripcion + End Get + Set + OnDescripcionChanging(value) + ReportPropertyChanging("Descripcion") + _Descripcion = StructuralObject.SetValidValue(value, true, "Descripcion") + ReportPropertyChanged("Descripcion") + OnDescripcionChanged() + End Set + End Property + + Private _Descripcion As Global.System.String + Private Partial Sub OnDescripcionChanging(value As Global.System.String) + End Sub + + Private Partial Sub OnDescripcionChanged() + End Sub + + #End Region + + #Region "Propiedades de navegación" + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + + + Public Property usuarios() As EntityCollection(Of usuarios) + Get + Return CType(Me,IEntityWithRelationships).RelationshipManager.GetRelatedCollection(Of usuarios)("tsl5Model.Usuarios_Grupobd", "usuarios") + End Get + Set + If (Not value Is Nothing) + CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedCollection(Of usuarios)("tsl5Model.Usuarios_Grupobd", "usuarios", value) + End If + End Set + End Property + + #End Region + +End Class + +''' +''' No hay documentación de metadatos disponible. +''' + + + +Public Partial Class gruposmenus + Inherits EntityObject + #Region "Método de generador" + + ''' + ''' Crear un nuevo objeto gruposmenus. + ''' + ''' Valor inicial de la propiedad idGruposMenus. + Public Shared Function Creategruposmenus(idGruposMenus As Global.System.Int32) As gruposmenus + Dim gruposmenus as gruposmenus = New gruposmenus + gruposmenus.idGruposMenus = idGruposMenus + Return gruposmenus + End Function + + #End Region + + #Region "Propiedades simples" + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property idGruposMenus() As Global.System.Int32 + Get + Return _idGruposMenus + End Get + Set + If (_idGruposMenus <> Value) Then + OnidGruposMenusChanging(value) + ReportPropertyChanging("idGruposMenus") + _idGruposMenus = StructuralObject.SetValidValue(value, "idGruposMenus") + ReportPropertyChanged("idGruposMenus") + OnidGruposMenusChanged() + End If + End Set + End Property + + Private _idGruposMenus As Global.System.Int32 + Private Partial Sub OnidGruposMenusChanging(value As Global.System.Int32) + End Sub + + Private Partial Sub OnidGruposMenusChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property Descripcion() As Global.System.String + Get + Return _Descripcion + End Get + Set + OnDescripcionChanging(value) + ReportPropertyChanging("Descripcion") + _Descripcion = StructuralObject.SetValidValue(value, true, "Descripcion") + ReportPropertyChanged("Descripcion") + OnDescripcionChanged() + End Set + End Property + + Private _Descripcion As Global.System.String + Private Partial Sub OnDescripcionChanging(value As Global.System.String) + End Sub + + Private Partial Sub OnDescripcionChanged() + End Sub + + #End Region + + #Region "Propiedades de navegación" + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + + + Public Property menus() As EntityCollection(Of menus) + Get + Return CType(Me,IEntityWithRelationships).RelationshipManager.GetRelatedCollection(Of menus)("tsl5Model.Menus_GruposMenus", "menus") + End Get + Set + If (Not value Is Nothing) + CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedCollection(Of menus)("tsl5Model.Menus_GruposMenus", "menus", value) + End If + End Set + End Property + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + + + Public Property usuarios() As EntityCollection(Of usuarios) + Get + Return CType(Me,IEntityWithRelationships).RelationshipManager.GetRelatedCollection(Of usuarios)("tsl5Model.usuarios_gruposmenus", "usuarios") + End Get + Set + If (Not value Is Nothing) + CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedCollection(Of usuarios)("tsl5Model.usuarios_gruposmenus", "usuarios", value) + End If + End Set + End Property + + #End Region + +End Class + +''' +''' No hay documentación de metadatos disponible. +''' + + + +Public Partial Class menus + Inherits EntityObject + #Region "Método de generador" + + ''' + ''' Crear un nuevo objeto menus. + ''' + ''' Valor inicial de la propiedad idMenus. + Public Shared Function Createmenus(idMenus As Global.System.Int32) As menus + Dim menus as menus = New menus + menus.idMenus = idMenus + Return menus + End Function + + #End Region + + #Region "Propiedades simples" + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property idMenus() As Global.System.Int32 + Get + Return _idMenus + End Get + Set + If (_idMenus <> Value) Then + OnidMenusChanging(value) + ReportPropertyChanging("idMenus") + _idMenus = StructuralObject.SetValidValue(value, "idMenus") + ReportPropertyChanged("idMenus") + OnidMenusChanged() + End If + End Set + End Property + + Private _idMenus As Global.System.Int32 + Private Partial Sub OnidMenusChanging(value As Global.System.Int32) + End Sub + + Private Partial Sub OnidMenusChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property Texto() As Global.System.String + Get + Return _Texto + End Get + Set + OnTextoChanging(value) + ReportPropertyChanging("Texto") + _Texto = StructuralObject.SetValidValue(value, true, "Texto") + ReportPropertyChanged("Texto") + OnTextoChanged() + End Set + End Property + + Private _Texto As Global.System.String + Private Partial Sub OnTextoChanging(value As Global.System.String) + End Sub + + Private Partial Sub OnTextoChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property Ayuda() As Global.System.String + Get + Return _Ayuda + End Get + Set + OnAyudaChanging(value) + ReportPropertyChanging("Ayuda") + _Ayuda = StructuralObject.SetValidValue(value, true, "Ayuda") + ReportPropertyChanged("Ayuda") + OnAyudaChanged() + End Set + End Property + + Private _Ayuda As Global.System.String + Private Partial Sub OnAyudaChanging(value As Global.System.String) + End Sub + + Private Partial Sub OnAyudaChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property Accion() As Global.System.String + Get + Return _Accion + End Get + Set + OnAccionChanging(value) + ReportPropertyChanging("Accion") + _Accion = StructuralObject.SetValidValue(value, true, "Accion") + ReportPropertyChanged("Accion") + OnAccionChanged() + End Set + End Property + + Private _Accion As Global.System.String + Private Partial Sub OnAccionChanging(value As Global.System.String) + End Sub + + Private Partial Sub OnAccionChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property Orden() As Nullable(Of Global.System.Int32) + Get + Return _Orden + End Get + Set + OnOrdenChanging(value) + ReportPropertyChanging("Orden") + _Orden = StructuralObject.SetValidValue(value, "Orden") + ReportPropertyChanged("Orden") + OnOrdenChanged() + End Set + End Property + + Private _Orden As Nullable(Of Global.System.Int32) + Private Partial Sub OnOrdenChanging(value As Nullable(Of Global.System.Int32)) + End Sub + + Private Partial Sub OnOrdenChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property idMenuPadre() As Nullable(Of Global.System.Int32) + Get + Return _idMenuPadre + End Get + Set + OnidMenuPadreChanging(value) + ReportPropertyChanging("idMenuPadre") + _idMenuPadre = StructuralObject.SetValidValue(value, "idMenuPadre") + ReportPropertyChanged("idMenuPadre") + OnidMenuPadreChanged() + End Set + End Property + + Private _idMenuPadre As Nullable(Of Global.System.Int32) + Private Partial Sub OnidMenuPadreChanging(value As Nullable(Of Global.System.Int32)) + End Sub + + Private Partial Sub OnidMenuPadreChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property idGrupoMenu() As Nullable(Of Global.System.Int32) + Get + Return _idGrupoMenu + End Get + Set + OnidGrupoMenuChanging(value) + ReportPropertyChanging("idGrupoMenu") + _idGrupoMenu = StructuralObject.SetValidValue(value, "idGrupoMenu") + ReportPropertyChanged("idGrupoMenu") + OnidGrupoMenuChanged() + End Set + End Property + + Private _idGrupoMenu As Nullable(Of Global.System.Int32) + Private Partial Sub OnidGrupoMenuChanging(value As Nullable(Of Global.System.Int32)) + End Sub + + Private Partial Sub OnidGrupoMenuChanged() + End Sub + + #End Region + + #Region "Propiedades de navegación" + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + + + Public Property excepcionesmenus() As EntityCollection(Of excepcionesmenus) + Get + Return CType(Me,IEntityWithRelationships).RelationshipManager.GetRelatedCollection(Of excepcionesmenus)("tsl5Model.excepcionesmenus_menus", "excepcionesmenus") + End Get + Set + If (Not value Is Nothing) + CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedCollection(Of excepcionesmenus)("tsl5Model.excepcionesmenus_menus", "excepcionesmenus", value) + End If + End Set + End Property + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + + + Public Property gruposmenus() As gruposmenus + Get + Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.Menus_GruposMenus", "gruposmenus").Value + End Get + Set + CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.Menus_GruposMenus", "gruposmenus").Value = value + End Set + End Property + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property gruposmenusReference() As EntityReference(Of gruposmenus) + Get + Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.Menus_GruposMenus", "gruposmenus") + End Get + Set + If (Not value Is Nothing) + CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of gruposmenus)("tsl5Model.Menus_GruposMenus", "gruposmenus", value) + End If + End Set + End Property + + #End Region + +End Class + +''' +''' No hay documentación de metadatos disponible. +''' + + + +Public Partial Class usuarios + Inherits EntityObject + #Region "Método de generador" + + ''' + ''' Crear un nuevo objeto usuarios. + ''' + ''' Valor inicial de la propiedad idUsuarios. + ''' Valor inicial de la propiedad Usuario. + ''' Valor inicial de la propiedad idGrupobd. + Public Shared Function Createusuarios(idUsuarios As Global.System.Int32, usuario As Global.System.String, idGrupobd As Global.System.Int32) As usuarios + Dim usuarios as usuarios = New usuarios + usuarios.idUsuarios = idUsuarios + usuarios.Usuario = usuario + usuarios.idGrupobd = idGrupobd + Return usuarios + End Function + + #End Region + + #Region "Propiedades simples" + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property idUsuarios() As Global.System.Int32 + Get + Return _idUsuarios + End Get + Set + If (_idUsuarios <> Value) Then + OnidUsuariosChanging(value) + ReportPropertyChanging("idUsuarios") + _idUsuarios = StructuralObject.SetValidValue(value, "idUsuarios") + ReportPropertyChanged("idUsuarios") + OnidUsuariosChanged() + End If + End Set + End Property + + Private _idUsuarios As Global.System.Int32 + Private Partial Sub OnidUsuariosChanging(value As Global.System.Int32) + End Sub + + Private Partial Sub OnidUsuariosChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property Usuario() As Global.System.String + Get + Return _Usuario + End Get + Set + OnUsuarioChanging(value) + ReportPropertyChanging("Usuario") + _Usuario = StructuralObject.SetValidValue(value, false, "Usuario") + ReportPropertyChanged("Usuario") + OnUsuarioChanged() + End Set + End Property + + Private _Usuario As Global.System.String + Private Partial Sub OnUsuarioChanging(value As Global.System.String) + End Sub + + Private Partial Sub OnUsuarioChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property SHA1Passwd() As Global.System.String + Get + Return _SHA1Passwd + End Get + Set + OnSHA1PasswdChanging(value) + ReportPropertyChanging("SHA1Passwd") + _SHA1Passwd = StructuralObject.SetValidValue(value, true, "SHA1Passwd") + ReportPropertyChanged("SHA1Passwd") + OnSHA1PasswdChanged() + End Set + End Property + + Private _SHA1Passwd As Global.System.String + Private Partial Sub OnSHA1PasswdChanging(value As Global.System.String) + End Sub + + Private Partial Sub OnSHA1PasswdChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property idGrupobd() As Global.System.Int32 + Get + Return _idGrupobd + End Get + Set + OnidGrupobdChanging(value) + ReportPropertyChanging("idGrupobd") + _idGrupobd = StructuralObject.SetValidValue(value, "idGrupobd") + ReportPropertyChanged("idGrupobd") + OnidGrupobdChanged() + End Set + End Property + + Private _idGrupobd As Global.System.Int32 + Private Partial Sub OnidGrupobdChanging(value As Global.System.Int32) + End Sub + + Private Partial Sub OnidGrupobdChanged() + End Sub + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property idGrupomenus() As Nullable(Of Global.System.Int32) + Get + Return _idGrupomenus + End Get + Set + OnidGrupomenusChanging(value) + ReportPropertyChanging("idGrupomenus") + _idGrupomenus = StructuralObject.SetValidValue(value, "idGrupomenus") + ReportPropertyChanged("idGrupomenus") + OnidGrupomenusChanged() + End Set + End Property + + Private _idGrupomenus As Nullable(Of Global.System.Int32) + Private Partial Sub OnidGrupomenusChanging(value As Nullable(Of Global.System.Int32)) + End Sub + + Private Partial Sub OnidGrupomenusChanged() + End Sub + + #End Region + + #Region "Propiedades de navegación" + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + + + Public Property excepcionesmenus() As EntityCollection(Of excepcionesmenus) + Get + Return CType(Me,IEntityWithRelationships).RelationshipManager.GetRelatedCollection(Of excepcionesmenus)("tsl5Model.excepcionesmenus_usuarios", "excepcionesmenus") + End Get + Set + If (Not value Is Nothing) + CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedCollection(Of excepcionesmenus)("tsl5Model.excepcionesmenus_usuarios", "excepcionesmenus", value) + End If + End Set + End Property + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + + + Public Property grupobd() As grupobd + Get + Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of grupobd)("tsl5Model.Usuarios_Grupobd", "grupobd").Value + End Get + Set + CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of grupobd)("tsl5Model.Usuarios_Grupobd", "grupobd").Value = value + End Set + End Property + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property grupobdReference() As EntityReference(Of grupobd) + Get + Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of grupobd)("tsl5Model.Usuarios_Grupobd", "grupobd") + End Get + Set + If (Not value Is Nothing) + CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of grupobd)("tsl5Model.Usuarios_Grupobd", "grupobd", value) + End If + End Set + End Property + + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + + + Public Property gruposmenus() As gruposmenus + Get + Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.usuarios_gruposmenus", "gruposmenus").Value + End Get + Set + CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.usuarios_gruposmenus", "gruposmenus").Value = value + End Set + End Property + ''' + ''' No hay documentación de metadatos disponible. + ''' + + + Public Property gruposmenusReference() As EntityReference(Of gruposmenus) + Get + Return CType(Me, IEntityWithRelationships).RelationshipManager.GetRelatedReference(Of gruposmenus)("tsl5Model.usuarios_gruposmenus", "gruposmenus") + End Get + Set + If (Not value Is Nothing) + CType(Me, IEntityWithRelationships).RelationshipManager.InitializeRelatedReference(Of gruposmenus)("tsl5Model.usuarios_gruposmenus", "gruposmenus", value) + End If + End Set + End Property + + #End Region + +End Class + +#End Region + diff --git a/tsl5Model.edmx b/tsl5Model.edmx new file mode 100644 index 0000000..45bd8a3 --- /dev/null +++ b/tsl5Model.edmx @@ -0,0 +1,375 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/tsl5Model.edmx.sqlce b/tsl5Model.edmx.sqlce new file mode 100644 index 0000000..812d306 --- /dev/null +++ b/tsl5Model.edmx.sqlce @@ -0,0 +1,200 @@ + +-- -------------------------------------------------- +-- Entity Designer DDL Script for SQL Server Compact Edition +-- -------------------------------------------------- +-- Date Created: 02/25/2013 12:31:59 +-- Generated from EDMX file: C:\tecnosis.tfs\Comun\tsl5\tsl5Model.edmx +-- -------------------------------------------------- + + +-- -------------------------------------------------- +-- Dropping existing FOREIGN KEY constraints +-- NOTE: if the constraint does not exist, an ignorable error will be reported. +-- -------------------------------------------------- + + ALTER TABLE [excepcionesmenus] DROP CONSTRAINT [FK_excepcionesmenus_menus]; +GO + ALTER TABLE [excepcionesmenus] DROP CONSTRAINT [FK_excepcionesmenus_usuarios]; +GO + ALTER TABLE [menus] DROP CONSTRAINT [FK_Menus_GruposMenus]; +GO + ALTER TABLE [usuarios] DROP CONSTRAINT [FK_Usuarios_Grupobd]; +GO + ALTER TABLE [usuarios] DROP CONSTRAINT [FK_usuarios_gruposmenus]; +GO + +-- -------------------------------------------------- +-- Dropping existing tables +-- NOTE: if the table does not exist, an ignorable error will be reported. +-- -------------------------------------------------- + + DROP TABLE [excepcionesmenus]; +GO + DROP TABLE [grupobd]; +GO + DROP TABLE [gruposmenus]; +GO + DROP TABLE [menus]; +GO + DROP TABLE [usuarios]; +GO + +-- -------------------------------------------------- +-- Creating all tables +-- -------------------------------------------------- + +-- Creating table 'excepcionesmenus' +CREATE TABLE [excepcionesmenus] ( + [idExcepcionesMenus] int NOT NULL, + [idMenu] int NULL, + [idUsuario] int NULL +); +GO + +-- Creating table 'grupobd' +CREATE TABLE [grupobd] ( + [idGrupoBD] int IDENTITY(1,1) NOT NULL, + [Descripcion] nvarchar(4000) NULL +); +GO + +-- Creating table 'gruposmenus' +CREATE TABLE [gruposmenus] ( + [idGruposMenus] int IDENTITY(1,1) NOT NULL, + [Descripcion] nvarchar(4000) NULL +); +GO + +-- Creating table 'menus' +CREATE TABLE [menus] ( + [idMenus] int IDENTITY(1,1) NOT NULL, + [Texto] nvarchar(4000) NULL, + [Ayuda] nvarchar(4000) NULL, + [Accion] nvarchar(4000) NULL, + [Orden] int NULL, + [idMenuPadre] int NULL, + [idGrupoMenu] int NULL +); +GO + +-- Creating table 'usuarios' +CREATE TABLE [usuarios] ( + [idUsuarios] int IDENTITY(1,1) NOT NULL, + [Usuario] nvarchar(4000) NOT NULL, + [SHA1Passwd] nvarchar(4000) NULL, + [idGrupobd] int NOT NULL, + [idGrupomenus] int NULL +); +GO + +-- -------------------------------------------------- +-- Creating all PRIMARY KEY constraints +-- -------------------------------------------------- + +-- Creating primary key on [idExcepcionesMenus] in table 'excepcionesmenus' +ALTER TABLE [excepcionesmenus] +ADD CONSTRAINT [PK_excepcionesmenus] + PRIMARY KEY ([idExcepcionesMenus] ); +GO + +-- Creating primary key on [idGrupoBD] in table 'grupobd' +ALTER TABLE [grupobd] +ADD CONSTRAINT [PK_grupobd] + PRIMARY KEY ([idGrupoBD] ); +GO + +-- Creating primary key on [idGruposMenus] in table 'gruposmenus' +ALTER TABLE [gruposmenus] +ADD CONSTRAINT [PK_gruposmenus] + PRIMARY KEY ([idGruposMenus] ); +GO + +-- Creating primary key on [idMenus] in table 'menus' +ALTER TABLE [menus] +ADD CONSTRAINT [PK_menus] + PRIMARY KEY ([idMenus] ); +GO + +-- Creating primary key on [idUsuarios] in table 'usuarios' +ALTER TABLE [usuarios] +ADD CONSTRAINT [PK_usuarios] + PRIMARY KEY ([idUsuarios] ); +GO + +-- -------------------------------------------------- +-- Creating all FOREIGN KEY constraints +-- -------------------------------------------------- + +-- Creating foreign key on [idMenu] in table 'excepcionesmenus' +ALTER TABLE [excepcionesmenus] +ADD CONSTRAINT [FK_excepcionesmenus_menus] + FOREIGN KEY ([idMenu]) + REFERENCES [menus] + ([idMenus]) + ON DELETE NO ACTION ON UPDATE NO ACTION; + +-- Creating non-clustered index for FOREIGN KEY 'FK_excepcionesmenus_menus' +CREATE INDEX [IX_FK_excepcionesmenus_menus] +ON [excepcionesmenus] + ([idMenu]); +GO + +-- Creating foreign key on [idUsuario] in table 'excepcionesmenus' +ALTER TABLE [excepcionesmenus] +ADD CONSTRAINT [FK_excepcionesmenus_usuarios] + FOREIGN KEY ([idUsuario]) + REFERENCES [usuarios] + ([idUsuarios]) + ON DELETE NO ACTION ON UPDATE NO ACTION; + +-- Creating non-clustered index for FOREIGN KEY 'FK_excepcionesmenus_usuarios' +CREATE INDEX [IX_FK_excepcionesmenus_usuarios] +ON [excepcionesmenus] + ([idUsuario]); +GO + +-- Creating foreign key on [idGrupobd] in table 'usuarios' +ALTER TABLE [usuarios] +ADD CONSTRAINT [FK_Usuarios_Grupobd] + FOREIGN KEY ([idGrupobd]) + REFERENCES [grupobd] + ([idGrupoBD]) + ON DELETE NO ACTION ON UPDATE NO ACTION; + +-- Creating non-clustered index for FOREIGN KEY 'FK_Usuarios_Grupobd' +CREATE INDEX [IX_FK_Usuarios_Grupobd] +ON [usuarios] + ([idGrupobd]); +GO + +-- Creating foreign key on [idGrupoMenu] in table 'menus' +ALTER TABLE [menus] +ADD CONSTRAINT [FK_Menus_GruposMenus] + FOREIGN KEY ([idGrupoMenu]) + REFERENCES [gruposmenus] + ([idGruposMenus]) + ON DELETE NO ACTION ON UPDATE NO ACTION; + +-- Creating non-clustered index for FOREIGN KEY 'FK_Menus_GruposMenus' +CREATE INDEX [IX_FK_Menus_GruposMenus] +ON [menus] + ([idGrupoMenu]); +GO + +-- Creating foreign key on [idGrupomenus] in table 'usuarios' +ALTER TABLE [usuarios] +ADD CONSTRAINT [FK_usuarios_gruposmenus] + FOREIGN KEY ([idGrupomenus]) + REFERENCES [gruposmenus] + ([idGruposMenus]) + ON DELETE NO ACTION ON UPDATE NO ACTION; + +-- Creating non-clustered index for FOREIGN KEY 'FK_usuarios_gruposmenus' +CREATE INDEX [IX_FK_usuarios_gruposmenus] +ON [usuarios] + ([idGrupomenus]); +GO + +-- -------------------------------------------------- +-- Script has ended +-- -------------------------------------------------- \ No newline at end of file diff --git a/xhtml.vb b/xhtml.vb new file mode 100644 index 0000000..df5b7b0 --- /dev/null +++ b/xhtml.vb @@ -0,0 +1,71 @@ +Imports System.IO + +Public Class xhtml + + + Public Shared Sub CrearXHTML(FicheroPlantilla As Byte(), FicheroDestino As String, Bloques() As BloquesXHTML) + Dim tr As System.IO.TextReader = New IO.StreamReader(New MemoryStream(FicheroPlantilla)) + CrearXHTML(tr, FicheroDestino, Bloques) + tr.Close() + End Sub + Public Shared Sub CrearXHTML(FicheroPlantilla As String, FicheroDestino As String, Bloques() As BloquesXHTML) + Dim tr As System.IO.TextReader = System.IO.File.OpenText(FicheroPlantilla) + CrearXHTML(tr, FicheroDestino, Bloques) + tr.Close() + End Sub + Public Shared Sub CrearXHTML(tr As System.IO.TextReader, FicheroDestino As String, Bloques() As BloquesXHTML) + Try + 'Dim clsReader As System.IO.TextReader = System.IO.File.OpenText(FicheroPlantilla) + Dim clsWriter As System.IO.TextWriter = System.IO.File.CreateText(FicheroDestino) + Dim blqs As New Hashtable + + Dim sLinea As String = tr.ReadLine() & vbCrLf + ' CABECERA + Dim sBloqueCabecera As String = "" + While Not sLinea.Contains("