From b9a23db611ce0b677a32788faf06b30f755a31e1 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Sat, 1 Feb 2020 10:40:00 -0700
Subject: [PATCH] correcion en formato de conciliacion y agregando nueva
 consulta en pop up ver factura

---
 Compras/PopUpVerFactura.aspx.vb            | 3 +++
 Empresas/Grales/Formatos/Conciliacion.rdlc | 4 ++--
 Ventas/Ventas.aspx.vb                      | 8 ++++++--
 3 files changed, 11 insertions(+), 4 deletions(-)

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