Agregar archivos de proyecto.

GestionGrupoSanchoToro/Informes/Informes.vb

@@ -0,0 +1,136 @@
+
+Imports System.IO
+Imports bdGrupoSanchoToro
+Imports bdGrupoSanchoToro.db
+Imports DevExpress.Xpf.Core
+Imports DevExpress.XtraPrinting
+Imports DevExpress.XtraReports.UI
+Imports tsEFCore8.Extensiones
+Imports Microsoft.EntityFrameworkCore
+Imports System.Drawing.Printing
+Imports System.ComponentModel
+Imports DevExpress.Xpf.Printing
+Public Class Informes
+    Private Shared NumeroCopias As Integer
+
+
+    Friend Shared Sub ImprimirPlantilla(bd As tscGrupoSanchoToro, Plantilla As Byte(), Datasource As Object, ImpresoraPredeterminada As Boolean, Copias As Integer)
+        Try
+
+            Dim xr As New XtraReport
+            xr.LoadLayoutFromXml(New MemoryStream(Plantilla), True)
+            ImprimeInforme(xr, ImpresoraPredeterminada, Copias, bd.AhoraMySql, Datasource)
+        Catch ex As Exception
+            DXMessageBox.Show(ex.Message, "Atención", MessageBoxButton.OK, MessageBoxImage.Error)
+        End Try
+    End Sub
+
+    'Friend Shared Sub ImprimirPlantilla(bd As tscGrupoSanchoToro, idPlantilla As Integer, Datasource As Object, ImpresoraPredeterminada As Boolean, Copias As Integer)
+    '    Try
+
+    '        If idPlantilla = 0 Then Throw New Exception("Seleccione primero la plantilla a imprimir")
+    '        Dim xr As New XtraReport
+
+
+    '        Dim pl = bd.plantillas.AsNoTracking.SingleOrDefault(Function(x) x.idPlantilla = idPlantilla)
+    '        'Dim pl = bd.plantillas.Where(Function(x) x.idPlantilla = idPlantilla).First
+
+    '        'Dim pl As plantillas = (From p In bd.plantillas Where p.idPlantilla = idPlantilla).First
+    '        Dim s As String = System.Text.Encoding.UTF8.GetString(pl.idFicheroNavigation.Fichero)
+    '        Using sw As New StreamWriter(New MemoryStream())
+    '            sw.Write(s)
+    '            sw.Flush()
+    '            xr = XtraReport.FromStream(sw.BaseStream, True)
+    '        End Using
+    '        Try
+    '            Dim pr As DevExpress.XtraReports.Parameters.Parameter = (From p As DevExpress.XtraReports.Parameters.Parameter In xr.Parameters Where p.Name = "Fecha").First
+    '            pr.Value = bd.AhoraMySql
+    '            pr.Visible = False
+    '        Catch ex As Exception
+
+    '        End Try
+    '        ' xr.DataSource = Datasource
+    '        ImprimeInforme(xr, ImpresoraPredeterminada, Copias, bd.AhoraMySql, Datasource)
+    '    Catch ex As Exception
+    '        DXMessageBox.Show(ex.Message, "Atención", MessageBoxButton.OK, MessageBoxImage.Error)
+    '    End Try
+    'End Sub
+    Friend Shared Function GuardaInformeEnPdf(bd As tscGrupoSanchoToro, idPlantilla As Integer, Datasource As Object) As Byte()
+        Try
+
+            If idPlantilla = 0 Then Throw New Exception("Seleccione primero la plantilla a imprimir")
+            Dim xr As New XtraReport
+
+
+            Dim pl = bd.plantillas.AsNoTracking.Where(Function(x) x.idPlantilla = idPlantilla).First
+
+
+
+            Dim s As String = System.Text.Encoding.UTF8.GetString(pl.idFicheroNavigation.Fichero)
+            Using sw As New StreamWriter(New MemoryStream())
+                sw.Write(s)
+                sw.Flush()
+                xr = XtraReport.FromStream(sw.BaseStream, True)
+            End Using
+            Try
+                Dim pr As DevExpress.XtraReports.Parameters.Parameter = (From p As DevExpress.XtraReports.Parameters.Parameter In xr.Parameters Where p.Name = "Fecha").First
+                pr.Value = bd.AhoraMySql
+                pr.Visible = False
+            Catch ex As Exception
+
+            End Try
+            xr.DataSource = Datasource
+
+            Return GuardaInformeEnPdf(xr)
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+            'DXMessageBox.Show(ex.Message, "Atención", MessageBoxButton.OK, MessageBoxImage.Error)
+        End Try
+    End Function
+
+
+    Friend Shared Sub ImprimeInforme(xr As XtraReport, ImpresoraPredeterminada As Boolean, Copias As Integer, Fecha As Date, Datos As Object)
+        Try
+            For Each pr In xr.Parameters
+                pr.Visible = False
+                If pr.Name = "Fecha" Then
+                    pr.Value = Fecha
+                End If
+            Next
+            xr.DataSource = Datos
+            xr.CreateDocument(True)
+            If ImpresoraPredeterminada Then
+                If Copias < 2 Then
+                    NumeroCopias = 1
+                    xr.Print()
+                Else
+                    NumeroCopias = Copias
+                    AddHandler xr.PrintingSystem.StartPrint, AddressOf xr_StartPring
+                    xr.Print()
+                End If
+            Else
+                PrintHelper.Print(xr)
+                'xr.PrintDialog()
+            End If
+        Catch ex As Exception
+            DXMessageBox.Show(ex.Message, "Error")
+        End Try
+    End Sub
+
+
+
+    Private Shared Sub xr_StartPring(sender As Object, e As PrintDocumentEventArgs)
+        e.PrintDocument.PrinterSettings.Copies = NumeroCopias
+    End Sub
+
+    Friend Shared Function GuardaInformeEnPdf(xr As XtraReport) As Byte()
+        For Each pr In xr.Parameters
+            pr.Visible = False
+        Next
+        xr.CreateDocument(True)
+        Dim st As New MemoryStream
+        xr.ExportToPdf(st)
+        Return st.ToArray
+    End Function
+
+End Class

GestionGrupoSanchoToro/Informes/ucPlantillas.xaml

@@ -0,0 +1,67 @@
+<tsWPF:tsUserControl
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:dx="http://schemas.devexpress.com/winfx/2008/xaml/core"
+             xmlns:dxe="http://schemas.devexpress.com/winfx/2008/xaml/editors" 
+             xmlns:dxg="http://schemas.devexpress.com/winfx/2008/xaml/grid" 
+             x:Class="ucPlantillas" 
+             xmlns:tsWPF="clr-namespace:tsWPFCore;assembly=tsWPFCore"
+             mc:Ignorable="d" 
+             d:DesignHeight="1024" d:DesignWidth="1280">
+    <tsWPF:tsUserControl.Resources>
+        <ResourceDictionary>
+            <ResourceDictionary.MergedDictionaries>
+                <ResourceDictionary Source="pack://application:,,,/tsWPFCore;component/Plantillas.xaml" />
+            </ResourceDictionary.MergedDictionaries>
+            <Style x:Key="RejillaAnidadaStyle" TargetType="{x:Type dxg:RowControl}">
+                <Setter Property="Background" Value="#B0E0E6"  />
+            </Style>
+        </ResourceDictionary>
+   </tsWPF:tsUserControl.Resources>
+    <Grid x:Name="grid">
+        <tsWPF:tsGridControl x:Name="gc" NombreTablaBase="plantillas"  >
+            <tsWPF:tsGridControl.PropiedadesTSGC>
+                <tsWPF:PropiedadesTSGC CamposObligatorios="Descripcion" />
+            </tsWPF:tsGridControl.PropiedadesTSGC>
+            <dxg:GridControl.Columns>
+                <tsWPF:tsGridColumn FieldName="Codigo" Header="Código" IsSmart="True" Width="150" x:Name="gcCodigo" />
+                <tsWPF:tsGridColumn FieldName="Descripcion" Header="Descripción" IsSmart="True" Width="300"  />
+                <tsWPF:tsGridColumn FieldName="Oculta" Header="Oculta" Width="80">
+                    <dxg:GridColumn.EditSettings>
+                        <dxe:CheckEditSettings AllowNullInput="False" />
+                    </dxg:GridColumn.EditSettings>
+                </tsWPF:tsGridColumn>
+                <dxg:GridColumn FieldName="idGrupo" Header="Grupo" Width="200">
+                    <dxg:GridColumn.EditSettings>
+                        <dxe:ComboBoxEditSettings ValueMember="idEnumeracion" AutoComplete="True"  DisplayMember="Descripcion" x:Name="cbGrupo" >
+                        </dxe:ComboBoxEditSettings>
+                    </dxg:GridColumn.EditSettings>
+                </dxg:GridColumn>
+                <dxg:GridColumn FieldName="idPermiso" Header="Permiso" Width="200"  x:Name="gcPermiso" Visible="False"   >
+                    <dxg:GridColumn.EditSettings>
+                        <dxe:ComboBoxEditSettings ValueMember="idPermiso" AutoComplete="True" DisplayMember="Descripcion" x:Name="cbPermiso" >
+                        </dxe:ComboBoxEditSettings>
+                    </dxg:GridColumn.EditSettings>
+                </dxg:GridColumn>
+                <dxg:GridColumn FieldName="Observaciones" Header="Observaciones" IsSmart="True" Width="150" />
+                <tsWPF:tsGridColumn FieldName="Editar" Width="140" IsSmart="True" x:Name="gcEditar" >
+                    <tsWPF:tsGridColumn.CellTemplate>
+                        <DataTemplate>
+                            <Button x:Name="btEditar" Click="btEditar_Click" >
+                                <StackPanel Orientation="Horizontal" HorizontalAlignment="Stretch"  >
+                                    <!--<Image Source="Resources/Data-Template-icon-16x16.png" Stretch="UniformToFill" />-->
+                                    <TextBlock Margin="10,0,0,0" >Editar Plantilla</TextBlock>
+                                </StackPanel>
+                            </Button>
+                        </DataTemplate>
+                    </tsWPF:tsGridColumn.CellTemplate>
+                </tsWPF:tsGridColumn>
+            </dxg:GridControl.Columns>
+            <dxg:GridControl.View >
+                <tsWPF:tsTableView x:Name="tvPlantillas" NewItemRowPosition="Bottom" InitNewRow="tvPlantillas_InitNewRow" ShowSearchPanelMode="Always"  AllowEditing="True" />
+            </dxg:GridControl.View>
+        </tsWPF:tsGridControl>
+    </Grid>
+</tsWPF:tsUserControl>

GestionGrupoSanchoToro/Informes/ucPlantillas.xaml.vb

