que tome el corte de la factura registrada

Bancos/PopIEVentas.aspx.vb

@@ -302,8 +302,8 @@ Partial Class Bancos_PopIEVentas
         Set(value As String)
             ViewState("SerieFolio") = value
         End Set
-    End Property
-
+    End Property
+
     Private Property CveMonedaVenta As Integer
         Get
             Return ViewState("CveMonedaVenta").ToString.ToEntero
@@ -728,6 +728,10 @@ Partial Class Bancos_PopIEVentas
                 TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
                 CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
 
+                If UsuarioActual.CveEmpresa = 140 Then 'codigo temporal. RMF permite cargar el corte 
+                    CveCorte = dr("CveCorte").ToString.ToEntero
+                End If
+
                 LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
 
                 'Configuración de Modalidad Update