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

-- ver acumulado o mensual y liga a su detalle

Browse Source
This commit is contained in:
rrene
2023-08-21 12:35:40 -07:00
parent 98c72644dd
commit b42bcb31b3
1 changed files with 1 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -550,18 +550,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
CargaDatosSubProyectoH()
End If
End Sub
#Region "MES"
Private Sub CargaDatosMes()
@@ -2266,7 +2260,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
If CveSubProyectoInterno.ToEntero > 0 Then
e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'") } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoInterno}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'") } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString}&FI={e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString}&ER=1&CveSubProyecto={CveSubProyectoInterno}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
End If
End If