diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index dc988dc51..4171271ce 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8031,7 +8031,7 @@ Partial Class Ventas
                 ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
             End If
             ObjFactura.CveTipoRelacion = DdlTiposRelacion.SelectedValue.ToEntero
-            ObjFactura.Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
+            If HdnFolioFiscalNC.Value <> "0" And HdnFolioFiscalNC.Value <> "" Then ObjFactura.Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
         End If
         ' cuando es refacturacoin es cfdirelacionado, con relacion 04
         If ObjFactura.Timbre.Comprobante.TipoComprobante = "I" AndAlso NuevaFactura = 1 Then
@@ -20863,7 +20863,7 @@ Partial Class Ventas
         Dim ObjMovtos As New ClsMovimientos()
 
         If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
-            GvRemisionesNC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0", "Moneda,Fecha,Folio")
+            GvRemisionesNC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio")
         End If
         ObjMovtos.Dispose()
         GvRemisionesNC.DataBind()
@@ -20872,7 +20872,7 @@ Partial Class Ventas
 
         Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
-            GvDescNC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0", "Moneda,Fecha,Folio")
+            GvDescNC.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'RNC' AND CveVenta > 0 and Saldo > 0", "Moneda,Fecha,Folio")
         End If
         ObjMovtos.Dispose()
         GvDescNC.DataBind()
@@ -20914,6 +20914,7 @@ Partial Class Ventas
                 Exit Sub
             End If
         End If
+        DdlTipoComprobante.SelectedValue = "Egs"
 
         AplicarNC(DdlNCPS.SelectedValue.ToEntero)