Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/ProductosServicios.aspx.vb

@@ -2187,20 +2187,27 @@ Partial Class ProductosyServicios
             ' CargaClasificacionesDetalles()
         End If
 
-        Try
-            Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
-            If Boolean.Parse(Dr("EsAcumulador").ToString) Then
-                MostarOcultarDivTamanio(True)
-            Else
-                MostarOcultarDivTamanio(False)
-            End If
-            'SI ES MOTOBATERIA
-            If DdlClasificacion.SelectedValue = "20517" Then
-                MostarOcultarDivTamanio(True)
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al mostrar los tamaños", ex)
-        End Try
+
+        If DdlClasificacion.SelectedValue.ToEntero > 0 Then
+            Try
+                Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
+                If Boolean.Parse(Dr("EsAcumulador").ToString) Then
+                    MostarOcultarDivTamanio(True)
+                Else
+                    MostarOcultarDivTamanio(False)
+                End If
+                'SI ES MOTOBATERIA
+                If DdlClasificacion.SelectedValue = "20517" Then
+                    MostarOcultarDivTamanio(True)
+                End If
+            Catch ex As Exception
+                OnError("Ocurrió un error al mostrar los tamaños", ex)
+            End Try
+        End If
+
+
+
+
     End Sub
 
     Private Sub MostarOcultarDivTamanio(Mostrar As Boolean)

Ventas/Ventas.aspx.vb

@@ -10056,6 +10056,11 @@ Partial Class Ventas
         'CLIENTE
         ObjFactura.CveCliente = CveCliente
         ObjFactura.SetCliente()
+        ObjFactura.CveEmpresaCRM = CveEmpresaCRM
+        If CveCliente = -1 And CveEmpresaCRM > 0 Then
+            ObjFactura.Cliente.Nombre = LblEmpresaCRM.Text
+            ObjFactura.Cliente.RFC = LblRFCCRM.Text
+        End If
 
         'SUCURSAL
         'ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
@@ -13841,7 +13846,7 @@ Partial Class Ventas
 
         CreaObjetosVenta(True)
 
-        If ObjFactura Is Nothing Or ObjFactura.Cliente Is Nothing Then
+        If ObjFactura Is Nothing Or (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then
             Alert("Ocurrió un error al procesar los datos para la vista previa. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError)
             ObjFactura = Nothing
             Exit Sub