Ventas Medicas Pago directo inicial
This commit is contained in:
rakcsle
@@ -7,127 +7,96 @@ Imports Extensiones
|
||||
Partial Class Ventas_CatProcedimientos
|
||||
Inherits ClsPaginas
|
||||
|
||||
Private Property DtVendedores As DataTable
|
||||
|
||||
Public Property CveProcedimiento As Integer
|
||||
Get
|
||||
Return CType(ViewState("DtVendedores"), DataTable)
|
||||
If ViewState("CveProcedimiento") Is Nothing Then
|
||||
ViewState("CveProcedimiento") = -1
|
||||
End If
|
||||
Return ViewState("CveProcedimiento").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DtVendedores") = value
|
||||
Set(value As Integer)
|
||||
ViewState("CveProcedimiento") = 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()
|
||||
CargaDatos()
|
||||
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()
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
If ObjVentas.GetProcedimientos(-1, UsuarioActual.CveEmpresa, -1) Then
|
||||
GvDatos.DataSource = ObjVentas.DtResultados
|
||||
Else
|
||||
Me.GvDatos.DataSource = Nothing
|
||||
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()
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
GvDatos.DataBind()
|
||||
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
||||
Dim ProcesoOK = False
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
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)
|
||||
If CveProcedimiento > 0 Then
|
||||
If ObjVentas.UpdateProcedimiento(CveProcedimiento, TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = True
|
||||
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
|
||||
If ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = True
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjVendedores.Dispose()
|
||||
CargaDatos()
|
||||
CargaGlobal()
|
||||
OcultaDiv()
|
||||
UpDatos.Update()
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If ProcesoOK Then
|
||||
Alert($"Procedimiento {If(CveProcedimiento > 0, "Actualizado", "Guardado")} Correctamente.")
|
||||
RegistraScript("$('#DVAgregarProcedimiento').modal('hide');")
|
||||
CargaDatos()
|
||||
CargaGlobal()
|
||||
UpDatos.Update()
|
||||
End If
|
||||
|
||||
|
||||
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)
|
||||
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
CveProcedimiento = GvRow.DataKey("CveProcedimiento").ToEntero
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
Dim ProcesoOK = False
|
||||
|
||||
If ObjVentas.RemoveProcedimiento(CveProcedimiento, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = True
|
||||
End If
|
||||
|
||||
ObjVendedores.Dispose()
|
||||
CargaDatos()
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If Not TieneError Then
|
||||
|
||||
If ProcesoOK Then
|
||||
Alert("Procedimiento eliminando correctamente.")
|
||||
|
||||
CargaDatos()
|
||||
CargaGlobal()
|
||||
End If
|
||||
End Sub
|
||||
@@ -137,117 +106,48 @@ Partial Class Ventas_CatProcedimientos
|
||||
|
||||
#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()
|
||||
GlobalDTProcedimientos(UsuarioActual.CveEmpresa) = Nothing
|
||||
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)
|
||||
|
||||
Public Sub LnkAgregarProcedimiento_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 = ""
|
||||
LtlTituloModal.Text = "Agregar Procedimiento"
|
||||
|
||||
TxtProcedimiento.Text = ""
|
||||
|
||||
DVEstatus.Visible = False
|
||||
ChkEstatus.Checked = True
|
||||
|
||||
UpModal.Update()
|
||||
HdnModalidad.Value = "I"
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
|
||||
|
||||
CveProcedimiento = -1
|
||||
|
||||
RegistraScript("$('#DVAgregarProcedimiento').modal();")
|
||||
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"
|
||||
|
||||
CveProcedimiento = GvRow.DataKey("CveProcedimiento").ToEntero
|
||||
|
||||
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"))
|
||||
TxtProcedimiento.Text = GvRow.DataKey("Procedimiento")
|
||||
|
||||
ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
|
||||
|
||||
DVEstatus.Visible = True
|
||||
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
|
||||
LtlTituloModal.Text = $"Actualizar Procedimiento {TxtProcedimiento.Text}"
|
||||
|
||||
UpModal.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
|
||||
ObjVendedores.Dispose()
|
||||
RegistraScript("$('#DVAgregarProcedimiento').modal();")
|
||||
|
||||
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
|
||||
End Class
|
||||
Reference in New Issue
Block a user