Merge branch 'master' of http://192.168.10.111:8383/SIG

2023-01-28 11:20:04 -07:00
parent 3e173b1214 d0f3bf92c7
commit d25ff845bf
8 changed files with 64 additions and 27 deletions
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9888,6 +9888,8 @@ Public Class ClsPaginas

        Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 17, Pago.CveConceptoPago)  'si viene en parametro lo toma com primera opcion, sino el 17
        If CompraActual.CveTipoConceptoProveedor = 2 Then Pago.CveConceptoPago = 308 'cuando es acreedor
+        '
+        If Pago.CveConceptoPago = 272 And CompraActual.CveMoneda = 2 Then Pago.CveConceptoPago = 304 'pago nota de crédito ME
        If CompraActual.CveMoneda <> 1 Then
            Select Case Pago.CveConceptoPago
                Case 17 : Pago.CveConceptoPago = 312
@@ -10558,14 +10560,13 @@ Public Class ClsPaginas
        'si tiene otros gastos/ingresos
        ImporteMovimiento = Pago.OtroGastoIngreso
        If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then
-            Dim tOtCveCon As Integer = 211
-            Dim tOtTipoMovto As Boolean = False
+            Dim tOtCveCon As Integer = 78
+            Dim tOtTipoMovto As Boolean = True
            If ImporteMovimiento < 0 Then
-                tOtTipoMovto = True : tOtCveCon = 78
+                tOtTipoMovto = False : tOtCveCon = 211
                ImporteMovimiento = Math.Abs(ImporteMovimiento)
            End If
            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveSubProyecto:=VentaActual.CveSubProyecto, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
-
        End If

        If Not ErrorMovtos AndAlso TCValuacionVenta <> TCValuacionPago Then
--- a/App_Code/ClsVtaVendedores.vb
+++ b/App_Code/ClsVtaVendedores.vb
@@ -261,6 +261,26 @@ Public Class ClsVtaVendedores

        Return Retorno
    End Function
+
+    Public Function CambioClientesVendedor(CveCliente As Integer, CveVendedor As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ClientesVendedorCambio")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios de Vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
    ' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not disposedValue Then
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -3468,6 +3468,22 @@ Namespace Extensiones

        End Sub
        <Runtime.CompilerServices.Extension()>
+        Public Sub SelectedTextExist(Obj As DropDownList, Valor As Object)
+
+            If (Obj.Items.FindByText(Valor.ToString()) IsNot Nothing) Then Obj.SelectedValue = Obj.Items.FindByText(Valor.ToString()).Value
+
+        End Sub
+        <Runtime.CompilerServices.Extension()>
+        Public Sub SelectedTextLikeIfExist(ByRef Rbl As DropDownList, ByRef Valor As String)
+            If Valor <> "" Then
+                For Each item As ListItem In Rbl.Items
+                    If item.Text.Contains(Valor) Then
+                        item.Selected = True
+                    End If
+                Next
+            End If
+        End Sub
+        <Runtime.CompilerServices.Extension()>
        Public Sub SelectedValuesIfExist(ByRef Rbl As RadioButtonList, ByRef Value As String)
            Try
                Dim valores As String() = Value.Split(CType(",", Char()))
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -925,7 +925,7 @@ Partial Class Bancos_IE

                LblCuenta.Text = ObjIE.BancoNumCuentaMoneda
                ViewState("CvePrePoliza") = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
-                HpLPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePoliza.aspx?CvePrepoliza={0}", ViewState("CvePrePoliza"))
+                HpLPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}", ViewState("CvePrePoliza"))
                HpLPrePoliza.Visible = True
                TxtFechaDocumento.Text = ObjIE.FechaDocumento.ToShortDateString
                TxtFolio.Text = ObjIE.Folio
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -584,8 +584,8 @@ Partial Class ContabilidadC_RegPrePolizaS

            Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero

-            If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 272) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
-            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
+            If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
+            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
            If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
            If CveConceptoContable.Contiene(30, 204, 66, 92) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))

