habilitar opciones al editar

Ventas/Ventas.aspx.vb

@@ -2825,7 +2825,7 @@ Partial Class Ventas
                     BtnCrearApartirDe.Visible = True
                     If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False
 
-                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") AndAlso LblSeTimbro.Text = "No" Then BtnEditar.Visible = True
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
 
                     DivFechaAnticipoCliente.Visible = True
                     TxtFechaAnticipoCliente.Text = Now.ToShortDateString
@@ -34786,6 +34786,17 @@ Partial Class Ventas
             DdlUsoCFDI.Enabled = True
         End If
 
+        If Not UsuarioActual.TienePermisoProceso(289) Then
+            If LblSeTimbro.Text = "No" Then
+                DdlUsoCFDI.Enabled = False
+                DdlMetodoPago33.Enabled = False
+                DdlFormaPago33.Enabled = False
+            End If
+
+            TxtFechaPago.Enabled = True
+            imgCalendario.Enabled = True
+        End If
+
         If LblSeTimbro.Text = "No" AndAlso DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso ChkEmitirComercioExterior.Checked AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then
             TxtTipoCambio.Enabled = True
             TxtTipoCambio.ReadOnly = False