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

Local

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-02-11 11:20:21 -07:00
parent 8487abfda4 f8447845b8
commit 12ef94c4a1
25 changed files with 317 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Contabilidad2/MovimientosconProveedores.aspx.vb
View File

@@ -52,11 +52,11 @@ Partial Class MovimientosconProveedores
ViewState("DTCuentas") = value
End Set
End Property
Private Property CveSubProyecto As String
Private Property CveSubProyecto As Integer
Get
CveSubProyecto = ViewState("CveSubProyecto").ToString
CveSubProyecto = CType(ViewState("CveSubProyecto"), Integer)
End Get
Set(value As String)
Set(value As Integer)
ViewState("CveSubProyecto") = value
End Set
End Property
@@ -108,7 +108,7 @@ Partial Class MovimientosconProveedores
End If
If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
CveSubProyecto = Request("CveSubProyecto").ToString
CveSubProyecto = Request("CveSubProyecto").ToEntero
End If
@@ -184,9 +184,9 @@ Partial Class MovimientosconProveedores
End If
'Dim CveSubProyecto As String
If Request("CveSubProyecto") IsNot Nothing Then
CveSubProyecto = Request("CveSubProyecto").ToString
CveSubProyecto = Request("CveSubProyecto").ToEntero
Else
CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
End If
If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte, 1) Then

2
Contabilidad2/RepAnexoCatalogo.aspx.vb
View File

@@ -201,7 +201,7 @@ Partial Class AC2_RepAnexoCatalogo
DdlCuentas.DataBind()
CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
End Sub

2
Contabilidad2/RepEstadoActividades.aspx.vb
View File

@@ -117,7 +117,7 @@ Partial Class AC_RepEstadoActividades
End If
DdlPeriodo.SelectedValue = Now.Month.ToString
CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
End Sub

4
Contabilidad2/RepEstadoResultados.aspx.vb
View File

@@ -177,10 +177,10 @@ Partial Class Contabilidad2_RepEstadoResultados
TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
Dim ObjConta As New ClsContabilidad
If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, DdlSubproyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 0) Then
If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, -1, CveSubProyecto, UsuarioActual.CveEmpresa) Then
DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else
DtDatos = Nothing

2
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
View File

@@ -228,7 +228,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
ObjTipoCuenta.Dispose()
DdlCuentas.DataBind()
CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
End Sub