From 6fb19d2cfecd968892ea2f8c1d26a937b6a34155 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 29 Nov 2019 16:36:47 -0700
Subject: [PATCH 1/5] cambios en factura para bdh

---
 Empresas/140/Formatos/Factura.rdlc | 169 ++++++-----------------------
 1 file changed, 34 insertions(+), 135 deletions(-)

diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc
index fde3d230b..02372f4e0 100644
--- a/Empresas/140/Formatos/Factura.rdlc
+++ b/Empresas/140/Formatos/Factura.rdlc
@@ -595,11 +595,10 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>=Parameters!ClienteNombre.Value</Value>
+                <Value>=Parameters!ClienteCodigo.Value</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>9pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
             </TextRuns>
@@ -833,52 +832,6 @@
               <TextAlign>Left</TextAlign>
             </Style>
           </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Pedido/Contrato: </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>9pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=Parameters!PedidoContrato.Value</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>9pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Orden Compra: </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>9pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=Parameters!OrdenCompra.Value</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>9pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
         <Top>0.05159in</Top>
@@ -1376,6 +1329,29 @@
           </Paragraph>
           <Paragraph>
             <TextRuns>
+              <TextRun>
+                <Value>Vencimiento</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>9.64pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>: </Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>9.64pt</FontSize>
+                  <FontWeight>Normal</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!Vencimiento.Value</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>9.64pt</FontSize>
+                </Style>
+              </TextRun>
               <TextRun>
                 <Value xml:space="preserve"> </Value>
                 <Style>
@@ -1384,14 +1360,6 @@
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value>=iif(Parameters!TipoCambio.Value &lt;= 1, "", "Tipo Cambio: " &amp; Parameters!TipoCambio.Value)</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>6.5pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
             </TextRuns>
             <Style>
               <TextAlign>Right</TextAlign>
@@ -1399,6 +1367,14 @@
           </Paragraph>
           <Paragraph>
             <TextRuns>
+              <TextRun>
+                <Value>Moneda</Value>
+                <Style>
+                  <FontFamily>Myriad Pro</FontFamily>
+                  <FontSize>9.16pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
               <TextRun>
                 <Value>Forma de pago: </Value>
                 <Style>
@@ -1639,7 +1615,7 @@
               <Width>0.8527in</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>3.02234in</Width>
+              <Width>3.66416in</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>0.57354in</Width>
@@ -1650,9 +1626,6 @@
             <TablixColumn>
               <Width>0.61967in</Width>
             </TablixColumn>
-            <TablixColumn>
-              <Width>0.64182in</Width>
-            </TablixColumn>
             <TablixColumn>
               <Width>0.79194in</Width>
             </TablixColumn>
@@ -1918,43 +1891,6 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox4">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>IEPS</Value>
-                              <Style>
-                                <FontFamily>Myriad Pro</FontFamily>
-                                <FontSize>9.5pt</FontSize>
-                                <FontWeight>Bold</FontWeight>
-                                <Color>White</Color>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Center</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox4</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <BackgroundColor>#3a4173</BackgroundColor>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox6">
@@ -2216,7 +2152,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!ImporteIVA.Value &amp; iif(Fields!PorcentajeIVA.Value = "0.16", " (16%)"," (0%)")</Value>
+                              <Value>=Fields!ImporteIVA.Value</Value>
                               <Style>
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>7.5pt</FontSize>
@@ -2243,42 +2179,6 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="ImporteIEPS">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=iif(Fields!PorcentajeIEPS.Value = "0.03",Fields!ImporteIEPS.Value &amp; " (3%)",iif(Fields!PorcentajeIEPS.Value = "0.06",Fields!ImporteIEPS.Value &amp; " (6%)",iif(Fields!PorcentajeIEPS.Value = "0.07",Fields!ImporteIEPS.Value &amp; " (7%)",iif(Fields!PorcentajeIEPS.Value = "0.09",Fields!ImporteIEPS.Value &amp; " (9%)",""))))</Value>
-                              <Style>
-                                <FontFamily>Myriad Pro</FontFamily>
-                                <FontSize>7.5pt</FontSize>
-                                <FontWeight>Normal</FontWeight>
-                                <Format>#,0.00;-#,0.00;'(Ninguna)'</Format>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Right</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>ImporteIEPS</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="TiempoEntrega">
@@ -2330,7 +2230,6 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
-            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>

From 99d550107844272a244cfc71a546a2f2fe75cbf8 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 2 Dec 2019 09:30:20 -0700
Subject: [PATCH 2/5] actualizacion previa a agregar el campo "etiqueta" en
 Ajuste.rdlc

---
 Empresas/Grales/Formatos/Ajuste.rdlc | 24 ++++++++++++++++--
 Ventas/PV.aspx                       | 11 +++++++-
 Ventas/PV.aspx.vb                    | 38 +++++++++++++++++++---------
 3 files changed, 58 insertions(+), 15 deletions(-)

diff --git a/Empresas/Grales/Formatos/Ajuste.rdlc b/Empresas/Grales/Formatos/Ajuste.rdlc
index 79d6d2dcf..2dbdcb959 100644
--- a/Empresas/Grales/Formatos/Ajuste.rdlc
+++ b/Empresas/Grales/Formatos/Ajuste.rdlc
@@ -861,7 +861,11 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Tipo:</Value>
+                <Value>Tipo: </Value>
+                <Style />
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!Tipo.Value</Value>
                 <Style />
               </TextRun>
             </TextRuns>
@@ -941,7 +945,11 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Marca:</Value>
+                <Value>Marca: </Value>
+                <Style />
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!Marca.Value</Value>
                 <Style />
               </TextRun>
             </TextRuns>
@@ -1913,6 +1921,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Tipo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Marca">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <Language>Es-MX</Language>
   <rd:ReportUnitType>Inch</rd:ReportUnitType>
diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index bbe006ae8..541ccc1fc 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2805,7 +2805,7 @@
                                                     <div class="row">
                                                         <div class="col-md-12">
                                                             <div class="form-group form-md-line-input input-iconright">
-                                                                <asp:DropDownList ID="DdlClientes" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="NombreComercial" DataValueField="CveCliente" OnSelectedIndexChanged="DdlClientes_SelectedIndexChanged" Width="100%" AutoPostBack="true">
+                                                                <asp:DropDownList ID="DdlClientes" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="100%" AutoPostBack="true">
                                                                 </asp:DropDownList>
                                                                 <label for="<%= DdlClientes.ClientID.ToString()%>">Cliente:</label>
                                                             </div>
@@ -2829,6 +2829,15 @@
                                                             </div>
                                                         </div>
                                                     </div>
+                                                    <div class="row">
+                                                        <div class="col-md-12">
+                                                            <div class="form-group form-md-line-input input-iconright">
+                                                                <asp:DropDownList ID="DdlBCIAjuste" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="BCI" DataValueField="CveBCIUsado" Width="100%" AutoPostBack="true">
+                                                                </asp:DropDownList>
+                                                                <label for="<%= DdlBCIAjuste.ClientID.ToString()%>">BCI:</label>
+                                                            </div>
+                                                        </div>
+                                                    </div>
                                                     <div class="row">
                                                         <div class="col-md-8">
                                                             <div class="form-group form-md-line-input input-iconright">
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 6c13eb26c..0f23ec3c5 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -2764,10 +2764,6 @@ Partial Class PV
         CargaPSAjuste()
     End Sub
 
-    Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaPSAjuste()
-    End Sub
-
     Private Sub DdlPSIndexChange(CvePSParametro As Integer, Ddl As ADServerControl.Dropdownlost)
 
         If Not CveCliente > 0 Then
@@ -4981,12 +4977,21 @@ Partial Class PV
         DdlClientes.Items.Clear()
 
         DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.Items.Insert(0, New ListItem("Sin Factura", "-1"))
+        DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlClientes.DataBind()
         UpAjuste.Update()
     End Sub
 
+    Private Sub CargaBCIAjuste()
+        Dim ObjGral As New ClsGenerales
+        If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
+            DdlBCIAjuste.DataSource = ObjGral.DtResultados
+        End If
+        ObjGral.Dispose()
+        DdlBCIAjuste.DataBind()
+    End Sub
+
     Private Sub CargaAjuste()
         Dim ObjAcum As New ClsAcumuladores
         If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa) Then
@@ -5022,7 +5027,7 @@ Partial Class PV
         CreaDTmpDTAjustes()
         CreaDTmpDTRecepcionUsados()
         CargaClienteAjuste()
-
+        CargaBCIAjuste()
         DivChkAjuste.Visible = True
     End Sub
 
@@ -5734,6 +5739,13 @@ Partial Class PV
 #End Region
 
     Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs)
+
+        Dim ObjPS As New ClsProductosServicios
+        Dim MarcaPS As String = ""
+        If ObjPS.GetPS(DdlPSAjuste.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+            MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero))
+        End If
+
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
         Dim DtDatos As New DataTable
