From 9bdce413755a4604052dd282df0e8edf2c874ac7 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 29 Aug 2024 08:08:41 -0700
Subject: [PATCH] -- acomodo de timrar cuando se paga con ventas

---
 Bancos/PopIECompras.aspx    | 6 +++---
 Bancos/PopIECompras.aspx.vb | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx
index 48e01ca67..5f33cdea9 100644
--- a/Bancos/PopIECompras.aspx
+++ b/Bancos/PopIECompras.aspx
@@ -433,8 +433,7 @@
                                                 <div class="col-xs-12">
                                                     <asp:UpdatePanel ID="UpVentas" runat="server" UpdateMode="Conditional">
                                                         <ContentTemplate>
-                                                            <asp:CheckBox ID="ChkEmitirComplementoPago" CssClass="md-checksd" Text="Emitir Complemento de Pago" runat="server" align="Right" />
-                                                            <br />
+                                                           
                                                             <asp:GridView ID="GvVentas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveVenta,SerieFolio,Saldo,Folio,CveCliente,CveMoneda,RetISR,RetIVA,IVA,IEPS,TipoCambio,Total,PorcentajeIVA,CveSubProyecto"
                                                                 ToolTip="Listado de Movimientos" data-height="200" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"   GridLines="None" HeaderStyle-ForeColor="Black">
                                                                 <Columns>
@@ -485,7 +484,8 @@
                                                                         </ItemTemplate>
                                                                     </asp:TemplateField>
                                                                 </Columns>
-                                                            </asp:GridView>
+                                                            </asp:GridView>                                                            
+                                                             <asp:CheckBox ID="ChkEmitirComplementoPago" CssClass="md-checksd" Text="Emitir Complemento de Pago" runat="server" align="Right" />
                                                         </ContentTemplate>
                                                     </asp:UpdatePanel>
                                                 </div>
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index c4bc99aac..38f68f496 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1501,7 +1501,7 @@ Partial Class Bancos_PopIECompras
             End If
             If RBLContado.SelectedValue.ToEntero = 6 And ChkEmitirComplementoPago.Checked Then GeneraTimbre(CvePrePoliza) Else Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
 
-            EnviarCorreoNotificacion(CveIE, NotificarA, "", UsuarioActual, False)
+            If NotificarA <> "" Then EnviarCorreoNotificacion(CveIE, NotificarA, "", UsuarioActual, False)
 
         Else
             ObjIE.RollBack()
@@ -1574,7 +1574,7 @@ Partial Class Bancos_PopIECompras
         Banco.IniciaTransacSQL()
 
 
-        If Banco.GeneraTimbrePago(CveIE, -1, UsuarioActual, CvePrePoliza:=CvePrePoliza) Then
+        If Banco.GeneraTimbrePago(-1, -1, UsuarioActual, CvePrePoliza:=CvePrePoliza) Then
             If Banco.Mensaje = "" Then
                 Banco.Commit()
                 PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False)