--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -730,7 +730,7 @@ Partial Class General_SaldosIniciales
                    Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString().ToEntero()
                    Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}' OR Abreviatura = '{UnidadMedida}'").ToString().ToEntero()
                    Dim CveSATPS As Integer = ClsPaginas.GlobalDTPSATPS("-1", CodigoSAT:=SATClavePS).FiltroPrimeroValor("CveSATPS", "").ToEntero()
-                    Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}' AND CveEmpresa = {UsuarioActual.CveEmpresa}").ToString().ToEntero()
+                    Dim CveTamaño As Integer = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}' ").ToString().ToEntero()
                    Dim CveClasificacion2 As Integer = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString().ToEntero()
                    Dim CveClasificacionDetalle As Integer = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveClasificacionDetalle", $"ClasificacionDetalle = '{Linea}'").ToString().ToEntero()

--- a/Global.asax
+++ b/Global.asax
@@ -374,11 +374,11 @@
        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        'M O N E D A S

-        Using ObjMonedas As New ClsMonedas()
-            If ObjMonedas.GetMonedas() Then Application("GlobalDTMonedas") = ObjMonedas.DtResultados Else Application("GlobalDTMonedas") = Nothing
-            If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing
+        'Using ObjMonedas As New ClsMonedas()
+        '    'If ObjMonedas.GetMonedas() Then Application("GlobalDTMonedas") = ObjMonedas.DtResultados Else Application("GlobalDTMonedas") = Nothing
+        '    If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing

-        End Using
+        'End Using
        GuardaLogAsax(String.Format("Globalasax 22:{0}", DateTime.Now))

        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -520,13 +520,13 @@
        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        'A C U M U L A D O R E S

-        Using ObjAcumuladores As New ClsAcumuladores()
-            If ObjAcumuladores.TamañoGet(-1, -1) Then Application("GlobalDTAcumTamaños") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTamaños") = Nothing
-            If ObjAcumuladores.TiposDefectoGet(-1, -1) Then Application("GlobalDTAcumTiposDefecto") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposDefecto") = Nothing
-            If ObjAcumuladores.TiposUsoGet(-1, -1) Then Application("GlobalDTAcumTiposUso") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposUso") = Nothing
-            'If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application("GlobalDTAcumGarantiasMesesTipoUso") = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"}) Else Application("GlobalDTAcumGarantiasMesesTipoUso") = Nothing
-        End Using
-        GuardaLogAsax(String.Format("Globalasax 34:{0}", DateTime.Now))
+        'Using ObjAcumuladores As New ClsAcumuladores()
+        '    If ObjAcumuladores.TamañoGet(-1, -1) Then Application("GlobalDTAcumTamaños") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTamaños") = Nothing
+        '    If ObjAcumuladores.TiposDefectoGet(-1, -1) Then Application("GlobalDTAcumTiposDefecto") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposDefecto") = Nothing
+        '    If ObjAcumuladores.TiposUsoGet(-1, -1) Then Application("GlobalDTAcumTiposUso") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposUso") = Nothing
+        '    'If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application("GlobalDTAcumGarantiasMesesTipoUso") = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"}) Else Application("GlobalDTAcumGarantiasMesesTipoUso") = Nothing
+        'End Using
+        'GuardaLogAsax(String.Format("Globalasax 34:{0}", DateTime.Now))

        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------       
        '------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13354,7 +13354,7 @@ Partial Class Ventas

                                    Else

-                                        Dim DrTamanio As DataRow = GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo={CvePSCargo}")
+                                        Dim DrTamanio As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo={CvePSCargo}")

                                        If DrTamanio IsNot Nothing Then
                                            'OBTIENE LOS IMPORTES ORIGINALES EN BASE A LO QUE HABIA EN EL MOVIMIENTO
@@ -29122,7 +29122,7 @@ Partial Class Ventas
                Dim CvePSCargo As Integer = RowUsado("CvePS").ToString().ToEntero()
                Dim Obs = ""
                'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR
-                If GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
+                If GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
                    Obs = RowUsado("CodigoPS").ToString()
                Else
                    Obs = RowUsado("Obs").ToString()
@@ -29210,7 +29210,7 @@ Partial Class Ventas
                Dim CvePSCargo As Integer = RowUsado("CvePS").ToString().ToEntero()
                Dim Obs = ""
                'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR
-                If GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
+                If GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
                    Obs = RowUsado("CodigoPS").ToString()
                End If
                'SI TIENE BCI EN LAS OBSERVACIONES AGREGARLO A LA FACTURA
@@ -29395,7 +29395,7 @@ Partial Class Ventas

                For Each RowCargo As DataRow In TmpDT.FiltraParametros("EsCargo = True", Orderby:="PU").Rows
                    Dim CantidadCargo = RowCargo("Cantidad").ToString().ToDecimal()
-                    Dim ImportePU As Decimal = GlobalDTAcumTamaños().FiltroPrimeroValor("Bonificacion", $"CvePSCargo={RowCargo("CvePS")}").ToDecimal()
+                    Dim ImportePU As Decimal = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Bonificacion", $"CvePSCargo={RowCargo("CvePS")}").ToDecimal()
                    Dim TotalCalculableImpuestosCargo As Decimal = (CantidadCargo * ImportePU)
                    Dim TotalCargo As Decimal = TotalCalculableImpuestosCargo + (TotalCalculableImpuestosCargo * RowCargo("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2)

@@ -29492,7 +29492,7 @@ Partial Class Ventas
                Dim CvePSCargo As Integer = RowUsado("CvePS").ToString().ToEntero()
                Dim Obs = ""
                'SI ES ACUMULADOR LAS OBSERVACIOENS DEBEN SER EL NOMBRE DEL ACUMULADOR
-                If GlobalDTAcumTamaños().FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
+                If GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CvePSCargo = {CvePSCargo}") IsNot Nothing Then
                    Obs = RowUsado("CodigoPS").ToString()
                    'Else
                    '    Obs = RowUsado("Obs").ToString()
@@ -31337,7 +31337,7 @@ Partial Class Ventas
    Private Function CalculaUsadosCotizacion(ByRef SbVentasDetalle As StringBuilder, ByVal DTSeleccionadas As DataTable, ByVal DtCotizaciones As DataTable) As List(Of MVentaDetalleCotizacion)
        Dim Retorno As New List(Of MVentaDetalleCotizacion)

-        Dim DTTamanios As DataTable = GlobalDTAcumTamaños()
+        Dim DTTamanios As DataTable = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)

        Dim DTCvePSCostos As DataTable = DTTamanios.FiltraParametros("", "", {"CvePSCargo"})

@@ -32930,7 +32930,7 @@ Partial Class Ventas
                Exit Sub
            End If

-            Dim DTTamanios As DataTable = GlobalDTAcumTamaños()
+            Dim DTTamanios As DataTable = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)

            Dim DTCvePSCostos As DataTable
            DTCvePSCostos = DTTamanios.FiltraParametros("", "", {"CvePSCargo"})
@@ -33096,7 +33096,7 @@ Partial Class Ventas
            If ClienteEsDistribuidor AndAlso Not factura.EsGarantia Then
                For Each drow As DataRow In factura.DtDetalle.Rows
                    If drow("CveTamaño").ToString.ToEntero > 0 Then
-                        Dim DrTamanio As DataRow = GlobalDTAcumTamaños().FiltroPrimero($"CveTamaño={drow("CveTamaño").ToString.ToEntero}")
+                        Dim DrTamanio As DataRow = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltroPrimero($"CveTamaño={drow("CveTamaño").ToString.ToEntero}")
                        If DrTamanio IsNot Nothing Then
                            Dim Cargo As Decimal = DrTamanio("Cargo").ToString().ToDecimal() * drow("Cantidad").ToString.ToDecimal()
                            Dim Bonificacion As Decimal = DrTamanio("Bonificacion").ToString().ToDecimal() * drow("Cantidad").ToString.ToDecimal()