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

verifica si usa contabilidad

Browse Source
This commit is contained in:
rrene
2021-01-13 15:23:46 -07:00
parent 25c2358013
commit 580537a066
1 changed files with 40 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -136,6 +136,8 @@ Partial Class CatSubProyectos
Private Sub CargaSegmentosNegocio() Private Sub CargaSegmentosNegocio()
DdlSegmentoNegocio.Items.Clear() DdlSegmentoNegocio.Items.Clear()
If UsuarioActual.Empresa.UsaContabilidad Then
Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa) Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)
If Cuenta.GetSegmentosNegocio(-1, "-1") Then If Cuenta.GetSegmentosNegocio(-1, "-1") Then
@@ -153,30 +155,32 @@ Partial Class CatSubProyectos
DdlSegmentoNegocio.DataSource = DtSegmentosNegocio : DdlSegmentoNegocio.DataBind() DdlSegmentoNegocio.DataSource = DtSegmentosNegocio : DdlSegmentoNegocio.DataBind()
DdlSegmentoNegocio.Items.Insert(0, New ListItem("-", "-1")) DdlSegmentoNegocio.Items.Insert(0, New ListItem("-", "-1"))
For Each Gvr As GridViewRow In GvDatos.Rows End If
'If Gvr.DataKey("IdSegNeg").ToEntero > 0 Then
'For Each Gvr As GridViewRow In GvDatos.Rows
' 'If Gvr.DataKey("IdSegNeg").ToEntero > 0 Then
' ' 'COMENTADO PORQUE TRUENA | IPP - 17 AGOSTO 2017
' ' 'Dim Cuenta2 As New ClsContPAQi(UsuarioActual.Empresa)
' ' 'If Cuenta2.GetSegmentosNegocio(Gvr.DataKey("IdSegNeg").ToEntero, "-1") Then
' ' ' Dim DRES2 As DataRow
' ' ' DRES2 = Cuenta2.DtResultados(0)
' ' ' Gvr.Cells(1).Text = DRES2("Nombre").ToString
' ' 'Else
' ' ' Gvr.Cells(1).Text = "-"
' ' 'End If
' ' 'Cuenta2.Dispose()
' ' 'If DtSegmentosNegocio IsNot Nothing AndAlso DtSegmentosNegocio.Rows.Count > 0 Then
' ' ' Dim dr As DataRow
' ' ' dr = DtSegmentosNegocio.FiltroPrimero(String.Format("Id ={0}", Gvr.DataKey("IdSegNeg")))
' ' ' Gvr.Cells(1).Text = dr("Nombre").ToString
' ' 'End If
' 'COMENTADO PORQUE TRUENA | IPP - 17 AGOSTO 2017
' 'Dim Cuenta2 As New ClsContPAQi(UsuarioActual.Empresa)
' 'If Cuenta2.GetSegmentosNegocio(Gvr.DataKey("IdSegNeg").ToEntero, "-1") Then
' ' Dim DRES2 As DataRow
' ' DRES2 = Cuenta2.DtResultados(0)
' ' Gvr.Cells(1).Text = DRES2("Nombre").ToString
' 'Else ' 'Else
' ' Gvr.Cells(1).Text = "-" ' ' Gvr.Cells(1).Text = "0"
' 'End If ' 'End If
' 'Cuenta2.Dispose() 'Next
' 'If DtSegmentosNegocio IsNot Nothing AndAlso DtSegmentosNegocio.Rows.Count > 0 Then
' ' Dim dr As DataRow
' ' dr = DtSegmentosNegocio.FiltroPrimero(String.Format("Id ={0}", Gvr.DataKey("IdSegNeg")))
' ' Gvr.Cells(1).Text = dr("Nombre").ToString
' 'End If
'Else
' Gvr.Cells(1).Text = "0"
'End If
Next
End Sub End Sub
#End Region #End Region