-- columna de diferencia en vista SAT

Contabilidad/RepBalanzaComprobacion.aspx

@@ -197,6 +197,12 @@
                                 </ItemTemplate>
                                 <ItemStyle Width="120" HorizontalAlign="Right" />
                             </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>
                         <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
                     </asp:GridView>

Contabilidad/RepBalanzaComprobacion.aspx.vb

@@ -123,7 +123,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
         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
 
             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
                         str.AppendFormat(" - {0} </br>", dr("CtaCodigo"))
                     Next
-                    Alert(str.ToString)
+                    Alert("Cuentas sin clasificador SAT asignado: <br/>" & str.ToString)
                 End If
             End If
 
@@ -145,8 +145,13 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
             DtDatos = Nothing
             Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)
         End If
-
         ObjConta.Dispose()
+        If DdlVista.SelectedValue = "1" Then
+            GvDatos.Columns(6).Visible = True
+        Else
+            GvDatos.Columns(6).Visible = False
+        End If
+
         CargaGrid()
     End Sub
     Private Sub CargaGrid()