Limpiar Remisions de NC

Inventarios/RecepcionUsados.aspx.vb

@@ -666,6 +666,16 @@ 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
@@ -1021,16 +1031,17 @@ Partial Class Inventarios_RecepcionUsados
             Exit Sub
         End If
 
-
+        Dim GenerarRNC As Boolean = False
         'SI ES DISTRIBUIDOR Y NO VIENE DE REMISION, GENERA UNA REMISION DE NOTA DE CREDITO
         If EsDistribuidor AndAlso Me.CveRemisionRecibida <= 0 Then
+            GenerarRNC = True
             Dim CveCliente As Integer = DdlClientes.SelectedValue.ToEntero()
             Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
 
             CreaRemisionNC(CveCliente, CveSubProyecto, 1)
         End If
 
-        If Me.ObjRemisionNC IsNot Nothing Then
+        If GenerarRNC AndAlso Me.ObjRemisionNC IsNot Nothing Then
             Dim sb As New StringBuilder()
             sb.Append($"Se va a generar un documento de tipo 'Remisión de nota de crédito'.<br> ¿Esta seguro que desea guardar?:<br/>")
 
@@ -2029,8 +2040,8 @@ Partial Class Inventarios_RecepcionUsados
     Private Sub CreaRemisionNC(CveCliente As Integer, CveSubProyecto As Integer, CveMoneda As Integer)
         Me.ObjRemisionNC = New Modelos.Factura(UsuarioActual)
 
-        Dim Folio As String = ""
-        Dim Serie As String = ""
+        'Dim Folio As String = ""
+        'Dim Serie As String = ""
 
         'Dim ObjFolios As New ClsGralFolios()
         'If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then