cambios en proyectados

2020-10-30 11:23:48 -07:00
parent 1d3f9bd9f1
commit 7924a1f9ab
2 changed files with 3 additions and 4 deletions
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -396,9 +396,7 @@ Partial Class Inventarios_KardexAlmacen
        Dim ObjInventarios As New ClsInventarios
        ObjInventarios.IniciaTransacSQL()

-        Dim TipoMovot As Integer = If(RblProyeccionOpcion.SelectedValue = "1", 0, 1)
-
-        If ObjInventarios.DeleteMovimientosProyectados(TipoMovot) Then
+        If ObjInventarios.DeleteMovimientosProyectados(RblProyeccionOpcion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            Dim DtProductosEmpresas As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
            For Each dtRow As DataRow In dt.Rows
                Dim Codigo As String = dtRow("Código").ToString