@@ -0,0 +1,401 @@
+Imports bdGrupoSanchoToro.db
+Imports System.Data.Entity
+Imports DevExpress.Xpf.Core.ServerMode
+Imports DevExpress.Xpf.Core
+Imports DevExpress.XtraReports.UserDesigner
+Imports DevExpress.XtraReports.UI
+Imports System.IO
+Imports DevExpress.Xpf.Grid
+Imports DevExpress.Xpf.RichEdit
+Imports DevExpress.Office.Services
+Imports System.ComponentModel
+
+Imports tsWPFCore
+Imports DevExpress.Xpf.Docking
+
+
+Imports DevExpress.Xpf.Reports.UserDesigner
+Imports DevExpress.Xpf.Reports.UserDesigner.Native
+Imports System
+Imports System.Collections.Generic
+Imports System.Data
+Imports System.Linq
+Imports System.Text
+Imports System.Windows
+Imports System.Collections
+
+Imports bdGrupoSanchoToro.db.Utilidades
+Imports bdGrupoSanchoToro.dbcontext
+
+
+Public Class ucPlantillas
+
+
+    Private bd As bdGrupoSanchoToro.tscGrupoSanchoToro
+    Private PlantillaActual As plantillas
+    Private WithEvents bplas As BindingList(Of plantillas)
+    '  Private mdiController As XRDesignMdiController
+
+    'Public Overrides ReadOnly Property CampoIndice As String
+    '    Get
+    '        Return ""
+    '    End Get
+    'End Property
+
+    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
+        Get
+            Return "Plantillas"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property DescripcionRegistro As String
+        Get
+            Return "Plantillas"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property NombreTablaBase As String
+        Get
+            Return "plantillas"
+        End Get
+    End Property
+
+
+
+    Private Sub tvPlantillas_InitNewRow(sender As Object, e As DevExpress.Xpf.Grid.InitNewRowEventArgs)
+        ' e.Source = New plantillas
+        GC.SetCellValue(e.RowHandle, "Oculto", False)
+        gc.SetCellValue(e.RowHandle, "TipoListado", False)
+        gc.SetCellValue(e.RowHandle, "idEmpresa", EmpresaActual.idEmpresa)
+        'e.Handled = True
+    End Sub
+
+
+    Private Sub btEditar_Click(sender As Object, e As RoutedEventArgs)
+
+        Dim pl As plantillas
+
+        If GC.View.FocusedRowHandle = DataControlBase.NewItemRowHandle Then
+            pl = GC.GetRow(DataControlBase.NewItemRowHandle)
+            GC.View.CommitEditing(True)
+        Else
+            GC.View.CommitEditing(True)
+            pl = Me.gc.GetFocusedRow
+        End If
+
+        If pl.idGrupo <> 0 Then
+            EditarPlantilla(pl)
+        Else
+            DXMessageBox.Show("La columna Grupo de plantilla es obligatoria", "Atención", MessageBoxButton.OK, MessageBoxImage.Exclamation)
+        End If
+    End Sub
+
+
+    Private Sub EditarPlantilla(pl As bdGrupoSanchoToro.db.plantillas)
+        Try
+            If pl.idPlantilla > 0 Then
+                bd = tscGrupoSanchoToro.NuevoContexto
+                pl = bd.plantillas.First(Function(X) X.idPlantilla = pl.idPlantilla)
+            End If
+            PlantillaActual = pl
+            Select Case PlantillaActual.idGrupoNavigation.Codigo
+                'Case "GRUPLA.CERTIFICADOS"
+                '    Dim tsEditor As tsWPFCore.dxwEditor
+
+                '    If pl.idFichero.HasValue AndAlso pl.idFicheroNavigation.Fichero IsNot Nothing Then
+                '        '    tsEditor = New tsWPFCore.dxwEditor(New IO.MemoryStream(pl.idFicheroNavigation.Fichero), DevExpress.XtraRichEdit.DocumentFormat.OpenXml, DevExpress.XtraRichEdit.DocumentFormat.OpenXml, AddressOf Guardar, AddressOf CargarDatosMailMergeCertificados)
+                '    Else
+                '        '      tsEditor = New tsWPFCore.dxwEditor(Nothing, DevExpress.XtraRichEdit.DocumentFormat.OpenXml, DevExpress.XtraRichEdit.DocumentFormat.OpenXml, AddressOf Guardar, AddressOf CargarDatosMailMergeCertificados)
+                '    End If
+                '    tsEditor.ShowDialog()
+                Case "GRUPLA.DOCX"
+                    Dim tsEditor As tsWPFCore.dxwEditor
+
+                    If pl.idFichero.HasValue AndAlso pl.idFicheroNavigation.Fichero IsNot Nothing Then
+                        tsEditor = New tsWPFCore.dxwEditor(New IO.MemoryStream(pl.idFicheroNavigation.Fichero), DevExpress.XtraRichEdit.DocumentFormat.OpenXml, DevExpress.XtraRichEdit.DocumentFormat.OpenXml, AddressOf GuardarPlantilla)
+                    Else
+                        tsEditor = New tsWPFCore.dxwEditor(Nothing, DevExpress.XtraRichEdit.DocumentFormat.OpenXml, DevExpress.XtraRichEdit.DocumentFormat.OpenXml, AddressOf GuardarPlantilla)
+                    End If
+                    tsEditor.ShowDialog()
+
+                Case "GRUPLA.ODT"
+                    Dim tsEditor As tsWPFCore.dxwEditor
+
+                    If pl.idFichero.HasValue AndAlso pl.idFicheroNavigation.Fichero IsNot Nothing Then
+                        tsEditor = New tsWPFCore.dxwEditor(New IO.MemoryStream(pl.idFicheroNavigation.Fichero), DevExpress.XtraRichEdit.DocumentFormat.OpenDocument, DevExpress.XtraRichEdit.DocumentFormat.OpenDocument, AddressOf GuardarPlantilla)
+                    Else
+                        tsEditor = New tsWPFCore.dxwEditor(Nothing, DevExpress.XtraRichEdit.DocumentFormat.OpenDocument, DevExpress.XtraRichEdit.DocumentFormat.OpenDocument, AddressOf GuardarPlantilla)
+                    End If
+                    tsEditor.ShowDialog()
+                Case Else
+                    ' Dim fr = New InformesCOAS.xrFactura
+                    Dim xr As New XtraReport
+                    Try
+                        If pl.idFichero.HasValue = False OrElse pl.idFicheroNavigation.Fichero Is Nothing Then
+                            xr = New XtraReport
+                        Else
+                            xr.LoadLayoutFromXml(New MemoryStream(pl.idFicheroNavigation.Fichero))
+                        End If
+                        Me.Guardar(Nothing, Nothing, True, False)
+                        Dim vi As New tsWPFCore.ucDiseñadorInformes(xr, pl.idPlantilla, AddressOf GuardarWPF)
+
+                        Dim GrupoDocumentos = Me.GrupoDocumentos
+                        Dim dc = tsWPFCore.Comun.dm.DockController
+
+                        Dim docpanel As DevExpress.Xpf.Docking.DocumentPanel
+                        Dim d = (From p In GrupoDocumentos.Items Where p.Tag = "Plantilla." & pl.idPlantilla.ToString)
+                        If d.Count > 0 Then
+                            docpanel = d.First
+                        Else
+                            docpanel = New DevExpress.Xpf.Docking.DocumentPanel
+                            docpanel.Caption = pl.Descripcion
+                            docpanel.Content = vi
+                            docpanel.ClosingBehavior = DevExpress.Xpf.Docking.ClosingBehavior.ImmediatelyRemove
+                            docpanel.Tag = "Plantilla." & pl.idPlantilla.ToString
+                            GrupoDocumentos.Items.Add(docpanel)
+                        End If
+                        dc.Activate(docpanel)
+
+
+                    Catch ex As Exception
+                        DXMessageBox.Show(ex.Message, "Error ucPlantillas.EditarPlantilla")
+                        'Comun.GeneraRegistroCorreoExcepcion(bd, ex, "ucPlantillas.EditarPlantilla")
+                    Finally
+                        'xr.Dispose()
+                        'xr = Nothing
+                        'System.GC.Collect()
+                        'System.GC.WaitForFullGCComplete()
+                    End Try
+            End Select
+        Catch ex As Exception
+            DXMessageBox.Show(ex.Message, "Error")
+        End Try
+    End Sub
+
+
+
+
+
+    Private Sub GuardarPlantilla(ms As MemoryStream)
+        Me.Guardar(Nothing, Nothing, True, False)
+
+        If PlantillaActual.idFichero.HasValue = False Then
+            Dim idTipoPlantilla = bd.enumeraciones.Where(Function(x) x.Codigo = "TIPFIC.PLANTILLA").First.idEnumeracion
+            PlantillaActual.idFicheroNavigation = New ficheros With {.idTipo = idTipoPlantilla}
+        End If
+        Dim sextension As String
+        Select Case PlantillaActual.idGrupoNavigation.Codigo
+            Case "GRUPLA.ODT"
+                sextension = ".odt"
+            Case "GRUPLA.XHTML"
+                sextension = ".xhtml"
+                'Case "GRUPLA.NOMINASWORD"
+                '    sextension = ".odt"
+            Case "GRUPLA.DOCX"
+                sextension = ".docx"
+            Case Else
+                sextension = ".xml"
+        End Select
+        PlantillaActual.idFicheroNavigation.Fichero = ms.ToArray
+        PlantillaActual.idFicheroNavigation.Fecha = Now
+        PlantillaActual.idFicheroNavigation.Descripcion = PlantillaActual.Descripcion
+        PlantillaActual.idFicheroNavigation.NombreFichero = PlantillaActual.idPlantilla.ToString & sextension
+        bd.GuardarCambios()
+
+    End Sub
+
+
+
+
+    Private Sub CopiarPlantilla(sender As Object, e As RoutedEventArgs)
+        Try
+            Dim ra As bdGrupoSanchoToro.db.plantillas = Me.gc.CurrentItem
+            Dim np As New plantillas
+            Dim i As Integer = 1
+            Do
+                np.Descripcion = "Copia " & i.ToString & " " & ra.Descripcion
+                i += 1
+            Loop Until Not bd.plantillas.ToList.Any(Function(x) x.Descripcion = np.Descripcion)
+            If ra.Codigo IsNot Nothing Then
+                i = 1
+                Do
+                    np.Codigo = ra.Codigo & "-" & i.ToString
+                    i += 1
+                Loop Until Not bd.plantillas.ToList.Any(Function(x) x.Codigo = np.Codigo)
+            End If
+            np.idGrupo = ra.idGrupo
+            np.Observaciones = ra.Observaciones
+            np.Oculta = ra.Oculta
+            np.TipoListado = ra.TipoListado
+            bd.plantillas.Add(np)
+            bd.GuardarCambios()
+            Dim idTipoPlantilla = bd.enumeraciones.Where(Function(x) x.Codigo = "TIPFIC.PLANTILLA").First.idEnumeracion
+            np.idFicheroNavigation = New ficheros With {.idTipo = idTipoPlantilla}
+            Dim sextension As String
+            Select Case ra.idGrupoNavigation.Codigo
+                Case "GRUPLA.XHTML"
+                    sextension = ".xhtml"
+                Case "GRUPLA.ODT"
+                    sextension = ".odt"
+                Case "GRUPLA.DOCX"
+                    sextension = ".docx"
+                Case Else
+                    sextension = ".xml"
+            End Select
+            np.idFicheroNavigation.Fichero = ra.idFicheroNavigation.Fichero
+            np.idFicheroNavigation.Fecha = Now
+            np.idFicheroNavigation.Descripcion = np.Descripcion
+            np.idFicheroNavigation.NombreFichero = np.idPlantilla.ToString & sextension
+            bd.GuardarCambios()
+
+            EstableceDCPrincipal()
+        Catch ex As Exception
+            DXMessageBox.Show(ex.Message, "Error")
+        End Try
+
+    End Sub
+
+    Private Sub bplas_ListChanged(sender As Object, e As ListChangedEventArgs) Handles bplas.ListChanged
+        If e.ListChangedType = ListChangedType.ItemAdded Then
+            bd.plantillas.Add(DirectCast(bplas.Item(e.NewIndex), plantillas))
+        End If
+    End Sub
+
+    Private Sub gc_DespuesEliminar(gc As tsWPFCore.tsGridControl) Handles gc.DespuesEliminar
+        bplas.Remove(gc.CurrentItem)
+        Me.bd.GuardarCambios()
+    End Sub
+
+
+
+    Private Sub tvPlantillas_ValidateRow(sender As Object, e As GridRowValidationEventArgs) Handles tvPlantillas.ValidateRow
+        Try
+            ErroresValidacion.EliminaError("DatosDuplicados")
+            Dim pl As plantillas
+            If tvPlantillas.FocusedRowHandle = DataControlBase.NewItemRowHandle Then
+                pl = gc.GetRow(DataControlBase.NewItemRowHandle)
+            Else
+                pl = gc.CurrentItem
+            End If
+            If pl.idPlantilla = 0 Then
+                If bplas.Where(Function(x) x.Descripcion = pl.Descripcion).Count > 1 OrElse bd.plantillas.Any(Function(x) x.Descripcion = pl.Descripcion) Then
+                    e.IsValid = False
+
+                    '  Debug.WriteLine("bplas:" & bplas.Any(Function(x) x.Descripcion = pl.Descripcion).ToString)
+                    '  Debug.WriteLine("bd:" & bd.plantillas.Any(Function(x) x.Descripcion = pl.Descripcion).ToString)
+                End If
+                If pl.Codigo IsNot Nothing AndAlso pl.Codigo <> "" Then
+                    If bplas.Where(Function(x) x.Codigo = pl.Codigo).Count > 1 OrElse bd.plantillas.Any(Function(x) x.Codigo = pl.Codigo) Then
+                        e.IsValid = False
+                    End If
+                End If
+            Else
+                If bd.plantillas.Any(Function(x) x.idPlantilla <> pl.idPlantilla AndAlso (x.Descripcion = pl.Descripcion)) Then
+                    e.IsValid = False
+
+                End If
+                If pl.Codigo IsNot Nothing AndAlso pl.Codigo <> "" Then
+                    If bplas.Where(Function(x) x.Codigo = pl.Codigo).Count > 1 OrElse bd.plantillas.Any(Function(x) x.idPlantilla <> pl.idPlantilla AndAlso x.Codigo = pl.Codigo) Then
+                        e.IsValid = False
+                    End If
+                End If
+            End If
+            If Not e.IsValid Then
+                e.SetError("Nombre de Plantilla  o Codigo ya utilizado")
+                DXMessageBox.Show("Nombre de Plantilla  o Codigo ya utilizado", "Error")
+            End If
+            bd.GuardarCambios()
+        Catch EX As Exception
+            e.SetError(EX.Message)
+            e.IsValid = False
+            DXMessageBox.Show(EX.Message, "Error")
+        End Try
+    End Sub
+
+
+    Public Shared Sub GuardarWPF(b() As Byte, idPlantilla As Integer)
+        Dim bd = tscGrupoSanchoToro.NuevoContexto()
+        Dim plantilla = bd.plantillas.First(Function(X) X.idPlantilla = idPlantilla)
+
+
+        bd.GuardarCambios()
+        If plantilla.idFichero.HasValue = False Then
+            Dim idTipoPlantilla = bd.enumeraciones.Where(Function(x) x.Codigo = "TIPFIC.PLANTILLA").First.idEnumeracion
+            plantilla.idFicheroNavigation = New ficheros With {.idTipo = idTipoPlantilla}
+        End If
+        Dim sextension As String
+        Select Case plantilla.idGrupoNavigation.Codigo
+            Case "GRUPLA.XHTML"
+                sextension = ".xhtml"
+            Case "GRUPLA.DOCX"
+                sextension = ".docx"
+            Case Else
+                sextension = ".xml"
+        End Select
+        plantilla.idFicheroNavigation.Fichero = b
+        plantilla.idFicheroNavigation.Fecha = Now
+        plantilla.idFicheroNavigation.Descripcion = plantilla.Descripcion
+        plantilla.idFicheroNavigation.NombreFichero = plantilla.idPlantilla.ToString & sextension
+        bd.GuardarCambios()
+    End Sub
+
+    Public Overrides Function EstableceDCPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
+        Try
+            Dim gptmp = (From e In bd.enumeraciones Select e Where e.idGrupoEnumeracionNavigation.Grupo = "GRUPLA").ToList
+            Dim gp As New List(Of bdGrupoSanchoToro.db.enumeraciones)
+            For Each g In gptmp
+                If Comun.ObtienePermisos(bd, g.Codigo, idUsuario).Impresion Then
+                    gp.Add(g)
+                End If
+            Next
+            Me.cbGrupo.ItemsSource = gp
+            Me.cbPermiso.ItemsSource = bd.permisos.ToList
+            Dim plas = bd.plantillas.ToList.Where(Function(p) gp.Any(Function(x) x.Codigo = p.idGrupoNavigation.Codigo)).ToList
+            Me.gc.DataContext = bd
+            bplas = New BindingList(Of plantillas)(plas)
+
+            Me.gc.ItemsSource = bplas
+            Return tsUtilidades.EstadosAplicacion.SinDatos
+        Catch ex As Exception
+            Throw New Exception(ex.Message, ex)
+        End Try
+    End Function
+
+    Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
+
+    End Sub
+
+    Public Overrides Sub EstableceTitulo()
+        Me.docpanel.Caption = "Plantillas"
+        Me.docpanel.Tag = "Plantillas"
+    End Sub
+
+    Public Overrides Sub Cargado()
+        Me.ContenedorAplicacion.btNuevo.IsVisible = False
+        Me.ContenedorAplicacion.siEstado.IsVisible = False
+        If bd.usuarios.First(Function(x) x.idUsuario = bdGrupoSanchoToro.db.Utilidades.idUsuario).idGrupoNavigation.Descripcion.ToLower = "administradores" Then
+            Me.gcPermiso.Visible = True
+            Me.gcCodigo.Visible = True
+            Me.gcEditar.VisibleIndex = Me.gc.Columns.Count
+        End If
+        Dim mi As New MenuItem()
+        mi.Header = "Copiar Plantilla"
+        AddHandler mi.Click, AddressOf CopiarPlantilla
+        Me.gc.ContextMenu.Items.Add(mi)
+    End Sub
+
+    Public Overrides Function ObtieneBD() As tsUtilidades.ItsContexto
+        bd = tscGrupoSanchoToro.NuevoContexto()
+        Return bd
+    End Function
+
+
+
+    Public Overrides Function ObtienePermisos() As tsUtilidades.Permisos
+        Return Comun.ObtienePermisos(Me.bd, "AP.SUPERADMINISTRADORES", idUsuario)
+    End Function
+End Class
+
+
+
+

