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

Corregir errores de compilación

Browse Source
This commit is contained in:
MLopez
2023-02-11 11:05:09 -07:00
parent f1495d6ad4
commit f8447845b8
5 changed files with 29 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
AF/CatClasificacionesCaracteristicas.aspx.vb
View File

@@ -53,8 +53,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
'Carga Globals para DT 'Carga Globals para DT
CargaTiposActivosFijos() CargaTiposActivosFijos()
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() ''CargaCaracteristicasClasificaciones()
CargaCaracteristicas() 'CargaCaracteristicas()
End If End If
End Sub End Sub
@@ -77,30 +77,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
ObjAF.Dispose() ObjAF.Dispose()
End Sub End Sub
Private Sub CargaCaracteristicasClasificaciones()
Dim ObjAF As New ClsAF
If ObjAF.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
GlobalDTAFCaracteristicasClasificaciones = ObjAF.DtResultados
ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
Else
Alert("Ocurrio un error al obtener las caracteristicas clasificaciones de Activos Fijos", TipoMensaje.MsgError)
End If
ObjAF.Dispose()
End Sub
Private Sub CargaCaracteristicas()
Dim ObjAF As New ClsAF
If ObjAF.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
GlobalDTAFCaracteristicas = ObjAF.DtResultados
Else
Alert("Ocurrio un error al obtener las caracteristicas de Activos Fijos", TipoMensaje.MsgError)
End If
ObjAF.Dispose()
End Sub
#Region "CLASIFICACIONES" #Region "CLASIFICACIONES"
Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click
Dim ObjCaracteristicaClasificacion As New ClsAF Dim ObjCaracteristicaClasificacion As New ClsAF
@@ -111,7 +87,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
UpTitulosCL.Update() UpTitulosCL.Update()
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones()
If ViewState("OrdenCL").ToString() <> String.Empty Then If ViewState("OrdenCL").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCL").ToString(), 0) CargaGrid(ViewState("OrdenCL").ToString(), 0)
@@ -126,16 +101,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
#Region "CARGA DATOS" #Region "CARGA DATOS"
Public Sub CargaDatosCL() Public Sub CargaDatosCL()
Dim ObjCaracteristicaClasificacion As New ClsAF
If ObjCaracteristicaClasificacion.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
GlobalDTAFCaracteristicasClasificaciones = ObjCaracteristicaClasificacion.DtResultados
Else
Me.GvDatosCL.DataSource = Nothing
End If
ObjCaracteristicaClasificacion.Dispose()
If ViewState("OrdenCL").ToString() <> String.Empty Then If ViewState("OrdenCL").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCL").ToString(), 0) CargaGrid(ViewState("OrdenCL").ToString(), 0)
Else Else
@@ -184,7 +149,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
GvDatosCL.EditIndex = -1 GvDatosCL.EditIndex = -1
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() 'CargaCaracteristicasClasificaciones()
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
@@ -219,7 +184,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
GvDatosCL.EditIndex = -1 GvDatosCL.EditIndex = -1
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() 'CargaCaracteristicasClasificaciones()
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
@@ -263,12 +228,11 @@ Partial Class AF_CatClasificacionesCaracteristicas
TxtLongitudCA.Text = "" TxtLongitudCA.Text = ""
Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion) Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulosCA.Update() UpTitulosCA.Update()
ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() ''CargaCaracteristicasClasificaciones()
CargaCaracteristicas() 'CargaCaracteristicas()
If ViewState("OrdenCA").ToString() <> String.Empty Then If ViewState("OrdenCA").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCA").ToString(), 1) CargaGrid(ViewState("OrdenCA").ToString(), 1)
@@ -281,16 +245,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
#Region " CARGA DATOS" #Region " CARGA DATOS"
Public Sub CargaDatosCA() Public Sub CargaDatosCA()
Dim ObjCaracteristicas As New ClsAF
If ObjCaracteristicas.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados
Else
Me.GvDatosCA.DataSource = Nothing
End If
ObjCaracteristicas.Dispose()
If ViewState("OrdenCA").ToString() <> String.Empty Then If ViewState("OrdenCA").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCA").ToString(), 1) CargaGrid(ViewState("OrdenCA").ToString(), 1)
Else Else
@@ -301,7 +255,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
End Sub End Sub
Private Sub CargaClasificacionesCA() Private Sub CargaClasificacionesCA()
DdlClasificacionesCA.Items.Clear() DdlClasificacionesCA.Items.Clear()
DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero)) DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero))
DdlClasificacionesCA.DataBind() DdlClasificacionesCA.DataBind()
UpdatePanel1.Update() UpdatePanel1.Update()
End Sub End Sub
@@ -374,8 +328,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
Dim ObjCaracteristicas As New ClsAF Dim ObjCaracteristicas As New ClsAF
If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
GvDatosCA.EditIndex = -1 GvDatosCA.EditIndex = -1
ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados
Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
@@ -412,7 +365,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
If ObjCaracteristicas.UpdateCaracteristica(CveCaracteristicaClasificacion, Caracteristica, CveTipoActivoFijo, CveSubTipoActivoFijo, TipoCampo, Longitud, CBool(Requerida), Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristica) Then If ObjCaracteristicas.UpdateCaracteristica(CveCaracteristicaClasificacion, Caracteristica, CveTipoActivoFijo, CveSubTipoActivoFijo, TipoCampo, Longitud, CBool(Requerida), Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristica) Then
GvDatosCA.EditIndex = -1 GvDatosCA.EditIndex = -1
ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
@@ -521,7 +474,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
DdlCaracteristicaOpciones.Items.Clear() DdlCaracteristicaOpciones.Items.Clear()
'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero) 'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero)
Dim Filtro = If(DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", DdlTiposActivosFijosOpciones.SelectedValue.ToEntero)) Dim Filtro = If(DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", DdlTiposActivosFijosOpciones.SelectedValue.ToEntero))
DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro) DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro)
DdlCaracteristicaOpciones.DataBind() DdlCaracteristicaOpciones.DataBind()
DdlCaracteristicaOpciones.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCaracteristicaOpciones.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
@@ -581,7 +534,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").Items.Insert(0, New ListItem("Todos", "-1")) e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").Items.Insert(0, New ListItem("Todos", "-1"))
e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo") e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo")
e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataBind() e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataBind()
FiltraCaracteristicas1(e.Row.FCDropDownList("DdlTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlCaracteristicasOpciones")) FiltraCaracteristicas1(e.Row.FCDropDownList("DdlTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlCaracteristicasOpciones"))
e.Row.FCDropDownList("DdlCaracteristicasOpciones").SelectedValue = e.Row.DBCampo("CveCaracteristica") e.Row.FCDropDownList("DdlCaracteristicasOpciones").SelectedValue = e.Row.DBCampo("CveCaracteristica")
@@ -691,7 +644,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
ddlC.Items.Clear() ddlC.Items.Clear()
'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero) 'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero)
Dim Filtro = If(ddlST.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", ddlST.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", ddlT.SelectedValue.ToEntero)) Dim Filtro = If(ddlST.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", ddlST.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", ddlT.SelectedValue.ToEntero))
ddlC.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro) ddlC.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro)
ddlC.DataBind() ddlC.DataBind()
ddlC.Items.Insert(0, New ListItem("Seleccione", "-1")) ddlC.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
@@ -742,21 +695,17 @@ Partial Class AF_CatClasificacionesCaracteristicas
Private Sub CargaGrid(Orden As String, gvi As Integer) Private Sub CargaGrid(Orden As String, gvi As Integer)
If gvi = 0 Then If gvi = 0 Then
If Orden <> String.Empty Then If Orden <> String.Empty Then
Dim DV As New DataView(CType(ViewState("DTCaracteristicaClasificacion"), DataTable), "", Orden, DataViewRowState.CurrentRows) GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
GvDatosCL.DataSource = DV.ToTable()
DV.Dispose()
Else Else
GvDatosCL.DataSource = CType(ViewState("DTCaracteristicaClasificacion"), DataTable) GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
End If End If
GvDatosCL.DataBind() GvDatosCL.DataBind()
UpDatosCL.Update() UpDatosCL.Update()
ElseIf gvi = 1 Then ElseIf gvi = 1 Then
If Orden <> String.Empty Then If Orden <> String.Empty Then
Dim DV As New DataView(CType(ViewState("DTCatacteristica"), DataTable), "", Orden, DataViewRowState.CurrentRows) GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
GvDatosCA.DataSource = DV.ToTable()
DV.Dispose()
Else Else
GvDatosCA.DataSource = CType(ViewState("DTCatacteristica"), DataTable) GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
End If End If
GvDatosCA.DataBind() GvDatosCA.DataBind()
UpDatosCA.Update() UpDatosCA.Update()

