From e2635a1901f04105bbbc74a9e5e45e8277d04de0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 3 Mar 2023 11:37:48 -0700
Subject: [PATCH 01/12] =?UTF-8?q?--ACTIVACI=C3=93N=20DE=20grupo=20proyecto?=
 =?UTF-8?q?/subproyecto?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/RepProductosServicios.aspx.vb | 52 +++++++++++++++-------------
 1 file changed, 27 insertions(+), 25 deletions(-)

diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index 6225d3e6e..ed6a05dc5 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -61,29 +61,31 @@ Partial Class Ventas_RepProductosServicios
 
 #Region "  CARGA DATOS INICIALES  "
 
-    Private Sub CargaGrupo()
-        DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
-        DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4"))
-        DdlGrupo.Items.Insert(2, New ListItem("Productos-Servicios", "5"))
-        DdlGrupo.Items.Insert(3, New ListItem("Año", "6"))
-        DdlGrupo.Items.Insert(4, New ListItem("Mes", "7"))
-        DdlGrupo.Items.Insert(5, New ListItem("Año/Mes", "8"))
-        DdlGrupo.Items.Insert(6, New ListItem("Fecha", "9"))
-        DdlGrupo.Items.Insert(7, New ListItem("Cliente", "10"))
-        DdlGrupo.Items.Insert(8, New ListItem("Vendedor", "12"))
-        DdlGrupo.Items.Insert(9, New ListItem("Usuario", "13"))
-        DdlGrupo.Items.Insert(10, New ListItem("Estatus Fact.", "14"))
-        DdlGrupo.Items.Insert(11, New ListItem("Año Ejec.", "15"))
-        DdlGrupo.Items.Insert(12, New ListItem("Mes Ejec.", "16"))
-        DdlGrupo.Items.Insert(13, New ListItem("Año/Mes Ejec.", "17"))
-        DdlGrupo.Items.Insert(14, New ListItem("Fecha Ejec.", "18"))
-        DdlGrupo.Items.Insert(15, New ListItem("Cliente - PS", "20"))
-        DdlGrupo.Items.Insert(16, New ListItem("Sucursal - PS", "21"))
-        DdlGrupo.Items.Insert(17, New ListItem("Familia - Marca - Tipo", "22"))
-        DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23"))
-        DdlGrupo.Items.Insert(18, New ListItem("Marca", "24"))
-        DdlGrupo.Items.Insert(18, New ListItem("Cliente Sucursal", "26"))
-        DdlGrupo.Items.Insert(18, New ListItem("Giro", "27"))
+    Private Sub CargaGrupo()
+        If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+        DdlGrupo.Items.Add(New ListItem(LblSubProyecto.Text, "2"))
+        DdlGrupo.Items.Add(New ListItem("Categoria", "3"))
+        DdlGrupo.Items.Add(New ListItem("Clasificación", "4"))
+        DdlGrupo.Items.Add(New ListItem("Productos-Servicios", "5"))
+        DdlGrupo.Items.Add(New ListItem("Año", "6"))
+        DdlGrupo.Items.Add(New ListItem("Mes", "7"))
+        DdlGrupo.Items.Add(New ListItem("Año/Mes", "8"))
+        DdlGrupo.Items.Add(New ListItem("Fecha", "9"))
+        DdlGrupo.Items.Add(New ListItem("Cliente", "10"))
+        DdlGrupo.Items.Add(New ListItem("Vendedor", "12"))
+        DdlGrupo.Items.Add(New ListItem("Usuario", "13"))
+        DdlGrupo.Items.Add(New ListItem("Estatus Fact.", "14"))
+        DdlGrupo.Items.Add(New ListItem("Año Ejec.", "15"))
+        DdlGrupo.Items.Add(New ListItem("Mes Ejec.", "16"))
+        DdlGrupo.Items.Add(New ListItem("Año/Mes Ejec.", "17"))
+        DdlGrupo.Items.Add(New ListItem("Fecha Ejec.", "18"))
+        DdlGrupo.Items.Add(New ListItem("Cliente - PS", "20"))
+        DdlGrupo.Items.Add(New ListItem("Sucursal - PS", "21"))
+        DdlGrupo.Items.Add(New ListItem("Familia - Marca - Tipo", "22"))
+        DdlGrupo.Items.Add(New ListItem("Tipo Cliente", "23"))
+        DdlGrupo.Items.Add(New ListItem("Marca", "24"))
+        DdlGrupo.Items.Add(New ListItem("Cliente Sucursal", "26"))
+        DdlGrupo.Items.Add(New ListItem("Giro", "27"))
 
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
@@ -157,9 +159,9 @@ Partial Class Ventas_RepProductosServicios
         DdlClienteClasificacion.DataBind()
         DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        CargaGrupo()
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
-        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
+        CargaGrupo()
 
         TipoCambio = 1
         TCEspecifico = 0

From 1ed732850b523f7e9b463aa2c60caf282c12dcef Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Tue, 7 Mar 2023 09:35:01 -0700
Subject: [PATCH 02/12]

---
 Nomina/ConceptoNomina.aspx.cs | 2 +-
 Nomina/Nomina.aspx.cs         | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Nomina/ConceptoNomina.aspx.cs b/Nomina/ConceptoNomina.aspx.cs
index db804f5e9..a5dced7e4 100644
--- a/Nomina/ConceptoNomina.aspx.cs
+++ b/Nomina/ConceptoNomina.aspx.cs
@@ -291,7 +291,7 @@ public partial class Nomina_CatConcepto : ClsPaginas
 
             using (ClsContabilidad ObjConta = new ClsContabilidad())
             {
-                if (ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa))
+                if (ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa))
                 {
 
                     DdlCtaContable.DataSource = ObjConta.DtResultados;
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 9357e8b57..0a10319c1 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -2636,7 +2636,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
                 using (ClsContabilidad ObjConta = new ClsContabilidad())
                 {
-                    if (ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa))
+                    if (ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa))
                     {
                         DdlCtaContable.DataSource = ObjConta.DtResultados;
                         DdlCtaContable.DataBind();
@@ -8407,7 +8407,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
                             using (ClsContabilidad ObjConta = new ClsContabilidad())
                             {
-                                if (ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa))
+                                if (ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa))
                                 {
                                     DdlCtaContable.DataSource = ObjConta.DtResultados;
                                     DdlCtaContable.DataBind();
@@ -8488,7 +8488,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             int CveAlmacen = -1;
 
 
-            if (ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa))
+            if (ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa))
             {
                 dtconta = ObjConta.DtResultados;
             }

From adcd8a520e952a7cc99ae3a12e89abdbff5f5700 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 7 Mar 2023 14:51:57 -0700
Subject: [PATCH 03/12] Carga de marcas

---
 Acumuladores/CatGarantiasMeses.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Acumuladores/CatGarantiasMeses.aspx.vb b/Acumuladores/CatGarantiasMeses.aspx.vb
index 190f4dd6c..f99f4c14e 100644
--- a/Acumuladores/CatGarantiasMeses.aspx.vb
+++ b/Acumuladores/CatGarantiasMeses.aspx.vb
@@ -111,7 +111,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
         'End If
         'ObjPS.Dispose()
-        DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
+        DdlMarcaM.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
         DdlMarcaM.DataBind()
 
         DdlTipoUsoM.DataSource = GlobalDTAcumTiposUso(UsuarioActual.CveEmpresa)

From a40d8da6c8022b4963557d051dad865e260824f4 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 7 Mar 2023 15:24:35 -0700
Subject: [PATCH 04/12] Formato de fecha

---
 Compras/PopUpVerFactura.aspx.vb                 |  2 +-
 .../Formatos/RepRembolsosComprobaciones.rdlc    | 17 +++++++++--------
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 870d9223e..119b25338 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -6287,7 +6287,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
                 params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
                 params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
-                params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
+                params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString().ToDate().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
                 params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
 
diff --git a/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc b/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc
index 242b2b846..e21960ecc 100644
--- a/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc
+++ b/Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc
@@ -1274,7 +1274,7 @@
                   <Style>
                     <FontSize>9pt</FontSize>
                     <FontWeight>Bold</FontWeight>
-                    <Format>#,0.00</Format>
+                    <Format>N2</Format>
                   </Style>
                 </TextRun>
               </TextRuns>
@@ -1318,9 +1318,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox4</rd:DefaultName>
           <Top>3.24442cm</Top>
-          <Left>14.99769cm</Left>
+          <Left>14.60575cm</Left>
           <Height>0.49417cm</Height>
-          <Width>1.34938cm</Width>
+          <Width>1.74132cm</Width>
           <ZIndex>9</ZIndex>
           <Visibility>
             <Hidden>=IIf(Parameters!folio.Value = "",True,False)</Hidden>
@@ -1354,9 +1354,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox4</rd:DefaultName>
           <Top>3.80915cm</Top>
-          <Left>14.99769cm</Left>
+          <Left>14.60575cm</Left>
           <Height>0.49417cm</Height>
-          <Width>1.38465cm</Width>
+          <Width>1.77659cm</Width>
           <ZIndex>10</ZIndex>
           <Visibility>
             <Hidden>=IIf(Parameters!folio.Value = "",True,False)</Hidden>
@@ -1390,9 +1390,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox4</rd:DefaultName>
           <Top>2.6797cm</Top>
-          <Left>14.99769cm</Left>
+          <Left>14.60575cm</Left>
           <Height>0.49417cm</Height>
-          <Width>1.34937cm</Width>
+          <Width>1.74131cm</Width>
           <ZIndex>11</ZIndex>
           <Visibility>
             <Hidden>=IIf(Parameters!folio.Value = "",True,False)</Hidden>
@@ -1919,8 +1919,9 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
     <ReportParameter Name="fecha">
-      <DataType>DateTime</DataType>
+      <DataType>String</DataType>
       <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
     <ReportParameter Name="importe">

From 0248f50785a851ca4b99b3a6b257566c57686dab Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 7 Mar 2023 15:32:05 -0700
Subject: [PATCH 05/12] Documentos relacionados E159 y E160

---
 Empresas/159/Formatos/Factura.rdlc | 499 ++++++++++++++++++++++++++-
 Empresas/160/Formatos/Factura.rdlc | 532 ++++++++++++++++++++++++++++-
 2 files changed, 996 insertions(+), 35 deletions(-)

diff --git a/Empresas/159/Formatos/Factura.rdlc b/Empresas/159/Formatos/Factura.rdlc
index 889043fa2..7d8f52f52 100644
--- a/Empresas/159/Formatos/Factura.rdlc
+++ b/Empresas/159/Formatos/Factura.rdlc
@@ -2163,8 +2163,8 @@
             <Source>Embedded</Source>
             <Value>ID3</Value>
             <Sizing>FitProportional</Sizing>
-            <Top>23.20001cm</Top>
-            <Left>0.21011cm</Left>
+            <Top>25.46336cm</Top>
+            <Left>0.26815cm</Left>
             <Height>0.93046cm</Height>
             <Width>5.37042cm</Width>
             <ZIndex>31</ZIndex>
@@ -2195,8 +2195,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox60</rd:DefaultName>
-            <Top>20.86523cm</Top>
-            <Left>0.21011cm</Left>
+            <Top>23.12858cm</Top>
+            <Left>0.26815cm</Left>
             <Height>0.6882cm</Height>
             <Width>20.71217cm</Width>
             <ZIndex>32</ZIndex>
@@ -2215,8 +2215,8 @@
             <Value>=System.Convert.FromBase64String(Parameters!QRDescarga.Value)</Value>
             <MIMEType>image/png</MIMEType>
             <Sizing>FitProportional</Sizing>
-            <Top>8.75362in</Top>
-            <Left>6.64986in</Left>
+            <Top>9.6447in</Top>
+            <Left>6.67271in</Left>
             <Height>0.6035in</Height>
             <Width>0.78275in</Width>
             <ZIndex>33</ZIndex>
@@ -2268,8 +2268,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox60</rd:DefaultName>
-            <Top>21.31001cm</Top>
-            <Left>0.21011cm</Left>
+            <Top>23.57336cm</Top>
+            <Left>0.26815cm</Left>
             <Height>1.49135cm</Height>
             <Width>5.37042cm</Width>
             <ZIndex>34</ZIndex>
@@ -2298,8 +2298,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>20.84936cm</Top>
-            <Left>0.10579cm</Left>
+            <Top>23.11271cm</Top>
+            <Left>0.16383cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
             <ZIndex>35</ZIndex>
@@ -2329,8 +2329,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>24.22924cm</Top>
-            <Left>0.21011cm</Left>
+            <Top>26.49259cm</Top>
+            <Left>0.26815cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
             <ZIndex>36</ZIndex>
@@ -2423,8 +2423,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox60</rd:DefaultName>
-            <Top>21.31001cm</Top>
-            <Left>7.38142cm</Left>
+            <Top>23.57336cm</Top>
+            <Left>7.43946cm</Left>
             <Height>2.45709cm</Height>
             <Width>6.56105cm</Width>
             <ZIndex>37</ZIndex>
@@ -2462,8 +2462,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox60</rd:DefaultName>
-            <Top>21.30023cm</Top>
-            <Left>14.60142cm</Left>
+            <Top>23.56358cm</Top>
+            <Left>14.65946cm</Left>
             <Height>1.46939cm</Height>
             <Width>6.32076cm</Width>
             <ZIndex>38</ZIndex>
@@ -3516,8 +3516,473 @@
               </Border>
             </Style>
           </Tablix>
