Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2020-07-17 20:17:48 -07:00
parent 59611c12e7 b93cb532e4
commit f621428e92
88 changed files with 1055 additions and 483 deletions
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -355,7 +355,7 @@ Partial Class Ventas_ClientesAbonar

    Private Sub CargaCuentas()
        DdlCuenta.Items.Clear()
-        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
+        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)

        If ChkPagarPesos.Checked Then
            dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
@@ -454,10 +454,10 @@ Partial Class Ventas_ClientesAbonar

    Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
        'recargo la moneda con la que se va a pagar
-        Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
+        Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
        Dim moneda As Integer = 0
        If DdlCuenta.SelectedValue > 0 Then
-            moneda = GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
+            moneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
        End If

        CveMonedaPago = moneda
@@ -495,7 +495,7 @@ Partial Class Ventas_ClientesAbonar
        If IfNull(Request("CveMoneda"), "-1").ToString.ToEntero = -1 Then
            CargaDatos(-1)

-            moneda = GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
+            moneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
            If moneda = 1 Then
                'DivTC.Visible = True
                DivTCDolares.Visible = False
@@ -709,7 +709,7 @@ Partial Class Ventas_ClientesAbonar
            Dim ConceptoPoliza As String = String.Format("{0} {1}", TxtAboneA.Text, TxtObservaciones.Text)

            If DdlCuenta.SelectedValue > 0 Then
-                CveMoneda = GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
+                CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
            Else
                CveMoneda = If(Request("CveMoneda").ToString.ToEntero > 0, Request("CveMoneda").ToString.ToEntero, 1)
            End If
@@ -742,7 +742,7 @@ Partial Class Ventas_ClientesAbonar

                End If

-                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveIESustitucion:=CveIESustitucion, CveProveedorIntermediario:=CveProvIntermediario)
+                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveIESustitucion:=CveIESustitucion, CveProveedorIntermediario:=CveProvIntermediario)
            Else
                If RblTipoPago.SelectedValue.Contiene("3") Then
                    CveIE = DdlIngreso.SelectedValue.ToEntero
@@ -2738,7 +2738,7 @@ Partial Class Ventas_ClientesAbonar
        End If

        Dim DTTipoTransacciones As DataTable = GlobalDTTipoTransacciones.FiltraParametros($"CveTipoTransaccion={DdlTipoTransaccion.SelectedValue}")
-        Dim DTCuentas As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta={DdlCuenta.SelectedValue}")
+        Dim DTCuentas As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta={DdlCuenta.SelectedValue}")

        Dim ClaveFormaPagoSAT As String = ""
        Dim Cuentapago As String = ""
@@ -3048,7 +3048,7 @@ Partial Class Ventas_ClientesAbonar
            TxtTCDolaresDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)
        End If

-        Dim moneda As Integer = GlobalDTBancosCuentas(-1).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
+        Dim moneda As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
        If CveMonedaFiltro = -1 Then
            RegistraScript(String.Format("FnCambia(0,0,0,0,-1,{0});", moneda))
        Else
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5237,11 +5237,11 @@ Partial Class PV
        DdlCuentaTransferencia.Items.Clear()


-        DdlCuentaEfectivo.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
-        DdlCuentaTarjetaCredito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
-        DdlCuentaTarjetaDebito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
-        DdlCuentaCheque.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
-        DdlCuentaTransferencia.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
+        DdlCuentaEfectivo.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
+        DdlCuentaTarjetaCredito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
+        DdlCuentaTarjetaDebito.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
+        DdlCuentaCheque.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))
+        DdlCuentaTransferencia.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero <= 0, 1, DdlMoneda.SelectedValue.ToEntero)))

        DdlCuentaEfectivo.DataBind()
        DdlCuentaTarjetaCredito.DataBind()
@@ -5420,7 +5420,7 @@ Partial Class PV

    Private Sub CargaCuentasTerminal()
        DdlCuentasTerminal.Items.Clear()
-        DdlCuentasTerminal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
+        DdlCuentasTerminal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
        DdlCuentasTerminal.DataBind()
        DdlCuentasTerminal.Items.Insert(0, New ListItem("Seleccione", "-1"))
        UPTarjetaTermminal.Update()
--- a/Ventas/ProductosFinancieros.aspx.vb
+++ b/Ventas/ProductosFinancieros.aspx.vb
@@ -118,7 +118,7 @@ Partial Class Bancos_ProductosFinancieros
        CargaTipoTrasaccion()
    End Sub
    Private Sub CargaCuentas()
-        DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
+        DdlCuentas.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlCuentas.DataBind()
        DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub
@@ -284,7 +284,7 @@ Partial Class Bancos_ProductosFinancieros

        'Variables de controles
        Dim Importe As Double = TxtImporte.Text.ToDouble
