Corrección del merge de ventas.aspx

Ventas/Ventas.aspx.vb

@@ -33945,6 +33945,21 @@ Partial Class Ventas
 
     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
+
+        UpAgregarCliente.Update()
+    End Sub
+
 #Region "C A R T A  -  P O R T E"
 
     Public Sub CargaDireccionCP()