From f01acf75350e5d5d4f7ac013d2a609330bcf4da5 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 4 Feb 2020 11:37:14 -0700
Subject: [PATCH] .

---
 Compras/PopUpVerFactura.aspx.vb | 48 ++++++++++++++++++++-------------
 Ventas/PV.aspx                  |  4 ---
 2 files changed, 30 insertions(+), 22 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index c31f4f01a..38f493d93 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1067,39 +1067,51 @@ Partial Class PopUpVerFactura
                     If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
                         ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal))
                         ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total")
-                        Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
+                        Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
+                        If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+                            Vta.DtNCVinculadas = ObjVentas.DtResultados
+                            Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
+                            If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
+                                If Vta.TipoDocto.Contiene("Dev") Then
+                                    Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
+                                    Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
+                                End If
+                            End If
+                        End If
                     End If
                 End If
             Else
-                If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then
-                    'carga as notas de credito vinculadas
-                    If ObjVentas.GetVentasAntNC(CveVenta, -1) Then
-                        Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
-                    End If
-                End If
+                'If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then
+                '    'carga as notas de credito vinculadas
+                '    If ObjVentas.GetVentasAntNC(CveVenta, -1) Then
+                '        Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
+                '    End If
+                'End If
 
-                If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then
-                    If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
+                If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then
+
+                    If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+                        Vta.DtNCVinculadas = ObjVentas.DtResultados
                         Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
                         If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
                             If Vta.TipoDocto.Contiene("Dev") Then
                                 Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
                                 Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
                             End If
-                        End If
+                        End If
                     End If
                 End If
             End If
             'End If
 
-            If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then
-                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
+            'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then
+            '    'If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
+            '    '    Vta.DtNCVinculadas = ObjVentas.DtResultados
+            '    'End If
+            '    If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+            '        Vta.DtNCVinculadas = ObjVentas.DtResultados
+            '    End If
+            'End If
 
         End If
         ObjVentas.Dispose()
diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index bf162ff6a..327dbb21f 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2333,7 +2333,6 @@
                                 <div id="DivNumeroCPCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright col-xs-4">
                                         <asp:TextBox ID="TxtCPCliente" CssClass="form-control " runat="server" MaxLength="5" CausesValidation="true"></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator10" runat="server" ControlToValidate="TxtCPCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código Postal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= TxtCPCliente.ClientID.ToString()%>">Código Postal:</label>
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-4">
@@ -2354,7 +2353,6 @@
                                     </div>
                                     <div class="form-group form-md-line-input input-iconright col-xs-6">
                                         <asp:TextBox ID="TxtTelefonoCliente" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RFVTelefonoCliente" runat="server" ControlToValidate="TxtTelefonoCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Teléfono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= TxtTelefonoCliente.ClientID.ToString()%>">Teléfono:</label>
                                     </div>
                                 </div>
@@ -2385,8 +2383,6 @@
                                 <div id="DivCorreoCuentaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright  col-xs-6">
                                         <asp:TextBox ID="TxtCorreoCliente" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
-                                        <asp:RegularExpressionValidator ID="RegularExpressionValidator3" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoCliente" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarCliente"></asp:RegularExpressionValidator>
-                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="TxtCorreoCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= TxtCorreoCliente.ClientID.ToString()%>">Email: </label>
                                         <i></i>
                                     </div>