-

Ventas/Ventas.aspx.vb

@@ -6639,7 +6639,7 @@ Partial Class Ventas
                     'UpEmpresaCRM.Visible = True
 
                     trNombreCliente.Visible = False
-                    trsucursalciente.Visible = False
+                    trsucursalcliente.Visible = False
                     TrDireccion.Visible = False
                     TrCiudad.Visible = False
                     TrRFC.Visible = False
@@ -6697,6 +6697,10 @@ Partial Class Ventas
                 Me.PermiteCredito = ObjCliente.PermiteCredito
                 LnkAgregarCliente.Visible = False
 
+                If UsuarioActual.Empresa.Funcionalidad(714) = "1" Then 'cuando inicia cargado con el cliente. publico general
+                    LnkAgregarCliente.Visible = True
+                End If
+
                 ClienteEsDistribuidor = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("EsDistribuidor").ToString())
                 TieneDiasVencidos = Boolean.Parse(ObjCliente.DtResultados.Rows(0)("TieneDiasVencidos").ToString())
                 DiasVencidosCliente = ObjCliente.DtResultados.Rows(0)("DiasVencidosCliente").ToString().ToEntero()
@@ -7002,19 +7006,16 @@ Partial Class Ventas
                 End If
 
                 DdlSucursalCliente.Items.Clear()
-                If ObjCliente.GetSucursales(CveCliente) Then
-                    DdlSucursalCliente.DataSource = ObjCliente.DtResultados
-                    If ObjCliente.DtResultados.Rows.Count > 0 Then
-                        trsucursalciente.Visible = True
-                    Else
-                        trsucursalciente.Visible = False
-                    End If
+                Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente)
+                If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then
+                    DdlSucursalCliente.DataSource = dtts
+                    DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
+                    trsucursalcliente.Visible = True
+                    DdlSucursalCliente.DataBind()
                 Else
-                    trsucursalciente.Visible = False
+                    trsucursalcliente.Visible = False
                     DdlSucursalCliente.DataSource = Nothing
                 End If
-                DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
-                DdlSucursalCliente.DataBind()
 
                 'SI UTILIZA EL RFC GENERICO PERMITE FACTURAR SUCURSAL
                 If (Not UsuarioActual.Empresa.Funcionalidad(558) = "1") AndAlso (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then
@@ -20366,7 +20367,7 @@ Partial Class Ventas
                     LblCP.Text = "00000"
                     LblRFC.Text = "AAA010101AAA"
                     LblTelefono.Text = "9999999999"
-                    trsucursalciente.Visible = False
+                    trsucursalcliente.Visible = False
                 End If
             End If
             ObjClientes.Dispose()
@@ -20380,7 +20381,7 @@ Partial Class Ventas
         End If
     End Sub
     Private Sub HabilitarFacturacionSucursal()
-        trsucursalciente.Visible = True
+        trsucursalcliente.Visible = True
         LnkAgregarSucursal.Visible = True
         LblSucursal.Text = "Cliente"
         If (CveVenta <= 0 OrElse NuevaFactura = 1) Then
@@ -20432,12 +20433,12 @@ Partial Class Ventas
                     If ObjCliente.GetSucursales(CveCliente) Then
                         DdlSucursalCliente.DataSource = ObjCliente.DtResultados
                         If ObjCliente.DtResultados.Rows.Count > 0 Then
-                            trsucursalciente.Visible = True
+                            trsucursalcliente.Visible = True
                         Else
-                            trsucursalciente.Visible = False
+                            trsucursalcliente.Visible = False
                         End If
                     Else
-                        trsucursalciente.Visible = False
+                        trsucursalcliente.Visible = False
                         DdlSucursalCliente.DataSource = Nothing
                     End If
                     DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
@@ -20448,12 +20449,9 @@ Partial Class Ventas
                 OnError("Ocurrió un error al agregar la sucursal", ex)
             End Try
             ObjCliente.Dispose()
-
         End If
-
         UpCliente.Update()
         RegistraScript("hideDivAgregarSucursal();")
-
     End Sub
 
 
@@ -23816,6 +23814,7 @@ Partial Class Ventas
         divRegimenCliente.Visible = False
         UpAgregarCliente.Update()
         CargaEstados()
+        TxtRFCCliente.Focus()
 
         RegistraScript("showDivEC();")
     End Sub
@@ -23905,7 +23904,7 @@ Partial Class Ventas
                 Dim RegimenFiscalCliente As String = "-1"
 
                 If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
-                    RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue.ToEntero()}")
+                    RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue}")
                 End If
 
                 DdlUsoCFDICliente.Items.Clear()
@@ -35616,7 +35615,7 @@ Partial Class Ventas
         DivRazonSocial2.Attributes.Add("class", "col-md-12")
 
         DivRazonSocial2.Attributes.Add("class", "col-md-8")
-        DVRegimenSociedad.Visible = True
+        DVRegimenSociedad.Visible = RdTipoPersona.SelectedValue = "1"
 
         If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
             DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
@@ -35642,8 +35641,9 @@ Partial Class Ventas
 
         DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        DdlUsoCFDICliente.Items.Clear()
-        DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlUsoCFDICliente.Items.Clear()
+        'DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        CargaComboCFDICliente()
 
         UpAgregarCliente.Update()
     End Sub