diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index eda93b9f0..6b6d7482e 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -3425,6 +3425,7 @@ Public Class ClsBancos End With Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 4073459b0..64dd189b6 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -262,6 +262,8 @@ Public Class ClsCompras Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") Then Alert(String.Format("Ya existe una compra con el mismo Folio: {0}-{1}.", Serie, Folio), TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("UK_Comp_Compras_CveFactura") Then + Alert(String.Format("La factura {0}-{1} ya se encuentra registrada.", Serie, Folio), TipoMensaje.MsgAdvertencia) Else Me.OnError("Ocurrió un error al Guardar la Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a7575fbdf..7cd0e04ae 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3533,7 +3533,16 @@ Public Class ClsPaginas If ObjPersonal.GetPersonal(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If - GlobalDTRHPersonal = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) + + + Dim Str As New StringBuilder + + If CvePersonal <> -1 Then Str.Append($" CvePersonal = {CvePersonal}") + + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + 'GlobalDTRHPersonal = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) + GlobalDTRHPersonal = Dv.ToTable + End Get Set(value As DataTable) Dim AppNombre As String = $"GlobalDTRHPersonal-{CveEmpresa}" diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index c6ec2a338..75f553751 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -825,7 +825,21 @@ Partial Class Bancos_FluctuacionCambiaria End If Next - Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 5, CveBitacora, UsuarioActual.CveEmpresa) + Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 5, CveBitacora, UsuarioActual.CveEmpresa) + + + If Not ErrorRegistrar Then + + If Conta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If Conta.ValorPolizaDescuadre > 0 Then + ErrorRegistrar = True + GuardaLogAD($"Banc/FluctuaA | Error:{Conta.MensajePolizaDescuadre} Diferencia:{Conta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + End If + Else + Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia) + End If + + End If If Not ErrorRegistrar Then Conta.Commit() diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb index eaa7625c1..5b454feba 100644 --- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -478,6 +478,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo End Sub Private Sub ImprimirReporte(Optional Formato As String = "PDF") + Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") @@ -487,6 +488,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo params.Add(New ReportParameter("CveMoneda", DdlMoneda.SelectedValue)) params.Add(New ReportParameter("Cuenta", Cuenta)) ImprimirPDF("Empresas/Grales/Formatos/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato) + End Sub Protected Sub DdlTipoCuentas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoCuentas.SelectedIndexChanged If DdlTipoCuentas.SelectedValue.ToEntero = -2 Then diff --git a/Empresas/141/Formatos/CHQ-7451.rdlc b/Empresas/141/Formatos/CHQ-7451.rdlc index e264827c0..3ae1e51bf 100644 --- a/Empresas/141/Formatos/CHQ-7451.rdlc +++ b/Empresas/141/Formatos/CHQ-7451.rdlc @@ -842,70 +842,6 @@ 2pt - - true - true - - - - - JOC - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - FLR - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -928,7 +864,7 @@ 14.00924cm 0.6cm 2.5cm - 3 + 1 @@ -961,7 +897,7 @@ 18.00832cm 0.6cm 2.36771cm - 4 + 2 diff --git a/Empresas/141/Formatos/CHQ-7452.rdlc b/Empresas/141/Formatos/CHQ-7452.rdlc index 6ca51520a..9da2a72e4 100644 --- a/Empresas/141/Formatos/CHQ-7452.rdlc +++ b/Empresas/141/Formatos/CHQ-7452.rdlc @@ -842,70 +842,6 @@ 2pt - - true - true - - - - - JOC - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - FLR - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -928,7 +864,7 @@ 14.00924cm 0.6cm 2.5cm - 3 + 1 @@ -961,7 +897,7 @@ 18.00832cm 0.6cm 2.36771cm - 4 + 2 diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9865b593f..73704b612 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1890,6 +1890,9 @@ Partial Class Inventarios_EntradasSalidas Dim CveConceptoContable As Integer = 260 Dim CveClasificacion As Integer = -1 Select Case DdlConcepto.SelectedValue.ToEntero + Case 2 + CveConceptoContable = 78 + EsContabilizable = True Case 28, 31 CveConceptoContable = 51 @@ -1919,6 +1922,9 @@ Partial Class Inventarios_EntradasSalidas End Select + + '2-78 + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservaciones.Text.Trim, 68, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorInventario, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then ErrorMovInv = True Else @@ -1941,6 +1947,19 @@ Partial Class Inventarios_EntradasSalidas ErrorMovInv = True End If + If Not ErrorMovInv Then + + If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjConta.ValorPolizaDescuadre > 0 Then + ErrorMovInv = True + GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia) + End If + Else + Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia) + End If + End If + '------------------------------------------------ If Not ErrorMovInv Then 'DEVENGAR @@ -2076,7 +2095,8 @@ Partial Class Inventarios_EntradasSalidas - If Not ErrorAC And Not ErrorMovInv Then + If Not ErrorAC And Not ErrorMovInv Then + Dim Msg As New StringBuilder Msg.AppendFormat("
El Movimiento se registro con el Folio: {0}", ObjInventario.Folio, CveMovimiento) Msg.AppendFormat("

Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index 4185a3525..43311a43a 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -151,7 +151,10 @@ Partial Class Inventarios_ResguardoMaterial Private Sub OcultarControles(CvePersonal As Integer) DdlPersonal.SelectedValue = CvePersonal.ToString() - DdlPersonal.SelectedText = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal).FiltroPrimeroValor("NombreCompleto") + DdlPersonal.SelectedText = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal).FiltroPrimeroValor("NombreCompleto", $" CvePersonal = {CvePersonal}") + + + DdlPersonal.Enabled = False DVTipo.Visible = False End Sub