diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 2c54be51e..3a0ec3593 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -32,6 +32,7 @@ Public Class ClsClientes
 
     Public Property CveCliente As Integer
     Public Property Nombre As String
+    Public Property TipoPersona As Boolean
     Public Property RegimenSociedad As String
     Public Property NombreComercial As String
     Public Property Direccion As String
@@ -290,6 +291,7 @@ Public Class ClsClientes
             If Data.Rows.Count > 0 Then
                 _CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero
                 _Nombre = Data.Rows(0)("Nombre").ToString
+                _TipoPersona = Boolean.Parse(Data.Rows(0)("TipoPersona").ToString)
                 _RegimenSociedad = Data.Rows(0)("RegimenSociedad").ToString
                 _NombreComercial = Data.Rows(0)("NombreComercial").ToString
                 _Codigo = Data.Rows(0)("Codigo").ToString
@@ -578,7 +580,7 @@ Public Class ClsClientes
                                Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
-                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1") As Boolean
+                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -722,6 +724,9 @@ Public Class ClsClientes
             .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
 
             .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
+            .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
+
+
 
 
         End With
@@ -771,7 +776,7 @@ Public Class ClsClientes
                                 Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
-                                Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1") As Boolean
+                                Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -931,6 +936,10 @@ Public Class ClsClientes
             .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
 
             .Add("@RegimenSociedad", SqlDbType.VarChar).Value = RegimenSociedad
+            .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona
+
+
+
 
         End With
         Try
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 849ed271b..9d00e3112 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -347,9 +347,23 @@
                                     </div>
 
                                     <div id="bodydatosclientes" class="portlet-body form">
+                                         <div class="row">
+                                             <div class="col-md-12">
+                                                 <div runat="server" id="Div3" class="form-group form-md-line-input input-iconright">
+                                                     <label for="<%= RdTipoPersona.ClientID.ToString()%>">Tipo Persona:</label>
+                                                     <asp:RadioButtonList runat="server" ID="RdTipoPersona" RepeatDirection="Horizontal" OnSelectedIndexChanged="RdTipoPersona_SelectedIndexChanged" AutoPostBack="true"> 
+                                                     <asp:ListItem Value="0">Física</asp:ListItem>
+                                                     <asp:ListItem Value="1">Moral</asp:ListItem>
+                                                 </asp:RadioButtonList>
+                                                      
+                                                        <i></i>
+                                                 </div>
+                                                 
+                                             </div>
+                                         </div>
 
                                         <div class="row">
-                                            <div class="col-md-8">
+                                            <div class="col-md-12" runat="server" id="DivRazonSocial2">
                                                   <div runat="server" id="DivRazonSocial" class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox ID="TxtNombre" CssClass="form-control " runat="server" MaxLength="150" onkeyup="fncTxt()" ClientIDMode="Static" ></asp:TextBox>
                                                         <asp:RequiredFieldValidator ID="RFVNombre" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -357,8 +371,8 @@
                                                         <i></i>
                                                 </div>
                                             </div>
-                                            <div class="col-md-4">
-                                                 <div runat="server" id="DVRegimenSociedad" class="form-group form-md-line-input input-iconright">
+                                            <div class="col-md-4" id="DVRegimenSociedad"  runat="server" visible ="false">
+                                                 <div runat="server"  class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox ID="TxtRegimenSociedad" CssClass="form-control " runat="server" MaxLength="50" onkeyup="fncTxt()" ClientIDMode="Static"  ></asp:TextBox>
                                                         <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator22" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre del Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
                                                         <label for="<%= TxtRegimenSociedad.ClientID.ToString()%>">Regimen Sociedad:</label>
@@ -826,7 +840,7 @@
                                     </div>
                                     <div class="portlet-body form">
                                         <asp:GridView ID="GvDireccionesEnvio" runat="server" Width="100%" GridLines="None"
