Cambios BDH, estatus de folios de garantia, numero de cantidad

Acumuladores/CatFoliosGarantia.aspx

@@ -93,6 +93,12 @@
                                         <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
                                         <asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>
                                         <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
+                                        <asp:ListItem Text="Enviado" Value="2"></asp:ListItem>
+                                    </asp:DropDownList>
+                                </div>
+                                <label class="col-md-1 truncate">SubProyecto:</label>
+                                <div class="col-md-2">
+                                    <asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" DataValueField="CveSubProyecto" DataTextField="SubProyecto" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
                                     </asp:DropDownList>
                                 </div>
                             </div>
@@ -118,7 +124,7 @@
                     <ContentTemplate>
 
                         <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveFolioGarantia,FolioGarantia,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite"
+                            DataKeyNames="CveFolioGarantia,FolioGarantia,CveEstatus,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite"
                             EmptyDataText="No se encontraron registros" ToolTip="Listado de Folios de Garantía"
                             CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                             data-sort="true"
@@ -268,11 +274,13 @@
                                 <%--<br />--%>
 
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label></br>
-                                   
-                                   
-
-                                    <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
+                                    <label for="<%= DdlEstatusEditar.ClientID.ToString()%>">Estatus:</label>
+                                    <asp:DropDownList ID="DdlEstatusEditar" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
+                                        <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
+                                        <asp:ListItem Text="Activo" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
+                                        <asp:ListItem Text="Enviado" Value="2"></asp:ListItem>
+                                    </asp:DropDownList>
                                     <i></i>
                                 </div>
 

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -47,7 +47,8 @@ Partial Class Acumuladores_CatFoliosGarantia
 
 #Region "Folios Garantía"
     Private Sub CargaSubProyectos()
-        CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto)
+        CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto)
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoFiltro, Nothing, lblSubProyecto)
         GvFolioGarantia.Columns(3).HeaderText = lblSubProyecto.Text
     End Sub
 
@@ -55,7 +56,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
         Dim objAcum As New ClsAcumuladores
 
-        If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor, Area:=-1) Then
+        If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor, Area:=-1, CveSubProyecto:=DdlSubProyectoFiltro.SelectedValue.ToEntero()) Then
             GvFolioGarantia.DataSource = objAcum.DtResultados
         Else
             GvFolioGarantia.DataSource = Nothing
@@ -92,7 +93,7 @@ Partial Class Acumuladores_CatFoliosGarantia
         BtnAgregarFolioGarantiaModal.Text = "Agregar"
 
         TxtFolioGarantia.Text = ""
-        ChkEstatus.Checked = True
+        DdlEstatusEditar.SelectedValueExist("1")
         DdlSubProyectos.SelectedValueExist("-1")
 
         Actualizar = False
@@ -114,10 +115,10 @@ Partial Class Acumuladores_CatFoliosGarantia
 
 
         If Not Actualizar Then
-            If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then
+            If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then
 
                 TxtFolioGarantia.Text = ""
-                ChkEstatus.Checked = True
+                DdlEstatusEditar.SelectedValueExist("1")
                 'TxtCargo.Text = ""
                 'TxtBonificacion.Text = ""
                 'TxtCompra.Text = ""
@@ -133,11 +134,11 @@ Partial Class Acumuladores_CatFoliosGarantia
                 Alert("Ocurrió un error al guardar el Folio de Garantía", TipoMensaje.MsgError)
             End If
         Else
-            If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero,
+            If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero,
                                             DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then
 
                 TxtFolioGarantia.Text = ""
-                ChkEstatus.Checked = True
+                DdlEstatusEditar.SelectedValueExist("1")
                 'TxtCargo.Text = ""
                 'TxtBonificacion.Text = ""
                 'TxtCompra.Text = ""
@@ -191,7 +192,7 @@ Partial Class Acumuladores_CatFoliosGarantia
         CveFolioGarantia = GvRow.DataKey("CveFolioGarantia")
 
         TxtFolioGarantia.Text = GvRow.DataKey("FolioGarantia")
-        ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
+        DdlEstatusEditar.SelectedValueExist(GvRow.DataKey("CveEstatus"))
         TxtLimite.Text = GvRow.DataKey("Limite")
         DdlTipoFolioModal.SelectedValue = GvRow.DataKey("tipoFolio")
         'TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00")

App_Code/ClsAcumuladores.vb

@@ -521,7 +521,7 @@ Public Class ClsAcumuladores
         With SqlAdapter.SelectCommand.Parameters
 
             .Add("@FolioGarantia", SqlDbType.VarChar).Value = FolioGarantia
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
@@ -553,7 +553,7 @@ Public Class ClsAcumuladores
 
             .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
             .Add("@FolioGarantia", SqlDbType.VarChar).Value = FolioGarantia
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio

Empresas/140/Formatos/Cotizacion.rdlc

@@ -944,6 +944,7 @@
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>9pt</FontSize>
                                 <FontWeight>Normal</FontWeight>
+                                <Format>n2</Format>
                               </Style>
                             </TextRun>
                           </TextRuns>

Empresas/140/Formatos/Factura.rdlc

@@ -1963,6 +1963,7 @@
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>7.5pt</FontSize>
                                 <FontWeight>Normal</FontWeight>
+                                <Format>n2</Format>
                               </Style>
                             </TextRun>
                           </TextRuns>

Empresas/140/Formatos/Remision.rdlc

@@ -771,6 +771,7 @@
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>9.64pt</FontSize>
                                 <FontWeight>Normal</FontWeight>
+                                <Format>n2</Format>
                               </Style>
                             </TextRun>
                           </TextRuns>