-        Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero()
+        Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuentas.SelectedValue))("CveMoneda").ToString.ToEntero()
        Dim Fecha = TxtFecha.Text.ToDate

        'Variables de error
@@ -306,7 +306,7 @@ Partial Class Bancos_ProductosFinancieros
        'End If

        'OBTIENE LA CUENTA CONTABLE DEL BANCO
-        Dim DtCuentas = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"})
+        Dim DtCuentas = GlobalDTBancosCuentas(-1, DdlCuentas.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveCuenta", "IdCtaContable"})
        Dim CtaCuenta = -1

        If DtCuentas.Rows.Count = 1 Then
--- a/Ventas/RepRecuperacion.aspx.vb
+++ b/Ventas/RepRecuperacion.aspx.vb
@@ -180,7 +180,7 @@ Partial Class Ventas_RepRecuperacion

    Protected Sub DdlBanco_SelectedIndexChanged(sender As Object, e As EventArgs)
        DdlCuentaBancaria.Items.Clear()
-        DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
+        DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
        DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlCuentaBancaria.DataBind()
    End Sub
--- a/Ventas/RepRecuperacionDetalle.aspx.vb
+++ b/Ventas/RepRecuperacionDetalle.aspx.vb
@@ -230,7 +230,7 @@ Partial Class Ventas_RepRecuperacionDetalle
    Public Sub CargaCuentas()
        DdlCuentaBancaria.Items.Clear()
        If DdlBanco.SelectedValue.ToEntero > 0 Then
-            DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
+            DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
        End If
        DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlCuentaBancaria.DataBind()
--- a/Ventas/RepRecuperacionPeriodo.aspx.cs
+++ b/Ventas/RepRecuperacionPeriodo.aspx.cs
@@ -298,7 +298,7 @@ public partial class Ventas_RepRecuperacionPeriodo : ClsPaginas
    protected void BtnTipoCambio_Click(object sender, EventArgs e)
    {
        Consulta();
-    }
+    }

    protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)
    {
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -1948,7 +1948,7 @@ Partial Class Ventas
            CreaDTmpF()
            CreaDTDocumentosRelacionados()
            CargaDdlSubProyectos()
-            CargaProyecto()
+            'CargaProyecto()
            CargaSucursales()

            CargaClasificaciones()
@@ -4760,14 +4760,14 @@ Partial Class Ventas
        UpINV.Update()
    End Sub
    Private Sub CargaSubProyecto(Optional CveSubProyecto As Integer = -1)
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.SelectedValue = Nothing
-        If DdlProyecto.SelectedValue.ToEntero() > 0 Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-        End If
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
+        'DdlSubProyecto.Items.Clear()
+        'DdlSubProyecto.SelectedValue = Nothing
+        'If DdlProyecto.SelectedValue.ToEntero() > 0 Then
+        '    DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        '    'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+        'End If
+        'DdlSubProyecto.DataBind()
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
        If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
    End Sub

@@ -5651,8 +5651,8 @@ Partial Class Ventas
        DdlCuentasTerminal.Items.Clear()
        DdlCuentaTerminalModal.Items.Clear()

-        DdlCuentasTerminal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
-        DdlCuentaTerminalModal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
+        DdlCuentasTerminal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
+        DdlCuentaTerminalModal.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})

        DdlCuentasTerminal.DataBind()
        DdlCuentaTerminalModal.DataBind()
@@ -6153,23 +6153,23 @@ Partial Class Ventas
            TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString().ToDecimal)

            Dim ClienteRetIVA = Me.ClienteRetIVA
-            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
-                'ClienteRetIVA = 0.0D
-                If ClienteRetIVA <= 0 Then
-                    If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
-                        ClienteRetIVA = 0.106667D
-                    ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
-                        ClienteRetIVA = 0.04D
-                    ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(TmpDT.Rows(e.RowIndex)("EsOutSourcing").ToString()) Then
-                        ClienteRetIVA = 0.06D
-                    End If
+
+            If ClienteRetIVA <= 0 Then
+                If CBool(TmpDT.Rows(e.RowIndex)("EsOutSourcing").ToString()) Then
+                    ClienteRetIVA = 0.06D
+                    DdlTipoRetencion.SelectedValueExist("4")
+                    LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
+                    TrRetIVA.Style.Add("display", "")
+                    DdlTipoRetencion.Visible = True
+                ElseIf DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                    ClienteRetIVA = 0.106667D
+                ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                    ClienteRetIVA = 0.04D
                End If
-                ' LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
-                TrRetIVA.Style.Add("display", "")
-                DdlTipoRetencion.Visible = True
            End If


