cambios global

- permiso inv fisico
- oc, recarga global ps
- actualiza precio,s que considere funcionalidad de listas de precio

App_Code/ClsPaginas.vb

@@ -549,25 +549,34 @@ Public Class ClsPaginas
             Application("GlobalDTEmpresas") = value
         End Set
     End Property
-    Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1) As DataTable
-        Get
+    Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
+        Get
+            Dim AppNombre As String = String.Format("GlobalDTClasificaciones{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjClasificaciones As New ClsClasificaciones
+                If ObjClasificaciones.GetClasificaciones(CveEmpresa) Then Application(AppNombre) = ObjClasificaciones.DtResultados
+                ObjClasificaciones.Dispose()
+            End If
             If CveEmpresa <> -1 Then
                 Dim Str As New StringBuilder
                 Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
                 If CveCategoria <> -1 Then Str.AppendFormat(" AND CveCategoria = {0}", CveCategoria)
-                If UsoClasificacion <> -1 Then Str.AppendFormat(" AND UsoClasificacion IN ({0},3) ", UsoClasificacion)
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTClasificaciones"), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+                If UsoClasificacion <> -1 Then Str.AppendFormat(" AND UsoClasificacion IN ({0},3) ", UsoClasificacion)
+                If CveClasificacion <> -1 Then Str.AppendFormat(" AND CveClasificacion = {0}", CveClasificacion)
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
                 GlobalDTClasificaciones = Dv.ToTable
                 Dv.Dispose()
             Else
-                GlobalDTClasificaciones = DirectCast(Application("GlobalDTClasificaciones"), DataTable)
+                GlobalDTClasificaciones = DirectCast(Application(AppNombre), DataTable)
             End If
 
 
 
         End Get
-        Set(value As DataTable)
-            Application("GlobalDTClasificaciones") = value
+        Set(value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTClasificaciones{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTClasificaciones2(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable
@@ -1507,7 +1516,7 @@ Public Class ClsPaginas
 
     'Fin Ruta
     'Cliente
-    Property GlobalDTCliente(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable
+    Property GlobalDTCliente(CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional CveCliente As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa)
             'sino existe, recarga los datos
@@ -1523,10 +1532,11 @@ Public Class ClsPaginas
                 Dim StrSQL As New StringBuilder
                 StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa)
                 If Estatus >= 0 Then StrSQL.AppendFormat(" AND EstatusBool = {0} ", Estatus)
+                If CveCliente >= 0 Then StrSQL.AppendFormat(" AND CveCliente = {0} ", CveCliente)
 
-                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
-                    GlobalDTCliente = Dv.ToTable
-                    Dv.Dispose()
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
+                GlobalDTCliente = Dv.ToTable
+                Dv.Dispose()
 
             Else
                 GlobalDTCliente = DirectCast(Application(AppNombre), DataTable)

App_Code/ClsSisEmpresas.vb

@@ -463,7 +463,7 @@ Public Class ClsSisEmpresas
                 _Empresa.CveDistribuidor = Data.Rows(0)("CveDistribuidor").ToString.ToEntero
                 _Empresa.DiasPermitidos = Data.Rows(0)("DiasPermitidos").ToString.ToEntero
                 _Empresa.AsientoContableComprasContado = If(Data.Rows(0)("Conta_AsientoContableComprasContado").ToString = "", False, CBool(Data.Rows(0)("Conta_AsientoContableComprasContado").ToString))
-                _Empresa.TipoContabilizacion = Data.Rows(0)("Conta_TipoContabilizacion").ToString.ToEntero
+                _Empresa.TipoContabilizacion = Data.Rows(0)("Conta_TipoContabilizacion").ToString.ToEntero '0 - Sin Conta, 1- Contabilidad SIG, 2- Contabilidad Contpaq
                 _Empresa.DefaultAsistencias = If(Data.Rows(0)("RH_DefaultAsistencias").ToString = "", False, CBool(Data.Rows(0)("RH_DefaultAsistencias").ToString))
                 _Empresa.CIEC = Data.Rows(0)("CIEC").ToString
                 _Empresa.Localidad = Data.Rows(0)("Localidad").ToString

App_Code/Modelos.vb

@@ -1257,7 +1257,7 @@ Namespace Modelos
 
             End If
 
-            If Not GuardarUsados(ObjVentas.IniciaTransacSQL, ObjVentas.CveVenta, ObjVentas) Then
+            If Not GuardarUsados(ObjVentas.IniciaTransacSQL, ObjVentas.CveVenta, ObjVentas, factura.TipoDocto) Then
                 ErrorList.Add("Error al guardar usados")
             End If
 
@@ -1785,10 +1785,10 @@ Namespace Modelos
                 DtVentasNC.Rows.Add(Dr)
             End If
         End Sub
-        Private Function GuardarUsados(SqlTransaccion As SqlClient.SqlTransaction, CveVenta As Integer, ByRef ObjVentas As ClsVentas) As Boolean
+        Private Function GuardarUsados(SqlTransaccion As SqlClient.SqlTransaction, CveVenta As Integer, ByRef ObjVentas As ClsVentas, TipoDocto As String) As Boolean
             Dim Resultado As Boolean = True
 
-            If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 Then
+            If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 AndAlso TipoDocto.Contiene("Ing", "Ant") Then
                 Dim CvePSPSA As Integer = UsuarioActual.Empresa.Funcionalidad(533).ToEntero
 
                 Dim ObjAcum As New ClsAcumuladores(SqlTransaccion)

Contratos/Contrato.aspx.vb

@@ -2046,7 +2046,7 @@ Partial Class Contratos_Default
         Row("LimitarCantidad") = If(ChkLimitar.Checked, 1, 0)
 
         Dim ObjContratos As New ClsContratos
-        If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Row("LimitarCantidad").ToString.ToEntero = 1, "") Then
+        If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Convert.ToBoolean(Row("LimitarCantidad")), "") Then
             If Autorizado Then
                 Dim msj As String = String.Format("Se agregaron {0} {1} del producto {2} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU"))
                 guardarBitacora(msj)

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -71,7 +71,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
             EsUsuarioActual = True
         End If
 
-        GvIFD.Columns(6).Visible = EsUsuarioActual
+        GvIFD.Columns(6).Visible = EsUsuarioActual OrElse UsuarioActual.TienePermisoProceso(283) ' si el usuario lo registro o si tiene permisos especial
         GvIFD.DataBind()
 
         If (GvIFD.Rows.Count > 0) Then

Inventarios/RecepcionUsados.aspx

@@ -57,21 +57,12 @@
     Recepción/Entrega de Usados
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <asp:UpdatePanel runat="server">
+    <asp:UpdatePanel runat="server" ID="UppAcciones" UpdateMode="Conditional" >
         <ContentTemplate>
             <li>
                 <asp:HyperLink ID="HplImprimir" runat="server" Visible="false"><i class="fa fa-print"></i> Imprimir</asp:HyperLink>
             </li>
-            <li>
-                <asp:HyperLink ID="HplTraspaso" Target="_blank" runat="server" Visible="false"><i class="fa fa-truck" aria-hidden="true"></i> Traspaso Almacen</asp:HyperLink>
-            </li>
-            <%--   <li style="text-align: left!important" runat="server" id="LiLnkGuias" visible="false">
-                <asp:LinkButton runat="server" ID="LnkAgregarGuia" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkAgregarGuia_Click"
-                    title="Paqueteria Guías." Text="<i class='fa fa-truck'></i> Paqueteria Guías"></asp:LinkButton>
-            </li>--%>
-            <li>
-                <asp:HyperLink ID="HplPrePoliza" Target="_blank" runat="server" Visible="false"> Ver PrePóliza</asp:HyperLink>
-            </li>
+             
             <li>
                 <asp:LinkButton runat="server" ID="LnkAgregarUsado" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkAgregarUsado_Click"
                     Text="<i class='fa fa-plus'></i> Agregar Usado"></asp:LinkButton>
@@ -757,7 +748,7 @@
                             <asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
                             <asp:GridView ID="GvM" runat="server" GridLines="none" Width="70%"
                                 CssClass="table  table-hover ADScroller   btn-xs" ShowHeader="True"
-                                EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,CvePS,PU,Cantidad"
+                                EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,CvePS,PU,Cantidad,CveTamaño"
                                 AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
                                 <Columns>
                                     <asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">

Inventarios/RecepcionUsados.aspx.vb

@@ -1003,6 +1003,12 @@ Partial Class Inventarios_RecepcionUsados
 
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
 
+        If DdlClientes.SelectedValue.ToEntero <= 0 Then
+            Alert("No se ha especificado el cliente", TipoMensaje.MsgError)
+            Exit Sub
+        End If
+
+
         'SI ES DISTRIBUIDOR Y NO VIENE DE REMISION, GENERA UNA REMISION DE NOTA DE CREDITO
         If EsDistribuidor AndAlso Me.CveRemisionRecibida <= 0 Then
             Dim CveCliente As Integer = DdlClientes.SelectedValue.ToEntero()
@@ -1107,7 +1113,7 @@ Partial Class Inventarios_RecepcionUsados
                             'si es selectedvalue = 42, es entrada ,3 -salida
                             Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 42, 1, 2)
 
