405 lines
21 KiB
VB.net
405 lines
21 KiB
VB.net
Imports DevExpress.Xpf.Editors
|
|
Imports tsWPFCore
|
|
Imports System.Data
|
|
Imports DevExpress.Xpf.Core
|
|
Imports tsWPFCore.modExtensiones
|
|
Imports Microsoft.EntityFrameworkCore
|
|
Imports DevExpress.Xpf.Bars
|
|
|
|
Imports DevExpress.Xpf.Grid
|
|
Imports bdGrupoSanchoToro.db
|
|
Imports bdGrupoSanchoToro.db.Utilidades
|
|
|
|
Public Class ucConciliacionBancaria
|
|
|
|
|
|
Private bd As tscGrupoSanchoToro
|
|
Friend _idConciliacion As Nullable(Of Integer)
|
|
|
|
Public Overrides Function EstablecedcPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
|
|
Dim NuevoEstado As tsUtilidades.EstadosAplicacion
|
|
Dim ra As conciliacionesbancarias
|
|
Dim cajas = bd.cajas.Where(Function(x) x.idEmpresa = EmpresaActual.idEmpresa AndAlso x.FechaBaja.HasValue = False AndAlso x.IBAN IsNot Nothing).OrderBy(Function(x) x.Descripcion).ToList
|
|
cbCaja.ItemsSource = cajas
|
|
If Estado = tsUtilidades.EstadosAplicacion.Nuevo OrElse _idConciliacion Is Nothing OrElse FuerzaNuevo Then
|
|
ra = New conciliacionesbancarias
|
|
Me.DataContext = ra
|
|
' ra.FechaInicio = Date.Today
|
|
' ra.FechaFin = Date.Today
|
|
ra.FechaConciliacion = Now
|
|
Dim TipoCajaBanco = CInt(db.cajas.TipoCajaEnum.BANCO)
|
|
ra.idCaja = cajas.First(Function(x) x.IBAN IsNot Nothing AndAlso x.Tipo = TipoCajaBanco).idCaja
|
|
ra.idUsuarioNavigation = bd.usuarios.First(Function(x) x.idUsuario = idUsuario)
|
|
_idConciliacion = Nothing
|
|
NuevoEstado = tsUtilidades.EstadosAplicacion.Nuevo
|
|
Else
|
|
ra = bd.conciliacionesbancarias.First(Function(x) x.idConciliacion = _idConciliacion.Value)
|
|
NuevoEstado = tsUtilidades.EstadosAplicacion.ModificandoRegistro
|
|
End If
|
|
Me.DataContext = ra
|
|
ObtieneExtractosYApuntes(ra)
|
|
Return NuevoEstado
|
|
|
|
End Function
|
|
|
|
|
|
Public Overrides Function ObtieneBD() As tsUtilidades.ItsContexto
|
|
bd = tscGrupoSanchoToro.NuevoContexto()
|
|
Return bd
|
|
End Function
|
|
|
|
Public Overrides ReadOnly Property NombreTablaBase As String
|
|
Get
|
|
Return "conciliacionesbancarias"
|
|
End Get
|
|
End Property
|
|
|
|
|
|
|
|
|
|
Public Overrides ReadOnly Property idRegistroAplicacionActual As String
|
|
Get
|
|
If Estado = tsUtilidades.EstadosAplicacion.Nuevo Then
|
|
Return "ConciliacionBancaria.Nuevo"
|
|
Else
|
|
Return "ConciliacionBancaria." & DirectCast(Me.DataContext, conciliacionesbancarias).idConciliacion.ToString
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
Public Overrides ReadOnly Property DescripcionRegistro As String
|
|
Get
|
|
Return "Conciliación Bancaria"
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub New(Optional idConciliacion As Integer? = Nothing)
|
|
|
|
' Llamada necesaria para el diseñador.
|
|
InitializeComponent()
|
|
_idConciliacion = idConciliacion
|
|
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
|
|
Dim Acciones As New List(Of tsWPFCore.Accion)
|
|
Acciones.Add(New Accion With {
|
|
.idAccion = 1,
|
|
.Descripcion = "CONCILIACIÓN AUTOMÁTICA"})
|
|
Me.ContenedorAplicacion.cbAcciones.ItemsSource = Acciones
|
|
If Acciones.Count > 0 Then Me.ContenedorAplicacion.beAcciones.EditValue = Acciones.First.idAccion
|
|
|
|
'Dim plantillas As List(Of tsWPFCore.Plantilla) = Comun.ObtienePlantillasPorCodigo(bd, {"CONBAN"})
|
|
'Me.ContenedorAplicacion.cbPlantillaAImprimir.ItemsSource = plantillas
|
|
'If plantillas.Count > 0 Then
|
|
' Me.ContenedorAplicacion.bePlantilla.EditValue = plantillas.First.idPlantilla
|
|
'End If
|
|
End Sub
|
|
|
|
Public Overrides Sub EstableceTitulo()
|
|
If Me.Estado = tsUtilidades.EstadosAplicacion.ModificandoRegistro Then
|
|
Dim ext As conciliacionesbancarias = Me.DataContext
|
|
Me.docpanel.Caption = "Conciliación Bancaria " & ext.idConciliacion.ToString
|
|
Me.docpanel.Tag = "Conciliacion Bancaria." & ext.idConciliacion.ToString
|
|
Else
|
|
Me.docpanel.Caption = "Conciliación Bancaria Nueva"
|
|
Me.docpanel.Tag = "Conciliacion Bancaria.Nueva"
|
|
End If
|
|
End Sub
|
|
|
|
Public Overrides Function ObtienePermisos() As tsUtilidades.Permisos
|
|
Return Comun.ObtienePermisos(Me.bd, "AP.SUPERADMINISTRATIVOS", idUsuario)
|
|
End Function
|
|
|
|
|
|
Public Overrides Sub Cargado()
|
|
Me.Tipo_ucControlBusqueda = GetType(ucExtractosBancarios)
|
|
Me.cbMes.ItemsSource = tsUtilidades.Utilidades.Meses
|
|
End Sub
|
|
|
|
|
|
Private Sub ObtieneExtractosYApuntes(ra As conciliacionesbancarias)
|
|
Try
|
|
If ra.FechaInicio <> DateOnly.MinValue Then
|
|
If DXSplashScreen.IsActive = False Then DXSplashScreen.Show(Of tsWPFCore.SplashScreenTecnosis)()
|
|
DXSplashScreen.SetState("Obteniendo Extractos Bancarios y Movimientos de caja, por favor espere ...")
|
|
' Dim fechainicio As New Date(2020, 1, 1)
|
|
Dim iban = bd.cajas.First(Function(x) x.idCaja = ra.idCaja).IBAN
|
|
' Dim aps = bd.movimientoscaja.Include(Function(x) x.conciliacionesbancarias).Include(Function(x) x.facturas).Include(Function(x) x.albaranes).Include(Function(x) x.facturasrecibidas).Where(Function(x) x.Fecha >= fechainicio AndAlso x.Tipo <> bdGrupoSanchoToro.db.TipoMovimientoEnum.CIERRE_CAJA AndAlso x.cajas.IBAN = iban AndAlso ((x.idConciliacion.HasValue = False OrElse x.Fecha <= ra.FechaFin) OrElse (x.Fecha >= ra.FechaInicio AndAlso x.Fecha <= ra.FechaFin) OrElse (x.idConciliacion = ra.idConciliacion))).ToList
|
|
' Dim exts = bd.movimientosbancarios.Include(Function(x) x.conciliacionesbancarias).Where(Function(x) x.extractosbancarios.cajas.IBAN = iban AndAlso ((x.idConciliacion.HasValue = False OrElse x.FechaOperacion <= ra.FechaFin) OrElse (x.FechaOperacion >= ra.FechaInicio AndAlso x.FechaOperacion <= ra.FechaFin) OrElse (x.idConciliacion.HasValue = False OrElse x.FechaValor <= ra.FechaFin) OrElse (x.FechaValor >= ra.FechaInicio AndAlso x.FechaValor <= ra.FechaFin) OrElse (x.idConciliacion = ra.idConciliacion))).ToList
|
|
Dim fi As DateOnly = ra.FechaInicio
|
|
Dim ff = ra.FechaFin.AddDays(1)
|
|
Dim dfi As Date = New Date(fi.Year, fi.Month, fi.Day)
|
|
Dim dff As Date = New Date(ff.Year, ff.Month, ff.Day)
|
|
Dim aps = bd.movimientoscaja.Include(Function(x) x.idConciliacionNavigation).Include(Function(x) x.idFacturaNavigation).Include(Function(x) x.idFacturaRecibidaNavigation).Where(Function(x) x.Fecha >= dfi AndAlso x.Fecha < dff AndAlso x.Tipo <> bdGrupoSanchoToro.db.TipoMovimientoEnum.CIERRE_CAJA AndAlso x.Tipo <> bdGrupoSanchoToro.db.TipoMovimientoEnum.REGULARIZACION_CAJA AndAlso x.idCajaNavigation.IBAN = iban).ToList
|
|
Dim exts = bd.movimientosbancarios.Include(Function(x) x.idConciliacionNavigation).Where(Function(x) x.idExtractoBancarioNavigation.idCajaNavigation.IBAN = iban AndAlso x.FechaOperacion >= fi AndAlso x.FechaOperacion < ff).ToList
|
|
|
|
For Each ap In aps
|
|
ap.ConciliacionActual_TMP = ra
|
|
Next
|
|
For Each ext In exts
|
|
ext.ConciliacionActual_TMP = ra
|
|
Next
|
|
|
|
'Dim exts = bd.movimientosbancarios.Where(Function(x) x.extractosbancarios.idCaja = ra.idCaja AndAlso ((x.idConciliacion.HasValue = False OrElse x.FechaOperacion <= ra.FechaFin) OrElse (x.FechaOperacion >= ra.FechaInicio AndAlso x.FechaOperacion <= ra.FechaFin) OrElse (x.FechaOperacion >= ra.FechaInicio AndAlso x.FechaOperacion <= ra.FechaFin) OrElse (x.idConciliacion = ra.idConciliacion))).ToList
|
|
gcApuntes.ItemsSource = aps
|
|
gcMovimientos.ItemsSource = exts
|
|
End If
|
|
Catch ex As Exception
|
|
If DXSplashScreen.IsActive Then DXSplashScreen.Close()
|
|
FuncionesDinamicas.ErrorNoControladoAp(Me, ex)
|
|
DXMessageBox.Show(ex.Message, "Error")
|
|
Finally
|
|
If DXSplashScreen.IsActive Then DXSplashScreen.Close()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ucConciliacionBancaria_CampoActualizado(sender As Object, e As DataTransferEventArgs) Handles Me.CampoActualizado
|
|
Dim pts As PropiedadesTS = sender.parent.propiedadests
|
|
If Not pts Is Nothing Then
|
|
Dim ra As conciliacionesbancarias = Me.DataContext
|
|
Select Case pts.NombreCampo.ToLower
|
|
Case "año", "mes", "idcaja"
|
|
|
|
ObtieneExtractosYApuntes(ra)
|
|
End Select
|
|
End If
|
|
End Sub
|
|
Private Sub ConciliacionAutomatica()
|
|
Try
|
|
If Me.gcApuntes.ItemsSource IsNot Nothing AndAlso Me.gcMovimientos.ItemsSource IsNot Nothing Then
|
|
Dim ra As conciliacionesbancarias = Me.DataContext
|
|
|
|
If DXSplashScreen.IsActive = False Then DXSplashScreen.Show(Of tsWPFCore.SplashScreenTecnosis)()
|
|
DXSplashScreen.SetState("Conciliando automáticamente extractos bancarios y movimientos de caja, por favor espere ...")
|
|
Dim apu As List(Of movimientoscaja) = Me.gcApuntes.ItemsSource
|
|
Dim mov As List(Of movimientosbancarios) = Me.gcMovimientos.ItemsSource
|
|
|
|
Dim dfi = New Date(ra.FechaInicio.Year, ra.FechaInicio.Month, ra.FechaInicio.Day)
|
|
Dim dff = New Date(ra.FechaFin.Year, ra.FechaFin.Month, ra.FechaFin.Day).AddDays(1)
|
|
Dim doff = ra.FechaFin.AddDays(1)
|
|
Dim app = apu.Where(Function(x) x.Conciliado = False AndAlso x.Fecha >= dfi AndAlso x.Fecha < dfi).ToList
|
|
Dim mop = mov.Where(Function(x) x.Conciliado = False AndAlso x.FechaOperacion >= ra.FechaInicio AndAlso x.FechaOperacion < doff).ToList
|
|
|
|
If Math.Round(app.Sum(Function(x) x.Importe), 2, MidpointRounding.AwayFromZero) = Math.Round(mop.Sum(Function(x) x.Importe), 2, MidpointRounding.AwayFromZero) Then
|
|
For Each m In mop
|
|
m.Conciliado = True
|
|
Next
|
|
For Each ap In app
|
|
ap.Conciliado = True
|
|
Next
|
|
CalculaTotalesApuntes()
|
|
CalculaTotalesMovimientos()
|
|
If DXSplashScreen.IsActive Then DXSplashScreen.Close()
|
|
DXMessageBox.Show("Se han conciliado todos los movimientos del mes de apuntes y movimientos bancarios", "Conciliación Automática")
|
|
Else
|
|
Dim f As DateOnly = ra.FechaInicio
|
|
Dim NumeroConciliados As Integer = 0
|
|
|
|
Do Until f = ra.FechaFin
|
|
Dim df As New Date(f.Year, f.Month, f.Day)
|
|
Dim apd = apu.Where(Function(x) x.Conciliado = False AndAlso x.Fecha = df).ToList
|
|
Dim movd = mov.Where(Function(x) x.Conciliado = False AndAlso x.FechaOperacion = f).ToList
|
|
Dim apdag = apd.GroupBy(Function(x) x.Importe)
|
|
Dim movdag = movd.GroupBy(Function(x) x.Importe)
|
|
|
|
For Each g In apdag
|
|
Dim ma = movdag.FirstOrDefault(Function(x) x.Count = g.Count AndAlso x.Sum(Function(y) y.Importe) = g.Sum(Function(z) z.Importe))
|
|
If ma IsNot Nothing Then
|
|
NumeroConciliados += g.Count
|
|
For Each m In ma
|
|
m.Conciliado = True
|
|
Next
|
|
For Each ap In g
|
|
ap.Conciliado = True
|
|
Next
|
|
End If
|
|
Next
|
|
f = f.AddDays(1)
|
|
Loop
|
|
|
|
Dim apm = apu.Where(Function(x) x.Conciliado = False AndAlso x.Fecha >= dfi AndAlso x.Fecha < dff).ToList
|
|
Dim movm = mov.Where(Function(x) x.Conciliado = False AndAlso x.FechaOperacion >= ra.FechaInicio AndAlso x.FechaOperacion < doff).ToList
|
|
|
|
Dim apsag = apm.Where(Function(x) x.Conciliado = False).GroupBy(Function(x) x.Importe)
|
|
Dim movsag = movm.Where(Function(x) x.Conciliado = False).GroupBy(Function(x) x.Importe)
|
|
For Each g In apsag
|
|
Dim ma = movsag.FirstOrDefault(Function(x) x.Count = g.Count AndAlso x.Sum(Function(y) y.Importe) = g.Sum(Function(z) z.Importe))
|
|
If ma IsNot Nothing Then
|
|
NumeroConciliados += g.Count
|
|
For Each m In ma
|
|
m.Conciliado = True
|
|
Next
|
|
For Each ap In g
|
|
ap.Conciliado = True
|
|
Next
|
|
End If
|
|
Next
|
|
|
|
Dim aprag = apm.Where(Function(x) x.Conciliado = False).GroupBy(Function(x) x.Importe)
|
|
Dim movrag = movm.Where(Function(x) x.Conciliado = False).GroupBy(Function(x) x.Importe)
|
|
For Each g In aprag
|
|
Dim ma = movrag.FirstOrDefault(Function(x) x.Count = g.Count AndAlso x.Sum(Function(y) y.Importe) = g.Sum(Function(z) z.Importe))
|
|
If ma IsNot Nothing Then
|
|
NumeroConciliados += g.Count
|
|
For Each m In ma
|
|
m.Conciliado = True
|
|
Next
|
|
For Each ap In g
|
|
ap.Conciliado = True
|
|
Next
|
|
End If
|
|
Next
|
|
CalculaTotalesApuntes()
|
|
CalculaTotalesMovimientos()
|
|
If DXSplashScreen.IsActive Then DXSplashScreen.Close()
|
|
DXMessageBox.Show("Se han conciliado " & NumeroConciliados.ToString & " apuntes y movimientos bancarios", "Conciliación Automática")
|
|
End If
|
|
gcApuntes.RefreshData()
|
|
gcMovimientos.RefreshData()
|
|
Else
|
|
DXMessageBox.Show("No existen movimientos caja o bancarios que conciliar", "Atención")
|
|
End If
|
|
Catch ex As Exception
|
|
If DXSplashScreen.IsActive Then DXSplashScreen.Close()
|
|
FuncionesDinamicas.ErrorNoControladoAp(Me, ex)
|
|
DXMessageBox.Show(ex.Message, "Error")
|
|
Finally
|
|
If DXSplashScreen.IsActive Then DXSplashScreen.Close()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ucConciliacionBancaria_EjecutarAccion(sender As Object, e As ItemClickEventArgs, idAccion As Integer) Handles Me.EjecutarAccion
|
|
Select Case idAccion
|
|
Case 1 ' CONCILIACION AUTOMÁTICA
|
|
ConciliacionAutomatica()
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub tvApuntes_ValidateRow(sender As Object, e As GridRowValidationEventArgs) Handles tvApuntes.ValidateRow
|
|
CalculaTotalesApuntes()
|
|
End Sub
|
|
Private Sub CalculaTotalesApuntes()
|
|
Dim ra As conciliacionesbancarias = Me.DataContext
|
|
Dim apuntes As List(Of movimientoscaja) = gcApuntes.ItemsSource
|
|
ra.TotalMovimientosCaja = apuntes.Where(Function(x) x.Conciliado).Sum(Function(x) x.Importe)
|
|
End Sub
|
|
Private Sub CalculaTotalesMovimientos()
|
|
Dim ra As conciliacionesbancarias = Me.DataContext
|
|
Dim movs As List(Of movimientosbancarios) = gcMovimientos.ItemsSource
|
|
ra.TotalMovimientosBancarios = movs.Where(Function(x) x.Conciliado).Sum(Function(x) x.Importe)
|
|
End Sub
|
|
|
|
Private Sub tvApuntes_CellValueChanging(sender As Object, e As CellValueChangedEventArgs) Handles tvApuntes.CellValueChanging
|
|
tvApuntes.CommitEditing()
|
|
CalculaTotalesApuntes()
|
|
End Sub
|
|
|
|
Private Sub tvMovimientos_CellValueChanging(sender As Object, e As CellValueChangedEventArgs) Handles tvMovimientos.CellValueChanging
|
|
tvMovimientos.CommitEditing()
|
|
CalculaTotalesMovimientos()
|
|
End Sub
|
|
|
|
Private Sub ap_ValidarControl(sender As Object, e As ValidationEventArgs, ByRef ev As ErrorValidacion, ByRef ValorOriginalCambiado As Object) Handles Me.ValidarControl
|
|
Dim pts As PropiedadesTS = sender.parent.propiedadests
|
|
Try
|
|
If Not pts Is Nothing Then
|
|
Me.ErroresValidacion.EliminaError("validando-" & pts.NombreCampo)
|
|
Dim ra As conciliacionesbancarias = Me.DataContext
|
|
Select Case pts.NombreCampo.ToLower
|
|
Case "año"
|
|
If Not e.Value Is Nothing Then
|
|
Dim Valor = CInt(e.Value)
|
|
If Valor < 2019 OrElse Valor > 2100 Then
|
|
Throw New Exception("Valor del año incorrecto")
|
|
End If
|
|
End If
|
|
End Select
|
|
End If
|
|
Catch ex As Exception
|
|
Dim sCodigoError As String = "validando-"
|
|
If pts IsNot Nothing Then
|
|
sCodigoError &= pts.NombreCampo
|
|
End If
|
|
ev = New ErrorValidacion(sCodigoError, sender, ex.Message, ex, DevExpress.XtraEditors.DXErrorProvider.ErrorType.Critical)
|
|
e.IsValid = False
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub tvMovimientos_ShowingEditor(sender As Object, e As ShowingEditorEventArgs)
|
|
Dim mov As movimientosbancarios = gcMovimientos.GetRow(e.RowHandle)
|
|
If e.Column.FieldName.ToLower = "conciliado" Then
|
|
If mov.ConciliadoEn <> "" Then
|
|
e.Cancel = True
|
|
e.Handled = True
|
|
End If
|
|
End If
|
|
End Sub
|
|
'Private Sub tvApuntes_ShowingEditor(sender As Object, e As ShowingEditorEventArgs)
|
|
' Dim ap As movimientoscaja = gcApuntes.GetRow(e.RowHandle)
|
|
' If e.Column.FieldName.ToLower = "conciliado" Then
|
|
' If ap.ConciliadoEn <> "" Then
|
|
' e.Cancel = True
|
|
' e.Handled = True
|
|
' End If
|
|
' End If
|
|
'End Sub
|
|
|
|
Private Sub ucConciliacionBancaria_Enlazar(Celda As EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
|
|
Select Case Celda.View.Name.ToLower
|
|
Case "tvapuntes"
|
|
Dim ra As movimientoscaja = Me.gcApuntes.CurrentItem
|
|
Dim id As Integer = ra.idConciliacionNavigation.idConciliacion
|
|
FuncionesDinamicas.AbrirAP(New ucConciliacionBancaria(id), OtrosParametros)
|
|
Case Else
|
|
Dim ra As movimientosbancarios = Me.gcMovimientos.CurrentItem
|
|
Dim id As Integer = ra.idConciliacionNavigation.idConciliacion
|
|
FuncionesDinamicas.AbrirAP(New ucConciliacionBancaria(id), OtrosParametros)
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub ucConciliacionBancaria_AntesGuardar(sender As Object, e As ItemClickEventArgs, ByRef Cancelar As Boolean, ByRef MensajesError As Hashtable, OpcionGuardado As Integer) Handles Me.AntesGuardar
|
|
Dim ra As conciliacionesbancarias = Me.DataContext
|
|
Dim hte As New Hashtable
|
|
If Math.Round(ra.TotalMovimientosCaja, 2, MidpointRounding.AwayFromZero) <> Math.Round(ra.TotalMovimientosBancarios, 2, MidpointRounding.AwayFromZero) Then
|
|
If DXMessageBox.Show("La suma de los movimientos de caja no coincide con la de los extractos bancarios. ¿Desea continuar?", "Atención", MessageBoxButton.YesNo) = MessageBoxResult.No Then
|
|
hte.Add("Almacenar-SUMA", "La suma de los movimientos de caja debe coincidir con la de los extractos bancarios")
|
|
End If
|
|
End If
|
|
If hte.Count > 0 Then
|
|
MensajesError = hte
|
|
Cancelar = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ucConciliacionBancaria_ImprimirPlantilla(sender As Object, e As ItemClickEventArgs, idPlantilla As Integer, Previsualizar As Boolean) Handles Me.ImprimirPlantilla
|
|
'Try
|
|
' Dim pl = bd.plantillas.First(Function(x) x.idPlantilla = idPlantilla)
|
|
' Select Case pl.Codigo
|
|
' Case "CONBAN"
|
|
' Dim ra As conciliacionesbancarias = Me.DataContext
|
|
' Dim ds As New List(Of bdGrupoSanchoToro.db.InformeConciliacionBancaria)
|
|
' Dim inf = New bdGrupoSanchoToro.db.InformeConciliacionBancaria(bd, ra.cajas.CuentaContable, ra.FechaFin)
|
|
' ds.Add(inf)
|
|
' Comun.ImprimirPlantilla(bd, idPlantilla, ds, False, 1)
|
|
' End Select
|
|
'Catch ex As Exception
|
|
' DXMessageBox.Show(ex.Message, "Error")
|
|
'End Try
|
|
End Sub
|
|
|
|
Private Sub ucConciliacionBancaria_DespuesEliminar(sender As Object) Handles Me.DespuesEliminar
|
|
If docpanel IsNot Nothing AndAlso tsWPFCore.Comun.dm IsNot Nothing Then tsWPFCore.Comun.dm.DockController.RemovePanel(docpanel)
|
|
End Sub
|
|
|
|
Private Sub ucConciliacionBancaria_DespuesGuardar(sender As Object, e As ItemClickEventArgs, OpcionGuardado As Integer) Handles Me.DespuesGuardar
|
|
Dim con As conciliacionesbancarias = Me.DataContext
|
|
_idConciliacion = con.idConciliacion
|
|
End Sub
|
|
|
|
|
|
End Class
|