@@ -214,7 +225,7 @@
-
+
diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb
index 9cdaaff03..9c6ceb7c4 100644
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/Contabilidad/PopUpAuxiliar.aspx.vb
@@ -176,7 +176,8 @@ 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.Cells(12).Visible = False
+ e.Row.FCLinkButton("imgCancelar").Visible = False
End If
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ea5dbd214..513d5729a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7079,7 +7079,14 @@ Partial Class Ventas
End If
DdlSucursalCliente.Items.Clear()
- Dim dtts As DataTable = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltraParametros("CveClienteSucursal > 0")
+ '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()
+
If dtts IsNot Nothing AndAlso dtts.Rows.Count > 0 Then
DdlSucursalCliente.DataSource = dtts
DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
@@ -13881,10 +13888,21 @@ Partial Class Ventas
End If
End If
- If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
- If DdlSucursalCliente.SelectedValue.ToEntero > 0 Then
- Dim drr As DataRow = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa, CveCliente).FiltroPrimero($" CveClienteSucursal = {DdlSucursalCliente.SelectedValue.ToEntero}")
+ 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 drr IsNot Nothing Then
If RBLTipoVenta.SelectedValue.Contiene("3") Then 'cuando es A-vista
CveAlmacenTraspasoDestino = drr("CveAlmacenAlterno").ToString.ToEntero
@@ -37662,7 +37680,14 @@ Partial Class Ventas
Private Sub CargaDdlClientesSucursal()
- DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
+ 'DdlClienteSucursal.DataSource = GlobalDTClientesSucursales(UsuarioActual.CveEmpresa)
+
+ Dim ObjClientes As New ClsClientes
+ If ObjClientes.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
+ DdlClienteSucursal.DataSource = ObjClientes.DtResultados.Copy()
+ End If
+ ObjClientes.Dispose()
+
DdlClienteSucursal.DataBind()
DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -38169,7 +38194,16 @@ 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 = 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()
+
If drr IsNot Nothing Then
If RBLTipoVenta.SelectedValue.Contiene("6") Then
tCveAlmacenExistencia = drr("CveAlmacenAlterno").ToString.ToEntero