Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
236
AC/PresupuestoIngresos.aspx.vb
Normal file
236
AC/PresupuestoIngresos.aspx.vb
Normal file
@@ -0,0 +1,236 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
Partial Class AC_PresupuestoIngresos
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "PROPIEDADES"
|
||||
Private Property CvePresupuestoIngresos As Integer
|
||||
Get
|
||||
CvePresupuestoIngresos = ViewState("CvePresupuestoIngresos").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CvePresupuestoIngresos") = 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
|
||||
CvePresupuestoIngresos = IfNull(Request("CvePresupuestoIngresos"), "0").ToString.ToEntero
|
||||
EsProyecto = IfNull(Request("EsProyecto"), "0").ToString.ToEntero
|
||||
Bloqueado = IfNull(Request("Bloqueado"), "0").ToString.ToEntero
|
||||
|
||||
CargaDefault()
|
||||
|
||||
If CvePresupuestoIngresos > 0 Then
|
||||
CargaDatos()
|
||||
End If
|
||||
|
||||
If Bloqueado = 1 Then
|
||||
btnGuardar.Visible = False
|
||||
btnDividir.Visible = False
|
||||
|
||||
CboFuenteRecaudacion.Enabled = False
|
||||
CboRubroIngreso.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
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim objAC As New ClsAC
|
||||
|
||||
If objAC.GetPresupuestoIngresos(CvePresupuestoIngresos, -1, CBool(EsProyecto), UsuarioActual.CveEmpresa) Then
|
||||
If objAC.DtResultados.Rows.Count = 1 Then
|
||||
CboFuenteRecaudacion.SelectedValue = objAC.DtResultados.Rows(0)("CveFuenteRecaudacion").ToString
|
||||
CboRubroIngreso.SelectedValue = objAC.DtResultados.Rows(0)("CveRubroIngreso").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
|
||||
DdlEjercicio.SelectedValue = objAC.DtResultados.Rows(0)("Ejercicio").ToString
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
objAC.Dispose()
|
||||
|
||||
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()
|
||||
CargaFuenteRecaudacion()
|
||||
CargaRubroIngreso()
|
||||
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 CargaFuenteRecaudacion()
|
||||
CboFuenteRecaudacion.DataSource = GlobalDTAC_FuentesRecaudacion(UsuarioActual.CveEmpresa)
|
||||
CboFuenteRecaudacion.DataBind()
|
||||
CboFuenteRecaudacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaRubroIngreso()
|
||||
CboRubroIngreso.DataSource = GlobalDTAC_MatrizIngresos.FiltraParametros("Caracteristicas = 1")
|
||||
CboRubroIngreso.DataBind()
|
||||
CboRubroIngreso.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.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
|
||||
|
||||
Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToEntero
|
||||
Dim CveFuenteRecaudacion As Integer = CboFuenteRecaudacion.SelectedValue.ToString.ToEntero
|
||||
Dim CveRubroIngreso As Integer = CboRubroIngreso.SelectedValue.ToString.ToEntero
|
||||
|
||||
|
||||
If CvePresupuestoIngresos = 0 Then
|
||||
If objAC.AddPresupuestoIngresos(CveFuenteRecaudacion, CveRubroIngreso, Ejercicio, Total, Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
Alert("El Presupuesto de Ingreso se guardo Correctamente", TipoMensaje.MsgInformacion, "document.location.href=""/AC/CatPresupuestoIngresos.aspx""")
|
||||
End If
|
||||
Else
|
||||
If objAC.UpdatePresupuestoIngresos(CvePresupuestoIngresos, CveFuenteRecaudacion, CveRubroIngreso, Total, Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre) Then
|
||||
Alert("El Presupuesto de Ingreso se actualizo Correctamente", TipoMensaje.MsgInformacion, "document.location.href=""/AC/CatPresupuestoIngresos.aspx""")
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
objAC.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnProyecto_Click(sender As Object, e As EventArgs)
|
||||
Dim AC 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
|
||||
|
||||
Dim Ejercicio As Integer = 2015
|
||||
Dim CveFuenteRecaudacion As Integer = CboFuenteRecaudacion.SelectedValue.ToString.ToEntero
|
||||
Dim CveRubroIngreso As Integer = CboRubroIngreso.SelectedValue.ToString.ToEntero
|
||||
|
||||
|
||||
|
||||
If CvePresupuestoIngresos > 0 Then
|
||||
If AC.ProyectoPresupuestoIngresos(Ejercicio, CveFuenteRecaudacion, CveRubroIngreso, Total, Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePresupuestoIngresos) Then
|
||||
Alert("El Presupuesto de Ingreso se ACTUALIZO Correctamente como PROYECTO", TipoMensaje.MsgInformacion, "document.location.href=""/AC/CatPresupuestosIngresos.aspx""")
|
||||
End If
|
||||
Else
|
||||
Alert("ERROR", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user