From 6cb6ac13e986937ac926646794d60a4cc099b3ca Mon Sep 17 00:00:00 2001
From: JPerez <jonathan.perez@asdsistemas.mx>
Date: Thu, 12 Jun 2025 15:27:29 -0700
Subject: [PATCH] --Columna nivel en impresion excel

---
 Contabilidad/CatCuentas.aspx.vb       |   1 +
 Empresas/Grales/Formatos/Cuentas.rdlc | 168 ++++++++++++++++++++------
 2 files changed, 130 insertions(+), 39 deletions(-)

diff --git a/Contabilidad/CatCuentas.aspx.vb b/Contabilidad/CatCuentas.aspx.vb
index 7d7b7887c..8f1a26856 100644
--- a/Contabilidad/CatCuentas.aspx.vb
+++ b/Contabilidad/CatCuentas.aspx.vb
@@ -742,6 +742,7 @@ Partial Class Contabilidad2_CatCuentas
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
 
             ImprimirPDF("Empresas/Grales/Formatos/Cuentas.rdlc", DtDatos, params, "Cuentas", Formato)
+            'ImprimirPDFStimul("Empresas/Grales/Formatos/Cuentas.mrt", DtDatos, params, NombreArchivo:="Cuentas", RDSName:="Cuentas", Formato:=Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If
diff --git a/Empresas/Grales/Formatos/Cuentas.rdlc b/Empresas/Grales/Formatos/Cuentas.rdlc
index b5ea7b84f..86c7432f3 100644
--- a/Empresas/Grales/Formatos/Cuentas.rdlc
+++ b/Empresas/Grales/Formatos/Cuentas.rdlc
@@ -1,6 +1,6 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
-  <AutoRefresh>0</AutoRefresh>
+	<AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet3">
       <ConnectionProperties>
@@ -18,53 +18,57 @@
       </Query>
       <Fields>
         <Field Name="Codigo">
-          <DataField>Codigo</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>Codigo</DataField>
         </Field>
         <Field Name="Nombre">
-          <DataField>Nombre</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>Nombre</DataField>
         </Field>
         <Field Name="CuentaFormato">
-          <DataField>CuentaFormato</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>CuentaFormato</DataField>
         </Field>
         <Field Name="Tipo">
-          <DataField>Tipo</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>Tipo</DataField>
         </Field>
         <Field Name="CtaMayor">
-          <DataField>CtaMayor</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>CtaMayor</DataField>
         </Field>
         <Field Name="AgrupadorSAT">
-          <DataField>AgrupadorSAT</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>AgrupadorSAT</DataField>
         </Field>
         <Field Name="Moneda">
-          <DataField>Moneda</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>Moneda</DataField>
         </Field>
         <Field Name="DigAgrup">
-          <DataField>DigAgrup</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>DigAgrup</DataField>
         </Field>
         <Field Name="NomIdioma">
-          <DataField>NomIdioma</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>NomIdioma</DataField>
         </Field>
         <Field Name="ConceptoContable">
-          <DataField>ConceptoContable</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>ConceptoContable</DataField>
         </Field>
         <Field Name="CodigoPadre">
-          <DataField>CodigoPadre</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>CodigoPadre</DataField>
         </Field>
         <Field Name="CodigoNombreSAT">
-          <DataField>CodigoNombreSAT</DataField>
           <rd:TypeName>System.String</rd:TypeName>
+          <DataField>CodigoNombreSAT</DataField>
         </Field>
+		<Field Name="Nivel">
+          <rd:TypeName>System.String</rd:TypeName>
+			<DataField>Nivel</DataField>
+		</Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet3</rd:DataSetName>
@@ -111,7 +115,10 @@
                   <Width>2.10313cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.10458cm</Width>
+                  <Width>4.59166cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.5cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -121,6 +128,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox3">
+                          <rd:DefaultName>Textbox3</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -139,7 +147,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Textbox3</rd:DefaultName>
                           <RepeatWith>Tablix2</RepeatWith>
                           <Style>
                             <Border>
@@ -170,6 +177,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox2">
+                          <rd:DefaultName>Textbox2</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -188,7 +196,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Textbox2</rd:DefaultName>
                           <RepeatWith>Tablix2</RepeatWith>
                           <Style>
                             <Border>
@@ -219,6 +226,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox22">
+                          <rd:DefaultName>Textbox22</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -237,7 +245,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Textbox22</rd:DefaultName>
                           <Style>
                             <Border>
                               <Color>LightGrey</Color>
@@ -267,6 +274,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox20">
+                          <rd:DefaultName>Textbox20</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -285,7 +293,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Textbox20</rd:DefaultName>
                           <Style>
                             <Border>
                               <Color>LightGrey</Color>
@@ -315,6 +322,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox18">
+                          <rd:DefaultName>Textbox18</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -333,7 +341,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Textbox18</rd:DefaultName>
                           <Style>
                             <Border>
                               <Color>LightGrey</Color>