+
            TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero()
            TmpDT.Rows(e.RowIndex)("UM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedItem.Text
            TmpDT.Rows(e.RowIndex)("Cantidad") = Cantidad
@@ -8582,9 +8582,9 @@ Partial Class Ventas
            End Select
            ObjFactura.ComplementoINE = INE
        End If
-        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
-            ObjFactura.CveTipoRetencion = DdlTipoRetencion.SelectedValue.ToEntero()
-        End If
+
+        ObjFactura.CveTipoRetencion = DdlTipoRetencion.SelectedValue.ToEntero()
+
        ObjFactura.NuevaFactura = Me.NuevaFactura
    End Sub

@@ -9506,10 +9506,8 @@ Partial Class Ventas
            Next
        End If

-        Dim CveTipoRetencion As Integer = 0
-        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
-            CveTipoRetencion = factura.CveTipoRetencion
-        End If
+
+

        'SI LA FACTURA ESTA PAGADA DEBE MARCAR LA DEVOLUCION POR SI SE QUIERE AMORTIZAR
        If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso factura.TipoDocto = "Dev" Then
@@ -9531,7 +9529,7 @@ Partial Class Ventas
                           CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                           DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
-                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero) Then
+                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero) Then
            ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
        Else
            If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then
@@ -11206,13 +11204,13 @@ Partial Class Ventas
                                        Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIVA").ToDecimal


-                                        If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows.Count = 1 Then
-                                            IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContable").ToString().ToEntero()
+                                        If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count = 1 Then
+                                            IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("IdCtaContable").ToString().ToEntero()
                                            ' CveCuenta = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("IdCtaContableSIG").ToString().ToEntero()
                                        End If

                                        If IdCtaContable <= 0 Then
-                                            CuentasContablesInvalidas.AppendFormat("<br> {0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero()).Rows(0)("NumCuentaMoneda").ToString().ToEntero())
+                                            CuentasContablesInvalidas.AppendFormat("<br> {0}", GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("NumCuentaMoneda").ToString().ToEntero())
                                            idCuentaContabilizacion = 0
                                        End If

@@ -15229,24 +15227,23 @@ Partial Class Ventas
        End If

        Dim ClienteRetIVA = Me.ClienteRetIVA
-        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
-            'ClienteRetIVA = 0.0D
-            If ClienteRetIVA <= 0 Then
-                If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
-                    ClienteRetIVA = 0.106667D
-                ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
-                    ClienteRetIVA = 0.04D
-                ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(DrPS("EsOutSourcing").ToString()) Then
-                    ClienteRetIVA = 0.06D
-                End If

+        If ClienteRetIVA <= 0 Then
+            If CBool(DrPS("EsOutSourcing").ToString()) Then
+                ClienteRetIVA = 0.06D
+                DdlTipoRetencion.SelectedValueExist("4")
+            ElseIf DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                ClienteRetIVA = 0.106667D
+            ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                ClienteRetIVA = 0.04D
            End If
-
-            ' LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
-            TrRetIVA.Style.Add("display", "")
-            DdlTipoRetencion.Visible = True
        End If

+        LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero
+        TrRetIVA.Style.Add("display", "")
+        DdlTipoRetencion.Visible = True
+
+
        Row("IVA") = Row("PorcentajeIVA")
        Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales)
        Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
@@ -15283,6 +15280,7 @@ Partial Class Ventas
        Row("CveVentaDetalleCotizacion") = CveVentaDetalleCotizacion
        Row("CveVentaDetallePedido2") = CveVentaDetallePedido2
        Row("CuentaPredial") = CuentaPredial
+        Row("EsOutSourcing") = DrPS("EsOutSourcing")

        If UsuarioActual.CveEmpresa = 119 Then
            If Not RemisionesLista.Count > 0 Then 'SI VIENE DE REMISION NO SE CONSIDERA
@@ -18048,7 +18046,7 @@ Partial Class Ventas
        DdlCuentaCheque.Items.Clear()
        DdlCuentaTransferencia.Items.Clear()

-        Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
+        Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)

        DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
        DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
@@ -18076,13 +18074,13 @@ Partial Class Ventas
            Case 1
                DivContadoOtrosCuenta.Attributes.Add("class", "col-md-3")
                DivMesesSinIntereses2.Visible = True
-                DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+                DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
                Exit Select
            Case 2
-                DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+                DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
                Exit Select
            Case 3
-                DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+                DdlCuentaOtrosContado.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
                Exit Select
            Case -1
                DdlCuentaOtrosContado.DataSource = Nothing
@@ -25878,8 +25876,8 @@ Partial Class Ventas
    Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)

        If CveVenta <= 0 OrElse EsCreaApartirDe Then
-            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
-                If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
+
+            If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
                    For Each RowServicio As DataRow In TmpDT.Rows
                        Dim tClienteRetIVA = ClienteRetIVA
                        If tClienteRetIVA <= 0 Then
@@ -25912,7 +25910,7 @@ Partial Class Ventas


                End If
-            End If
+

        End If
        UpPS.Update()