diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6fabcd32a..16b31667c 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -13120,7 +13120,8 @@ Partial Class Compras_Compras
         Dim CvePrePolizaNueva As Integer = -1
 
         Try
-            CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", 1, 0, 0, 1, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", Serie & "-" & Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            Dim ConceptoPoliza As String = String.Format("Cancelación: {0} - {1}{2} - {3}", NombreProveedor, TxtSerie.Text, TxtFolio.Text, TxtDescripcion.Text.Trim)
+            CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", 1, 0, 0, 1, TxtFechaCancelacion.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
             'DEVOLUCIÓN AUTOMATICA
             If CheckDevAuto.Checked Then
@@ -13297,12 +13298,15 @@ Partial Class Compras_Compras
                             ' CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar3", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CvePrePolizaNueva > 0 Then
                                 For Each dr As DataRow In dt.Rows
-                                    If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Importe").ToString.ToDecimal * -1, dr("CveConceptoContable").ToString.ToEntero, dr("Referencia").ToString,
+                                    If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("ImporteMN").ToString.ToDecimal * -1, dr("CveConceptoContable").ToString.ToEntero, dr("Referencia").ToString,
                                                                                     dr("Concepto").ToString, CveIE:=dr("CveIE").ToString.ToEntero,
-                                                                                    CveVenta:=dr("CveVenta").ToString.ToEntero, CveCompra:=dr("CveCompra").ToString.ToEntero, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, CveCliente:=dr("CveCliente").ToString.ToEntero, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CvePersonal:=dr("CvePersonal").ToString.ToEntero,
+                                                                                    CveVenta:=dr("CveVenta").ToString.ToEntero, CveCompra:=dr("CveCompra").ToString.ToEntero, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero,
+                                                                                    CveCliente:=dr("CveCliente").ToString.ToEntero, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CvePersonal:=dr("CvePersonal").ToString.ToEntero,
                                                                                     CveMovimientoAlmacen:=dr("CveMovimientoAlmacen").ToString.ToEntero,
                                                                                     CveActivoFijo:=dr("CveActivoFijo").ToString.ToEntero, CveCreditoDetalle:=dr("CveCreditoDetalle").ToString.ToEntero,
-                                                                                    ImporteME:=dr("Importe").ToString.ToDecimal * -1,
+                                                                                    ImporteME:=dr("ImporteME").ToString.ToDecimal * -1,
+                                                                                    TipoCambio:=dr("TC").ToString.ToDecimal,
+                                                                                    TipoCambioPago:=dr("TCPago").ToString.ToDecimal,
                                                                                     CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
                                                                                     PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
                                                                                     CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
@@ -14952,7 +14956,7 @@ Partial Class Compras_Compras
 
         If GvFacturas.Visible AndAlso GvFacturas.Rows.Count > 0 Then
 
-            Dim IdCompras = New List(Of Integer)
+            Dim IdCompras As New List(Of Integer)
             Dim TotalServicios As Decimal = 0
 
             TotalServicios = TxtSubTotal.Text.ToString.ToDecimal
@@ -15385,7 +15389,7 @@ Partial Class Compras_Compras
     End Sub
     Private Sub CargaSerie()
 
-        Dim AplicaCaducidad = False
+        Dim AplicaCaducidad As Boolean = False
         If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).Rows(0) IsNot Nothing Then
             AplicaCaducidad = If(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).Rows(0)("AplicaCaducidad").ToString = "True", True, False)
         End If
@@ -15411,7 +15415,7 @@ Partial Class Compras_Compras
         End If
 
         'SI TIENE ENTRADA POR SERIE LOTE, BLOQUEAMOS CHECK Y TXTCANTIDAD
-        Dim Contador = 0
+        Dim Contador As Integer = 0
         For Each Gvr As GridViewRow In GvInv.Rows
             Gvr.FCTextBox("TbCantidad").Enabled = False
             If Gvr.DataKey("CvePS").ToEntero = CvePSSerieLote Then
@@ -15436,8 +15440,8 @@ Partial Class Compras_Compras
 
     End Sub
     Protected Sub BtnAgregarPS_Click(sender As Object, e As EventArgs)
-        Dim SerieLote = TxtSerieLote.Text.Replace(" ", String.Empty)
-        Dim AplicaCaducidad = False
+        Dim SerieLote As String = TxtSerieLote.Text.Replace(" ", String.Empty)
+        Dim AplicaCaducidad As Boolean = False
         Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSSerieLote).FiltroPrimero("", "PS")
         If dr IsNot Nothing Then AplicaCaducidad = dr("AplicaCaducidad").ToString = "True"
 
@@ -15447,7 +15451,7 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
-        Dim Row = DtDatosDetalle.NewRow
+        Dim Row As DataRow = DtDatosDetalle.NewRow
         Row("CvePS") = CvePSSerieLote
         Row("CveUM") = CveUMSerieLote
         Row("PU") = PUSerieLote
@@ -15462,7 +15466,7 @@ Partial Class Compras_Compras
     End Sub
     Protected Sub BtnSerieLote_Click(sender As Object, e As EventArgs)
 
-        Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
+        Dim Argumentos As String() = CType(sender, Button).CommandArgument.Split("°"c)
 
         LbProducto.Text = Argumentos(3)
         LbCantidadSerie.Text = Argumentos(4)
@@ -15507,16 +15511,12 @@ Partial Class Compras_Compras
                 DivTC.Visible = False
                 LblTC.Visible = True
             End If
-
         Else
-
             If UsuarioActual.CveEmpresa.Contiene({4, 7, 11, 12, 145}) Then
-
                 If CveMoneda > 1 AndAlso TipoCambio > 1 Then
                     RegistraScript("$('#ModalPesos').modal('show');")
                     TxtConvertirPesos.Text = If(TipoCambio > 0, TipoCambio, GlobalTipoCambio(TxtFecha.Text.ToDate)).ToString.FormatoNumero
                 End If
-
             End If
 
             TipoCambio = 1
@@ -15526,7 +15526,6 @@ Partial Class Compras_Compras
                 TxtFecha.Attributes.Add("onblur", "CambiaFecha()")
             End If
         End If
-
         CargaCuentas()
     End Sub
     Protected Sub BtnCambiaFechaTC_Click(sender As Object, e As EventArgs)
@@ -16953,7 +16952,7 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
-        Dim ErrorPS = False
+        Dim ErrorPS As Boolean = False
 
         'Actualiza Clasificacion directamente a la DB cuando ya se tiene alguna clasificacion
         'Solo cuando el PS ya esta registrado
@@ -16971,7 +16970,7 @@ Partial Class Compras_Compras
         End If
 
         If Not ErrorPS Then
-            Dim index = 0
+            Dim index As Integer = 0
             For Each Dr As DataRow In TmpDT.Rows
                 If Dr("CvePS").ToString.ToEntero = 0 OrElse Dr("CveClasificacion").ToString.ToEntero <= 0 Then
                     'Dr("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero