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

2022-02-05 12:07:52 -07:00
parent be776be04e a0cf38795e
commit fbe361617c
34 changed files with 302 additions and 181 deletions
--- a/App_Code/ClsAF.vb
+++ b/App_Code/ClsAF.vb
@@ -530,7 +530,7 @@ Public Class ClsAF
        Return Retorno
    End Function

-    Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date) As Boolean
+    Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean
        Dim Retorno As Boolean = False

        DataAdapter("PA_AF_ActivosFijosCompraUpdate")
@@ -541,6 +541,7 @@ Public Class ClsAF
            .Add("@TipoAF", SqlDbType.Int).Value = TipoAF
            .Add("@ValorCompra", SqlDbType.Float).Value = ValorCompra
            .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion  ' Opcion 1 es la actualiacion normal , opcion 2 Desvicula   los AF en base a la CveComrpaDetalle(en tabla  AF_ActivosFijos pone el campo CveComrpaDetalle en null en base a CveComrpaDetalle )
        End With

        Try
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1702,7 +1702,7 @@ Public Class ClsInventarios

 #Region "  INVENTARIOS - REPORTES  "

-    Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As Integer, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
+    Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As String, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Inv_RepExistenciasCostosGet")
        With SqlAdapter.SelectCommand.Parameters
@@ -1710,7 +1710,7 @@ Public Class ClsInventarios
            .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
            .Add("@FechaI", SqlDbType.Date).Value = FechaI
            .Add("@FechaF", SqlDbType.Date).Value = FechaF
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -1504,7 +1504,8 @@ Public Class ClsMovimientos
                                       Optional CveBanco As Integer = -1, Optional CveCuenta As Integer = -1,
                                       Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1,
                                       Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha,
-                                       Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean
+                                       Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha,
+                                        Optional CveCondicionesPago As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_RepRecuperacion")
        With SqlAdapter.SelectCommand.Parameters
@@ -1528,6 +1529,7 @@ Public Class ClsMovimientos
            .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico
            .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+            .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago

            .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
            .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -144,13 +144,14 @@ Public Class ClsVentas
    End Sub
 #End Region

-    Public Function GetVenta(CveVenta As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetVenta(CveVenta As Integer, CveEmpresa As Integer, Optional VerificaAlmacen As Boolean = True) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_VentasGet")

        With SqlAdapter.SelectCommand.Parameters
            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@VerificaAlmacen", SqlDbType.Bit).Value = If(VerificaAlmacen, 1, 0)
        End With

        Try
@@ -1421,7 +1422,8 @@ Public Class ClsVentas
    Public Function GetRepVentas(FechaI As Date, FechaF As Date, FechaIEjec As Date, FechaFEjec As Date, CveCliente As Integer, CveSubProyectoEjecucion As Integer,
                                 CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
                                 Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1,
-                                 Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean
+                                 Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
+                                 Optional EsDistribuidor As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_VentasGetRep")

@@ -1448,6 +1450,7 @@ Public Class ClsVentas
            .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
            .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
            .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
        End With

@@ -1554,7 +1557,8 @@ Public Class ClsVentas
                                        Vendedor As String, CveUsuario As Integer, CveEstatus As String, FechaI As Date, FechaF As Date, CveCorte As Integer, TipoDocto As String,
                                        CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1,
                                        Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
-                                         Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean
+                                         Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
+                                        Optional EsDistribuidor As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_VentasGetRepDetalle")

@@ -1586,6 +1590,7 @@ Public Class ClsVentas
            .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
            .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
+            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
            .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
        End With

@@ -1606,7 +1611,8 @@ Public Class ClsVentas
                                             CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer,
                                              Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional CveUsuarioConsulta As Integer = -1,
                                             Optional TipoDocto As String = "-1", Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1,
-                                             Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, Optional EsGarantia As Integer = -1) As Boolean
+                                             Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
+                                             Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_GetRepPS")

@@ -1638,6 +1644,8 @@ Public Class ClsVentas
            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
            .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
+            .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
+            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor

        End With

@@ -1656,7 +1664,8 @@ Public Class ClsVentas
                                             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,
-                                             Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, Optional EsGarantia As Integer = -1) As Boolean
+                                             Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
+                                             Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Vta_GetRepPSDetalle")

@@ -1688,9 +1697,12 @@ Public Class ClsVentas
            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
            .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
+            .Add("@MostrarLitraje", SqlDbType.Bit).Value = MostrarLitraje
            .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
            .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
            .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
+            .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
+            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
        End With

        Try
@@ -3112,7 +3124,7 @@ Public Class ClsVentas

                Else
                    If showalert Then
-                        Alert("No se encontraron cancelaciones pendientes", ModExtensiones.TipoMensaje.MsgError)
+                        Alert("No se encontraron cancelaciones pendientes", ModExtensiones.TipoMensaje.MsgAdvertencia)
                    End If
                End If
            Else
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -3920,7 +3920,7 @@ Public Class Timbrado
 #Region "Timbra"
        If ArchivoGenerado Then

-            cfdi.TimbrarCfdi(UsuarioServicio, ClaveServicio, UrlServicio, TimbraProduccion)
+            cfdi.TimbrarCfdi(UsuarioServicio, ClaveServicio, TimbraProduccion)

            sw.Stop()
            swTiempo.AppendFormat("Timbrado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2614,7 +2614,7 @@ Partial Class Bancos_IE
                End If
            End If
            If Opcion = "DevDinC" Then
-                CvePlantillaPoliza = 2
+                CvePlantillaPoliza = 40
            End If

            'Cuando es Egreso sin factura, se registra una compra tipo anticipo
@@ -3068,6 +3068,7 @@ Partial Class Bancos_IE
                                Dim ImporteAplicarMN = 0.0D
                                Dim ImporteAplicarME = 0.0D
                                Dim ReferenciaAplicar = ObjIE.Folio
+                                Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("CveSubProyecto").ToEntero

                                Dim ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {TxtImporte.Text} NC:{SerieFolioDeCDin}"

@@ -3398,7 +3399,7 @@ Partial Class Bancos_IE
                                        End If


-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, TipoCambio:=TCDocumento) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, TipoCambio:=TCDocumento, CveSubProyecto:=CveSubProyecto) Then
                                            MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
                                            Exit Select
                                        End If
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -1523,7 +1523,7 @@ Partial Class Bancos_PopIEVentas
                            Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

                            If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-                                If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+                                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                                    FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                                    TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
                                End If
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -929,7 +929,7 @@ Partial Class Bancos_ProveedoresAbonar
                            Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

                            If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-                                If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+                                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                                    FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                                    TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
                                End If
--- a/Bin/GoCfdi.dll
+++ b/Bin/GoCfdi.dll
--- a/CRM/Acercamiento.aspx.cs
+++ b/CRM/Acercamiento.aspx.cs
@@ -653,7 +653,7 @@ public partial class CRM_Acercamiento : ClsPaginas
            Double Comision = TxtComision.Text.ToDouble();

            int Prioridad = DdlPrioridad.SelectedValue.ToEntero();
-
+            int CveRechazoMotivo = DdlRechazoMotivo.SelectedValue.ToEntero();
            int CveUsuarioIng = UsuarioActual.CveUsuario;

            if (CveEncuestaProcesoCRM > 0)
@@ -675,9 +675,11 @@ public partial class CRM_Acercamiento : ClsPaginas
            AcercaminetoModel.CveUsuarioIng = UsuarioActual.CveUsuario;
            AcercaminetoModel.CveEncuestaAplicadaProceso = CveEncuestaAplicadaProceso;
            AcercaminetoModel.FechaApertura = FechaApertura;
-            AcercaminetoModel.FechaCierre = (DateTime)FechaCierre;
+            AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
            AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero();
-            
+            AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo;
+
+
            if (cRMService.AcercamientoUpdate(AcercaminetoModel))
            {
                //String MensajeBitacora = (CveEtapaProcesoActualActualizar != CveEtapaActual) ? String.Format("Se actualizó la etapa del acercamiento a {0}.", DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveEtapaProceso = " + CveEtapaProcesoActualActualizar)) : String.Format("Se actualizó el Acercamiento {0} con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text);
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -734,7 +734,7 @@
                                    </asp:Panel>


-                                    <asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible,DifPSSat" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn"  >
+                                    <asp:GridView ID="GvPS" ShowHeader="false" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS,Cantidad,CveUM,UM,PU,Descuento,OtrosGastos,CvePresupuestoEgreso,PS,Clasificacion,CveClasificacion,CveOrdenCompraDetalle,IVA,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,Obs,Total,CveProyecto,CveSubProyecto,Proyecto,SubProyecto,Consec,CveTipoGasto,NoDeducible,DifPSSat,TipoAF" GridLines="none" BorderWidth="0" EmptyDataText="Sin Productos o Servicios agregados" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn"  >
                                        <Columns>
                                            <%-- 0 --%>
                                            <asp:TemplateField ItemStyle-Width="15px">
@@ -4476,6 +4476,13 @@
                                                            <label for="<%= TxtIEPSModal.ClientID.ToString()%>">% IEPS:</label>
                                                        </div>
                                                    </div>
+                                                     <div class="col-md-3" runat="server" id="DVModalAddPSChkDesvincularAF" visible="false">
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:CheckBox  runat="server" ID="ChkModalDesvincularAF" CssClass="form-control " />
+                                                            <label for="<%= ChkModalDesvincularAF.ClientID.ToString()%>">Desvicnular A.F.:</label>
+                                                        </div>
+                                                    </div>
+
                                                </div>
                                            </ContentTemplate>
                                        </asp:UpdatePanel>
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1778,6 +1778,7 @@ Partial Class Compras_Compras
                        If ObjeFacturas.GetFacturasComparacionXML(Version, Xml.ToString, UsuarioActual.CveEmpresa) Then
                            TmpDT = ObjeFacturas.DtResultados
                            TmpDT.Columns.Add("CveSATPSActualizado")
+
                            'TmpDT.Columns.Add("RetIVAPorcentaje")
                            'TmpDT.Columns.Add("RetISRPorcentaje")
                            'TmpDT.Columns.Add("IEPSPSPorcentaje")
@@ -6899,7 +6900,7 @@ Partial Class Compras_Compras

                                                                                Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacion69}").ToString.ToEntero

-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=DiferenciaDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then
                                                                                    ErrorPrepoliza = True
                                                                                End If
                                                                            End If
@@ -9929,6 +9930,22 @@ Partial Class Compras_Compras



+
+                        If Not TmpDT.Columns.Contains("DesvicularAF") Then
+                            TmpDT.Columns.Add("DesvicularAF", GetType(Boolean))
+                        End If
+
+                        For Each drowAF As DataRow In TmpDT.Rows
+                            If drowAF("DesvicularAF").ToString <> "" AndAlso Boolean.Parse(drowAF("DesvicularAF").ToString) Then
+                                If Not ObjAF.UpdateActivosFijosCompra(-1, drowAF("CveCompraDetalle").ToString.ToEntero, -1, 0, Now, Opcion:=2) Then
+                                    Retorno = False
+                                End If
+                            End If
+                        Next
+
+
+
+
                        'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then
                        If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
                            Retorno = False
@@ -10513,6 +10530,9 @@ Partial Class Compras_Compras
            tipoCambioPago = 1
        End If

+
+
+
        If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then
            For Each Row As DataRow In ObjConta.DtResultados.Rows

@@ -17900,6 +17920,17 @@ Partial Class Compras_Compras
        ChkAgregar.Checked = False
        divagregrarotrops.Visible = False

+        DVModalAddPSChkDesvincularAF.Visible = False
+
+
+        Dim TipoAF As Integer = GvRow.DataKey("TipoAF").ToEntero
+        ChkModalDesvincularAF.Checked = False
+
+        If CveCompra > 0 AndAlso TipoAF = 2 Then
+            DVModalAddPSChkDesvincularAF.Visible = True
+        End If
+
+
        UpPSS.Update()
        RegistraScript("$('#divAddProducto').modal('show');")
    End Sub
@@ -18297,6 +18328,38 @@ Partial Class Compras_Compras
            GuardaAC()
        End If

+
+
+
+
+        If CveCompra > 0 AndAlso ChkModalDesvincularAF.Checked Then
+
+
+            If Not TmpDT.Columns.Contains("DesvicularAF") Then
+                TmpDT.Columns.Add("DesvicularAF", GetType(Boolean))
+            End If
+
+            Dim CveCompraDetalleDesvicnualarAF As Integer = TmpDT.FiltroPrimeroValor("CveCompraDetalle", $"Consec={Index}").ToEntero
+            'If ObjAF.UpdateActivosFijosCompra(-1, CveCompraDetalleDesvicnualarAF, -1, 0, Now, Opcion:=2) Then
+
+            For Each dRow As DataRow In TmpDT.Rows
+
+                If dRow("CveCompraDetalle").ToString.ToEntero = CveCompraDetalleDesvicnualarAF Then
+                    dRow("TipoAF") = 0
+                    dRow("CveActivoFijo") = 0
+                    dRow("DesvicularAF") = True
+
+                End If
+
+            Next
+                TmpDT.AcceptChanges()
+            'Else
+            '    Retorno = False
+            'End If
+
+
+        End If
+
        UpPS.Update()
        CargaGvPersonal()