-                                            DataKeyNames="CveDireccionEnvio,CveCliente,CveClienteSucursal,EnvioDireccion,EnvioColonia,EnvioCiudad,EnvioEstado,EnvioCP,CveUsuario,Estatus,EnvioNoExt,EnvioNoInt,EnvioContacto,EnvioDepartamento,EnvioTel,CvePais,CveEstado,CveMunicipio,CveLocalidad,CveColonia"
+                                            DataKeyNames="CveDireccionEnvio,CveCliente,CveClienteSucursal,EnvioDireccion,EnvioColonia,EnvioCiudad,EnvioEstado,EnvioCP,CveUsuario,Estatus,EnvioNoExt,EnvioNoInt,EnvioContacto,EnvioDepartamento,EnvioTel,CvePais,CveEstado,CveMunicipio,CveLocalidad,CveColonia,CveSubProyecto"
                                             CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de direcciones de envio">
                                             <Columns>
                                                 <asp:TemplateField>
@@ -5259,17 +5273,22 @@
                                     <label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
                                 </div>
 
+                                <div class="row">
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlClienteSucursalEnvio" runat="server" CssClass="form-control select2me" DataValueField="CveClienteSucursal" DataTextField="SucursalCliente" Width="100%"></asp:DropDownList>
+                                            <label for="<%= DdlClienteSucursalEnvio.ClientID.ToString()%>">Sucursal Cliente:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">                                            
+                                            <asp:DropDownList ID="DdlSubProyectoClienteSucursal" ClientIDMode="Static" runat="server" CssClass="form-control select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Width="100%"></asp:DropDownList>
+                                            <label for="<%= DdlClienteSucursalEnvio.ClientID.ToString()%>"><asp:Label runat="server" ID="LblSubProyectoClienteSucursal"></asp:Label>:</label>
+                                        </div>
+                                    </div>
 
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlClienteSucursalEnvio" runat="server" CssClass="form-control select2me" DataValueField="CveClienteSucursal" DataTextField="SucursalCliente"></asp:DropDownList>
-                                    <label for="<%= DdlClienteSucursalEnvio.ClientID.ToString()%>">Sucursal:</label>
                                 </div>
-                                <%--<div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtDepartamento" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                    <label for="<%= TxtDepartamento.ClientID.ToString()%>">Departamento:</label>
-                                </div>--%>
-
-
+                                 
 
                                 <div style="display: none">
                                     <asp:Button ID="BtnDirClienteValidar" ClientIDMode="Static" runat="server" CssClass="btn btn-primary" OnClick="BtnDirClienteValidar_Click" Text="validar" />
@@ -6994,7 +7013,14 @@
             let strNombre = $('#TxtNombre').val();
             let strRegimenSociedad = $('#TxtRegimenSociedad').val();
 
-            $get('TxtNombreComercial').value = strNombre + " " + strRegimenSociedad;
+
+            if(strRegimenSociedad !== undefined  ){
+                $get('TxtNombreComercial').value = strNombre + " " + strRegimenSociedad;
+            }else{
+                $get('TxtNombreComercial').value = strNombre ;
+            }
+
+            
         }
 
         function cargaddls() {
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 806318317..71868e376 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1091,6 +1091,18 @@ Partial Class Clientes
         ObjClientes.Dispose()
         GvRetenciones.DataBind()
     End Sub
+
+
+    Private Sub CargaSubProyectosSuscursales()
+
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
+
+
+
+    End Sub
+
+
     Private Sub CargaCuentasEquipos()
         Dim Objeto As New ClsGenerales
         If Objeto.GetCuentasEquipos(CveCliente, -1) Then
@@ -1450,13 +1462,14 @@ Partial Class Clientes
                 ' CargaDocs()
                 CargaCombos()
                 CargaDocumentacionCliente()
-                'CargaMetodosPago33()
-                'CargaFormaPago33()
-                'CargaComboCFDI()
-                'CargarPagosNoBancarios()
-
-
-
+                CargaSubProyectosSuscursales()
+                'CargaMetodosPago33()
+                'CargaFormaPago33()
+                'CargaComboCFDI()
+                'CargarPagosNoBancarios()
+
+
+
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                     LnkPorcentajeMarcas.Visible = True
                     LnkPorcentajePrecios.Visible = True
@@ -1863,7 +1876,9 @@ Partial Class Clientes
 
             End If
 
+            RdTipoPersona.SelectedValue = If(ObjClientes.TipoPersona, "1", "0")
 
+            RdTipoPersona_SelectedIndexChanged(Nothing, Nothing)
 
         End If
         UpActivacionPortal.Update()
@@ -2588,6 +2603,8 @@ Partial Class Clientes
         Dim LT As String = If(HDLT.Value.ToDouble <> 0, HDLT.Value, "0")
         Dim LG As String = If(HDLG.Value.ToDouble <> 0, HDLG.Value, "0")
 
+        Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
+
         If CveCliente = -1 Then
             Dim ErrorAC As Boolean = False
             Dim CtaCliente As Integer = DdlCtaContableClientes.SelectedValue.ToEntero()
@@ -2651,7 +2668,7 @@ Partial Class Clientes
                                     CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                     ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
                                     TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                    CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text) Then
