-

2021-07-01 08:39:22 -07:00
parent 12c8af04e7 8e525c514f
commit 4a3ce04b28
8 changed files with 89 additions and 41 deletions
--- a/AC/RepPresupuestoEgresos.aspx
+++ b/AC/RepPresupuestoEgresos.aspx
@@ -300,7 +300,7 @@
                                </asp:BoundField>--%>
                                <asp:TemplateField HeaderText="Por Pagar">
                                    <ItemTemplate>
-                                        <asp:Label ID="lblXPagar" runat="server" Text='<%# (CDbl(Eval("Ejercido").ToString) - CDbl(Eval("Pagado").ToString)).ToString("N2")%>'></asp:Label>
+                                        <asp:Label ID="lblXPagar" runat="server" Text='<%# (CDbl(Eval("Devengado").ToString) - CDbl(Eval("Pagado").ToString)).ToString("N2")%>'></asp:Label>
                                    </ItemTemplate>
                                    <ItemStyle HorizontalAlign="Right" Width="120px" />
                                </asp:TemplateField>
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -5038,6 +5038,24 @@ Public Class ClsVentas
        Return Retorno
    End Function

+    Public Function RemoveRNCFacturada(CveVentaNC As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_RNCRelacionadasRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVentaNC", SqlDbType.Int).Value = CveVentaNC
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar las RNC Relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 #End Region

 #Region "P O R C E N T A J E - C O M I S I O N E S"
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -2963,7 +2963,7 @@ Namespace Modelos
                                        Next
                                    End If

-                                    If UsuarioActual.Empresa.Funcionalidad(344) = "1" Then
+                                    If UsuarioActual.Empresa.Funcionalidad(344) = "1" AndAlso ObjFactura.TipoDocto = "Egs" Then
                                        Dim ListaNC As List(Of Modelos.Factura) = New List(Of Factura)
                                        Dim DtRNCRelacionas As DataTable = Nothing

@@ -3034,6 +3034,11 @@ Namespace Modelos
                                                    importeMovimiento = 0
                                                End If
                                            Next
+
+                                            If Not ObjVentas.RemoveRNCFacturada(CveVenta) Then
+                                                ErrorPrepoliza = True
+                                            End If
+
                                        End If
                                    End If
                                Else
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -243,7 +243,7 @@ Partial Class Compras_ReembolsosComprobaciones
    Private Sub CargaCuentas()
        DdlCuenta.Items.Clear()
        DdlCuenta.SelectedIndex = -1
-        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=2) 'solo cuentas "bancarias"
+        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)

        dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))

@@ -799,7 +799,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                    End If
                                Else
                                    'Agrego el IVA
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                        MsgError = "Detalle"
                                    End If
                                    'Agrego el IVA
@@ -1129,7 +1129,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                        End If
                                    Else
                                        'Agrego el IVA
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                            MsgError = "Detalle"
                                        End If

--- a/Contratos/FacturacionMasiva.aspx.vb
+++ b/Contratos/FacturacionMasiva.aspx.vb
@@ -433,11 +433,12 @@ Partial Class Contratos_FacturacionMasiva
        ObjFactura.Folio = -1
        ObjFactura.Serie = "-1"
        ObjFactura.CveMesa = -1
-        ObjFactura.Fecha = DR("FechaVenc").ToString.ToDate 'If(DR("FechaVenc").ToString.ToDate > Now, Now, DR("FechaVenc").ToString.ToDate)
+        ObjFactura.Fecha = If(DR("FechaVenc").ToString.ToDate > Now, Now, DR("FechaVenc").ToString.ToDate)
+
        ObjFactura.CvePrePoliza = -1
        ObjFactura.CveMetodoPago = 1
-        ObjFactura.MetodoPago = "Efectivo"
-        ObjFactura.FechaPago = DateTime.Today
+        ObjFactura.MetodoPago = "Efectivo"
+
        ObjFactura.MotivoDescuento = ""
        ObjFactura.Observaciones = If(String.IsNullOrEmpty(TxtObservaciones.Text), "", TxtObservaciones.Text + " ") + DR("Observaciones").ToString
        ObjFactura.FechaEjecucion = DateTime.Today
@@ -567,6 +568,13 @@ Partial Class Contratos_FacturacionMasiva
                ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
                ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
                ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
+
+                'AGREGAR LOS PLAZOS PARA EL PAGO DEL CLIENTE
+                Dim FechaPago As DateTime = ObjFactura.Fecha.AddDays(ObjCliente.PlazoCobranza)
+                ObjFactura.FechaVencimiento = FechaPago
+                ObjFactura.Vigencia = FechaPago
+                ObjFactura.FechaPago = FechaPago
+
            End If
        End If
        ObjCliente.Dispose()
--- a/Ventas/Promociones.aspx
+++ b/Ventas/Promociones.aspx
@@ -254,7 +254,7 @@
                            <div class="row">
                                <label class="col-md-3 truncate">Tipo Promoción:</label>
                                <div class="col-md-9">
-                                    <asp:DropDownList ID="DdlTipoPromocion" DataTextField="TipoPromocion" DataValueField="CveTipoPromocion" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPromocion_SelectedIndexChanged">
+                                    <asp:DropDownList ID="DdlTipoPromocion" DataTextField="TipoPromocion" DataValueField="CveTipoPromocion" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" >
                                        <asp:ListItem Text="Seleccione" Value="-1" Selected="True" />
                                        <asp:ListItem Text="Importe $" Value="1" />
                                        <asp:ListItem Text="Descuento %" Value="2" />
