Descarga PDF en rep venta detalle,limpiar al recibir usados de remision

Inventarios/RecepcionUsados.aspx.vb

@@ -615,8 +615,22 @@ Partial Class Inventarios_RecepcionUsados
         BloqueaEdicionEncabezado()
     End Sub
     Private Sub LimpiarMovimiento()
-
         CveMovimiento = -1
+
+        If ObjFactura IsNot Nothing Then
+            ObjFactura.Dispose()
+            ObjFactura = Nothing
+        End If
+
+        If ObjRemisionNC IsNot Nothing Then
+            ObjRemisionNC.Dispose()
+            ObjRemisionNC = Nothing
+        End If
+
+        CveRemisionRecibida = -1
+        EsDistribuidor = False
+        DdlClientes.SelectedValueExist("-1")
+
         SiguienteFolio()
 
         HplCompra.Visible = False
@@ -666,16 +680,6 @@ Partial Class Inventarios_RecepcionUsados
         TxtRemision.Text = ""
         DivRemision.Visible = False
 
-        If ObjFactura IsNot Nothing Then
-            ObjFactura.Dispose()
-            ObjFactura = Nothing
-        End If
-
-        If ObjRemisionNC IsNot Nothing Then
-            ObjRemisionNC.Dispose()
-            ObjRemisionNC = Nothing
-        End If
-
         UpRegistroTipoCambio.Update()
         UPDatos.Update()
     End Sub