Agregar archivos de proyecto.
This commit is contained in:
404
GestionGrupoSanchoToro/ucConciliacionBancaria.xaml.vb
Normal file
404
GestionGrupoSanchoToro/ucConciliacionBancaria.xaml.vb
Normal file
@@ -0,0 +1,404 @@
|
||||
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) 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
|
||||
Reference in New Issue
Block a user