Clase con funciones auxiliares

Utils.vb

Imports System.IO
Imports System.Security.Cryptography




Public Class Utils

    Public Shared Function LeftPad(ByVal str As String, ByVal tamanio As Integer, ByVal caracter As String) As String
        Dim output As String = str
        For i = str.Length To (tamanio - 1)
            output = caracter & output
        Next
        Return output
    End Function

    Public Shared Function RightPad(ByVal str As String, ByVal tamanio As Integer, ByVal caracter As String) As String
        Dim output As String = str
        For i = str.Length To (tamanio - 1)
            output = output & caracter
        Next
        Return output
    End Function

    Public Shared Function DateTo8601(ByVal fecha As Date) As Integer
        Return CInt(fecha.Year & LeftPad(fecha.Month.ToString, 2, "0") & LeftPad(fecha.Day.ToString, 2, "0"))
    End Function

    Public Shared Function Int8601ToDate(ByVal fecha As Integer) As Date
        If (fecha > 20000000) Then
            Return Date.Parse(fecha.ToString.Insert(6, "-").Insert(4, "-"))
        Else
            Return Now
        End If
    End Function

    Public Shared Function TimeTo8601(ByVal hora As Date) As Integer
        Return CInt(LeftPad(hora.Hour, 2, "0") & LeftPad(hora.Minute, 2, "0") & LeftPad(hora.Second, 2, "0"))
    End Function

    Public Shared Function ComponerNumeroComprobante(ByVal pventa As Integer, ByVal numero As Integer) As String
        Return LeftPad(pventa, 4, "0") & "-" & LeftPad(numero, 8, "0")
    End Function

    Public Shared Function IvaToIndex(ByVal condicion As String) As Integer
        Select Case condicion
            Case "N/A"
                Return 0
            Case "Monotributo"
                Return 1
            Case "Responsable Inscripto"
                Return 2
            Case "Exento"
                Return 3
            Case "Consumidor Final"
                Return 4
            Case "No alcanzado"
                Return 5
            Case Else
                Return 0
        End Select
    End Function


    Public Shared Function ToMoneyFormat(ByVal val As Decimal) As String
        Dim out As String = String.Format("{0:C2}", val)

        If Not out.Contains("$") Then
            Dim p1 As String = out.Split(" ")(0).Trim.Trim.Replace(",", ".")
            Dim p2 As String = out.Split(" ")(1).Trim.Replace(",", ".")
            If IsNumeric(p1) Then
                out = $"$ {p1.Remove(p1.Length - 3, 1).Insert(p1.Length - 3, ",")}"
            Else
                out = $"$ {p2.Remove(p2.Length - 3, 1).Insert(p2.Length - 3, ",")}"
            End If
            If val < 0 Then
                'out = out.Replace("-", "").Replace("$ ", "$ -")
            End If
        End If
        Return out
    End Function

    Public Shared Function ToPercenteFormat(ByVal val As Decimal) As String
        val = val / 100
        Return val.ToString("P")
    End Function


    Public Shared Function GetMesesEntreFechas(ByVal Desde As Date, ByVal Hasta As Date) As Integer
        Return DateDiff(DateInterval.Month, Desde, Hasta)
    End Function

    ''' <summary>
    ''' Calcula el primer día del mes
    ''' </summary>
    ''' <param name="mes">Mes en base 0</param>
    ''' <param name="anio">Anio a calcular</param>
    ''' <returns></returns>
    Public Shared Function GetPrimerDiaMes(ByVal mes As Integer, ByVal anio As Integer) As Date
        Dim tmpMes As String = ""

        If mes < 9 Then
            tmpMes = "0" & (mes + 1).ToString
        Else
            tmpMes = (mes + 1).ToString
        End If

        Dim tmpDate As Date
        Date.TryParse("01/" & tmpMes & "/" & anio, tmpDate)
        Return tmpDate.Date
    End Function

    ''' <summary>
    ''' Obtener el ultimo dia del mes
    ''' </summary>
    ''' <param name="mes">Mes del año en base 0</param>
    ''' <param name="anio">Año a obtener</param>
    ''' <returns>El ultimo dia del mes del año especificado</returns>
    Public Shared Function GetUltimoDiaMes(ByVal mes As Integer, ByVal anio As Integer) As Date

        '0 enero, con 31 días
        '1 febrero, con 28 días o 29 en año bisiesto
        '2 marzo, con 31 días
        '3 abril, con 30 días
        '4 mayo, con 31 días
        '5 junio, con 30 días
        '6 julio, con 31 días
        '7 agosto, con 31 días
        '8 septiembre, con 30 días
        '9 octubre, con 31 días
        '10 noviembre, con 30 días
        '11 diciembre, con 31 días

        Dim tmpDiasMes As Integer = 0
        Dim tmpMes As String = ""

        If mes < 9 Then
            tmpMes = "0" & (mes + 1).ToString
        Else
            tmpMes = (mes + 1).ToString
        End If

        If (mes = 0) Or (mes = 2) Or (mes = 4) Or (mes = 6) Or (mes = 7) Or (mes = 9) Or (mes = 11) Then tmpDiasMes = 31
        If (mes = 3) Or (mes = 5) Or (mes = 8) Or (mes = 10) Then tmpDiasMes = 30
        If (mes = 1) Then
            If Date.IsLeapYear(anio) Then
                tmpDiasMes = 29
            Else
                tmpDiasMes = 28
            End If
        End If

        'Dim tmpDate As Date = Date.ParseExact(tmpDiasMes.ToString & "/" & tmpMes & "/" & anio, "dd/mm/yyyy", Globalization.CultureInfo.InvariantCulture)
        Dim tmpDate As Date
        Date.TryParse(tmpDiasMes.ToString & "/" & tmpMes & "/" & anio, tmpDate)
        'Debug.Print("Ultimo dia: " & tmpDate)
        Return tmpDate.Date
    End Function


    Public Shared Function ValidarCUIT(ByVal cuit As String) As Boolean
        If IsNumeric(cuit) Then
            Try
                If (cuit.Length <> 11) Then Return False

                Dim tmpCuit As String = cuit.Substring(0, 10)
                Dim total As Integer = 0
                Dim tabla() As Integer = {5, 4, 3, 2, 7, 6, 5, 4, 3, 2}

                For i = 0 To tmpCuit.Length - 1
                    Dim currChar As Integer = CInt(tmpCuit.Substring(i, 1))
                    total += currChar * tabla(i)
                Next
                Dim preDV As Integer = 11 - (total Mod 11)
                If preDV >= 10 Then
                    preDV = 0
                End If
                tmpCuit &= preDV
                If cuit = tmpCuit Then
                    Return True
                Else
                    Return False
                End If

            Catch ex As Exception
                Return False
            End Try
        Else
            Return False
        End If
    End Function

    Public Shared Function EsDNI(ByVal dni As String) As Boolean
        If Not IsNumeric(dni) Then
            Return False
        Else
            Dim tmpDNI As Long = CLng(dni)
            If tmpDNI > 1000000 And tmpDNI < 50000000 Then
                Return True
            Else
                Return False
            End If
        End If
    End Function


    Public Shared Function AFormatoCUIT(ByVal cuit As String) As String
        If cuit.Length = 11 Then
            Return $"{cuit.Substring(0, 2)}-{cuit.Substring(2, 8)}-{cuit.Substring(10)}"
        Else
            Return cuit
        End If
    End Function

    Public Shared Function CalcularPorcentaje(ByVal total As Decimal, ByVal porcentaje As Decimal) As Decimal
        Return ((total * porcentaje) / 100)
    End Function

    Public Shared Function CalcularMasPorcentaje(ByVal total As Decimal, ByVal porcentaje As Decimal) As Decimal
        Return ((total * porcentaje) / 100) + total
    End Function

    Public Shared Function CalcularMenosPorcentaje(ByVal total As Decimal, ByVal porcentaje As Decimal) As Decimal
        Return total - ((total * porcentaje) / 100)
    End Function

    Public Shared Function ToUTF8(ByVal cadenaOriginal As String) As String
        ' &#195;&#177;
        Dim tmpString As String = System.Net.WebUtility.HtmlEncode(cadenaOriginal)
        tmpString = tmpString.Replace("&#195;&#177;", "ñ").Replace("&#195;&#169;", "é").Replace("&#195;&#173;", "í").Replace("&#195;&#179;", "ó").Replace("&#195;&#188", "u")
        Return tmpString
    End Function

    Public Shared Function ComponerIso8601(ByVal dia As Integer, ByVal mes As Integer, ByVal anio As Integer) As Integer
        Return $"{anio.ToString.PadLeft(4, "0")}{mes.ToString.PadLeft(2, "0")}{dia.ToString.PadLeft(2, "0")}"
    End Function


    Public Shared Function HashMD5(ByVal file_name As String) As String
        Dim hash = MD5.Create()
        Dim hashValue() As Byte
        Dim fileStream As FileStream = File.OpenRead(file_name)
        fileStream.Position = 0
        hashValue = hash.ComputeHash(fileStream)
        Dim hex_value As String = ""
        Dim i As Integer
        For i = 0 To hashValue.Length - 1
            hex_value += hashValue(i).ToString("X2")
        Next i
        fileStream.Close()
        Return hex_value
    End Function


    ''' <summary>
    ''' Comprime un archivo en formato ZIP
    ''' </summary>
    ''' <param name="targetPath">El nombre de archivo completo a comprimir</param>
    ''' <param name="fullPathZip">El nombre de archivo completo comprimido</param>
    ''' <returns>0: OK, 1: Archivo origen no existe, 2: archivo destino existe, 3: error en sistema de archivos</returns>
    Public Shared Function ComprimirArchivoZip(ByVal targetPath As String, ByVal fullPathZip As String, Optional sobreescribirZip As Boolean = False, Optional eliminarOriginal As Boolean = False) As Integer

        Dim nombreArchivo As String = targetPath.Substring(targetPath.LastIndexOf("\") + 1)

        Dim tmpTargetPath = $"{My.Computer.FileSystem.SpecialDirectories.Temp}\_{Now.Ticks}_"
        My.Computer.FileSystem.CreateDirectory(tmpTargetPath)


        Debug.Print(nombreArchivo)
        Debug.Print(tmpTargetPath)
        Debug.Print(fullPathZip)

        Debug.Print($"{targetPath}")
        If My.Computer.FileSystem.FileExists(targetPath) Then
            Try
                If My.Computer.FileSystem.FileExists(fullPathZip) Then
                    If sobreescribirZip Then
                        My.Computer.FileSystem.DeleteFile(fullPathZip, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
                    Else
                        Return 2
                    End If
                End If
                Debug.Print($"{targetPath} -> {tmpTargetPath}")
                My.Computer.FileSystem.CopyFile(targetPath, $"{tmpTargetPath}\{nombreArchivo}")
                Compression.ZipFile.CreateFromDirectory(tmpTargetPath, fullPathZip, Compression.CompressionLevel.Optimal, False)
                My.Computer.FileSystem.DeleteDirectory(tmpTargetPath, FileIO.DeleteDirectoryOption.DeleteAllContents)

                If eliminarOriginal Then
                    My.Computer.FileSystem.DeleteFile(targetPath, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
                End If
                Return 0
            Catch ex As Exception
                Return 3
            End Try
        Else
            Return 1
        End If
    End Function

    Public Shared Function NombreProvincia(ByVal idProvincia) As String
        Select Case idProvincia
            Case 0
                Return "Ciudad Autónoma de Buenos Aires"
            Case 1
                Return "Buenos Aires"
            Case 2
                Return "Catamara"
            Case 3
                Return "Córdoba"
            Case 4
                Return "Corrientes"
            Case 5
                Return "Entre Ríos"
            Case 6
                Return "Jujuy"
            Case 7
                Return "Mendoza"
            Case 8
                Return "La Rioja"
            Case 9
                Return "Salta"
            Case 10
                Return "San Juan"
            Case 11
                Return "San Luis"
            Case 12
                Return "Santa Fe"
            Case 13
                Return "Santiago del Estero"
            Case 14
                Return "Tucumán"
            Case 15
                Return "Chaco"
            Case 16
                Return "Chubut"
            Case 17
                Return "Formosa"
            Case 18
                Return "Misiones"
            Case 19
                Return "Neuquén"
            Case 20
                Return "La Pampa"
            Case 21
                Return "Río Negro"
            Case 22
                Return "Santa Cruz"
            Case 23
                Return "Tierra del Fuego"
            Case Else
                Return ""
        End Select

    End Function

    Public Shared Function GetNombreMes(ByVal mes As Integer) As String
        Select Case mes
            Case 0
                Return "Enero"
            Case 1
                Return "Febrero"
            Case 2
                Return "Marzo"
            Case 3
                Return "Abril"
            Case 4
                Return "Mayo"
            Case 5
                Return "Junio"
            Case 6
                Return "Julio"
            Case 7
                Return "Agosto"
            Case 8
                Return "Septiembre"
            Case 9
                Return "Octubre"
            Case 10
                Return "Noviembre"
            Case 11
                Return "Diciembre"
            Case Else
                Return ""
        End Select
    End Function

    Public Shared Function GetNombreBanco(ByVal id As Integer) As String
        Select Case id
            Case 0
                Return "BANCO DE GALICIA Y BUENOS AIRES S.A.U."
            Case 1
                Return "BANCO DE LA NACION ARGENTINA"
            Case 2
                Return "BANCO DE LA PROVINCIA DE BUENOS AIRES"
            Case 3
                Return "INDUSTRIAL And COMMERCIAL BANK OF CHINA"
            Case 4
                Return "CITIBANK N.A."
            Case 5
                Return "BANCO BBVA ARGENTINA S.A."
            Case 6
                Return "BANCO DE LA PROVINCIA DE CORDOBA S.A."
            Case 7
                Return "BANCO SUPERVIELLE S.A."
            Case 8
                Return "BANCO DE LA CIUDAD DE BUENOS AIRES"
            Case 9
                Return "BANCO PATAGONIA S.A."
            Case 10
                Return "BANCO HIPOTECARIO S.A."
            Case 11
                Return "BANCO DE SAN JUAN S.A."
            Case 12
                Return "BANCO MUNICIPAL DE ROSARIO"
            Case 13
                Return "BANCO SANTANDER RIO S.A."
            Case 14
                Return "BANCO DEL CHUBUT S.A."
            Case 15
                Return "BANCO DE SANTA CRUZ S.A."
            Case 16
                Return "BANCO DE LA PAMPA SOCIEDAD DE ECONOMÍA M"
            Case 17
                Return "BANCO DE CORRIENTES S.A."
            Case 18
                Return "BANCO PROVINCIA DEL NEUQUÉN SOCIEDAD ANÓ"
            Case 19
                Return "BRUBANK S.A.U."
            Case 20
                Return "BANCO INTERFINANZAS S.A."
            Case 21
                Return "HSBC BANK ARGENTINA S.A."
            Case 22
                Return "JPMORGAN CHASE BANK, NATIONAL ASSOCIATIO"
            Case 23
                Return "BANCO CREDICOOP COOPERATIVO LIMITADO"
            Case 24
                Return "BANCO DE VALORES S.A."
            Case 25
                Return "BANCO ROELA S.A."
            Case 26
                Return "BANCO MARIVA S.A."
            Case 27
                Return "BANCO ITAU ARGENTINA S.A."
            Case 28
                Return "BANK OF AMERICA, NATIONAL ASSOCIATION"
            Case 29
                Return "BNP PARIBAS"
            Case 30
                Return "BANCO PROVINCIA DE TIERRA DEL FUEGO"
            Case 31
                Return "BANCO DE LA REPUBLICA ORIENTAL DEL URUGU"
            Case 32
                Return "BANCO SAENZ S.A."
            Case 33
                Return "BANCO MERIDIAN S.A."
            Case 34
                Return "BANCO MACRO S.A."
            Case 34
                Return "BANCO COMAFI SOCIEDAD ANONIMA"
            Case 36
                Return "BANCO DE INVERSION Y COMERCIO EXTERIOR S"
            Case 37
                Return "BANCO PIANO S.A."
            Case 38
                Return "BANCO JULIO SOCIEDAD ANONIMA"
            Case 39
                Return "BANCO RIOJA SOCIEDAD ANONIMA UNIPERSONAL"
            Case 40
                Return "BANCO DEL SOL S.A."
            Case 41
                Return "NUEVO BANCO DEL CHACO S. A."
            Case 42
                Return "BANCO VOII S.A."
            Case 43
                Return "BANCO DE FORMOSA S.A."
            Case 44
                Return "BANCO CMF S.A."
            Case 45
                Return "BANCO DE SANTIAGO DEL ESTERO S.A."
            Case 46
                Return "BANCO INDUSTRIAL S.A."
            Case 47
                Return "NUEVO BANCO DE SANTA FE SOCIEDAD ANONIMA"
            Case 48
                Return "BANCO CETELEM ARGENTINA S.A."
            Case 49
                Return "BANCO DE SERVICIOS FINANCIEROS S.A."
            Case 50
                Return "BANCO BRADESCO ARGENTINA S.A.U."
            Case 51
                Return "BANCO DE SERVICIOS Y TRANSACCIONES S.A."
            Case 52
                Return "RCI BANQUE S.A."
            Case 53
                Return "BACS BANCO DE CREDITO Y SECURITIZACION S"
            Case 54
                Return "BANCO MASVENTAS S.A."
            Case 55
                Return "WILOBANK S.A."
            Case 56
                Return "NUEVO BANCO DE ENTRE RÍOS S.A."
            Case 57
                Return "BANCO COLUMBIA S.A."
            Case 58
                Return "BANCO BICA S.A."
            Case 59
                Return "BANCO COINAG S.A."
            Case 60
                Return "BANCO DE COMERCIO S.A."
            Case 61
                Return "BANCO SUCREDITO REGIONAL S.A.U."
            Case 62
                Return "FORD CREDIT COMPAÑIA FINANCIERA S.A."
            Case 63
                Return "COMPAÑIA FINANCIERA ARGENTINA S.A."
            Case 64
                Return "VOLKSWAGEN Financial SERVICES COMPAÑIA F"
            Case 65
                Return "CORDIAL COMPAÑÍA FINANCIERA S.A."
            Case 66
                Return "FCA COMPAÑIA FINANCIERA S.A."
            Case 67
                Return "GPAT COMPAÑIA FINANCIERA S.A.U."
            Case 68
                Return "MERCEDES-BENZ COMPAÑÍA FINANCIERA ARGENT"
            Case 69
                Return "ROMBO COMPAÑÍA FINANCIERA S.A."
            Case 70
                Return "JOHN DEERE CREDIT COMPAÑÍA FINANCIERA S."
            Case 71
                Return "PSA FINANCE ARGENTINA COMPAÑÍA FINANCIER"
            Case 72
                Return "TOYOTA COMPAÑÍA FINANCIERA DE ARGENTINA"
            Case 73
                Return "FINANDINO COMPAÑIA FINANCIERA S.A."
            Case 74
                Return "MONTEMAR COMPAÑIA FINANCIERA S.A."
            Case 75
                Return "TRANSATLANTICA COMPAÑIA FINANCIERA S.A."
            Case 76
                Return "CREDITO REGIONAL COMPAÑIA FINANCIERA S.A"
            Case 77
                Return "N/A"
            Case Else
                Return "N/A"
        End Select
    End Function


    ''' <summary>
    ''' Convierte un array de Bytes en una imagen
    ''' </summary>
    ''' <param name="avatar">Imagen donde se va a dibujar el array de Bytes</param>
    ''' <param name="dbImage">Array de Bytes con la informacion de una imagen</param>
    ''' <remarks></remarks>
    Public Shared Sub ByteToImage(ByRef avatar As Image, ByVal dbImage As Byte())
        If Not IsDBNull(avatar) Then
            Dim memoryStream As New MemoryStream(dbImage)
            avatar = Image.FromStream(memoryStream)
        End If
    End Sub

    ''' <summary>
    ''' Convierte la imagen de un PictureBox a un array de Bytes
    ''' </summary>
    ''' <param name="avatar">Imagen a ser convertida</param>
    ''' <returns>Un array de Bytes con los datos de una imagen</returns>
    ''' <remarks>Si el PictureBox tiene recuadro, este es copiado. Lo ideal es llamar
    '''  a la funcion con el borde deshabilitado</remarks>
    Public Shared Function ImageToByte(ByVal avatar As Image) As Byte()
        If Not IsNothing(avatar) Then
            Dim memoryStream As New MemoryStream
            avatar.Save(memoryStream, System.Drawing.Imaging.ImageFormat.Png)
            Return memoryStream.ToArray()
        Else
            Return Nothing
        End If
    End Function

    Public Shared Sub Scream(ByVal message As String, Optional ByVal errorType As MsgBoxStyle = MsgBoxStyle.Exclamation)
        MsgBox(message, MsgBoxStyle.OkOnly + errorType, "Error")
    End Sub

End Class