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

Cat Procedimientos, Prodcutos cantidad

Browse Source
This commit is contained in:
rakcsle
2023-12-20 23:28:23 -07:00
parent 0cca61ee6d
commit 850bcf9da9
3 changed files with 34 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ventas/CatProcedimientoDetalle.aspx.vb
View File

@@ -199,6 +199,7 @@ Partial Class Ventas_CatProcedimientoDetalle
CveProcedimientoProducto = -1
DdlProducto.SelectedValue = "-1"
DdlProducto.SelectedText = ""
TxtCantidad.Text = ""
DVProdcutoEstatus.Visible = False
UpAgregar.Update()
@@ -212,13 +213,13 @@ Partial Class Ventas_CatProcedimientoDetalle
If CveProcedimientoProducto > 0 Then
If objVenta.UpdateProcedimientoProducto(CveProcedimientoProducto, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario) Then
If objVenta.UpdateProcedimientoProducto(CveProcedimientoProducto, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario, TxtCantidad.Text.ToDecimal) Then
ProcesoOK = True
End If
Else
If objVenta.AddProcedimientoProducto(CveProcedimiento, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario) Then
If objVenta.AddProcedimientoProducto(CveProcedimiento, DdlProducto.SelectedValue.ToEntero, False, True, UsuarioActual.CveUsuario, TxtCantidad.Text.ToDecimal) Then
ProcesoOK = True
End If
@@ -260,10 +261,12 @@ Partial Class Ventas_CatProcedimientoDetalle
Dim CvePS As String = GvRow.DataKey("CvePS")
Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
Dim Estatus As Boolean = Boolean.Parse(GvRow.DataKey("Estatus"))
Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
DdlProducto.ddl.SelectedValueExist(CvePS)
DdlProducto.txtText.Value = CodigoPS
DdlProducto.txtValue.Value = CvePS
TxtCantidad.Text = Cantidad.ToString
ChkEstatusProducto.Checked = Estatus
LtlTituloAgregar.Text = "Actualizar producto"