AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-activar la carga de alamcen ,con lote/caducidad

Browse Source
This commit is contained in:
rrene
2023-11-17 11:10:12 -07:00
parent e3e4174c78
commit 2277f50358
5 changed files with 37 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Ventas/CatClasificaciones.aspx.vb
View File

@@ -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)