diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index a093792e9..cdda5974c 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1456,7 +1456,6 @@ Partial Class Bancos_PopIECompras
                         If MsgError = "" Then
                             Dim VentaActual As New Venta(UsuarioActual) With {.CveVenta = rw.DataKey("CveVenta").ToEntero, .ClienteNombre = NombreCliente, .SerieFolio = rw.DataKey("SerieFolio"), .CveCliente = rw.DataKey("CveCliente").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal, .CveSubProyecto = rw.DataKey("CveSubProyecto").ToEntero, .CveMoneda = rw.DataKey("CveMoneda").ToEntero}
                             Dim PagoVenta As New VentaPago
-
                             PagoVenta.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
                             PagoVenta.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
                             PagoVenta.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx
index 078ca609f..d1a5e2397 100644
--- a/Bancos/PopIEVentas.aspx
+++ b/Bancos/PopIEVentas.aspx
@@ -350,7 +350,7 @@
                                                 <div class="col-xs-12">
                                                     <asp:UpdatePanel ID="UpCompras" runat="server" UpdateMode="Conditional">
                                                         <ContentTemplate>
-                                                            <asp:GridView ID="GvCompras" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveCompra,Saldo,Folio,CveProveedor,CveMoneda,RetISR,RetIVA,IVA,IVADeducible,IVANoDeducible,IEPS,TipoCambio,Total,CveRetIVAConcepto,CveRetISRConcepto,PorcentajeIVA"
+                                                            <asp:GridView ID="GvCompras" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveCompra,Saldo,SerieFolio,CveProveedor,CveMoneda,RetISR,RetIVA,IVA,IVADeducible,IVANoDeducible,IEPS,TipoCambio,Total,CveRetIVAConcepto,CveRetISRConcepto,PorcentajeIVA,CveSubProyecto,CveTipoConcepto"
                                                                 ToolTip="Listado de Movimientos" data-height="300" Style="width: 100%; height: 100%; text-align: center;" GridLines="None" HeaderStyle-ForeColor="Black">
                                                                 <Columns>
                                                                     <asp:TemplateField>
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index d037f2d73..b05648ad7 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -118,7 +118,7 @@ Partial Class Bancos_PopIEVentas
 
     Private Property TipoTransaccion As String
         Get
-            Return ViewState("TipoTransaccion").ToString
+            Return IfNull(ViewState("TipoTransaccion"), "").ToString
         End Get
         Set(value As String)
             ViewState("TipoTransaccion") = value
@@ -772,7 +772,7 @@ Partial Class Bancos_PopIEVentas
         Dim Folio As Long
 
         Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
-        Dim TCveMoneda = -1
+        Dim TCveMoneda As Integer = -1
 
         If dr IsNot Nothing Then
             If ChkPagarPesos.Checked Then
@@ -1175,7 +1175,7 @@ Partial Class Bancos_PopIEVentas
         Dim CvePlantillaPoliza As Integer = 11
         Dim ConceptoPoliza As String = String.Format("{0} {1}", NombreCliente, SerieFolio)
         Dim CveCuentaDeposito As Integer = If(DdlCuentaDeposito.Items.Count > 0, DdlCuentaDeposito.SelectedValue.ToEntero, 0)
-        Dim FechaDocumento = FechaVenta
+        Dim FechaDocumento As Date = FechaVenta
         Dim StrMsg As New StringBuilder
 
         'Saca moneda en que se va a pagar segun metodo de pago
@@ -1310,9 +1310,33 @@ Partial Class Bancos_PopIEVentas
                             Case "5" 'Compras
                                 If CveVenta > 0 Then
                                     ImportePagado = TxtImporte.Text.Trim.ToDecimal
-                                    CveConceptoPrePoliza = 2
-                                    'CveConcepto2 = 43
                                     CveIE = -1
+                                    For Each rw As GridViewRow In GvCompras.Rows
+                                        If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
+                                            Pago.CveMonedaPago = 1
+                                            Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
+                                            Pago.ImportePagoVenta = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
+                                            Pago.TipoPago = "Compra"
+                                            If AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
+                                                MsgError = "No se pudo insertar la póliza"
+                                            End If
+                                            If MsgError = "" Then
+                                                Dim CompraActual As New Compra() With {.CveCompra = rw.DataKey("CveCompra").ToEntero, .ProveedorNombre = NombreCliente, .SerieFolio = rw.DataKey("SerieFolio"), .CveProveedor = rw.DataKey("CveProveedor").ToEntero, .IVA = rw.DataKey("IVA").ToDecimal, .IEPS = rw.DataKey("IEPS").ToDecimal, .RetIVA = rw.DataKey("RetIVA").ToDecimal, .RetISR = rw.DataKey("RetISR").ToDecimal, .Total = rw.DataKey("Total").ToDecimal, .PorcentajeIVA = rw.DataKey("PorcentajeIVA").ToDecimal, .CveSubProyecto = rw.DataKey("CveSubProyecto").ToEntero, .CveMoneda = rw.DataKey("CveMoneda").ToEntero, .CveTipoConceptoProveedor = rw.DataKey("CveTipoConcepto").ToEntero}
+                                                Dim PagoCompra As New CompraPago
+
+                                                PagoCompra.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
+                                                PagoCompra.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
+                                                PagoCompra.TCPago = rw.DataKey("TipoCambio").ToDecimal
+                                                PagoCompra.CveProveedor = rw.DataKey("CveProveedor").ToEntero
+                                                PagoCompra.CveVentaRelacionada = CveVenta
+                                                PagoCompra.TipoPago = "Venta"
+                                                If AplicaPrePolizaPagoCompra(CompraActual, PagoCompra, CvePrePoliza, ObjMov) Then
+                                                    MsgError = "No se pudo insertar la póliza"
+                                                End If
+                                            End If
+
+                                        End If
+                                    Next
                                 End If
                             Case Else
                                 'NO SE HA DEFINIDO PARA FUNCIONARIO Y EMPLEADO
@@ -1350,7 +1374,7 @@ Partial Class Bancos_PopIEVentas
             '07-05-2018 - Timbra Complemento de pago
             Dim TextoComplementoPago As String = ""
 
-            StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
+            If ObjIE.Folio <> "" Then StrMsg.AppendFormat("Folio <b>{0}</b><br/>", ObjIE.Folio)
 
             If RBLContado.SelectedValue = "1" And ChkComplementoPago.Checked Then
                 Dim SeriesPago As New List(Of String)