+          <Rectangle Name="Rectangle5">
+            <ReportItems>
+              <Textbox Name="Textbox41">
+                <CanGrow>true</CanGrow>
+                <KeepTogether>true</KeepTogether>
+                <Paragraphs>
+                  <Paragraph>
+                    <TextRuns>
+                      <TextRun>
+                        <Value>CFDI Relacionados</Value>
+                        <Style>
+                          <FontFamily>Myriad Pro</FontFamily>
+                          <FontSize>10.16pt</FontSize>
+                          <FontWeight>Bold</FontWeight>
+                          <Color>White</Color>
+                        </Style>
+                      </TextRun>
+                    </TextRuns>
+                    <Style>
+                      <TextAlign>Center</TextAlign>
+                    </Style>
+                  </Paragraph>
+                </Paragraphs>
+                <rd:DefaultName>Textbox5</rd:DefaultName>
+                <Top>0.14926cm</Top>
+                <Left>0.07193cm</Left>
+                <Height>0.54004cm</Height>
+                <Width>20.7077cm</Width>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                  <BackgroundColor>Black</BackgroundColor>
+                  <PaddingLeft>2pt</PaddingLeft>
+                  <PaddingRight>2pt</PaddingRight>
+                  <PaddingTop>2pt</PaddingTop>
+                  <PaddingBottom>2pt</PaddingBottom>
+                </Style>
+              </Textbox>
+              <Textbox Name="Textbox45">
+                <CanGrow>true</CanGrow>
+                <KeepTogether>true</KeepTogether>
+                <Paragraphs>
+                  <Paragraph>
+                    <TextRuns>
+                      <TextRun>
+                        <Value>Tipo Relación:</Value>
+                        <Style>
+                          <FontFamily>Myriad Pro</FontFamily>
+                          <FontSize>8pt</FontSize>
+                          <FontWeight>Bold</FontWeight>
+                        </Style>
+                      </TextRun>
+                    </TextRuns>
+                    <Style>
+                      <TextAlign>Right</TextAlign>
+                    </Style>
+                  </Paragraph>
+                </Paragraphs>
+                <rd:DefaultName>Textbox29</rd:DefaultName>
+                <Top>0.83025cm</Top>
+                <Left>4.78817cm</Left>
+                <Height>0.41981cm</Height>
+                <Width>5.31841cm</Width>
+                <ZIndex>1</ZIndex>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                  <PaddingLeft>2pt</PaddingLeft>
+                  <PaddingRight>2pt</PaddingRight>
+                  <PaddingTop>2pt</PaddingTop>
+                  <PaddingBottom>2pt</PaddingBottom>
+                </Style>
+              </Textbox>
+              <Textbox Name="Textbox54">
+                <CanGrow>true</CanGrow>
+                <KeepTogether>true</KeepTogether>
+                <Paragraphs>
+                  <Paragraph>
+                    <TextRuns>
+                      <TextRun>
+                        <Value>=Parameters!TipoRelacionTexto.Value</Value>
+                        <Style>
+                          <FontFamily>Myriad Pro</FontFamily>
+                          <FontSize>8pt</FontSize>
+                        </Style>
+                      </TextRun>
+                    </TextRuns>
+                    <Style />
+                  </Paragraph>
+                </Paragraphs>
+                <rd:DefaultName>Textbox29</rd:DefaultName>
+                <Top>0.83025cm</Top>
+                <Left>10.10658cm</Left>
+                <Height>0.41981cm</Height>
+                <Width>7.14985cm</Width>
+                <ZIndex>2</ZIndex>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                  <PaddingLeft>2pt</PaddingLeft>
+                  <PaddingRight>2pt</PaddingRight>
+                  <PaddingTop>2pt</PaddingTop>
+                  <PaddingBottom>2pt</PaddingBottom>
+                </Style>
+              </Textbox>
+              <Tablix Name="Tablix1">
+                <TablixBody>
+                  <TablixColumns>
+                    <TablixColumn>
+                      <Width>2.42456cm</Width>
+                    </TablixColumn>
+                    <TablixColumn>
+                      <Width>2.05585cm</Width>
+                    </TablixColumn>
+                    <TablixColumn>
+                      <Width>3.03631cm</Width>
+                    </TablixColumn>
+                    <TablixColumn>
+                      <Width>7.7847cm</Width>
+                    </TablixColumn>
+                  </TablixColumns>
+                  <TablixRows>
+                    <TablixRow>
+                      <Height>0.44125cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox19">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Folio</Value>
+                                      <Style>
+                                        <FontFamily>myriad Pro</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                        <Color>White</Color>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox10</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <BackgroundColor>Black</BackgroundColor>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox22">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Fecha</Value>
+                                      <Style>
+                                        <FontFamily>myriad Pro</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                        <Color>White</Color>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox12</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <BackgroundColor>Black</BackgroundColor>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox25">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Importe</Value>
+                                      <Style>
+                                        <FontFamily>myriad Pro</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                        <Color>White</Color>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox21</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <BackgroundColor>Black</BackgroundColor>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox26">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Folio Fiscal</Value>
+                                      <Style>
+                                        <FontFamily>myriad Pro</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                        <Color>White</Color>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox11</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <BackgroundColor>Black</BackgroundColor>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                      </TablixCells>
+                    </TablixRow>
+                    <TablixRow>
+                      <Height>0.41479cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="SerieFolio">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!SerieFolio.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>SerieFolio</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Fecha">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!Fecha.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                        <Format>dd/MM/yyyy</Format>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Fecha</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Importe1">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!Importe.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                        <Format>#,0.00;-#,0.00;'-'</Format>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Right</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Importe1</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="FolioFiscal">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!FolioFiscal.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>FolioFiscal</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                      </TablixCells>
+                    </TablixRow>
+                  </TablixRows>
+                </TablixBody>
+                <TablixColumnHierarchy>
+                  <TablixMembers>
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                  </TablixMembers>
+                </TablixColumnHierarchy>
+                <TablixRowHierarchy>
+                  <TablixMembers>
+                    <TablixMember>
+                      <KeepWithGroup>After</KeepWithGroup>
+                    </TablixMember>
+                    <TablixMember>
+                      <Group Name="Details1" />
+                    </TablixMember>
+                  </TablixMembers>
+                </TablixRowHierarchy>
+                <DataSetName>DataSet4</DataSetName>
+                <Top>1.39643cm</Top>
+                <Left>3.28643cm</Left>
+                <Height>0.85604cm</Height>
+                <Width>15.30142cm</Width>
+                <ZIndex>3</ZIndex>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                </Style>
+              </Tablix>
+            </ReportItems>
+            <KeepTogether>true</KeepTogether>
+            <Top>20.80555cm</Top>
+            <Left>0.16383cm</Left>
+            <Height>2.25247cm</Height>
+            <Width>20.89818cm</Width>
+            <ZIndex>44</ZIndex>
+            <Visibility>
+              <Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden>
+            </Visibility>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Rectangle>
         </ReportItems>
-        <Height>24.52253cm</Height>
+        <Height>26.54755cm</Height>
         <Style />
       </Body>
       <Width>21.16666cm</Width>