@@ -5743,17 +5755,17 @@ Partial Class PV
         If DdlClientes.SelectedValue.ToEntero = -1 Then
             params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
             params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
+            params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
         Else
-            Dim Ciudad As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
-            Dim Estado As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
+            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
+            Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
+            Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
             params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedItem.Text))
-            params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad, Estado)))
+            params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
+            params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
         End If
 
         'Informacion Distribuidor
-        'params.Add(New ReportParameter("NombreCliente", If(DdlClientes.SelectedValue.ToEntero = -1, LtlCliente.Text, DdlClientes.SelectedItem.Text)))
-        'params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
-        params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
         params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
@@ -5769,6 +5781,8 @@ Partial Class PV
         params.Add(New ReportParameter("CodEnsamble", TxtCodEnsamble.Text.Trim))
         params.Add(New ReportParameter("CodLinea", TxtCodLinea.Text.Trim))
         params.Add(New ReportParameter("CodInspeccion", TxtCodInspeccion.Text.Trim))
+        params.Add(New ReportParameter("Tipo", DdlBCIAjuste.SelectedItem.Text))
+        params.Add(New ReportParameter("Marca", MarcaPS))
 
         'Informacion Vehiculo
         params.Add(New ReportParameter("MarcaAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))

From da189ecded412894a386d3c6b4713dd1245d2cd4 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 2 Dec 2019 10:54:48 -0700
Subject: [PATCH 3/5] se agrego checkbos que evita que el modal de agregar
 desaparesca

---
 Planeacion/CatFolios.aspx    | 21 +++++++++++++++++----
 Planeacion/CatFolios.aspx.vb | 14 +++++++++-----
 2 files changed, 26 insertions(+), 9 deletions(-)

diff --git a/Planeacion/CatFolios.aspx b/Planeacion/CatFolios.aspx
index fe83fcb43..ab7939d3d 100644
--- a/Planeacion/CatFolios.aspx
+++ b/Planeacion/CatFolios.aspx
@@ -104,7 +104,7 @@
                 </table--%>
 
                 <div style="">
-                    <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFolio,FInicial,FActual,FFinal,Estado,TipoDocto,CveSubProyecto" EmptyDataText="No se encontraron Folios registrados" TShowHeader="true" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None">
+                    <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFolio,FInicial,FActual,FFinal,Estado,TipoDocto,CveSubProyecto,Serie" EmptyDataText="No se encontraron Folios registrados" TShowHeader="true" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None">
                         <Columns>
 <%--                            <asp:BoundField DataField="Sucursal" HeaderText="Sucursal" />--%>
                             <asp:BoundField DataField="SubProyecto" HeaderText="Centro Costo"  ItemStyle-HorizontalAlign="Left"/>
@@ -182,7 +182,12 @@
                                     <asp:RequiredFieldValidator ID="RFVTipoDocto" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlTipoDocto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Docto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
                                     <label for="<%= DdlTipoDocto.ClientID.ToString()%>">Tipo Docto:</label>
                                 </div>
-
+                                
+                                <div class="form-group form-md-line-input input-iconright">
+                                     <asp:TextBox ID="TxtSerie" runat="server" CausesValidation="true" MaxLength="10" CssClass="form-control"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVSerie" runat="server" CssClass="help-block errorimput miclase" ControlToValidate="TxtSerie" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>                                    
+                                    <label for="<%= TxtSerie.ClientID.ToString()%>">Serie:</label>
+                                </div>
                              <%--   <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtAprobacion" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RFVAprobacion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAprobacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Aprobación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
@@ -229,8 +234,16 @@
 
                                 <br />
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="form-control" Checked="true" />
-                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
+                                    <div class="row">
+                                        <div class="col-md-6">
+                                            <label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
+                                            <asp:CheckBox ID="ChkEstatus" runat="server" Checked="true" />
+                                        </div>
+                                        <div class="col-md-6" align="right" runat="server">
+                                            <label for="<%= ChkSeguirAgregando.ClientID.ToString()%>">Seguir agregando:</label>
+                                            <asp:CheckBox ID="ChkSeguirAgregando" runat="server" Checked="false" />
+                                        </div>
+                                    </div>
                                 </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>
diff --git a/Planeacion/CatFolios.aspx.vb b/Planeacion/CatFolios.aspx.vb
index 1131a9f8e..5646a6ec2 100644
--- a/Planeacion/CatFolios.aspx.vb
+++ b/Planeacion/CatFolios.aspx.vb
@@ -110,7 +110,6 @@ Partial Class CatFolios
         TxtFolioInicial.Text = ""
         TxtFolioFinal.Text = ""
         TxtFolioActual.Text = ""
-        txtserie.text = ""
         DivFactual.Visible = False
         CargaSubProyectos()
 
@@ -125,6 +124,7 @@ Partial Class CatFolios
         HdnModalidad.Value = "U"
         DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
         DdlTipoDocto.SelectedValueExist(GvRow.DataKey("TipoDocto"))
+        TxtSerie.Text = (GvRow.DataKey("Serie"))
         ChkEstatus.Checked = If(GvRow.DataKey("Estado").ToString = "Activo", True, False)
         TxtFolioInicial.Text = (GvRow.DataKey("FInicial"))
         TxtFolioFinal.Text = (GvRow.DataKey("FFinal"))
@@ -169,12 +169,12 @@ Partial Class CatFolios
 
 
         If HdnModalidad.Value = "I" Then
-            If Not ObjFolios.AddFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioInicial.Text.Trim.ToEntero,
+            If Not ObjFolios.AddFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtSerie.Text, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioInicial.Text.Trim.ToEntero,
                                    TxtFolioFinal.Text.Trim.Trim.ToEntero, Session("FileUpload").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 TieneError = True
             End If
         Else
-            If Not ObjFolios.UpdateFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioActual.Text.Trim.ToEntero, TxtFolioFinal.Text.Trim.ToEntero,
+            If Not ObjFolios.UpdateFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtSerie.Text, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioActual.Text.Trim.ToEntero, TxtFolioFinal.Text.Trim.ToEntero,
                                           "", If(ChkEstatus.Checked, True, False), UsuarioActual.CveUsuario, CveFolio) Then
                 TieneError = True
             End If
@@ -193,15 +193,19 @@ Partial Class CatFolios
 
             Session("FileUpload") = ""
 
-            Alert("El nuevo Folio se guardó/editó correctamente.", TipoMensaje.MsgInformacion)
+            Alert("La nueva Aprobación de Folios se guardó/editó correctamente.", TipoMensaje.MsgInformacion)
             GlobalDTFolios = ObjFolios.DtResultados
             ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
 
 
             CargaDatos()
+            If Not ChkSeguirAgregando.Checked Then
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolio"))
+            Else
+                DdlSubProyecto.SelectedIndex = 0
+            End If
             UpDatos.Update()
             UpAddFolio.Update()
-            RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolio"))
         End If
 
 

From 46e3b828be9a87671ef56d11b2027eb5483c5f21 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 2 Dec 2019 11:04:44 -0700
Subject: [PATCH 4/5] checkbox de "seguir agregando" siempre en true

---
 Planeacion/CatFolios.aspx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Planeacion/CatFolios.aspx b/Planeacion/CatFolios.aspx
index ab7939d3d..04e684c63 100644
--- a/Planeacion/CatFolios.aspx
+++ b/Planeacion/CatFolios.aspx
@@ -241,7 +241,7 @@
                                         </div>
                                         <div class="col-md-6" align="right" runat="server">
                                             <label for="<%= ChkSeguirAgregando.ClientID.ToString()%>">Seguir agregando:</label>
-                                            <asp:CheckBox ID="ChkSeguirAgregando" runat="server" Checked="false" />
+                                            <asp:CheckBox ID="ChkSeguirAgregando" runat="server" Checked="true" />
                                         </div>
                                     </div>
                                 </div>

From b38618015576f421c269b4c7d757b1ad967bbf26 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 2 Dec 2019 12:09:25 -0700
Subject: [PATCH 5/5] Nueva funcion que genera nueva promocion utilizando una
 ya existente como planitlla

---
 Ventas/Promociones.aspx    | 7 +++++++
 Ventas/Promociones.aspx.vb | 5 +++++
 2 files changed, 12 insertions(+)

diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx
index 8981c5be1..b1fe35644 100644
--- a/Ventas/Promociones.aspx
+++ b/Ventas/Promociones.aspx
@@ -3,6 +3,13 @@
 <%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregarFolio">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="ImgAddFolio" runat="server" Visible="True" OnClick="BtnGenerarAPartir_Click"> Generar a partir de</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 4d76f7aa3..6b7e1941d 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -300,6 +300,11 @@ Partial Class Ventas_Promociones
     Protected Sub ChkRestricciones_CheckedChanged(sender As Object, e As EventArgs)
         DivRestricciones.Visible = ChkRestricciones.Checked
     End Sub
+
+    Protected Sub BtnGenerarAPartir_Click(sender As Object, e As EventArgs)
+        CvePromocion = 0
+    End Sub
+
 #End Region