From 6b3f0e6c9542e631799316819e3b7ac642874bea Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 18 Jan 2022 15:37:14 -0700 Subject: [PATCH] FolioFijo --- Ventas/Ventas.aspx | 2 +- Ventas/Ventas.aspx.vb | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) 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 @@ Serie - Folio: - - + 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()