-- vista SAT

Contabilidad2/RepBalanzaComprobacion.aspx

@@ -107,7 +107,15 @@
                                     <asp:ListItem  Text="Mayores" Value="1"></asp:ListItem>
                                     <asp:ListItem  Text="Último nivel" Value="2"></asp:ListItem>
                                 </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>

Contabilidad2/RepBalanzaComprobacion.aspx.vb

@@ -123,10 +123,24 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
         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
-
-
         Else
             DtDatos = Nothing
             Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)