From 8c24d14889b4473a71a78f31734006e863a4a89d Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Tue, 27 Aug 2019 10:32:22 -0700 Subject: [PATCH 1/6] ocultar checar los complementos sino tiene un ie registrado --- Bancos/IE.aspx.vb | 14 +++++++++----- Contratos/Contrato.aspx.vb | 2 +- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 108ab78d3..5fac3a880 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -701,16 +701,16 @@ Partial Class Bancos_IE LnkAjustarMovimiento.Visible = True End If - If Not VerificaComplementos(True) Then + 'If Not VerificaComplementos(True) Then - LnkCancelarComplemento.Visible = False - LnkCancelarComplementoImporte.Visible = False + ' LnkCancelarComplemento.Visible = False + ' LnkCancelarComplementoImporte.Visible = False - UppEliminarIE.Update() + ' UppEliminarIE.Update() - End If + 'End If End If End Sub @@ -960,6 +960,10 @@ Partial Class Bancos_IE HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}" End If + LnkCancelarComplemento.Visible = False + LnkCancelarComplementoImporte.Visible = False + UppEliminarIE.Update() + CargaEventoBitacora() CargaGvBitacora() diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index c75646a73..31701ab12 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -3260,7 +3260,7 @@ Partial Class Contratos_Default Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble Dim CvePS As Integer = 0 - Dim CveUM As Integer = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero + Dim CveUM As Integer = 0 ' GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero Dim CodigoPS As Integer = 0 Dim Total As Double = (Cantidad * PrecioUnitario) From 37d276ae80ee61c4acf2cfa85cfad363466b86ed Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 27 Aug 2019 11:50:51 -0700 Subject: [PATCH 2/6] --- Bancos/IE.aspx.vb | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index fe5ce8ef2..b2cb3c678 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -687,19 +687,9 @@ Partial Class Bancos_IE If UsuarioActual.TienePermisoProceso(275) And CveIE > 0 Then LnkAjustarMovimiento.Visible = True - End If - - If UsuarioActual.CveEmpresa = 72 OrElse Not VerificaComplementos(True) Then 'No entrara para la empresa 72 porque tarda mucho el load - - LnkCancelarComplemento.Visible = False - LnkCancelarComplementoImporte.Visible = False + End If - UppEliminarIE.Update() - - - End If - End If End Sub From c1efca70a7c9f88bc8dfa158f2d98f8e0fd0392b Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 27 Aug 2019 12:42:53 -0500 Subject: [PATCH 3/6] cambio de GlobalDTEstatusIE a GlobalDTBancosEstatusIE --- App_Code/ClsPaginas.vb | 6 +++--- Bancos/CatBancosEstatusIE.aspx.vb | 16 ++++++++-------- Bancos/CatEstatusIE.aspx.vb | 4 ++-- Bancos/RepIE.aspx.vb | 2 +- 4 files changed, 14 insertions(+), 14 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 04ad93303..a643b79af 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1355,12 +1355,12 @@ Public Class ClsPaginas Application("GlobalDTTipoTransacciones") = value End Set End Property - Property GlobalDTEstatusIE() As DataTable + Property GlobalDTBancosEstatusIE() As DataTable Get - GlobalDTEstatusIE = DirectCast(Application("GlobalDTEstatusIE"), DataTable) + GlobalDTBancosEstatusIE = DirectCast(Application("GlobalDTBancosEstatusIE"), DataTable) End Get Set(value As DataTable) - Application("GlobalDTEstatusIE") = value + Application("GlobalDTBancosEstatusIE") = value End Set End Property Property GlobalDTBancosIE() As DataTable diff --git a/Bancos/CatBancosEstatusIE.aspx.vb b/Bancos/CatBancosEstatusIE.aspx.vb index e1fc26f75..c82dab5bd 100644 --- a/Bancos/CatBancosEstatusIE.aspx.vb +++ b/Bancos/CatBancosEstatusIE.aspx.vb @@ -25,8 +25,8 @@ Partial Class Bancos_CatBancosEstatusIE Dim ObjEstatusIE As New ClsBancos If ObjEstatusIE.GetBancos_EstatusIE() Then ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados - GlobalDTEstatusIE = ObjEstatusIE.DtResultados - Else + GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados + Else Me.GvDatos.DataSource = Nothing End If @@ -47,9 +47,9 @@ Partial Class Bancos_CatBancosEstatusIE Alert("El nuevo Estatus de Ingresos y Egresos se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados - GlobalDTEstatusIE = ObjEstatusIE.DtResultados + GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados - If ViewState("Orden").ToString() <> String.Empty Then + If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) Else CargaGrid("") @@ -145,8 +145,8 @@ Partial Class Bancos_CatBancosEstatusIE TxtCveEstatusIE.Text = "" GvDatos.EditIndex = -1 ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados - GlobalDTEstatusIE = ObjEstatusIE.DtResultados - Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion) + GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados + Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion) End If ObjEstatusIE.Dispose() @@ -178,8 +178,8 @@ Partial Class Bancos_CatBancosEstatusIE If ObjEstatusIE.UpdateBancos_EstatusIE(EstatusIE, Estatus, CveEstatusIE) Then GvDatos.EditIndex = -1 ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados - GlobalDTEstatusIE = ObjEstatusIE.DtResultados - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) + GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados + Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If ObjEstatusIE.Dispose() diff --git a/Bancos/CatEstatusIE.aspx.vb b/Bancos/CatEstatusIE.aspx.vb index d639e2a0a..9950ba678 100644 --- a/Bancos/CatEstatusIE.aspx.vb +++ b/Bancos/CatEstatusIE.aspx.vb @@ -42,8 +42,8 @@ Partial Class Bancos_CatEstatusIE Dim ObjEstatusIE As New ClsBancos If ObjEstatusIE.GetBancos_EstatusIE() Then ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados - GlobalDTEstatusIE = ObjEstatusIE.DtResultados - GvDatos.DataSource = GlobalDTEstatusIE + GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados + GvDatos.DataSource = GlobalDTBancosEstatusIE Else GvDatos.DataSource = Nothing End If diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index 35516d24a..0f11dd4a5 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -423,7 +423,7 @@ Partial Class Bancos_RepIE DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1")) End Sub Private Sub CargaEstatusIE() - DdlEstatusIE.DataSource = GlobalDTEstatusIE + DdlEstatusIE.DataSource = GlobalDTBancosEstatusIE DdlEstatusIE.DataBind() End Sub Private Sub CargaUsuarioConcilio() From d067a308aa1a614e985c987387696d0606a735ee Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Tue, 27 Aug 2019 11:03:21 -0700 Subject: [PATCH 4/6] =?UTF-8?q?concepto=2029,=20devoluci=C3=B3n=20de=20pr?= =?UTF-8?q?=C3=A9stamos=20a=20proveedor?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index cb508eee9..32218a1f0 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1528,7 +1528,7 @@ Partial Class Inventarios_EntradasSalidas If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero End If - Case 13 + Case 13, 29 CveConceptoContable = 69 Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("") If drr IsNot Nothing Then From ff6cdaa60a6f0469498514948d87e6802410a29c Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Tue, 27 Aug 2019 11:06:50 -0700 Subject: [PATCH 5/6] =?UTF-8?q?devoluci=C3=B3n=20de=20pr=C3=A9stamo=20de?= =?UTF-8?q?=20proveedores?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntradasSalidas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 32218a1f0..be7cc478a 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1881,7 +1881,7 @@ Partial Class Inventarios_EntradasSalidas Dim filtro As String = "" Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero - filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27,29)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)") + filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27)") If DdlAlmacen.SelectedValue = "-1" Then filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString From 68abc82fd78b4c75eeeb22836957d085e7408d6a Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 27 Aug 2019 14:14:21 -0700 Subject: [PATCH 6/6] Solo muestra error al agregar Prepoliza en ejercicio cerrado --- Compras/Compras.aspx.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index ee9dc3df8..b6367d8f7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4160,8 +4160,10 @@ Partial Class Compras_Compras CvePrePoliza = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) - 'seria de contado, solo cuando no tenga vinculado ningun anticipo - If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado + If CvePrePoliza > 0 Then + + 'seria de contado, solo cuando no tenga vinculado ningun anticipo + If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado If RBLContado.SelectedValue = "1" Then 'se registra primero el movimiento en bancos para luego vincularlo en la compra @@ -7715,6 +7717,7 @@ Partial Class Compras_Compras ObjCompras.RollBack() End If + End If Catch ex As Exception ObjCompras.RollBack()