--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2041,7 +2041,7 @@ Partial Class PopUpVerFactura
                If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then
                    Vta.Timbre.CFDIRelacionados.TipoRelacion = "04"
                    Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
-                    Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Refacturación de Ingreso"
+                    Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Sustitución de los CFDI Previos"
                End If

                If UsuarioActual.Empresa.Funcionalidad(592) = "1" Then
--- a/Empresas/152/Formatos/Factura.rdlc
+++ b/Empresas/152/Formatos/Factura.rdlc
@@ -2620,7 +2620,7 @@
              </Paragraph>
            </Paragraphs>
            <rd:DefaultName>Textbox42</rd:DefaultName>
-            <Top>5.91303in</Top>
+            <Top>5.61303in</Top>
            <Left>7.16224in</Left>
            <Height>0.17708in</Height>
            <Width>0.98426in</Width>
@@ -2655,7 +2655,7 @@
              </Paragraph>
            </Paragraphs>
            <rd:DefaultName>Textbox42</rd:DefaultName>
-            <Top>6.1055in</Top>
+            <Top>5.8055in</Top>
            <Left>7.16224in</Left>
            <Height>0.17966in</Height>
            <Width>0.98425in</Width>
@@ -2690,7 +2690,7 @@
              </Paragraph>
            </Paragraphs>
            <rd:DefaultName>Textbox42</rd:DefaultName>
-            <Top>6.30449in</Top>
+            <Top>6.00449in</Top>
            <Left>7.17266in</Left>
            <Height>0.18819in</Height>
            <Width>0.98425in</Width>
@@ -2726,7 +2726,7 @@
              </Paragraph>
            </Paragraphs>
            <rd:DefaultName>Textbox42</rd:DefaultName>
-            <Top>6.51074in</Top>
+            <Top>6.21074in</Top>
            <Left>7.17266in</Left>
            <Height>0.17119in</Height>
            <Width>0.98425in</Width>
@@ -2762,7 +2762,7 @@
              </Paragraph>
            </Paragraphs>
            <rd:DefaultName>Textbox42</rd:DefaultName>
-            <Top>6.70137in</Top>
+            <Top>6.40137in</Top>
            <Left>7.18308in</Left>
            <Height>0.19596in</Height>
            <Width>0.98425in</Width>
--- a/GPS/PalletEtiquetaCaja.rdlc
+++ b/GPS/PalletEtiquetaCaja.rdlc
@@ -898,7 +898,6 @@ KM12 HERMOSILLO, SONORA</Value>
                          </Style>
                        </Textbox>
                        <ColSpan>5</ColSpan>
-                        <rd:Selected>true</rd:Selected>
                      </CellContents>
                    </TablixCell>
                    <TablixCell />
@@ -2457,41 +2456,20 @@ KM12 HERMOSILLO, SONORA</Value>
                  </TablixCells>
                </TablixRow>
                <TablixRow>
-                  <Height>1.44667cm</Height>
+                  <Height>1.18209cm</Height>
                  <TablixCells>
                    <TablixCell>
                      <CellContents>
-                        <Textbox Name="Textbox821">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value>=Parameters!noPallet.Value</Value>
-                                  <Style>
-                                    <FontFamily>Free 3 of 9 Extended</FontFamily>
-                                    <FontSize>41pt</FontSize>
-                                  </Style>
-                                </TextRun>
-                              </TextRuns>
-                              <Style>
-                                <TextAlign>Center</TextAlign>
-                              </Style>
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox821</rd:DefaultName>
+                        <Image Name="Image2">
+                          <Source>Embedded</Source>
+                          <Value>CodBarr</Value>
+                          <Sizing>FitProportional</Sizing>
                          <Style>
                            <Border>
                              <Style>None</Style>
                            </Border>
-                            <VerticalAlign>Bottom</VerticalAlign>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                          </Style>
-                        </Textbox>
+                        </Image>
                        <ColSpan>5</ColSpan>
                      </CellContents>
                    </TablixCell>
@@ -2501,37 +2479,16 @@ KM12 HERMOSILLO, SONORA</Value>
                    <TablixCell />
                    <TablixCell>
                      <CellContents>
-                        <Textbox Name="Textbox822">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value>=Parameters!noPallet.Value</Value>
-                                  <Style>
-                                    <FontFamily>Free 3 of 9 Extended</FontFamily>
-                                    <FontSize>41pt</FontSize>
-                                  </Style>
-                                </TextRun>
-                              </TextRuns>
-                              <Style>
-                                <TextAlign>Center</TextAlign>
-                              </Style>
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox821</rd:DefaultName>
+                        <Image Name="Image3">
+                          <Source>Embedded</Source>
+                          <Value>CodBarr</Value>
+                          <Sizing>FitProportional</Sizing>
                          <Style>
                            <Border>
                              <Style>None</Style>
                            </Border>
-                            <VerticalAlign>Bottom</VerticalAlign>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
                          </Style>
-                        </Textbox>
+                        </Image>
                        <ColSpan>5</ColSpan>
                      </CellContents>
                    </TablixCell>
@@ -2542,7 +2499,7 @@ KM12 HERMOSILLO, SONORA</Value>
                  </TablixCells>
                </TablixRow>
                <TablixRow>
-                  <Height>0.62646cm</Height>
+                  <Height>0.49417cm</Height>
                  <TablixCells>
                    <TablixCell>
                      <CellContents>
@@ -3026,8 +2983,8 @@ Produce of MX.</Value>
            </TablixRowHierarchy>
            <Top>0.07228cm</Top>
            <Left>0.05625cm</Left>
-            <Height>10.59604cm</Height>
-            <Width>10.52137cm</Width>
+            <Height>10.19917cm</Height>
+            <Width>10.52136cm</Width>
            <Style>
              <Border>
                <Style>None</Style>
@@ -3229,6 +3186,13 @@ tz/88IQXNLT1jvK6x5rYowb8xgXvcqDTfe8tfhiRVs/61rv+9bCPvexnT/va2/72uM+97nfP+977/vfA
 +qAIhvmYQymZeniYlTmZkGmZjrmZmpmZl0mZkfmZoxmanmmaoNmZqemNosmZrHmaqlkQibmWNtiYr/mWwTiMaqEPiwAAd0gk9NiHEMCbJGiCrDeQyqCYPamXg7l7EZiT3hiYRCGZ4ficlxmY1kmI2EkF0PmTZZid0fmd3Hmd4tmdtHkK4Omd6Dme2lme5Lme5lmY8Pme6Xme9Smf9ymdNUGdrBmf+okQxWieSYmEzEmKFFiMReCGcsicfTiTBcGfzVmTVPAA5Imby8maFNqe0SCG/jl+HFqhH6qhIRqeG8qeJDqi3v9Zoh2qoiBqoimKorTJoiLqojEKo7ZJohhaoXJ5kjUxDzFwAwKRA3qpiMNYjJKIfsNwgUU4oLqpoREKfDDakWqpnggRpdRZn1I6n/vpnluqpQxxpTSapVgKpgJKpm9ppl06plz6pWuKEGjKpoIpn1UaphAKl62nD8vYlwhhgatIjLFYEHYpoHz6h8D4n0/aexc6pzN5o/uQqIAqmo66D2IImZE6qUv5hZbKqJlaqZCKqZ2qh5vqqZQqqpcKqp/KEKFqqqOqqhb6hZz6hQPJepjpjb0ZAE0aqDqKgpLYpBsYqYeqe5FplQKapd44l2AZrGJZmcKqrMmKrMdqrGTprNHMCq1wKa3VSq1Caa3Ziq1Uqa3dyq1KOZ1q6a3h+pNBuXpyupbr95ZU2Z68GIxu2Xp1+qu7F6uxmqIMEasWqa/6yK8+6K8ICYb/6pD7SrD9arADy4QJ64QL+4MNK7AB+5APK7GFCqsI65gCOqtJmaHBCARxGYx3EJU/CZEFiq/0ynu+WLEcmbKyKIqtuIqvWIu0CLO2KLMvO4s367KgiLM7q7Mty4o9C7Q/G7M0e67nWZRFe5MpqRbLiACOmKQQCYYRqRbFSI39F41S+3rpwXqyu6eES2qyWIiEcWiwUwiGZfuQZ+u1Y8uEafuEZnuFb5uFYUu2cIu2CjG1Trq2NWGRG6gIdgiBCqoQ
 0FkLf3uGgTsQGeurXIt7CqgW89p/BuiAAii5BAi5D3h/l1uAmWu5k4u5nau5n8u5lZuAkeu5o9u4oOsACOimUyq6CDiSvOqNvOCBDUCoRtoX3YkMMCAQtQugnQEAw/q4izu8xFu8xnu8yJu8yru8zNu8zvu80Bu90ju91Fu91nu92Lu4AQEAOw==</ImageData>
    </EmbeddedImage>
+    <EmbeddedImage Name="CodBarr">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAAWMAAABVCAYAAACcloXlAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAhwSURBVHhe7ZZRThxmDAY5FwfiPJwml+GFm2yJZTcr+XOtYrtt1LE0CvllVhPkjHh5MOP5/Pz0rxjm/z38X/j+vPz84QEAwL/L02/GPx5vLy+PF+Pt629/MR/vj9fYfXva/PHm3695ff/wxZ+reif49bEfj/fXeH99/PqIZ1/B6/vXd/pUvmI+3l///Iz/hK9i4d/w93yf7mHRTXHq+/wzVvPN+9VuijvfZ7fuZzz3Ffwu96vm2ffZ7R/t2ddvxv7n1/xu8t88jmdfMcTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+xDgNMfbn6h4W3RSnvsTYmPsKiLHcCXpfYpyGGPtzdQ+LbopTX2JszH0FxFjuBL0vMU5DjP25uodFN8WpLzE25r4CYix3gt6XGKchxv5c3cOim+LUlxgbc18BMZY7Qe9LjNMQY3+u7mHRTXHqS4yNua+AGMudoPclxmmIsT9X97Dopjj1JcbG3FdAjOVO0PsS4zTE2J+re1h0U5z6EmNj7isgxnIn6H2JcRpi7M/VPSy6KU59ibEx9xUQY7kT9L7EOA0x9ufqHhbdFKe+xNiY+wqIsdwJel9inIYY+3N1D4tu
+ilNfYmzMfQXEWO4EvS8xTkOM/bm6h0U3xakvMTbmvgJiLHeC3pcYpyHG/lzdw6Kb4tSXGBtzXwExljtB70uM0xBjf67uYdFNcepLjI25r4AYy52g9yXGaYixP1f3sOimOPUlxsbcV0CM5U7Q+xLjNMTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+xDgNMfbn6h4W3RSnvsTYmPsKiLHcCXpfYpyGGPtzdQ+LbopTX2JszH0FxFjuBL0vMU5DjP25uodFN8WpLzE25r4CYix3gt6XGKchxv5c3cOim+LUlxgbc18BMZY7Qe9LjNMQY3+u7mHRTXHqS4yNua+AGMudoPclxmmIsT9X97Dopjj1JcbG3FdAjOVO0PsS4zTE2J+re1h0U5z6EmNj7isgxnIn6H2JcRpi7M/VPSy6KU59ibEx9xUQY7kT9L7EOA0x9ufqHhbdFKe+xNiY+wqIsdwJel9inIYY+3N1D4tuilNfYmzMfQXEWO4EvS8xTkOM/bm6h0U3xakvMTbmvgJiLHeC3pcYpyHG/lzdw6Kb4tSXGBtzXwExljtB70uM0xBjf67uYdFNcepLjI25r4AYy52g9yXGaYixP1f3sOimOPUlxsbcV0CM5U7Q+xLjNMTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix
+3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+xDgNMfbn6h4W3RSnvsTYmPsKiLHcCXpfYpyGGPtzdQ+LbopTX2JszH0FxFjuBL0vMU5DjP25uodFN8WpLzE25r4CYix3gt6XGKchxv5c3cOim+LUlxgbc18BMZY7Qe9LjNMQY3+u7mHRTXHqS4yNua+AGMudoPclxmmIsT9X97Dopjj1JcbG3FdAjOVO0PsS4zTE2J+re1h0U5z6EmNj7isgxnIn6H2JcRpi7M/VPSy6KU59ibEx9xUQY7kT9L7EOA0x9ufqHhbdFKe+xNiY+wqIsdwJel9inIYY+3N1D4tuilNfYmzMfQXEWO4EvS8xTkOM/bm6h0U3xakvMTbmvgJiLHeC3pcYpyHG/lzdw6Kb4tSXGBtzXwExljtB70uM0xBjf67uYdFNcepLjI25r4AYy52g9yXGaYixP1f3sOimOPUlxsbcV0CM5U7Q+xLjNMTYn6t7WHRTnPoSY2PuKyDGcifofYlxGmLsz9U9LLopTn2JsTH3FRBjuRP0vsQ4DTH25+oeFt0Up77E2Jj7Coix3Al6X2Kchhj7c3UPi26KU19ibMx9BcRY7gS9LzFOQ4z9ubqHRTfFqS8xNua+AmIsd4LelxinIcb+XN3Dopvi1JcYG3NfATGWO0HvS4zTEGN/ru5h0U1x6kuMjbmvgBjLnaD3JcZpiLE/V/ew6KY49SXGxtxXQIzlTtD7EuM0xNifq3tYdFOc+hJjY+4rIMZyJ+h9iXEaYuzP1T0suilOfYmxMfcVEGO5E/S+j8cfhNAi
+G/UY+X4AAAAASUVORK5CYII=</ImageData>
+    </EmbeddedImage>
  </EmbeddedImages>
  <rd:ReportUnitType>Cm</rd:ReportUnitType>
  <rd:ReportID>ab0e0117-79b9-44e9-a7a3-e3d163f1ee55</rd:ReportID>
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -4874,10 +4874,9 @@ Partial Class Inventarios_RecepcionAlmacen

                                Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal()
                                Dim Serie As String = RowExcel("Serie").ToString()
-                                Dim Lote As String '= RowExcel("Lote").ToString()
-                                Dim FechaCaducidad As Date '= If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate)
-                                Dim Observaciones As String '= If(dt.Columns.Contains("Observaciones"), RowExcel("Observaciones").ToString, "").ToString
-
+                                Dim Lote As String = "" '= RowExcel("Lote").ToString()
+                                Dim FechaCaducidad As Date = MinFecha '= If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate)
+                                Dim Observaciones As String = "" '= If(dt.Columns.Contains("Observaciones"), RowExcel("Observaciones").ToString, "").ToString

                                Dim Valido As Boolean = True

--- a/Inventarios/RepEntradasSalidas.aspx
+++ b/Inventarios/RepEntradasSalidas.aspx
@@ -208,7 +208,9 @@

    <asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional">
        <ContentTemplate>
-            <asp:GridView ID="GvM" Width="100%" runat="server" data-sort="false" GridLines="None"  CssClass="table table-smallpadding table-striped table-hover Widthall ScrollAD" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
+            <asp:GridView ID="GvM" Width="100%" runat="server" data-sort="false" GridLines="None"  CssClass="table table-smallpadding table-striped table-hover Widthall ScrollAD" 
+                DataKeyNames="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Codigo,Codigo2,PS"
+                ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                <Columns>
                    <asp:HyperLinkField  DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="Codigo" />
                    <asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código2" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" Visible="False" DataTextField="Codigo2" />
--- a/Inventarios/RepEntradasSalidas.aspx.vb
+++ b/Inventarios/RepEntradasSalidas.aspx.vb
@@ -293,7 +293,13 @@ Partial Class Inventarios_ReporteEntradasSalidas
    Protected Sub gvMovimientos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvM.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DBCampo("CvePS").ToEntero <= 0 Then
+
                e.Row.CssClass = "Totales"
+                Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)
+                'e.Row.Cells(0).Text = $"<a class='Texto' href='./RepExistenciasCostos.aspx?CvePS={e.Row.DataKey("CvePS")}&CveMoneda={e.Row.DataKey("CveMoneda")}&CveProveedor={e.Row.DataKey("CveProveedor")}&CveConcepto={e.Row.DataKey("CveConcepto")}&FechaI={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&FechaF={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CvePersonal={e.Row.DataKey("CvePersonal")}'>{e.Row.DataKey("Codigo")}</a>"
+                e.Row.Cells(4).Text = $"<a class='Texto' href='./RepExistenciasCostos.aspx?CvePS={DdlPS.txtValue.Value}&CveMoneda={DdlMoneda.SelectedValue}&CveProveedor={DdlProveedor.txtValue.Value}&CveConcepto={DdlTipoMovimiento.SelectedValue}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}&CveAlmacen={Almacenes}&CvePersonal={DdlPersonal.SelectedValue}'>{e.Row.DataKey("PS")}</a>"
+                'e.Row.Cells(4).Text = $"<a class='Texto' href='./RepExistenciasCostos.aspx?CvePS={e.Row.DataKey("CvePS")}&CveMoneda={e.Row.DataKey("CveMoneda")}&CveProveedor={e.Row.DataKey("CveProveedor")}&CveConcepto={e.Row.DataKey("CveConcepto")}&FechaI={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&FechaF={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CvePersonal={e.Row.DataKey("CvePersonal")}'>{e.Row.DataKey("PS")}</a>"
+
            Else
                e.Row.Cells(9).BackColor = Drawing.Color.LightGray
                e.Row.Cells(13).BackColor = Drawing.Color.LightGray
@@ -306,6 +312,14 @@ Partial Class Inventarios_ReporteEntradasSalidas
                e.Row.FCLabel("lbEntradaImp").Text = If(e.Row.DBCampo("EntradaImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("EntradaImp").ToDouble.ToString("N2"))
                e.Row.FCLabel("lbSalidaImp").Text = If(e.Row.DBCampo("SalidaImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("SalidaImp").ToDouble.ToString("N2"))
                e.Row.FCLabel("lbSaldoF2").Text = If(e.Row.DBCampo("SaldoFImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("SaldoFImp").ToDouble.ToString("N2"))
+
+
+
+
+                '0,1,4
+
+
+
            End If

        End If
--- a/Inventarios/RepExistenciasCostos.aspx
+++ b/Inventarios/RepExistenciasCostos.aspx
@@ -132,7 +132,7 @@
                    <Columns>
                        <asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="75px" DataTextField="FechaMovto" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
                        <asp:BoundField HeaderText="Almacen"  DataField="Almacen" />
-                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
+                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
                        <asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" />
                        <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
                        <asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
--- a/Inventarios/RepExistenciasCostos.aspx.vb
+++ b/Inventarios/RepExistenciasCostos.aspx.vb
@@ -60,7 +60,7 @@ Partial Class Inventarios_RepExistenciasCostos
               Request("CveMoneda") IsNot Nothing AndAlso Request("CveConcepto") IsNot Nothing AndAlso
               Request("FechaI") IsNot Nothing AndAlso Request("FechaF") IsNot Nothing Then
                '   Alert(Request("CvePS").ToString, TipoMensaje.MsgAdvertencia)
-                Dim CveAlmacen = IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero
+                Dim CveAlmacen As String = IfNull(Request("CveAlmacen"), "-1").ToString

                CargaDatos(Request("CvePS").ToString.Trim.ToEntero,
                            Request("CveProveedor").ToString.Trim.ToEntero,
@@ -129,6 +129,8 @@ Partial Class Inventarios_RepExistenciasCostos
        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
        DdlAlmacen.DataBind()
        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+
        If Not IsNothing(Request("CveAlmacen")) Then
            If DdlAlmacen.Items.FindByValue(Request("CveAlmacen").ToString) Is Nothing Then
                Dim CveAlmacen = Request("CveAlmacen").ToString
@@ -174,7 +176,7 @@ Partial Class Inventarios_RepExistenciasCostos
        CargaDatos(CvePS, CveProveedor, CveMoneda, CveConcepto, fechaI, fechaF, CveAlmacen, CveClasificacion, DdlPersonal.SelectedValue.ToEntero)
    End Sub

-    Protected Sub CargaDatos(CvePS As Integer, CveProveedor As Integer, CveMoneda As Integer, CveConcepto As Integer, FechaI As Date, FechaF As Date, CveAlmacen As Integer, CveClasificacion As Integer, CvePersonal As Integer)
+    Protected Sub CargaDatos(CvePS As Integer, CveProveedor As Integer, CveMoneda As Integer, CveConcepto As Integer, FechaI As Date, FechaF As Date, CveAlmacen As String, CveClasificacion As Integer, CvePersonal As Integer)
        If CvePS > 0 Then
            LnkKardex.Visible = True
            LnkKardex.NavigateUrl = String.Format("/Inventarios/Kardex.aspx?CvePS={0}", CvePS)
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -644,15 +644,6 @@ Partial Class Inventarios_TraspasoAlmacen

                    Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1")

-                    'If UsuarioActual.CveEmpresa = 140 Then
-                    '    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
-
-                    '    If Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then
-                    '        tSerie = "-1"
-                    '    End If
-
-                    'End If
-
                    Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, tSerie, tLote, tCaducidad)

                    If Valido Then
@@ -1476,16 +1467,6 @@ Partial Class Inventarios_TraspasoAlmacen

                Dim AplicaSerie As Boolean = CBool(drP("AplicaSerie"))

-                ''codigo temporal
-                'If UsuarioActual.CveEmpresa = 140 Then
-                '    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
-
-                '    If Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795, 12010, 12011) Then
-                '        AplicaSerie = False
-                '    End If
-
-                'End If
-
                ThSerie.Visible = AplicaSerie
                TdSerie.Visible = AplicaSerie
                TxtnSerie.Visible = AplicaSerie
--- a/Nomina/Nomina.aspx
+++ b/Nomina/Nomina.aspx
@@ -196,7 +196,7 @@
                <asp:LinkButton ID="LnkTimbrarTodos" Visible="false" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton>
            </li>
            <li>
-                <asp:LinkButton ID="LnkRegistrarProvision" Visible="false" OnClick="LnkRegistrarProvision_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Registrar provisión</asp:LinkButton>
+                <asp:LinkButton ID="LnkRegistrarProvision" Visible="false" OnClick="LnkRegistrarProvision_Click" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea registrar provisión?" data-btn-ok-label="si" ><i class="fa fa-thumbs-up" aria-hidden="true" ></i>Registrar provisión</asp:LinkButton>
            </li>
            <li>
                <asp:HyperLink ID="LnkProvisionNomina" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisión</asp:HyperLink>
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -439,7 +439,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
                    int CvePrePolizaProrrateo = drow["CvePrePolizaProrrateo"].ToString().ToEntero();

                    //LnkConceptoEmpleado.Visible = (Estatus == 1);
-                    LnkRegistrarProvision.Visible = (Estatus >= 2) && (CvePrePolizaProvision <= 0 || UsuarioActual.CveUsuario == 100);
+                    LnkRegistrarProvision.Visible = (Estatus >= 2);//&& (CvePrePolizaProvision <= 0 || UsuarioActual.CveUsuario == 100);
+                    LnkRegistrarProvision.Text = CvePrePolizaProvision <= 0 ? "<i class=\"fa fa-thumbs-up\" aria-hidden=\"true\" ></i>Registrar provisión" : "<i class=\"fa fa-thumbs-up\" aria-hidden=\"true\" ></i>Regenerar provisión";
                    LnkConceptoEmpleado.Visible = true;//(Estatus < 2);
                    LnkCargaAsistenciaMasiva.Visible = (Estatus < 2);
                    LnkModalPlantillaNomina.Visible = true;
--- a/Ventas/CatAutorizacionLimites.aspx
+++ b/Ventas/CatAutorizacionLimites.aspx
@@ -133,7 +133,7 @@
                    </asp:TemplateField>
                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" HeaderText="Eliminar">
                        <ItemTemplate>
-                            <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el limite?" data-btn-ok-label="si" />
+                            <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" Visible='<%#  Eval("CveEstatus").ToString = "0" OrElse Eval("CveEstatus").ToString = "1"   %>' runat="server" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el limite?" data-btn-ok-label="si" />
                        </ItemTemplate>
                    </asp:TemplateField>
                </Columns>
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -623,11 +623,9 @@ Partial Class Ventas_ClientesAbonar

        If RblTipoPago.SelectedValue = "1" Then

-
            Dim ValFechaDocumento As Boolean = False
-        Dim FoliosFechasValFechaDocumento As New StringBuilder
-
-        FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")
+            Dim FoliosFechasValFechaDocumento As New StringBuilder
+            FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")

            For Each gvRowVal As GridViewRow In GvCxC.Rows

@@ -813,26 +811,12 @@ Partial Class Ventas_ClientesAbonar
                    Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

                    If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-                        If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+                        If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                            FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                            TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
                        End If
                    End If

-                    'If ObjIE.GetFluctuacionesBitacora(UsuarioActual.CveEmpresa) Then
-                    '    If ObjIE.DtResultados.Rows.Count > 0 Then
-                    '        Dim tFecha As Date = TxtFechaDocumento.Text.ToDate
-                    '        Dim Fecha As String = String.Format("{0}/{1}/{2}", tFecha.Year, tFecha.Month, tFecha.Day)
-                    '        Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha < #" & Fecha & "#", "Fecha DESC")
-
-                    '        If drr IsNot Nothing Then
-                    '            FechaUltimaFluctuacion = drr("Fecha").ToString.ToDate
-                    '            TipoCambioFluctuacion = drr("TipoCambio").ToString.ToDecimal
-                    '        End If
-
-                    '    End If
-                    'End If
-
                    If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
                        dtConceptos = ObjMov.DtResultados
                    End If
@@ -2586,7 +2570,7 @@ Partial Class Ventas_ClientesAbonar
        Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

        If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-            If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+            If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
            End If
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1249,15 +1249,16 @@ Partial Class ProductosyServicios
    End Sub
    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click

-
        If DdlSATPS.txtValue.Value.ToEntero > 0 Then
-            ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero)
-            If Not ValidaMaterialPeligrosoMensaje Then
+            If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then ' si tiene activada la carta porte

-                Exit Sub
+                ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero)
+                If Not ValidaMaterialPeligrosoMensaje Then
+                    Exit Sub
+                End If
            End If
-        End If

+        End If

        If DdlSATPS.SelectedValue.Contiene("46920", "0", "-1") AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158, 72, 80, 145) Then
            Alert("El Producto Servicio SAT con clave '01010101' no es valido, por favor seleccione otro", TipoMensaje.MsgAdvertencia)
@@ -1283,10 +1284,6 @@ Partial Class ProductosyServicios
                Exit Sub
            End If
        End If
-        'If DdlSubFamilia.SelectedValue = "-1" AndAlso UsuarioActual.TienePermisoProceso(138) Then
-        '    Alert("Se debe especificar Familia y Subfamilia de Costos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If

        If UsuarioActual.Empresa.Funcionalidad(265) = "1" And TxtCodigo.Text = "" Then
            Alert("El código es requerido.", TipoMensaje.MsgAdvertencia)
@@ -1303,7 +1300,6 @@ Partial Class ProductosyServicios
                Alert("La cantidad de venta mínima debe de ser especificada (mayor a cero)", TipoMensaje.MsgAdvertencia)
                Return
            End If
-
        End If

        Dim CveTamaño As Integer = DdlTamanio.SelectedValue.ToEntero
@@ -1329,7 +1325,6 @@ Partial Class ProductosyServicios
                Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
                Return
            End If
-
        End If

        Dim ObjProductosServicios As New ClsProductosServicios()
@@ -3111,8 +3106,6 @@ Partial Class ProductosyServicios
            Dim DTDatos As New DataTable
            DTDatos = ObjGrales.DtResultados.FiltraParametros($" CveSATPS= {CveSATPS}")

-
-
            'Es material Peligros
            If DTDatos.Rows(0)("EsPeligroso").ToString.ToEntero = 1 Then

--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -215,7 +215,7 @@
                            <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>
+                        </div>                       
                    </div>
                    <div class="row">
                        <label class="col-md-1 ">Estatus:</label>
@@ -289,6 +289,14 @@
                        <label title="Clasificación Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Clasif. Cli.:</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>
+                        </div>
+                          <label title="Tipo Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Tipo Cliente:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
+                            </asp:DropDownList>
                        </div>
                        <label title="Proveedor" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Proveedor:</label>
                        <div class="col-md-2">
@@ -298,27 +306,21 @@
                        <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>
                        </div>
-
-                        <label runat="server" id="LblLitraje" title="Mostrar Litraje" data-toggle="tooltip" data-placement="top" class="col-md-1" visible="false">Litraje:</label>
-                        <div runat="server" id="DvLitraje" class="col-md-2" visible="false">
-                            <asp:CheckBox runat="server" ID="ChkLitraje" CssClass="mkcheck" />
-                        </div>
-
-
+                         

                    </div>


                    <div class="row">
-
-                        <label title="Tipo Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Tipo Cliente:</label>
+                        <label title="Condiciones de Pago" data-toggle="tooltip" class="col-md-1 truncate">Condiciones Pago:</label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlTipoCliente" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                            <asp:DropDownList ID="DdlCondicionesPago" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                <asp:ListItem Text="Frecuente" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Crédito" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Contado" Value="0"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
+                       
                        <div class="col-md-1 truncate" id="divgarantia1" runat="server" visible="false">
                            Garantía?:
                        </div>
@@ -329,11 +331,26 @@
                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
                               </asp:Dropdownlist>
                        </div>
-                        <label class="col-md-1 truncate">Lectura administrativa:</label>
+                       
+                        <label title="Distr" data-toggle="tooltip" class="col-md-1 truncate" id="divdistribuidor1" runat="server" visible="false">Distribuidor:</label>
+                        <div class="col-md-2"  id="divdistribuidor2" runat="server" visible="false">
+                            <asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Distribuidor" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No Distribuidor" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                                                
+                        <div runat="server" id="DvLitraje" class="col-md-1" visible="false">
+                            <asp:CheckBox runat="server" ID="ChkLitraje" CssClass="mkcheck" Text ="Litraje:&nbsp;&nbsp;&nbsp;" TextAlign="Left" />
+                        </div>
+                        </div>
+                      <div class="row">
+                         <label class="col-md-1 truncate">Lectura administrativa:</label>
                        <div class="col-md-2">
                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                        </div>
-
+                               
                    </div>
                </div>
            </div>
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -63,11 +63,12 @@ Partial Class Ventas_RepProductosServicios
            SetValues()

            If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then
-                LblLitraje.Visible = True
                DvLitraje.Visible = True
                'garantia
                divgarantia1.Visible = True
                divgarantia2.Visible = True
+                divdistribuidor1.Visible = True
+                divdistribuidor2.Visible = True
            End If

        End If
@@ -250,9 +251,11 @@ Partial Class Ventas_RepProductosServicios
            DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
            DdlVendedor.Attributes.Add("disabled", "disabled")
            DdlVendedor.Enabled = False
-        End If
-
-
+        End If
+
+        txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
+        txtFechaF.Text = Now.ToShortDateString
+
    End Sub
 #End Region

@@ -284,7 +287,8 @@ Partial Class Ventas_RepProductosServicios
                                              DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1",
                                              UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
                                              CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra,
-                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
+                                              CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable,
+                                              CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero) Then
            GvDatos.DataSource = ObjVentas.DtResultados
            DtVentas = ObjVentas.DtResultados
        Else
@@ -364,11 +368,15 @@ 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}&CveClasificacionDetalle={30}&TipoCliente={31}&ModalidadContable={32}",
-                                                                                    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"), cveMarca, CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), If(Not ChkLecturaAdmin.Checked, 1, 0))
+            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}
+                                        &TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}",
+                                                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"), cveMarca,
+                                                CveClasificacionDetalle, If(DdlGrupo.SelectedValue.ToEntero = 23, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue), If(Not ChkLecturaAdmin.Checked, 1, 0),
+                                                e.Row.DBCampo("EsGarantia"), e.Row.DBCampo("CveCondicionesPago"), IIf(e.Row.DBCampo("MostrarLitraje") = "True", 1, 0), e.Row.DBCampo("EsDistribuidor"))


            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
@@ -315,10 +315,41 @@
                                <asp:ListItem Text="Venta Mostrador" Value="2"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
-                        <label class="col-md-1 truncate">Lectura administrativa:</label>
+                        <label title="Condiciones de Pago" data-toggle="tooltip" class="col-md-1 truncate">Condiciones Pago:</label>
                        <div class="col-md-2">
-                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
+                            <asp:DropDownList ID="DdlCondicionesPago" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Crédito" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Contado" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
                        </div>
+                        <div class="col-md-1 truncate" id="divgarantia1" runat="server" visible="false">
+                            Garantía?:
+                        </div>
+                        <div class="col-md-1" id="divgarantia2" runat="server" visible="false">
+                           <asp:Dropdownlist runat="server" ID="DdlGarantia" CssStyle="width: 100%;"  CssClass="form-control  input-small input-sm select2me" Width="100%">
+                                <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
+                                <asp:ListItem Text="Si" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
+                               </asp:Dropdownlist>
+                        </div>
+                       
+                         <label title="Distr" data-toggle="tooltip" class="col-md-1 truncate" id="divdistribuidor1" runat="server" visible="false">Distribuidor:</label>
+                        <div class="col-md-2" id="divdistribuidor2" runat="server" visible="false">
+                            <asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Distribuidor" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No Distribuidor" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <div runat="server" id="DvLitraje" class="col-md-1" visible="false">
+                            <asp:CheckBox runat="server" ID="ChkLitraje" CssClass="mkcheck" Text ="Litraje:&nbsp;&nbsp;&nbsp;" TextAlign="Left" />
+                        </div>
+                      </div>
+                         <div class="row">
+                            <div class="col-md-2">
+                                <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" Text="Lectura admiva:" TextAlign="Left" />
+                            </div> 
                    </div>
                </div>
            </div>
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -316,6 +316,11 @@ Partial Class Ventas_RepProductosServiciosDetalle
        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

+        DdlGarantia.SelectedValueExist(If(Request("EsGarantia") IsNot Nothing AndAlso Request("EsGarantia").ToEntero() > 0, Request("EsGarantia").ToEntero(), -1).ToString)
+        DdlCondicionesPago.SelectedValueExist(If(Request("CveCondicionesPago") IsNot Nothing AndAlso Request("CveCondicionesPago").ToEntero() > 0, Request("CveCondicionesPago").ToEntero(), -1).ToString)
+        DdlDistribuidor.SelectedValueExist(If(Request("EsDistribuidor") IsNot Nothing AndAlso Request("EsDistribuidor").ToEntero() > 0, Request("EsDistribuidor").ToEntero(), -1).ToString)
+        ChkLitraje.Checked = Request("MostrarLitraje") IsNot Nothing AndAlso Request("MostrarLitraje").ToEntero() > 0
+
        TipoCliente = If(Request("TipoCliente") IsNot Nothing, Request("TipoCliente").ToString, "-1").ToString.ToEntero

        DdlTipoCliente.SelectedValueExist(TipoCliente)
@@ -324,9 +329,11 @@ Partial Class Ventas_RepProductosServiciosDetalle
            txtFechaI.Text = Fecha
            txtFechaF.Text = Fecha
        End If
+
        If FechaI <> "-1" Then
            txtFechaI.Text = FechaI
        End If
+
        If FechaF <> "-1" Then
            txtFechaF.Text = FechaF
        End If
@@ -357,7 +364,13 @@ Partial Class Ventas_RepProductosServiciosDetalle
                End If

            Else
-                txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
+
+                If FechaI = "-1" Then
+                    txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
+                Else
+                    txtFechaI.Text = FechaI
+                End If
+
                FechaFtemporal = $"01/{AnioMes.Substring(5, 1).PadLeft(2, "0"c)}/{AnioMes.Substring(0, 4)}"

                If FechaF = "-1" Then
@@ -380,6 +393,14 @@ Partial Class Ventas_RepProductosServiciosDetalle

        txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text)

+        If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then
+            DvLitraje.Visible = True
+            'garantia
+            divgarantia1.Visible = True
+            divgarantia2.Visible = True
+            divdistribuidor1.Visible = True
+            divdistribuidor2.Visible = True
+        End If

        If FechaEjec <> "-1" Then
            TxtFechaIEjec.Text = FechaEjec
@@ -464,7 +485,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
                                              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, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero(), TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
-                                              ModalidadContable:=Not ChkLecturaAdmin.Checked) Then
+                                              ModalidadContable:=Not ChkLecturaAdmin.Checked, MostrarLitraje:=ChkLitraje.Checked, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero) Then
            GvDatos.DataSource = ObjVentas.DtResultados
            TmpDT = ObjVentas.DtResultados
        Else
