Sub ResumenVisitas(Optional ByVal RutaClente As Boolean = False)
        Dim sqlconn As New SqlCeConnection(MovilBusinessConnectionString)
        Dim sqlcmd As New SqlCeCommand
        Dim z As Integer
        Dim sql_query As String
        Dim NSemana As Integer
        NSemana = DatePart("ww", CDate(DesdePicker.Value))
        NSemana = NSemana Mod 4
        If NSemana = 0 Then
            NSemana = 4
        End If

        If RutaClente Then
            sql_query = "SELECT DISTINCT RutPosicion, CliCodigo, CliNombre " & _
                                      "FROM RutaVisitas rc " & _
                                      "INNER JOIN Clientes c on  c.CliID = rc.CliID " & _
                                      "Where SubString(RutSemana" & NSemana & "," & CDate(DesdePicker.Value).DayOfWeek & ", 1) = '1' " & _
                                      "ORDER BY RutPosicion Asc"

            ''Clientes a visitar
            If sqlconn.State = ConnectionState.Closed Then sqlconn.Open()
            sqlcmd = New SqlCeCommand(sql_query, sqlconn)
            Reader = sqlcmd.ExecuteReader()
            Me.lstResumen.Items.Add(New ListViewItem("      C L I E N T E S  R U T A "))
            Me.lstResumen.Items.Add(New ListViewItem("---------------------------------------------------"))
            Me.lstResumen.Items.Add(New ListViewItem("Ordén  Código    Cliente   "))
            Dim Pos, Code, CNombre As String
            a = 0
            While Reader.Read
                a += 1
                Pos = Reader!RutPosicion
                Code = Reader!CliCodigo
                CNombre = Reader!CliNombre
                Me.lstResumen.Items.Add(New ListViewItem(Pos & Space(6 - Len(Pos)) & Code & Space(10 - Len(Code)) & CNombre))
            End While
            Me.lstResumen.Items.Add(New ListViewItem("---------------------------------------------------"))

            sql_query = "SELECT DISTINCT(Count(*)) FROM Visitas Where convert(nchar, Visitas.VisFechaEntrada, 112) between '" & CDate(DesdePicker.Value).ToString("yyyyMMdd") & "' And '" & CDate(Hastapicker.Value).ToString("yyyyMMdd") & "'"

            ''Clientes Visitados.
            If sqlconn.State = ConnectionState.Closed Then sqlconn.Open()
            sqlcmd = New SqlCeCommand(sql_query, sqlconn)
            b = sqlcmd.ExecuteScalar()
            sqlconn.Close()
        End If

        sql_query = "SELECT DISTINCT(Count(*)) FROM Visitas " & _
                    "Where Visitas.CliID not in (SELECT DISTINCT(Count(*)) FROM RutaVisitas " & _
                                                 "Where SubString(RutSemana" & NSemana & "," & CInt(Now.Date.DayOfWeek) & ", 1) = '1') " & _
                    "And convert(nchar, Visitas.VisFechaEntrada, 112) between '" & CDate(DesdePicker.Value).ToString("yyyyMMdd") & "' And '" & CDate(Hastapicker.Value).ToString("yyyyMMdd") & "'"
        ''Clientes Visitados fuera de ruta.
        If sqlconn.State = ConnectionState.Closed Then sqlconn.Open()
        sqlcmd = New SqlCeCommand(sql_query, sqlconn)
        z = sqlcmd.ExecuteScalar()

        sqlconn.Close()
        sqlcmd.Dispose()
        sqlcmd = Nothing
        If Idioma = "es" Then
            Me.lstResumen.Items.Add(New ListViewItem("       R E S U M E N  V I S I T A S "))
            Me.lstResumen.Items.Add(New ListViewItem("---------------------------------------------------"))
            Me.lstResumen.Items.Add(New ListViewItem("No. DE NEGOCIOS A VISITAR   : " & a))
            Me.lstResumen.Items.Add(New ListViewItem("No. DE NEGOCIOS VISITADOS   : " & b))
            Me.lstResumen.Items.Add(New ListViewItem("NEGOCIOS VISITADOS FUERA DE RUTA: " & z))
        Else
            Me.lstResumen.Items.Add(New ListViewItem("              S U M M A R Y "))
            Me.lstResumen.Items.Add(New ListViewItem("---------------------------------------------------"))
            Me.lstResumen.Items.Add(New ListViewItem("CUSTOMER VISITED        : " & a))
            Me.lstResumen.Items.Add(New ListViewItem("CUSTOMER NO VISITED   : " & b))
            Me.lstResumen.Items.Add(New ListViewItem("CUSTOMER OUT OF ROUTE: " & z))
        End If
    End Sub