Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
462
Prospectos/ProspectosG15.aspx.vb
Normal file
462
Prospectos/ProspectosG15.aspx.vb
Normal file
@@ -0,0 +1,462 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Prospectos_ProspectosG15
|
||||
Inherits ClsPaginas
|
||||
'Confinguración
|
||||
|
||||
Private Property DTProspectosValores As Data.DataTable
|
||||
Get
|
||||
Return CType(ViewState("DTProspectosValores"), Data.DataTable)
|
||||
End Get
|
||||
Set(value As Data.DataTable)
|
||||
ViewState("DTProspectosValores") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private ReadOnly Property CveProspecto As Integer
|
||||
Get
|
||||
Return ViewState("CveProspecto").ToString.ToEntero
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private ReadOnly Property CveProspectoSolicitud As Integer
|
||||
Get
|
||||
Return ViewState("CveProspectoSolicitud").ToString.ToEntero
|
||||
End Get
|
||||
End Property
|
||||
Private ReadOnly Property CveApoyoTipo As Integer
|
||||
Get
|
||||
Return ViewState("CveApoyoTipo").ToString.ToEntero
|
||||
End Get
|
||||
End Property
|
||||
Private ReadOnly Property CveClasificacion As Integer
|
||||
Get
|
||||
Return ViewState("CveClasificacion").ToString.ToEntero
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
DdlPaises.DataSource = GlobalDTGralPaises : DdlPaises.DataBind() : DdlPaises.SelectedValue = "1"
|
||||
DdlEscolaridad.DataSource = GlobalDTGralEscolaridades : DdlEscolaridad.DataBind()
|
||||
DdlEstadoCivil.DataSource = GlobalDTEstadoCivil : DdlEstadoCivil.DataBind()
|
||||
DdlResponsable.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlResponsable.DataBind()
|
||||
DdlProspectoClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlProspectoClasificacion.DataBind()
|
||||
|
||||
ViewState("CveProspectoSolicitud") = -1
|
||||
Dim ObjEvento As New ClsProspectos
|
||||
|
||||
If ObjEvento.GetProspectosEventos(-1, UsuarioActual.CveEmpresa) Then
|
||||
DdlEvento.DataSource = ObjEvento.DtResultados
|
||||
End If
|
||||
ObjEvento.Dispose()
|
||||
DdlEvento.DataBind()
|
||||
|
||||
CargarSolicitudesTipos()
|
||||
CargarApoyosTipos()
|
||||
CargarSolicitudesEstatus()
|
||||
CargarProspectosApoyos()
|
||||
CargarApoyosTipos()
|
||||
'DdlMunicipios.DataSource = GlobalDTGralMunicipios : DdlMunicipios.DataBind()
|
||||
|
||||
If UsuarioActual.CveRol <> 1023 Then TblVerificado.Visible = False
|
||||
|
||||
If Request("CveProspecto") IsNot Nothing AndAlso IsNumeric(Request("CveProspecto")) AndAlso Request("CveProspecto").ToEntero > 0 Then
|
||||
ViewState("CveProspecto") = Request("CveProspecto")
|
||||
CargaDatos()
|
||||
'Configuración de Modalidad Update
|
||||
BtnGuardar.Text = "Guardar Cambios"
|
||||
LtlTitulo.Text = "Consulta del Prospecto:"
|
||||
|
||||
Else
|
||||
CargaEstados(DdlEstados, DdlPaises.SelectedValue.ToEntero)
|
||||
DdlEstados.SelectedValue = "26"
|
||||
CargaMunicipios(DdlMunicipios, DdlEstados.SelectedValue.ToEntero) : DdlMunicipios.SelectedValue = "1919"
|
||||
DdlPromotor.DataSource = GlobalDTProspectosCoordinadores(DdlResponsable.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlPromotor.DataBind()
|
||||
DdlPromotor.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
RFVPromotor.InitialValue = "-1"
|
||||
|
||||
ViewState("CveProspecto") = -1
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjProspectos As New ClsProspectos
|
||||
If ObjProspectos.GetProspectos(CveProspecto, "-1", "-1", -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
If ObjProspectos.DtResultados.Rows.Count > 0 Then
|
||||
TxtCveProspecto.Text = ObjProspectos.CveProspecto.ToString
|
||||
TxtApellidoPaterno.Text = ObjProspectos.ApellidoPaterno
|
||||
TxtApellidoMaterno.Text = ObjProspectos.ApellidoMaterno
|
||||
TxtNombres.Text = ObjProspectos.Nombres
|
||||
TxtFechaNacimiento.Text = ObjProspectos.FechaNacimiento.ToString
|
||||
TxtLugarNacimiento.Text = ObjProspectos.LugarNacimiento
|
||||
TxtCalle.Text = ObjProspectos.Calle
|
||||
TxtNumero.Text = ObjProspectos.Numero
|
||||
TxtNumeroInterior.Text = ObjProspectos.NumeroInterior
|
||||
TxtEntreCalle1.Text = ObjProspectos.EntreCalle1
|
||||
TxtIFE.Text = ObjProspectos.IFE
|
||||
TxtSeccion.Text = ObjProspectos.Seccion.ToString
|
||||
|
||||
DdlEscolaridad.SelectedValue = ObjProspectos.CveEscolaridad.ToString
|
||||
|
||||
DdlResponsable.SelectedValue = ObjProspectos.CveSupervisor.ToString
|
||||
|
||||
CargaCoordinadores(DdlPromotor, ObjProspectos.CveSupervisor)
|
||||
'DdlPromotor.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlPromotor.SelectedValue = ObjProspectos.CveCoordinador.ToString
|
||||
|
||||
TxtColonia.Text = ObjProspectos.Colonia
|
||||
|
||||
DdlPaises.DataSource = GlobalDTGralPaises : DdlPaises.DataBind() : DdlPaises.SelectedValue = "1"
|
||||
|
||||
CargaEstados(DdlEstados, DdlPaises.SelectedValue.ToEntero)
|
||||
DdlEstados.SelectedValue = "26"
|
||||
DdlEstados.SelectedValue = ObjProspectos.CveEstado.ToString
|
||||
CargaMunicipios(DdlMunicipios, DdlEstados.SelectedValue.ToEntero)
|
||||
DdlMunicipios.SelectedValue = ObjProspectos.CveMunicipio.ToString
|
||||
|
||||
DdlEscolaridad.SelectedValue = ObjProspectos.CveEscolaridad.ToString
|
||||
DdlEvento.SelectedValue = ObjProspectos.CveEvento.ToString
|
||||
|
||||
TxtTelefono.Text = ObjProspectos.Telefono
|
||||
TxtCelular.Text = ObjProspectos.Celular
|
||||
'TxtFax.Text = ObjProspectos.Fax
|
||||
TxtCorreo.Text = ObjProspectos.Correo
|
||||
TxtDependientes.Text = ObjProspectos.Dependientes.ToString
|
||||
|
||||
DdlVerificado.SelectedValue = ObjProspectos.FueAuditado.ToString
|
||||
TxtObservacionVerificacion.Text = ObjProspectos.ObservacionesVerificacion
|
||||
|
||||
'TxtCveEstatus.Text = ObjProspectos.CveEstatus
|
||||
'TxtFechaIng.Text = ObjProspectos.FechaIng
|
||||
'TxtCveUsuario.Text = ObjProspectos.CveUsuario
|
||||
'TxtCveEmpresa.Text = ObjProspectos.CveEmpresa
|
||||
|
||||
CargarSolicitudes(CveProspecto)
|
||||
If UsuarioActual.TienePermisoProceso(90) Then TdRespuesta.Visible = True Else TdRespuesta.Visible = False
|
||||
'Permiso Eliminar
|
||||
If UsuarioActual.TienePermisoProceso(78) Then BtnEliminar.Visible = True Else BtnEliminar.Visible = False
|
||||
|
||||
End If
|
||||
End If
|
||||
ObjProspectos.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
|
||||
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
|
||||
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer)
|
||||
ddl.DataSource = GlobalDTProspectosCoordinadores(CveSupervisor, -1) : ddl.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
Dim ObjProspectos As New ClsProspectos
|
||||
If CveProspecto = -1 Then
|
||||
Dim RetVal As Integer = ObjProspectos.AddProspectos(-1, TxtApellidoPaterno.Text.Trim, TxtApellidoMaterno.Text.Trim,
|
||||
TxtNombres.Text.Trim, TxtFechaNacimiento.Text.Trim.ToDate, TxtLugarNacimiento.Text.Trim, "", "", 0, TxtCalle.Text.Trim,
|
||||
TxtNumero.Text.Trim, TxtNumeroInterior.Text.Trim, TxtEntreCalle1.Text.Trim, "", TxtColonia.Text.Trim, -1, DdlMunicipios.SelectedValue.ToEntero,
|
||||
TxtTelefono.Text.Trim, TxtCelular.Text.Trim, "", "", TxtCorreo.Text.Trim, "", "", "", DdlEstadoCivil.SelectedValue.ToEntero, -1, DdlEscolaridad.SelectedValue.ToEntero, "", "", "",
|
||||
"", "", "", "", "", -1, "", "", "", "", "", False, "", "", "", "", -1, "", -1, DdlPromotor.SelectedValue.ToEntero, -1, TxtIFE.Text.Trim, TxtSeccion.Text.ToEntero, TxtDependientes.Text.ToEntero, DdlEvento.SelectedValue.ToEntero, TxtObservacionVerificacion.Text, DdlVerificado.SelectedValue.ToEntero, "", -1, -1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
If RetVal > 0 Then
|
||||
ViewState("CveProspecto") = ObjProspectos.CveProspecto
|
||||
|
||||
Alert("El Prospecto se guardó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Prospectos/CatProspectosG15.aspx"";")
|
||||
End If
|
||||
Else
|
||||
|
||||
If ObjProspectos.UpdateProspectos(-1, TxtApellidoPaterno.Text.Trim, TxtApellidoMaterno.Text.Trim,
|
||||
TxtNombres.Text.Trim, TxtFechaNacimiento.Text.Trim.ToDate, TxtLugarNacimiento.Text.Trim, "", "", 0, TxtCalle.Text.Trim,
|
||||
TxtNumero.Text.Trim, TxtNumeroInterior.Text.Trim, TxtEntreCalle1.Text.Trim, "", TxtColonia.Text.Trim, -1.ToEntero, DdlMunicipios.SelectedValue.ToEntero,
|
||||
TxtTelefono.Text.Trim, TxtCelular.Text.Trim, "", "", TxtCorreo.Text.Trim, "", "", "", DdlEstadoCivil.SelectedValue.ToEntero, -1, DdlEscolaridad.SelectedValue.ToEntero, "", "", "",
|
||||
"", "", "", "", "", -1, "", "", "", "", "", False, "", "", "", "", -1, "", -1, DdlPromotor.SelectedValue.ToEntero, -1, TxtIFE.Text.Trim, TxtSeccion.Text.ToEntero, TxtDependientes.Text.ToEntero, DdlEvento.SelectedValue.ToEntero, TxtObservacionVerificacion.Text.Trim, DdlVerificado.SelectedValue.ToEntero, "", -1, -1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProspecto) Then
|
||||
|
||||
UpDatos.Update()
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Prospectos/CatProspectosG15.aspx"";")
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjProspectos.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
|
||||
|
||||
Dim ObjProspectos As New ClsProspectos()
|
||||
If ObjProspectos.RemoveProspectos(CveProspecto) Then
|
||||
Alert("El Prospecto se Eliminó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Prospectos/CatProspectosG15.aspx""")
|
||||
End If
|
||||
ObjProspectos.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub DdlPaises_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPaises.SelectedIndexChanged
|
||||
CargaEstados(DdlEstados, DdlPaises.SelectedValue.ToEntero)
|
||||
UPPEstados.Update()
|
||||
CargaMunicipios(DdlMunicipios, DdlEstados.SelectedValue.ToEntero)
|
||||
UPPMunicipios.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlEstados_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstados.SelectedIndexChanged
|
||||
CargaMunicipios(DdlMunicipios, DdlEstados.SelectedValue.ToEntero)
|
||||
UPPMunicipios.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlResponsable_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlResponsable.SelectedIndexChanged
|
||||
CargaCoordinadores(DdlPromotor, DdlResponsable.SelectedValue.ToEntero)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#Region "S O L I C I T U D E S"
|
||||
Private Sub CargarSolicitudesTipos()
|
||||
DdlSolicitudTipo.DataSource = GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa)
|
||||
DdlSolicitudTipo.DataBind()
|
||||
End Sub
|
||||
Private Sub CargarApoyosTipos()
|
||||
DdlApoyoTipo.DataSource = GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa)
|
||||
DdlApoyoTipo.DataBind()
|
||||
End Sub
|
||||
Private Sub CargarSolicitudesEstatus()
|
||||
DdlSolicitudEstatus.DataSource = GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa)
|
||||
DdlSolicitudEstatus.DataBind()
|
||||
End Sub
|
||||
Private Sub CargarSolicitudes(CveProspecto As Integer)
|
||||
Dim ObjSolicitudes As New ClsProspectos
|
||||
|
||||
If CveProspecto > 0 Then
|
||||
If ObjSolicitudes.GetProspectosSolicitudes(CveProspecto, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvSolicitudes.DataSource = ObjSolicitudes.DtResultados
|
||||
Else
|
||||
GvSolicitudes.DataSource = Nothing
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjSolicitudes.Dispose()
|
||||
GvSolicitudes.DataBind()
|
||||
End Sub
|
||||
Private Sub CargarSolicitudesApoyos()
|
||||
Dim ObjSolicitudesApoyos As New ClsProspectos
|
||||
|
||||
If Request("CveProspectoSolicitud") IsNot Nothing AndAlso IsNumeric(Request("CveProspectoSolicitud")) AndAlso Request("CveProspectoSolicitud").ToEntero > 0 Then
|
||||
If ObjSolicitudesApoyos.GetProspectosSolicitudesApoyos(CveProspectoSolicitud, -1) Then
|
||||
GvApoyos.DataSource = ObjSolicitudesApoyos.DtResultados
|
||||
Else
|
||||
GvApoyos.DataSource = Nothing
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjSolicitudesApoyos.Dispose()
|
||||
GvApoyos.DataBind()
|
||||
End Sub
|
||||
Protected Sub CargaDatosProspectosSolicitudes()
|
||||
Dim ObjProspectosSolicitudes As New ClsProspectos
|
||||
|
||||
If ObjProspectosSolicitudes.GetProspectosSolicitudes(CveProspecto, CveApoyoTipo, CveClasificacion, CveProspectoSolicitud, UsuarioActual.CveEmpresa) Then
|
||||
If ObjProspectosSolicitudes.DtResultados.Rows.Count > 0 Then
|
||||
TxtCanalizadorPor.Text = ObjProspectosSolicitudes.CanalizadorPor.ToString
|
||||
TxtEntregoSolicitud.Text = ObjProspectosSolicitudes.EntregoSolicitud.ToString
|
||||
TxtDescripcion.Text = ObjProspectosSolicitudes.Descripcion.ToString
|
||||
DdlSolicitudTipo.SelectedValue = ObjProspectosSolicitudes.CveSolicitudTipo.ToString
|
||||
DdlApoyoTipo.SelectedValue = ObjProspectosSolicitudes.CveApoyoTipo.ToString
|
||||
DdlClasificacion.SelectedValue = ObjProspectosSolicitudes.CveClasificacion.ToString
|
||||
DdlSolicitudEstatus.SelectedValue = ObjProspectosSolicitudes.CveSolicitudEstatus.ToString
|
||||
|
||||
Tab.ActiveTabIndex = 3
|
||||
End If
|
||||
End If
|
||||
ObjProspectosSolicitudes.Dispose()
|
||||
|
||||
End Sub
|
||||
Private Sub CargarProspectosApoyos()
|
||||
DdlProspectoApoyo.DataSource = GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa)
|
||||
DdlProspectoApoyo.DataBind()
|
||||
End Sub
|
||||
#End Region
|
||||
Protected Sub BtnAgregarSolicitud_Click(sender As Object, e As EventArgs) Handles BtnAgregarSolicitud.Click
|
||||
|
||||
|
||||
If BtnAgregarSolicitud.Text = "Agregar Nueva" Then
|
||||
BorrarCampos()
|
||||
BtnAgregarSolicitud.Text = "Agregar"
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim ObjSolicitudes As New ClsProspectos
|
||||
If CveProspectoSolicitud = -1 And CveProspecto <> -1 Then
|
||||
If ObjSolicitudes.AddProspectosSolicitudes(CveProspecto, DdlApoyoTipo.SelectedValue.ToEntero, TxtCanalizadorPor.Text.Trim, TxtEntregoSolicitud.Text.Trim, TxtFechaSolicitud.Text.Trim.ToDate, TxtDescripcion.Text.Trim, "", DdlClasificacion.SelectedValue.ToEntero, DdlSolicitudTipo.SelectedValue.ToEntero, 9, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ViewState("CveProspectoSolicitud") = ObjSolicitudes.CveProspectoSolicitud
|
||||
UpSolicitudes.Update()
|
||||
Alert("La Solicitud se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
If ObjSolicitudes.GetProspectosSolicitudes(CveProspecto, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvSolicitudes.DataSource = ObjSolicitudes.DtResultados
|
||||
Else
|
||||
GvSolicitudes.DataSource = Nothing
|
||||
End If
|
||||
GvSolicitudes.DataBind()
|
||||
End If
|
||||
|
||||
Else
|
||||
GvSolicitudes.DataSource = Nothing
|
||||
Alert("Debe Guardar el prospecto o seleccionarlo de la lista.", TipoMensaje.MsgAdvertencia)
|
||||
'If ObjSolicitudes.UpdateProspectosSolicitudes(CveProspecto, TxtCanalizadorPor.Text.Trim, TxtEntregoSolicitud.Text.Trim, TxtFechaSolicitud.Text.Trim.ToDate, TxtDescripcion.Text.Trim, TxtObservaciones.Text, DdlSolicitudTipo.SelectedValue.ToEntero, DdlSolicitudEstatus.SelectedValue.ToEntero, CveProspectoSolicitud) Then
|
||||
' UpSolicitudes.Update()
|
||||
' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
' If ObjSolicitudes.GetProspectosSolicitudes(CveProspecto, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
' GvSolicitudes.DataSource = ObjSolicitudes.DtResultados
|
||||
' Else
|
||||
' GvSolicitudes.DataSource = Nothing
|
||||
' End If
|
||||
' GvSolicitudes.DataBind()
|
||||
'End If
|
||||
End If
|
||||
BorrarCampos()
|
||||
ObjSolicitudes.Dispose()
|
||||
End Sub
|
||||
Protected Sub BtnAgregarRespuesta_Click(sender As Object, e As EventArgs) Handles BtnAgregarRespuesta.Click
|
||||
Dim ObjSolicitudes As New ClsProspectos
|
||||
If CveProspectoSolicitud <> -1 And CveProspecto <> -1 Then
|
||||
|
||||
|
||||
If ObjSolicitudes.UpdateProspectosSolicitudesRespuesta(TxtObservaciones.Text, DdlSolicitudEstatus.SelectedValue.ToEntero, CveProspectoSolicitud) Then
|
||||
UpSolicitudes.Update()
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
If ObjSolicitudes.GetProspectosSolicitudes(CveProspecto, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvSolicitudes.DataSource = ObjSolicitudes.DtResultados
|
||||
Else
|
||||
GvSolicitudes.DataSource = Nothing
|
||||
End If
|
||||
GvSolicitudes.DataBind()
|
||||
End If
|
||||
End If
|
||||
BorrarCampos()
|
||||
ObjSolicitudes.Dispose()
|
||||
End Sub
|
||||
|
||||
'Protected Sub BtnNuevaSolicitud_Click(sender As Object, e As EventArgs) Handles BtnNuevaSolicitud.Click
|
||||
' If CveProspectoSolicitud > -1 Then
|
||||
' ViewState("CveProspectoSolicitud") = -1
|
||||
' Response.Redirect("/Prospectos/Solicitudes/CatProspectosSolicitudes.aspx?CveProspecto=" & CveProspecto & "")
|
||||
' Tab.TabIndex = 3
|
||||
' End If
|
||||
'End Sub
|
||||
Private Sub BorrarCampos()
|
||||
TxtCanalizadorPor.Text = ""
|
||||
DdlApoyoTipo.SelectedValue = "19"
|
||||
TxtDescripcion.Text = ""
|
||||
TxtEntregoSolicitud.Text = ""
|
||||
TxtFechaSolicitud.Text = ""
|
||||
DdlSolicitudEstatus.SelectedIndex = -1
|
||||
TxtObservaciones.Text = ""
|
||||
DdlSolicitudTipo.SelectedIndex = -1
|
||||
DdlSolicitudEstatus.SelectedValue = "6"
|
||||
End Sub
|
||||
Protected Sub GvSolicitudes_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvSolicitudes.RowCommand
|
||||
Dim ObjProsp As New ClsProspectos
|
||||
If e.CommandName = "Carga" Then
|
||||
If ObjProsp.GetProspectosSolicitudes(-1, -1, -1, e.CommandArgument.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
ViewState("CveProspectoSolicitud") = e.CommandArgument.ToString.ToEntero
|
||||
TxtCanalizadorPor.Text = ObjProsp.CanalizadorPor
|
||||
TxtEntregoSolicitud.Text = ObjProsp.EntregoSolicitud
|
||||
TxtFechaSolicitud.Text = ObjProsp.FechaSolicitud.ToString
|
||||
TxtDescripcion.Text = ObjProsp.Descripcion
|
||||
TxtObservaciones.Text = ObjProsp.Observaciones
|
||||
DdlSolicitudTipo.SelectedValue = ObjProsp.CveSolicitudTipo.ToString
|
||||
DdlClasificacion.SelectedValue = ObjProsp.CveClasificacion.ToString
|
||||
DdlApoyoTipo.SelectedValue = ObjProsp.CveApoyoTipo.ToString
|
||||
DdlSolicitudEstatus.SelectedValue = ObjProsp.CveSolicitudEstatus.ToString
|
||||
BtnAgregarSolicitud.Text = "Agregar Nueva"
|
||||
'ViewState("CveProspectoSolicitud") = -1
|
||||
|
||||
UpAgregarSolicitud.Update()
|
||||
|
||||
RegistraScript("$find('CPESolicitud').expandPanel();")
|
||||
End If
|
||||
PnlApoyos.Visible = False
|
||||
|
||||
Else
|
||||
|
||||
End If
|
||||
If e.CommandName = "CargaApoyoSolicitud" Then
|
||||
Dim Gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, ImageButton).BindingContainer, GridViewRow)
|
||||
GvSolicitudes.SelectedIndex = Gvr.RowIndex
|
||||
ViewState("CveProspectoSolicitud") = e.CommandArgument.ToString.ToEntero
|
||||
If ObjProsp.GetProspectosSolicitudesApoyos(e.CommandArgument.ToString.ToEntero, -1) Then
|
||||
TxtCantidad.Text = ""
|
||||
'TxtImporte.Text = ""
|
||||
PnlApoyos.Visible = True
|
||||
UppApoyos.Update()
|
||||
LblTituloApoyo.Text = Gvr.FCLinkButton("LnkSolicitud").Text
|
||||
GvApoyos.DataSource = ObjProsp.DtResultados
|
||||
GvApoyos.DataBind()
|
||||
End If
|
||||
|
||||
ObjProsp.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkApoyoAgregar_Click(sender As Object, e As EventArgs) Handles LnkApoyoAgregar.Click
|
||||
|
||||
Dim ObjApoyo As New ClsProspectos
|
||||
|
||||
If ObjApoyo.AddProspectosSolicitudesApoyos(CveProspectoSolicitud, DdlProspectoApoyo.SelectedValue.ToEntero, TxtCantidad.Text.ToDouble, 0, 1) Then
|
||||
|
||||
GvApoyos.DataSource = ObjApoyo.DtResultados
|
||||
GvApoyos.DataBind()
|
||||
Alert("Apoyo Agregado", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
ObjApoyo.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvSolicitudes_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvSolicitudes.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(65)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(300)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(80)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(50)
|
||||
End If
|
||||
|
||||
If e.Row.DBCampo("Apoyos").ToEntero > 0 Then
|
||||
'e.Row.FCImageButton("ImgFlag").ImageUrl = "/Imagenes/flag_green.png"
|
||||
e.Row.FCImageButton("ImgFlag").ToolTip = String.Format("Apoyos:{0}", e.Row.DBCampo("Apoyos"))
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvApoyos_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvApoyos.RowDeleting
|
||||
|
||||
Dim ObjApoyo As New ClsProspectos
|
||||
|
||||
If ObjApoyo.RemoveProspectosSolicitudesApoyos(e.Keys("CveProspectoSolicitudApoyo").ToString.ToEntero) Then
|
||||
|
||||
GvApoyos.DataSource = ObjApoyo.DtResultados
|
||||
GvApoyos.DataBind()
|
||||
Alert("Apoyo Eliminado", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
ObjApoyo.Dispose()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user