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

-- vista SAT

Browse Source
This commit is contained in:
rrene
2024-06-06 19:12:48 -07:00
parent 9091c191f2
commit 612572abe8
2 changed files with 26 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Contabilidad2/RepBalanzaComprobacion.aspx
View File

@@ -107,7 +107,15 @@
<asp:ListItem Text="Mayores" Value="1"></asp:ListItem> <asp:ListItem Text="Mayores" Value="1"></asp:ListItem>
<asp:ListItem Text="Último nivel" Value="2"></asp:ListItem> <asp:ListItem Text="Último nivel" Value="2"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div
<label class="col-md-1">Vista: </label>
<div class="col-md-2 ">
<asp:DropDownList ID="DdlVista" runat="server" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" >
<asp:ListItem Selected="True" Text="Contable" Value="0"></asp:ListItem>
<asp:ListItem Text="SAT" Value="1"></asp:ListItem>
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>

20
Contabilidad2/RepBalanzaComprobacion.aspx.vb
View File

@@ -123,10 +123,24 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, 0, DdlNivel.SelectedValue.ToEntero) Then If TipoReporte = 1 Then
'mostrar cuales son las cuentas que no tienen asignado el agrupador que sean afectables
If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
Dim dtt As DataTable = ObjConta.DtResultados.FiltraParametros("CveAgrupadorSAT is null and not Codigo like '_%'")
If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
Dim str As New StringBuilder
For Each dr As DataRow In dtt.Rows
str.AppendFormat(" - {0} </br>", dr("CtaCodigo"))
Next
Alert(str.ToString)
End If
End If
End If
If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, DdlVista.SelectedValue.ToEntero, DdlNivel.SelectedValue.ToEntero) Then
DtDatos = ObjConta.DtResultados DtDatos = ObjConta.DtResultados
Else Else
DtDatos = Nothing DtDatos = Nothing
Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError) Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)