-- E189, que genere folio al inicial la página

Ventas/Promociones.aspx.vb

@@ -329,6 +329,7 @@ Partial Class Ventas_Promociones
 
             TxtPromocion.Enabled = False
             TxtPromocion.ReadOnly = True
+            CargaFolio()
 
         End If
 
@@ -1577,6 +1578,11 @@ Partial Class Ventas_Promociones
 
 
     Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaFolio()
+    End Sub
+
+    Private Sub CargaFolio()
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             If Me.CvePromocion <= 0 Then
                 Dim ObjFolios As New ClsGralFolios()
                 If ObjFolios.GetFolios("PRM", UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()) Then
@@ -1592,5 +1598,7 @@ Partial Class Ventas_Promociones
 
                 UpGenerales.Update()
             End If
+        End If
+
     End Sub
 End Class