GestionGrupoSanchoToro/Informes/xrCierreCaja.Designer.vb

@@ -0,0 +1,627 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class xrCierreCaja
+    Inherits DevExpress.XtraReports.UI.XtraReport
+
+    'XtraReport overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing AndAlso components IsNot Nothing Then
+            components.Dispose()
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'Required by the Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Designer
+    'It can be modified using the Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim ShapeRectangle1 As DevExpress.XtraPrinting.Shape.ShapeRectangle = New DevExpress.XtraPrinting.Shape.ShapeRectangle()
+        Dim ShapeRectangle2 As DevExpress.XtraPrinting.Shape.ShapeRectangle = New DevExpress.XtraPrinting.Shape.ShapeRectangle()
+        Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand()
+        Me.XrPanel1 = New DevExpress.XtraReports.UI.XRPanel()
+        Me.XrLabel22 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.BottomMargin = New DevExpress.XtraReports.UI.BottomMarginBand()
+        Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
+        Me.XrLabel19 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel20 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel17 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel18 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel3 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel5 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel1 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel2 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel4 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel6 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel14 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel13 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrShape2 = New DevExpress.XtraReports.UI.XRShape()
+        Me.DetailReport = New DevExpress.XtraReports.UI.DetailReportBand()
+        Me.Detail1 = New DevExpress.XtraReports.UI.DetailBand()
+        Me.XrTable1 = New DevExpress.XtraReports.UI.XRTable()
+        Me.XrTableRow1 = New DevExpress.XtraReports.UI.XRTableRow()
+        Me.XrTableCell1 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell2 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell6 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell7 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell9 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
+        Me.XrTable2 = New DevExpress.XtraReports.UI.XRTable()
+        Me.XrTableRow2 = New DevExpress.XtraReports.UI.XRTableRow()
+        Me.XrTableCell3 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell4 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell11 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell12 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell14 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.GroupFooter1 = New DevExpress.XtraReports.UI.GroupFooterBand()
+        Me.XrLabel16 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel15 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel12 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel11 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel10 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel9 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel8 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel7 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrShape1 = New DevExpress.XtraReports.UI.XRShape()
+        Me.ObjectDataSource1 = New DevExpress.DataAccess.ObjectBinding.ObjectDataSource(Me.components)
+        Me.Fecha = New DevExpress.XtraReports.Parameters.Parameter()
+        CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ObjectDataSource1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'TopMargin
+        '
+        Me.TopMargin.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPanel1})
+        Me.TopMargin.Dpi = 254.0!
+        Me.TopMargin.HeightF = 138.7708!
+        Me.TopMargin.Name = "TopMargin"
+        '
+        'XrPanel1
+        '
+        Me.XrPanel1.Borders = DevExpress.XtraPrinting.BorderSide.None
+        Me.XrPanel1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel22})
+        Me.XrPanel1.Dpi = 254.0!
+        Me.XrPanel1.LocationFloat = New DevExpress.Utils.PointFloat(67.24997!, 25.00001!)
+        Me.XrPanel1.Name = "XrPanel1"
+        Me.XrPanel1.SizeF = New System.Drawing.SizeF(963.0831!, 113.7708!)
+        Me.XrPanel1.StylePriority.UseBorders = False
+        '
+        'XrLabel22
+        '
+        Me.XrLabel22.Dpi = 254.0!
+        Me.XrLabel22.Font = New DevExpress.Drawing.DXFont("Arial", 12.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel22.LocationFloat = New DevExpress.Utils.PointFloat(25.40002!, 25.40002!)
+        Me.XrLabel22.Name = "XrLabel22"
+        Me.XrLabel22.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel22.SizeF = New System.Drawing.SizeF(444.5!, 58.42001!)
+        Me.XrLabel22.StylePriority.UseFont = False
+        Me.XrLabel22.StylePriority.UseTextAlignment = False
+        Me.XrLabel22.Text = "CIERRE DE CAJA"
+        Me.XrLabel22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter
+        '
+        'BottomMargin
+        '
+        Me.BottomMargin.Dpi = 254.0!
+        Me.BottomMargin.HeightF = 50.0!
+        Me.BottomMargin.Name = "BottomMargin"
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel19, Me.XrLabel20, Me.XrLabel17, Me.XrLabel18, Me.XrLabel3, Me.XrLabel5, Me.XrLabel1, Me.XrLabel2, Me.XrLabel4, Me.XrLabel6, Me.XrLabel14, Me.XrLabel13, Me.XrShape2})
+        Me.Detail.Dpi = 254.0!
+        Me.Detail.HeightF = 238.6076!
+        Me.Detail.HierarchyPrintOptions.Indent = 50.8!
+        Me.Detail.Name = "Detail"
+        '
+        'XrLabel19
+        '
+        Me.XrLabel19.Dpi = 254.0!
+        Me.XrLabel19.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[ImporteCerrado]")})
+        Me.XrLabel19.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel19.LocationFloat = New DevExpress.Utils.PointFloat(1704.458!, 131.6514!)
+        Me.XrLabel19.Name = "XrLabel19"
+        Me.XrLabel19.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel19.SizeF = New System.Drawing.SizeF(276.6497!, 58.42004!)
+        Me.XrLabel19.StylePriority.UseFont = False
+        Me.XrLabel19.StylePriority.UseTextAlignment = False
+        Me.XrLabel19.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
+        Me.XrLabel19.TextFormatString = "{0:c2}"
+        '
+        'XrLabel20
+        '
+        Me.XrLabel20.Dpi = 254.0!
+        Me.XrLabel20.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel20.LocationFloat = New DevExpress.Utils.PointFloat(1356.514!, 131.6514!)
+        Me.XrLabel20.Name = "XrLabel20"
+        Me.XrLabel20.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel20.SizeF = New System.Drawing.SizeF(329.4233!, 58.42001!)
+        Me.XrLabel20.StylePriority.UseFont = False
+        Me.XrLabel20.Text = "Importe M. Cerrados:"
+        '
+        'XrLabel17
+        '
+        Me.XrLabel17.Dpi = 254.0!
+        Me.XrLabel17.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[idCajaNavigation].[Descripcion]")})
+        Me.XrLabel17.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel17.LocationFloat = New DevExpress.Utils.PointFloat(824.3406!, 52.91675!)
+        Me.XrLabel17.Name = "XrLabel17"
+        Me.XrLabel17.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel17.SizeF = New System.Drawing.SizeF(518.9336!, 58.42002!)
+        Me.XrLabel17.StylePriority.UseFont = False
+        Me.XrLabel17.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        '
+        'XrLabel18
+        '
+        Me.XrLabel18.Dpi = 254.0!
+        Me.XrLabel18.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel18.LocationFloat = New DevExpress.Utils.PointFloat(540.0046!, 52.91683!)
+        Me.XrLabel18.Name = "XrLabel18"
+        Me.XrLabel18.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel18.SizeF = New System.Drawing.SizeF(266.3013!, 58.41997!)
+        Me.XrLabel18.StylePriority.UseFont = False
+        Me.XrLabel18.Text = "Caja Cierre:"
+        '
+        'XrLabel3
+        '
+        Me.XrLabel3.Dpi = 254.0!
+        Me.XrLabel3.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[idMovimiento]")})
+        Me.XrLabel3.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel3.LocationFloat = New DevExpress.Utils.PointFloat(219.5094!, 52.91675!)
+        Me.XrLabel3.Name = "XrLabel3"
+        Me.XrLabel3.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel3.SizeF = New System.Drawing.SizeF(287.2332!, 58.42002!)
+        Me.XrLabel3.StylePriority.UseFont = False
+        Me.XrLabel3.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        '
+        'XrLabel5
+        '
+        Me.XrLabel5.Dpi = 254.0!
+        Me.XrLabel5.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel5.LocationFloat = New DevExpress.Utils.PointFloat(540.0046!, 131.6514!)
+        Me.XrLabel5.Name = "XrLabel5"
+        Me.XrLabel5.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel5.SizeF = New System.Drawing.SizeF(266.3012!, 58.41997!)
+        Me.XrLabel5.StylePriority.UseFont = False
+        Me.XrLabel5.Text = "Usuario que cierra:"
+        '
+        'XrLabel1
+        '
+        Me.XrLabel1.Dpi = 254.0!
+        Me.XrLabel1.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Fecha]")})
+        Me.XrLabel1.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel1.LocationFloat = New DevExpress.Utils.PointFloat(219.5094!, 131.6514!)
+        Me.XrLabel1.Name = "XrLabel1"
+        Me.XrLabel1.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel1.SizeF = New System.Drawing.SizeF(287.2332!, 58.42004!)
+        Me.XrLabel1.StylePriority.UseFont = False
+        Me.XrLabel1.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel1.TextFormatString = "{0:dd/MM/yyyy}"
+        '
+        'XrLabel2
+        '
+        Me.XrLabel2.Dpi = 254.0!
+        Me.XrLabel2.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel2.LocationFloat = New DevExpress.Utils.PointFloat(29.55924!, 131.6515!)
+        Me.XrLabel2.Name = "XrLabel2"
+        Me.XrLabel2.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel2.SizeF = New System.Drawing.SizeF(189.9501!, 58.41997!)
+        Me.XrLabel2.StylePriority.UseFont = False
+        Me.XrLabel2.Text = "Fecha Cierre:"
+        '
+        'XrLabel4
+        '
+        Me.XrLabel4.Dpi = 254.0!
+        Me.XrLabel4.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[idUsuarioNavigation].[Nombre]")})
+        Me.XrLabel4.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel4.LocationFloat = New DevExpress.Utils.PointFloat(824.3407!, 131.6514!)
+        Me.XrLabel4.Name = "XrLabel4"
+        Me.XrLabel4.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel4.SizeF = New System.Drawing.SizeF(518.9335!, 58.42004!)
+        Me.XrLabel4.StylePriority.UseFont = False
+        Me.XrLabel4.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        '
+        'XrLabel6
+        '
+        Me.XrLabel6.Dpi = 254.0!
+        Me.XrLabel6.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel6.LocationFloat = New DevExpress.Utils.PointFloat(29.55924!, 52.91667!)
+        Me.XrLabel6.Name = "XrLabel6"
+        Me.XrLabel6.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel6.SizeF = New System.Drawing.SizeF(189.9501!, 58.41999!)
+        Me.XrLabel6.StylePriority.UseFont = False
+        Me.XrLabel6.Text = "Nº Cierre"
+        '
+        'XrLabel14
+        '
+        Me.XrLabel14.Dpi = 254.0!
+        Me.XrLabel14.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel14.LocationFloat = New DevExpress.Utils.PointFloat(1356.514!, 52.91675!)
+        Me.XrLabel14.Name = "XrLabel14"
+        Me.XrLabel14.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel14.SizeF = New System.Drawing.SizeF(252.316!, 58.41997!)
+        Me.XrLabel14.StylePriority.UseFont = False
+        Me.XrLabel14.Text = "Fecha Impresión:"
+        '
+        'XrLabel13
+        '
+        Me.XrLabel13.Dpi = 254.0!
+        Me.XrLabel13.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "?Fecha")})
+        Me.XrLabel13.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel13.LocationFloat = New DevExpress.Utils.PointFloat(1619.414!, 52.91659!)
+        Me.XrLabel13.Name = "XrLabel13"
+        Me.XrLabel13.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel13.SizeF = New System.Drawing.SizeF(362.6234!, 58.42004!)
+        Me.XrLabel13.StylePriority.UseFont = False
+        Me.XrLabel13.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel13.TextFormatString = "{0:dd/MM/yyyy}"
+        '
+        'XrShape2
+        '
+        Me.XrShape2.Dpi = 254.0!
+        Me.XrShape2.FillColor = System.Drawing.Color.WhiteSmoke
+        Me.XrShape2.LocationFloat = New DevExpress.Utils.PointFloat(13.76757!, 25.00001!)
+        Me.XrShape2.Name = "XrShape2"
+        ShapeRectangle1.Fillet = 20
+        Me.XrShape2.Shape = ShapeRectangle1
+        Me.XrShape2.SizeF = New System.Drawing.SizeF(1986.233!, 199.8627!)
+        '
+        'DetailReport
+        '
+        Me.DetailReport.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail1, Me.GroupHeader1, Me.GroupFooter1})
+        Me.DetailReport.DataMember = "MovimientosDelCierre"
+        Me.DetailReport.DataSource = Me.ObjectDataSource1
+        Me.DetailReport.Dpi = 254.0!
+        Me.DetailReport.Level = 0
+        Me.DetailReport.Name = "DetailReport"
+        '
+        'Detail1
+        '
+        Me.Detail1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable1})
+        Me.Detail1.Dpi = 254.0!
+        Me.Detail1.HeightF = 47.28944!
+        Me.Detail1.HierarchyPrintOptions.Indent = 50.8!
+        Me.Detail1.Name = "Detail1"
+        Me.Detail1.SortFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("idMovimiento", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)})
+        '
+        'XrTable1
+        '
+        Me.XrTable1.Dpi = 254.0!
+        Me.XrTable1.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrTable1.LocationFloat = New DevExpress.Utils.PointFloat(13.76761!, 0!)
+        Me.XrTable1.Name = "XrTable1"
+        Me.XrTable1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow1})
+        Me.XrTable1.SizeF = New System.Drawing.SizeF(1961.232!, 47.28944!)
+        Me.XrTable1.StylePriority.UseFont = False
+        '
+        'XrTableRow1
+        '
+        Me.XrTableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell1, Me.XrTableCell2, Me.XrTableCell6, Me.XrTableCell7, Me.XrTableCell9})
+        Me.XrTableRow1.Dpi = 254.0!
+        Me.XrTableRow1.Name = "XrTableRow1"
+        Me.XrTableRow1.Weight = 11.5R
+        '
+        'XrTableCell1
+        '
+        Me.XrTableCell1.Dpi = 254.0!
+        Me.XrTableCell1.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Descripcion]")})
+        Me.XrTableCell1.Name = "XrTableCell1"
+        Me.XrTableCell1.StylePriority.UseFont = False
+        Me.XrTableCell1.Text = "XrTableCell1"
+        Me.XrTableCell1.Weight = 0.65133730026355985R
+        '
+        'XrTableCell2
+        '
+        Me.XrTableCell2.Dpi = 254.0!
+        Me.XrTableCell2.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Fecha]")})
+        Me.XrTableCell2.Name = "XrTableCell2"
+        Me.XrTableCell2.Text = "XrTableCell2"
+        Me.XrTableCell2.TextFormatString = "{0:dd/MM/yyyy HH:mm}"
+        Me.XrTableCell2.Weight = 0.14856320511943927R
+        '
+        'XrTableCell6
+        '
+        Me.XrTableCell6.Dpi = 254.0!
+        Me.XrTableCell6.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[idMovimiento]")})
+        Me.XrTableCell6.Name = "XrTableCell6"
+        Me.XrTableCell6.Text = "XrTableCell6"
+        Me.XrTableCell6.Weight = 0.15225145388319286R
+        '
+        'XrTableCell7
+        '
+        Me.XrTableCell7.Dpi = 254.0!
+        Me.XrTableCell7.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Importe]")})
+        Me.XrTableCell7.Name = "XrTableCell7"
+        Me.XrTableCell7.StylePriority.UseTextAlignment = False
+        Me.XrTableCell7.Text = "XrTableCell7"
+        Me.XrTableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
+        Me.XrTableCell7.TextFormatString = "{0:c2}"
+        Me.XrTableCell7.Weight = 0.12158946848324614R
+        '
+        'XrTableCell9
+        '
+        Me.XrTableCell9.Dpi = 254.0!
+        Me.XrTableCell9.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[idUsuarioNavigation].[Nombre]")})
+        Me.XrTableCell9.Name = "XrTableCell9"
+        Me.XrTableCell9.StylePriority.UseTextAlignment = False
+        Me.XrTableCell9.Text = "XrTableCell9"
+        Me.XrTableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter
+        Me.XrTableCell9.Weight = 0.14983867201936621R
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable2})
+        Me.GroupHeader1.Dpi = 254.0!
+        Me.GroupHeader1.HeightF = 56.78311!
+        Me.GroupHeader1.Name = "GroupHeader1"
+        '
+        'XrTable2
+        '
+        Me.XrTable2.BackColor = System.Drawing.Color.Silver
+        Me.XrTable2.Dpi = 254.0!
+        Me.XrTable2.Font = New DevExpress.Drawing.DXFont("Segoe UI", 9.75!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTable2.ForeColor = System.Drawing.Color.Black
+        Me.XrTable2.LocationFloat = New DevExpress.Utils.PointFloat(13.76761!, 0!)
+        Me.XrTable2.Name = "XrTable2"
+        Me.XrTable2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow2})
+        Me.XrTable2.SizeF = New System.Drawing.SizeF(1961.232!, 47.28944!)
+        Me.XrTable2.StylePriority.UseBackColor = False
+        Me.XrTable2.StylePriority.UseFont = False
+        Me.XrTable2.StylePriority.UseForeColor = False
+        '
+        'XrTableRow2
+        '
+        Me.XrTableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell3, Me.XrTableCell4, Me.XrTableCell11, Me.XrTableCell12, Me.XrTableCell14})
+        Me.XrTableRow2.Dpi = 254.0!
+        Me.XrTableRow2.Name = "XrTableRow2"
+        Me.XrTableRow2.Weight = 11.5R
+        '
+        'XrTableCell3
+        '
+        Me.XrTableCell3.Dpi = 254.0!
+        Me.XrTableCell3.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTableCell3.Name = "XrTableCell3"
+        Me.XrTableCell3.StylePriority.UseFont = False
+        Me.XrTableCell3.Text = "Descripción"
+        Me.XrTableCell3.Weight = 0.651216911310395R
+        '
+        'XrTableCell4
+        '
+        Me.XrTableCell4.Dpi = 254.0!
+        Me.XrTableCell4.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTableCell4.Name = "XrTableCell4"
+        Me.XrTableCell4.StylePriority.UseFont = False
+        Me.XrTableCell4.Text = "Fecha"
+        Me.XrTableCell4.Weight = 0.14853577036309198R
+        '
+        'XrTableCell11
+        '
+        Me.XrTableCell11.Dpi = 254.0!
+        Me.XrTableCell11.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTableCell11.Name = "XrTableCell11"
+        Me.XrTableCell11.StylePriority.UseFont = False
+        Me.XrTableCell11.Text = "Nº Movimiento"
+        Me.XrTableCell11.Weight = 0.15222340015547486R
+        '
+        'XrTableCell12
+        '
+        Me.XrTableCell12.Dpi = 254.0!
+        Me.XrTableCell12.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTableCell12.Name = "XrTableCell12"
+        Me.XrTableCell12.StylePriority.UseFont = False
+        Me.XrTableCell12.StylePriority.UseTextAlignment = False
+        Me.XrTableCell12.Text = "Importe"
+        Me.XrTableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
+        Me.XrTableCell12.Weight = 0.10990615377483919R
+        '
+        'XrTableCell14
+        '
+        Me.XrTableCell14.Dpi = 254.0!
+        Me.XrTableCell14.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTableCell14.Name = "XrTableCell14"
+        Me.XrTableCell14.StylePriority.UseFont = False
+        Me.XrTableCell14.StylePriority.UseTextAlignment = False
+        Me.XrTableCell14.Text = "Usuario"
+        Me.XrTableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter
+        Me.XrTableCell14.Weight = 0.16147183210373589R
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel16, Me.XrLabel15, Me.XrLabel12, Me.XrLabel11, Me.XrLabel10, Me.XrLabel9, Me.XrLabel8, Me.XrLabel7, Me.XrShape1})
+        Me.GroupFooter1.Dpi = 254.0!
+        Me.GroupFooter1.HeightF = 238.7961!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'XrLabel16
+        '
+        Me.XrLabel16.Dpi = 254.0!
+        Me.XrLabel16.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[SaldoAntesCierre]")})
+        Me.XrLabel16.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel16.LocationFloat = New DevExpress.Utils.PointFloat(430.3529!, 47.36097!)
+        Me.XrLabel16.Name = "XrLabel16"
+        Me.XrLabel16.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel16.SizeF = New System.Drawing.SizeF(274.0038!, 58.42003!)
+        Me.XrLabel16.StylePriority.UseFont = False
+        Me.XrLabel16.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel16.TextFormatString = "{0:c2}"
+        '
+        'XrLabel15
+        '
+        Me.XrLabel15.Dpi = 254.0!
+        Me.XrLabel15.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel15.LocationFloat = New DevExpress.Utils.PointFloat(55.95015!, 47.36121!)
+        Me.XrLabel15.Name = "XrLabel15"
+        Me.XrLabel15.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel15.SizeF = New System.Drawing.SizeF(353.2359!, 58.41998!)
+        Me.XrLabel15.StylePriority.UseFont = False
+        Me.XrLabel15.Text = "Saldo Cierre Anterior:"
+        '
+        'XrLabel12
+        '
+        Me.XrLabel12.Dpi = 254.0!
+        Me.XrLabel12.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[SaldoDespuesCierre]")})
+        Me.XrLabel12.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel12.LocationFloat = New DevExpress.Utils.PointFloat(430.3529!, 139.5012!)
+        Me.XrLabel12.Name = "XrLabel12"
+        Me.XrLabel12.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel12.SizeF = New System.Drawing.SizeF(274.0038!, 58.42003!)
+        Me.XrLabel12.StylePriority.UseFont = False
+        Me.XrLabel12.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel12.TextFormatString = "{0:c2}"
+        '
+        'XrLabel11
+        '
+        Me.XrLabel11.Dpi = 254.0!
+        Me.XrLabel11.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel11.LocationFloat = New DevExpress.Utils.PointFloat(845.7034!, 47.36105!)
+        Me.XrLabel11.Name = "XrLabel11"
+        Me.XrLabel11.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel11.SizeF = New System.Drawing.SizeF(292.7596!, 58.41998!)
+        Me.XrLabel11.StylePriority.UseFont = False
+        Me.XrLabel11.Text = "Importe Entrada:"
+        '
+        'XrLabel10
+        '
+        Me.XrLabel10.Dpi = 254.0!
+        Me.XrLabel10.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[ImporteEntradasMovimientosCerrados]")})
+        Me.XrLabel10.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel10.LocationFloat = New DevExpress.Utils.PointFloat(1154.338!, 47.36113!)
+        Me.XrLabel10.Name = "XrLabel10"
+        Me.XrLabel10.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel10.SizeF = New System.Drawing.SizeF(263.0427!, 58.42005!)
+        Me.XrLabel10.StylePriority.UseFont = False
+        Me.XrLabel10.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel10.TextFormatString = "{0:c2}"
+        '
+        'XrLabel9
+        '
+        Me.XrLabel9.Dpi = 254.0!
+        Me.XrLabel9.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel9.LocationFloat = New DevExpress.Utils.PointFloat(1445.093!, 47.36113!)
+        Me.XrLabel9.Name = "XrLabel9"
+        Me.XrLabel9.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel9.SizeF = New System.Drawing.SizeF(289.7356!, 58.41998!)
+        Me.XrLabel9.StylePriority.UseFont = False
+        Me.XrLabel9.Text = "Importe Salida:"
+        '
+        'XrLabel8
+        '
+        Me.XrLabel8.Dpi = 254.0!
+        Me.XrLabel8.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[ImporteSalidasMovimientosCerrados]")})
+        Me.XrLabel8.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel8.LocationFloat = New DevExpress.Utils.PointFloat(1734.828!, 47.36105!)
+        Me.XrLabel8.Name = "XrLabel8"
+        Me.XrLabel8.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel8.SizeF = New System.Drawing.SizeF(240.1718!, 58.42003!)
+        Me.XrLabel8.StylePriority.UseFont = False
+        Me.XrLabel8.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel8.TextFormatString = "{0:c2}"
+        '
+        'XrLabel7
+        '
+        Me.XrLabel7.Dpi = 254.0!
+        Me.XrLabel7.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel7.LocationFloat = New DevExpress.Utils.PointFloat(55.95015!, 139.5012!)
+        Me.XrLabel7.Name = "XrLabel7"
+        Me.XrLabel7.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel7.SizeF = New System.Drawing.SizeF(353.2359!, 58.41998!)
+        Me.XrLabel7.StylePriority.UseFont = False
+        Me.XrLabel7.Text = "Saldo Caja Al Cierre:"
+        '
+        'XrShape1
+        '
+        Me.XrShape1.Dpi = 254.0!
+        Me.XrShape1.FillColor = System.Drawing.Color.WhiteSmoke
+        Me.XrShape1.LocationFloat = New DevExpress.Utils.PointFloat(13.76757!, 25.00001!)
+        Me.XrShape1.Name = "XrShape1"
+        ShapeRectangle2.Fillet = 20
+        Me.XrShape1.Shape = ShapeRectangle2
+        Me.XrShape1.SizeF = New System.Drawing.SizeF(1986.233!, 213.7961!)
+        '
+        'ObjectDataSource1
+        '
+        Me.ObjectDataSource1.DataSource = GetType(Global.bdGrupoSanchoToro.db.movimientoscaja)
+        Me.ObjectDataSource1.Name = "ObjectDataSource1"
+        '
+        'Fecha
+        '
+        Me.Fecha.Description = "Parameter1"
+        Me.Fecha.Name = "Fecha"
+        Me.Fecha.Type = GetType(Integer)
+        Me.Fecha.ValueInfo = "0"
+        '
+        'xrCierreCaja
+        '
+        Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.TopMargin, Me.BottomMargin, Me.Detail, Me.DetailReport})
+        Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.ObjectDataSource1})
+        Me.DataSource = Me.ObjectDataSource1
+        Me.Dpi = 254.0!
+        Me.Font = New DevExpress.Drawing.DXFont("Arial", 9.75!)
+        Me.Margins = New DevExpress.Drawing.DXMargins(50.0!, 50.0!, 138.7708!, 50.0!)
+        Me.PageHeight = 2970
+        Me.PageWidth = 2100
+        Me.PaperKind = DevExpress.Drawing.Printing.DXPaperKind.A4
+        Me.Parameters.AddRange(New DevExpress.XtraReports.Parameters.Parameter() {Me.Fecha})
+        Me.ReportUnit = DevExpress.XtraReports.UI.ReportUnit.TenthsOfAMillimeter
+        Me.SnapGridSize = 25.0!
+        Me.Version = "23.2"
+        CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ObjectDataSource1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+
+    Friend WithEvents TopMargin As DevExpress.XtraReports.UI.TopMarginBand
+    Friend WithEvents BottomMargin As DevExpress.XtraReports.UI.BottomMarginBand
+    Friend WithEvents Detail As DevExpress.XtraReports.UI.DetailBand
+    Friend WithEvents XrLabel3 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel5 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel1 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel2 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel4 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel6 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel14 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel13 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrShape2 As DevExpress.XtraReports.UI.XRShape
+    Friend WithEvents ObjectDataSource1 As DevExpress.DataAccess.ObjectBinding.ObjectDataSource
+    Friend WithEvents DetailReport As DevExpress.XtraReports.UI.DetailReportBand
+    Friend WithEvents Detail1 As DevExpress.XtraReports.UI.DetailBand
+    Friend WithEvents XrTable1 As DevExpress.XtraReports.UI.XRTable
+    Friend WithEvents XrTableRow1 As DevExpress.XtraReports.UI.XRTableRow
+    Friend WithEvents XrTableCell1 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell2 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell6 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell7 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell9 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents GroupHeader1 As DevExpress.XtraReports.UI.GroupHeaderBand
+    Friend WithEvents XrTable2 As DevExpress.XtraReports.UI.XRTable
+    Friend WithEvents XrTableRow2 As DevExpress.XtraReports.UI.XRTableRow
+    Friend WithEvents XrTableCell3 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell4 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell11 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell12 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell14 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents GroupFooter1 As DevExpress.XtraReports.UI.GroupFooterBand
+    Friend WithEvents XrLabel12 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel11 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel10 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel9 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel8 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel7 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrShape1 As DevExpress.XtraReports.UI.XRShape
+    Friend WithEvents XrLabel16 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel15 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel17 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel18 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents Fecha As DevExpress.XtraReports.Parameters.Parameter
+    Friend WithEvents XrPanel1 As DevExpress.XtraReports.UI.XRPanel
+    Friend WithEvents XrLabel22 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel19 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel20 As DevExpress.XtraReports.UI.XRLabel
+End Class

