diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 750625e13..502428c99 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9977,7 +9977,6 @@ Partial Class Ventas
 
                     'ContPAQ El movimiento 1 es el de Venta
                     Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
-
                     AutoConta = AutocontaMatriz(AutoConta)
 
                     If DdlTipoComprobante.SelectedValue.Contiene("Rem", "RNC", "Cot", "Ped", "Pd2", "PA") Then
@@ -10016,22 +10015,22 @@ Partial Class Ventas
                             End If
                         End If
 
-                        Try
-                            'RMF, cuando es pedido, se manda autorización.
-                            If ObjFactura.TipoDocto.Contiene("PA") Then
+                        'Try
+                        '    'RMF, cuando es pedido, se manda autorización.
+                        '    If ObjFactura.TipoDocto.Contiene("PA") Then
 
-                                Dim Titulo As String = "Solicitud de autorización" 'usuarios de crédito y cobranza
-                                Dim Msg As String = String.Format("{0} - Folio {1} ", DdlSubProyectoDatos.SelectedItem.Text, TxtFolio.Text)
-                                'If UsuarioActual.CveEmpresa = 119 Then
-                                '    ClsSisNotificaciones.SendNotificacionERP(1715, Titulo, Msg, 1)
-                                '    ClsSisNotificaciones.SendNotificacionERP(1815, Titulo, Msg, 1)
-                                '    ClsSisNotificaciones.SendNotificacionERP(1830, Titulo, Msg, 1)
-                                'End If
+                        '        Dim Titulo As String = "Solicitud de autorización" 'usuarios de crédito y cobranza
+                        '        Dim Msg As String = String.Format("{0} - Folio {1} ", DdlSubProyectoDatos.SelectedItem.Text, TxtFolio.Text)
+                        '        'If UsuarioActual.CveEmpresa = 119 Then
+                        '        '    ClsSisNotificaciones.SendNotificacionERP(1715, Titulo, Msg, 1)
+                        '        '    ClsSisNotificaciones.SendNotificacionERP(1815, Titulo, Msg, 1)
+                        '        '    ClsSisNotificaciones.SendNotificacionERP(1830, Titulo, Msg, 1)
+                        '        'End If
 
-                            End If
-                        Catch ex As Exception
-                            OnError("Ocurrió un error al mandar las notificaciones de autorización", ex)
-                        End Try
+                        '    End If
+                        'Catch ex As Exception
+                        '    OnError("Ocurrió un error al mandar las notificaciones de autorización", ex)
+                        'End Try
 
                         Try
                             ViewState("CveVenta") = ObjFactura.CveVenta
@@ -13024,9 +13023,7 @@ Partial Class Ventas
         End If
 
         Dim DescripcionVenta As String = ""
-        If factura.TipoDocto = "Ing" AndAlso UsuarioActual.CveEmpresa = 13 Then
-            DescripcionVenta = TxtDescripcionVenta.Text
-        End If
+        If TxtDescripcionVenta.Text <> "" Then DescripcionVenta = TxtDescripcionVenta.Text
 
         If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
                            factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,