diff --git a/Empresas/160/Formatos/Factura.rdlc b/Empresas/160/Formatos/Factura.rdlc
index 5e0bdaa4a..6983ea2dc 100644
--- a/Empresas/160/Formatos/Factura.rdlc
+++ b/Empresas/160/Formatos/Factura.rdlc
@@ -499,7 +499,7 @@
             <KeepTogether>true</KeepTogether>
             <Top>6.56618in</Top>
             <Left>0.06752in</Left>
-            <Height>1.60919in</Height>
+            <Height>1.42169in</Height>
             <Width>8.23953in</Width>
             <Style>
               <Border>
@@ -2150,8 +2150,8 @@
             <Source>Embedded</Source>
             <Value>ID3</Value>
             <Sizing>FitProportional</Sizing>
-            <Top>23.29262cm</Top>
-            <Left>0.21011cm</Left>
+            <Top>25.23024cm</Top>
+            <Left>0.15211cm</Left>
             <Height>0.93046cm</Height>
             <Width>5.37042cm</Width>
             <ZIndex>31</ZIndex>
@@ -2182,8 +2182,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox60</rd:DefaultName>
-            <Top>20.95784cm</Top>
-            <Left>0.21011cm</Left>
+            <Top>22.89546cm</Top>
+            <Left>0.15211cm</Left>
             <Height>0.6882cm</Height>
             <Width>20.71217cm</Width>
             <ZIndex>32</ZIndex>
@@ -2202,8 +2202,8 @@
             <Value>=System.Convert.FromBase64String(Parameters!QRDescarga.Value)</Value>
             <MIMEType>image/png</MIMEType>
             <Sizing>FitProportional</Sizing>
-            <Top>8.79008in</Top>
-            <Left>6.64986in</Left>
+            <Top>9.55292in</Top>
+            <Left>6.62703in</Left>
             <Height>0.6035in</Height>
             <Width>0.78275in</Width>
             <ZIndex>33</ZIndex>
@@ -2255,8 +2255,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox60</rd:DefaultName>
-            <Top>21.40262cm</Top>
-            <Left>0.21011cm</Left>
+            <Top>23.34024cm</Top>
+            <Left>0.15211cm</Left>
             <Height>1.49135cm</Height>
             <Width>5.37042cm</Width>
             <ZIndex>34</ZIndex>
@@ -2285,8 +2285,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>20.94197cm</Top>
-            <Left>0.10579cm</Left>
+            <Top>22.87959cm</Top>
+            <Left>0.18789cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
             <ZIndex>35</ZIndex>
@@ -2316,8 +2316,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>24.32185cm</Top>
-            <Left>0.21011cm</Left>
+            <Top>26.25947cm</Top>
+            <Left>0.15211cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
             <ZIndex>36</ZIndex>
@@ -2410,8 +2410,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox60</rd:DefaultName>
-            <Top>21.40262cm</Top>
-            <Left>7.38142cm</Left>
+            <Top>23.34024cm</Top>
+            <Left>7.32342cm</Left>
             <Height>2.45709cm</Height>
             <Width>6.56105cm</Width>
             <ZIndex>37</ZIndex>
@@ -2449,8 +2449,8 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox60</rd:DefaultName>
-            <Top>21.39284cm</Top>
-            <Left>14.60142cm</Left>
+            <Top>23.33046cm</Top>
+            <Left>14.54342cm</Left>
             <Height>1.46939cm</Height>
             <Width>6.32076cm</Width>
             <ZIndex>38</ZIndex>
@@ -3503,8 +3503,504 @@
               </Border>
             </Style>
           </Tablix>
