diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index fef400a83..70fd3d3af 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -637,7 +637,7 @@
                             <td><b>Serie - Folio:</b></td>
                             <td>
                                 <asp:Label ID="LblSerie" runat="server"></asp:Label>-
-                                            <asp:TextBox ID="TxtFolio" runat="server" BorderStyle="None" Text="000" MaxLength="7" Width="60px" ValidationGroup="GrpEmitirImprimir" Style="text-align: left"></asp:TextBox>
+                                            <asp:TextBox ID="TxtFolio" runat="server" BorderStyle="None" Text="000" MaxLength="7" Width="60px" ValidationGroup="GrpEmitirImprimir" Style="text-align: left" autopostback="true"></asp:TextBox>
                                 <asp:RequiredFieldValidator ID="RFVFolio" runat="server" ControlToValidate="TxtFolio" 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="GrpEmitirImprimir"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender10" runat="server" HighlightCssClass="vco" TargetControlID="RFVFolio" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <asp:CompareValidator ID="CVFolio" runat="server" ControlToValidate="TxtFolio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> no tiene el formato correcto, solo formato numérico." Operator="DataTypeCheck" Type="Integer" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b4c407d93..155089a48 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -30795,6 +30795,11 @@ Partial Class Ventas
                 TxtFolio.Text = FolioFijo.ToString()
             End If
 
+            If EstablecioFolio AndAlso UsuarioActual.CveEmpresa = 140 Then ' CÓDIGO TEMPORAL 2022/01/17
+                FolioFijo = TxtFolio.Text.ToEntero()
+                ViewState("FolioActual") = FolioFijo
+            End If
+
             Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue
             DdlTipoComprobante.SelectedValue = TipoDoctoNuevo
             TxtFecha.Text = Now.ToString()