-- FIX cambios en alta de cliente

Ventas/Ventas.aspx.vb

@@ -25093,7 +25093,7 @@ Partial Class Ventas
         DivNombreCliente.Visible = False
         DivTipoPersona.Visible = False
         DivDireccionCliente.Visible = False
-
+        DVRegimenSociedad.Visible = False
         DivNumeroCPCliente.Visible = False
         'DivColoniaTelefonoCliente.Visible = False
         DivCiudadLocalidadCliente.Visible = False
@@ -25215,7 +25215,8 @@ Partial Class Ventas
 
             RdTipoPersona.SelectedValue = "0"
 
-            DdlMetodoCliente.SelectedValueExist(1)
+            DdlMetodoCliente.SelectedValueExist("1")
+            DdlMetodoCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
 
             'DdlFormaCliente.SelectedValueExist(1)
 
@@ -25265,7 +25266,7 @@ Partial Class Ventas
 
         End If
 
-        If UsuarioActual.CveEmpresa = 189 Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             divGiro.Visible = True
 
             Dim DrSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimero("")
@@ -25282,6 +25283,32 @@ Partial Class Ventas
 
             End If
 
+            DdlMetodoCliente.SelectedValueExist(1)
+            DdlMetodoCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+            'PERSONA MORAL
+            If TxtRFCCliente.Text.Trim().Length = 12 Then
+                RdTipoPersona.SelectedValue = "1"
+                RdTipoPersona_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+                DdlRegimenFiscalCliente.SelectedValueExist("1")
+                DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+                'PERSONA FISICA
+            Else
+                RdTipoPersona.SelectedValue = "0"
+                RdTipoPersona_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+                If TxtRFCCliente.Text.Trim() = "XAXX010101000" Then
+                    DdlRegimenFiscalCliente.SelectedValueExist("11")
+                Else
+                    DdlRegimenFiscalCliente.SelectedValueExist("9")
+                End If
+
+                DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+            End If
+
+            DdlUsoCFDICliente.SelectedValueExist("3")
         End If
 
     End Sub
@@ -38769,7 +38796,7 @@ Partial Class Ventas
     End Sub
 
     Private Sub DdlMetodoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMetodoCliente.SelectedIndexChanged
-        DdlFormaCliente.Items.Clear()
+
         If DdlMetodoCliente.SelectedValue = "3" Then
             DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
         Else
@@ -38777,6 +38804,10 @@ Partial Class Ventas
         End If
         DdlFormaCliente.DataBind()
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            DdlFormaCliente.SelectedValueExist("1")
+        End If
+
     End Sub
 
     Private Sub AsignaMedicoProcedimientoFacturaRemisionesModal()