+          <Rectangle Name="Rectangle5">
+            <ReportItems>
+              <Textbox Name="Textbox41">
+                <CanGrow>true</CanGrow>
+                <KeepTogether>true</KeepTogether>
+                <Paragraphs>
+                  <Paragraph>
+                    <TextRuns>
+                      <TextRun>
+                        <Value>CFDI Relacionados</Value>
+                        <Style>
+                          <FontFamily>Myriad Pro</FontFamily>
+                          <FontSize>10.16pt</FontSize>
+                          <FontWeight>Bold</FontWeight>
+                          <Color>White</Color>
+                        </Style>
+                      </TextRun>
+                    </TextRuns>
+                    <Style>
+                      <TextAlign>Center</TextAlign>
+                    </Style>
+                  </Paragraph>
+                </Paragraphs>
+                <rd:DefaultName>Textbox5</rd:DefaultName>
+                <Top>0.14926cm</Top>
+                <Left>0.07193cm</Left>
+                <Height>0.54004cm</Height>
+                <Width>20.7077cm</Width>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                  <BackgroundColor>Black</BackgroundColor>
+                  <PaddingLeft>2pt</PaddingLeft>
+                  <PaddingRight>2pt</PaddingRight>
+                  <PaddingTop>2pt</PaddingTop>
+                  <PaddingBottom>2pt</PaddingBottom>
+                </Style>
+              </Textbox>
+              <Textbox Name="Textbox45">
+                <CanGrow>true</CanGrow>
+                <KeepTogether>true</KeepTogether>
+                <Paragraphs>
+                  <Paragraph>
+                    <TextRuns>
+                      <TextRun>
+                        <Value>Tipo Relación:</Value>
+                        <Style>
+                          <FontFamily>Myriad Pro</FontFamily>
+                          <FontSize>8pt</FontSize>
+                          <FontWeight>Bold</FontWeight>
+                        </Style>
+                      </TextRun>
+                    </TextRuns>
+                    <Style>
+                      <TextAlign>Right</TextAlign>
+                    </Style>
+                  </Paragraph>
+                </Paragraphs>
+                <rd:DefaultName>Textbox29</rd:DefaultName>
+                <Top>0.83025cm</Top>
+                <Left>4.78817cm</Left>
+                <Height>0.41981cm</Height>
+                <Width>5.31841cm</Width>
+                <ZIndex>1</ZIndex>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                  <PaddingLeft>2pt</PaddingLeft>
+                  <PaddingRight>2pt</PaddingRight>
+                  <PaddingTop>2pt</PaddingTop>
+                  <PaddingBottom>2pt</PaddingBottom>
+                </Style>
+              </Textbox>
+              <Textbox Name="Textbox54">
+                <CanGrow>true</CanGrow>
+                <KeepTogether>true</KeepTogether>
+                <Paragraphs>
+                  <Paragraph>
+                    <TextRuns>
+                      <TextRun>
+                        <Value>=Parameters!TipoRelacionTexto.Value</Value>
+                        <Style>
+                          <FontFamily>Myriad Pro</FontFamily>
+                          <FontSize>8pt</FontSize>
+                        </Style>
+                      </TextRun>
+                    </TextRuns>
+                    <Style />
+                  </Paragraph>
+                </Paragraphs>
+                <rd:DefaultName>Textbox29</rd:DefaultName>
+                <Top>0.83025cm</Top>
+                <Left>10.10658cm</Left>
+                <Height>0.41981cm</Height>
+                <Width>7.14985cm</Width>
+                <ZIndex>2</ZIndex>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                  <PaddingLeft>2pt</PaddingLeft>
+                  <PaddingRight>2pt</PaddingRight>
+                  <PaddingTop>2pt</PaddingTop>
+                  <PaddingBottom>2pt</PaddingBottom>
+                </Style>
+              </Textbox>
+              <Tablix Name="Tablix1">
+                <TablixBody>
+                  <TablixColumns>
+                    <TablixColumn>
+                      <Width>2.42456cm</Width>
+                    </TablixColumn>
+                    <TablixColumn>
+                      <Width>2.05585cm</Width>
+                    </TablixColumn>
+                    <TablixColumn>
+                      <Width>3.03631cm</Width>
+                    </TablixColumn>
+                    <TablixColumn>
+                      <Width>7.7847cm</Width>
+                    </TablixColumn>
+                  </TablixColumns>
+                  <TablixRows>
+                    <TablixRow>
+                      <Height>0.44125cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox19">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Folio</Value>
+                                      <Style>
+                                        <FontFamily>myriad Pro</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                        <Color>White</Color>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox10</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <BackgroundColor>Black</BackgroundColor>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox22">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Fecha</Value>
+                                      <Style>
+                                        <FontFamily>myriad Pro</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                        <Color>White</Color>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox12</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <BackgroundColor>Black</BackgroundColor>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox25">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Importe</Value>
+                                      <Style>
+                                        <FontFamily>myriad Pro</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                        <Color>White</Color>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox21</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <BackgroundColor>Black</BackgroundColor>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox26">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Folio Fiscal</Value>
+                                      <Style>
+                                        <FontFamily>myriad Pro</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                        <Color>White</Color>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox11</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <BackgroundColor>Black</BackgroundColor>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                      </TablixCells>
+                    </TablixRow>
+                    <TablixRow>
+                      <Height>0.41479cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="SerieFolio">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!SerieFolio.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>SerieFolio</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Fecha">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!Fecha.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                        <Format>dd/MM/yyyy</Format>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Fecha</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Importe1">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!Importe.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                        <Format>#,0.00;-#,0.00;'-'</Format>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Right</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Importe1</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="FolioFiscal">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!FolioFiscal.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>FolioFiscal</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                      </TablixCells>
+                    </TablixRow>
+                  </TablixRows>
+                </TablixBody>
+                <TablixColumnHierarchy>
+                  <TablixMembers>
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                  </TablixMembers>
+                </TablixColumnHierarchy>
+                <TablixRowHierarchy>
+                  <TablixMembers>
+                    <TablixMember>
+                      <KeepWithGroup>After</KeepWithGroup>
+                    </TablixMember>
+                    <TablixMember>
+                      <Group Name="Details1" />
+                    </TablixMember>
+                  </TablixMembers>
+                </TablixRowHierarchy>
+                <DataSetName>DataSet4</DataSetName>
+                <Top>1.39643cm</Top>
+                <Left>3.28643cm</Left>
+                <Height>0.85604cm</Height>
+                <Width>15.30142cm</Width>
+                <ZIndex>3</ZIndex>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                </Style>
+              </Tablix>
+            </ReportItems>
+            <KeepTogether>true</KeepTogether>
+            <Top>20.48601cm</Top>
+            <Left>0.16383cm</Left>
+            <Height>2.25247cm</Height>
+            <Width>20.89818cm</Width>
+            <ZIndex>44</ZIndex>
+            <Visibility>
+              <Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden>
+            </Visibility>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Rectangle>
+          <Textbox Name="Textbox28">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value />
+                    <Style />
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox5</rd:DefaultName>
+            <Top>20.40392cm</Top>
+            <Left>0.18789cm</Left>
+            <Height>0.05496cm</Height>
+            <Width>20.88652cm</Width>
+            <ZIndex>45</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <BackgroundColor>Black</BackgroundColor>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
         </ReportItems>
-        <Height>24.44315cm</Height>
+        <Height>26.31443cm</Height>
         <Style />
       </Body>
       <Width>21.16666cm</Width>

From 246040b0cdba097e95434d002defcc4138c6f3cc Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 7 Mar 2023 15:32:39 -0700
Subject: [PATCH 06/12] Mejoras en cambios de almacen

---
 Ventas/RepCancelacionesPorRespuesta.aspx.cs |   4 +-
 Ventas/Ventas.aspx.vb                       | 114 +++++++++++++-------
 2 files changed, 79 insertions(+), 39 deletions(-)

diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs
index e9cc454a2..f324421c8 100644
--- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs
+++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs
@@ -600,11 +600,13 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
 
             //
 
-            if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 1 && e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23)
+            if (e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23)
             {
                 e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
             }
 
+
+
             if (e.Row.DBCampo("PuedeRefacturar") == "0" && e.Row.DBCampo("CveEstatusFactura") == "23" && e.Row.DBCampo("CveVentaSustitucion").ToEntero() > 0)
             {
                 if (e.Row.FCLinkButton("LnkCancelar") != null) e.Row.FCLinkButton("LnkCancelar").Visible = true;
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4e6534939..9cdd0675a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18310,8 +18310,8 @@ Partial Class Ventas
             Return False
         End If
 
-        If PU <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
-            Alert("El precio debe ser mayor a 0", TipoMensaje.MsgAdvertencia)
+        If PU <= 0 Then
+            Alert("No se puede vender a un importe de cero", TipoMensaje.MsgAdvertencia)
             Return False
         End If
 
@@ -18323,10 +18323,10 @@ Partial Class Ventas
         ObjVentas.Dispose()
 
         'VALIDA PRECIO CERO (0)
-        If UsuarioActual.Empresa.Funcionalidad(139).ToString().ToEntero() > 0 And PU = 0 And DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal > 0 Then
-            Alert($"El producto <b>{HdnPS.Value}</b>. No se puede vender a un importe de cero ($0)", TipoMensaje.MsgAdvertencia)
-            Return False
-        End If
+        'If UsuarioActual.Empresa.Funcionalidad(139).ToString().ToEntero() > 0 And PU = 0 And DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal > 0 Then
+        '    Alert($"El producto <b>{HdnPS.Value}</b>. No se puede vender a un importe de cero ($0)", TipoMensaje.MsgAdvertencia)
+        '    Return False
+        'End If
 
         'SI NO TIENE LA FUNCIONALIDAD VALIDARA LAS MONEDAS
         If UsuarioActual.Empresa.Funcionalidad(524) <> "" Then
@@ -23659,16 +23659,44 @@ Partial Class Ventas
     Protected Sub LBDevolucionAlmacen_Click(sender As Object, e As EventArgs)
         Dim SaldoAlmacen As Decimal = 0
 
-        Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=True) Then
-            If ObjVentas.DtResultados.Rows.Count > 0 Then
-                Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Rows(0)
-                Me.DevolucionAlmacen = DbRowVenta("EsDevolucionVenta").ToString().ToEntero()
-                SaldoAlmacen = DbRowVenta("SaldoAlmacen").ToString().ToDecimal()
+        Dim ErrorVerificacion As Boolean = False
+
+        Using ObjInv As New ClsInventarios
+            If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
+                If ObjInv.DtResultados.Rows.Count > 0 Then
+                    TieneAlmacen = True
+                End If
+            Else
+                ErrorVerificacion = True
             End If