-                            If RBLOpcion.SelectedValue.ToEntero = 42 AndAlso EsDistribuidor Then
+                            If RBLOpcion.SelectedValue.ToEntero = 42 AndAlso EsDistribuidor AndAlso Dr("CveTamaño").ToString.ToEntero > 0 Then
 
                                 If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
                                                 UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
@@ -2067,6 +2073,8 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.SetCliente()
         Me.ObjRemisionNC.CveAlmacen = -1
 
+
+
         Dim ObjCliente As New ClsClientes
         If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then
@@ -2112,7 +2120,11 @@ Partial Class Inventarios_RecepcionUsados
         End If
         ObjVentas.Dispose()
 
-        Me.ObjRemisionNC.Observaciones = ""
+        If RblUsadosAjuste.SelectedValue = "1" Then
+            Me.ObjRemisionNC.Observaciones = "Descuento por garantía"
+        Else
+            Me.ObjRemisionNC.Observaciones = "Devolución por usado"
+        End If
         Me.ObjRemisionNC.OrdenCompra = ""
         Me.ObjRemisionNC.PedidoContrato = ""
         Me.ObjRemisionNC.ObservacionesAlmacen = ""
@@ -2125,7 +2137,7 @@ Partial Class Inventarios_RecepcionUsados
                      Optional SerieLote As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
                      Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
                      Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0,
