Agregar archivos de proyecto.

GestionGrupoSanchoToro/FicherosMaestros/ucCajas.xaml.vb

@@ -0,0 +1,534 @@
+
+Imports bdGrupoSanchoToro.db
+Imports System.Data.Entity
+Imports DevExpress.Xpf.Core
+Imports tsWPFCore
+Imports System.Collections
+Imports DevExpress.Xpf.Bars
+Imports System.Threading.Tasks
+Imports System.Linq.Dynamic
+Imports bdGrupoSanchoToro.db.Utilidades
+Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
+
+
+Public Class ucCajas
+
+    Private DatacontextEstablecido As Boolean
+    Private bd As tscGrupoSanchoToro
+
+
+
+
+    Public Overrides Sub Cargado()
+        GridBusqueda = Me.gc
+    End Sub
+
+
+
+    Public Overrides Function EstablecedcPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
+        gc.ItemsSource = bd.cajas.Where(Function(x) x.idEmpresa = EmpresaActual.idEmpresa).OrderBy(Function(x) x.Descripcion).ToList
+        Return tsUtilidades.EstadosAplicacion.AplicacionSinIndice
+    End Function
+
+    Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
+
+    End Sub
+
+    Public Overrides Sub EstableceTitulo()
+        Me.docpanel.Caption = "Cajas"
+    End Sub
+
+    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
+        Get
+            Return "Cajas"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property NombreTablaBase As String
+        Get
+            Return "cajas"
+        End Get
+    End Property
+
+    Public Overrides ReadOnly Property DescripcionRegistro As String
+        Get
+            Return "Caja"
+        End Get
+    End Property
+
+    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.ADMINISTRATIVOS", idUsuario)
+    End Function
+
+
+
+    Private Sub ap_Enlazar(Celda As DevExpress.Xpf.Grid.EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
+
+        Dim cj = DirectCast(Me.gc.CurrentItem, cajas)
+        Dim id = cj.idCaja
+        FuncionesDinamicas.AbrirAP(New ucCaja(id), OtrosParametros)
+
+    End Sub
+
+    Private Sub ucCajas_BotonNuevoPulsado() Handles Me.BotonNuevoPulsado
+        FuncionesDinamicas.AbrirAP(New ucCaja(Nothing), OtrosParametros)
+    End Sub
+End Class
+
+'Public Class ucConciliacionBancaria
+'    
+
+'    Dim bd As tscGrupoSanchoToro
+'    Private WithEvents ApLineas As tsWPFCore.ApLineas
+'    '    Private ListadoCajas As List(Of Integer)
+'    Private DatosCargados As Boolean
+'    Private TotalPagado As Double
+'    Private TotalDevuelto As Double
+'    Private TotalPagadoAgrupado As Double
+'    Private TotalDevueltoAgrupado As Double
+'    Private ApuntesAGuardar As List(Of Integer)
+'    Private idCajs() As Integer
+'    Private cajs As List(Of cajas)
+
+
+'    Private Sub ApLineas_Cargado() Handles ApLineas.Cargado
+'        Me.tv.AllowEditing = True
+'        '     Me.gcSupervisado.AllowEditing = DevExpress.Utils.DefaultBoolean.True
+'        Me.ApLineas.ContenedorL.btEliminar.IsVisible = False
+'        Me.ApLineas.ContenedorL.btNuevo.IsVisible = False
+'        Me.ApLineas.ContenedorL.btInvertir.IsVisible = False
+'        Me.ApLineas.ContenedorL.btSeleccionar.IsVisible = False
+'        Dim biguardar As DevExpress.Xpf.Bars.BarButtonItem
+'        biguardar = New DevExpress.Xpf.Bars.BarButtonItem
+'        biguardar.Name = "btGuardarConciliacion"
+'        biguardar.Glyph = New BitmapImage(New Uri("pack://application:,,,/DevExpress.Images.v16.2;component/GrayScaleImages/Save/Save_16x16.png"))
+'        biguardar.Hint = "Guardar"
+'        biguardar.IsEnabled = True
+'        Me.ApLineas.ContenedorL.BarraBotones.Items.Add(biguardar)
+'        Dim ilGuardar As New DevExpress.Xpf.Bars.BarButtonItemLink()
+'        ilGuardar.Name = "ilGuardar"
+'        ilGuardar.BarItemName = biguardar.Name
+'        Me.ApLineas.ContenedorL.BarraBotones.Bars(0).ItemLinks.Insert(0, ilGuardar)
+'        AddHandler biguardar.ItemClick, AddressOf Guardar_ItemClick
+
+'    End Sub
+
+
+'    Private Sub ApLineas_Enlazar(Celda As EditGridCellData, Defecto As Boolean) Handles ApLineas.Enlazar
+'        'Select Case Celda.Column.FieldName.ToLower
+'        '    Case "numerorecibo"
+'        Dim rec As Apuntes = Celda.RowData.Row
+'        Dim ucf As New ucFactura
+'        Dim dwi As dxwInicio = Window.GetWindow(Me)
+'        If rec.NumeroRecibo IsNot Nothing Then
+'            Comun.AbrirUcCL(ucf, dwi.grupodoc, Nothing, Me.ApLineas.dcfg, Me.ApLineas.dcn, 0, Me.ApLineas.dsc, Me.ApLineas.OtrosParametros, bd.recibos.First(Function(x) x.idrecibo = rec.NumeroRecibo).idFactura)
+'        End If
+'        ' End Select
+'    End Sub
+
+
+'    Public Sub EstableceDataContext(ByRef DataContext As Object, Optional BackGround As Boolean = False) Implements tsWPFCore.IApLineas.EstableceDataContext
+'        Try
+'            If Not DatosCargados Then
+'                cajs = (From c In bd.cajas Where c.FechaBaja Is Nothing AndAlso c.enumeraciones.Codigo <> "TIPCAJ.METALICO" Order By c.Descripcion).ToList
+'                For i = cajs.Count - 1 To 0 Step -1
+'                    If Comun.ObtienePermisos(bd, cajs(i).idPermiso, ApLineas.dsc.idUsuario).Otros = False Then
+'                        cajs.Remove(cajs(i))
+'                    End If
+'                Next
+'                If cajs.Count > 0 Then
+'                    If Comun.idCajaPredeterminada Is Nothing Then
+'                        If cajs.Count = 1 Then Comun.idCajaPredeterminada = cajs.First.idCaja
+'                    Else
+'                        If cajs.Where(Function(c) c.idCaja = Comun.idCajaPredeterminada).Count = 0 Then
+'                            Comun.idCajaPredeterminada = cajs.First.idCaja
+'                        End If
+'                    End If
+'                    Dim cj As cajas = (From c In bd.cajas Select c Where c.idCaja = Comun.idCajaPredeterminada).First
+'                End If
+'                idCajs = cajs.Select(Function(x) x.idCaja).ToArray
+'                ' Me.cbCaja.ItemsSource = cajs
+'                '     ListadoCajas = (From c In cajs Select c.idCaja).ToList
+'                'If Comun.idCajaPredeterminada IsNot Nothing Then
+'                '    Me.cbCaja.EditValue = Comun.idCajaPredeterminada
+'                'Else
+'                '    Me.cbCaja.EditValue = cajs.First
+'                'End If
+'            End If
+'            '  Me.teFechaFinal.EditValue = Now
+'            ' Me.teFechaInicial.EditValue = Now
+
+'            DatosCargados = True
+'            ObtieneApuntes()
+
+'            DataContext = Me.gc.DataContext
+
+'        Catch ex As Exception
+'            DXMessageBox.Show(ex.Message, "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+'        End Try
+'    End Sub
+
+'    Public ReadOnly Property NombreTablaBase As String Implements tsWPFCore.IApLineas.NombreTablaBase
+'        Get
+'            Return ""
+'        End Get
+'    End Property
+
+'    Public ReadOnly Property CampoIndice As String Implements IAplicacion.CampoIndice
+'        Get
+'            Throw New NotImplementedException()
+'        End Get
+'    End Property
+
+'    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
+'        Get
+'            Throw New NotImplementedException()
+'        End Get
+'    End Property
+
+'    Public Overrides ReadOnly Property DescripcionRegistro As String
+'        Get
+'            Throw New NotImplementedException()
+'        End Get
+'    End Property
+
+'    Private ReadOnly Property IAplicacion_NombreTablaBase As String Implements IAplicacion.NombreTablaBase
+'        Get
+'            Throw New NotImplementedException()
+'        End Get
+'    End Property
+
+'    Public Sub Nuevo() Implements tsWPFCore.IApLineas.Nuevo
+
+
+'    End Sub
+
+
+'    Public Function ObtieneRejilla() As tsWPFCore.tsGridControl Implements tsWPFCore.IApLineas.ObtieneRejilla
+'        Return Me.gc
+'    End Function
+
+'    Public Sub EstableceApLin(ApLin As tsWPFCore.ApLineas) Implements tsWPFCore.IApLineas.EstableceApLin
+'        Me.ApLineas = ApLin
+'    End Sub
+
+'    Public Function ObtieneContexto(dcn As tsUtilidades.Datos.DatosConexionCliente) As System.Data.Objects.ObjectContext Implements tsWPFCore.IApLineas.ObtieneContexto
+'        bd = bdM3Academy.Utilidades.NuevaConexion(dcn.BasesDatos(0))
+'        Return bd
+'    End Function
+
+'    Public Function ObtienePermisos() As tsUtilidades.Permisos Implements tsWPFCore.IApLineas.ObtienePermisos
+'        Return Comun.ObtienePermisos(Me.bd, "AP.CONCILIACIONBANCARIA", Me.ApLineas.dsc.idUsuario)
+'    End Function
+
+'    Public Function ObtieneCampoIndice() As String Implements tsWPFCore.IApLineas.ObtieneCampoIndice
+'        Return ""
+'    End Function
+
+
+'    'Private Sub ApLineas_ImprimirPlantilla(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs, idPlantilla As Integer) Handles ApLineas.ImprimirPlantilla
+'    '    Try
+'    '        Dim ds As Object = ObtieneDataSource()
+'    '        Informes.MuestraImpresos(bd, idPlantilla, ds, Me.ApLineas.GrupoDocumentos, tsWPFCore.ApCabLin.dm.DockController)
+'    '    Catch EX As Exception
+'    '        DXMessageBox.Show(EX.Message, "Atención", MessageBoxButton.OK)
+'    '    End Try
+'    'End Sub
+
+'    Private Sub ObtieneApuntes()
+'        Try
+'            If DatosCargados Then
+'                ApuntesAGuardar = New List(Of Integer)
+'                Dim iNumeroApuntes As Integer
+'                Dim ierecs As IEnumerable(Of recibos)
+'                Dim recs As List(Of recibos)
+
+'                Dim lm As New List(Of Apuntes)
+
+'                Dim m As Apuntes
+'                '   Dim idCaja As Integer? = DirectCast(Me.cbCaja.EditValue, Integer)
+'                Dim dIngresosp, dGastosp As Double
+'                If idCajs.Count > 0 Then
+'                    ierecs = (From r In bd.recibos Where idCajs.Contains(r.idCaja))
+'                    If Me.teFechaInicial.EditValue IsNot Nothing Then
+'                        Dim dFi As Date = Me.teFechaInicial.EditValue
+'                        Dim fi As New DateTime(dFi.Year, dFi.Month, dFi.Day, 0, 0, 0)
+'                        ierecs = (From r In ierecs Where r.FechaPago >= dFi)
+'                    End If
+'                    If Me.teFechaFinal.EditValue IsNot Nothing Then
+'                        Dim dFf As Date = Me.teFechaFinal.EditValue
+'                        Dim ff As New DateTime(dFf.Year, dFf.Month, dFf.Day, 23, 59, 59)
+'                        ierecs = (From r In ierecs Where r.FechaPago <= dFf)
+'                    End If
+'                    If Not Me.cbIncluirSupervisados.IsChecked Then
+'                        ierecs = (From r In ierecs Where r.Supervisado = False)
+'                    End If
+'                    recs = ierecs.ToList
+'                    For Each r In recs
+'                        iNumeroApuntes += 1
+'                        m = New Apuntes
+'                        m.Caja = cajs.First(Function(x) x.idCaja = r.idCaja).Descripcion
+'                        If r.facturas.Mes IsNot Nothing Then
+'                            m.Descripcion = "Recibo de " & r.facturas.RazonSocial & " Mensualidad: " & tsUtilidades.Utilidades.MesCastellano(r.facturas.Mes Mod 100) & " " & (r.facturas.Mes \ 100).ToString
+'                        Else
+'                            m.Descripcion = "Recibo de " & r.facturas.RazonSocial
+'                        End If
+'                        m.Fecha = r.FechaPago.Date
+'                        m.ImporteEntrada = r.Importe
+'                        m.ImporteSalida = 0
+'                        m.NumeroRecibo = r.idrecibo
+'                        m.Tipo = TipoMovimiento.RECIBO
+'                        m.Usuario = If(r.usuarios Is Nothing, "", r.usuarios.Nombre)
+'                        m.idApunte = iNumeroApuntes
+'                        '      m.Supervisado = r.Supervisado
+'                        m.FechaSupervision = r.FechaSupervision
+'                        m.idMovimientoORecibo = r.idrecibo
+'                        lm.Add(m)
+'                    Next
+'                    dIngresosp = recs.Sum(Function(x) x.Importe)
+
+
+'                    ierecs = (From r In bd.recibos Where idCajs.Contains(r.idCaja) AndAlso r.FechaDevolucion IsNot Nothing)
+'                    If Me.teFechaInicial.EditValue IsNot Nothing Then
+'                        Dim dFi As Date = Me.teFechaInicial.EditValue
+'                        Dim fi As New DateTime(dFi.Year, dFi.Month, dFi.Day, 0, 0, 0)
+'                        ierecs = (From r In ierecs Where r.FechaDevolucion >= dFi)
+'                    End If
+'                    If Me.teFechaFinal.EditValue IsNot Nothing Then
+'                        Dim dFf As Date = Me.teFechaFinal.EditValue
+'                        Dim ff As New DateTime(dFf.Year, dFf.Month, dFf.Day, 23, 59, 59)
+'                        ierecs = (From r In ierecs Where r.FechaDevolucion <= dFf)
+'                    End If
+'                    If Not Me.cbIncluirSupervisados.IsChecked Then
+'                        ierecs = (From r In ierecs Where r.DevolucionSupervisada = False)
+'                    End If
+'                    recs = ierecs.ToList
+'                    For Each r In recs
+'                        iNumeroApuntes += 1
+'                        m = New Apuntes
+'                        m.Caja = cajs.First(Function(x) x.idCaja = r.idCaja).Descripcion
+'                        If r.facturas.Mes IsNot Nothing Then
+'                            m.Descripcion = "Devolución Recibo de " & r.facturas.RazonSocial & " Mensualidad: " & tsUtilidades.Utilidades.MesCastellano(r.facturas.Mes Mod 100) & " " & (r.facturas.Mes \ 100).ToString
+'                        Else
+'                            m.Descripcion = "Devolución Recibo de " & r.facturas.RazonSocial
+'                        End If
+'                        m.Fecha = r.FechaDevolucion.Value.Date
+'                        m.ImporteEntrada = 0
+'                        m.ImporteSalida = r.Importe
+'                        m.NumeroRecibo = r.idrecibo
+'                        m.Tipo = TipoMovimiento.DEVOLUCION_RECIBO
+'                        m.Usuario = If(r.usuarios1 Is Nothing, "", r.usuarios1.Nombre)
+'                        m.idApunte = iNumeroApuntes
+'                        '                      m.Supervisado = r.DevolucionSupervisada
+'                        m.FechaSupervision = r.FechaSupervisionDevolucion
+'                        m.idMovimientoORecibo = r.idrecibo
+'                        lm.Add(m)
+'                    Next
+'                    dGastosp = recs.Sum(Function(x) x.Importe)
+
+'                    Dim iemovs As IEnumerable(Of movimientoscaja)
+'                    Dim movs As List(Of movimientoscaja)
+'                    iemovs = (From mv In bd.movimientoscaja Where idCajs.Contains(mv.idCaja) AndAlso mv.Tipo <> TipoMovimiento.APERTURA AndAlso mv.Tipo <> TipoMovimiento.CIERRE)
+
+'                    '  ierecs = (From r In bd.recibos Where r.idCaja = idCaja AndAlso r.FechaDevolucion IsNot Nothing)
+'                    If Me.teFechaInicial.EditValue IsNot Nothing Then
+'                        Dim dFi As Date = Me.teFechaInicial.EditValue
+'                        Dim fi As New DateTime(dFi.Year, dFi.Month, dFi.Day, 0, 0, 0)
+'                        iemovs = (From mv In iemovs Where mv.Fecha >= dFi)
+'                    End If
+'                    If Me.teFechaFinal.EditValue IsNot Nothing Then
+'                        Dim dFf As Date = Me.teFechaFinal.EditValue
+'                        Dim ff As New DateTime(dFf.Year, dFf.Month, dFf.Day, 23, 59, 59)
+'                        iemovs = (From mv In iemovs Where mv.Fecha <= dFf)
+'                    End If
+'                    If Not Me.cbIncluirSupervisados.IsChecked Then
+'                        iemovs = (From mv In iemovs Where mv.Supervisado = False)
+'                    End If
+'                    movs = iemovs.ToList
+'                    For Each mc In movs
+'                        iNumeroApuntes += 1
+'                        m = New Apuntes
+'                        m.Caja = cajs.First(Function(x) x.idCaja = mc.idCaja).Descripcion
+'                        m.Descripcion = mc.Descripcion
+'                        m.Fecha = mc.Fecha.Value.Date
+'                        m.ImporteSalida = mc.ImporteSalida
+'                        m.ImporteEntrada = mc.ImporteEntrada
+'                        m.Tipo = mc.Tipo
+'                        'Select Case mc.Tipo
+'                        '    Case "INGRESO"
+'                        '        m.Tipo = TipoMovimiento.INGRESO
+'                        '    Case "GASTO"
+'                        '        m.Tipo = TipoMovimiento.GASTO
+'                        '    Case "APERTURA"
+'                        '        m.Tipo = TipoMovimiento.APERTURA
+'                        '    Case "CIERRE"
+'                        '        m.Tipo = TipoMovimiento.CIERRE
+'                        '    Case "DEVOLUCION RECIBO"
+'                        '        m.Tipo = TipoMovimiento.DEVOLUCION_RECIBO
+'                        '    Case "TRASPASO"
+'                        '        m.Tipo = TipoMovimiento.TRASPASO
+'                        'End Select
+'                        m.Usuario = mc.usuarios.Nombre
+'                        m.idApunte = iNumeroApuntes
+'                        '                       m.Supervisado = mc.Supervisado
+'                        m.FechaSupervision = mc.FechaSupervision
+'                        m.idMovimientoORecibo = mc.idMovimiento
+'                        lm.Add(m)
+'                    Next
+'                    dIngresosp += movs.Sum(Function(x) x.ImporteEntrada)
+'                    dGastosp += movs.Sum(Function(x) x.ImporteSalida)
+'                    If idCajs.Count > 0 Then
+'                        recs = (From r In bd.recibos Where idCajs.Contains(r.idCaja) AndAlso r.idMovimientoCierre Is Nothing).ToList
+'                        Dim imprecs As Double? = recs.Sum(Function(r) r.Importe)
+'                        Dim recdevs = (From r In bd.recibos Where idCajs.Contains(r.idCaja) AndAlso r.idMovimientoCierreDevolucion Is Nothing AndAlso r.FechaDevolucion IsNot Nothing).ToList
+'                        Dim imprecdevs As Double? = recdevs.Sum(Function(r) r.Importe)
+'                        Dim mvs = (From mv In bd.movimientoscaja Where idCajs.Contains(mv.idCaja) AndAlso mv.idMovimientoCierre Is Nothing AndAlso mv.Tipo <> TipoMovimiento.CIERRE)
+'                        Dim dImporteMovEnt As Double? = mvs.Sum(Function(mv) mv.ImporteEntrada)
+'                        Dim dImporteMovSal As Double? = mvs.Sum(Function(mv) mv.ImporteSalida)
+'                        Dim dIngresos As Double = If(dImporteMovEnt, 0) + If(imprecs, 0)
+'                        Dim dGastos As Double = If(dImporteMovSal, 0) + If(imprecdevs, 0)
+'                        'Me.teSaldoActual.EditValue = dIngresos - dGastos
+'                        'Me.teIngresos.EditValue = dIngresosp
+'                        'Me.teGastos.EditValue = dGastosp
+'                    Else
+'                        'Me.teSaldoActual.EditValue = 0
+'                        'Me.teIngresos.EditValue = 0
+'                        'Me.teGastos.EditValue = 0
+'                    End If
+'                    lm = lm.OrderBy(Function(x) x.Fecha).ThenBy(Function(x) x.idApunte).ToList
+'                Else
+'                    Throw New Exception("Seleccione primero la caja")
+'                End If
+'                Me.gc.ItemsSource = lm
+
+
+
+'                For i = 0 To Me.gc.VisibleRowCount - 1
+'                    Dim rw = gc.GetRowHandleByVisibleIndex(i)
+'                    MarcaSeleccionados(rw)
+'                Next
+
+'            End If
+'        Catch ex As Exception
+'            Throw New Exception(ex.Message, ex)
+'        End Try
+'    End Sub
+'    Private Sub MarcaSeleccionados(rw As Integer)
+'        If Not gc.IsGroupRowHandle(rw) Then
+'            Dim ap As Apuntes = gc.GetRow(rw)
+'            If ap.FechaSupervision.HasValue Then
+'                gc.SelectItem(rw)
+'            End If
+'        Else
+'            For i = 0 To gc.GetChildRowCount(rw) - 1
+'                MarcaSeleccionados(gc.GetChildRowHandle(rw, i))
+'            Next
+'        End If
+'    End Sub
+
+'    Private Sub teFechaInicial_EditValueChanged(sender As Object, e As DevExpress.Xpf.Editors.EditValueChangedEventArgs) Handles teFechaInicial.EditValueChanged
+'        ObtieneApuntes()
+'        Me.DataContext = Me.gc.ItemsSource
+'    End Sub
+
+'    Private Sub teFechaFinal_EditValueChanged(sender As Object, e As DevExpress.Xpf.Editors.EditValueChangedEventArgs) Handles teFechaFinal.EditValueChanged
+'        ObtieneApuntes()
+'        Me.DataContext = Me.gc.ItemsSource
+'    End Sub
+
+
+
+'    Private Sub cbIncluirSupervisados_Checked(sender As Object, e As RoutedEventArgs)
+'        ObtieneApuntes()
+'        Me.DataContext = Me.gc.ItemsSource
+'    End Sub
+
+'    Private Sub cbIncluirSupervisados_Unchecked(sender As Object, e As RoutedEventArgs)
+'        ObtieneApuntes()
+'        Me.DataContext = Me.gc.ItemsSource
+'    End Sub
+
+'    Private Sub Guardar_ItemClick(sender As Object, e As DevExpress.Xpf.Bars.ItemClickEventArgs)
+'        tv.CommitEditing()
+
+'        '   Dim aps As List(Of Apuntes) = Me.gc.ItemsSource
+'        Dim ahora As DateTime = Comun.AhoraMysql(bd)
+'        gc.FilterCriteria = Nothing
+
+'        For i = 0 To Me.gc.VisibleRowCount - 1
+'            Dim rw = gc.GetRowHandleByVisibleIndex(i)
+'            If Not gc.IsGroupRowHandle(rw) Then
+'                EstableceConciliacion(rw, ahora)
+'            Else
+'                For j = 0 To gc.GetChildRowCount(rw) - 1
+'                    EstableceConciliacion(gc.GetChildRowHandle(rw, j), ahora)
+'                Next
+'            End If
+'        Next
+
+
+
+'        bd.GuardarCambios()
+'        EstableceDataContext(Me.DataContext)
+'    End Sub
+
+'    Private Sub EstableceConciliacion(rw As Integer, ahora As DateTime)
+'        Dim ap As Apuntes
+'        Dim r As recibos
+'        Dim m As movimientoscaja
+
+'        If Not gc.IsGroupRowHandle(rw) Then
+'            ap = gc.GetRow(rw)
+'            Select Case ap.Tipo
+'                Case TipoMovimiento.RECIBO
+'                    r = bd.recibos.First(Function(x) x.idrecibo = ap.idMovimientoORecibo)
+'                    If Me.tv.IsRowSelected(rw) Then
+'                        If Not r.Supervisado Then
+'                            r.Supervisado = True
+'                            r.FechaSupervision = ahora
+'                        End If
+'                    Else
+'                        If r.Supervisado Then
+'                            r.Supervisado = False
+'                            r.FechaSupervision = Nothing
+'                        End If
+'                    End If
+'                Case TipoMovimiento.DEVOLUCION_RECIBO
+'                    r = bd.recibos.First(Function(x) x.idrecibo = ap.idMovimientoORecibo)
+'                    If Me.tv.IsRowSelected(rw) Then
+'                        If Not r.DevolucionSupervisada Then
+'                            r.DevolucionSupervisada = True
+'                            r.FechaSupervisionDevolucion = ahora
+'                        End If
+'                    Else
+'                        If r.DevolucionSupervisada Then
+'                            r.DevolucionSupervisada = False
+'                            r.FechaSupervisionDevolucion = Nothing
+'                        End If
+'                    End If
+'                Case Else
+'                    m = bd.movimientoscaja.First(Function(x) x.idMovimiento = ap.idMovimientoORecibo)
+'                    If Me.tv.IsRowSelected(rw) Then
+'                        If Not m.Supervisado Then
+'                            m.Supervisado = True
+'                            m.FechaSupervision = ahora
+'                        End If
+'                    Else
+'                        If m.Supervisado Then
+'                            m.Supervisado = False
+'                            m.FechaSupervision = Nothing
+'                        End If
+'                    End If
+'            End Select
+
+
+'        End If
+'    End Sub
+
+'End Class