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

Ventas/Clientes.aspx.vb

@@ -771,6 +771,11 @@ Partial Class Clientes
                         VerificaVinculacion()
                         UpAccionesCRM.Update()
                     End If
+
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(309) Then
+                        DeshabilitarDatosClienteCajas()
+                    End If
+
                 End If
                 'End If
                 HlEvento.Visible = True
@@ -901,17 +906,33 @@ Partial Class Clientes
     End Function
     Private Function PermiteEliminar() As Boolean
         Return UsuarioActual.TienePermisoProceso(194)
-    End Function
-
+    End Function
+
+    Private Sub DeshabilitarDatosClienteCajas()
+        DdlSubProyecto.Enabled = False
+        DdlPrecioLista.Enabled = False
+        DdlClasificacion.Enabled = False
+        DdlVendedor.Enabled = False
+        DdlCorporativo.Enabled = False
+        ChkRequiereOC.Enabled = False
+        ChkEsDistribuidor.Enabled = False
+        DdlTipoCliente.Enabled = False
+        TxtCorreoEntregaCompras.Enabled = False
+        TxtCorreoEntregaAlmacen.Enabled = False
+        ChkCargoUsado.Enabled = False
+        ChkBonificacionUsado.Enabled = False
+    End Sub
+
+
 #End Region
-
-
+
+
 #Region "C A R G A S"
-
-
-
-
-
+
+
+
+
+
     Private Sub CreaDtPago()
         DtPagos = New DataTable
         DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
@@ -1902,7 +1923,7 @@ Partial Class Clientes
         GvDireccionesEnvio.DataBind()
 
         If TxtRFC.Text = "XAXX010101000" Then
-            GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal").Text = "Cliente"
+            If GvDireccionesEnvio.HeaderRow IsNot Nothing AndAlso GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal") IsNot Nothing Then GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal").Text = "Cliente"
             LtlNombreSucursal.Text = "Cliente"
             LtlNombreSucursalTitulo.Text = "Cliente"
             LtlTituloSurcusalCliente.Text = "Datos del cliente"