-                     Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional EsCargo As Boolean = False, Optional PorcentajeIVA As Decimal = 0D) As Boolean
+                     Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional EsCargo As Boolean = False, Optional PorcentajeIVA As Decimal = 0D, Optional CveTamaño As Integer = 0) As Boolean
 
         Dim Retorno As Boolean = False
         If Not CvePS > 0 Then
@@ -2238,8 +2250,9 @@ Partial Class Inventarios_RecepcionUsados
         Row("CveVentaDetallePedido2") = CveVentaDetallePedido2
         Row("CuentaPredial") = CuentaPredial
         Row("EsCargo") = EsCargo
-
-        'RECARGAR GV
+        Row("CveTamaño") = CveTamaño
+
+        'RECARGAR GV
         TmpDT.Rows.Add(Row)
         TmpDT.AcceptChanges()
         Retorno = True
@@ -2344,6 +2357,7 @@ Partial Class Inventarios_RecepcionUsados
                 Dim CvePS As Integer = Row.DataKey("CvePS").ToEntero()
                 Dim Cantidad As Decimal = Row.DataKey("Cantidad").ToDecimal()
                 Dim PU As Decimal = Row.DataKey("PU").ToDecimal()
+                Dim CveTamaño As Integer = Row.DataKey("CveTamaño").ToEntero()
                 Dim SubTotal As Decimal = Cantidad * PU
 
                 Dim CveUnidadMedida As Integer = 0
@@ -2368,11 +2382,32 @@ Partial Class Inventarios_RecepcionUsados
                     End If
                 End If
 
-                AddPSRNC(ObjRemisionNC.DtDetalle, Cantidad, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "Inv/RecepcionUsados", PU, 0, -1, "",
-                         ObjRemisionNC.CveSubProyecto, ObjRemisionNC.SubProyecto.SubProyecto, PorcentajeIVA:=PorcentajeIVA)
+                AddPSRNC(ObjRemisionNC.DtDetalle, Cantidad, CveUnidadMedida, UnidadMedida, CveClasificacion, Clasificacion, CvePS, PS, "", PU, 0, -1, "",
+                         ObjRemisionNC.CveSubProyecto, ObjRemisionNC.SubProyecto.SubProyecto, PorcentajeIVA:=PorcentajeIVA, CveTamaño:=CveTamaño)
             End If
         Next
 
+        If RblUsadosAjuste.SelectedValue = "1" Then
+            'agrego un registro extra del importe de ajuste
+            Dim PU As Decimal = TxtImporteAjuste.Text.ToDecimal
+            Dim CveSATNC As String = "84111506"
+            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1).FiltroPrimero("")
+
+            If Dr IsNot Nothing Then
+                Dim CveUnidadMedida, CveClasificacion, CvePS As Integer
+                CveUnidadMedida = Dr("CveUnidadMedida").ToString.ToEntero
+                CveClasificacion = Dr("CveClasificacion").ToString.ToEntero
+                CvePS = Dr("CvePS").ToString.ToEntero
+                Dim PorcentajeIVA As Decimal = 0.16D
+                Dim Obs As String = "Descuento por garantía"
+
+                AddPSRNC(ObjRemisionNC.DtDetalle, 1, CveUnidadMedida, "", CveClasificacion, "", CvePS, "", Obs, PU, 0, -1, "",
+                     ObjRemisionNC.CveSubProyecto, ObjRemisionNC.SubProyecto.SubProyecto, PorcentajeIVA:=PorcentajeIVA)
+            Else
+
+            End If
+        End If
+
         Dim TotalImporte As Decimal = ObjRemisionNC.DtDetalle.SUM("TotalImporte").ToDecimal()
         Dim ImporteIVA As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteIVA").ToDecimal()
         Dim ImporteRetIVA As Decimal = ObjRemisionNC.DtDetalle.SUM("ImporteRetIVA").ToDecimal()
@@ -2405,12 +2440,23 @@ Partial Class Inventarios_RecepcionUsados
 
 #Region "Ajustes"
     Public Sub OnRblUsadosAjuste_Change(sender As Object, e As EventArgs)
+        DdlAlmacen.Items.Clear()
         If RblUsadosAjuste.SelectedValue = "1" Then
             CargaAjuste()
             DivAjuste.Visible = True
+            'Llenar el dropdownlist de almacén
+            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6)
+            LnkAgregarUsado.Visible = False
+            UppAcciones.Update()
+
         Else
             DivAjuste.Visible = False
+            'Llenar el dropdownlist de almacén
+            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 22)
+            LnkAgregarUsado.Visible = True
+            UppAcciones.Update()
         End If
+        DdlAlmacen.DataBind()
     End Sub
 
     Private Sub CargaAjuste()
@@ -2496,6 +2542,7 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
 
     Private Sub CargaBCIAjuste()
+        DdlBCIAjuste.Items.Clear()
         Dim ObjGral As New ClsGenerales
         If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
             DdlBCIAjuste.DataSource = ObjGral.DtResultados
@@ -2506,6 +2553,7 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
 
     Private Sub CargaFolioAjuste()
+        DdlFolioGarantia.Items.Clear()
         Dim ObjAcum As New ClsAcumuladores
         If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa) Then
             DdlFolioGarantia.DataSource = ObjAcum.DtResultados
@@ -2519,16 +2567,17 @@ Partial Class Inventarios_RecepcionUsados
         Dim ObjAcumuladores As New ClsAcumuladores
         If ObjAcumuladores.GetNuevoConsecutivoFolio(DdlFolioGarantia.SelectedValue.ToEntero) Then
             Dim resultado As String = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo")
-            TxtConsecutivoAjuste.Text = resultado
+            TxtConsecutivoAjuste.Text = (resultado.ToEntero + 1).ToString
             UpAjuste.Update()
         End If
         ObjAcumuladores.Dispose()
     End Sub
 
     Protected Sub CargaTipoDeUso()
+        DdlTipoUso.Items.Clear()
         DdlTipoUso.DataSource = GlobalDTAcumTiposUso.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
         DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlTipoUso.DataBind
+        DdlTipoUso.DataBind()
     End Sub
 
     Protected Sub DdlTipoUso_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -2637,14 +2686,22 @@ Partial Class Inventarios_RecepcionUsados
         If ObjPS.GetPS(CvePS, -1, UsuarioActual.CveEmpresa) Then
             CveTamaño = ObjPS.DtResultados.FiltroPrimeroValor("CveTamaño").ToEntero
         End If
-        Dim Datos As DataRow = GlobalDTAcumTamaños().FiltroPrimero(String.Format("CveTamaño = {0} AND CveEmpresa = {1}", CveTamaño, UsuarioActual.CveEmpresa))
+        Dim drDatos As DataRow = GlobalDTAcumTamaños().FiltroPrimero(String.Format("CveTamaño = {0} AND CveEmpresa = {1}", CveTamaño, UsuarioActual.CveEmpresa))
 
-        Dim TamañoPS As DataRow
-        If ObjPS.GetPS(Datos.Item("CvePSCargo").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then
-            TamañoPS = ObjPS.DtResultados.FiltroPrimero("")
+        If drDatos IsNot Nothing Then
+            Dim Importe As Decimal = drDatos("Cargo").ToString.ToDecimal
+            Dim drTamañoPS As DataRow = Nothing
+
+            DtMovimientos.Rows.Clear()
+
+            If ObjPS.GetPS(drDatos.Item("CvePSCargo").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+                drTamañoPS = ObjPS.DtResultados.FiltroPrimero("")
+                'CveTamaño = -1 'limpio esta variable para que no se registre dos veces en la clase Modelos
+                AddNew(drTamañoPS.Item("CvePS").ToString.ToEntero, drTamañoPS.Item("PSCodigo").ToString, drTamañoPS.Item("CveUM").ToString.ToEntero, drTamañoPS.Item("UnidadMedida").ToString, 1.0, Importe,
+                    "", "-1", "-1", "-1", "", "", "", -1, "", "", CveTamaño)
+
+            End If
         End If
-        AddNew(TamañoPS.Item("CvePS").ToString.ToEntero, TamañoPS.Item("PSCodigo").ToString, TamañoPS.Item("CveUM").ToString.ToEntero, TamañoPS.Item("UnidadMedida").ToString, 1.0, TxtPUFactura.Text.ToDouble,
-                "", "-1", "-1", "-1", "", "", "", -1, "", "", -1)
         ObjPS.Dispose()
     End Sub
 #End Region

OC/OC.aspx.vb

@@ -7299,6 +7299,7 @@ Partial Class OC
         Dim ObjPS As New ClsProductosServicios
         If ObjPS.AddPSSimplificado(PS) > 0 Then
             RecargaGlobalEquivalencias()
+            RecargaPSGlobal()
             Alert("El P/S fue agregado correctamente.")
         End If
         ObjPS.Dispose()
@@ -7312,10 +7313,10 @@ Partial Class OC
         UpAgregarPS.Update()
 
         RegistraScript("$('#DivAgregarPS').modal('hide');")
-        RecargaPSGlobal()
+
     End Sub
     Private Sub RecargaPSGlobal()
-        'GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
         'Dim ObjPS As New ClsProductosServicios
 
         'If ObjPS.GetPSSimplificado(UsuarioActual.CveEmpresa) Then Application(String.Format("GlobalDTPSSimplificado{0}", UsuarioActual.CveEmpresa)) = ObjPS.DtResultados.AsEnumerable()
@@ -7325,10 +7326,12 @@ Partial Class OC
 
 
     Private Sub RecargaGlobalEquivalencias()
-        Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalEquivalencias)
-        Hilo.Start()
+        GeneraGlobalEquivalencias()
+        'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalEquivalencias)
+        'Hilo.Start()
     End Sub
     Private Sub GeneraGlobalEquivalencias()
+        GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa) = Nothing
         'Dim dtt As DataTable = GlobalDTProductosServiciosEquivalencias(-1, -1, UsuarioActual.CveEmpresa)
         'Dim ObjPS = New ClsProductosServicios
         'If ObjPS.GetPSEquivalencias(-1, UsuarioActual.CveEmpresa) Then

