--FIX. Facturacion con pagos, correcion de asignacion de usuario.

--FIX. Cambio de tipo docto de cotizaciones a remison cuando cambia de cliente.
--FIX. Mensaje de cliente bloqueado cuando es publico general y es cotizacion.

Ventas/Ventas.aspx.vb

@@ -7195,8 +7195,13 @@ Partial Class Ventas
             HabilitarRemisionesPublicoGeneral()
 
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                If Opcion = "Cot" Then
+                    DdlTipoComprobante.SelectedValueExist("Cot")
+                Else
                     If Not String.IsNullOrEmpty(UsuarioActual.CveTipoDocumento) Then
                         DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
+                        DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, Nothing)
+                    End If
                 End If
             End If
         End If
@@ -7207,8 +7212,6 @@ Partial Class Ventas
         End If
 
 
-
-
         'If UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
         '    Using ObjVentas As New ClsVentas
         '        If ObjVentas.GetLineasAdicionales(-1, CveCliente, -1, -1, DdlMoneda.SelectedValue.ToEntero(), MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa) Then
@@ -7771,6 +7774,12 @@ Partial Class Ventas
             'VERIFICAR RESTRICCIONES DEL CLIENTE
             If Not UsuarioActual.Empresa.Funcionalidad(702).ToEntero() > 0 Then
                 If (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 AndAlso RBLPago.SelectedValue = "2") Then
+                    Dim Valida As Boolean = True
+                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso (Me.CveCliente = UsuarioActual.Empresa.Funcionalidad(714).ToEntero() OrElse Me.PermiteCredito) Then
+                        Valida = False
+                    End If
+
+                    If Valida Then
                         Dim Vta As New ClsVentas
                         Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
                         Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
@@ -7810,6 +7819,8 @@ Partial Class Ventas
                             End If
                         End If
                     End If
+
+                End If
             End If
 
 
@@ -15567,7 +15578,13 @@ Partial Class Ventas
 
                     'TRASPASO DE PAGOS DE REMISIONES A FACTURA GLOBAL
                     If ObjFactura.DtPagosFacturaGlobal IsNot Nothing Then
-
+                        If ObjFactura.UsuarioActual Is Nothing Then
+                            ObjFactura.UsuarioActual = UsuarioActual
+                        Else
+                            If ObjFactura.UsuarioActual.Empresa Is Nothing Then
+                                ObjFactura.UsuarioActual.Empresa = UsuarioActual.Empresa
+                            End If
+                        End If
                         Dim VentaActual As New ClsPaginas.Venta(ObjFactura, UsuarioActual)
 
                         For Each DrPago As DataRow In ObjFactura.DtPagosFacturaGlobal.Rows