Pendientes BDH

Ventas/Clientes.aspx.vb

@@ -845,6 +845,12 @@ Partial Class Clientes
             If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero > 0 Then
                 ViewState("CveEmpresaCRM") = Request("CveEmpresaCRM")
                 CargaDatosCRM()
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then ' Funcionalidad Es Distribuidor
+                DivEsDistribuidor.Visible = True
+                DivCargoUsado.Visible = True
+                DivBonificacionUsado.Visible = True
             End If
 
             ChecaPermiteCredito()
@@ -10190,6 +10196,18 @@ Partial Class Clientes
             GvPagosNoBancarios.DataBind()
         End If
         ObjBancos.Dispose()
-    End Sub
+    End Sub
+    Protected Sub TxtCodigo_TextChanged(sender As Object, e As EventArgs)
+
+        If CveCliente <= 0 AndAlso UsuarioActual.CveEmpresa = 140 Then
+            DdlTipoCliente.SelectedValueExist("1")
+            ChkEsDistribuidor.Checked = True
+            ChkCargoUsado.Checked = True
+            ChkBonificacionUsado.Checked = True
+        End If
+
+        UpDatos.Update()
+
+    End Sub
 End Class