diff --git a/Ventas/CatAgentes.aspx b/Ventas/CatAgentes.aspx new file mode 100644 index 000000000..e0cbe2e71 --- /dev/null +++ b/Ventas/CatAgentes.aspx @@ -0,0 +1,398 @@ +<%@ Page Title="Vendedores de Producto o Servicios" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatAgentes.aspx.vb" Inherits="Ventas_CatAgentes" %> +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + + + + + + Catálogo de Vendedores + + + + + +
  • + +
    • +     +     + +     + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + <%-- + + --%> + + + + + + + + + + + + +   + + + + + + + + + + +   + + + + + +   + + + + + + + + + + + + + +   + + + + + + + + + + +   + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- + + + + + + + --%> + + + + +   + + + + + + + + + + + + + + + + + + + + + +     + + + + + + + + diff --git a/Ventas/CatAgentes.aspx.vb b/Ventas/CatAgentes.aspx.vb new file mode 100644 index 000000000..6313413fe --- /dev/null +++ b/Ventas/CatAgentes.aspx.vb @@ -0,0 +1,253 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Extensiones + +Partial Class Ventas_CatAgentes + Inherits ClsPaginas + + Private Property DtVendedores As DataTable + Get + Return CType(ViewState("DtVendedores"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtVendedores") = value + End Set + End Property + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaValoresIniciales() + End If + End Sub + +#Region " CARGA VALORES INICIALES " + Private Sub CargaValoresIniciales() + ViewState("Orden") = "" + CargaSubProyectos() + CargaDatos() + End Sub + Public Sub CargaSubProyectos() + DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1")) + End Sub +#End Region + Public Sub CargaDatos() + Dim ObjVendedores As New ClsVtaVendedores + Dim ObjComisiones As New ClsEsquemasComisiones + If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjVendedores.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DtVendedores = ObjVendedores.DtResultados + + DdlSuperior.Items.Clear() + DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 2") + DdlVendedores.DataSource = DtVendedores + DdlSuperior.DataBind() + ObjVendedores.Dispose() + GvDatos.DataBind() + Else + Me.GvDatos.DataSource = Nothing + End If + If ObjComisiones.GetEsquemaComisiones(-1, "-1", -1, UsuarioActual.CveEmpresa) Then + DdlEsquemaComision.DataSource = ObjComisiones.DtResultados + Else + Alert("Ocurrio un Error al cargar los esquemas de comisiones", TipoMensaje.MsgError) + DdlEsquemaComision.DataSource = Nothing + End If + ObjComisiones.Dispose() + DdlEsquemaComision.DataBind() + End Sub + + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click + + Dim ObjVendedores As New ClsVtaVendedores + Dim TieneError = False + + If HdnModalidad.Value = "I" Then + If ObjVendedores.AddVendedores(TxtVendedor.Text.Trim, TxtCorreo.Text.Trim, txtTelefono.Text.Trim, TxtCelular.Text.Trim, ChkEstatus.Checked, + DDlPuestoVendedor.SelectedValue.ToEntero, DdlSuperior.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtTituloDocumentos.Text, DdlSubProyecto.SelectedValue.ToEntero, TxtCodigo.Text.Trim, DdlEsquemaComision.SelectedValue.ToEntero) Then + Alert("El nuevo Vendedor se guardó correctamente.", TipoMensaje.MsgInformacion) + TxtCodigo.Text = "" + TxtVendedor.Text = "" + TxtCorreo.Text = "" + txtTelefono.Text = "" + TxtCelular.Text = "" + Else + TieneError = True + Alert("Error al agregar vendedor", TipoMensaje.MsgError) + End If + Else + If HdnID.Value.ToEntero <> -1 Then + If ObjVendedores.UpdateVendedor(TxtCodigo.Text, TxtVendedor.Text, TxtCorreo.Text.Trim, txtTelefono.Text, TxtCelular.Text, ChkEstatus.Checked, + DDlPuestoVendedor.SelectedValue.ToEntero, DdlSuperior.SelectedValue.ToEntero, + HdnID.Value.ToEntero, TxtTituloDocumentos.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlEsquemaComision.SelectedValue.ToEntero) Then + GvDatos.EditIndex = -1 + Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) + Else + TieneError = True + Alert("Error al actualizar los cambios.", TipoMensaje.MsgError) + End If + End If + End If + + ObjVendedores.Dispose() + CargaDatos() + CargaGlobal() + OcultaDiv() + UpDatos.Update() + End Sub + +#Region "G V D A T O S" + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then + If e.Row.DBCampo("Estatus") = "Activo" Then + e.Row.FCLabel("LtlEstatus").ForeColor = Drawing.Color.Green + Else + e.Row.FCLabel("LtlEstatus").ForeColor = Drawing.Color.Red + End If + End If + End If + End Sub + + Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting + Dim ObjVendedores As New ClsVtaVendedores + Dim TieneError = False + + If ObjVendedores.RemoveVendedor(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + GvDatos.EditIndex = -1 + Alert("EL Vendedor se eliminó correctamente.", TipoMensaje.MsgInformacion) + Else + TieneError = True + Alert("Error al eliminar Vendedor", TipoMensaje.MsgError) + End If + + ObjVendedores.Dispose() + CargaDatos() + + If Not TieneError Then + CargaGlobal() + End If + End Sub + +#End Region + + +#Region "CARGA GLOBAL" + Private Sub CargaGlobal() + GlobalDTVendedores(UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjVendedores As New ClsVtaVendedores + 'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then + ' GlobalDTVendedores(-1) = ObjVendedores.DtResultados + 'End If + 'ObjVendedores.Dispose() + End Sub +#End Region + + Private Sub OcultaDiv() + ScriptManager.RegisterStartupScript(Me, Me.GetType, "Llave", "HideDivRegistro();", True) + End Sub + + Public Sub BtnAgregarSucursalModal_Click(sender As Object, e As EventArgs) + LbAgregar.Text = "Agregar" + LtlTituloModal.Text = "Agregar Vendedor" + DdlSubProyecto.SelectedIndex = 0 + DdlSuperior.Items.Clear() + DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 2") + DdlSuperior.DataBind() + DivSupervisor.Visible = True + DDlPuestoVendedor.SelectedIndex = 0 + TxtCodigo.Text = "" + txtTelefono.Text = "" + TxtVendedor.Text = "" + TxtCelular.Text = "" + TxtTituloDocumentos.Text = "" + TxtCorreo.Text = "" + ChkEstatus.Checked = True + UpModal.Update() + HdnModalidad.Value = "I" + RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal")) + End Sub + + Public Sub Edit_Click(sender As Object, e As EventArgs) + Dim ObjVendedores As New ClsVtaVendedores + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + HdnModalidad.Value = "U" + + + HdnID.Value = GvRow.DataKey("CveVendedor") + DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) + DdlEsquemaComision.SelectedValueExist(GvRow.DataKey("CveEsquemaComision")) + TxtCodigo.Text = GvRow.DataKey("Codigo") + txtTelefono.Text = GvRow.DataKey("Telefono") + TxtTituloDocumentos.Text = GvRow.DataKey("TituloDocumentos") + TxtVendedor.Text = GvRow.DataKey("Vendedor") + TxtCorreo.Text = GvRow.DataKey("Correo") + TxtCelular.Text = GvRow.DataKey("Celular") + ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) + DDlPuestoVendedor.SelectedValueExist(GvRow.DataKey("VendedorTipo")) + ValidaVendedores() + DdlSuperior.SelectedValueExist(GvRow.DataKey("CveSuperior")) + LbAgregar.Text = "Actualizar" + LtlTituloModal.Text = String.Format("{0}{1}", "Actualizar Vendedor: ", TxtVendedor.Text) + + If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then + DdlVendedores.Items.Clear() + DdlVendedores.DataSource = DtVendedores.FiltraParametros($"CveVendedor <> {GvRow.DataKey("CveVendedor")}") + DdlVendedores.DataBind() + End If + + UpModal.Update() + RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal")) + ObjVendedores.Dispose() + End Sub + + Private Sub DDlPuestoVendedor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDlPuestoVendedor.SelectedIndexChanged + ValidaVendedores() + End Sub + + Private Sub ValidaVendedores() + If DDlPuestoVendedor.SelectedValue = "1" Then + DdlSuperior.Items.Clear() + DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 2") + DdlSuperior.DataBind() + DivSupervisor.Visible = True + ElseIf DDlPuestoVendedor.SelectedValue = "3" Then + DdlSuperior.Items.Clear() + DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 1") + DdlSuperior.DataBind() + DivSupervisor.Visible = True + ElseIf DDlPuestoVendedor.SelectedValue = "2" Then + DdlSuperior.Items.Clear() + DivSupervisor.Visible = False + End If + UpModal.Update() + End Sub + + Private Sub BtnTraspasarClientes_Click(sender As Object, e As EventArgs) Handles BtnTraspasarClientes.Click + Dim ObjVendedores As New ClsVtaVendedores + Dim TieneError = False + + ObjVendedores.IniciaTransacSQL() + + If Not ObjVendedores.TraspasarClientesVendedor(HdnID.Value.ToEntero, DdlVendedores.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + TieneError = True + End If + + If Not TieneError Then + ObjVendedores.Commit() + Alert("Se han traspasado los clientes al nuevo vendedor", TipoMensaje.MsgInformacion) + Else + ObjVendedores.RollBack() + Alert("Ocurrió un error al traspasar los clientes al nuevo vendedor", TipoMensaje.MsgError) + End If + + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarSucursal")) + ObjVendedores.Dispose() + CargaDatos() + CargaGlobal() + UpDatos.Update() + End Sub +End Class diff --git a/Ventas/CatProcedimientos.aspx b/Ventas/CatProcedimientos.aspx new file mode 100644 index 000000000..8656792d8 --- /dev/null +++ b/Ventas/CatProcedimientos.aspx @@ -0,0 +1,398 @@ +<%@ Page Title="Vendedores de Producto o Servicios" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatProcedimientos.aspx.vb" Inherits="Ventas_CatProcedimientos" %> +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + + + + + + Catálogo de Vendedores + + + + + +
  • + +
    • +     +     + +     + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + <%-- + + --%> + + + + + + + + + + + + +   + + + + + + + + + + +   + + + + + +   + + + + + + + + + + + + + +   + + + + + + + + + + +   + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- + + + + + + + --%> + + + + +   + + + + + + + + + + + + + + + + + + + + + +     + + + + + + + + diff --git a/Ventas/CatProcedimientos.aspx.vb b/Ventas/CatProcedimientos.aspx.vb new file mode 100644 index 000000000..be3be265b --- /dev/null +++ b/Ventas/CatProcedimientos.aspx.vb @@ -0,0 +1,253 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Extensiones + +Partial Class Ventas_CatProcedimientos + Inherits ClsPaginas + + Private Property DtVendedores As DataTable + Get + Return CType(ViewState("DtVendedores"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtVendedores") = value + End Set + End Property + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaValoresIniciales() + End If + End Sub + +#Region " CARGA VALORES INICIALES " + Private Sub CargaValoresIniciales() + ViewState("Orden") = "" + CargaSubProyectos() + CargaDatos() + End Sub + Public Sub CargaSubProyectos() + DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1")) + End Sub +#End Region + Public Sub CargaDatos() + Dim ObjVendedores As New ClsVtaVendedores + Dim ObjComisiones As New ClsEsquemasComisiones + If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjVendedores.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DtVendedores = ObjVendedores.DtResultados + + DdlSuperior.Items.Clear() + DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 2") + DdlVendedores.DataSource = DtVendedores + DdlSuperior.DataBind() + ObjVendedores.Dispose() + GvDatos.DataBind() + Else + Me.GvDatos.DataSource = Nothing + End If + If ObjComisiones.GetEsquemaComisiones(-1, "-1", -1, UsuarioActual.CveEmpresa) Then + DdlEsquemaComision.DataSource = ObjComisiones.DtResultados + Else + Alert("Ocurrio un Error al cargar los esquemas de comisiones", TipoMensaje.MsgError) + DdlEsquemaComision.DataSource = Nothing + End If + ObjComisiones.Dispose() + DdlEsquemaComision.DataBind() + End Sub + + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click + + Dim ObjVendedores As New ClsVtaVendedores + Dim TieneError = False + + If HdnModalidad.Value = "I" Then + If ObjVendedores.AddVendedores(TxtVendedor.Text.Trim, TxtCorreo.Text.Trim, txtTelefono.Text.Trim, TxtCelular.Text.Trim, ChkEstatus.Checked, + DDlPuestoVendedor.SelectedValue.ToEntero, DdlSuperior.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtTituloDocumentos.Text, DdlSubProyecto.SelectedValue.ToEntero, TxtCodigo.Text.Trim, DdlEsquemaComision.SelectedValue.ToEntero) Then + Alert("El nuevo Vendedor se guardó correctamente.", TipoMensaje.MsgInformacion) + TxtCodigo.Text = "" + TxtVendedor.Text = "" + TxtCorreo.Text = "" + txtTelefono.Text = "" + TxtCelular.Text = "" + Else + TieneError = True + Alert("Error al agregar vendedor", TipoMensaje.MsgError) + End If + Else + If HdnID.Value.ToEntero <> -1 Then + If ObjVendedores.UpdateVendedor(TxtCodigo.Text, TxtVendedor.Text, TxtCorreo.Text.Trim, txtTelefono.Text, TxtCelular.Text, ChkEstatus.Checked, + DDlPuestoVendedor.SelectedValue.ToEntero, DdlSuperior.SelectedValue.ToEntero, + HdnID.Value.ToEntero, TxtTituloDocumentos.Text, DdlSubProyecto.SelectedValue.ToEntero, DdlEsquemaComision.SelectedValue.ToEntero) Then + GvDatos.EditIndex = -1 + Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) + Else + TieneError = True + Alert("Error al actualizar los cambios.", TipoMensaje.MsgError) + End If + End If + End If + + ObjVendedores.Dispose() + CargaDatos() + CargaGlobal() + OcultaDiv() + UpDatos.Update() + End Sub + +#Region "G V D A T O S" + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then + If e.Row.DBCampo("Estatus") = "Activo" Then + e.Row.FCLabel("LtlEstatus").ForeColor = Drawing.Color.Green + Else + e.Row.FCLabel("LtlEstatus").ForeColor = Drawing.Color.Red + End If + End If + End If + End Sub + + Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting + Dim ObjVendedores As New ClsVtaVendedores + Dim TieneError = False + + If ObjVendedores.RemoveVendedor(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + GvDatos.EditIndex = -1 + Alert("EL Vendedor se eliminó correctamente.", TipoMensaje.MsgInformacion) + Else + TieneError = True + Alert("Error al eliminar Vendedor", TipoMensaje.MsgError) + End If + + ObjVendedores.Dispose() + CargaDatos() + + If Not TieneError Then + CargaGlobal() + End If + End Sub + +#End Region + + +#Region "CARGA GLOBAL" + Private Sub CargaGlobal() + GlobalDTVendedores(UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjVendedores As New ClsVtaVendedores + 'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then + ' GlobalDTVendedores(-1) = ObjVendedores.DtResultados + 'End If + 'ObjVendedores.Dispose() + End Sub +#End Region + + Private Sub OcultaDiv() + ScriptManager.RegisterStartupScript(Me, Me.GetType, "Llave", "HideDivRegistro();", True) + End Sub + + Public Sub BtnAgregarSucursalModal_Click(sender As Object, e As EventArgs) + LbAgregar.Text = "Agregar" + LtlTituloModal.Text = "Agregar Vendedor" + DdlSubProyecto.SelectedIndex = 0 + DdlSuperior.Items.Clear() + DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 2") + DdlSuperior.DataBind() + DivSupervisor.Visible = True + DDlPuestoVendedor.SelectedIndex = 0 + TxtCodigo.Text = "" + txtTelefono.Text = "" + TxtVendedor.Text = "" + TxtCelular.Text = "" + TxtTituloDocumentos.Text = "" + TxtCorreo.Text = "" + ChkEstatus.Checked = True + UpModal.Update() + HdnModalidad.Value = "I" + RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal")) + End Sub + + Public Sub Edit_Click(sender As Object, e As EventArgs) + Dim ObjVendedores As New ClsVtaVendedores + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + HdnModalidad.Value = "U" + + + HdnID.Value = GvRow.DataKey("CveVendedor") + DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) + DdlEsquemaComision.SelectedValueExist(GvRow.DataKey("CveEsquemaComision")) + TxtCodigo.Text = GvRow.DataKey("Codigo") + txtTelefono.Text = GvRow.DataKey("Telefono") + TxtTituloDocumentos.Text = GvRow.DataKey("TituloDocumentos") + TxtVendedor.Text = GvRow.DataKey("Vendedor") + TxtCorreo.Text = GvRow.DataKey("Correo") + TxtCelular.Text = GvRow.DataKey("Celular") + ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) + DDlPuestoVendedor.SelectedValueExist(GvRow.DataKey("VendedorTipo")) + ValidaVendedores() + DdlSuperior.SelectedValueExist(GvRow.DataKey("CveSuperior")) + LbAgregar.Text = "Actualizar" + LtlTituloModal.Text = String.Format("{0}{1}", "Actualizar Vendedor: ", TxtVendedor.Text) + + If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then + DdlVendedores.Items.Clear() + DdlVendedores.DataSource = DtVendedores.FiltraParametros($"CveVendedor <> {GvRow.DataKey("CveVendedor")}") + DdlVendedores.DataBind() + End If + + UpModal.Update() + RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal")) + ObjVendedores.Dispose() + End Sub + + Private Sub DDlPuestoVendedor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDlPuestoVendedor.SelectedIndexChanged + ValidaVendedores() + End Sub + + Private Sub ValidaVendedores() + If DDlPuestoVendedor.SelectedValue = "1" Then + DdlSuperior.Items.Clear() + DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 2") + DdlSuperior.DataBind() + DivSupervisor.Visible = True + ElseIf DDlPuestoVendedor.SelectedValue = "3" Then + DdlSuperior.Items.Clear() + DdlSuperior.DataSource = DtVendedores.FiltraParametros("VendedorTipo = 1") + DdlSuperior.DataBind() + DivSupervisor.Visible = True + ElseIf DDlPuestoVendedor.SelectedValue = "2" Then + DdlSuperior.Items.Clear() + DivSupervisor.Visible = False + End If + UpModal.Update() + End Sub + + Private Sub BtnTraspasarClientes_Click(sender As Object, e As EventArgs) Handles BtnTraspasarClientes.Click + Dim ObjVendedores As New ClsVtaVendedores + Dim TieneError = False + + ObjVendedores.IniciaTransacSQL() + + If Not ObjVendedores.TraspasarClientesVendedor(HdnID.Value.ToEntero, DdlVendedores.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + TieneError = True + End If + + If Not TieneError Then + ObjVendedores.Commit() + Alert("Se han traspasado los clientes al nuevo vendedor", TipoMensaje.MsgInformacion) + Else + ObjVendedores.RollBack() + Alert("Ocurrió un error al traspasar los clientes al nuevo vendedor", TipoMensaje.MsgError) + End If + + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarSucursal")) + ObjVendedores.Dispose() + CargaDatos() + CargaGlobal() + UpDatos.Update() + End Sub +End Class diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 12fdc005c..b3f5200b4 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -648,11 +648,17 @@
    - - - + +
    + + + + + +
    diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 9674f6f15..5221e48d1 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1,9 +1,9 @@ Option Explicit On Option Strict On -Imports Extensiones -Imports System.IO Imports System.Data +Imports System.IO +Imports Extensiones Imports ZXing Partial Class ProductosyServicios @@ -328,6 +328,15 @@ Partial Class ProductosyServicios DdlSATPS.SelectedText = DrSAT("SATClaveProductoServicio").ToString() End If + If UsuarioActual.CveEmpresa.Contiene(119) Then + DdlIVA.Items.Insert(0, New ListItem("Seleccione Uno", "-2")) + If CvePS > 0 Then + DdlIVA.SelectedValueExist(-2) + End If + Else + DdlIVA.SelectedValueExist(-1) + End If + End If End Sub diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index d999601a4..9af188650 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -554,7 +554,7 @@ Partial Class Ventas_Promociones If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble, CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")), Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, - CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then + CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=CBool(Dr("IncluyeImpuestos"))) Then TieneError = True Exit For End If @@ -605,7 +605,7 @@ Partial Class Ventas_Promociones If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble, CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")), Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), - CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked, Opcion:=OpReplicarDetalleFranquicias) Then + CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=CBool(Dr("IncluyeImpuestos")), Opcion:=OpReplicarDetalleFranquicias) Then TieneError = True Exit For End If @@ -1119,7 +1119,7 @@ Partial Class Ventas_Promociones Dim CantidadMinima As Decimal = CantidadMinimaStr.ToDecimal Dim CveRin As Integer = If(RinStr <> "", DTRines.FiltroPrimeroValor("CveRinTamaño", $"Codigo = '{RinStr}'").ToString.ToEntero(), -1) Dim RinTamaño As String = If(RinStr <> "", DTRines.FiltroPrimeroValor("RinTamaño", $"Codigo = '{RinStr}'").ToString(), "") - Dim IncluyeImpuestos As Boolean = If(IncluyeImpuestosStr.ToUpper.Contiene("´SÍ", "SI", "1"), True, False) + Dim IncluyeImpuestos As Boolean = If(IncluyeImpuestosStr.ToUpper.Contiene("SÍ", "SI", "1"), True, False) ' SBErrorRegistro.Append($"") If ClasificacionStr.Length > 0 And CodigoStr.Length > 0 Then