@@ -225,7 +214,7 @@
-
+
diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb
index 9c6ceb7c4..9cdaaff03 100644
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/Contabilidad/PopUpAuxiliar.aspx.vb
@@ -176,8 +176,7 @@ Partial Class PopUpAuxiliar
e.Row.Cells(6).Visible = False
e.Row.Cells(7).Visible = False
e.Row.Cells(8).Visible = False
- 'e.Row.Cells(12).Visible = False
- e.Row.FCLinkButton("imgCancelar").Visible = False
+ e.Row.Cells(12).Visible = False
End If
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f94763d14..f67941b10 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7079,14 +7079,7 @@ Partial Class Ventas
End If
DdlSucursalCliente.Items.Clear()
- 'Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0")
- Dim dtts As DataTable = New DataTable
- Dim ObjClientes As New ClsClientes
- If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
- dtts = ObjClientes.DtResultados.Copy()
- End If
- ObjClientes.Dispose()
-
+ Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0")
If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then
DdlSucursalCliente.DataSource = dtts
DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
@@ -13889,21 +13882,10 @@ Partial Class Ventas
End If
End If
-
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
- Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal()
- If CveClientesucursatTemp > 0 Then
-
- 'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
- Dim drr As DataRow = Nothing
- Dim ObjClientes As New ClsClientes
- If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
-
- drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {CveClientesucursatTemp}")
-
- End If
- ObjClientes.Dispose()
+ If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
+ Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
If drr IsNot Nothing Then
If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista
CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero
@@ -38178,16 +38160,7 @@ Partial Class Ventas
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
-
- 'Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
-
- Dim drr As DataRow = Nothing
- Dim ObjClientes As New ClsClientes
- If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
- drr = ObjClientes.DtResultados.Copy().FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
- End If
- ObjClientes.Dispose()
-
+ Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($"CveClienteSucursal={DdlSucursalCliente.SelectedValue}")
If drr IsNot Nothing Then
If RBLTipoVenta.SelectedValue.Contiene("6") Then
tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero