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

2020-01-03 17:30:34 -07:00
parent 7efb0ed5f7 952fde490f
commit 6674b77968
22 changed files with 334 additions and 153 deletions
--- a/App_Code/ClsPaginas.vb
+++ b/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)
--- a/App_Code/ClsSisEmpresas.vb
+++ b/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
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1469,7 +1469,7 @@ Public Class ClsVentas
                                             FechaI As Date, FechaF As Date, Mes As Integer, FechaIEjec As Date, FechaFEjec As Date, MesEjec As Integer, CveCliente As Integer, CveSubProyectoEjecucion As Integer,
                                             CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1,
                                              Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1,
-                                                    Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1) As Boolean
+                                                    Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1, Optional CveClasificacionDetalle As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_GetRepPSDetalle")

@@ -1500,6 +1500,7 @@ Public Class ClsVentas
            .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
        End With

        Try
--- a/App_Code/Modelos.vb
+++ b/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)
--- a/Contratos/Contrato.aspx.vb
+++ b/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)
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/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
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -146,7 +146,12 @@
                        </div>
                        <label class="col-md-1 truncate">Tránsito?:</label>
                        <div class="col-md-1">
-                            <asp:CheckBox ID="ChkIncluyeTransitorios" runat="server" Checked="false" />
+                            <asp:DropDownList ID="DdlIncluyeTransitorios" CssClass="select2me" runat="server" AppendDataBoundItems="true"  Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
+                                <asp:ListItem Text="No" Value="0" Selected="True"></asp:ListItem>
+                                <asp:ListItem Text="Si (Origen)" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Si (Destino)" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
+                            <%--<asp:CheckBox ID="ChkIncluyeTransitorios" runat="server" Checked="false" />--%>
                        </div>
                    </div>
                </div>
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -128,7 +128,7 @@ Partial Class Inventarios_KardexAlmacen
        Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
        Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)

-        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then
            If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
                dt = ObjMovimientos.DtResultados
                Dim ListaBorrar As New List(Of DataColumn)
--- a/Inventarios/RecepcionUsados.aspx
+++ b/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">
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/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
--- a/OC/OC.aspx.vb
+++ b/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
--- a/Ventas/ActualizarPrecios.aspx.vb
+++ b/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()
--- a/Ventas/ClientesAbonar.aspx
+++ b/Ventas/ClientesAbonar.aspx
@@ -261,7 +261,7 @@
    <asp:UpdatePanel ID="UPVentas" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
            <asp:GridView ID="GvCxC" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Cobrar Pendientes"
-                DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA"
+                DataKeyNames="TipoDocto,CveVenta,CveCliente,SerieFolio,Original,SubTotal,IVA,IEPS,RetIVA,RetISR,Num3,CveSubProyecto,CveMoneda,Saldo,TipoCambio, RFC,UUID,Fecha,PorcentajeIVA,DescuentoProntoPago"
                CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
                <Columns>
                    <asp:TemplateField>
@@ -338,6 +338,12 @@
                            <asp:RangeValidator ID="RVComision" runat="server" Enabled="false" ErrorMessage="*" ControlToValidate="TxtComision" Display="Dynamic" Type="Double"></asp:RangeValidator>
                        </ItemTemplate>
                    </asp:TemplateField>
+                    <asp:TemplateField Visible="false" ItemStyle-HorizontalAlign="Center">
+                        <HeaderTemplate>Descuento Pronto Pago</HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlDescuentoProntoPago" runat="server" Text='<%# Eval("DescuentoProntoPago", "{0:N2}") %>'></asp:Literal>&nbsp;
+                        </ItemTemplate>
+                    </asp:TemplateField>
                    <asp:TemplateField ItemStyle-Width="300px">
                        <HeaderTemplate>Auxiliar</HeaderTemplate>
                        <ItemTemplate>
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -445,16 +445,22 @@ Partial Class Ventas_ClientesAbonar

        Dim FechaCorte As Date = IIf(CveIESustitucion > 0, (FechaCorteIE.ToDate).ToShortDateString, DateTime.Now.AddYears(1).ToShortDateString).ToString.ToDate

+        Dim SumDescuentoProntoPago As Double = 0.0
        If Mov.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, FechaI, FechaF, pCveMoneda, CveSubProyecto, UsuarioActual.CveEmpresa, CveClienteSucursal, FechaCorte:=FechaCorte, CveIESustitucion:=CveIESustitucion) Then
+            Dim TmpCxCAux As DataTable
+            TmpCxCAux = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
+            SumDescuentoProntoPago = TmpCxCAux.SUM("DescuentoProntoPago")

            GvCxC.DataSource = Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio")
            GvCxC.DataBind()
            CveMoneda = pCveMoneda
-        End If

+        End If
        TxtImporte.Text = ""
        TxtObservaciones.Text = ""
-
+        If SumDescuentoProntoPago > 0.0 Then
+            GvCxC.Columns("DescuentoProntoPago").Visible = True
+        End If

        Mov.Dispose()
        UPVentas.Update()
@@ -608,8 +614,7 @@ Partial Class Ventas_ClientesAbonar
            e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1}); FnCambia({2},this,{1},0,{3},{4});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda))

            If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
-                'si es remisión y factura no timbrada
-                If e.Row.DBCampo("TipoDocto") = "Rem" OrElse (e.Row.DBCampo("TipoDocto") = "Ing" AndAlso e.Row.DBCampo("FolioFiscal") = "") Then
+                If e.Row.DBCampo("TipoDocto") = "Rem" Then
                    e.Row.FCCheckBox("Chk").Visible = False ' que no se pueda pagar si es remisión
                    e.Row.Cells(0).ToolTip = "El documento es remisión y no se puede realizar el pago"
                End If
@@ -872,6 +877,7 @@ Partial Class Ventas_ClientesAbonar
                                CveVentasPago.Add(gvr.DataKey("CveVenta").ToEntero)
                                SeriesPago.Add(gvr.DataKey("SerieFolio"))

+                                Dim tipoCambioVentaDiferenciaCambiaria As Double = 1
                                Dim EsAnticipoEspecial As Boolean = False

                                If gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then EsAnticipoEspecial = True
@@ -1243,7 +1249,7 @@ Partial Class Ventas_ClientesAbonar
                                                If CveMoneda <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero <> 1 Then
                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
                                                    CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
-
+                                                    tipoCambioVentaDiferenciaCambiaria = If(gvr.DataKey("Fecha").ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, gvr.DataKey("TipoCambio").ToDecimal)
                                                    Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)


@@ -1281,7 +1287,7 @@ Partial Class Ventas_ClientesAbonar
                                                If CveMoneda <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero <> 1 Then
                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
                                                    CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
-
+                                                    tipoCambioVentaDiferenciaCambiaria = If(gvr.DataKey("Fecha").ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, gvr.DataKey("TipoCambio").ToDecimal)
                                                    Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)

                                                    Dim Diferencia As Decimal = ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * tipoCambioVentaValuacion) - ((gvr.FCTextBox("TxtAbonar").Text.ToDecimal) * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta
--- a/Ventas/RepConciliacionSat.aspx
+++ b/Ventas/RepConciliacionSat.aspx
@@ -0,0 +1,15 @@
+<%@ Page Language="C#" AutoEventWireup="true" CodeFile="RepConciliacionSat.aspx.cs" Inherits="Ventas_RepConciliacionSat" %>
+
+<!DOCTYPE html>
+
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head runat="server">
+    <title></title>
+</head>
+<body>
+    <form id="form1" runat="server">
+        <div>
+        </div>
+    </form>
+</body>
+</html>
--- a/Ventas/RepConciliacionSat.aspx.cs
+++ b/Ventas/RepConciliacionSat.aspx.cs
@@ -0,0 +1,14 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+
+public partial class Ventas_RepConciliacionSat :  System.Web.UI.Page
+{
+    protected void Page_Load(object sender, EventArgs e)
+    {
+
+    }
+}
--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -5,11 +5,19 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
    <style>
+        
+        table > tbody > .SubTotales ,table > tbody > .SubTotales:hover,table > tbody >  .SubTotales:nth-of-type(odd) {
+            background: #CCCCCC !important;
+        } 
+        table > tbody > .SubTotalesB ,table > tbody > .SubTotalesB:hover,table > tbody >  .SubTotalesB:nth-of-type(odd) {
+            background: #DDD !important;
+        }
+
        .SegundoNivel, .SegundoNivel:hover {
            background-color: rgba(172, 195, 222, 0.65) !important;
        }

-         .select2 .select2-selection__rendered {
+        .select2 .select2-selection__rendered {
            line-height: 1;
            color: #111;
        }
@@ -107,7 +115,7 @@
                                    <asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
                                    <asp:ListItem Text="Pedido Con" Value="Ped"></asp:ListItem>
                                    <asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
-									<asp:ListItem Text="Pedido" Value="Pd2"></asp:ListItem>
+                                    <asp:ListItem Text="Pedido" Value="Pd2"></asp:ListItem>
                                </asp:ListBox>
                                <%--<asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlTipoComprobante" runat="server" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged" AutoPostBack="true">
                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
@@ -202,7 +210,7 @@
                        </div>
                        <label class="col-md-1 truncate">Vendedor:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me" style="width:100%">
+                            <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
@@ -216,7 +224,7 @@
                        </div>
                        <label runat="server" id="LblSubProyectoEjecucion" class="col-md-1 truncate">SubProyecto Ejecución:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyectoEjecucion" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" style="width:100%">
+                            <asp:DropDownList ID="DdlSubProyectoEjecucion" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
@@ -260,13 +268,13 @@
                        </div>
                        <label class="col-md-1 truncate">Categoría:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlCategoria" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Categoria" DataValueField="CveCategoria" style="width:100%">
+                            <asp:DropDownList ID="DdlCategoria" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Categoria" DataValueField="CveCategoria" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
                        <label class="col-md-1 truncate">Clasificación:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" style="width:100%">
+                            <asp:DropDownList ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
@@ -286,12 +294,12 @@
                        </div>
                        <label runat="server" id="LblMarca" title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1" visible="false">Marca:</label>
                        <div runat="server" id="DivMarca" class="col-md-2" visible="false">
-                            <asp:DropDownList ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" style="width:100%" Height="22px"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" Style="width: 100%" Height="22px"></asp:DropDownList>
                        </div>

-                        <label runat="server" id="LblLitraje" title="Mostrar Litraje" data-toggle="tooltip" data-placement="top" class="col-md-1"  >Litraje:</label>
-                        <div runat="server" id="Div1" class="col-md-2"  >
-                            <asp:CheckBox runat="server" ID="ChkLitraje" CssClass="mkcheck"  />
+                        <label runat="server" id="LblLitraje" title="Mostrar Litraje" data-toggle="tooltip" data-placement="top" class="col-md-1">Litraje:</label>
+                        <div runat="server" id="Div1" class="col-md-2">
+                            <asp:CheckBox runat="server" ID="ChkLitraje" CssClass="mkcheck" />
                        </div>


--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -85,6 +85,7 @@ Partial Class Ventas_RepProductosServicios
        DdlGrupo.Items.Insert(14, New ListItem("Fecha Ejec.", "18"))
        DdlGrupo.Items.Insert(15, New ListItem("Cliente - PS", "20"))
        DdlGrupo.Items.Insert(16, New ListItem("Sucursal - PS", "21"))
+        DdlGrupo.Items.Insert(17, New ListItem("Familia - Marca - Tipo", "22"))
        DdlGrupo.DataBind()
        DdlGrupo.SelectedValueExist("8")

@@ -303,19 +304,39 @@ Partial Class Ventas_RepProductosServicios
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim Css As String = "Texto"
-            If e.Row.DBCampo("Orden") = "" Then
-                e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
-                e.Row.Cells(0).Width = Unit.Pixel(200)
-                e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
-                e.Row.Cells(1).Width = Unit.Pixel(60)
-                e.Row.Cells(2).Width = Unit.Pixel(90)
-                e.Row.Cells(3).Width = Unit.Pixel(90)
-                e.Row.Cells(5).Width = Unit.Pixel(80)
-                e.Row.Cells(8).Width = Unit.Pixel(100)
-                e.Row.CssClass = "Totales"
-                Css = "Totales"
-            ElseIf DdlGrupo.SelectedValue.Contiene("20", "21") And Not e.Row.DBCampo("CvePS").ToEntero > 0 Then
-                e.Row.CssClass = "SubTotales"
+            Dim CveClasificacionDetalle As String = "-1"
+            Dim cveMarca As String = DdlMarcaPSDes.SelectedValue
+            If DdlGrupo.SelectedValue.ToEntero = 22 Then
+                Dim tipo As Integer = If(e.Row.DBCampo("CveClasificacionDetalle").ToEntero() > 0, 4, If(e.Row.DBCampo("CveMarca").ToEntero() > 0, 3, If(e.Row.DBCampo("CveClasificacion").ToEntero() > 0, 2, 1)))
+                Select Case tipo
+                    Case 4
+                        CveClasificacionDetalle = e.Row.DBCampo("CveClasificacionDetalle").ToString() ' String.Format("{0}&CveClasificacionDetalle={1}&CveMarca={2}", squery, e.Row.DBCampo("CveClasificacionDetalle").ToEntero(), e.Row.DBCampo("CveMarca").ToEntero())
+                        cveMarca = e.Row.DBCampo("CveMarca").ToString()
+                    Case 3
+                        'squery = String.Format("{0}&CveMarca{1}", squery, e.Row.DBCampo("CveMarca").ToEntero())
+                        cveMarca = e.Row.DBCampo("CveMarca").ToString()
+                        e.Row.CssClass = "SubTotalesB"
+                    Case 2
+                        e.Row.CssClass = "SubTotales"
+                    Case 1
+                        e.Row.CssClass = "Totales"
+                End Select
+
+            Else
+                    If e.Row.DBCampo("Orden") = "" Then
+                    e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
+                    e.Row.Cells(0).Width = Unit.Pixel(200)
+                    e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
+                    e.Row.Cells(1).Width = Unit.Pixel(60)
+                    e.Row.Cells(2).Width = Unit.Pixel(90)
+                    e.Row.Cells(3).Width = Unit.Pixel(90)
+                    e.Row.Cells(5).Width = Unit.Pixel(80)
+                    e.Row.Cells(8).Width = Unit.Pixel(100)
+                    e.Row.CssClass = "Totales"
+                    Css = "Totales"
+                ElseIf DdlGrupo.SelectedValue.Contiene("20", "21") And Not e.Row.DBCampo("CvePS").ToEntero > 0 Then
+                    e.Row.CssClass = "SubTotales"
+                End If
            End If

            ' PARA LIGA
@@ -325,11 +346,11 @@ Partial Class Ventas_RepProductosServicios
            FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim(), "-1")
            FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim(), "-1")

-            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}",
+            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}",
                                                                                    e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"),
                                                                                    e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"),
                                                                                    e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"),
-                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), DdlMarcaPSDes.SelectedValue, DdlMarcaPSDes)
+                                                                                    FechaI, FechaF, FechaIEjec, FechaFEjec, e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveGpo"), e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveClienteClasificacion"), e.Row.DBCampo("CveProveedorCompra"), cveMarca, CveClasificacionDetalle)


            e.Row.FCLiteral("LtlGrupo").Text = String.Format("<a target=""_blank"" Class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.DBCampo("Gpo"))
--- a/Ventas/RepProductosServiciosDetalle.aspx
+++ b/Ventas/RepProductosServiciosDetalle.aspx
@@ -5,7 +5,7 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
    <style>
-         .select2 .select2-selection__rendered {
+        .select2 .select2-selection__rendered {
            line-height: 1;
            color: #111;
        }
@@ -45,7 +45,7 @@
    </style>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="HA" runat="Server">
-<%--    <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+    <%--    <asp:UpdatePanel ID="UpdatePanel1" runat="server" RenderMode="Inline" UpdateMode="Conditional">
        <ContentTemplate>
            <div class="btn-group pull-right btn-separete">
                <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-fit-height btnopaco" />
@@ -60,7 +60,7 @@
    <li>
        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
    </li>
-     <li>
+    <li>
        <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
    </li>
    <li>
@@ -80,7 +80,7 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
                <div class="portlet-title portlet-filterT smalltitle">
@@ -100,7 +100,7 @@
                                    <asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
                                    <asp:ListItem Text="Pedido Con" Value="Ped"></asp:ListItem>
                                    <asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
-									<asp:ListItem Text="Pedido" Value="Pd2"></asp:ListItem>
+                                    <asp:ListItem Text="Pedido" Value="Pd2"></asp:ListItem>
                                </asp:ListBox>
                                <%--<asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlTipoComprobante" runat="server" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged" AutoPostBack="true">
                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
@@ -150,7 +150,7 @@
                            <label class="col-md-1 ">Grupo:</label>
                            <div class="col-md-2">
                                <asp:DropDownList ID="DdlGrupo" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-<%--                                    <asp:ListItem Text="Proyecto" Value="1"></asp:ListItem>
+                                    <%--                                    <asp:ListItem Text="Proyecto" Value="1"></asp:ListItem>
                                    <asp:ListItem Text="SubProyectos" Value="2"></asp:ListItem>
                                    <asp:ListItem Text="Categoría" Value="3"></asp:ListItem>
                                    <asp:ListItem Text="Clasificación" Value="4"></asp:ListItem>
@@ -191,12 +191,11 @@
                        </div>
                        <label class="col-md-1 ">Cliente:</label>
                        <div class="col-md-2">
-                             <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
-                            </ADS:Dropdownlost>
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                        </div>
                        <label class="col-md-1 truncate">Vendedor:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me" style="width:100%">
+                            <asp:DropDownList ID="DdlVendedor" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
@@ -210,7 +209,7 @@
                        </div>
                        <label runat="server" id="LblSubProyectoEjecucion" class="col-md-1 truncate">SubProyecto Ejecución:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyectoEjecucion" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" style="width:100%">
+                            <asp:DropDownList ID="DdlSubProyectoEjecucion" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
@@ -254,13 +253,13 @@
                        </div>
                        <label class="col-md-1 truncate">Categoría:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlCategoria" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Categoria" DataValueField="CveCategoria" style="width:100%">
+                            <asp:DropDownList ID="DdlCategoria" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Categoria" DataValueField="CveCategoria" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
                        <label class="col-md-1 truncate">Clasificación:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" style="width:100%">
+                            <asp:DropDownList ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%">
                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
@@ -270,17 +269,23 @@
                        </div>
                    </div>
                    <div class="row">
-                         <label title="Clasificación Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Clasif.Cliente:</label>
+                        <label title="Clasificación Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Clasif.Cliente:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClienteClasificacion" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteClasificacion_SelectedIndexChanged" runat="server" AppendDataBoundItems="true" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me"  DataTextField="ClienteClasificacion" DataValueField="CveClienteClasificacion"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlClienteClasificacion" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteClasificacion_SelectedIndexChanged" runat="server" AppendDataBoundItems="true" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="ClienteClasificacion" DataValueField="CveClienteClasificacion"></asp:DropDownList>
                        </div>
-                         <label title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Proveedor:</label>
+                        <label title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Proveedor:</label>
                        <div class="col-md-2">
-                             <ADS:DropDownLost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me"  Width="100%" CssStyle="width: 100%;"></ADS:DropDownLost>
+                            <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"></ADS:Dropdownlost>
                        </div>
                        <label runat="server" id="LblMarca" title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1" visible="false">Marca:</label>
                        <div runat="server" id="DivMarca" class="col-md-2" visible="false">
-                            <asp:DropDownList ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" style="width:100%" Height="22px"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlMarcaPSDes" CssClass="select2me" runat="server" DataTextField="Marca" DataValueField="CveMarca" Style="width: 100%" Height="22px"></asp:DropDownList>
+                        </div>
+                        <asp:Label ID="lblDdlTipoPSDes" Visible="false" CssClass="col-md-1" runat="server" Text="Tipo:"></asp:Label>
+                        <div class="col-md-2" id="DivDdlTipo" runat="server" visible="false">
+                            <asp:DropDownList ID="DdlTipoPSDes" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ClasificacionDetalle" DataValueField="CveClasificacionDetalle" Enabled="true">
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
                        </div>
                    </div>
                </div>
@@ -289,7 +294,7 @@
    </asp:UpdatePanel>
    <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" Width="99%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"   GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" Width="99%" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                <Columns>
                    <asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
                    <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
@@ -306,7 +311,7 @@
                    <asp:BoundField HeaderText="Desc" DataField="Descuento" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
                    <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="RFC" DataField="RFC"  ItemStyle-Width="5%"  visible="false" />
+                    <asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-Width="5%" Visible="false" />
                </Columns>
                <RowStyle CssClass="Texto" />
                <HeaderStyle CssClass="Titulos" />
@@ -336,9 +341,9 @@
                                        <td style="text-align: left;">
                                            <asp:CheckBox ID="ChkSucCob" runat="server" Text="Sucursal Cobranza" /></td>
                                    </tr>
-                                     <tr>
+                                    <tr>
                                        <td style="text-align: left;">
-                                              <asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" />
+                                            <asp:CheckBox ID="ChkRFC" runat="server" Text="RFC" />
                                        </td>
                                    </tr>
                                </tbody>
@@ -433,7 +438,7 @@

 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-     <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
+    <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>
    <script src="https://www.amcharts.com/lib/3/serial.js"></script>
    <script src="https://www.amcharts.com/lib/3/pie.js"></script>
    <script src="https://www.amcharts.com/lib/3/plugins/export/export.min.js"></script>
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -235,6 +235,17 @@ Partial Class Ventas_RepProductosServiciosDetalle
        DdlClienteClasificacion.DataBind()
        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))

+
+
+        If UsuarioActual.CveEmpresa.Contiene(141) Then
+            DivDdlTipo.Visible = True
+            lblDdlTipoPSDes.Visible = True
+        End If
+        DdlTipoPSDes.Items.Clear()
+        DdlTipoPSDes.DataSource = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa)
+        DdlTipoPSDes.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlTipoPSDes.DataBind()
+
        CargaGrupo()
        CargaTipoCentroCosto()
        CreaDataTableColor()
@@ -250,6 +261,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
        Dim CveProveedorCompra As Integer = -1
        Dim CveVendedor As Integer
        Dim CveMarca As Integer = -1
+        Dim CveClasificacionDetalle As Integer = -1
        GPO = If(Request("Grupo") IsNot Nothing AndAlso Request("Grupo").ToEntero() > 0, Request("Grupo").ToEntero(), -1).ToString

        CveProyecto = If(Request("CveProyecto") IsNot Nothing AndAlso Request("CveProyecto").ToEntero() > 0, Request("CveProyecto").ToEntero(), -1).ToString
@@ -283,6 +295,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
        CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing AndAlso Request("CveClienteClasificacion").ToEntero() > 0, Request("CveClienteClasificacion").ToEntero(), -1).ToString
        CveProveedorCompra = If(Request("CveProveedorCompra") IsNot Nothing AndAlso Request("CveProveedorCompra").ToEntero() > 0, Request("CveProveedorCompra").ToEntero(), -1).ToString.ToEntero
        CveMarca = If(Request("CveMarca") IsNot Nothing AndAlso Request("CveMarca").ToEntero() > 0, Request("CveMarca").ToEntero(), -1).ToString.ToEntero
+        CveClasificacionDetalle = If(Request("CveClasificacionDetalle") IsNot Nothing AndAlso Request("CveClasificacionDetalle").ToEntero() > 0, Request("CveClasificacionDetalle").ToEntero(), -1).ToString.ToEntero

        If Fecha <> "-1" Then
            txtFechaI.Text = Fecha
@@ -366,7 +379,7 @@ Partial Class Ventas_RepProductosServiciosDetalle

        CargaProvedores(CveProveedorCompra)
        'If CveProveedorCompra.ToEntero > 0 Then DdlProveedor.SelectedValue = CveProveedorCompra
-
+        DdlTipoPSDes.SelectedValueExist(CveClasificacionDetalle)
        CargaDatos(CveProyecto, CveSubProyecto, CveCategoria, CveClasificacion, CvePS, Mes, MesEjec, CveCliente, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatus, GPO.ToEntero, TipoDocto, CveMarca)
        CargarMarcas(CveMarca)
    End Sub
@@ -395,7 +408,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
                                              DdlPS.SelectedValue.ToEntero, FechaI, FechaF, -1, FechaIEjec, FechaFEjec, -1, CveCliente,
                                              DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
                                              UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, GPO:=DdlGrupo.SelectedValue.ToEntero, CveMoneda:=CveMoneda,
-                                                     TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero) Then
+                                                     TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero()) Then
            GvDatos.DataSource = ObjVentas.DtResultados
            TmpDT = ObjVentas.DtResultados
        Else
--- a/Ventas/Ventas.aspx
+++ b/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>
@@ -6277,6 +6278,7 @@
                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
                                        <asp:TextBox ID="TxtTelefonoCliente" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
                                        <asp:RequiredFieldValidator ID="RFVTelefonoCliente" runat="server" ControlToValidate="TxtTelefonoCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Teléfono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
+                                        <asp:RegularExpressionValidator ID="RevTelefonoCliente" runat="server" CssClass="help-block errorimput" ValidationExpression="\d{10}" ControlToValidate="TxtTelefonoCliente" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Teléfono''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarCliente"></asp:RegularExpressionValidator>
                                        <label for="<%= TxtTelefonoCliente.ClientID.ToString()%>">Teléfono:</label>
                                    </div>
                                </div>
--- a/Ventas/Ventas.aspx.vb
+++ b/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

@@ -6454,6 +6454,27 @@ Partial Class Ventas

            End If
        End If
+        'Valida si en caso de que el detalle tenga llantas o polizas se agreguén kilometraje/serie en la parte de observaciones(solo para el caso de empresas llanteras)
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+            If TxtObsFact.Text = "" Then
+                Dim FaltaObservacion As Integer = -1
+                For Each PS As GridViewRow In GvPS.Rows
+                    Dim PsRenglon As GridViewRow = PS
+                    Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero
+                    If CveClasificacion = 20345 Or CveClasificacion = 20342 Then
+                        FaltaObservacion = CveClasificacion
+                        Exit For
+                    End If
+                Next
+                If FaltaObservacion = 20345 Then
+                    Alert("No se ha especificado la <strong>serie</strong> para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                ElseIf FaltaObservacion = 20342 Then
+                    Alert("No se ha especificado el <strong>kilometraje</strong> para la llanta en el sección de Observaciones", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+            End If
+        End If

        If UsuarioActual.Empresa.Funcionalidad(135) = "1" And DdlTipoComprobante.SelectedValue = "Cot" Then
            Alert("Se mando autorización al supervisor.", TipoMensaje.MsgInformacion)
@@ -6494,6 +6515,7 @@ Partial Class Ventas
        End If

        EmitirImprimirNew()
+
    End Sub
 #End Region

@@ -13065,7 +13087,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 +13111,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 +13758,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 +13773,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