From 352d24af42b3cb63eccabe735f44cfb142c88255 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 25 Oct 2022 16:27:46 -0700 Subject: [PATCH 1/5] --tipo contable = 1 --- App_Code/ClsContabilidad.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 31e4184e0..d80321677 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -193,7 +193,7 @@ Public Class ClsContabilidad End Function Public Function AddPrePolizas(Modulo As String, CvePlantillaPoliza As Integer, Cargos As Double, Abonos As Double, CveMoneda As Integer, Fecha As Date, Concepto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional FolioFijo As Integer = 0, Optional ReglaFolioPoliza As String = "", Optional CveTipoPoliza As Integer = -1, - Optional AgregarFolio As Boolean = False, Optional TipoContable As Integer = -1) As Integer + Optional AgregarFolio As Boolean = False, Optional TipoContable As Integer = 1) As Integer FolioPoliza = -1 Dim Retorno As Integer = -1 From 7a766f606b19938bafa2e392badf79e310bdcc59 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 25 Oct 2022 17:24:18 -0700 Subject: [PATCH 2/5] =?UTF-8?q?--=20asignaci=C3=B3n=20de=20pesta=C3=B1a?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/FluctuacionCambiaria.aspx.vb | 28 ++++++++++------------------ 1 file changed, 10 insertions(+), 18 deletions(-) diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 9efa900c9..8bfe86260 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -139,10 +139,8 @@ Partial Class Bancos_FluctuacionCambiaria LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero LblComprasPerdidaGanancia.Text = If(Final < 0, "Ganancia", "Pérdida") - LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero - Else - GvProveedores.DataSource = Nothing - Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia) + LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero + End If ObjBancos.Dispose() GvProveedores.DataBind() @@ -179,10 +177,8 @@ Partial Class Bancos_FluctuacionCambiaria LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero LblComprasPerdidaGanancia.Text = If(Final > 0, "Ganancia", "Pérdida") - LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero - Else - GvProveedoresAnt.DataSource = Nothing - Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia) + LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero + End If ObjBancos.Dispose() GvProveedoresAnt.DataBind() @@ -220,10 +216,8 @@ Partial Class Bancos_FluctuacionCambiaria LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero - UpIndicadoresVentas.Visible = True - Else - GvVentas.DataSource = Nothing - Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia) + UpIndicadoresVentas.Visible = True + End If ObjBancos.Dispose() GvVentas.DataBind() @@ -257,10 +251,8 @@ Partial Class Bancos_FluctuacionCambiaria LblTotalVentasAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero - UpIndicadoresVentas.Visible = True - Else - GvClientesAnt.DataSource = Nothing - Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia) + UpIndicadoresVentas.Visible = True + End If ObjBancos.Dispose() GvClientesAnt.DataBind() @@ -359,7 +351,7 @@ Partial Class Bancos_FluctuacionCambiaria Private Sub CargaDatosDeudores() Dim ObjBancos As New ClsBancos LblTotalDeudores.Text = "0.00" - If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 5, UsuarioActual.CveEmpresa) Then + If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 9, UsuarioActual.CveEmpresa) Then GvDeudores.DataSource = ObjBancos.DtResultados LblTotalDeudores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero Else @@ -374,7 +366,7 @@ Partial Class Bancos_FluctuacionCambiaria Private Sub CargaDatosFiliales() Dim ObjBancos As New ClsBancos LblTotalAcreedores.Text = "0.00" - If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 7, UsuarioActual.CveEmpresa) Then + If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 8, UsuarioActual.CveEmpresa) Then GvFiliales.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0") LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero Else From 14672fe3aef8de881f97c507e09f5080a948f34e Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 25 Oct 2022 17:24:39 -0700 Subject: [PATCH 3/5] =?UTF-8?q?--correcci=C3=B3n=20de=20error?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/RegPrePolizaS.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index f93a39a5f..50deab8a5 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1811,7 +1811,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero - dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, "")) + dr("FolioFactura") = If(DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedItem IsNot Nothing, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedItem IsNot Nothing, DdlVentasE.SelectedItem.ToString, "")) dr("Modificado") = True dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero From a3e520e982caa91d9845703f268a1eb70022f538 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 25 Oct 2022 22:14:21 -0700 Subject: [PATCH 4/5] - lineas adicionales --- App_Code/ClsVentas.vb | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index d2852c461..98a7ed991 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5474,20 +5474,14 @@ Public Class ClsVentas End Function - Public Function GetLineasAdicionales(CveLineaAdicional As Integer, CveCliente As Integer, CveProveedor As Integer, TipoLinea As Integer, CveMoneda As Integer, - FechaI As Date, FechaF As Date, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean + Public Function GetLineasAdicionales(CveCliente As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_LineasAdicionalesGet") With SqlAdapter.SelectCommand.Parameters - - .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional .Add("@CveCliente", SqlDbType.Int).Value = CveCliente - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With From 668a621773e68358ee844e609ef29a0f9bed2ea2 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 25 Oct 2022 22:14:28 -0700 Subject: [PATCH 5/5] -- e140 --- Bancos/DepositosCaja.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 57848c6e1..5b5937e02 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -43,8 +43,8 @@ Partial Class Bancos_DepositosCaja DdlCajaChica.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"}) DdlCajaChica.DataBind() - 'código temporal, para claudia y toñita, monge, anadelia, alba - If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then + 'código temporal, para claudia y toñita, monge, anadelia, alba,patricia + If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then DdlCajaChica.Items.Add(New ListItem("Todas", "-1")) divFolio.Visible = True End If @@ -255,8 +255,8 @@ Partial Class Bancos_DepositosCaja CveTransaccionBanco = 6 End If - 'código temporal, para claudia y toñita, monge, anadelia, alba - If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then + 'código temporal, para claudia y toñita, monge, anadelia, alba,patricia + If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then FolioIE = TxtFolio.Text.ToEntero End If