378 lines
19 KiB
VB.net
378 lines
19 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports Extensiones
|
|
|
|
|
|
Partial Class AC_ProgramaOperativo
|
|
Inherits ClsPaginas
|
|
|
|
#Region "PROPIEDADES"
|
|
Private Property CveProgramaOperativo As Integer
|
|
Get
|
|
CveProgramaOperativo = ViewState("CveProgramaOperativo").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveProgramaOperativo") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property EsProyecto As Integer
|
|
Get
|
|
EsProyecto = ViewState("EsProyecto").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("EsProyecto") = value
|
|
End Set
|
|
End Property
|
|
Private Property Bloqueado As Integer
|
|
Get
|
|
Bloqueado = ViewState("Bloqueado").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("Bloqueado") = value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
CveProgramaOperativo = IfNull(Request("CveProgramaOperativo"), "0").ToString.ToEntero
|
|
EsProyecto = IfNull(Request("EsProyecto"), "1").ToString.ToEntero
|
|
Bloqueado = IfNull(Request("Bloqueado"), "0").ToString.ToEntero
|
|
|
|
CargaDefault()
|
|
|
|
If CveProgramaOperativo > 0 Then
|
|
CargaDatos()
|
|
ElseIf CveProgramaOperativo = 0 Then
|
|
'BtnProyecto.Visible = False
|
|
End If
|
|
|
|
If Bloqueado = 1 Then
|
|
btnGuardar.Visible = False
|
|
'BtnProyecto.Visible = False
|
|
btnDividir.Visible = False
|
|
|
|
CboClasificacionAdministrativa.Enabled = False
|
|
CboClasificacionFuncional.Enabled = False
|
|
CboClasificacionGeografica.Enabled = False
|
|
CboEjeRector.Enabled = False
|
|
CboEstrategia.Enabled = False
|
|
CboLineaAccion.Enabled = False
|
|
CboMeta.Enabled = False
|
|
CboPrograma.Enabled = False
|
|
CboProgramaCONAC.Enabled = False
|
|
CboUM.Enabled = False
|
|
DdlEjercicio.Enabled = False
|
|
|
|
txtClave.Enabled = False
|
|
txtProgramaOperativo.Enabled = False
|
|
txtProblematica.Enabled = False
|
|
txtCausa.Enabled = False
|
|
txtEfecto.Enabled = False
|
|
|
|
txtTotal.Enabled = False
|
|
txtEnero.Enabled = False
|
|
txtFebrero.Enabled = False
|
|
txtMarzo.Enabled = False
|
|
txtAbril.Enabled = False
|
|
txtMayo.Enabled = False
|
|
txtJunio.Enabled = False
|
|
txtJulio.Enabled = False
|
|
txtAgosto.Enabled = False
|
|
txtSeptiembre.Enabled = False
|
|
txtOctubre.Enabled = False
|
|
txtNoviembre.Enabled = False
|
|
txtDiciembre.Enabled = False
|
|
BtnCancelar.Text = "Regresar"
|
|
|
|
If EsProyecto = 0 Then
|
|
Alert("Este ANTEPROYECTO ya se genero como PROYECTO. Nota: Solo se pueden ver los datos", TipoMensaje.MsgInformacion)
|
|
Else
|
|
Alert("Este PROYECTO ya se AUTORIZO. Nota: Solo se pueden ver los datos", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
End If
|
|
|
|
If EsProyecto = 1 Then
|
|
'BtnProyecto.Text = "Bloquear Proyecto"
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
#Region " VALORES INICIALES "
|
|
|
|
Private Sub CargaDefault()
|
|
LblEjercicio.Text = String.Format("Periodo: {0}", UsuarioActual.Empresa.EjercicioActual)
|
|
|
|
txtEnero.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
txtFebrero.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
txtMarzo.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
txtAbril.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
txtMayo.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
txtJunio.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
txtJulio.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
txtAgosto.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
txtSeptiembre.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
txtOctubre.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
txtNoviembre.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
txtDiciembre.Attributes.Add("onKeyUp", "sumaTotal();")
|
|
|
|
CargaEjercicios()
|
|
CargaProgramaCONAC()
|
|
CargaClasificacionGeografica()
|
|
CargaClasificacionFuncional()
|
|
CargaClasificacionAdministrativa()
|
|
CargaUM()
|
|
CargaEjeRector()
|
|
End Sub
|
|
|
|
#Region "COMBOS"
|
|
Private Sub CargaEjercicios()
|
|
Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
|
|
If ClsConta.GetEjercicios() Then
|
|
DdlEjercicio.DataSource = ClsConta.DtResultados
|
|
Else
|
|
DdlEjercicio.DataSource = Nothing
|
|
End If
|
|
ClsConta.Dispose()
|
|
DdlEjercicio.DataBind()
|
|
|
|
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
|
|
End Sub
|
|
Private Sub CargaProgramaCONAC()
|
|
CboProgramaCONAC.DataSource = GlobalDTAC_ProgramasCONAC
|
|
CboProgramaCONAC.DataBind()
|
|
CboProgramaCONAC.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End Sub
|
|
|
|
Private Sub CargaClasificacionGeografica()
|
|
CboClasificacionGeografica.DataSource = GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa)
|
|
CboClasificacionGeografica.DataBind()
|
|
CboClasificacionGeografica.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End Sub
|
|
|
|
Private Sub CargaClasificacionFuncional()
|
|
CboClasificacionFuncional.DataSource = GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa).FiltraParametros("", "CodClasificacionFuncional")
|
|
CboClasificacionFuncional.DataBind()
|
|
CboClasificacionFuncional.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End Sub
|
|
|
|
Private Sub CargaClasificacionAdministrativa()
|
|
CboClasificacionAdministrativa.DataSource = GlobalDTAC_ClasificacionAdministrativa(UsuarioActual.CveEmpresa)
|
|
CboClasificacionAdministrativa.DataBind()
|
|
CboClasificacionAdministrativa.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End Sub
|
|
|
|
Private Sub CargaEjeRector()
|
|
CboEjeRector.DataSource = GlobalDTAC_PD_EjeRector(UsuarioActual.CveEmpresa)
|
|
CboEjeRector.DataBind()
|
|
CboEjeRector.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End Sub
|
|
|
|
Private Sub CargaProgramas()
|
|
CboPrograma.Items.Clear()
|
|
If CboEjeRector.SelectedValue.ToEntero <> -1 Then
|
|
CboPrograma.DataSource = GlobalDTAC_PD_Programas(CboEjeRector.SelectedValue.ToEntero)
|
|
CboPrograma.DataBind()
|
|
End If
|
|
CboPrograma.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
CboPrograma_SelectedIndexChanged(New Object, New EventArgs)
|
|
End Sub
|
|
|
|
Private Sub CargaEstrategias()
|
|
CboEstrategia.Items.Clear()
|
|
If CboPrograma.SelectedValue.ToEntero <> -1 Then
|
|
CboEstrategia.DataSource = GlobalDTAC_PD_Estrategias(CboPrograma.SelectedValue.ToEntero)
|
|
CboEstrategia.DataBind()
|
|
End If
|
|
CboEstrategia.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
CboEstrategia_SelectedIndexChanged(New Object, New EventArgs)
|
|
End Sub
|
|
|
|
Private Sub CargaLineasAccion()
|
|
CboLineaAccion.Items.Clear()
|
|
If CboEstrategia.SelectedValue.ToEntero <> -1 Then
|
|
CboLineaAccion.DataSource = GlobalDTAC_PD_LineasAccion(CboEstrategia.SelectedValue.ToEntero)
|
|
CboLineaAccion.DataBind()
|
|
End If
|
|
CboLineaAccion.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
CboLineaAccion_SelectedIndexChanged(New Object, New EventArgs)
|
|
End Sub
|
|
|
|
Private Sub CargaMetas()
|
|
CboMeta.Items.Clear()
|
|
If CboLineaAccion.SelectedValue.ToEntero <> -1 Then
|
|
CboMeta.DataSource = GlobalDTAC_PD_Metas(CboLineaAccion.SelectedValue.ToEntero)
|
|
CboMeta.DataBind()
|
|
End If
|
|
CboMeta.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End Sub
|
|
|
|
Private Sub CargaUM()
|
|
CboUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
|
|
CboUM.DataBind()
|
|
CboUM.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End Sub
|
|
|
|
Protected Sub CboEjeRector_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboEjeRector.SelectedIndexChanged
|
|
CargaProgramas()
|
|
End Sub
|
|
|
|
Protected Sub CboPrograma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboPrograma.SelectedIndexChanged
|
|
CargaEstrategias()
|
|
End Sub
|
|
|
|
Protected Sub CboEstrategia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboEstrategia.SelectedIndexChanged
|
|
CargaLineasAccion()
|
|
End Sub
|
|
|
|
Protected Sub CboLineaAccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboLineaAccion.SelectedIndexChanged
|
|
CargaMetas()
|
|
End Sub
|
|
#End Region
|
|
|
|
#End Region
|
|
|
|
Protected Sub CargaDatos()
|
|
Dim objAC As New ClsAC
|
|
|
|
If objAC.GetProgramasOperativos(CveProgramaOperativo, UsuarioActual.CveEmpresa, CBool(EsProyecto)) Then
|
|
If objAC.DtResultados.Rows.Count = 1 Then
|
|
txtClave.Text = objAC.DtResultados.Rows(0)("Clave").ToString
|
|
txtProgramaOperativo.Text = objAC.DtResultados.Rows(0)("ProgramaOperativo").ToString
|
|
CboClasificacionFuncional.SelectedValue = objAC.DtResultados.Rows(0)("CveClasificacionFuncional").ToString
|
|
CboClasificacionAdministrativa.SelectedValue = objAC.DtResultados.Rows(0)("CveClasificacionAdministrativa").ToString
|
|
CboProgramaCONAC.SelectedValue = objAC.DtResultados.Rows(0)("CveProgramaCONAC").ToString
|
|
CboClasificacionGeografica.SelectedValue = objAC.DtResultados.Rows(0)("CveClasificacionGeografica").ToString
|
|
txtProblematica.Text = objAC.DtResultados.Rows(0)("Problematica").ToString
|
|
txtCausa.Text = objAC.DtResultados.Rows(0)("Causa").ToString
|
|
txtEfecto.Text = objAC.DtResultados.Rows(0)("Efecto").ToString
|
|
|
|
DdlEjercicio.SelectedValue = objAC.DtResultados.Rows(0)("Ejercicio").ToString
|
|
|
|
CboEjeRector.SelectedValue = objAC.DtResultados.Rows(0)("CveEjeRector").ToString
|
|
CboEjeRector_SelectedIndexChanged(New Object, New EventArgs)
|
|
CboPrograma.SelectedValue = objAC.DtResultados.Rows(0)("CvePrograma").ToString
|
|
CboPrograma_SelectedIndexChanged(New Object, New EventArgs)
|
|
CboEstrategia.SelectedValue = objAC.DtResultados.Rows(0)("CveEstrategia").ToString
|
|
CboEstrategia_SelectedIndexChanged(New Object, New EventArgs)
|
|
CboLineaAccion.SelectedValue = objAC.DtResultados.Rows(0)("CveLineaAccion").ToString
|
|
CboLineaAccion_SelectedIndexChanged(New Object, New EventArgs)
|
|
CboMeta.SelectedValue = objAC.DtResultados.Rows(0)("CveMeta").ToString
|
|
|
|
CboUM.SelectedValue = objAC.DtResultados.Rows(0)("CveUM").ToString
|
|
txtTotal.Text = objAC.DtResultados.Rows(0)("Total").ToString.ToDouble.ToString("##############.####")
|
|
txtEnero.Text = objAC.DtResultados.Rows(0)("Enero").ToString.ToDouble.ToString("##############.####")
|
|
txtFebrero.Text = objAC.DtResultados.Rows(0)("Febrero").ToString.ToDouble.ToString("##############.####")
|
|
txtMarzo.Text = objAC.DtResultados.Rows(0)("Marzo").ToString.ToDouble.ToString("##############.####")
|
|
txtAbril.Text = objAC.DtResultados.Rows(0)("Abril").ToString.ToDouble.ToString("##############.####")
|
|
txtMayo.Text = objAC.DtResultados.Rows(0)("Mayo").ToString.ToDouble.ToString("##############.####")
|
|
txtJunio.Text = objAC.DtResultados.Rows(0)("Junio").ToString.ToDouble.ToString("##############.####")
|
|
txtJulio.Text = objAC.DtResultados.Rows(0)("Julio").ToString.ToDouble.ToString("##############.####")
|
|
txtAgosto.Text = objAC.DtResultados.Rows(0)("Agosto").ToString.ToDouble.ToString("##############.####")
|
|
txtSeptiembre.Text = objAC.DtResultados.Rows(0)("Septiembre").ToString.ToDouble.ToString("##############.####")
|
|
txtOctubre.Text = objAC.DtResultados.Rows(0)("Octubre").ToString.ToDouble.ToString("##############.####")
|
|
txtNoviembre.Text = objAC.DtResultados.Rows(0)("Noviembre").ToString.ToDouble.ToString("##############.####")
|
|
txtDiciembre.Text = objAC.DtResultados.Rows(0)("Diciembre").ToString.ToDouble.ToString("##############.####")
|
|
Else
|
|
ViewState("CveProgramaOperativo") = 0
|
|
Alert("No se encontro el Programa Operativo", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
|
|
objAC.Dispose()
|
|
End Sub
|
|
|
|
Protected Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
|
|
Dim objAC As New ClsAC()
|
|
|
|
'Valida Ejercicio
|
|
If objAC.GetEjerciciosProgramasOperativos(UsuarioActual.CveEmpresa) AndAlso objAC.DtResultados.Rows.Count > -1 Then
|
|
Dim DtEjercicios = objAC.DtResultados.FiltraParametros(String.Format("Ejercicio = {0}", DdlEjercicio.SelectedValue))
|
|
If DtEjercicios.Rows.Count > 0 AndAlso DtEjercicios.Rows(0)("Bloqueado").ToString = "1" AndAlso txtTotal.Text.ToDecimal > 0 Then
|
|
Alert("El Plan Operativo Anual del ejercicio seleccionado ya esta bloqueado.", TipoMensaje.MsgAdvertencia)
|
|
objAC.Dispose()
|
|
Exit Sub
|
|
End If
|
|
Else
|
|
Alert("Ocurrió un error al verificar el Ejercicio. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
|
objAC.Dispose()
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim Total As Double = txtTotal.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Enero As Double = txtEnero.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Febrero As Double = txtFebrero.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Marzo As Double = txtMarzo.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Abril As Double = txtAbril.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Mayo As Double = txtMayo.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Junio As Double = txtJunio.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Julio As Double = txtJulio.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Agosto As Double = txtAgosto.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Septiembre As Double = txtSeptiembre.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Octubre As Double = txtOctubre.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Noviembre As Double = txtNoviembre.Text.Replace(",", "").Trim.ToDouble
|
|
Dim Diciembre As Double = txtDiciembre.Text.Replace(",", "").Trim.ToDouble
|
|
|
|
If CveProgramaOperativo = 0 Then
|
|
If objAC.AddProgramaOperativo(txtClave.Text, txtProgramaOperativo.Text, CboClasificacionFuncional.SelectedValue.ToEntero, CboClasificacionAdministrativa.SelectedValue.ToEntero, CboProgramaCONAC.SelectedValue.ToEntero, CboClasificacionGeografica.SelectedValue.ToEntero,
|
|
txtProblematica.Text, txtCausa.Text, txtEfecto.Text, CboMeta.SelectedValue.ToEntero, CboUM.SelectedValue.ToEntero, Total,
|
|
Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre, DdlEjercicio.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
|
Alert("El Programa Operativo se guardo Correctamente", TipoMensaje.MsgInformacion, "document.location.href=""/AC/RepProgramaOperativo.aspx""")
|
|
End If
|
|
Else
|
|
If objAC.UpdateProgramaOperativo(CveProgramaOperativo, txtClave.Text, txtProgramaOperativo.Text, CboClasificacionFuncional.SelectedValue.ToEntero, CboClasificacionAdministrativa.SelectedValue.ToEntero, CboProgramaCONAC.SelectedValue.ToEntero, CboClasificacionGeografica.SelectedValue.ToEntero,
|
|
txtProblematica.Text, txtCausa.Text, txtEfecto.Text, CboMeta.SelectedValue.ToEntero, CboUM.SelectedValue.ToEntero, Total,
|
|
Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre, DdlEjercicio.SelectedValue.ToEntero) Then
|
|
Alert("El Programa Operativo se actualizo Correctamente", TipoMensaje.MsgInformacion, "document.location.href=""/AC/RepProgramaOperativo.aspx""")
|
|
End If
|
|
End If
|
|
|
|
|
|
objAC.Dispose()
|
|
End Sub
|
|
|
|
'Protected Sub BtnProyecto_Click(sender As Object, e As EventArgs) Handles BtnProyecto.Click
|
|
' Dim objAC As New ClsAC()
|
|
' Dim Total As Double = txtTotal.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Enero As Double = txtEnero.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Febrero As Double = txtFebrero.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Marzo As Double = txtMarzo.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Abril As Double = txtAbril.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Mayo As Double = txtMayo.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Junio As Double = txtJunio.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Julio As Double = txtJulio.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Agosto As Double = txtAgosto.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Septiembre As Double = txtSeptiembre.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Octubre As Double = txtOctubre.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Noviembre As Double = txtNoviembre.Text.Replace(",", "").Trim.ToDouble
|
|
' Dim Diciembre As Double = txtDiciembre.Text.Replace(",", "").Trim.ToDouble
|
|
|
|
|
|
' If CveProgramaOperativo > 0 Then
|
|
' If objAC.ProyectoProgramaOperativo(txtClave.Text, txtProgramaOperativo.Text, CboClasificacionFuncional.SelectedValue.ToEntero, CboClasificacionAdministrativa.SelectedValue.ToEntero, CboProgramaCONAC.SelectedValue.ToEntero, CboClasificacionGeografica.SelectedValue.ToEntero,
|
|
' txtProblematica.Text, txtCausa.Text, txtEfecto.Text, CboMeta.SelectedValue.ToEntero, CboUM.SelectedValue.ToEntero, Total,
|
|
' Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre, DdlEjercicio.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProgramaOperativo) Then
|
|
' Alert("El Programa Operativo se ACTUALIZO Correctamente como PROYECTO", TipoMensaje.MsgInformacion, "document.location.href=""/AC/RepProgramaOperativo.aspx""")
|
|
' GlobalDTAC_ProgramaOperativo(-1) = objAC.DtResultados
|
|
' End If
|
|
' Else
|
|
' Alert("ERROR", TipoMensaje.MsgError)
|
|
' End If
|
|
|
|
' If EsProyecto = 1 Then
|
|
' If objAC.BloquearProgramaOperativo(CveProgramaOperativo) Then
|
|
' Alert("El Programa Operativo se ACTUALIZO Correctamente como PROYECTO AUTORIZADO", TipoMensaje.MsgInformacion, "document.location.href=""/AC/RepProgramaOperativo.aspx""")
|
|
' End If
|
|
' End If
|
|
|
|
' objAC.Dispose()
|
|
'End Sub
|
|
|
|
End Class
|