@@ -272,7 +272,7 @@
                                </div>
                            </div>

-                            <div class="row" id="DivCantMinima" visible="false" runat="server">
+                            <div class="row" id="DivCantMinima" runat="server">
                                <label class="col-md-3 truncate">Cantidad Mínima:</label>
                                <div class="col-md-9">
                                    <asp:TextBox ID="TxtCantMinima" Text="" runat="server" />
@@ -287,9 +287,9 @@
                            <div class="row" runat="server" id="DivRin" visible="false">
                                <label class="col-md-3 truncate">Rin:</label>
                                <div class="col-md-9">
-                                    <asp:DropDownList ID="DdlRin" DataTextField="RinTamaño" DataValueField="CveRinTamaño" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPromocion_SelectedIndexChanged">
+                                    <asp:DropDownList ID="DdlRin" DataTextField="RinTamaño" DataValueField="CveRinTamaño" Width="100%" CssClass="select2me" runat="server" >
                                    </asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" InitialValue="-1" ControlToValidate="DdlTipoPromocion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Promoción''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpAgregar"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" InitialValue="-1" ControlToValidate="DdlRin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Rin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpAgregar"></asp:RequiredFieldValidator>
                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoPromocion" Width="300px"></ajax:ValidatorCalloutExtender>
                                </div>
                            </div>
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -104,7 +104,7 @@ Partial Class Ventas_Promociones
        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))

        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
-            GvDatos.Columns(7).Visible = True
+            GvDatos.Columns(8).Visible = True
            DivRin.Visible = True
            Dim ObjGral As New ClsGenerales
            If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
@@ -235,7 +235,7 @@ Partial Class Ventas_Promociones
        LbPUActual.Text = ""
        DdlTipoPromocion.SelectedValue = "-1"
        TxtPromocionConcepto.Text = ""
-        TxtCantMinima.Text = ""
+        TxtCantMinima.Text = "1"

        ChkRestricciones.Checked = False
        'DivRestricciones.Visible = False
@@ -259,6 +259,11 @@ Partial Class Ventas_Promociones
            Exit Sub
        End If

+        If TxtCantMinima.Text.ToEntero <= 0 Then
+            Alert("La cantidad minima debe ser de 1", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
        Dim Dr As DataRow = Nothing

        If CveConsecutivo >= 0 Then
@@ -291,11 +296,7 @@ Partial Class Ventas_Promociones
            Dr("PUPromocion") = LbPUActual.Text.ToDecimal - (LbPUActual.Text.ToDecimal * TxtPromocionConcepto.Text.ToDecimal / 100)
        End If

-        If DdlTipoPromocion.SelectedValue.ToEntero = 3 Then
-            Dr("CantidadMinima") = TxtCantMinima.Text.ToEntero
-        Else
-            Dr("CantidadMinima") = 1
-        End If
+        Dr("CantidadMinima") = TxtCantMinima.Text.ToEntero

        If ChkRestricciones.Checked Then
            Dr("AplicaRestriccionTexto") = "Si"
@@ -369,7 +370,7 @@ Partial Class Ventas_Promociones

            LbPUActual.Text = Gvr.DataKey("PUAnterior").FormatoNumero
            DdlTipoPromocion.SelectedValue = Gvr.DataKey("CveTipoPromocion")
-            DdlTipoPromocion_SelectedIndexChanged(sender, Nothing)
+            'DdlTipoPromocion_SelectedIndexChanged(sender, Nothing)
            TxtPromocionConcepto.Text = Gvr.DataKey("Promocion").FormatoNumero(4)
            TxtCantMinima.Text = Gvr.DataKey("CantidadMinima")

@@ -533,11 +534,11 @@ Partial Class Ventas_Promociones
    End Sub
 #End Region

-    Protected Sub DdlTipoPromocion_SelectedIndexChanged(sender As Object, e As EventArgs)
-        If DdlTipoPromocion.SelectedValue = "3" Then
-            DivCantMinima.Visible = True
-        Else
-            DivCantMinima.Visible = False
-        End If
-    End Sub
+    'Protected Sub DdlTipoPromocion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPromocion.SelectedIndexChanged
+    '    If DdlTipoPromocion.SelectedValue = "3" Then
+    '        DivCantMinima.Visible = True
+    '    Else
+    '        DivCantMinima.Visible = False
+    '    End If
+    'End Sub
 End Class
--- a/Ventas/Ventas.aspx.vb
+++ b/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())

@@ -6180,7 +6186,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
@@ -6218,7 +6226,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
@@ -6277,7 +6287,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)
@@ -6332,7 +6344,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"))
@@ -16729,11 +16743,11 @@ Partial Class Ventas

        Dim dr As DataRow = Nothing
        If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
-            dr = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL) AND (TipoPromocion <> 3 OR (TipoPromocion = 3 AND CantidadMinima <= {3} ))", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc ")
+            dr = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {3} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {3} ))", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc ")
            If dr Is Nothing Then

                'verifica marca, si tiene asignada la promocion
-                dr = DtPromociones.FiltroPrimero(String.Format("CvePS IS NULL AND CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND (TipoPromocion <> 3 OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc")
+                dr = DtPromociones.FiltroPrimero(String.Format("CvePS IS NULL AND CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {4} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, TxtCantidad.Text), Orderby:="CantidadMinima desc")

            End If
        End If
@@ -20476,10 +20490,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
@@ -27622,7 +27638,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"
@@ -28812,11 +28828,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

@@ -29321,7 +29337,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