correcciones en kardex e inventario detalle, pequeña funcionalidad agregada al punto de venta

App_Code/ClsAcumuladores.vb

@@ -583,12 +583,27 @@ Public Class ClsAcumuladores
         End Try
 
         Return Retorno
-    End Function
+    End Function
+
+    Public Function GetNuevoConsecutivoFolio(CveFolioGarantia As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        SqlDataAdapter(String.Format("SELECT MAX(Consecutivo) + 1 AS NuevoConsecutivo FROM Acum_GarantiasDetalle d WHERE d.CveFolioGarantia = {0}", CveFolioGarantia), CommandType.Text)
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError(String.Format("Ocurrió un error al consultar un nuevo consecutivo para el folio {0}", CveFolioGarantia), ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
 
+    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
         Dim Retorno As Boolean = False
         'Data = New DataTable

Inventarios/InventarioFisicoDetalle.aspx

@@ -89,21 +89,30 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <li>
-        <asp:LinkButton ID="btnFin" runat="server" Text="Finalizar" data-toggle="confirmation" data-popout="true" data-original-title="Finalizar el inventario" data-btn-ok-label="si" />
-    </li>
-    <li>
-        <asp:LinkButton ID="LBAvance" OnClick="LBAvance_Click" runat="server" Text="Ver Avance" Visible="false" />
-    </li>
-    <li>
-        <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
-    </li>
-    <li>
-        <asp:LinkButton ID="LnkPDFResumido" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF Resumido</asp:LinkButton>
-    </li>
-    <li>
-        <asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-ad-excel"></i> Imprimir EXCEL</asp:LinkButton>
-    </li>
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="btnFin" runat="server" Text="Finalizar" data-toggle="confirmation" data-popout="true" data-original-title="Finalizar el inventario" data-btn-ok-label="si" />
+            </li>
+            <li>
+                <asp:LinkButton ID="LBAvance" OnClick="LBAvance_Click" runat="server" Text="Ver Avance" Visible="false" />
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkPDFResumido" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF Resumido</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkExcel" runat="server"><i class="fa fa-ad-excel"></i> Imprimir EXCEL</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkPDF" />
+            <asp:PostBackTrigger ControlID="LnkPDFResumido" />
+            <asp:PostBackTrigger ControlID="LnkExcel" />
+        </Triggers>
+    </asp:UpdatePanel>
 
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -432,8 +432,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
     Protected Sub Impimir(Optional Formato As String = "PDF", Optional Agrupar As Boolean = False)
         Dim DtDatos As New DataTable
         Dim ObjInventario As New ClsInventarios()
-        If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario, Agrupar:=Agrupar) Then
-            DtDatos = ObjInventario.DtResultados
+        If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue, Agrupar:=Agrupar) Then
+            DtDatos = ObjInventario.DtResultados.Copy
         End If
         ObjInventario.Dispose()
 

Inventarios/Kardex.aspx.vb

@@ -343,11 +343,16 @@ Partial Class Inventarios_Kardex
             EntradaSalida = " Solo Salidas"
         End If
 
+        Dim CveTiposAlmacen = ""
+        For Each item As ListItem In CBLTiposAlmacen.Items
+            CveTiposAlmacen += If(item.Selected, $"{item.Value},", "")
+        Next
+
         Dim Serie As String = If(TxtSerie.Text <> "", TxtSerie.Text, "-1")
 
         Dim SerieAgrupado As String = If(TxtSerie.Text = "", "", $"<b>Existencia y costos calculada por numero de serie:</b>&nbsp;{TxtSerie.Text} ")
 
-        If Movimientos.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, "1", DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie) Then
+        If Movimientos.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie) Then
 
             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)

Ventas/PV.aspx

@@ -2840,7 +2840,7 @@
                                                     <div class="row">
                                                         <div class="col-md-8">
                                                             <div class="form-group form-md-line-input input-iconright">
-                                                                <asp:DropDownList ID="DdlFolioGarantia" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" Width="100%">
+                                                                <asp:DropDownList ID="DdlFolioGarantia" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" Width="100%" AutoPostBack="true">
                                                                 </asp:DropDownList>
                                                                 <asp:RequiredFieldValidator ID="RFVFolioGarantia" runat="server" ControlToValidate="DdlFolioGarantia" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCEFolioGarantia" runat="server" HighlightCssClass="vco" TargetControlID="RFVFolioGarantia"></ajax:ValidatorCalloutExtender>

Ventas/PV.aspx.vb

@@ -5427,6 +5427,16 @@ Partial Class PV
         RegistraScript("Recalcula();", "Recalcula")
     End Sub
 
+    Protected Sub DdlFolioGarantia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFolioGarantia.SelectedIndexChanged
+        Dim ObjAcumuladores As New ClsAcumuladores
+        If ObjAcumuladores.GetNuevoConsecutivoFolio(DdlFolioGarantia.SelectedValue.ToEntero) Then
+            Dim resultado As String = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo")
+            TxtConsecutivoAjuste.Text = resultado
+            UpAjuste.Update()
+        End If
+        ObjAcumuladores.Dispose()
+    End Sub
+
 #End Region
 
 #Region "U S A D O S"