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

-- columna de diferencia en vista SAT

Browse Source
This commit is contained in:
rrene
2024-06-18 08:03:38 -07:00
parent e86b460f06
commit 3080983a7b
2 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Contabilidad/RepBalanzaComprobacion.aspx
View File

@@ -197,6 +197,12 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="120" HorizontalAlign="Right" /> <ItemStyle Width="120" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Diferencia" Visible="false">
<ItemTemplate>
<asp:Literal ID="Lbdif" runat="server" Text='<%# Eval("diferenciaSAT", "{0:N2}")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle Width="100" HorizontalAlign="Right" />
</asp:TemplateField>
</Columns> </Columns>
<HeaderStyle Font-Bold="true" HorizontalAlign="Center" /> <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
</asp:GridView> </asp:GridView>

11
Contabilidad/RepBalanzaComprobacion.aspx.vb
View File

@@ -123,7 +123,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
If TipoReporte = 1 Then If DdlVista.SelectedValue = "1" Then
'mostrar cuales son las cuentas que no tienen asignado el agrupador que sean afectables 'mostrar cuales son las cuentas que no tienen asignado el agrupador que sean afectables
If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
@@ -133,7 +133,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
For Each dr As DataRow In dtt.Rows For Each dr As DataRow In dtt.Rows
str.AppendFormat(" - {0} </br>", dr("CtaCodigo")) str.AppendFormat(" - {0} </br>", dr("CtaCodigo"))
Next Next
Alert(str.ToString) Alert("Cuentas sin clasificador SAT asignado: <br/>" & str.ToString)
End If End If
End If End If
@@ -145,8 +145,13 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
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)
End If End If
ObjConta.Dispose() ObjConta.Dispose()
If DdlVista.SelectedValue = "1" Then
GvDatos.Columns(6).Visible = True
Else
GvDatos.Columns(6).Visible = False
End If
CargaGrid() CargaGrid()
End Sub End Sub
Private Sub CargaGrid() Private Sub CargaGrid()