+                                    CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona) Then
 
                 ViewState("CveCliente") = ObjClientes.CveCliente
 
@@ -2748,7 +2765,7 @@ Partial Class Clientes
                                         ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
                                         RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(),
                                         CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                        NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text) Then
+                                        NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona) Then
 
 
                 ObjClientes.LimpiaImpuestosLocales(CveCliente)
@@ -4524,8 +4541,22 @@ Partial Class Clientes
 
         DdlDirClienteColonia.SelectedValueExist(GvRow.DataKey("CveColonia"))
 
-        ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString() = "True", True, False)
-        If GvRow.DataKey("CveClienteSucursal").ToEntero() > 0 Then DdlClienteSucursalEnvio.SelectedValueExist(GvRow.DataKey("CveClienteSucursal")) Else DdlClienteSucursalEnvio.SelectedValueExist("-1")
+        ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString() = "True", True, False)
+
+        If GvRow.DataKey("CveClienteSucursal").ToEntero() > 0 Then
+            DdlClienteSucursalEnvio.SelectedValueExist(GvRow.DataKey("CveClienteSucursal"))
+        Else
+            DdlClienteSucursalEnvio.SelectedValueExist("-1")
+        End If
+
+
+        Dim CveSubProyectoClienteSucursal As Integer = GvRow.DataKey("CveSubProyecto").ToEntero
+
+        DdlSubProyectoClienteSucursal.SelectedValueExist("-1")
+        If CveSubProyectoClienteSucursal > 0 Then
+            DdlSubProyectoClienteSucursal.SelectedValueExist(CveSubProyectoClienteSucursal)
+        End If
+
         UpAddDireccion.Update()
         RegistraScript("$('#divAddDireccionEnvio').modal();")
     End Sub
@@ -4536,7 +4567,7 @@ Partial Class Clientes
 
         If CveDireccionEnvio < 0 Then
             CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
-                                                              CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero)
+                                                              CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectoClienteSucursal.SelectedValue.ToEntero)
 
             If CveDireccionEnvio < 0 Then
                 TieneError = True
@@ -4544,7 +4575,7 @@ Partial Class Clientes
         Else
 
             If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
-                                                    CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero) Then
+                                                    CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectoClienteSucursal.SelectedValue.ToEntero) Then
                 TieneError = True
             End If
 
@@ -4571,7 +4602,8 @@ Partial Class Clientes
         TxtEnvioTel.Text = ""
         DdlClienteSucursalEnvio.SelectedValue = "-1"
 
-        CargaCombosDirecionesClientesSAT()
+        CargaCombosDirecionesClientesSAT()
+        DdlSubProyectoClienteSucursal.SelectedValueExist("-1")
 
         'DdlDirClientePais.SelectedValueExist(-1)
         'DdlDirClienteEstado.SelectedValueExist(-1)
@@ -10166,7 +10198,21 @@ Partial Class Clientes
             Alert("Los cambios se guardaron satisfactoriamente.")
         End Using
 
-    End Sub
-
+    End Sub
+
+    Protected Sub RdTipoPersona_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        DVRegimenSociedad.Visible = False
+        DivRazonSocial2.Attributes.Add("class", "col-md-12")
+
+        If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+
+            DivRazonSocial2.Attributes.Add("class", "col-md-8")
+            DVRegimenSociedad.Visible = True
+
+        End If
+
+        UpDatos.Update()
+    End Sub
 End Class