diff --git a/AC/CatOGClasificaciones.aspx.vb b/AC/CatOGClasificaciones.aspx.vb index e41239c25..2ac9dd512 100644 --- a/AC/CatOGClasificaciones.aspx.vb +++ b/AC/CatOGClasificaciones.aspx.vb @@ -68,7 +68,7 @@ Partial Class AC_CatOGClasificaciones Dim ObjClasificaciones As New ClsClasificaciones If LbAgregar.Text = "Agregar" Then - If ObjClasificaciones.AddClasificaciones(TxtOGClasificacion.Text.Trim, TxtCodigo.Text.Trim, -1, "", -1, "", -1, "", 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjClasificaciones.AddClasificaciones(TxtOGClasificacion.Text.Trim, TxtCodigo.Text.Trim, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then TxtOGClasificacion.Text = "" TxtCodigo.Text = "" Alert("La Clasificacion de Objeto de Gasto se guardó correctamente.", TipoMensaje.MsgInformacion) @@ -78,7 +78,7 @@ Partial Class AC_CatOGClasificaciones End If Else - If ObjClasificaciones.UpdateClasificacion(TxtOGClasificacion.Text, TxtCodigo.Text, -1, "", -1, "", -1, "", ChkEstatus.Checked, ChkAfectable.Checked, 0, UsuarioActual.CveUsuario, CveClasificacion) Then + If ObjClasificaciones.UpdateClasificacion(TxtOGClasificacion.Text, TxtCodigo.Text, ChkEstatus.Checked, ChkAfectable.Checked, 0, UsuarioActual.CveUsuario, CveClasificacion) Then GvDatos.EditIndex = -1 ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing @@ -191,7 +191,7 @@ Partial Class AC_CatOGClasificaciones Dim CveOGClasificacion As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero Dim Codigo As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtCodigo"), TextBox).Text.Trim - If ObjOGClasificaciones.UpdateClasificacion(OGClasificacion, Codigo, -1, "", -1, "", -1, "", Estatus, Afectable, 0, UsuarioActual.CveUsuario, CveOGClasificacion) Then + If ObjOGClasificaciones.UpdateClasificacion(OGClasificacion, Codigo, Estatus, Afectable, 0, UsuarioActual.CveUsuario, CveOGClasificacion) Then GvDatos.EditIndex = -1 ViewState("DTOGClasificaciones") = ObjOGClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index 3c8597b3a..bb1535594 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -272,7 +272,7 @@ Public Class ClsClasificaciones Return Retorno End Function - Public Function AddClasificaciones(Clasificacion As String, Codigo As String, IdCuentaGasto As Integer, CuentaGasto As String, IdCuentaCostos As Integer, CuentaCostos As String, IdCuentaIngreso As Integer, CuentaIngreso As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = False, Optional RequiereAFInsumo As Boolean = False, Optional RequierePersonal As Boolean = False, + Public Function AddClasificaciones(Clasificacion As String, Codigo As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = False, Optional RequiereAFInsumo As Boolean = False, Optional RequierePersonal As Boolean = False, Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1) As Boolean Dim Retorno As Boolean = False Me.CveClasificacion = -1 @@ -281,20 +281,12 @@ Public Class ClsClasificaciones With SqlAdapter.SelectCommand.Parameters .Add("@Clasificacion", SqlDbType.VarChar).Value = Clasificacion - .Add("@Codigo", SqlDbType.VarChar).Value = Codigo - .Add("@IdCuentaGasto", SqlDbType.Int).Value = IdCuentaGasto - .Add("@IdCuentaCostos", SqlDbType.Int).Value = IdCuentaCostos - '.Add("@IdCuentaInventario", SqlDbType.Int).Value = IdCuentaInventario - .Add("@CuentaGasto", SqlDbType.VarChar).Value = CuentaGasto - .Add("@CuentaCostos", SqlDbType.VarChar).Value = CuentaCostos - ' .Add("@CuentaInventario", SqlDbType.VarChar).Value = CuentaInventario + .Add("@Codigo", SqlDbType.VarChar).Value = Codigo .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - - 'Nuevo 10/06/2016 - .Add("@IdCuentaIngresos", SqlDbType.Int).Value = IdCuentaIngreso - .Add("@CuentaIngresos", SqlDbType.VarChar).Value = CuentaIngreso + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + 'Nuevo 10/06/2016 .Add("@RequiereSerieLote", SqlDbType.Int).Value = RequiereSerieLote .Add("@UsoClasificacion", SqlDbType.Int).Value = UsoClasificacion @@ -338,13 +330,7 @@ Public Class ClsClasificaciones With SqlAdapter.SelectCommand.Parameters .Add("@Clasificacion", SqlDbType.VarChar).Value = Clasificacion.Clasificacion - .Add("@Codigo", SqlDbType.VarChar).Value = Clasificacion.Codigo - '.Add("@IdCuentaGasto", SqlDbType.Int).Value = Clasificacion.IdCuentaGasto - '.Add("@IdCuentaCostos", SqlDbType.Int).Value = Clasificacion.IdCuentaCostos - '.Add("@IdCuentaInventario", SqlDbType.Int).Value = IdCuentaInventario - '.Add("@CuentaGasto", SqlDbType.VarChar).Value = Clasificacion.CuentaGasto - '.Add("@CuentaCostos", SqlDbType.VarChar).Value = Clasificacion.CuentaCostos - ' .Add("@CuentaInventario", SqlDbType.VarChar).Value = CuentaInventario + .Add("@Codigo", SqlDbType.VarChar).Value = Clasificacion.Codigo .Add("@CveCategoria", SqlDbType.Int).Value = Clasificacion.CveCategoria .Add("@CveEmpresa", SqlDbType.Int).Value = Clasificacion.CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = Clasificacion.CveUsuario @@ -384,29 +370,22 @@ Public Class ClsClasificaciones Return Retorno End Function - Public Function UpdateClasificacion(Clasificacion As String, Codigo As String, IdCuentaGasto As Integer, CuentaGasto As String, IdCuentaCostos As Integer, CuentaCostos As String, IdCuentaIngresos As Integer, CuentaIngresos As String, Estatus As Boolean, Afectable As Boolean, CveCategoria As Integer, CveUsuario As Integer, CveClasificacion As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = True, Optional RequiereAFInsumo As Boolean = True, Optional RequierePersonal As Boolean = True, + Public Function UpdateClasificacion(Clasificacion As String, Codigo As String, Estatus As Boolean, Afectable As Boolean, CveCategoria As Integer, CveUsuario As Integer, CveClasificacion As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = True, Optional RequiereAFInsumo As Boolean = True, Optional RequierePersonal As Boolean = True, Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClasificacionesUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@Clasificacion", SqlDbType.VarChar).Value = Clasificacion - .Add("@Codigo", SqlDbType.VarChar).Value = Codigo - .Add("@IdCuentaGasto", SqlDbType.Int).Value = IdCuentaGasto - .Add("@IdCuentaCostos", SqlDbType.Int).Value = IdCuentaCostos - ' .Add("@IdCuentaInventario", SqlDbType.Int).Value = IdCuentaInventario - .Add("@CuentaGasto", SqlDbType.VarChar).Value = CuentaGasto - .Add("@CuentaCostos", SqlDbType.VarChar).Value = CuentaCostos - ' .Add("@CuentaInventario", SqlDbType.VarChar).Value = CuentaInventario + .Add("@Codigo", SqlDbType.VarChar).Value = Codigo + .Add("@Estatus", SqlDbType.Bit).Value = If(Estatus, 1, 0) .Add("@Afectable", SqlDbType.Bit).Value = If(Afectable, 1, 0) .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - - 'Nuevo 10/06/2016 - .Add("@IdCuentaIngresos", SqlDbType.Int).Value = IdCuentaIngresos - .Add("@CuentaIngresos", SqlDbType.VarChar).Value = CuentaIngresos + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + + 'Nuevo 10/06/2016 .Add("@RequiereSerieLote", SqlDbType.Int).Value = RequiereSerieLote .Add("@UsoClasificacion", SqlDbType.Int).Value = UsoClasificacion @@ -572,25 +551,13 @@ Public Class ClsClasificaciones Return Retorno End Function - Public Function UpdateClasificacionSubProyecto(CveClasificacion As Integer, CveSubProyecto As Integer, IdCuentaGasto As Integer, CuentaGasto As String, IdCuentaCostos As Integer, CuentaCostos As String, IdCuentaIngresos As Integer, CuentaIngresos As String) As Boolean + Public Function UpdateClasificacionSubProyecto(CveClasificacion As Integer, CveSubProyecto As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClasificacionesSubProyectoUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@IdCuentaGasto", SqlDbType.Int).Value = IdCuentaGasto - .Add("@IdCuentaCostos", SqlDbType.Int).Value = IdCuentaCostos - '.Add("@IdCuentaInventario", SqlDbType.Int).Value = IdCuentaInventario - .Add("@CuentaGasto", SqlDbType.VarChar).Value = CuentaGasto - .Add("@CuentaCostos", SqlDbType.VarChar).Value = CuentaCostos - '.Add("@CuentaInventario", SqlDbType.VarChar).Value = CuentaInventario - - .Add("@IdCuentaIngresos", SqlDbType.Int).Value = IdCuentaIngresos - .Add("@CuentaIngresos", SqlDbType.VarChar).Value = CuentaIngresos - - - + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto End With Try diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 8c8dc38f9..0660034ea 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -736,8 +736,7 @@ Partial Class General_SaldosIniciales If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then - If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1", - GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToString().ToEntero(), UsuarioActual.CveUsuario, + If ObjClas.AddClasificaciones(Clasificacion, "", GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToString().ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString().ToEntero() @@ -825,8 +824,7 @@ Partial Class General_SaldosIniciales End If If CveClasificacion2 = 0 Then - If ObjClas.AddClasificaciones(Clasificacion2, "", -1, "-1", -1, "-1", -1, "-1", CveCategoria, UsuarioActual.CveUsuario, - UsuarioActual.CveEmpresa) Then + If ObjClas.AddClasificaciones(Clasificacion2, "", CveCategoria, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjClas.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClas.DtResultados CveClasificacion2 = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString().ToEntero() End If @@ -2299,7 +2297,7 @@ Partial Class General_SaldosIniciales If CveAlmacen > 0 Then Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, DdlConceptoAlmacen.SelectedValue.ToEntero(), 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1) - listadoMovimientos += $"movimiento con folio {ObjMovimientos.Folio}
" + listadoMovimientos += $"movimiento con folio {ObjMovimientos.Folio}
" If movimientoCabecera > 0 Then For Each nuevaEntrada As DataRow In dt.FiltraParametros($"TRIM(Almacen) = '{almacenActual}'").Rows @@ -2312,12 +2310,12 @@ Partial Class General_SaldosIniciales Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString().ToDecimal Dim Valor As Decimal = nuevaEntrada("Valor").ToString().ToDecimal Dim Serie As String = If(dt.Columns.Contains("Serie"), nuevaEntrada("Serie").ToString().Trim, "") - + Dim Lote As String = If(dt.Columns.Contains("Lote"), nuevaEntrada("Lote").ToString().Trim, "-1") + Dim FechaCaducidad As Date = If(dt.Columns.Contains("FechaCaducidad"), nuevaEntrada("FechaCaducidad").ToString().Trim.ToDate, MinFecha) Dim PU As Decimal = If(Valor = 0, 0, (Valor / Cantidad)) - - If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, PU, -1, -1, Serie:=Serie) Then + If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, PU, -1, -1, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad) Then mensajeError = "No se logró generar el detalle del movimiento" Throw New Exception() End If @@ -2502,7 +2500,7 @@ Partial Class General_SaldosIniciales If Not CveClasificacion > 0 Then - If ObjClasificaciones.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1", CveCategoria, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereSerieLote:=0, UsoClasificacion:=CveUsoClasificacion, + If ObjClasificaciones.AddClasificaciones(Clasificacion, "", CveCategoria, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereSerieLote:=0, UsoClasificacion:=CveUsoClasificacion, CveSATPS:=-1, RequiereAFCompra:=False, RequiereAFInsumo:=False, RequierePersonal:=False, EsAcumulador:=False, TopVentas:=False, TopCompras:=False, PrecioBaseCosto:=-1) Then CveClasificacion = ObjClasificaciones.CveClasificacion @@ -2523,7 +2521,7 @@ Partial Class General_SaldosIniciales End If Else - If Not ObjClasificaciones.UpdateClasificacion(Clasificacion, "-1", -1, "-1", -1, "-1", -1, "-1", True, True, CveCategoria, UsuarioActual.CveUsuario, CveClasificacion, UsoClasificacion:=CveUsoClasificacion) Then + If Not ObjClasificaciones.UpdateClasificacion(Clasificacion, "-1", True, True, CveCategoria, UsuarioActual.CveUsuario, CveClasificacion, UsoClasificacion:=CveUsoClasificacion) Then ErrorProceso = True End If @@ -2925,7 +2923,6 @@ Partial Class General_SaldosIniciales If Not ErrorProceso Then DTAnticipoCliente.AcceptChanges() End If - End If @@ -2941,8 +2938,6 @@ Partial Class General_SaldosIniciales ErrorProceso = True Exit For End If - - Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString(), "", Importe, CveMoneda, TipoCambio, Descripcion, "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) @@ -2951,9 +2946,6 @@ Partial Class General_SaldosIniciales Contador = Contador + 1 Next - - - If Not ErrorProceso Then Alert($"Se agregaron {Contador} Anticipos.") ObjBancos.Commit() @@ -2963,11 +2955,6 @@ Partial Class General_SaldosIniciales ObjBancos.Dispose() - - - - - End Sub diff --git a/Ventas/CatClasificaciones.aspx b/Ventas/CatClasificaciones.aspx index 64d68ffe9..c1e894b28 100644 --- a/Ventas/CatClasificaciones.aspx +++ b/Ventas/CatClasificaciones.aspx @@ -76,7 +76,7 @@
+ DataKeyNames="CveClasificacion, CveCategoria, Clasificacion, UsoClasificacion, CuentaGasto, RequiereSerieLote,CveSATPS,SATClaveProductoServicio, RequiereAFCompra, RequiereAFInsumo, RequierePersonal, Estatus,EsAcumulador,TopVentas,TopCompras,PrecioBaseCosto,CveCuentaAsignacionGasto, CveCuentaGasto" EmptyDataText="No se encontraron Clasificaciones Registradas" ToolTip="Listado de Clasificaciones" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> @@ -97,13 +97,13 @@ - + - + @@ -128,7 +128,7 @@ - + diff --git a/Ventas/CatClasificaciones.aspx.vb b/Ventas/CatClasificaciones.aspx.vb index fe7b3af49..f3d03f077 100644 --- a/Ventas/CatClasificaciones.aspx.vb +++ b/Ventas/CatClasificaciones.aspx.vb @@ -152,9 +152,6 @@ Partial Class CatClasificaciones If HdnModalidadClasificacion.Value = "A" Then If ObjClasificaciones.AddClasificaciones(TxtClasificacion.Text.Trim, "", - DdlCuentaGasto.SelectedValue.ToEntero, DdlCuentaGasto.SelectedItem.Text, - DdlCuentaCostos.SelectedValue.ToEntero, DdlCuentaCostos.SelectedItem.Text, - DdlCuentaIngresos.SelectedValue.ToEntero, DdlCuentaIngresos.SelectedItem.Text, DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereSerieLote:=RequireSerieLote, UsoClasificacion:=DdlUsoClasificacion.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero, RequiereAFCompra:=ChkRequiereAFCompra.Checked, RequiereAFInsumo:=ChkRequiereAFInsumo.Checked, RequierePersonal:=ChkRequierePersonal.Checked, EsAcumulador:=ChkEsAcumulador.Checked, TopVentas:=ChkTopVentas.Checked, TopCompras:=ChkTopCompras.Checked, PrecioBaseCosto:=TxtPrecioBaseCosto.Text.ToDecimal) Then @@ -185,8 +182,7 @@ Partial Class CatClasificaciones Dim DdlCosto As DropDownList = DdlCuentaCostos Dim DdlIngresos As DropDownList = DdlCuentaIngresos - If ObjClasificaciones.UpdateClasificacion(Clasificacion, "", DdlGasto.SelectedValue.ToEntero, DdlGasto.SelectedItem.Text, - DdlCosto.SelectedValue.ToEntero, DdlCosto.SelectedItem.Text, DdlIngresos.SelectedValue.ToEntero, DdlIngresos.SelectedItem.Text, + If ObjClasificaciones.UpdateClasificacion(Clasificacion, "", Estatus, False, DdlCategoria.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveClasificacion, RequiereSerieLote:=RequireSerieLote, UsoClasificacion:=DdlUsoClasificacion.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero, RequiereAFCompra:=ChkRequiereAFCompra.Checked, RequiereAFInsumo:=ChkRequiereAFInsumo.Checked, RequierePersonal:=ChkRequierePersonal.Checked, EsAcumulador:=ChkEsAcumulador.Checked, TopVentas:=ChkTopVentas.Checked, TopCompras:=ChkTopCompras.Checked, PrecioBaseCosto:=TxtPrecioBaseCosto.Text.ToDecimal) Then @@ -307,8 +303,8 @@ Partial Class CatClasificaciones If e.Row.DBCampo("CuentaGasto") = "Seleccione" Or e.Row.DBCampo("CuentaGasto") = "" Then e.Row.FCLabel("LtlCuentaGasto").Text = "-" - If e.Row.DBCampo("CuentaCostos") = "Seleccione" Or e.Row.DBCampo("CuentaCostos") = "" Then e.Row.FCLabel("LtlCuentaCosto").Text = "-" - If e.Row.DBCampo("CuentaIngresos") = "Seleccione" Or e.Row.DBCampo("CuentaIngresos") = "" Then e.Row.FCLabel("LtlCuentaIngresos").Text = "-" + ' If e.Row.DBCampo("CuentaCostos") = "Seleccione" Or e.Row.DBCampo("CuentaCostos") = "" Then e.Row.FCLabel("LtlCuentaCosto").Text = "-" + ' If e.Row.DBCampo("CuentaIngresos") = "Seleccione" Or e.Row.DBCampo("CuentaIngresos") = "" Then e.Row.FCLabel("LtlCuentaIngresos").Text = "-" e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left If UsuarioActual.CveEmpresa.Contiene(13, 83) Then @@ -383,8 +379,8 @@ Partial Class CatClasificaciones Dim PrecioBaseCosto As String = GvRow.DataKey("PrecioBaseCosto").ToString Dim CveCategoria As String = GvRow.DataKey("CveCategoria").ToString Dim CuentaGasto As String = GvRow.DataKey("CuentaGasto").ToString - Dim CuentaCostos As String = GvRow.DataKey("CuentaCostos").ToString - Dim CuentaIngresos As String = GvRow.DataKey("CuentaIngresos").ToString + Dim CuentaCostos As String = "" + Dim CuentaIngresos As String = "" Dim UsoClasificacion As String = GvRow.DataKey("UsoClasificacion").ToString Dim TopVentas As Boolean = If(GvRow.DataKey("TopVentas") = "True", True, False) Dim TopCompras As Boolean = If(GvRow.DataKey("TopCompras") = "True", True, False) @@ -392,9 +388,9 @@ Partial Class CatClasificaciones ChkTopCompras.Checked = TopCompras ChkTopVentas.Checked = TopVentas - CveCuentaGastoActual = GvRow.DataKey("IdCuentaGasto").ToString.ToEntero - CveCuentaCostoActual = GvRow.DataKey("IdCuentaCostos").ToString.ToEntero - CveCuentaIngresoActual = GvRow.DataKey("IdCuentaIngresos").ToString.ToEntero + 'CveCuentaGastoActual = GvRow.DataKey("IdCuentaGasto").ToString.ToEntero + 'CveCuentaCostoActual = GvRow.DataKey("IdCuentaCostos").ToString.ToEntero + 'CveCuentaIngresoActual = GvRow.DataKey("IdCuentaIngresos").ToString.ToEntero ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) ChkRequiereSerieLote.Checked = If(GvRow.DataKey("RequiereSerieLote") = "True", True, False)