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 diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index e03b353a1..67d37fb3b 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5528,20 +5528,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 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 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 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