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

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"