@@ -363,6 +370,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox16">
+                          <rd:DefaultName>Textbox16</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -381,7 +389,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Textbox16</rd:DefaultName>
                           <Style>
                             <Border>
                               <Color>LightGrey</Color>
@@ -411,6 +418,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox14">
+                          <rd:DefaultName>Textbox14</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -429,7 +437,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Textbox14</rd:DefaultName>
                           <Style>
                             <Border>
                               <Color>LightGrey</Color>
@@ -459,6 +466,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox7">
+                          <rd:DefaultName>Textbox7</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -477,7 +485,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Textbox7</rd:DefaultName>
                           <Style>
                             <Border>
                               <Color>LightGrey</Color>
@@ -507,6 +514,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox1">
+                          <rd:DefaultName>Textbox1</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -525,7 +533,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Textbox1</rd:DefaultName>
                           <Style>
                             <Border>
                               <Color>LightGrey</Color>
@@ -555,6 +562,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox24">
+                          <rd:DefaultName>Textbox24</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -573,7 +581,54 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Textbox24</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Style>None</Style>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Style>None</Style>
+                            </RightBorder>
+                            <BackgroundColor>LightGrey</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox4">
+                          <rd:DefaultName>Textbox4</rd:DefaultName>
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Nivel</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
                           <Style>
                             <Border>
                               <Color>LightGrey</Color>
@@ -608,6 +663,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="CuentaFormato">
+                          <rd:DefaultName>CuentaFormato</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -625,7 +681,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>CuentaFormato</rd:DefaultName>
                           <Style>
                             <Border>
                               <Style>None</Style>
@@ -642,6 +697,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Nombre">
+                          <rd:DefaultName>Nombre</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -659,7 +715,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Nombre</rd:DefaultName>
                           <Style>
                             <Border>
                               <Style>None</Style>
@@ -676,6 +731,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="CodigoPadre">
+                          <rd:DefaultName>CodigoPadre</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -693,7 +749,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>CodigoPadre</rd:DefaultName>
                           <Style>
                             <Border>
                               <Style>None</Style>
@@ -710,6 +765,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Tipo">
+                          <rd:DefaultName>Tipo</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -727,7 +783,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Tipo</rd:DefaultName>
                           <Style>
                             <Border>
                               <Style>None</Style>
@@ -744,6 +799,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="CtaMayor">
+                          <rd:DefaultName>CtaMayor</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -761,7 +817,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>CtaMayor</rd:DefaultName>
                           <Style>
                             <Border>
                               <Style>None</Style>
@@ -778,6 +833,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="CodigoNombreSAT">
+                          <rd:DefaultName>CodigoNombreSAT</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -795,7 +851,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>CodigoNombreSAT</rd:DefaultName>
                           <Style>
                             <Border>
                               <Style>None</Style>
@@ -807,12 +862,12 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Moneda">
+                          <rd:DefaultName>Moneda</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -830,7 +885,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Moneda</rd:DefaultName>
                           <Style>
                             <Border>
                               <Style>None</Style>
@@ -847,6 +901,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="DigAgrup">
+                          <rd:DefaultName>DigAgrup</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -864,7 +919,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>DigAgrup</rd:DefaultName>
                           <Style>
                             <Border>
                               <Style>None</Style>
@@ -881,6 +935,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="NomIdioma">
+                          <rd:DefaultName>NomIdioma</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -898,7 +953,6 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>NomIdioma</rd:DefaultName>
                           <Style>
                             <Border>
                               <Style>None</Style>
@@ -915,6 +969,7 @@
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="ConceptoContable">
+                          <rd:DefaultName>ConceptoContable</rd:DefaultName>
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
@@ -932,7 +987,41 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>ConceptoContable</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BackgroundColor>=iif((RunningValue(CountDistinct(Fields!Codigo.Value), Sum, "DataSet1") mod 2) = 0, "LightSteelBlue", "White")</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <rd:Selected>true</rd:Selected>
+                        <Textbox Name="Nivel">
+                          <rd:DefaultName>Nivel</rd:DefaultName>
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Nivel.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
                           <Style>
                             <Border>
                               <Style>None</Style>
@@ -962,6 +1051,7 @@
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
+                <TablixMember />
               </TablixMembers>
             </TablixColumnHierarchy>
             <TablixRowHierarchy>
@@ -980,7 +1070,7 @@
             <RepeatRowHeaders>true</RepeatRowHeaders>
             <DataSetName>DataSet1</DataSetName>
             <Height>0.98834cm</Height>
-            <Width>24.33862cm</Width>
+            <Width>29.3257cm</Width>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -991,7 +1081,7 @@
         <Height>0.38911in</Height>
         <Style />
       </Body>
-      <Width>9.58214in</Width>
+      <Width>11.54555in</Width>
       <Page>
         <PageHeight>21.59cm</PageHeight>
         <PageWidth>27.94cm</PageWidth>
@@ -1018,7 +1108,7 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  
+	
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>2ec96151-d7c1-4609-bfdd-795b02d33b5a</rd:ReportID>
 </Report>
\ No newline at end of file