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

- PARAMETRO DE cveconcepto

Browse Source
This commit is contained in:
rrene
2022-03-26 07:23:33 -07:00
parent 90a70f0103
commit 7bba00bd5a
3 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Contabilidad2/CatCuentasAsignaciones.aspx.vb
View File

@@ -17,6 +17,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
DdlConceptos.DataSource = GlobalDTContaConceptosContables(-1)
DdlConceptos.DataBind()
DdlConceptos.Items.Insert(0, New ListItem("Todos", "-1"))
CargaDatosModal()
End If
End Sub
@@ -37,7 +41,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Private Sub CargaDatosSistema()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then
If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero, DdlConceptos.SelectedValue.ToEntero) Then
GvDatos.DataSource = ObjConta.DtResultados
End If
GvDatos.Columns(4).Visible = ObjConta.DtResultados.MAX("CveSubProyecto").ToEntero > 0