@@ -616,8 +637,10 @@ Partial Class Ventas_RepProductosServiciosDetalle
        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
        If EsWS Then
            DdlClientes.setEsWebService(True)
-            DdlClientes.SelectedValue = CveCliente.ToString
-            DdlClientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("Nombre", String.Format("CveCliente = {0}", CveCliente))
+            If CveCliente > 0 Then
+                DdlClientes.SelectedValue = CveCliente.ToString
+                DdlClientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre")
+            End If
        Else
            DdlClientes.setEsWebService(False)
            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1")
--- a/Ventas/RepVentas.aspx
+++ b/Ventas/RepVentas.aspx
@@ -304,6 +304,14 @@
                        <div class="col-md-2">
                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                        </div>
+                        <label title="Distr" data-toggle="tooltip" class="col-md-1 truncate">Distribuidor:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Distribuidor" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No Distribuidor" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                    </div>
                </div>
            </div>
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -283,6 +283,9 @@ Partial Class Ventas_RepVentas
        DdlClienteClasificacion.DataBind()
        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))

+        txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
+        txtFechaF.Text = Now.ToShortDateString
+

    End Sub

@@ -330,7 +333,8 @@ Partial Class Ventas_RepVentas

        If ObjVentas.GetRepVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, Vendedores,
                                  DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
