CRM Check list

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
@@ -7820,7 +7826,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