Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
377
AC/ProgramaOperativo.aspx.vb
Normal file
377
AC/ProgramaOperativo.aspx.vb
Normal file
@@ -0,0 +1,377 @@
|
||||
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
|
||||
Reference in New Issue
Block a user