Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
299
AC/PresupuestoEgresos.aspx.vb
Normal file
299
AC/PresupuestoEgresos.aspx.vb
Normal file
@@ -0,0 +1,299 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
Partial Class AC_PresupuestoEgresos2
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "PROPIEDADES"
|
||||
Private Property CvePresupuestoEgresos As Integer
|
||||
Get
|
||||
CvePresupuestoEgresos = ViewState("CvePresupuestoEgresos").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CvePresupuestoEgresos") = 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 System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
CvePresupuestoEgresos = IfNull(Request("CvePresupuestoEgresos"), "0").ToString.ToEntero
|
||||
EsProyecto = IfNull(Request("EsProyecto"), "1").ToString.ToEntero
|
||||
Bloqueado = IfNull(Request("Bloqueado"), "0").ToString.ToEntero
|
||||
|
||||
CargaDefault()
|
||||
|
||||
If CvePresupuestoEgresos > 0 Then
|
||||
CargaDatos()
|
||||
End If
|
||||
|
||||
If Bloqueado = 1 Then
|
||||
btnGuardar.Visible = False
|
||||
btnDividir.Visible = False
|
||||
|
||||
CboProgramaOperativo.Enabled = False
|
||||
CboFuenteFinanciamiento.Enabled = False
|
||||
CboTipoGasto.Enabled = False
|
||||
CboUnidadAdministrativa.Enabled = False
|
||||
CboClasificacionOG.Enabled = False
|
||||
DdlEjercicio.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 Presupuesto.", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Este Presupuesto ya se Autorizó.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
#Region " VALORES INICIALES "
|
||||
|
||||
Private Sub CargaDefault()
|
||||
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()
|
||||
CargaProgramaOperativo()
|
||||
CargaFuenteFinanciamiento()
|
||||
CargaTipoGasto()
|
||||
CargaUnidadAdministrativa()
|
||||
CargaClasificacionOG()
|
||||
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 CargaProgramaOperativo()
|
||||
CboProgramaOperativo.Items.Clear()
|
||||
CboProgramaOperativo.DataSource = GlobalDTAC_ProgramaOperativo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("Ejercicio = {0} AND Bloqueado = 1", DdlEjercicio.SelectedValue.ToEntero))
|
||||
CboProgramaOperativo.DataBind()
|
||||
CboProgramaOperativo.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaFuenteFinanciamiento()
|
||||
CboFuenteFinanciamiento.DataSource = GlobalDTAC_FuentesFinanciamiento(UsuarioActual.CveEmpresa)
|
||||
CboFuenteFinanciamiento.DataBind()
|
||||
CboFuenteFinanciamiento.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTipoGasto()
|
||||
CboTipoGasto.DataSource = GlobalDTAC_TipoGasto
|
||||
CboTipoGasto.DataBind()
|
||||
CboTipoGasto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaUnidadAdministrativa()
|
||||
CboUnidadAdministrativa.DataSource = GlobalDTAC_UnidadesAdministrativas(UsuarioActual.CveEmpresa)
|
||||
CboUnidadAdministrativa.DataBind()
|
||||
CboUnidadAdministrativa.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaClasificacionOG()
|
||||
Dim Filtro As New StringBuilder
|
||||
Filtro.AppendFormat("Afectable = {0}", "True")
|
||||
CboClasificacionOG.DataSource = GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa).FiltraParametros(Filtro.ToString, "CodigoClasificacion")
|
||||
CboClasificacionOG.DataBind()
|
||||
CboClasificacionOG.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaProgramaOperativo()
|
||||
End Sub
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim objAC As New ClsAC
|
||||
If objAC.GetPresupuestoEgresos(CvePresupuestoEgresos, CBool(EsProyecto), -1, UsuarioActual.CveEmpresa) Then
|
||||
If objAC.DtResultados.Rows.Count = 1 Then
|
||||
DdlEjercicio.SelectedValue = objAC.DtResultados.Rows(0)("Ejercicio").ToString
|
||||
CargaProgramaOperativo()
|
||||
CboProgramaOperativo.SelectedValue = objAC.DtResultados.Rows(0)("CveProgramaOperativo").ToString
|
||||
|
||||
CboFuenteFinanciamiento.SelectedValue = objAC.DtResultados.Rows(0)("CveFuenteFinanciamiento").ToString
|
||||
CboTipoGasto.SelectedValue = objAC.DtResultados.Rows(0)("CveTipoGasto").ToString
|
||||
CboUnidadAdministrativa.SelectedValue = objAC.DtResultados.Rows(0)("CveUnidadAdministrativa").ToString
|
||||
CboClasificacionOG.SelectedValue = objAC.DtResultados.Rows(0)("CveClasificacion").ToString
|
||||
|
||||
txtTotal.Text = objAC.DtResultados.Rows(0)("Total").ToString.FormatoNumero
|
||||
txtEnero.Text = objAC.DtResultados.Rows(0)("Enero").ToString.FormatoNumero
|
||||
txtFebrero.Text = objAC.DtResultados.Rows(0)("Febrero").ToString.FormatoNumero
|
||||
txtMarzo.Text = objAC.DtResultados.Rows(0)("Marzo").ToString.FormatoNumero
|
||||
txtAbril.Text = objAC.DtResultados.Rows(0)("Abril").ToString.FormatoNumero
|
||||
txtMayo.Text = objAC.DtResultados.Rows(0)("Mayo").ToString.FormatoNumero
|
||||
txtJunio.Text = objAC.DtResultados.Rows(0)("Junio").ToString.FormatoNumero
|
||||
txtJulio.Text = objAC.DtResultados.Rows(0)("Julio").ToString.FormatoNumero
|
||||
txtAgosto.Text = objAC.DtResultados.Rows(0)("Agosto").ToString.FormatoNumero
|
||||
txtSeptiembre.Text = objAC.DtResultados.Rows(0)("Septiembre").ToString.FormatoNumero
|
||||
txtOctubre.Text = objAC.DtResultados.Rows(0)("Octubre").ToString.FormatoNumero
|
||||
txtNoviembre.Text = objAC.DtResultados.Rows(0)("Noviembre").ToString.FormatoNumero
|
||||
txtDiciembre.Text = objAC.DtResultados.Rows(0)("Diciembre").ToString.FormatoNumero
|
||||
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.GetEjerciciosPresupuestoEgresos(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 Presupuesto de Egresos del ejercicio seleccionado ya esta bloqueado, solo puede generar Presupuestos en ceros.", 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.ToDouble
|
||||
Dim Enero As Double = txtEnero.Text.ToDouble
|
||||
Dim Febrero As Double = txtFebrero.Text.ToDouble
|
||||
Dim Marzo As Double = txtMarzo.Text.ToDouble
|
||||
Dim Abril As Double = txtAbril.Text.ToDouble
|
||||
Dim Mayo As Double = txtMayo.Text.ToDouble
|
||||
Dim Junio As Double = txtJunio.Text.ToDouble
|
||||
Dim Julio As Double = txtJulio.Text.ToDouble
|
||||
Dim Agosto As Double = txtAgosto.Text.ToDouble
|
||||
Dim Septiembre As Double = txtSeptiembre.Text.ToDouble
|
||||
Dim Octubre As Double = txtOctubre.Text.ToDouble
|
||||
Dim Noviembre As Double = txtNoviembre.Text.ToDouble
|
||||
Dim Diciembre As Double = txtDiciembre.Text.ToDouble
|
||||
|
||||
' Dim Ejercicio As Integer = 2015
|
||||
Dim CveProgramaOperativo As Integer = CboProgramaOperativo.SelectedValue.ToString.ToEntero
|
||||
Dim CveFuenteFinanciamiento As Integer = CboFuenteFinanciamiento.SelectedValue.ToString.ToEntero
|
||||
Dim CveTipoGasto As Integer = CboTipoGasto.SelectedValue.ToString.ToEntero
|
||||
Dim CveUnidadAdministrativa As Integer = CboUnidadAdministrativa.SelectedValue.ToString.ToEntero
|
||||
Dim CveClasificacionOG As Integer = CboClasificacionOG.SelectedValue.ToString.ToEntero
|
||||
|
||||
If CvePresupuestoEgresos = 0 Then
|
||||
If objAC.AddPresupuestoEgresos(DdlEjercicio.SelectedValue.ToEntero, CveProgramaOperativo, CveFuenteFinanciamiento, CveTipoGasto, CveUnidadAdministrativa, CveClasificacionOG, Total, Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
|
||||
Alert("El Presupuesto de Egreso se guardo Correctamente como Anteproyecto", TipoMensaje.MsgInformacion) '"document.location.href=""/AC/CatPresupuestoEgresos.aspx"""
|
||||
Limpia()
|
||||
End If
|
||||
Else
|
||||
If objAC.UpdatePresupuestoEgresos(CvePresupuestoEgresos, CveProgramaOperativo, CveFuenteFinanciamiento, CveTipoGasto, CveUnidadAdministrativa, CveClasificacionOG, Total, Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre) Then
|
||||
Alert("El Presupuesto de Egreso se actualizo Correctamente", TipoMensaje.MsgInformacion, "document.location.href=""/AC/CatPresupuestoEgresos.aspx""")
|
||||
End If
|
||||
End If
|
||||
objAC.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub Limpia()
|
||||
txtTotal.Text = ""
|
||||
txtEnero.Text = ""
|
||||
txtFebrero.Text = ""
|
||||
txtMarzo.Text = ""
|
||||
txtAbril.Text = ""
|
||||
txtMayo.Text = ""
|
||||
txtJunio.Text = ""
|
||||
txtJulio.Text = ""
|
||||
txtAgosto.Text = ""
|
||||
txtSeptiembre.Text = ""
|
||||
txtOctubre.Text = ""
|
||||
txtNoviembre.Text = ""
|
||||
txtDiciembre.Text = ""
|
||||
|
||||
CboClasificacionOG.SelectedValue = "-1"
|
||||
End Sub
|
||||
Protected Sub BtnProyecto_Click(sender As Object, e As EventArgs)
|
||||
Dim AC As New ClsAC
|
||||
Dim Total As Double = txtTotal.Text.ToDouble
|
||||
Dim Enero As Double = txtEnero.Text.ToDouble
|
||||
Dim Febrero As Double = txtFebrero.Text.ToDouble
|
||||
Dim Marzo As Double = txtMarzo.Text.ToDouble
|
||||
Dim Abril As Double = txtAbril.Text.ToDouble
|
||||
Dim Mayo As Double = txtMayo.Text.ToDouble
|
||||
Dim Junio As Double = txtJunio.Text.ToDouble
|
||||
Dim Julio As Double = txtJulio.Text.ToDouble
|
||||
Dim Agosto As Double = txtAgosto.Text.ToDouble
|
||||
Dim Septiembre As Double = txtSeptiembre.Text.ToDouble
|
||||
Dim Octubre As Double = txtOctubre.Text.ToDouble
|
||||
Dim Noviembre As Double = txtNoviembre.Text.ToDouble
|
||||
Dim Diciembre As Double = txtDiciembre.Text.ToDouble
|
||||
|
||||
'Dim Ejercicio As Integer = 2015
|
||||
Dim CveProgramaOperativo As Integer = CboProgramaOperativo.SelectedValue.ToString.ToEntero
|
||||
Dim CveFuenteFinanciamiento As Integer = CboFuenteFinanciamiento.SelectedValue.ToString.ToEntero
|
||||
Dim CveTipoGasto As Integer = CboTipoGasto.SelectedValue.ToString.ToEntero
|
||||
Dim CveUnidadAdministrativa As Integer = CboUnidadAdministrativa.SelectedValue.ToString.ToEntero
|
||||
Dim CveClasificacionOG As Integer = CboClasificacionOG.SelectedValue.ToString.ToEntero
|
||||
|
||||
If CvePresupuestoEgresos > 0 Then
|
||||
If AC.ProyectoPresupuestoEgresos(DdlEjercicio.SelectedValue.ToEntero, CveProgramaOperativo, CveFuenteFinanciamiento, CveTipoGasto, CveUnidadAdministrativa, CveClasificacionOG, Total, Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePresupuestoEgresos) Then
|
||||
Alert("El Presupuesto de Egreso se ACTUALIZO Correctamente como PROYECTO", TipoMensaje.MsgInformacion, "document.location.href=""/AC/CatPresupuestoEgresos.aspx""")
|
||||
End If
|
||||
Else
|
||||
Alert("ERROR", TipoMensaje.MsgError)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user