Ventas/ActualizarPrecios.aspx.vb

@@ -75,31 +75,30 @@ Partial Class Ventas_ActualizarPrecios
 
     Public Sub CargaPreciosLista()
 
-        DdlPrecioLista.ITEMS.Clear
-        Dim ObjVta As New ClsVentas
-        Dim primerItem As String = ""
-        If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
-            DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
-            DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy()
-            primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista")
-        End If
-        ObjVta.Dispose()
+        DdlPrecioLista.Items.Clear()
+
+        If UsuarioActual.Empresa.Funcionalidad(404).ToString = "1" Then 'si manneja precios de lista
+            Dim ObjVta As New ClsVentas
+            Dim primerItem As String = ""
+            If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
+                DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
+                DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy()
+                primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista")
+            End If
+            ObjVta.Dispose()
 
 
-        DdlPrecioLista.DataBind()
-        DdlPrecioListaCarga.DataBind()
+            DdlPrecioLista.DataBind()
+            DdlPrecioListaCarga.DataBind()
 
-        If (DdlPrecioLista.Items.Count = 1) Then
-            DdlPrecioLista.Items.FindByValue(primerItem).Selected = True
-        End If
-
-        DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        If UsuarioActual.CveEmpresa.Contiene(1, 140) Then
+            If (DdlPrecioLista.Items.Count = 1) Then
+                DdlPrecioLista.Items.FindByValue(primerItem).Selected = True
+            End If
+        Else
             DdlPrecioLista.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))
-            DdlPrecioListaCarga.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))
+            DdlPrecioListaCarga.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))
         End If
-
-
+
     End Sub
 
     Public Sub CargaPS()

Ventas/Ventas.aspx

@@ -5965,7 +5965,7 @@
     </div>
     <%--APLICAR REMISIONES DE NC--%>
     <div id="ModalAplicarRemisionesNC" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel ID="UpModalRemisionesNC" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+        <asp:UpdatePanel ID="UpModalRemisionesNC" class="modal-dialog rowpadding modal-lg" tabindex="-1" runat="server" UpdateMode="Conditional">
             <ContentTemplate>
                 <div class="modal-content">
                     <div class="modal-header">
@@ -5988,6 +5988,7 @@
                                             </ItemTemplate>
                                         </asp:TemplateField>
                                         <asp:HyperLinkField DataNavigateUrlFields="CveVenta" Target="_blank" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="Folio" HeaderText="Folio" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />
+                                        <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" />
                                         <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
                                         <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
                                             <ItemTemplate>

Ventas/Ventas.aspx.vb

