diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 84815d55a..db4ef65f4 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -4690,7 +4690,7 @@ Partial Class Bancos_IE
 
                         'genera nuevo IE contrario
                         If Not ErrorCancelar Then
-                            If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2) <= 0 Then
+                            If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then
                                 ErrorCancelar = True
                             End If
                         End If
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 4cc876b73..2bb063817 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -958,7 +958,7 @@ Partial Class PopUpVerFactura
                     Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
                     If Dr IsNot Nothing Then
                         SerieFolio = Dr("SerieFolio").ToString
-                        Telefono = Dr("ChrTelefono").ToString
+                        Telefono = Dr("Telefono").ToString
                     End If
                 End If
             End If
diff --git a/Inventarios/RepAnomalias.aspx b/Inventarios/RepAnomalias.aspx
index d28d09550..4a0e1d04e 100644
--- a/Inventarios/RepAnomalias.aspx
+++ b/Inventarios/RepAnomalias.aspx
@@ -271,7 +271,7 @@
                                 </asp:TemplateField>       
                                 <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />                         
                                 <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                                <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left"/>
                                 <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
                                 <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
@@ -478,9 +478,9 @@
                                 <asp:CheckBox ID="ChkPSFaltante" runat="server" />
                             </ItemTemplate>
                         </asp:TemplateField>       
-                        <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />                                          
+                        <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" Visible="false" />                                          
                         <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" DataFormatString="&nbsp;{0}"  />
                         <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
                         <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
                         <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb
index 861028c31..587c9d385 100644
--- a/Inventarios/RepAnomalias.aspx.vb
+++ b/Inventarios/RepAnomalias.aspx.vb
@@ -87,13 +87,17 @@ Partial Class Inventarios_RepAnomalias
 
 
         If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
-            GvF.Columns(2).Visible = True 'proveedor
-            GvS.Columns(2).Visible = True 'proveedor
-            GvC.Columns(2).Visible = True 'proveedor
+            GvF.Columns(2).Visible = True 'clasificación
+            GvS.Columns(2).Visible = True 'clasificación
+            GvC.Columns(2).Visible = True 'clasificación
+            GvF.Columns(3).Visible = True 'proveedor
+            GvS.Columns(3).Visible = True 'proveedor
+            GvC.Columns(3).Visible = True 'proveedor
             GvF.Columns(16).Visible = UsuarioActual.Procesos(201)   'costo
             GvS.Columns(16).Visible = UsuarioActual.Procesos(201)   'costo
             GvC.Columns(16).Visible = UsuarioActual.Procesos(201)   'costo
-            GvGrupos.Columns(1).Visible = True 'proveedor
+            GvGrupos.Columns(1).Visible = True 'clasificación
+            GvGrupos.Columns(2).Visible = True 'proveedor
             GvGrupos.Columns(15).Visible = UsuarioActual.Procesos(201)   'costo
         End If
 
@@ -223,13 +227,13 @@ Partial Class Inventarios_RepAnomalias
             If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
             If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
 
-            GvS.DataSource = dt.FiltraParametros("Diferencia < 0")
-            Dim DtS As DataTable = dt.FiltraParametros("Diferencia < 0")
+            GvS.DataSource = dt.FiltraParametros("Diferencia > 0")
+            Dim DtS As DataTable = dt.FiltraParametros("Diferencia > 0")
             BanderaSerieLoteCad(GvS, DtS)
             GvS.DataBind()
 
-            GvF.DataSource = dt.FiltraParametros("Diferencia > 0")
-            Dim DtF As DataTable = dt.FiltraParametros("Diferencia > 0")
+            GvF.DataSource = dt.FiltraParametros("Diferencia < 0")
+            Dim DtF As DataTable = dt.FiltraParametros("Diferencia < 0")
             BanderaSerieLoteCad(GvF, DtF)
             GvF.DataBind()
 
@@ -862,7 +866,7 @@ Partial Class Inventarios_RepAnomalias
                     RangoDatosFiltro.Merged = True
                     RangoDatosFiltro.Style.WrapText = True
                     RangoDatosFiltro.Value = TextoFiltro
-                    RangoDatosFiltro.Style.Font.Size = 12 * 20
+                    RangoDatosFiltro.Style.Font.Size = 11 * 20
                     RangoDatosFiltro.Style.Font.Name = "Calibri Light"
                     RangoDatosFiltro.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
                     RangoDatosFiltro.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
@@ -920,7 +924,6 @@ Partial Class Inventarios_RepAnomalias
                     'Else
                     '    worksheet.Columns(I + 1).Style.NumberFormat = "#,##"
                     'End If
-
                     worksheet.Columns(I + 1).Style.NumberFormat = "@"
 
                     Try
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 02ce47bf7..9bc1a43b5 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -21854,7 +21854,7 @@ Partial Class Ventas
             Dim tDT As DataTable = Nothing
             Dim ObjOC As New ClsOC
             If ObjOC.GetOCFacturacion(CveOC, UsuarioActual.CveEmpresa) Then
-                tDT = ObjOC.DtResultados
+                tDT = ObjOC.DtResultados.Copy()
                 'tTmpDT.Columns.Add("TipoDocto", GetType(String))
                 'tTmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
                 'tTmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
@@ -21867,10 +21867,14 @@ Partial Class Ventas
             If tDT IsNot Nothing AndAlso tDT.Rows.Count > 0 Then
 
 
-                ViewState("CveCliente") = ObjOC.DtResultados.Rows(0)("CveCliente")
+                ViewState("CveCliente") = tDT.Rows(0)("CveCliente")
                 HdnCveCliente.Value = CveCliente.ToString()
                 CargaCliente(CveCliente)
 
+                If (DdlTipoComprobante.Items.FindByValue("Rem") IsNot Nothing) Then
+                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
+                End If
+
                 For Each Dr As DataRow In tDT.Rows
 
                     AgregarProductoServicio(Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(),