Procesos 324,325,326

Ventas/Ventas.aspx.vb

@@ -4911,11 +4911,11 @@ Partial Class Ventas
                         'ACTIVA CONVERSION DE MONEDA
                         If DdlMoneda.SelectedValue.ToEntero() = 1 Then
                             TrConversionDolares.Visible = True
-                            ChkConvertirDolares.Enabled = True
+                            ChkConvertirDolares.Enabled = Not UsuarioActual.TienePermisoProceso(324)
                             TxtTipoCambioDlls.Enabled = True
                         Else
                             TrConversionTipoCambio.Visible = True
-                            ChkConvertirDoctoPesos.Enabled = True
+                            ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
                             TxtTipoCambio.Enabled = True
                         End If
                     End If
@@ -5308,9 +5308,15 @@ Partial Class Ventas
 
         'FACTURACION 3.3
 
-        DdlMetodoPago33.DataSource = GlobalDTVtaMetodoPago
+        'No puede asignar PUE como método de pago
+        If UsuarioActual.TienePermisoProceso(326) Then
+            DdlMetodoPago33.DataSource = GlobalDTVtaMetodoPago.FiltraParametros("CveMetodoPago <> 1")
+        Else
+            DdlMetodoPago33.DataSource = GlobalDTVtaMetodoPago
+        End If
+
         DdlMetodoPago33.DataBind()
-        DdlMetodoPago33.SelectedValue = "3"
+        DdlMetodoPago33.SelectedValueExist("3")
 
         CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
 
@@ -6163,7 +6169,9 @@ Partial Class Ventas
                 'si  llegó por la opción de cotización no debe de restringuir
                 If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
                 DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
-                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                If Not UsuarioActual.TienePermisoProceso(325) Then
+                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                End If
                 DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
                 LnkPedido2SinFacturar.Visible = False
                 LnkCotizaciones.Visible = False
@@ -6202,7 +6210,9 @@ Partial Class Ventas
                         If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
                         'quito remisión y factura
                         DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
-                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                        If Not UsuarioActual.TienePermisoProceso(325) Then
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                        End If
                         DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
                         If Opcion = 1 Then
                             BtnEmitirImprimir.Visible = False
@@ -6261,7 +6271,9 @@ Partial Class Ventas
                     'si  llegó por la opción de cotización no debe de restringuir
                     If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
                     DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
-                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                    If Not UsuarioActual.TienePermisoProceso(325) Then
+                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                    End If
                     DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
                     BtnsFacturar.Visible = False
                     LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
@@ -6298,7 +6310,9 @@ Partial Class Ventas
                         Exit Sub
                     ElseIf DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso EsCreaApartirDe Then
                         DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
-                        DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                        If Not UsuarioActual.TienePermisoProceso(325) Then
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+                        End If
                         DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
                         DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2"))
                         DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs"))
@@ -20442,10 +20456,12 @@ Partial Class Ventas
                 TxtTipoCambio.Text = "1"
                 TxtTipoCambioDlls.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
                 TrConversionDolares.Visible = True
+                ChkConvertirDolares.Enabled = Not UsuarioActual.TienePermisoProceso(324)
             Case "2"
                 TxtTipoCambioDlls.Text = "1"
                 TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
                 TrConversionTipoCambio.Visible = True
+                ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
             Case Else
                 TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
                 TrConversionTipoCambio.Visible = True
@@ -27588,7 +27604,7 @@ Partial Class Ventas
         If DdlMoneda.SelectedValue = "2" Then
             TrConversionTipoCambio.Visible = True
         End If
-        ChkConvertirDoctoPesos.Enabled = True
+        ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
         TxtTipoCambio.Enabled = True
         TxtTotal.ReadOnly = False
         TxtTotal.Attributes("readonly") = "readonly"
@@ -28778,11 +28794,11 @@ Partial Class Ventas
 
             If DdlMoneda.SelectedValue.ToEntero() = 1 Then
                 TrConversionDolares.Visible = True
-                ChkConvertirDolares.Enabled = True
+                ChkConvertirDolares.Enabled = Not UsuarioActual.TienePermisoProceso(324)
                 TxtTipoCambioDlls.Enabled = True
             Else
                 TrConversionTipoCambio.Visible = True
-                ChkConvertirDoctoPesos.Enabled = True
+                ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
                 TxtTipoCambio.Enabled = True
             End If
 
@@ -29287,7 +29303,7 @@ Partial Class Ventas
 
         'Sección Detalle
         DdlMoneda.Enabled = True
-        ChkConvertirDoctoPesos.Enabled = True
+        ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
         TxtTipoCambio.Enabled = True
         TxtFechaEjecucion.ReadOnly = False
         TxtFechaEjecucion.Text = Now.ToShortDateString