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

Compilacion correciones

Browse Source
This commit is contained in:
rakcsle
2023-08-24 11:23:50 -07:00
parent d094d993a2
commit e36f1786ed
23 changed files with 115 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Inventarios/Equivalencia.aspx.vb
View File

@@ -72,12 +72,12 @@ Partial Class Inventarios_Equivalencia
End If
If psEquivalencias.AddPSEquivalencias(ddlProducto.SelectedValue.ToEntero, CveUnidadMedida, Cantidad, UnidadBase, Precio, 1) Then
If psEquivalencias.AddPSEquivalencias(ddlProducto.SelectedValue.ToEntero, CveUnidadMedida, Cantidad.ToDecimal, UnidadBase, Precio, 1) Then
gvEquivalencias.DataSource = psEquivalencias.DtResultados
ViewState("dtEquivalencias") = psEquivalencias.DtResultados
txtCantidad.Text = ""
@@ -137,7 +137,7 @@ Partial Class Inventarios_Equivalencia
If dt.Rows(i).Item("Base").ToString = "True" Then
Dim psEquivalencias As New ClsProductosServicios
If Not psEquivalencias.UpdatePSEquivalencias(ddlProducto.SelectedValue.ToEntero, dt.Rows(i).Item("CveUnidadMedida").ToString.ToEntero, dt.Rows(i).Item("Cantidad").ToString.ToDouble, False, dt.Rows(i).Item("Precio").ToString.ToDouble, 1) Then
If Not psEquivalencias.UpdatePSEquivalencias(ddlProducto.SelectedValue.ToEntero, dt.Rows(i).Item("CveUnidadMedida").ToString.ToEntero, dt.Rows(i).Item("Cantidad").ToString.ToDecimal, False, dt.Rows(i).Item("Precio").ToString.ToDouble, 1) Then
Alert("Error al actualizar registro.", TipoMensaje.MsgError)
Return dt
End If
@@ -266,7 +266,7 @@ Partial Class Inventarios_Equivalencia
Dim base As Boolean = DirectCast(gvEquivalencias.Rows(e.RowIndex).FindControl("cbEBase"), CheckBox).Checked
Dim CveUnidadMedida As Integer = DirectCast(gvEquivalencias.Rows(e.RowIndex).FindControl("ddlEUnidad"), DropDownList).SelectedValue.ToEntero
If psEquivalencias.UpdatePSEquivalencias(ddlProducto.SelectedValue.ToEntero, CveUnidadMedida, cantidad, base, precio, UsuarioActual.CveUsuario) Then
If psEquivalencias.UpdatePSEquivalencias(ddlProducto.SelectedValue.ToEntero, CveUnidadMedida, cantidad.ToDecimal, base, precio, UsuarioActual.CveUsuario) Then
dt = psEquivalencias.DtResultados
If base Then
@@ -277,7 +277,7 @@ Partial Class Inventarios_Equivalencia
ViewState("dtEquivalencias") = dt
gvEquivalencias.EditIndex = -1
gvEquivalencias.DataSource = dt
gvEquivalencias.DataBind()