GestionGrupoSanchoToro/Informes/xrCierreCaja.Designer.vb.bak

@@ -0,0 +1,627 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class xrCierreCaja
+    Inherits DevExpress.XtraReports.UI.XtraReport
+
+    'XtraReport overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing AndAlso components IsNot Nothing Then
+            components.Dispose()
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'Required by the Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Designer
+    'It can be modified using the Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim ShapeRectangle1 As DevExpress.XtraPrinting.Shape.ShapeRectangle = New DevExpress.XtraPrinting.Shape.ShapeRectangle()
+        Dim ShapeRectangle2 As DevExpress.XtraPrinting.Shape.ShapeRectangle = New DevExpress.XtraPrinting.Shape.ShapeRectangle()
+        Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand()
+        Me.XrPanel1 = New DevExpress.XtraReports.UI.XRPanel()
+        Me.XrLabel22 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.BottomMargin = New DevExpress.XtraReports.UI.BottomMarginBand()
+        Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
+        Me.XrLabel19 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel20 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel17 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel18 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel3 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel5 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel1 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel2 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel4 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel6 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel14 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel13 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrShape2 = New DevExpress.XtraReports.UI.XRShape()
+        Me.DetailReport = New DevExpress.XtraReports.UI.DetailReportBand()
+        Me.Detail1 = New DevExpress.XtraReports.UI.DetailBand()
+        Me.XrTable1 = New DevExpress.XtraReports.UI.XRTable()
+        Me.XrTableRow1 = New DevExpress.XtraReports.UI.XRTableRow()
+        Me.XrTableCell1 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell2 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell6 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell7 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell9 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
+        Me.XrTable2 = New DevExpress.XtraReports.UI.XRTable()
+        Me.XrTableRow2 = New DevExpress.XtraReports.UI.XRTableRow()
+        Me.XrTableCell3 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell4 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell11 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell12 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell14 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.GroupFooter1 = New DevExpress.XtraReports.UI.GroupFooterBand()
+        Me.XrLabel16 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel15 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel12 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel11 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel10 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel9 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel8 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel7 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrShape1 = New DevExpress.XtraReports.UI.XRShape()
+        Me.ObjectDataSource1 = New DevExpress.DataAccess.ObjectBinding.ObjectDataSource(Me.components)
+        Me.Fecha = New DevExpress.XtraReports.Parameters.Parameter()
+        CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ObjectDataSource1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'TopMargin
+        '
+        Me.TopMargin.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPanel1})
+        Me.TopMargin.Dpi = 254.0!
+        Me.TopMargin.HeightF = 138.7708!
+        Me.TopMargin.Name = "TopMargin"
+        '
+        'XrPanel1
+        '
+        Me.XrPanel1.Borders = DevExpress.XtraPrinting.BorderSide.None
+        Me.XrPanel1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel22})
+        Me.XrPanel1.Dpi = 254.0!
+        Me.XrPanel1.LocationFloat = New DevExpress.Utils.PointFloat(67.24997!, 25.00001!)
+        Me.XrPanel1.Name = "XrPanel1"
+        Me.XrPanel1.SizeF = New System.Drawing.SizeF(963.0831!, 113.7708!)
+        Me.XrPanel1.StylePriority.UseBorders = False
+        '
+        'XrLabel22
+        '
+        Me.XrLabel22.Dpi = 254.0!
+        Me.XrLabel22.Font = New DevExpress.Drawing.DXFont("Arial", 12.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel22.LocationFloat = New DevExpress.Utils.PointFloat(25.40002!, 25.40002!)
+        Me.XrLabel22.Name = "XrLabel22"
+        Me.XrLabel22.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel22.SizeF = New System.Drawing.SizeF(444.5!, 58.42001!)
+        Me.XrLabel22.StylePriority.UseFont = False
+        Me.XrLabel22.StylePriority.UseTextAlignment = False
+        Me.XrLabel22.Text = "CIERRE DE CAJA"
+        Me.XrLabel22.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter
+        '
+        'BottomMargin
+        '
+        Me.BottomMargin.Dpi = 254.0!
+        Me.BottomMargin.HeightF = 50.0!
+        Me.BottomMargin.Name = "BottomMargin"
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel19, Me.XrLabel20, Me.XrLabel17, Me.XrLabel18, Me.XrLabel3, Me.XrLabel5, Me.XrLabel1, Me.XrLabel2, Me.XrLabel4, Me.XrLabel6, Me.XrLabel14, Me.XrLabel13, Me.XrShape2})
+        Me.Detail.Dpi = 254.0!
+        Me.Detail.HeightF = 238.6076!
+        Me.Detail.HierarchyPrintOptions.Indent = 50.8!
+        Me.Detail.Name = "Detail"
+        '
+        'XrLabel19
+        '
+        Me.XrLabel19.Dpi = 254.0!
+        Me.XrLabel19.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[ImporteCerrado]")})
+        Me.XrLabel19.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel19.LocationFloat = New DevExpress.Utils.PointFloat(1704.458!, 131.6514!)
+        Me.XrLabel19.Name = "XrLabel19"
+        Me.XrLabel19.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel19.SizeF = New System.Drawing.SizeF(276.6497!, 58.42004!)
+        Me.XrLabel19.StylePriority.UseFont = False
+        Me.XrLabel19.StylePriority.UseTextAlignment = False
+        Me.XrLabel19.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel19.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
+        Me.XrLabel19.TextFormatString = "{0:c2}"
+        '
+        'XrLabel20
+        '
+        Me.XrLabel20.Dpi = 254.0!
+        Me.XrLabel20.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel20.LocationFloat = New DevExpress.Utils.PointFloat(1356.514!, 131.6514!)
+        Me.XrLabel20.Name = "XrLabel20"
+        Me.XrLabel20.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel20.SizeF = New System.Drawing.SizeF(329.4233!, 58.42001!)
+        Me.XrLabel20.StylePriority.UseFont = False
+        Me.XrLabel20.Text = "Importe M. Cerrados:"
+        '
+        'XrLabel17
+        '
+        Me.XrLabel17.Dpi = 254.0!
+        Me.XrLabel17.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[cajas].[Descripcion]")})
+        Me.XrLabel17.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel17.LocationFloat = New DevExpress.Utils.PointFloat(824.3406!, 52.91675!)
+        Me.XrLabel17.Name = "XrLabel17"
+        Me.XrLabel17.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel17.SizeF = New System.Drawing.SizeF(518.9336!, 58.42002!)
+        Me.XrLabel17.StylePriority.UseFont = False
+        Me.XrLabel17.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        '
+        'XrLabel18
+        '
+        Me.XrLabel18.Dpi = 254.0!
+        Me.XrLabel18.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel18.LocationFloat = New DevExpress.Utils.PointFloat(540.0046!, 52.91683!)
+        Me.XrLabel18.Name = "XrLabel18"
+        Me.XrLabel18.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel18.SizeF = New System.Drawing.SizeF(266.3013!, 58.41997!)
+        Me.XrLabel18.StylePriority.UseFont = False
+        Me.XrLabel18.Text = "Caja Cierre:"
+        '
+        'XrLabel3
+        '
+        Me.XrLabel3.Dpi = 254.0!
+        Me.XrLabel3.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[cajas].[Descripcion]")})
+        Me.XrLabel3.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel3.LocationFloat = New DevExpress.Utils.PointFloat(219.5094!, 52.91675!)
+        Me.XrLabel3.Name = "XrLabel3"
+        Me.XrLabel3.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel3.SizeF = New System.Drawing.SizeF(287.2332!, 58.42002!)
+        Me.XrLabel3.StylePriority.UseFont = False
+        Me.XrLabel3.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        '
+        'XrLabel5
+        '
+        Me.XrLabel5.Dpi = 254.0!
+        Me.XrLabel5.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel5.LocationFloat = New DevExpress.Utils.PointFloat(540.0046!, 131.6514!)
+        Me.XrLabel5.Name = "XrLabel5"
+        Me.XrLabel5.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel5.SizeF = New System.Drawing.SizeF(266.3012!, 58.41997!)
+        Me.XrLabel5.StylePriority.UseFont = False
+        Me.XrLabel5.Text = "Usuario que cierra:"
+        '
+        'XrLabel1
+        '
+        Me.XrLabel1.Dpi = 254.0!
+        Me.XrLabel1.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Fecha]")})
+        Me.XrLabel1.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel1.LocationFloat = New DevExpress.Utils.PointFloat(219.5094!, 131.6514!)
+        Me.XrLabel1.Name = "XrLabel1"
+        Me.XrLabel1.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel1.SizeF = New System.Drawing.SizeF(287.2332!, 58.42004!)
+        Me.XrLabel1.StylePriority.UseFont = False
+        Me.XrLabel1.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel1.TextFormatString = "{0:dd/MM/yyyy}"
+        '
+        'XrLabel2
+        '
+        Me.XrLabel2.Dpi = 254.0!
+        Me.XrLabel2.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel2.LocationFloat = New DevExpress.Utils.PointFloat(29.55924!, 131.6515!)
+        Me.XrLabel2.Name = "XrLabel2"
+        Me.XrLabel2.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel2.SizeF = New System.Drawing.SizeF(189.9501!, 58.41997!)
+        Me.XrLabel2.StylePriority.UseFont = False
+        Me.XrLabel2.Text = "Fecha Cierre:"
+        '
+        'XrLabel4
+        '
+        Me.XrLabel4.Dpi = 254.0!
+        Me.XrLabel4.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[usuarios].[Nombre]")})
+        Me.XrLabel4.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel4.LocationFloat = New DevExpress.Utils.PointFloat(824.3407!, 131.6514!)
+        Me.XrLabel4.Name = "XrLabel4"
+        Me.XrLabel4.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel4.SizeF = New System.Drawing.SizeF(518.9335!, 58.42004!)
+        Me.XrLabel4.StylePriority.UseFont = False
+        Me.XrLabel4.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        '
+        'XrLabel6
+        '
+        Me.XrLabel6.Dpi = 254.0!
+        Me.XrLabel6.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel6.LocationFloat = New DevExpress.Utils.PointFloat(29.55924!, 52.91667!)
+        Me.XrLabel6.Name = "XrLabel6"
+        Me.XrLabel6.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel6.SizeF = New System.Drawing.SizeF(189.9501!, 58.41999!)
+        Me.XrLabel6.StylePriority.UseFont = False
+        Me.XrLabel6.Text = "Nº Cierre"
+        '
+        'XrLabel14
+        '
+        Me.XrLabel14.Dpi = 254.0!
+        Me.XrLabel14.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel14.LocationFloat = New DevExpress.Utils.PointFloat(1356.514!, 52.91675!)
+        Me.XrLabel14.Name = "XrLabel14"
+        Me.XrLabel14.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel14.SizeF = New System.Drawing.SizeF(252.316!, 58.41997!)
+        Me.XrLabel14.StylePriority.UseFont = False
+        Me.XrLabel14.Text = "Fecha Impresión:"
+        '
+        'XrLabel13
+        '
+        Me.XrLabel13.Dpi = 254.0!
+        Me.XrLabel13.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "?Fecha")})
+        Me.XrLabel13.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel13.LocationFloat = New DevExpress.Utils.PointFloat(1619.414!, 52.91659!)
+        Me.XrLabel13.Name = "XrLabel13"
+        Me.XrLabel13.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel13.SizeF = New System.Drawing.SizeF(362.6234!, 58.42004!)
+        Me.XrLabel13.StylePriority.UseFont = False
+        Me.XrLabel13.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel13.TextFormatString = "{0:dd/MM/yyyy}"
+        '
+        'XrShape2
+        '
+        Me.XrShape2.Dpi = 254.0!
+        Me.XrShape2.FillColor = System.Drawing.Color.WhiteSmoke
+        Me.XrShape2.LocationFloat = New DevExpress.Utils.PointFloat(13.76757!, 25.00001!)
+        Me.XrShape2.Name = "XrShape2"
+        ShapeRectangle1.Fillet = 20
+        Me.XrShape2.Shape = ShapeRectangle1
+        Me.XrShape2.SizeF = New System.Drawing.SizeF(1986.233!, 199.8627!)
+        '
+        'DetailReport
+        '
+        Me.DetailReport.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail1, Me.GroupHeader1, Me.GroupFooter1})
+        Me.DetailReport.DataMember = "MovimientosDelCierre"
+        Me.DetailReport.DataSource = Me.ObjectDataSource1
+        Me.DetailReport.Dpi = 254.0!
+        Me.DetailReport.Level = 0
+        Me.DetailReport.Name = "DetailReport"
+        '
+        'Detail1
+        '
+        Me.Detail1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable1})
+        Me.Detail1.Dpi = 254.0!
+        Me.Detail1.HeightF = 47.28944!
+        Me.Detail1.HierarchyPrintOptions.Indent = 50.8!
+        Me.Detail1.Name = "Detail1"
+        Me.Detail1.SortFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("idMovimiento", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)})
+        '
+        'XrTable1
+        '
+        Me.XrTable1.Dpi = 254.0!
+        Me.XrTable1.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrTable1.LocationFloat = New DevExpress.Utils.PointFloat(13.76761!, 0!)
+        Me.XrTable1.Name = "XrTable1"
+        Me.XrTable1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow1})
+        Me.XrTable1.SizeF = New System.Drawing.SizeF(1961.232!, 47.28944!)
+        Me.XrTable1.StylePriority.UseFont = False
+        '
+        'XrTableRow1
+        '
+        Me.XrTableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell1, Me.XrTableCell2, Me.XrTableCell6, Me.XrTableCell7, Me.XrTableCell9})
+        Me.XrTableRow1.Dpi = 254.0!
+        Me.XrTableRow1.Name = "XrTableRow1"
+        Me.XrTableRow1.Weight = 11.5R
+        '
+        'XrTableCell1
+        '
+        Me.XrTableCell1.Dpi = 254.0!
+        Me.XrTableCell1.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Descripcion]")})
+        Me.XrTableCell1.Name = "XrTableCell1"
+        Me.XrTableCell1.StylePriority.UseFont = False
+        Me.XrTableCell1.Text = "XrTableCell1"
+        Me.XrTableCell1.Weight = 0.65133730026355985R
+        '
+        'XrTableCell2
+        '
+        Me.XrTableCell2.Dpi = 254.0!
+        Me.XrTableCell2.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Fecha]")})
+        Me.XrTableCell2.Name = "XrTableCell2"
+        Me.XrTableCell2.Text = "XrTableCell2"
+        Me.XrTableCell2.TextFormatString = "{0:dd/MM/yyyy HH:mm}"
+        Me.XrTableCell2.Weight = 0.14856320511943927R
+        '
+        'XrTableCell6
+        '
+        Me.XrTableCell6.Dpi = 254.0!
+        Me.XrTableCell6.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[idMovimiento]")})
+        Me.XrTableCell6.Name = "XrTableCell6"
+        Me.XrTableCell6.Text = "XrTableCell6"
+        Me.XrTableCell6.Weight = 0.15225145388319286R
+        '
+        'XrTableCell7
+        '
+        Me.XrTableCell7.Dpi = 254.0!
+        Me.XrTableCell7.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Importe]")})
+        Me.XrTableCell7.Name = "XrTableCell7"
+        Me.XrTableCell7.StylePriority.UseTextAlignment = False
+        Me.XrTableCell7.Text = "XrTableCell7"
+        Me.XrTableCell7.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
+        Me.XrTableCell7.TextFormatString = "{0:c2}"
+        Me.XrTableCell7.Weight = 0.12158946848324614R
+        '
+        'XrTableCell9
+        '
+        Me.XrTableCell9.Dpi = 254.0!
+        Me.XrTableCell9.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[usuarios].[Usuario]")})
+        Me.XrTableCell9.Name = "XrTableCell9"
+        Me.XrTableCell9.StylePriority.UseTextAlignment = False
+        Me.XrTableCell9.Text = "XrTableCell9"
+        Me.XrTableCell9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter
+        Me.XrTableCell9.Weight = 0.14983867201936621R
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable2})
+        Me.GroupHeader1.Dpi = 254.0!
+        Me.GroupHeader1.HeightF = 56.78311!
+        Me.GroupHeader1.Name = "GroupHeader1"
+        '
+        'XrTable2
+        '
+        Me.XrTable2.BackColor = System.Drawing.Color.Silver
+        Me.XrTable2.Dpi = 254.0!
+        Me.XrTable2.Font = New DevExpress.Drawing.DXFont("Segoe UI", 9.75!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTable2.ForeColor = System.Drawing.Color.Black
+        Me.XrTable2.LocationFloat = New DevExpress.Utils.PointFloat(13.76761!, 0!)
+        Me.XrTable2.Name = "XrTable2"
+        Me.XrTable2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow2})
+        Me.XrTable2.SizeF = New System.Drawing.SizeF(1961.232!, 47.28944!)
+        Me.XrTable2.StylePriority.UseBackColor = False
+        Me.XrTable2.StylePriority.UseFont = False
+        Me.XrTable2.StylePriority.UseForeColor = False
+        '
+        'XrTableRow2
+        '
+        Me.XrTableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell3, Me.XrTableCell4, Me.XrTableCell11, Me.XrTableCell12, Me.XrTableCell14})
+        Me.XrTableRow2.Dpi = 254.0!
+        Me.XrTableRow2.Name = "XrTableRow2"
+        Me.XrTableRow2.Weight = 11.5R
+        '
+        'XrTableCell3
+        '
+        Me.XrTableCell3.Dpi = 254.0!
+        Me.XrTableCell3.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTableCell3.Name = "XrTableCell3"
+        Me.XrTableCell3.StylePriority.UseFont = False
+        Me.XrTableCell3.Text = "Descripción"
+        Me.XrTableCell3.Weight = 0.651216911310395R
+        '
+        'XrTableCell4
+        '
+        Me.XrTableCell4.Dpi = 254.0!
+        Me.XrTableCell4.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTableCell4.Name = "XrTableCell4"
+        Me.XrTableCell4.StylePriority.UseFont = False
+        Me.XrTableCell4.Text = "Fecha"
+        Me.XrTableCell4.Weight = 0.14853577036309199R
+        '
+        'XrTableCell11
+        '
+        Me.XrTableCell11.Dpi = 254.0!
+        Me.XrTableCell11.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTableCell11.Name = "XrTableCell11"
+        Me.XrTableCell11.StylePriority.UseFont = False
+        Me.XrTableCell11.Text = "Nº Movimiento"
+        Me.XrTableCell11.Weight = 0.15222340015547486R
+        '
+        'XrTableCell12
+        '
+        Me.XrTableCell12.Dpi = 254.0!
+        Me.XrTableCell12.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTableCell12.Name = "XrTableCell12"
+        Me.XrTableCell12.StylePriority.UseFont = False
+        Me.XrTableCell12.StylePriority.UseTextAlignment = False
+        Me.XrTableCell12.Text = "Importe"
+        Me.XrTableCell12.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
+        Me.XrTableCell12.Weight = 0.10990615377483919R
+        '
+        'XrTableCell14
+        '
+        Me.XrTableCell14.Dpi = 254.0!
+        Me.XrTableCell14.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrTableCell14.Name = "XrTableCell14"
+        Me.XrTableCell14.StylePriority.UseFont = False
+        Me.XrTableCell14.StylePriority.UseTextAlignment = False
+        Me.XrTableCell14.Text = "Usuario"
+        Me.XrTableCell14.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopCenter
+        Me.XrTableCell14.Weight = 0.16147183210373589R
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel16, Me.XrLabel15, Me.XrLabel12, Me.XrLabel11, Me.XrLabel10, Me.XrLabel9, Me.XrLabel8, Me.XrLabel7, Me.XrShape1})
+        Me.GroupFooter1.Dpi = 254.0!
+        Me.GroupFooter1.HeightF = 238.7961!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'XrLabel16
+        '
+        Me.XrLabel16.Dpi = 254.0!
+        Me.XrLabel16.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[SaldoAntesCierre]")})
+        Me.XrLabel16.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel16.LocationFloat = New DevExpress.Utils.PointFloat(430.3529!, 47.36097!)
+        Me.XrLabel16.Name = "XrLabel16"
+        Me.XrLabel16.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel16.SizeF = New System.Drawing.SizeF(274.0038!, 58.42003!)
+        Me.XrLabel16.StylePriority.UseFont = False
+        Me.XrLabel16.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel16.TextFormatString = "{0:c2}"
+        '
+        'XrLabel15
+        '
+        Me.XrLabel15.Dpi = 254.0!
+        Me.XrLabel15.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel15.LocationFloat = New DevExpress.Utils.PointFloat(55.95015!, 47.36121!)
+        Me.XrLabel15.Name = "XrLabel15"
+        Me.XrLabel15.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel15.SizeF = New System.Drawing.SizeF(353.2359!, 58.41998!)
+        Me.XrLabel15.StylePriority.UseFont = False
+        Me.XrLabel15.Text = "Saldo Cierre Anterior:"
+        '
+        'XrLabel12
+        '
+        Me.XrLabel12.Dpi = 254.0!
+        Me.XrLabel12.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[SaldoDespuesCierre]")})
+        Me.XrLabel12.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel12.LocationFloat = New DevExpress.Utils.PointFloat(430.3529!, 139.5012!)
+        Me.XrLabel12.Name = "XrLabel12"
+        Me.XrLabel12.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel12.SizeF = New System.Drawing.SizeF(274.0038!, 58.42003!)
+        Me.XrLabel12.StylePriority.UseFont = False
+        Me.XrLabel12.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel12.TextFormatString = "{0:c2}"
+        '
+        'XrLabel11
+        '
+        Me.XrLabel11.Dpi = 254.0!
+        Me.XrLabel11.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel11.LocationFloat = New DevExpress.Utils.PointFloat(845.7034!, 47.36105!)
+        Me.XrLabel11.Name = "XrLabel11"
+        Me.XrLabel11.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel11.SizeF = New System.Drawing.SizeF(292.7596!, 58.41998!)
+        Me.XrLabel11.StylePriority.UseFont = False
+        Me.XrLabel11.Text = "Importe Entrada:"
+        '
+        'XrLabel10
+        '
+        Me.XrLabel10.Dpi = 254.0!
+        Me.XrLabel10.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[ImporteEntradasMovimientosCerrados]")})
+        Me.XrLabel10.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel10.LocationFloat = New DevExpress.Utils.PointFloat(1154.338!, 47.36113!)
+        Me.XrLabel10.Name = "XrLabel10"
+        Me.XrLabel10.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel10.SizeF = New System.Drawing.SizeF(263.0427!, 58.42005!)
+        Me.XrLabel10.StylePriority.UseFont = False
+        Me.XrLabel10.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel10.TextFormatString = "{0:c2}"
+        '
+        'XrLabel9
+        '
+        Me.XrLabel9.Dpi = 254.0!
+        Me.XrLabel9.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel9.LocationFloat = New DevExpress.Utils.PointFloat(1445.093!, 47.36113!)
+        Me.XrLabel9.Name = "XrLabel9"
+        Me.XrLabel9.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel9.SizeF = New System.Drawing.SizeF(289.7356!, 58.41998!)
+        Me.XrLabel9.StylePriority.UseFont = False
+        Me.XrLabel9.Text = "Importe Salida:"
+        '
+        'XrLabel8
+        '
+        Me.XrLabel8.Dpi = 254.0!
+        Me.XrLabel8.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[ImporteSalidasMovimientosCerrados]")})
+        Me.XrLabel8.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!)
+        Me.XrLabel8.LocationFloat = New DevExpress.Utils.PointFloat(1734.828!, 47.36105!)
+        Me.XrLabel8.Name = "XrLabel8"
+        Me.XrLabel8.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel8.SizeF = New System.Drawing.SizeF(240.1718!, 58.42003!)
+        Me.XrLabel8.StylePriority.UseFont = False
+        Me.XrLabel8.Text = "[profesores.Nombre] [Profesores.Apellidos]"
+        Me.XrLabel8.TextFormatString = "{0:c2}"
+        '
+        'XrLabel7
+        '
+        Me.XrLabel7.Dpi = 254.0!
+        Me.XrLabel7.Font = New DevExpress.Drawing.DXFont("Segoe UI", 8.0!, DevExpress.Drawing.DXFontStyle.Bold)
+        Me.XrLabel7.LocationFloat = New DevExpress.Utils.PointFloat(55.95015!, 139.5012!)
+        Me.XrLabel7.Name = "XrLabel7"
+        Me.XrLabel7.Padding = New DevExpress.XtraPrinting.PaddingInfo(5, 5, 0, 0, 254.0!)
+        Me.XrLabel7.SizeF = New System.Drawing.SizeF(353.2359!, 58.41998!)
+        Me.XrLabel7.StylePriority.UseFont = False
+        Me.XrLabel7.Text = "Saldo Caja Al Cierre:"
+        '
+        'XrShape1
+        '
+        Me.XrShape1.Dpi = 254.0!
+        Me.XrShape1.FillColor = System.Drawing.Color.WhiteSmoke
+        Me.XrShape1.LocationFloat = New DevExpress.Utils.PointFloat(13.76757!, 25.00001!)
+        Me.XrShape1.Name = "XrShape1"
+        ShapeRectangle2.Fillet = 20
+        Me.XrShape1.Shape = ShapeRectangle2
+        Me.XrShape1.SizeF = New System.Drawing.SizeF(1986.233!, 213.7961!)
+        '
+        'ObjectDataSource1
+        '
+        Me.ObjectDataSource1.DataSource = GetType(bdGrupoSanchoToro.db.movimientoscaja)
+        Me.ObjectDataSource1.Name = "ObjectDataSource1"
+        '
+        'Fecha
+        '
+        Me.Fecha.Description = "Parameter1"
+        Me.Fecha.Name = "Fecha"
+        Me.Fecha.Type = GetType(Integer)
+        Me.Fecha.ValueInfo = "0"
+        '
+        'xrCierreCaja
+        '
+        Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.TopMargin, Me.BottomMargin, Me.Detail, Me.DetailReport})
+        Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.ObjectDataSource1})
+        Me.DataSource = Me.ObjectDataSource1
+        Me.Dpi = 254.0!
+        Me.Font = New DevExpress.Drawing.DXFont("Arial", 9.75!)
+        Me.Margins = New DevExpress.Drawing.DXMargins(50, 50, 139, 50)
+        Me.PageHeight = 2970
+        Me.PageWidth = 2100
+        Me.PaperKind = System.Drawing.Printing.PaperKind.A4
+        Me.Parameters.AddRange(New DevExpress.XtraReports.Parameters.Parameter() {Me.Fecha})
+        Me.ReportUnit = DevExpress.XtraReports.UI.ReportUnit.TenthsOfAMillimeter
+        Me.SnapGridSize = 25.0!
+        Me.Version = "19.2"
+        CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ObjectDataSource1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+
+    Friend WithEvents TopMargin As DevExpress.XtraReports.UI.TopMarginBand
+    Friend WithEvents BottomMargin As DevExpress.XtraReports.UI.BottomMarginBand
+    Friend WithEvents Detail As DevExpress.XtraReports.UI.DetailBand
+    Friend WithEvents XrLabel3 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel5 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel1 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel2 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel4 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel6 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel14 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel13 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrShape2 As DevExpress.XtraReports.UI.XRShape
+    Friend WithEvents ObjectDataSource1 As DevExpress.DataAccess.ObjectBinding.ObjectDataSource
+    Friend WithEvents DetailReport As DevExpress.XtraReports.UI.DetailReportBand
+    Friend WithEvents Detail1 As DevExpress.XtraReports.UI.DetailBand
+    Friend WithEvents XrTable1 As DevExpress.XtraReports.UI.XRTable
+    Friend WithEvents XrTableRow1 As DevExpress.XtraReports.UI.XRTableRow
+    Friend WithEvents XrTableCell1 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell2 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell6 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell7 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell9 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents GroupHeader1 As DevExpress.XtraReports.UI.GroupHeaderBand
+    Friend WithEvents XrTable2 As DevExpress.XtraReports.UI.XRTable
+    Friend WithEvents XrTableRow2 As DevExpress.XtraReports.UI.XRTableRow
+    Friend WithEvents XrTableCell3 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell4 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell11 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell12 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell14 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents GroupFooter1 As DevExpress.XtraReports.UI.GroupFooterBand
+    Friend WithEvents XrLabel12 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel11 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel10 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel9 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel8 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel7 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrShape1 As DevExpress.XtraReports.UI.XRShape
+    Friend WithEvents XrLabel16 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel15 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel17 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel18 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents Fecha As DevExpress.XtraReports.Parameters.Parameter
+    Friend WithEvents XrPanel1 As DevExpress.XtraReports.UI.XRPanel
+    Friend WithEvents XrLabel22 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel19 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel20 As DevExpress.XtraReports.UI.XRLabel
+End Class

GestionGrupoSanchoToro/Informes/xrCierreCaja.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

GestionGrupoSanchoToro/Informes/xrCierreCaja.vb

@@ -0,0 +1,3 @@
+Public Class xrCierreCaja
+
+End Class