From 612572abe8be3af6a7d896a6acd0d31bff43f295 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 6 Jun 2024 19:12:48 -0700
Subject: [PATCH] -- vista SAT

---
 Contabilidad2/RepBalanzaComprobacion.aspx    | 10 +++++++++-
 Contabilidad2/RepBalanzaComprobacion.aspx.vb | 20 +++++++++++++++++---
 2 files changed, 26 insertions(+), 4 deletions(-)

diff --git a/Contabilidad2/RepBalanzaComprobacion.aspx b/Contabilidad2/RepBalanzaComprobacion.aspx
index 9d0440a3a..4decf3c06 100644
--- a/Contabilidad2/RepBalanzaComprobacion.aspx
+++ b/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>
diff --git a/Contabilidad2/RepBalanzaComprobacion.aspx.vb b/Contabilidad2/RepBalanzaComprobacion.aspx.vb
index 76372a053..b68186834 100644
--- a/Contabilidad2/RepBalanzaComprobacion.aspx.vb
+++ b/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)