4
Bancos/ConciliacionesBancarias.aspx.vb
View File

@@ -638,14 +638,14 @@ Partial Class Bancos_ConciliacionesBancariasaspx
End If End If
End If End If
If CveCuenta > 0 Then If CveCuenta > 0 Then
If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then
If ObjConta.DtResultados.Rows.Count > 1 Then If ObjConta.DtResultados.Rows.Count > 1 Then
SaldoFinalContabilidad = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble SaldoFinalContabilidad = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
End If End If
End If End If
End If End If
If CveCuentaComplementaria > 0 Then If CveCuentaComplementaria > 0 Then
If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then
If ObjConta.DtResultados.Rows.Count > 1 Then If ObjConta.DtResultados.Rows.Count > 1 Then
SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
End If End If

4
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -313,7 +313,7 @@ Partial Class Bancos_FluctuacionCambiaria
Dim Total As Decimal = 0 Dim Total As Decimal = 0
Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero
If CveCuentaExtranjera > 0 Then If CveCuentaExtranjera > 0 Then
If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
If Conta.DtResultados.Rows.Count > 1 Then If Conta.DtResultados.Rows.Count > 1 Then
Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
End If End If
@@ -324,7 +324,7 @@ Partial Class Bancos_FluctuacionCambiaria
Dim SaldoActualContabilidad As Decimal = 0 Dim SaldoActualContabilidad As Decimal = 0
Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero
If CveCuentaComplementaria > 0 Then If CveCuentaComplementaria > 0 Then
If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
If Conta.DtResultados.Rows.Count > 1 Then If Conta.DtResultados.Rows.Count > 1 Then
SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
End If End If

12
Contabilidad2/MovimientosconProveedores.aspx.vb
View File

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

4
Contabilidad2/RepEstadoResultados.aspx.vb
View File

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