Cambios en folios de garantia

Inventarios/RecepcionUsados.aspx.vb

@@ -3258,6 +3258,11 @@ Partial Class Inventarios_RecepcionUsados
             Exit Sub
         End If
 
+        If Not ValidaConsecutivo() Then
+            Alert("Ya existe un consecutivo vigente en este folio", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim ObjPS As New ClsProductosServicios
         Try
             Dim CveTamaño As Integer = -1
@@ -3489,6 +3494,29 @@ Partial Class Inventarios_RecepcionUsados
         UpAjuste.Update()
     End Sub
 
+    Protected Sub TxtConsecutivoAjuste_TextChanged(sender As Object, e As EventArgs) Handles TxtConsecutivoAjuste.TextChanged
+        If Not ValidaConsecutivo() Then
+            Alert("Ya existe un consecutivo vigente en este folio", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+    End Sub
+
+    Private Function ValidaConsecutivo() As Boolean
+        Dim Retorno As Boolean = True
+
+        If DdlFolioGarantia.SelectedValue.ToEntero() > 0 Then
+            Using ObjAcum As New ClsAcumuladores
+                If ObjAcum.GetFoliosGarantiasDetalle(DdlFolioGarantia.SelectedValue.ToEntero(), CveEstatusConsecutivo:=1, Consec:=TxtConsecutivoAjuste.Text.ToEntero()) Then
+                    If ObjAcum.DtResultados.Rows.Count > 0 Then
+                        Retorno = False
+                    End If
+                End If
+            End Using
+        End If
+
+        Return Retorno
+    End Function
+
 #Region "P O L I Z A - V I R T U A L"
     Private Sub CreaDTmpDTPolizaVirtual()
         TmpDTPolizaVirtual = New DataTable