Compras no deducible, Clientes lineas de adicionales

Inventarios/Consignaciones.aspx.vb

@@ -956,8 +956,7 @@ Partial Class Inventarios_Consignaciones
         Dim ObjInventario As New ClsInventarios
         ObjInventario.IniciaTransacSQL() 'Inicia la transacción
 
-        Dim CveMovimiento = 0
-        Dim Folio = 0
+
         Dim ErrorMovInv As Boolean = False
         Dim TextoError = ""
         Dim Fecha As Date = TxtFechaDevolucion.Text.ToDate
@@ -972,6 +971,10 @@ Partial Class Inventarios_Consignaciones
         Dim MovtoNew = False
 
         For Each Gvr As GridViewRow In GvDatos.Rows
+
+            Dim CveMovimiento = 0
+            Dim Folio = 0
+
             If Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDouble > 0 Then
 
                 If CveAlmacen = -1 Or CveAlmacen <> Gvr.DataKey("CveAlmacen").ToString.ToEntero Then