+        End Using
+
+        If ErrorVerificacion Then
+            Alert("No se pudieron verificar los movimientos de almacen del documento.", TipoMensaje.MsgError)
+            Exit Sub
         End If
 
-        If SaldoAlmacen >= 0 Then
+        If Not TieneAlmacen Then
+            Alert("El documento no tiene movimientos de almacen.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Using ObjVentas As New ClsVentas
+            If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=True) Then
+                If ObjVentas.DtResultados.Rows.Count > 0 Then
+                    Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Rows(0)
+                    Me.DevolucionAlmacen = DbRowVenta("EsDevolucionVenta").ToString().ToEntero()
+                    SaldoAlmacen = DbRowVenta("SaldoAlmacen").ToString().ToDecimal()
+                End If
+            End If
+        End Using
+
+        If DdlTipoComprobante.SelectedValue.ToString() = "Rem" AndAlso SaldoAlmacen = 0 Then
+            Alert("El documento ya fue devuelto.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If DdlTipoComprobante.SelectedValue.ToString() = "Ing" AndAlso SaldoAlmacen = 0 Then
             Alert("El movimiento ya fue devuelto.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
@@ -23676,17 +23704,17 @@ Partial Class Ventas
         If Me.DevolucionAlmacen.Contiene(2) Then
             InicializaDevolucionAlmacen()
             UpnTools.Update()
-            ObjVentas.Dispose()
             Alert("El movimiento ya fue devuelto.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
         Dim EstatusDevolucion = If(Me.DevolucionAlmacen = 0, 1, 0)
 
-        If ObjVentas.UpdateVentasDevolucionAlmacen(EstatusDevolucion, CveVenta) Then
+        Dim ObjV As New ClsVentas
+        If ObjV.UpdateVentasDevolucionAlmacen(EstatusDevolucion, CveVenta) Then
             Alert("La solicitud de Devolución de Almacén se guardó correctamente")
         End If
-        ObjVentas.Dispose()
+        ObjV.Dispose()
 
         Me.DevolucionAlmacen = EstatusDevolucion
 
@@ -24678,28 +24706,9 @@ Partial Class Ventas
     End Sub
 
     Private Sub LbCancelarDocumento_Click(sender As Object, e As EventArgs) Handles LbCancelarDocumento.Click
+        Dim SaldoAlmacen As Decimal = 0
 
-        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then
-
-            Dim sb As New StringBuilder()
-            Dim sbExtra As New StringBuilder()
-            sb.Append("La factura se encuentra en el siguiente estatus del SAT:<br/>")
-
-            Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
-            Dim RFCReceptor As String = ""
-
-            If String.IsNullOrEmpty(Me.RFCReceptorVenta) Then
-                RFCReceptor = LblRFC.Text.Trim
-
-                'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA
-                If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then
-                    RFCReceptor = Me.ClienteSucursal.RFC
-                End If
-            Else
-                RFCReceptor = Me.RFCReceptorVenta
-            End If
-
-            Dim SaldoAlmacen As Decimal = 0
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Dev") Then
 
             Dim PermiteCancelar As Boolean = True
             Using ObjVentas As New ClsVentas
@@ -24722,12 +24731,41 @@ Partial Class Ventas
                 Else
                     PermiteCancelar = False
                 End If
+
+                If PermiteCancelar And SaldoVenta <> 0 Then
+                    If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then
+                        DivDevAlm.Visible = True
+                        TieneAlmacen = True
+                    End If
+                End If
+
             End Using
 
             If Not PermiteCancelar Then
                 Alert("La venta no se puede cancelar si no ha sido surtida previamente", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
+        End If
+
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then
+
+            Dim sb As New StringBuilder()
+            Dim sbExtra As New StringBuilder()
+            sb.Append("La factura se encuentra en el siguiente estatus del SAT:<br/>")
+
+            Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
+            Dim RFCReceptor As String = ""
+
+            If String.IsNullOrEmpty(Me.RFCReceptorVenta) Then
+                RFCReceptor = LblRFC.Text.Trim
+
+                'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA
+                If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then
+                    RFCReceptor = Me.ClienteSucursal.RFC
+                End If
+            Else
+                RFCReceptor = Me.RFCReceptorVenta
+            End If
 
 
             Dim SWatch As New Stopwatch
@@ -25042,7 +25080,7 @@ Partial Class Ventas
         '    CancelarRefacturada()
         'End If
 
-        Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=True)
+        Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=True, VerificaAlmacen:=True)
         Try
             Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing
             Dim strMensaje As New StringBuilder()

From 44f61bec756491f83c41b3791572cf56558e7963 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 7 Mar 2023 19:08:47 -0700
Subject: [PATCH 07/12] -- columna nueva de fechainiciovigencia

---
 Acumuladores/CatGarantiasMeses.aspx    | 42 +++++++++++++++++++-------
 Acumuladores/CatGarantiasMeses.aspx.vb |  5 +--
 App_Code/ClsAcumuladores.vb            | 23 ++++++++------
 3 files changed, 47 insertions(+), 23 deletions(-)

diff --git a/Acumuladores/CatGarantiasMeses.aspx b/Acumuladores/CatGarantiasMeses.aspx
index d9cca1c6c..c9b99fdbb 100644
--- a/Acumuladores/CatGarantiasMeses.aspx
+++ b/Acumuladores/CatGarantiasMeses.aspx
@@ -90,10 +90,7 @@
                                     <div class="col-md-1 truncate" style="text-align: right!important">Tipo Uso</div>
                                     <div class="col-md-2">
                                         <asp:DropDownList ID="DdlTipoUso" DataTextField="TipoUso" DataValueField="CveTipoUso" CssClass="form-control input-sm select2me" runat="server" Width="200px"></asp:DropDownList>
-                                    </div>
-
-
-
+                                    </div> 
                                 </div>
 
                             </div>
@@ -116,8 +113,8 @@
                     <ContentTemplate>
 
                         <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveGarantiaMes,Marca,CveMarca,TipoUso,CveTipoUso,Mes,Valor,Usuario,CveUsuario,FechaIng"
-                            EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
+                            DataKeyNames="CveGarantiaMes,Marca,CveMarca,TipoUso,CveTipoUso,Mes,Valor,Usuario,CveUsuario,FechaInicioVigencia,FechaIng"
+                            EmptyDataText="No se encontraron registros" 
                             CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
                             data-sort="true"
                             data-freezerows="1"
@@ -129,31 +126,36 @@
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Tipo Uso" ItemStyle-Width="150px">
+                                <asp:TemplateField HeaderText="Tipo Uso" >
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="LtlTiposUso" runat="server" Text='<%# Eval("TipoUso")%>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Mes" ItemStyle-Width="150px">
+                                <asp:TemplateField HeaderText="Mes" ItemStyle-Width="100px">
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="LtlMes" runat="server" Text='<%# Eval("Mes")%>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Valor" ItemStyle-Width="150px">
+                                <asp:TemplateField HeaderText="Valor" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right">
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="LtlValor" runat="server" Text='<%# Eval("Valor", "{0:N2}")%>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Inicio Vigencia" ItemStyle-Width="120px">
+                                    <ItemTemplate>
+                                        &nbsp;<asp:Literal ID="LtlIVigencia" runat="server" Text='<%# Eval("FechaInicioVigencia", "{0:d}")%>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px">
+                                <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="120px">
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField ItemStyle-Width="300px" HeaderText="Usuario">
+                                <asp:TemplateField  HeaderText="Usuario">
                                     <ItemTemplate>
                                         <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
                                     </ItemTemplate>
@@ -215,6 +217,24 @@
                                     <label for="<%= TxtValor.ClientID.ToString()%>">Valor:</label>
                                     <i></i>
                                 </div>
+                               <div class="col-md-2 truncate">
+                                Fecha Inicio:
+                           
+                            </div>
+                            <div class="col-md-1" style="min-width: 125px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
                                   <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
                                       <asp:CheckBox ID="ChkSeguir" runat="server" Checked="true" />
                                     <label for="<%= ChkSeguir.ClientID.ToString()%>">Seguir Registrando:</label>
diff --git a/Acumuladores/CatGarantiasMeses.aspx.vb b/Acumuladores/CatGarantiasMeses.aspx.vb
index 1faba2cbf..441ffec50 100644
--- a/Acumuladores/CatGarantiasMeses.aspx.vb
+++ b/Acumuladores/CatGarantiasMeses.aspx.vb
@@ -126,7 +126,7 @@ Partial Class Acumuladores_CatFoliosGarantia
         Dim ObjAcum As New ClsAcumuladores
 
         If Not Actualizar Then
-            If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
 
                 TxtMes.Text = TxtMes.Text.ToEntero + 1
                 TxtValor.Text = ""
@@ -147,7 +147,7 @@ Partial Class Acumuladores_CatFoliosGarantia
                 Alert("Ocurrió un error al guardar la Garantía de Mes", TipoMensaje.MsgError)
             End If
         Else
-            If ObjAcum.GarantiasMesesUpdate(CveGarantiaMes, DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario) Then
+            If ObjAcum.GarantiasMesesUpdate(CveGarantiaMes, DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, txtFechaI.Text.ToDate, UsuarioActual.CveUsuario) Then
 
                 TxtMes.Text = ""
                 TxtValor.Text = ""
@@ -211,6 +211,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
         TxtMes.Text = GvRow.DataKey("Mes")
         TxtValor.Text = GvRow.DataKey("Valor")
+        txtFechaI.Text = GvRow.DataKey("FechaInicioVigencia")
         CargaCombosModal()
         DdlMarcaM.SelectedValueExist(GvRow.DataKey("CveMarca").ToEntero)
         DdlTipoUsoM.SelectedValueExist(GvRow.DataKey("CveTipoUso").ToEntero)
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index e9aa5a929..54581d959 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -608,14 +608,14 @@ Public Class ClsAcumuladores
         End Try
         Return Retorno
 
-    End Function
-
-
+    End Function
+
+
 #End Region
-
+
 #Region " GARANTÍAS MESES "
-
-    Public Function GarantiasMesesGet(CveGarantiaMes As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveTipoUso As Integer = -1, Optional Mes As Integer = -1) As Boolean
+
+    Public Function GarantiasMesesGet(CveGarantiaMes As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveTipoUso As Integer = -1, Optional Mes As Integer = -1, Optional FechaInicioVigencia As Date = MinFecha) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -625,7 +625,8 @@ Public Class ClsAcumuladores
             .Add("@CveGarantiaMes", SqlDbType.Int).Value = CveGarantiaMes
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-            .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
+            .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
+            .Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
             .Add("@Mes", SqlDbType.Int).Value = Mes
         End With
 
@@ -641,7 +642,7 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function GarantiasMesesAdd(CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GarantiasMesesAdd(CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, FechaInicioVigencia As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -653,6 +654,7 @@ Public Class ClsAcumuladores
             .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
             .Add("@Mes", SqlDbType.Int).Value = Mes
             .Add("@Valor", SqlDbType.SmallMoney).Value = Valor
+            .Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
@@ -670,7 +672,7 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function GarantiasMesesUpdate(CveGarantiaMes As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, CveUsuario As Integer) As Boolean
+    Public Function GarantiasMesesUpdate(CveGarantiaMes As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer, Valor As Double, FechaInicioVigencia As Date, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -682,7 +684,8 @@ Public Class ClsAcumuladores
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso
             .Add("@Mes", SqlDbType.Int).Value = Mes
-            .Add("@Valor", SqlDbType.SmallMoney).Value = Valor
+            .Add("@Valor", SqlDbType.SmallMoney).Value = Valor
+            .Add("@FechaInicioVigencia", SqlDbType.Date).Value = FechaInicioVigencia
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
 
         End With

From 3df02addcca8c87ada88419753edb4ef3a0f002f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 7 Mar 2023 19:09:04 -0700
Subject: [PATCH 08/12] E174, a comprobaciones

---
 Compras/Compras.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 05fcb23df..355c7a521 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8111,7 +8111,7 @@ Partial Class Compras_Compras
                                     End If
 
                                     'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
-                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
+                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
                                         If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
                                             Dim CvePreComprobacion As Integer
                                             If ObjCompras.DtResultados.Rows.Count = 0 Then

From 0141125fd0f9acabe6e9f5b801a8929d5665e83a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 7 Mar 2023 19:09:19 -0700
Subject: [PATCH 09/12] -- solo facturas, en compras productores

---
 General/RepIndicadorResumen.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb
index 46b34244a..d76f7677e 100644
--- a/General/RepIndicadorResumen.aspx.vb
+++ b/General/RepIndicadorResumen.aspx.vb
@@ -41,7 +41,8 @@ Partial Class General_RepIndicadorResumen
         End If
 
         If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1,
-                                              UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
+                                              UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, TipoDocto:="Fac",
+                                              CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
             GvCompProductores.DataSource = ObjCompras.DtResultados.FiltraParametros("", "Cantidad DESC")
         End If
 

From 513f08f2cf7a3b98367e640a5e1f6db3c4e0842d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 7 Mar 2023 19:09:45 -0700
Subject: [PATCH 10/12] .

---
 Acumuladores/CatFoliosGarantia.aspx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx
index 3089b032b..150702154 100644
--- a/Acumuladores/CatFoliosGarantia.aspx
+++ b/Acumuladores/CatFoliosGarantia.aspx
@@ -162,7 +162,7 @@
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
                                     <ItemTemplate>
-                                        <asp:Literal ID="lblTotal" runat="server" Text='<%# Eval("NumRegistros") %>'></asp:Literal>
+                                        <asp:Label ID="lblTotal" runat="server" Text='<%# Eval("NumRegistros") %>' ToolTip='<%# Eval("CveFolioGarantia") %>'></asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Usuario">

From f263726e8b40c333f2e82182627bf9048ae9ec53 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 7 Mar 2023 19:11:49 -0700
Subject: [PATCH 11/12] =?UTF-8?q?--=20considerar=20fechainicio=20de=20vige?=
 =?UTF-8?q?ncia=20de=20meses=20de=20garant=C3=ADa?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/PV.aspx    |  5 ++--
 Ventas/PV.aspx.vb | 76 ++++++++++++++++++++++++++++-------------------
 2 files changed, 48 insertions(+), 33 deletions(-)

diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 498d426dc..b97f55638 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -3102,7 +3102,8 @@
                                                             <div class="col-md-6">
                                                                 <div class="form-group form-md-line-input input-iconright">
                                                                     <asp:TextBox ID="TxtEtiqueta" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
-                                                                    <label for="<%= TxtEtiqueta.ClientID.ToString()%>">Etiqueta:</label>
+                                                                     <ajax:MaskedEditExtender ID="MEEEtiqueta" runat="server" TargetControlID="TxtEtiqueta" Mask="99\/99" MaskType="None" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                    <label for="<%= TxtEtiqueta.ClientID.ToString()%>">Etiqueta (mm/yy):</label>
                                                                 </div>
                                                             </div>
                                                         </div>
@@ -3129,7 +3130,7 @@
                                                             <div class="col-md-8">
                                                                 <div id="DivCodEnsamble" runat="server" class="form-group form-md-line-input input-iconright">
                                                                     <asp:TextBox ID="TxtCodEnsamble" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
-                                                                    <asp:CustomValidator ID="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ValidateEmptyText="true" ClientValidationFunction="ValidarCodigoEnsamble" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
+                                                                    <asp:CustomValidator ID="CVCodEnsamble" runat="server" ControlToValidate="TxtCodEnsamble" ValidateEmptyText="true" Display="None" ClientValidationFunction="ValidarCodigoEnsamble" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Ensamble''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
                                                                     <label for="<%= TxtCodEnsamble.ClientID.ToString()%>">Cod.Ensamble:</label>
                                                                 </div>
                                                             </div>
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 19c5d95fc..bbcdad48b 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -7118,7 +7118,7 @@ Partial Class PV
         Else
             'TxtPUFactura.Enabled = True
             'TxtPUFactura.Text = ""
-            DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+            ' DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
         End If
         DdlPSAjuste.DataBind()
         ' DdlPSAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -7410,6 +7410,10 @@ Partial Class PV
             Alert("No se ha especificado producto de ajuste a entregar")
             Exit Sub
         End If
+        If TxtEtiqueta.Text <> "" OrElse TxtEtiqueta.Text.Length <> 4 Then
+            Alert("No se ha especificado la etiqueta.")
+            Exit Sub
+        End If
         If Not CalculaMesesUso() Then
             Exit Sub
         End If
@@ -7419,53 +7423,63 @@ Partial Class PV
             If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
                 Dim CveMarca As Integer = -1
 
-                CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
+                CveMarca = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
                 Dim ImportePagarCliente As Decimal = 0
                 Dim ObjAcum As New ClsAcumuladores
                 If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
                     If ObjAcum.DtResultados.Rows.Count > 0 Then
-                        TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100).ToString
+                        ''obtener siempre y cuando la fecha de inicio sea mayor
+                        Dim strDate As Date = ($"01/{TxtEtiqueta.Text.Substring(0, 2)}/{TxtEtiqueta.Text.Substring(2, 2)}").ToDate
+                        Dim drg As DataRow = ObjAcum.DtResultados.FiltroPrimero($" #{strDate.ToString("yyyy/MM/dd")}# > FechaInicioVigencia ", "FechaInicioVigencia")
+                        If drg IsNot Nothing Then
 
-                        TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
-                        ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal
+                            TxtPorcentajeAjuste.Text = (drg("Valor").ToString.ToDouble / 100).ToString
+                            TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
+                            ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal
 
-                        Dim CargoVendido As Decimal = 0
-                        Dim CargoGarantia As Decimal = 0
-                        Dim CveTamaño As Integer = 0
+                            Dim CargoVendido As Decimal = 0
+                            Dim CargoGarantia As Decimal = 0
+                            Dim CveTamaño As Integer = 0
 
-                        If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
-                            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
-                            If Dr IsNot Nothing Then
-                                CargoGarantia = Dr("Cargo").ToString.ToDecimal
+                            If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
+                                Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
+                                If Dr IsNot Nothing Then
+                                    CargoGarantia = Dr("Cargo").ToString.ToDecimal
+                                End If
                             End If
-                        End If
 
-                        If DdlPS.SelectedValue.ToEntero > 0 Then
-                            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
-                            If Dr IsNot Nothing Then
-                                CveTamaño = Dr("CveTamaño").ToString.ToEntero
+                            If DdlPS.SelectedValue.ToEntero > 0 Then
+                                Dim Dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
+                                If Dr IsNot Nothing Then
+                                    CveTamaño = Dr("CveTamaño").ToString.ToEntero
+                                End If
                             End If
-                        End If
 
-                        Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"  CveTamaño = {CveTamaño}")
-                        If DrCargo IsNot Nothing Then
+                            Dim DrCargo As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"  CveTamaño = {CveTamaño}")
+                            If DrCargo IsNot Nothing Then
 
-                            CargoVendido = DrCargo("Cargo").ToString.ToDecimal
+                                CargoVendido = DrCargo("Cargo").ToString.ToDecimal
 
-                        End If
+                            End If
 
-                        'el ajuste no puede ser mayor al precio de lo vendido de nuevo
-                        If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then
+                            'el ajuste no puede ser mayor al precio de lo vendido de nuevo
+                            If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then
 
+                                TxtImporteAjuste.Text = "0.00"
+                                CargoGarantia = CargoVendido
+                                ImportePagarCliente = 0
+                            End If
+                            ImportePagarCliente = (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))).ToDecimal
+
+                            TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
+                            TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
+                            'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
+                        Else
+                            Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
+                            'cuando no está registrada, no da ajuste
+                            TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo"
                             TxtImporteAjuste.Text = "0.00"
-                            CargoGarantia = CargoVendido
-                            ImportePagarCliente = 0
                         End If
-                        ImportePagarCliente = (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))).ToDecimal
-
-                        TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
-                        TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
-                        'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
                     Else
                         Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
                         'cuando no está registrada, no da ajuste

From e7de00a8ac9e4e1db2e52bc7bd6daa87f48d2bec Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 7 Mar 2023 19:12:18 -0700
Subject: [PATCH 12/12] -mejorar en ligas

---
 Contabilidad/RegPrePolizaS.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 4b02bd7d4..36dbcce18 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -586,7 +586,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
 
-            If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
+            If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
             If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
             If CveConceptoContable.Contiene(30, 204, 66, 92) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))