diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index d5f0753ce..254b0477c 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -4843,11 +4843,7 @@ Public Class ClsBancos
 
             'MOVIMIENTOS CHEQUE
             If GetBancosIEMovimientos(CveIENotificar, UsuarioActual.CveEmpresa) Then
-                Dim Textov33 As String = ""
-                If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
-                    Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
-                End If
-
+                Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos"
 
                 strBody.AppendFormat("<div style='width: 1000px'>")
                 strBody.AppendFormat("    <table style='width:1000px'>")
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 583fafb2d..a37c92bf4 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -6223,10 +6223,7 @@ Partial Class Bancos_IE
 
             'MOVIMIENTOS CHEQUE
             If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
-                Dim Textov33 As String = ""
-                If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
-                    Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
-                End If
+                Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos"
 
                 strBody.AppendFormat("<div style='width: 1000px'>")
                 strBody.AppendFormat("    <table style='width:1000px'>")
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index ccfb2ae94..18574cc43 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -5898,10 +5898,7 @@ Partial Class Compras_Proveedores
 
             'MOVIMIENTOS CHEQUE
             If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
-                Dim Textov33 As String = ""
-                If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
-                    Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
-                End If
+                Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos"
 
                 strBody.AppendFormat("<div style='width: 1000px'>")
                 strBody.AppendFormat("    <table style='width:1000px'>")
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 700cef5ba..b8430e834 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1950,8 +1950,13 @@ Partial Class Inventarios_EntradasSalidas
                         End If
 
                         If Not ErrorMovInv Then
+                            Dim OpcionPrePoliza As Integer = -1
+                            'SI ES CONSUMO INTERNO
+                            If DdlConcepto.SelectedValue = "30" Then
+                                OpcionPrePoliza = 11
+                            End If
 
-                            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, OpcionPrePoliza) Then
                                 If ObjConta.ValorPolizaDescuadre > 0 Then
                                     ErrorMovInv = True
                                     GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 11e1f5e05..352045248 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -2624,14 +2624,6 @@ Partial Class Inventarios_TraspasoAlmacen
             strBody.AppendFormat("                            <td>Observaciones:</td>")
             strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", ObjInventario.Observaciones)
             strBody.AppendFormat("                        </tr>")
-            'strBody.AppendFormat("                        <tr class='Texto'>")
-            'strBody.AppendFormat("                            <td>Importe:</td>")
-            'strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
-            'strBody.AppendFormat("                        </tr>")
-            'strBody.AppendFormat("                        <tr class='Texto'>")
-            'strBody.AppendFormat("                            <td>Observaciones:</td>")
-            'strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
-            'strBody.AppendFormat("                        </tr>")
             strBody.AppendFormat("                        <tr class='Texto'>")
             strBody.AppendFormat("                            <td colspan='2'>")
             strBody.AppendFormat("                                <hr />")
@@ -2644,12 +2636,6 @@ Partial Class Inventarios_TraspasoAlmacen
             strBody.AppendFormat("  </table>")
             strBody.AppendFormat("</div>")
 
-
-            'MOVIMIENTOS CHEQUE
-            'Dim Textov33 As String = ""
-            'If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
-            '    Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
-            'End If
             If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                 strBody.AppendFormat("<div style='width: 1000px'>")
                 strBody.AppendFormat("    <table style='width:1000px'>")
@@ -2662,8 +2648,6 @@ Partial Class Inventarios_TraspasoAlmacen
                 strBody.AppendFormat("                            <th scope='col' style='width: 10%'>Cantidad</th>")
                 strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Unidad</th>")
                 strBody.AppendFormat("                            <th scope='col' style='width: 70%'>Producto / Servicio</th>")
-                'strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
-                'strBody.AppendFormat("                            <th scope='col' style='width: 15%'>NC Aplicadas</th>")
                 strBody.AppendFormat("                        </tr>")
 
 
@@ -2672,8 +2656,6 @@ Partial Class Inventarios_TraspasoAlmacen
                     strBody.AppendFormat("                            <td>{0}</td>", dr("Cantidad").ToString.FormatoNumero)
                     strBody.AppendFormat("                            <td>{0}</td>", dr("UnidadMedida").ToString)
                     strBody.AppendFormat("                            <td>{0}</td>", dr("CodigoPS").ToString)
-                    'strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
-                    'strBody.AppendFormat("                            <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
                     strBody.AppendFormat("                        </tr>")
                 Next
 
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 10fd4987a..5541ff8c2 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1065,7 +1065,7 @@
                                                         </ContentTemplate>
                                                     </asp:UpdatePanel>
                                                 </th>
-                                                <th>
+                                                <th style="width:120px;">
                                                     <div class="row" id="DivPrecioLista" runat="server" visible="false">
                                                         <div class="col-md-12">
                                                             <asp:DropDownList ID="DdlPrecioLista" runat="server" Width="100%" CssClass="select2me" DataValueField="CvePrecioLista" DataTextField="PrecioLista" OnSelectedIndexChanged="DdlPrecioLista_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index bab17f0ac..9e04e1153 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7070,7 +7070,7 @@ Partial Class Ventas
         Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595)
 
         'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO
-        If Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then
+        If (Not UsuarioActual.Empresa.Funcionalidad(702).Contiene("1", "2")) AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then
             RBLPago.SelectedValue = "2"
             RBLPago.Items(0).Enabled = False
             RBLPago_SelectedIndexChanged(Nothing, Nothing)