diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 3ac8e9d78..785aa3c2f 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2943,7 +2943,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%" AutoPostBack="true">
+                                                                    <asp:DropDownList ID="DdlFolioGarantia" CssClass="form-control input-sm select2me" runat="server" 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>
@@ -3162,7 +3162,7 @@
 
             //MARCA OPTIMA
             if (CveMarca == "1086") {
-                var regex = new RegExp("^\d{4}$|^[A-L][0-9][1-9A-Z][A-HJ-M]$");
+                var regex = new RegExp("[0-9]{4}");
                 arguments.IsValid = regex.test(arguments.Value);
                 return;
                 //MARCA MOTOBATERIAS
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index ab7bfa809..bbe7b6029 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -3954,6 +3954,19 @@ Partial Class PV
     End Sub
     Private Sub DdlSubProyectoDatos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyectoDatos.SelectedIndexChanged
         CambiaSucursalGeneral()
+
+        If UsuarioActual.Empresa.Funcionalidad(531).ToString = "1" Then
+            Dim ObjAcum As New ClsAcumuladores
+            If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then
+                DdlFolioGarantia.DataSource = ObjAcum.DtResultados.FiltraParametros($"CveSubProyecto={DdlSubProyectoDatos.SelectedValue}")
+            End If
+            ObjAcum.Dispose()
+            DdlFolioGarantia.DataBind()
+            DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
+
+        UpAjuste.Update()
+        UpModalVenta.Update()
     End Sub
     Private Sub CambiaSucursalGeneral()
         Dim ObjSubProyectos As New ClsSubProyectos
@@ -6228,10 +6241,12 @@ Partial Class PV
     Private Sub CargaAjuste()
         Dim ObjAcum As New ClsAcumuladores
         If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then
-            DdlFolioGarantia.DataSource = ObjAcum.DtResultados
-            DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlFolioGarantia.DataSource = ObjAcum.DtResultados.Copy().FiltraParametros($"CveSubProyecto={DdlSubProyectoDatos.SelectedValue}")
         End If
         ObjAcum.Dispose()
+        DdlFolioGarantia.DataBind()
+        DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
 
         DdlFacturas.Items.Insert(0, New ListItem("Sin Factura", "-1"))
 
@@ -6264,6 +6279,8 @@ Partial Class PV
         DdlDistribuidor.setEsWebService(True)
         DivChkAjuste.Visible = True
 
+        UpAjuste.Update()
+        UpModalVenta.Update()
     End Sub
 
     Private Sub CargaModelos()
@@ -6536,6 +6553,13 @@ Partial Class PV
             HdnPSAjusteMarca.Value = CveMarca.ToString()
             HdnPSAjusteClasificacion.Value = CveClasificacion.ToString()
 
+            'MARCA OPTIMA
+            If CveMarca = 1086 Then
+                TxtCodInspeccion.MaxLength = 4
+            Else
+                TxtCodInspeccion.MaxLength = 50
+            End If
+
         End If
 
         If Not DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso DdlFacturas.SelectedValue.ToEntero > 0 Then
@@ -6801,26 +6825,29 @@ Partial Class PV
     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 Integer = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo").ToEntero
-            If ObjAcumuladores.FoliosGarantiaGet(DdlFolioGarantia.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-                Dim Limite As Integer = If(ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite") IsNot Nothing, ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero, 0) 'ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero
-                If resultado < Limite Or Limite = 0 Then
-                    TxtConsecutivoAjuste.Text = (resultado + 1).ToString
-                Else
-                    Alert("limite de folios alcanzado")
+        If DdlFolioGarantia.SelectedValue.ToEntero > 0 Then
+            Dim ObjAcumuladores As New ClsAcumuladores
+            If ObjAcumuladores.GetNuevoConsecutivoFolio(DdlFolioGarantia.SelectedValue.ToEntero) Then
+                Dim resultado As Integer = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo").ToEntero
+                If ObjAcumuladores.FoliosGarantiaGet(DdlFolioGarantia.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                    Dim Limite As Integer = If(ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite") IsNot Nothing, ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero, 0) 'ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero
+                    If resultado < Limite Or Limite = 0 Then
+                        TxtConsecutivoAjuste.Text = (resultado + 1).ToString
+                    Else
+                        Alert("limite de folios alcanzado")
+                    End If
                 End If
+                UpAjuste.Update()
             End If
-            UpAjuste.Update()
-        End If
-        ObjAcumuladores.Dispose()
+            ObjAcumuladores.Dispose()
 
-        Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(DdlPSAjuste.SelectedValue.ToEntero(), DdlFolioGarantia.SelectedValue.ToEntero())
+            Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(DdlPSAjuste.SelectedValue.ToEntero(), DdlFolioGarantia.SelectedValue.ToEntero())
 
-        If Not FolioGarantia.Valido Then
-            Alert($"El folio de garantía no es valido.<br/> Clasificacion del Producto:{FolioGarantia.ClasificacionPS}.<br/>Tipo Folio:{FolioGarantia.TipoFolio}", TipoMensaje.MsgAdvertencia)
+            If Not FolioGarantia.Valido Then
+                Alert($"El folio de garantía no es valido.<br/> Clasificacion del Producto:{FolioGarantia.ClasificacionPS}.<br/>Tipo Folio:{FolioGarantia.TipoFolio}", TipoMensaje.MsgAdvertencia)
+            End If
         End If
+
     End Sub
 
 #End Region