-                                  CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then
+                                  CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable,
+                                    EsDistribuidor:=DdlDistribuidor.selectedvalue.toentero) Then
            GvDatos.DataSource = ObjVentas.DtResultados
            DtVentas = ObjVentas.DtResultados
        Else
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11072,7 +11072,7 @@ Partial Class Ventas
                            Timbre.CFDIRelacionados.TipoRelacionTexto = "03-Devolución aplicada a Ingreso"
                        Case 4
                            Timbre.CFDIRelacionados.TipoRelacion = "04"
-                            Timbre.CFDIRelacionados.TipoRelacionTexto = "04-Refacturación de Ingreso"
+                            Timbre.CFDIRelacionados.TipoRelacionTexto = "04-Sustitución de los CFDI Previos"
                        Case 7
                            Timbre.CFDIRelacionados.TipoRelacion = "07"
                            Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo"
@@ -14897,7 +14897,7 @@ Partial Class Ventas
                            Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

                            If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-                                If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+                                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                                    FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                                    TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
                                End If
@@ -25462,7 +25462,7 @@ Partial Class Ventas
        Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

        If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-            If UltimaFluctuacion.FechaFluctuacion < tFecha Then
+            If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
                FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
                TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
            End If
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -410,6 +410,8 @@
    
  
    
+  
+