--Merge Cotizacion

Ventas/Ventas.aspx.vb

@@ -6185,6 +6185,12 @@ Partial Class Ventas
                 DdlVendedor.Enabled = False
                 LbAgregar.Enabled = True
             End If
+
+
+            ThTiempoEntrega.Visible = True
+                ThTiempoEntrega2.Visible = True
+                GvPS.Columns(5).Visible = True
+
         End If
         ObjCRM.Dispose()
     End Sub
@@ -7821,7 +7827,7 @@ Partial Class Ventas
                 End If
 
                 'Si es Cotizacíon
-                If e.Row.DBCampo("TipoDocto") = "Cot" Then
+                If e.Row.DBCampo("TipoDocto") = "Cot" Or CveEmpresaCRM > 0 Then
                     ThTiempoEntrega.Visible = True
                     ThTiempoEntrega2.Visible = True
                     GvPS.Columns(5).Visible = True
@@ -25123,11 +25129,13 @@ Partial Class Ventas
             End If
             DdlMarca.Items.Clear()
             DdlMarcaPSDes.Items.Clear()
-            Dim ObjMarcas As New ClsProductosServicios
-            ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
-            DdlMarca.DataSource = ObjMarcas.DtResultados
-            DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
-            ObjMarcas.Dispose()
+            'Dim ObjMarcas As New ClsProductosServicios
+            'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
+            'DdlMarca.DataSource = ObjMarcas.DtResultados
+            'DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
+            'ObjMarcas.Dispose()
+            DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
+            DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
             DdlMarca.DataBind()
             DdlMarcaPSDes.DataBind()
         End If