-activar la carga de alamcen ,con lote/caducidad
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
@@ -282,19 +282,11 @@ 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("@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("@RequiereSerieLote", SqlDbType.Int).Value = RequiereSerieLote
|
||||
.Add("@UsoClasificacion", SqlDbType.Int).Value = UsoClasificacion
|
||||
|
||||
@@ -339,12 +331,6 @@ 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("@CveCategoria", SqlDbType.Int).Value = Clasificacion.CveCategoria
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = Clasificacion.CveEmpresa
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = Clasificacion.CveUsuario
|
||||
@@ -384,7 +370,7 @@ 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")
|
||||
@@ -392,12 +378,7 @@ 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("@Estatus", SqlDbType.Bit).Value = If(Estatus, 1, 0)
|
||||
.Add("@Afectable", SqlDbType.Bit).Value = If(Afectable, 1, 0)
|
||||
.Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
|
||||
@@ -405,8 +386,6 @@ Public Class ClsClasificaciones
|
||||
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
|
||||
|
||||
'Nuevo 10/06/2016
|
||||
.Add("@IdCuentaIngresos", SqlDbType.Int).Value = IdCuentaIngresos
|
||||
.Add("@CuentaIngresos", SqlDbType.VarChar).Value = CuentaIngresos
|
||||
.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
|
||||
|
||||
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -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 <a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={movimientoCabecera}' target='_blank' style='color:blue'>{ObjMovimientos.Folio}</a><br/>"
|
||||
listadoMovimientos += $"movimiento con folio <a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={movimientoCabecera}' target='_blank' class='Texto' style='color:blue'>{ObjMovimientos.Folio}</a><br/>"
|
||||
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
|
||||
|
||||
|
||||
|
||||
@@ -76,7 +76,7 @@
|
||||
<asp:HiddenField ID="HiddenField2" runat="server" ClientIDMode="Static" Value="0" />
|
||||
<div>
|
||||
<asp:GridView ID="GvDatos" runat="server" data-sort="true" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveClasificacion, CveCategoria, Clasificacion, UsoClasificacion, CuentaGasto, CuentaCostos, CuentaIngresos, IdCuentaGasto, IdCuentaCostos, IdCuentaIngresos,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">
|
||||
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">
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="Clasificación">
|
||||
<ItemTemplate>
|
||||
@@ -97,13 +97,13 @@
|
||||
|
||||
<asp:TemplateField HeaderText="Cuenta Costos">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtlCuentaCosto" runat="server" Text='<%# Eval("CuentaCostos")%>'></asp:Label>
|
||||
<asp:Label ID="LtlCuentaCosto" runat="server" Text=''></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Cuenta Ingresos">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtlCuentaIngresos" runat="server" Text='<%# Eval("CuentaIngresos")%>'></asp:Label>
|
||||
<asp:Label ID="LtlCuentaIngresos" runat="server" Text=''></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
@@ -128,7 +128,7 @@
|
||||
<asp:Literal ID="LtlEstado" runat="server" Text='<%# Eval("Estatus") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
<EditItemTemplate>
|
||||
<asp:CheckBox ID="ChkEstado" runat="server" Checked='<%# If (Eval("Estatus").ToString = "Activo", True, False) %>' />
|
||||
<asp:CheckBox ID="ChkEstado" runat="server" Checked='<%# If(Eval("Estatus").ToString = "Activo", True, False) %>' />
|
||||
</EditItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Fecha">
|
||||
|
||||
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user