diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 297531b36..c31f4f01a 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1096,6 +1096,9 @@ Partial Class PopUpVerFactura
                 If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
                     Vta.DtNCVinculadas = ObjVentas.DtResultados
                 End If
+                If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+                    Vta.FolioFiscal = ObjVentas.DtResultados.FiltroPrimeroValor("FolioFiscal")
+                End If
             End If
 
         End If
diff --git a/Empresas/Grales/Formatos/Conciliacion.rdlc b/Empresas/Grales/Formatos/Conciliacion.rdlc
index c00b8a81b..df1c987cb 100644
--- a/Empresas/Grales/Formatos/Conciliacion.rdlc
+++ b/Empresas/Grales/Formatos/Conciliacion.rdlc
@@ -2003,7 +2003,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>Contralor</Value>
+                <Value>Contador</Value>
                 <MarkupType>HTML</MarkupType>
                 <Style>
                   <FontWeight>Bold</FontWeight>
@@ -2017,7 +2017,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>Contralor </Value>
+                <Value>Contador</Value>
                 <MarkupType>HTML</MarkupType>
                 <Style>
                   <FontWeight>Bold</FontWeight>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 8f8f11141..25e96e9f9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9216,9 +9216,13 @@ Partial Class Ventas
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
                            Kilometraje:=TxtKilometraje.Text.ToDouble) Then
-
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
-
+        Else
+            If factura.TipoDocto.Contiene("Dev") Or DtVentasNC IsNot Nothing Then
+                If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveVenta) Then
+                    ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                End If
+            End If
         End If
 
         If Not GuardarUsados(ObjVentas.IniciaTransacSQL, ObjVentas.CveVenta) Then