AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

AC: Cambios para permitir agregar partidas una vez cerrado el presupuesto.

Browse Source 
Productos Finan: Concepto de prepoliza se le puso que siempre tenga dato
This commit is contained in:
Julian Moreno
2020-04-15 08:48:19 -07:00
parent 21d7eda99b
commit 46d29e0c31
5 changed files with 29 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
AC/PresupuestoEgresos.aspx.vb
View File

@@ -202,7 +202,7 @@ Partial Class AC_PresupuestoEgresos2
'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
If DtEjercicios.Rows.Count > 0 AndAlso DtEjercicios.Rows(0)("Bloqueado").ToString = "1" Then
Alert("El Presupuesto de Egresos del ejercicio seleccionado ya esta bloqueado, solo puede generar Presupuestos en ceros.", TipoMensaje.MsgAdvertencia)
objAC.Dispose()
Exit Sub
@@ -234,6 +234,10 @@ Partial Class AC_PresupuestoEgresos2
Dim CveUnidadAdministrativa As Integer = CboUnidadAdministrativa.SelectedValue.ToString.ToEntero
Dim CveClasificacionOG As Integer = CboClasificacionOG.SelectedValue.ToString.ToEntero
'If txtTotal.Text.ToDecimal > 0 Then
' Alert("El Presupuesto de Egresos del ejercicio seleccionado se generaro proyecto. Después de este proceso se tendrá que autorizar el presupuesto de esta partida.", TipoMensaje.MsgAdvertencia)
'Else
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"""