@@ -5840,9 +5840,9 @@ Partial Class Ventas
                     If Not EsValido Then
                         MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo <br/>", DatarowPS("PS").ToString)
                         If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0}</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0:#,###.00}</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0:#,###.00}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0:#,###.00}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
                         End If
 
 
@@ -5855,9 +5855,9 @@ Partial Class Ventas
                     If Not EsValidoMayor Then
                         MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", HdnPS.Value)
                         If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0}</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0:#,###.00}</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% <b>${1:#,###.00}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0:#,###.00}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
                         End If
                         Alert(MensajeCosto.ToString, TipoMensaje.MsgAdvertencia)
                         e.Cancel = True
@@ -6422,18 +6422,18 @@ Partial Class Ventas
 
                         MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo ni a un precio mayor de su rango aceptado<br/>", dr("PS").ToString)
                         If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>{0}$</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0} <b>{1}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>{0}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
                         End If
                     End If
 
                     If Not EsValidoMayor Then
                         MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", dr("PS").ToString)
                         If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>{0}$</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} <b>{1}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>{0}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
                         End If
                     End If
 
@@ -13065,7 +13065,7 @@ Partial Class Ventas
 
                     Dim PorcentajePrecio As Double = 0
                     If PrecioSugerido = 0 Then
-                        CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero
+                        CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero
                         If CvePrecioListaPS > 0 Then
                             Dim ObjPS As New ClsProductosServicios
                             If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
@@ -13089,13 +13089,16 @@ Partial Class Ventas
 
                 End If
 
-                Dim PrecioBaseCosto As Decimal = 0
-                Dim ObjClasificaciones As New ClsClasificaciones
-                If ObjClasificaciones.GetClasificaciones() Then
-                    PrecioBaseCosto = ObjClasificaciones.DtResultados.FiltroPrimeroValor("PrecioBaseCosto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveClasificacion = {drPS("CveClasificacion")}").ToDecimal
-                End If
+
+                'Dim ObjClasificaciones As New ClsClasificaciones
+                'If ObjClasificaciones.GetClasificaciones() Then
+                '    PrecioBaseCosto = ObjClasificaciones.DtResultados.FiltroPrimeroValor("PrecioBaseCosto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveClasificacion = {drPS("CveClasificacion")}").ToDecimal
+                'End If
 
                 If PrecioSugerido > 0 Then
+                    Dim PrecioBaseCosto As Decimal = 0
+                    PrecioBaseCosto = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=drPS("CveClasificacion").ToString.ToEntero).FiltroPrimeroValor("PrecioBaseCosto", "").ToDecimal
+
                     If PrecioBaseCosto > 0 Then
                         PrecioSugerido = PrecioSugerido * ((PrecioBaseCosto / 100) + 1)
                     End If
@@ -13733,11 +13736,11 @@ Partial Class Ventas
                     Dim MensajeCosto As New StringBuilder
                     Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
                     If Not EsValido Then
-                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo <br/>", HdnPS.Value)
+                        MensajeCosto.AppendFormat("El Producto <b>{0}-{1}</b>. No se puede vender a un precio menor de su Costo <br/>", HdnCodigoPS.Value, HdnPS.Value)
                         If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0}</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0:#,###.00}</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0}% <b>${1:#,###.00}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero, CostoMenor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0:#,###.00}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
                         End If
 
                         Alert(String.Format(MensajeCosto.ToString), TipoMensaje.MsgAdvertencia)
@@ -13748,9 +13751,9 @@ Partial Class Ventas
                     If Not EsValidoMayor Then
                         MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", HdnPS.Value)
                         If TienePermisoImportes Then
-                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0}</b> <br/>", Costo)
-                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% <b>${1}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
-                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>${0:#,###.00}</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0}% <b>${1:#,###.00}</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero, CostoMayor)
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>${0:#,###.00}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
                         End If
                         Alert(MensajeCosto.ToString, TipoMensaje.MsgAdvertencia)
                         Return False