diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index d384469cb..65a423466 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2002,6 +2002,14 @@     + + + Sucursal: + + + + + @@ -2012,7 +2020,7 @@ - + diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index b934d58fc..7fff04748 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -2197,9 +2197,16 @@ Partial Class PV End If End Sub Private Sub BtnIniciarTurno_Click(sender As Object, e As EventArgs) Handles BtnIniciarTurno.Click + + If DdlSucursalCorte.SelectedValue.ToEntero() <= 0 Then + Alert("Debe seleccionar una sucursal.", TipoMensaje.ToastAdventencia) + RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }") + Exit Sub + End If + Dim ObjPVenta As New ClsPuntoVenta - ObjPVenta.AddVtaCortes(NowADS(), TxtDineroCaja.Text.ToDecimal, UsuarioActual.CveUsuario, TxtDescripcionCaja.Text, UsuarioActual.CveEmpresa) + ObjPVenta.AddVtaCortes(NowADS(), TxtDineroCaja.Text.ToDecimal, UsuarioActual.CveUsuario, TxtDescripcionCaja.Text, DdlSucursalCorte.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) CveCorte = ObjPVenta.CveCorte LblEstatusCaja.Text = NowADS().ToShortDateString TrEstatusCaja.Visible = True @@ -2998,8 +3005,14 @@ Partial Class PV End Sub Private Sub CargaDdlSubProyectos() - DdlSubProyectoDatos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros("EsSucursal = True ") + Dim dtt = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros("EsSucursal = True ") + DdlSubProyectoDatos.DataSource = dtt DdlSubProyectoDatos.DataBind() + + DdlSucursalCorte.DataSource = dtt + DdlSucursalCorte.DataBind() + DdlSucursalCorte.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSucursalCorte.SelectedValueExist(UsuarioActual.CveSubProyecto) End Sub Private Sub CargaVendedores() diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index 44574ba97..09bfc0992 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -574,6 +574,14 @@     + + + Sucursal: + + + + + diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index bc9bcfb5c..7ea3d761a 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -79,8 +79,15 @@ Partial Class Ventas_PVCobranza Private Sub CargaFiltros() - DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.DataBind() + Dim dtt = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) + + DdlSubProyecto.DataSource = dtt + DdlSubProyecto.DataBind() + + DdlSucursalCorte.DataSource = dtt.FiltraParametros("EsSucursal = True ") + DdlSucursalCorte.DataBind() + DdlSucursalCorte.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSucursalCorte.SelectedValueExist(UsuarioActual.CveSubProyecto) txtFechaI.Text = Now.AddDays(-1).ToShortDateString txtFechaF.Text = Now.ToShortDateString @@ -794,9 +801,16 @@ Partial Class Ventas_PVCobranza ObjPVenta.Dispose() End Sub Private Sub BtnIniciarTurno_Click(sender As Object, e As EventArgs) Handles BtnIniciarTurno.Click + + If DdlSucursalCorte.SelectedValue.ToEntero() <= 0 Then + Alert("Debe seleccionar una sucursal.", TipoMensaje.ToastAdventencia) + RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }") + Exit Sub + End If + Dim ObjPVenta As New ClsPuntoVenta - ObjPVenta.AddVtaCortes(NowADS(), TxtDineroCaja.Text.ToDecimal, UsuarioActual.CveUsuario, "", UsuarioActual.CveEmpresa) + ObjPVenta.AddVtaCortes(NowADS(), TxtDineroCaja.Text.ToDecimal, UsuarioActual.CveUsuario, "", DdlSucursalCorte.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) CveCorte = ObjPVenta.CveCorte LblTurno.Text = NowADS().ToShortDateString UpTurno.Visible = True diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 720a3ba32..5d496132d 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4937,7 +4937,7 @@ Sucursal: - + @@ -4951,7 +4951,7 @@ - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 8125bc0a8..89be88b6b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3810,7 +3810,8 @@ Partial Class Ventas Private Sub BtnIniciarTurno_Click(sender As Object, e As EventArgs) Handles BtnIniciarTurno.Click If DdlSucursalCorte.SelectedValue.ToEntero() <= 0 Then - Alert("Debe seleccionar una sucursal.", TipoMensaje.MsgAdvertencia) + Alert("Debe seleccionar una sucursal.", TipoMensaje.ToastAdventencia) + RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }") Exit Sub End If