Rep Balanza de Comprobacion vista SAT, Rep Prodcutos Servicios vista por cantidad

Contabilidad/RepBalanzaComprobacion.aspx

@@ -155,6 +155,12 @@
                     <asp:GridView ID="GvDatos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" 
                         runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
                         <Columns>
+                            <asp:TemplateField HeaderText="Nivel" >
+                                <ItemTemplate>
+                                    <asp:Label ID="LblNivelSAT" runat="server" Text='<%# Eval("Nivel")%>'></asp:Label>
+                                </ItemTemplate>
+                                <ItemStyle HorizontalAlign="Left" Width="20px" />
+                            </asp:TemplateField>
                             <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
                                 <ItemTemplate>
                                     <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>

Contabilidad/RepBalanzaComprobacion.aspx.vb

@@ -155,10 +155,13 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
             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
+            GvDatos.Columns(7).Visible = True
+            GvDatos.Columns(0).Visible = True
         Else
-            GvDatos.Columns(6).Visible = False
+            GvDatos.Columns(7).Visible = False
+            GvDatos.Columns(0).Visible = False
         End If
 
         CargaGrid()
@@ -220,7 +223,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
                 e.Row.FCLabel("LbSaldoActual").Visible = True
                 e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0}           <br/>{1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero)
             Else
-                If ModoImpresion Then e.Row.Cells(5).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto)
+                If ModoImpresion Then e.Row.Cells(6).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto)
             End If
         End If
     End Sub
@@ -247,8 +250,14 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
     End Sub
 
     Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+
+        Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc"  'Contable
+
         'ubicacion del rdlc
-        Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc"
+        If DdlVista.SelectedValue.ToEntero = 1 Then 'SAT
+            reportpath = "Contabilidad/Reportes/RepBalanzaComprobacionSAT.rdlc"  'Contable
+        End If
+
         'nombre del reporte
         Dim fileName As String = "BalanzaComprobacion"
         'parametros a enviar al reporte                     
@@ -273,6 +282,12 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
     Function WSDocumento(SubProyecto As String, DtDatos As DataTable) As IXLWorksheet
 
+        Dim ColumnaAumento As Integer = 0
+
+        If DdlVista.SelectedValue.ToEntero = 1 Then
+            ColumnaAumento = 1
+        End If
+
 
         Dim WBAnexoSalvar = New ClosedXML.Excel.XLWorkbook
         Dim WBReporte = New ClosedXML.Excel.XLWorkbook()