se agrego checkbos que evita que el modal de agregar desaparesca

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" />
+                                    <div class="row">
-                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
+                                        <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>

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