Rep situacion Fianciera SAT, Rep estado actividades Consolidado, Balance General Consolidado
This commit is contained in:
@@ -86,7 +86,8 @@ Partial Class AC_RepEstadoActividades
|
||||
ReporteComplementario = False
|
||||
Else
|
||||
ReporteComplementario = False
|
||||
liTipoReporte.Visible = False
|
||||
DivTipo1.Visible = False
|
||||
DivTipo2.Visible = False
|
||||
LtTitulo.Text = "Estado de Resultados"
|
||||
End If
|
||||
|
||||
@@ -136,7 +137,7 @@ Partial Class AC_RepEstadoActividades
|
||||
|
||||
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, Opcion:=DdlOpcion.SelectedValue.ToEntero) Then
|
||||
DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
|
||||
Else
|
||||
DtDatos = Nothing
|
||||
@@ -331,6 +332,10 @@ Partial Class AC_RepEstadoActividades
|
||||
params.Add(New ReportParameter("SubProyecto", DdlSubproyecto.SelectedItem.Text))
|
||||
|
||||
ImprimirPDF("AC/Reportes/RepEstadoActividades.rdlc", lrds, params, "EstadoActividades", Formato)
|
||||
|
||||
|
||||
' UsuarioActual.Empresa.GrupoEmpresa
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user