--Merge Cotizacion

2022-11-09 16:34:50 -07:00
parent de645bbb57 88eb5f0026
commit f6d0b4e6e4
49 changed files with 9565 additions and 9073 deletions
--- a/AF/RepDepreciacion.aspx.vb
+++ b/AF/RepDepreciacion.aspx.vb
@@ -38,17 +38,16 @@ Partial Class AF_RepDepreciacion

            For Each RowsDt As GridViewRow In GvDatos.Rows
                CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero
-                If RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble > 0 And CveActivoFijo <> 0 Then
-
-                    Dim MontoDepreciacion As Double = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble
+                Dim MontoDepreciacion As Decimal = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDecimal
+                If MontoDepreciacion > 0 And CveActivoFijo <> 0 Then
                    Dim ConceptoPolizaDetalle As String = String.Format("Depreciacion - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text)

                    If CvePrePoliza > 0 Then
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, MontoDepreciacion.ToDecimal, ConceptoPolizaDetalle, 101, ConceptoPolizaDetalle, txtFechaI.Text.ToDate, 0, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=MontoDepreciacion.ToDecimal, ImporteME:=MontoDepreciacion.ToDecimal, CveSubProyecto:=CveSubProyecto) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -MontoDepreciacion, -MontoDepreciacion, 270, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then
                            ErrorMovInv = True
                            Exit For
                        End If
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, MontoDepreciacion.ToDecimal, ConceptoPolizaDetalle, 51, ConceptoPolizaDetalle, txtFechaI.Text.ToDate, 0, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=MontoDepreciacion.ToDecimal, ImporteME:=MontoDepreciacion.ToDecimal, CveSubProyecto:=CveSubProyecto) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, MontoDepreciacion, MontoDepreciacion, 101, ConceptoPolizaDetalle, ConceptoPolizaDetalle, 0, CveActivoFijo:=CveActivoFijo, CveSubProyecto:=CveSubProyecto) Then
                            ErrorMovInv = True
                            Exit For
                        End If
--- a/Acumuladores/CatGarantiasMeses.aspx.vb
+++ b/Acumuladores/CatGarantiasMeses.aspx.vb
@@ -72,15 +72,20 @@ Partial Class Acumuladores_CatFoliosGarantia

    Private Sub CargaCombos()

-        Dim ObjPS As New ClsProductosServicios
+        'Dim ObjPS As New ClsProductosServicios

-        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
-            DdlMarca.DataSource = ObjPS.DtResultados
-            DdlMarca.DataBind()
-            DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlMarca.SelectedValue = "-1"
-        End If
-        ObjPS.Dispose()
+        'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+        '    DdlMarca.DataSource = ObjPS.DtResultados
+        '    DdlMarca.DataBind()
+        '    DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+        '    DdlMarca.SelectedValue = "-1"
+        'End If
+        'ObjPS.Dispose()
+
+        DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
+        DdlMarca.DataBind()
+        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlMarca.SelectedValue = "-1"

        DdlTipoUso.DataSource = GlobalDTAcumTiposUso()
        DdlTipoUso.DataBind()
@@ -109,13 +114,14 @@ Partial Class Acumuladores_CatFoliosGarantia

    Private Sub CargaCombosModal()

-        Dim ObjPS As New ClsProductosServicios
+        'Dim ObjPS As New ClsProductosServicios

-        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
-            DdlMarcaM.DataSource = ObjPS.DtResultados
+        'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+        '    DdlMarcaM.DataSource = ObjPS.DtResultados

-        End If
-        ObjPS.Dispose()
+        'End If
+        'ObjPS.Dispose()
+        DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
        DdlMarcaM.DataBind()

        DdlTipoUsoM.DataSource = GlobalDTAcumTiposUso()
--- a/App_Code/ClsCRM.vb
+++ b/App_Code/ClsCRM.vb
@@ -667,7 +667,7 @@ Public Class ClsCRM
                                    Optional CveVendedor As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1", Optional NombreAcercamiento As String = "-1",
                                    Optional CveMedioCaptacion As Integer = -1, Optional CveRechazoMotivo As Integer = -1, Optional CveProbabilidad As Integer = -1,
                                    Optional FechaApertura As String = "-1", Optional FechaCierre As String = "-1", Optional TopSelect As Integer = 10000, Optional CvePS As Integer = -1,
-                                    Optional CveGiroClasificacion As Integer = -1) As Boolean
+                                    Optional CveGiroClasificacion As Integer = -1, Optional EnPausa As Integer = -1, Optional CveEtapaProceso As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_CRM_AcercamientoGet")
        With SqlAdapter.SelectCommand.Parameters
@@ -694,6 +694,12 @@ Public Class ClsCRM

            .Add("@CvePS", SqlDbType.Int).Value = CvePS
            .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
+
+            .Add("@EnPausa", SqlDbType.Int).Value = EnPausa
+            .Add("@CveEtapaProceso", SqlDbType.Int).Value = CveEtapaProceso
+            '.Add("@CveMedioCaptacion", SqlDbType.Int).Value = CveMedioCaptacion
+            '.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
+
        End With
        Try
            SqlAdapter.Fill(Data)
@@ -1030,7 +1036,8 @@ Public Class ClsCRM

 #Region "REPORTES"

-    Public Function RepAcercamientosEtapas(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32, cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1) As Boolean
+    Public Function RepAcercamientosEtapas(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32,
+                                           cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1, Optional EnPausa As Integer = -1, Optional CveEtapaProceso As Integer = -1) As Boolean
        Dim retorno As Boolean = False
        DataAdapter("PA_CRM_RepAcercamientosEtapas", CommandType.StoredProcedure)

@@ -1046,6 +1053,13 @@ Public Class ClsCRM
            .Add("@CveProbabilidadAcercamiento", SqlDbType.Int).Value = cveProbabilidadAcercamiento
            .Add("@CvePS", SqlDbType.Int).Value = CvePS
            .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
+
+            .Add("@EnPausa", SqlDbType.Int).Value = EnPausa
+            .Add("@CveEtapaProcesoFiltro", SqlDbType.Int).Value = CveEtapaProceso  '@CveEtapaProcesoFiltro
+            '.Add("@CveMedioCaptacion", SqlDbType.Int).Value = cveMedioCaptacion
+            '.Add("@CveTipoProceso", SqlDbType.Int).Value = cveTipoProceso
+
+
        End With
        Try
            SqlAdapter.Fill(DSet)
@@ -1056,7 +1070,8 @@ Public Class ClsCRM
        Return retorno
    End Function

-    Public Function RepAcercamientosRechazos(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32, cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1) As Boolean
+    Public Function RepAcercamientosRechazos(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32,
+                                             cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1, Optional EnPausa As Integer = -1, Optional CveEtapaProceso As Integer = -1) As Boolean
        Dim retorno As Boolean = False
        DataAdapter("PA_CRM_RepAcercamientosRechazos", CommandType.StoredProcedure)

@@ -1072,6 +1087,10 @@ Public Class ClsCRM
            .Add("@CveProbabilidadAcercamiento", SqlDbType.Int).Value = cveProbabilidadAcercamiento
            .Add("@CvePS", SqlDbType.Int).Value = CvePS
            .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
+
+            .Add("@EnPausa", SqlDbType.Int).Value = EnPausa
+            .Add("@CveEtapaProcesoFiltro", SqlDbType.Int).Value = CveEtapaProceso
+
        End With
        Try
            SqlAdapter.Fill(DSet)
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -3378,10 +3378,10 @@ Public Class ClsContabilidad
        With SqlAdapter.SelectCommand.Parameters
            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@Afectable", SqlDbType.VarChar).Value = Afectable
-            .Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa
+            .Add("@Afectable", SqlDbType.Int).Value = Afectable
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
            .Add("@Nombre", SqlDbType.VarChar).Value = Nombre
-            .Add("@RowNum", SqlDbType.VarChar).Value = RowNum
+            .Add("@RowNum", SqlDbType.Int).Value = RowNum
            .Add("@CvePadre", SqlDbType.Int).Value = CvePadre
        End With

--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -1189,12 +1189,13 @@ Public Class ClsOIEventos


 #Region "CRUD_cheklist"
-    Public Function Getcheklist(cveEvento As Int32) As Boolean
+    Public Function Getcheklist(cveEvento As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
        Dim retorno As Boolean = False
        DataAdapter("PA_OI_cheklistGet", CommandType.StoredProcedure)
        With SqlAdapter.SelectCommand.Parameters

            .Add("@cveEvento", SqlDbType.Int).Value = cveEvento
+            .Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
        End With
        Try
            SqlAdapter.Fill(Data)
@@ -1204,13 +1205,14 @@ Public Class ClsOIEventos
        End Try
        Return retorno
    End Function
-    Public Function Addcheklist(cveEvento As Int32, eventoComentario As String, cveUsuario As Int32) As Boolean
+    Public Function Addcheklist(cveEvento As Int32, eventoComentario As String, cveUsuario As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
        Dim retorno As Boolean = False
        DataAdapter("PA_OI_cheklistAdd", CommandType.StoredProcedure)
        With SqlAdapter.SelectCommand.Parameters
            .Add("@cveEvento", SqlDbType.Int).Value = cveEvento
            .Add("@eventoComentario", SqlDbType.VarChar).Value = eventoComentario
            .Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
+            .Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
        End With
        Try
            SqlAdapter.Fill(Data)
@@ -1220,7 +1222,7 @@ Public Class ClsOIEventos
        End Try
        Return retorno
    End Function
-    Public Function Upcheklist(cveEventoCheckList As Int32, cveEvento As Int32, eventoComentario As String, estatus As Boolean, cveUsuario As Int32, CveEmpresa As Int32) As Boolean
+    Public Function Upcheklist(cveEventoCheckList As Int32, cveEvento As Int32, eventoComentario As String, estatus As Boolean, cveUsuario As Int32, CveEmpresa As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
        Dim retorno As Boolean = False
        DataAdapter("PA_OI_cheklistUp", CommandType.StoredProcedure)
        With SqlAdapter.SelectCommand.Parameters
@@ -1230,6 +1232,7 @@ Public Class ClsOIEventos
            .Add("@estatus", SqlDbType.Bit).Value = estatus
            .Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
        End With

        Dim separador As String = ""
@@ -1272,13 +1275,14 @@ Public Class ClsOIEventos
        End If
        Return retorno
    End Function
-    Public Function Removecheklist(cveEventoCheckList As Int32, cveEvento As Int32, cveUsuario As Int32) As Boolean
+    Public Function Removecheklist(cveEventoCheckList As Int32, cveEvento As Int32, cveUsuario As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
        Dim retorno As Boolean = False
        DataAdapter("PA_OI_cheklistRemove", CommandType.StoredProcedure)
        With SqlAdapter.SelectCommand.Parameters
            .Add("@cveEventoCheckList", SqlDbType.Int).Value = cveEventoCheckList
            .Add("@cveEvento", SqlDbType.Int).Value = cveEvento
            .Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
+            .Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
        End With
        Try
            SqlAdapter.Fill(Data)
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4712,7 +4712,6 @@ Public Class ClsPaginas
            PaginaDict.Add("/Compras/RepCxP.aspx".ToUpper(), 168)
            PaginaDict.Add("/Compras/RepCxPDetalle.aspx".ToUpper(), 168)
            PaginaDict.Add("/Compras/CatProveedoresClasificaciones.aspx".ToUpper(), 186)
-            PaginaDict.Add("/Compras/CatAcreedores.aspx".ToUpper(), 303)
            PaginaDict.Add("/Compras/Acreedores.aspx".ToUpper(), 303)
            PaginaDict.Add("/Compras/RepComprasG.aspx".ToUpper(), 286)
            PaginaDict.Add("/Compras/Compras2.aspx".ToUpper(), -1)
@@ -5778,11 +5777,11 @@ Public Class ClsPaginas
        If sw IsNot Nothing AndAlso Not (Not User.Identity.IsAuthenticated OrElse UsuarioActual Is Nothing) Then

            sw.Stop()
-            'If Not Page.IsPostBack Then
-            '    Using ObjUsuario As New ClsSisUsuarios
-            '        ObjUsuario.AddBitacora(CveModulo, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request.Url.PathAndQuery.ToString(), sw.ElapsedMilliseconds)
-            '    End Using
-            'End If
+            If Not Page.IsPostBack Then
+                Using ObjUsuario As New ClsSisUsuarios
+                    ObjUsuario.AddBitacora(CveModulo, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request.Url.PathAndQuery.ToString(), sw.ElapsedMilliseconds)
+                End Using
+            End If

        End If
        If Not IsNothing(ViewState("strToastMsglargonoreplace")) AndAlso ViewState("strToastMsglargonoreplace").ToString.Length > 0 Then
@@ -9633,6 +9632,8 @@ Public Class ClsPaginas
        Dim ImporteMN As Decimal = 0
        Dim ImporteME As Decimal = 0
        Dim TCValuacion As Decimal = CompraActual.TC
+        Dim TCValuacionPago As Decimal = Pago.TCPago
+        Dim tFechaUltimaFluctuacion As Date
        Dim tImportePago, tImporteCompra As Decimal
        Dim CveConceptoContableComplementaria As Integer = 206

@@ -9650,16 +9651,15 @@ Public Class ClsPaginas
        Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)

        Dim tFecha As Date = Pago.Fecha
+        Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)

-        If CompraActual.CveMoneda <> 1 OrElse Pago.CveMonedaPago <> 1 Then
-            Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
-
-            If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
-                If UltimaFluctuacion.FechaFluctuacion <= tFecha AndAlso CompraActual.Fecha <= UltimaFluctuacion.FechaFluctuacion Then
-                    'FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
-                    TCValuacion = UltimaFluctuacion.TCFluctuacion
-                End If
+        If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
+            If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
+                tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
+                TCValuacion = UltimaFluctuacion.TCFluctuacion
            End If
+            If CompraActual.Fecha < tFechaUltimaFluctuacion Then TCValuacion = TCValuacion
+            If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
        End If

        If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
@@ -9793,6 +9793,82 @@ Public Class ClsPaginas

        End If

+        'concepto pago
+        Concepto = String.Format("{0} NC:{1}", CompraActual.ProveedorNombre, Pago.Referencia)
+
+        If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' A N T I C I P O   /   E G R E S O S   X   C O M P R O B A R 
+            Dim Ret As New ConceptosRetenciones
+            If Pago.CveMonedaPago > 1 Then
+                'Agregamos la Extranjera
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+
+                ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+            Else
+                'Agregamos Nacional
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
+
+            End If
+
+        End If
+
+        If Pago.TipoPago.Contiene("NC", "DEV") AndAlso Not ErrorMovtos Then ' N O T A   D E   C R E D I T O 
+            Dim Ret As New ConceptosRetenciones
+            If Pago.CveMonedaPago > 1 Then
+                'Agregamos la Extranjera
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+
+                ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 235, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+            Else
+                'Agregamos Nacional
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+
+            End If
+
+        End If
+
+        If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then '  D E U D O R  D I V E R S O  
+            Dim Ret As New ConceptosRetenciones
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
+                If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
+            End If
+
+            If Pago.CveMonedaPago > 1 Then
+                'Agregamos la Extranjera
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+
+                ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+            Else
+                'Agregamos Nacional
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveVenta:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+
+            End If
+        End If
+
+        'If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' I N G R E S O S   X   C O M P R O B A R 
+        '    Dim Ret As New ConceptosRetenciones
+        '    If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+        '        If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
+        '        If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
+
+        '    End If
+
+        '    If Pago.CveMonedaPago > 1 Then
+        '        'Agregamos la Extranjera
+        '        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+
+        '        ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
+        '        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+        '    Else
+        '        'Agregamos Nacional
+        '        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+
+        '    End If
+        'End If
+
        If Not ErrorMovtos AndAlso TCValuacion <> Pago.TCPago Then
            Dim ConceptoContable, IdCtaContable As Integer
            Dim TipoMovimiento As Boolean
@@ -9844,6 +9920,7 @@ Public Class ClsPaginas
        Public Property OtroGastoIngreso As Decimal = 0
        Public Property CveConceptoPago As Integer = -1 'no definido de inicio
        Public Property CveCreditoDetalle As Integer = -1
+        Public Property Referencia As String = ""
        Public Property AplicaAcreditable As Boolean = True

    End Class
@@ -9870,9 +9947,10 @@ Public Class ClsPaginas
        Public Property CveConceptoRetISR As Integer
        Public Property CveSubProyecto As Integer
        Public Property UsuarioActual As Usuario
-
        Public Property IdCtaContableProv As Integer
        Public Property IdCtaContableProvComplementaria As Integer
+        Public Property IdCtaContableAnticipoProv As Integer
+        Public Property IdCtaContableAnticipoProvComplementaria As Integer
        Public ReadOnly Property ConceptoPrePolizaIVA As ConceptosRetenciones
            Get
                Dim Ret As New ConceptosRetenciones
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -1004,11 +1004,11 @@ Namespace Extensiones
                '**********Une la parte entera y la parte decimal*************
                If dec <> "" Then

-                    palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda)
+                    palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)

                    Retorno = palabras.ToString
                Else
-                    palabras.AppendFormat("{0} {1} /100 {2}", Moneda, dec, AbrevMoneda)
+                    palabras.AppendFormat("{0} {1}/100 {2}", Moneda, dec, AbrevMoneda)

                    Retorno = palabras.ToString
                End If
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -5462,7 +5462,7 @@ Partial Class Bancos_IE

                Else

-                    Alert("El documento no ha sido eliminado.", TipoMensaje.MsgAdvertencia)
+                    Alert($"El documento no ha sido eliminado. {If(UsuarioActual.CveRol = 1, MsgEliminar, "")}", TipoMensaje.MsgAdvertencia)

                    If ObjAC IsNot Nothing Then ObjAC.RollBack()

--- a/Bin/ADSNetLibrary.7z
+++ b/Bin/ADSNetLibrary.7z
--- a/Bin/ADSNetLibrary.dll
+++ b/Bin/ADSNetLibrary.dll
--- a/CRM/Acercamiento.aspx
+++ b/CRM/Acercamiento.aspx
@@ -349,6 +349,7 @@
    <asp:UpdatePanel ID="UPAcercamiento" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
            <ajax:TabContainer ID="TabsAcercamiento" runat="server" ActiveTabIndex="0" Width="100%">
+
                <ajax:TabPanel ID="TabDatosAcercmaiento" runat="server" HeaderText="Información de la Empresa">
                    <ContentTemplate>
                        <div class="row">
@@ -410,6 +411,21 @@
                                            <label style="height: 83px;" for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción del Proyecto:</label>
                                            <i></i>
                                        </div>
+
+                                         <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlEmpresaCRM" DataTextField="Empresa" DataValueField="CveEmpresaCRM" CausesValidation="true" OnSelectedIndexChanged="DdlEmpresaCRM_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                            <label for="<%= DdlEmpresaCRM.ClientID.ToString()%>">Empresa:</label>
+                                            <asp:RequiredFieldValidator ID="RFVEmpresaCRM" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlEmpresaCRM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Empresa''</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                        </div>
+
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlContactoPrincipal" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveContacto" Class="form-control input-sm select2me">
+                                                <asp:ListItem Value="-1" Text="Seleccione"></asp:ListItem>
+                                            </asp:DropDownList>
+                                            <label for="<%= DdlContactoPrincipal.ClientID.ToString()%>">Contacto Principal:</label>
+                                        </div>
+
+
                                        <div id="DivPS" runat="server" class="form-group form-md-line-input input-iconright">
                                            <label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label>
                                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
@@ -482,6 +498,7 @@
                            </div>

                            <div class="col-md-4">
+
                                <div class="portlet light xspadding bordered" style="height: 228px">
                                    <div class="portlet-title">
                                        <div class="caption font-green">
@@ -494,19 +511,7 @@
                                        </div>
                                    </div>

-                                    <div id="DivBodyProceso" class="portlet-body form">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlEmpresaCRM" DataTextField="Empresa" DataValueField="CveEmpresaCRM" CausesValidation="true" OnSelectedIndexChanged="DdlEmpresaCRM_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
-                                            <label for="<%= DdlEmpresaCRM.ClientID.ToString()%>">Empresa:</label>
-                                            <asp:RequiredFieldValidator ID="RFVEmpresaCRM" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlEmpresaCRM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Empresa''</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                        </div>
-
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlContactoPrincipal" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveContacto" Class="form-control input-sm select2me">
-                                                <asp:ListItem Value="-1" Text="Seleccione"></asp:ListItem>
-                                            </asp:DropDownList>
-                                            <label for="<%= DdlContactoPrincipal.ClientID.ToString()%>">Contacto Principal:</label>
-                                        </div>
+                                    <div id="DivBodyProceso" class="portlet-body form">                                       

                                        <%-- <div class="form-group form-md-line-input input-iconright">
                                            <asp:DropDownList ID="DdlTipoProceso" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CausesValidation="true" OnSelectedIndexChanged="DdlTipoProceso_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
@@ -521,8 +526,82 @@
                                            <label for="<%= DdlEtapaProceso.ClientID.ToString()%>">Etapa Actual:</label>
                                            <asp:RequiredFieldValidator ID="RFVEtapaActual" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlEtapaProceso" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Etapa Actual'</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                        </div>
+
+                                        <div class="row">
+                                            <div class="form-group col-md-6 ">
+                                                <label>En pausa: </label>
+                                                <asp:CheckBox ID="ChkePausa" runat="server" CssClass="make-switchsd" data-size="small" Text=" " />
+                                            </div>
+                                        </div>
+
+                                        <br />
+                                        <asp:UpdatePanel ID="UpChkList" runat="server" UpdateMode="Conditional">                                      
+                                            
+                                            <ContentTemplate>
+
+                                                <div class="row">
+                                                    <div class="col-md-8">
+                                                        <div class="form-group form-md-line-input">
+                                                            <asp:TextBox ID="TxtActividad" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                                            <asp:RequiredFieldValidator ID="Rfvactividadchklist" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtActividad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''actividad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTareachklist"></asp:RequiredFieldValidator>
+                                                            <asp:Label runat="server" Text="Actividad" AssociatedControlID="TxtActividad"></asp:Label>
+                                                        </div>
+                                                    </div>
+                                                    <div class="col-md-4">
+                                                        <%--<asp:Button ID="LnkSinfuncion" OnClick="LnkSinfuncion_Click" UseSubmitBehavior="false" CssClass="btn btn-default LnkSinfuncion hidden" runat="server"></asp:Button>--%>
+                                                        <asp:LinkButton ID="LnkAgregarchklistitem" OnClick="LnkAgregarchklistitem_Click" ValidationGroup="GrpTareachklist" CssClass="btn btn-success" runat="server">Agregar</asp:LinkButton>
+                                                        <%--<a class="btn btn-default">Agregar</a>--%>
+                                                    </div>
+                                                </div>
+
+                                                <div class="row">
+                                                    <div class="col-md-12">
+
+                                                        <asp:GridView ID="GVcheklist" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVcheklist" AutoGenerateColumns="False"
+                                                            DataKeyNames="CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng">
+                                                            <Columns>
+                                                                <asp:TemplateField HeaderText="" ItemStyle-Width="30">
+                                                                    <ItemTemplate>
+                                                                        <asp:CheckBox ID="ChkEstatus" Text=" " AutoPostBack="true" OnCheckedChanged="ChkEstatus_CheckedChanged" runat="server" data-valor='<%# Extensiones.ModExtensiones.Encripta(Eval("CveEventoCheckList").ToString())%>' Checked='<%# Eval("Estatus")%>' />
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                                <asp:TemplateField HeaderText="Actividad">
+                                                                    <ItemTemplate>
+                                                                        <%--<pre>--%>
+                                                                        <span class="pre">
+                                                                            <asp:Literal ID="lbleventoComentario" runat="server" Text='<%# Eval("EventoComentario")%>'> </asp:Literal>
+                                                                        </span>
+                                                                        <%--</pre>--%>
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                                <asp:TemplateField ItemStyle-Width="30" Visible="false">
+                                                                    <ItemTemplate>
+                                                                        <%--<asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarCheck_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>--%>
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                                <asp:TemplateField ItemStyle-Width="30">
+                                                                    <ItemTemplate>
+                                                                        <asp:LinkButton ID="LnkD" runat="server" OnClick="LnkEliminarchek_Click" 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 cheklist?" data-btn-ok-label="si" />
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                            </Columns>
+                                                        </asp:GridView>
+
+                                                    </div>
+
+                                                 </div>
+
+                                                
+
+                                            </ContentTemplate>
+
+
+                                        </asp:UpdatePanel>
+                                        
                                    </div>
+
                                </div>
+
                            </div>
                            <%--END DATOS DE EMPRESA CRM --%>
                        </div>
--- a/CRM/Acercamiento.aspx.cs
+++ b/CRM/Acercamiento.aspx.cs
@@ -5,11 +5,14 @@ using ADSNetLibrary.SIGAPI.Models.Ventas.Request;
 using ADSNetLibrary.SIGAPI.Services;
 using ADSNetLibrary.SIGAPI.Services.CRM;
 using ADSNetLibrary.SIGAPI.Services.Encuestas;
+using DocumentFormat.OpenXml.Drawing.Diagrams;
 using Extensiones;
+using FormulaEvaluator;
 using MoreLinq;
 using System;
 using System.Collections.Generic;
 using System.Data;
+using System.Data.SqlClient;
 using System.IO;
 using System.Linq;
 using System.Web;
@@ -266,6 +269,10 @@ public partial class CRM_Acercamiento : ClsPaginas
            ViewState["TieneCotizacion"] = value;
        }
    }
+
+    //public int RCveEvento { get { return ViewState["RCveEvento"] != null ? ViewState["RCveEvento"].ToString().ToEntero() : 0; } set { ViewState["RCveEvento"] = value; } }
+    public System.Data.DataTable CheckListNew { get { return ViewState["CheckListNew"] != null ? (System.Data.DataTable)ViewState["CheckListNew"] : null; } set { ViewState["CheckListNew"] = value; } }
+    public int chklistitemindex { get { return ViewState["chklistitemindex"] != null ? ViewState["chklistitemindex"].ToString().ToEntero() : 0; } set { ViewState["chklistitemindex"] = value; } }
    #endregion

    protected void Page_Load(object sender, EventArgs e)
@@ -300,6 +307,8 @@ public partial class CRM_Acercamiento : ClsPaginas
                        DivMensajeDatosTecnicos.Visible = false;
                    }
                }
+
+                CargaCheckLis();
            }
            CargarPS();
        }
@@ -334,11 +343,12 @@ public partial class CRM_Acercamiento : ClsPaginas
                TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento;
                TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion;
                TxtFechaApertura.Text = objAcercamiento.Result[0].FechaApertura.ToDateTime().ToShortDateString();
-                TxtFechaCierre.Text = (objAcercamiento.Result[0].FechaCierre.ToString() == "") ? "" : objAcercamiento.Result[0].FechaCierre.ToDateTime().ToShortDateString();
+                TxtFechaCierre.Text = (objAcercamiento.Result[0].FechaCierre.ToString() == "") || objAcercamiento.Result[0].FechaCierre.ToString().ToDate() == ModExtensiones.MinFecha ? "" : objAcercamiento.Result[0].FechaCierre.ToDateTime().ToShortDateString();
                TxtImporte.Text = String.Format("{0:C2}", objAcercamiento.Result[0].Importe.ToEntero());
                TxtComision.Text = String.Format("{0:C2}", objAcercamiento.Result[0].Comision.ToEntero());
                DdlProbabilidadAcercamiento.SelectedValueExist(objAcercamiento.Result[0].CveProbabilidadAcercamiento);
                DdlPrioridad.SelectedValueExist(objAcercamiento.Result[0].Prioridad);
+                ChkePausa.Checked = objAcercamiento.Result[0].EnPausa;

                CargaDdl();
                //SECCION DATOS DE LA EMPRESA
@@ -689,6 +699,7 @@ public partial class CRM_Acercamiento : ClsPaginas
            AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
            AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero();
            AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo;
+            AcercaminetoModel.EnPausa = ChkePausa.Checked;


            if (cRMService.AcercamientoUpdate(AcercaminetoModel))
@@ -1812,4 +1823,135 @@ public partial class CRM_Acercamiento : ClsPaginas
    }

    #endregion
+
+
+
+    #region "CHECK LIST"
+
+
+    private  void CargaCheckLis()
+    {
+        using (ClsOIEventos objOI = new ClsOIEventos())
+        {
+            if (objOI.Getcheklist(-1, CveAcercamiento: CveAcercamiento))
+            {
+                GVcheklist.DataSource = objOI.DtResultados;
+                GVcheklist.DataBind();
+            }            
+        }
+
+        UpChkList.Update();
+    }
+
+    protected void LnkAgregarchklistitem_Click(object sender, EventArgs e)
+    {
+        if (TxtActividad.Text.Trim().Length > 0)
+        {
+            if (CveAcercamiento > 0)
+            {
+                using (ClsOIEventos objOI = new ClsOIEventos())
+                {
+                    if (objOI.Addcheklist(-1, TxtActividad.Text, UsuarioActual.CveUsuario, CveAcercamiento: CveAcercamiento))
+                    {
+                        Alert("Se agregó la actividad", ModExtensiones.TipoMensaje.ToastInformacion);
+                        if (objOI.Getcheklist(-1, CveAcercamiento: CveAcercamiento))
+                        {
+                            GVcheklist.DataSource = objOI.DtResultados;
+                            GVcheklist.DataBind();
+                        }
+                    }
+                }
+            }
+            else
+            {
+                System.Data.DataRow drow = CheckListNew.NewRow();
+                drow["CveEventoCheckList"] = chklistitemindex++;
+                drow["EventoComentario"] = TxtActividad.Text;
+                drow["Estatus"] = false;
+                //CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng
+                CheckListNew.Rows.Add(drow);
+                GVcheklist.DataSource = CheckListNew;
+                GVcheklist.DataBind();
+            }
+        }
+        TxtActividad.Focus();
+        TxtActividad.Text = "";
+    }
+
+
+    protected void ChkEstatus_CheckedChanged(object sender, EventArgs e)
+    {
+        CheckBox chk = (CheckBox)sender;
+        GridViewRow gvrow = (GridViewRow)chk.NamingContainer;
+        using (ClsOIEventos objOI = new ClsOIEventos())
+        {
+            if (objOI.Upcheklist(gvrow.DataKey("CveEventoCheckList").ToEntero(), gvrow.DataKey("CveEvento").ToEntero(), gvrow.DataKey("EventoComentario"), chk.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 
+                CveAcercamiento: CveAcercamiento))
+            {
+                //ObjEventosCorreo o = objOI.objCorreo;
+                Alert("Se actualizó el estatus de la actividad", ModExtensiones.TipoMensaje.ToastInformacion);
+                if (objOI.Getcheklist(-1, CveAcercamiento: CveAcercamiento))
+                {
+                    GVcheklist.DataSource = objOI.DtResultados;
+                    GVcheklist.DataBind();                 
+                }
+            }
+        }
+    }
+
+
+    protected void LnkEliminarchek_Click(object sender, EventArgs e)
+    {
+        GridViewRow gvrow = (GridViewRow)((LinkButton)sender).NamingContainer;
+
+        if(!(CveAcercamiento > 0))
+        {
+            CheckListNew = CheckListNew.FiltraParametros(string.Format("CveEventoCheckList <> {0}", gvrow.DataKey("CveEventoCheckList")));
+            GVcheklist.DataSource = CheckListNew;
+            GVcheklist.DataBind();
+        }
+        else
+        {
+            using (ClsOIEventos objOI = new ClsOIEventos())
+            {
+                if (objOI.Removecheklist(gvrow.DataKey("CveEventoCheckList").ToEntero(), gvrow.DataKey("CveEvento").ToEntero(), UsuarioActual.CveUsuario, CveAcercamiento: CveAcercamiento))
+                {
+                    Alert("Se ha eliminadó la actividad", ModExtensiones.TipoMensaje.ToastInformacion);
+                    if (objOI.Getcheklist(-1, CveAcercamiento))
+                    {
+                        GVcheklist.DataSource = objOI.DtResultados;
+                        GVcheklist.DataBind();
+                    }
+                }
+            }
+        }
+    }
+
+    protected void LnkSinfuncion_Click(object sender, EventArgs e)
+    {
+        // es para mandar llamar el ChkEstatus_CheckedChanged
+    }
+
+
+
+    //private  bool GuardaCheckList(SqlTransaction transaction, int CveAcercamientoNuevo)
+    //{
+    //    bool respuesta = true;
+
+    //    ClsOIEventos objOI = new ClsOIEventos(transaction);
+
+    //    foreach (GridViewRow GvRow in GVcheklist.Rows)
+    //    {
+    //        if (!objOI.Addcheklist(-1, TxtActividad.Text, UsuarioActual.CveUsuario, CveAcercamiento: CveAcercamiento))
+    //        {
+    //            respuesta = false;
+    //            break;
+    //        }
+    //    }
+
+    //    return respuesta;
+    //}
+
+    #endregion
+
 }
--- a/CRM/EmpresaCRM.aspx
+++ b/CRM/EmpresaCRM.aspx
@@ -248,18 +248,25 @@
                                        <div runat="server" id="DivContactos" style="padding: 0 10px 10px 10px;">
                                            <asp:UpdatePanel runat="server" ID="UpContactos" UpdateMode="Conditional">
                                                <ContentTemplate>
-                                                    <asp:GridView ID="GVContactos" runat="server" DataKeyNames="CveContacto, Nombre, TelefonoOficina, Celular, Correo, CveUsuarioIng, FechaIng" EmptyDataText="Aún no se han registrado contactos"
+                                                    <asp:GridView ID="GVContactos" runat="server" DataKeyNames="CveContacto,Nombre,TelefonoOficina,Celular,Correo,CveUsuarioIng,FechaIng,CveTipoContacto" EmptyDataText="Aún no se han registrado contactos"
                                                        EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Contactos" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None"
                                                        GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" OnRowDeleting="GVContactos_RowDeleting" AutoGenerateColumns="false" OnRowDataBound="GVContactos_RowDataBound">
                                                        <Columns>
-                                                            <asp:TemplateField HeaderText="Nombre" ItemStyle-Width="35%" HeaderStyle-HorizontalAlign="Left">
+                                                            <asp:TemplateField HeaderText="Nombre" ItemStyle-Width="30%" HeaderStyle-HorizontalAlign="Left">
                                                                <ItemTemplate>
                                                                    &nbsp;<asp:Literal ID="LtlNombreContacto" runat="server" Text='<%# Eval("Nombre", "{0}") %>'></asp:Literal>
                                                                </ItemTemplate>
                                                                <ItemStyle HorizontalAlign="Left" />
                                                            </asp:TemplateField>

-                                                            <asp:TemplateField ItemStyle-Width="15%" HeaderText="Teléfono Oficina" ItemStyle-HorizontalAlign="Left">
+                                                            <asp:TemplateField HeaderText="Tipo Contacto" ItemStyle-Width="10%" HeaderStyle-HorizontalAlign="Left">
+                                                                <ItemTemplate>
+                                                                    &nbsp;<asp:Literal ID="LtlTipoContacto" runat="server" Text='<%# Eval("TipoContacto", "{0}") %>'></asp:Literal>
+                                                                </ItemTemplate>
+                                                                <ItemStyle HorizontalAlign="Left" />
+                                                            </asp:TemplateField>
+
+                                                            <asp:TemplateField ItemStyle-Width="10%" HeaderText="Teléfono Oficina" ItemStyle-HorizontalAlign="Left">
                                                                <ItemTemplate>
                                                                    <asp:Label ID="lblTelefonoOficina" runat="server" Text='<%# Eval("TelefonoOficina")%>'> </asp:Label>
                                                                </ItemTemplate>
@@ -395,7 +402,7 @@
                                        <div runat="server" id="Div2" style="padding: 0 10px 10px 10px;">
                                            <asp:UpdatePanel runat="server" ID="UpCotizacion" UpdateMode="Conditional">
                                                <ContentTemplate>
-                                                    <asp:GridView ID="GvCotizacion" runat="server" DataKeyNames="CveVenta,CveEmpresaCRM,CveAcercamientoCRM,CveEstatusFactura, EstatusFactura" EmptyDataText="Aún no se han registrado Cotizaciones"
+                                                    <asp:GridView ID="GvCotizacion" runat="server" DataKeyNames="CveVenta,CveEmpresaCRM,CveAcercamientoCRM,CveEstatusFactura, EstatusFactura,Total" EmptyDataText="Aún no se han registrado Cotizaciones"
                                                        EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Cotizaciones" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None"
                                                        GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" AutoGenerateColumns="false" OnRowDataBound="GvCotizacion_RowDataBound">
                                                        <Columns>
@@ -404,7 +411,9 @@

                                                             <asp:HyperLinkField DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" HeaderText="Serie Folio" />
                                                            <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                                                            <asp:BoundField DataField="Total" ItemStyle-HorizontalAlign="Right" HeaderText="Total" DataFormatString="{0:N2}" />
+                                                            <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" ItemStyle-HorizontalAlign="Left" />
+                                                            
+                                                            <asp:BoundField DataField="Total" ItemStyle-HorizontalAlign="Right" HeaderText="Total"  DataFormatString="{0:n2}" />   
                                                            
                                                            <asp:TemplateField HeaderText="Estatus" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left">
                                                                <ItemTemplate>
@@ -563,9 +572,17 @@
                            <asp:RegularExpressionValidator ID="REVCorreo" runat="server" CssClass="errorimput" ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="VGGuardarContacto"></asp:RegularExpressionValidator>--%>
                            <label for="<%= TxtCorreo.ClientID.ToString()%>">Correo:</label>
                        </div>
+
+                        <div class="form-group form-md-line-input input-iconright">                            
+                            <asp:DropDownList ID="DdlTipocontacto" runat="server" DataTextField="TipoContacto" DataValueField="CveTipoContacto" CssClass="form-control select2me" Width="50%"></asp:DropDownList>
+                            <asp:LinkButton CssClass="btn btn-primary" runat="server" ID="LnkAgregartipoContacto" OnClick="LnkAgregartipoContacto_Click"  Height="30px" style="margin-top:8px">+</asp:LinkButton>
+                            <label for="<%= DdlTipocontacto.ClientID.ToString()%>">Tipo Contacto:</label>
+                        </div>
+
+
                    </div>
                    <div class="modal-footer">
-                        <asp:Button ID="BtnGuardarContacto" OnClick="BtnGuardarContacto_Click" runat="server" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="VGGuardarContacto" />
+                        <asp:Button ID="BtnGuardarContacto" OnClick="BtnGuardarContacto_Click" runat="server" Text="Guardar" CssClass="btn btn-primary mysmallbtn" ValidationGroup="VGGuardarContacto" />
                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                    </div>
                </div>
@@ -574,6 +591,73 @@
    </div>
    <%-- END MODAL AGREGAR CONTACTO --%>

+        <%-- MODAL TIPO CONTACTO --%>
+    <div id="DivModalTipoContacto" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalTipoContacto" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlmodalTituloTipoContacto" Text="Tipo Contacto" runat="server"> </asp:Literal>
+                        </h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="row">
+                            <div class="col-md-4">
+                                Tipo Contacto:
+                            </div>
+
+                            <div class="col-md-4">
+                                <asp:TextBox runat="server" ID="TxtTipoContacto" MaxLength="50" CssClass="form-control" ValidationGroup="GrpTipoContacto" ></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RfvTxtTipoContacto" runat="server" CssClass="help-block errorimput" Display="Dynamic" ControlToValidate="TxtTipoContacto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Contacto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTipoContacto"></asp:RequiredFieldValidator>
+                            </div>
+
+                            <div class="col-md-4" style="text-align:left!important">
+                                <asp:Button Text="Agregar" runat="server" ID="btnAgregarTipoContacto" OnClick="btnAgregarTipoContacto_Click"  CssClass="btn btn-primary" 
+                                    ValidationGroup="GrpTipoContacto"/>
+                            </div>
+                        </div>
+                          <br />
+                        <div class="row">
+                            <div class="col-md-12">
+                                
+                                <asp:GridView ID="GvModalTipoContacto" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" EmptyDataRowStyle-HorizontalAlign="Center"
+                                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"   GridLines="None" Width="100%"
+                                    DataKeyNames="CveTipoContacto,TipoContacto" >
+                                    <Columns>
+                                        <asp:TemplateField HeaderText="Tipo Contacto">                                            
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlTipoConcato" runat="server" Text='<%# Eval("TipoContacto") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>                                      
+                                        <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80px">
+                                            <ItemTemplate>
+                                                <asp:LinkButton ID="LnkEliminarTipoContacto"   runat="server"   OnClick="LnkEliminarTipoContacto_Click"
+                                                    AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" 
+                                                    CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Desea eliminar este contacto?" data-btn-ok-label="si" >                                                    
+                                                </asp:LinkButton>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+
+                            </div>
+                          </div>
+               
+
+                    </div>
+                    <div class="modal-footer">                        
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+    <%-- END MODAL TIPO CONTACTO --%>
+
+
+
    <%-- MODAL AGREGAR ACERCAMIENTO --%>
    <div id="DivModalAltaAcercamiento" class="modal ADS fade" role="dialog">
        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpAltaAcercamiento" UpdateMode="Conditional">
@@ -633,22 +717,43 @@
                                </div>
                            </div>

-                            <div class="form-group form-md-line-input input-iconright" style="padding: 0;">
+                            <div class="row">
+                                <div class="col-md-6">
+                                    <div class="form-group form-md-line-input input-iconright" style="padding: 0;">

-                                <div runat="server" id="DivFechaApertura" class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
-                                    <asp:TextBox ID="TxtFechaApertura" Text="<%= DateTime.Now.ToShortDateString();%>" runat="server" Style="margin-left: -5px;" CssClass="form-control" Width="121px" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="imgCalendarioFechaApertura" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                    <label for="<%= TxtFechaApertura.ClientID.ToString()%>" style="width: 125px !important;"><span style="color: #F3565D">*</span> Apertura:</label>
+                                        <div runat="server" id="DivFechaApertura" class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
+                                            <asp:TextBox ID="TxtFechaApertura" Text="<%= DateTime.Now.ToShortDateString();%>" runat="server" Style="margin-left: -5px;" CssClass="form-control" Width="121px" MaxLength="10"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton ID="imgCalendarioFechaApertura" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                            </span>
+                                            <label for="<%= TxtFechaApertura.ClientID.ToString()%>" style="width: 125px !important;"><span style="color: #F3565D">*</span> Apertura:</label>
+                                        </div>
+                                        <asp:RequiredFieldValidator ID="RFVTxtFechaApertura" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFechaApertura" ErrorMessage="El campo <b>''Fecha de Apertura''</b> es necesario." ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
+                                        <ajax:MaskedEditExtender ID="MEETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender ID="CETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" PopupButtonID="imgCalendarioFechaApertura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <asp:RangeValidator ID="RVFechaApertura" runat="server" CssClass="help-block errorimput" ErrorMessage="La <b>''Fecha de Apertura''</b> esta fuera de rango." ControlToValidate="TxtFechaApertura" Type="Date"></asp:RangeValidator>
+
+                                    </div>
                                </div>
-                                <asp:RequiredFieldValidator ID="RFVTxtFechaApertura" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFechaApertura" ErrorMessage="El campo <b>''Fecha de Apertura''</b> es necesario." ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
-                                <ajax:MaskedEditExtender ID="MEETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender ID="CETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" PopupButtonID="imgCalendarioFechaApertura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RangeValidator ID="RVFechaApertura" runat="server" CssClass="help-block errorimput" ErrorMessage="La <b>''Fecha de Apertura''</b> esta fuera de rango." ControlToValidate="TxtFechaApertura" Type="Date"></asp:RangeValidator>
+                                <div class="col-md-6">
+                                    <div class="form-group form-md-line-input input-iconright" style="padding: 0;">
+                                        <div runat="server" id="Div3" class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
+                                            <asp:TextBox ID="TxtFechaCierre" runat="server" Style="margin-left: -5px;" CssClass="form-control" Width="121px" MaxLength="10"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton ID="LnkImgTxtFechaCierre" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                            </span>
+                                            <label for="<%= TxtFechaCierre.ClientID.ToString()%>" style="width: 125px !important;">Cierre:</label>
+                                        </div>
+                                        <%--<asp:RequiredFieldValidator ID="RfvTxtFechaCierre" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFechaCierre" ErrorMessage="El campo <b>''Fecha de Cierre''</b> es necesario." ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>--%>
+                                        <ajax:MaskedEditExtender ID="METxtFechaCierre" runat="server" TargetControlID="TxtFechaCierre" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender ID="CeTxtFechaCierre" runat="server" TargetControlID="TxtFechaCierre" PopupButtonID="LnkImgTxtFechaCierre" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>

+                                    </div>
+                                </div>
                            </div>

+                           
+

                            <div class="row">
                                <div id="DivImporte" runat="server" class="form-group col-md-6 form-md-line-input input-iconright" >
--- a/CRM/EmpresaCRM.aspx.cs
+++ b/CRM/EmpresaCRM.aspx.cs
@@ -5,6 +5,7 @@ using ADSNetLibrary.SIGAPI.Models.Ventas.Request;
 using ADSNetLibrary.SIGAPI.Services;
 using ADSNetLibrary.SIGAPI.Services.CRM;
 using ADSNetLibrary.SIGAPI.Services.Encuestas;
+
 using Extensiones;
 using MoreLinq;
 using System;
@@ -938,6 +939,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
        TempDTContactos.Columns.Add("FechaIng", typeof(string));

        TempDTContactos.Columns.Add("CveContacto", typeof(string));
+        TempDTContactos.Columns.Add("CveTipoContacto", typeof(string));
+        TempDTContactos.Columns.Add("TipoContacto", typeof(string));

        GVContactos.DataSource = TempDTContactos;
        GVContactos.DataBind();
@@ -996,6 +999,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
        TxtTelefonoOficina.Text = "";
        TxtCelular.Text = "";
        TxtCorreo.Text = "";
+        DdlTipocontacto.SelectedValueExist(-1);
    }

    protected void BtnAgregarContacto_Click(object sender, EventArgs e)
@@ -1004,6 +1008,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
        limpiarCamposModalContato();
        UPModalContacto.Update();

+        CargaGridTipoContacto();
+
        this.RegistraScript("$('#DivModalContacto').modal();");
    }

@@ -1020,11 +1026,15 @@ public partial class CRM_EmpresaCRM : ClsPaginas
        TxtTelefonoOficina.Text = GvRow.DataKey("TelefonoOficina").ToString();
        TxtCelular.Text = GvRow.DataKey("Celular").ToString();
        TxtCorreo.Text = GvRow.DataKey("Correo").ToString();
+        DdlTipocontacto.SelectedValueExist( GvRow.DataKey("CveTipoContacto").ToString());

        IndexDTContacto = GvRow.RowIndex;

+        CargaGridTipoContacto();
+
        UPModalContacto.Update();

+
        this.RegistraScript("$('#DivModalContacto').modal();");
    }

@@ -1057,6 +1067,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                contacto.Correo = Correo;
                contacto.CveEmpresaCRM = CveEmpresaCRM;
                contacto.CveUsuarioIng = CveUsuarioIng;
+                contacto.CveTipoContacto = DdlTipocontacto.SelectedValue.ToEntero();

                if (cRMService.EmpresasCRMContactoAdd(contacto))
                {
@@ -1088,6 +1099,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                contacto.Correo = Correo;
                contacto.CveContacto = CveContactoEditado;
                contacto.CveUsuarioIng = CveUsuarioIng;
+                contacto.CveTipoContacto = DdlTipocontacto.SelectedValue.ToEntero();

                if (cRMService.EmpresasCRMContactoUpdate(contacto))
                {
@@ -1580,6 +1592,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
        TxtAcercamiento.Text = "";
        TxtDescripcionAcercamiento.Text = "";
        TxtFechaApertura.Text = DateTime.Now.ToShortDateString();
+        TxtFechaCierre.Text = "";
        TxtImporte.Text = "0.00";
        TxtComision.Text = "0.00";

@@ -1651,6 +1664,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
        int CveRechazoMotivo = -1;

        DateTime FechaApertura = TxtFechaApertura.Text.ToDateTime();
+        DateTime FechaCierre =  TxtFechaCierre.Text.ToDateTime();

        Double Importe = TxtImporte.Text.ToDouble();
        Double Comision = TxtComision.Text.ToDouble();
@@ -1673,8 +1687,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                CveMedioCaptacion = CveMedioCaptacion,
                CveRechazoMotivo = CveRechazoMotivo,
                CveProbabilidadAcercamiento = CveProbabilidadAcercamiento,
-                FechaApertura = FechaApertura,
-                FechaCierre = (DateTime)System.Data.SqlTypes.SqlDateTime.Null,
+                FechaApertura = FechaApertura,                
+                FechaCierre = FechaCierre > ModExtensiones.MinFecha ? FechaCierre : (DateTime)System.Data.SqlTypes.SqlDateTime.Null,
                NombreAcercamiento = NombreAcercamiento,
                Descripcion = Descripcion,
                Importe = Importe,
@@ -1775,7 +1789,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
    #region "COTIZACIONES"
    protected void CargaCotizaciones()
    {
-        ClsVentas ObjVentas = new ClsVentas();
+        
        IVentaService ventaService = new VentaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
        RequestVentas requestVentas = new RequestVentas(UsuarioActual.CveEmpresa, TipoDocto: "Cot", CveEmpresaCRM: CveEmpresaCRM, CveUsuarioConsulta: UsuarioActual.CveUsuario);
        var objVentas = ventaService.GetVentas(requestVentas);
@@ -1788,7 +1802,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
        //{
        //    GvCotizacion.DataSource = ObjVentas.DtResultados;
        //}
-        ObjVentas.Dispose();
+        
        GvCotizacion.DataBind();
        UpCotizacion.Update();
    }
@@ -1801,6 +1815,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas
            {
                e.Row.FCLabel("lblEstatus").Text = String.Format("<b>{0}</b>", e.Row.DataKey("EstatusFactura"));
            }
+
+            if(e.Row.DataKey("Total").ToDecimal() != 0)
+            {
+                e.Row.Cells[5].Text = e.Row.DataKey("Total").ToDecimal().ToString("###,###,###.00");                
+            }
        }
    }
    #endregion
@@ -1833,4 +1852,109 @@ public partial class CRM_EmpresaCRM : ClsPaginas
        DdlGiroClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
        DdlGiroClasificacion.SelectedValueExist(CveGiroClasificacion);
    }
+
+
+    #region "TIPO CONTACTO"
+    
+
+    protected void LnkAgregartipoContacto_Click(object sender, EventArgs e)
+    {
+
+        CargaGridTipoContacto();
+        RegistraScript("$('#DivModalTipoContacto').modal('show');");
+    }
+
+
+    private void LimpiaTipoContacto()
+    {
+        TxtTipoContacto.Text = "";
+        UpModalTipoContacto.Update();
+    }
+
+    private void CargaGridTipoContacto()
+    {
+        DdlTipocontacto.Items.Clear();
+        DdlTipocontacto.SelectedValue = null;
+        
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+
+        RequestTipoContacto requestTipoContacto = new RequestTipoContacto(-1,"-1",-1,UsuarioActual.CveEmpresa);
+
+        var ObjTIpocontacto = cRMService.TipoContactoGet(requestTipoContacto);
+
+        if (ObjTIpocontacto.Result.Count > 0)
+        {
+            GvModalTipoContacto.DataSource = ObjTIpocontacto.Result;
+            DdlTipocontacto.DataSource = ObjTIpocontacto.Result;            
+        }
+
+        GvModalTipoContacto.DataBind();
+        
+        DdlTipocontacto.DataBind();
+        DdlTipocontacto.Items.Insert(0, new ListItem("Seleccione Uno", "-1"));       
+
+        UpModalTipoContacto.Update();
+        UPModalContacto.Update();
+
+        cRMService = null;
+    }
+    protected void btnAgregarTipoContacto_Click(object sender, EventArgs e)
+    {
+        bool ErrorProceso = false;
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+
+        TipoContactoModel  TipoContacto = new TipoContactoModel();
+
+        TipoContacto.TipoContacto = TxtTipoContacto.Text;
+        TipoContacto.CveUsuario = UsuarioActual.CveUsuario;
+        TipoContacto.CveEmpresa = UsuarioActual.CveEmpresa;
+
+        if (!cRMService.TipoContactoAdd(TipoContacto))
+        {
+            Alert("Se presento un error al agregar el tipo de contacto", ModExtensiones.TipoMensaje.MsgAdvertencia);
+        }
+
+        if (!ErrorProceso)
+        {
+            CargaGridTipoContacto();
+            LimpiaTipoContacto();
+        }
+    }
+
+    protected void LnkEliminarTipoContacto_Click(object sender, EventArgs e)
+    {
+        bool ErrorProceso = false;
+
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+
+        int CveTipoContactoEliminar = GvRow.DataKey("CveTipoContacto").ToEntero();
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+
+        TipoContactoModel TipoContacto = new TipoContactoModel();
+        TipoContacto.CveTipoContacto = CveTipoContactoEliminar;
+        TipoContacto.CveEmpresa = UsuarioActual.CveEmpresa;
+
+        if (cRMService.TipoContactoRemove(TipoContacto))
+        {
+            Alert("Tipo Contacto eliminado correctamente.");
+        }else{
+            Alert("Se presento un error al eliminar el tipo de contacto.", ModExtensiones.TipoMensaje.MsgAdvertencia);
+        }
+
+        if (!ErrorProceso)
+        {
+            CargaGridTipoContacto();
+        }
+
+    }
+
+    #endregion
+
+
+
+
+
 }
--- a/CRM/RepAcercamientos.aspx
+++ b/CRM/RepAcercamientos.aspx
@@ -30,7 +30,7 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
-            <div id="DivFiltros" class="portlet solid  grey-cascade portlet-filter">
+            <div id="DivFiltros" class="portlet solid  grey-cascade portlet-filter" id="dvFiltros">
                <div class="portlet-title portlet-filterT smalltitle">
                    <div class="tools">
                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
@@ -39,14 +39,14 @@

                    <div class="titlefiltros  caption">
                        <div class="row" style="margin-left: 10px;">
-                            <label class="col-md-1 " style="width: 90px; margin-top: 5px;">Vendedor:</label>
-                            <div class="col-md-2">
+                            <label class="col-md-1 "  >Vendedor:</label>
+                            <div class="col-md-1">
                                <asp:DropDownList ID="DdlVendedor" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                            </div>

-                            <label class="col-md-1 " style="width: 90px; margin-top: 5px;">Fecha Inicio:</label>
-                            <div class="col-md-2">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                            <label class="col-md-1 "  >Fecha Inicio:</label>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px; margin-bottom: -10px;">
                                    <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
                                    <span class="input-group-btn ">
                                        <asp:LinkButton ID="imgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -56,9 +56,9 @@
                                <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                            </div>

-                            <label class="col-md-1 " style="width: 90px; margin-top: 5px;">Fecha Fin:</label>
-                            <div class="col-md-2">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                            <label class="col-md-1 "  >Fecha Fin:</label>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px; margin-bottom: -10px;">
                                    <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
                                    <span class="input-group-btn ">
                                        <asp:LinkButton ID="imgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -68,8 +68,8 @@
                                <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                            </div>

-                            <label class="col-md-1" style="width: 115px; margin-top: 5px;">Producto Servicio:</label>
-                            <div class="col-md-2">
+                            <label class="col-md-1" >Producto Servicio:</label>
+                            <div class="col-md-1">
                                <div style="width:100%">
                                    <ADS:Dropdownlost runat="server" Width="100%" ID="DdlPS" CssClassDdl="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
                                </div>
@@ -80,10 +80,40 @@
                </div>
                 <div class="portlet-body" style="display: none;">
                    <div class="row" style="margin-left: 10px; margin-top: 10px;">
-                        <label class="col-md-1" style="width: 90px;"">Giro:</label>
-                        <div class="col-md-2">
+                        <label class="col-md-1">Giro:</label>
+                        <div class="col-md-1">
                            <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
                        </div>
+
+
+                        <label class="col-md-1" >En Pausa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEnPausa" Width="100%" runat="server"  CssClass="form-control input-sm select2me" >
+                                <asp:ListItem Value="-1">Todo</asp:ListItem>
+                                <asp:ListItem Value="0">Activos</asp:ListItem>
+                                <asp:ListItem Value="1">En Pausa</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
+
+                        <label class="col-md-1" >Etapa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEtapaProceso" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="EtapaProceso" DataValueField="CveEtapaProceso">
+                            </asp:DropDownList>
+                        </div>
+
+                         <label class="col-md-1" >Medio Captación:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlMedioCaptacion" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion">
+                            </asp:DropDownList>
+                        </div>
+
+                           <label class="col-md-1"  >Tipo Proceso:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlTipoProceso" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="TipoProceso" DataValueField="CveTipoProceso">
+                            </asp:DropDownList>
+                        </div>
+
                    </div>
                </div>
            </div>
--- a/CRM/RepAcercamientos.aspx.cs
+++ b/CRM/RepAcercamientos.aspx.cs
@@ -8,6 +8,10 @@ using Extensiones;
 using System.Data;
 using Microsoft.Reporting.WebForms;

+using ADSNetLibrary.SIGAPI.Services.CRM;
+using ADSNetLibrary.SIGAPI.Models.CRM.Request;
+//using ADSNetLibrary.SIGAPI.Helpers;
+
 public partial class CRM_RepAcercamientos : ClsPaginas
 {
    #region "PROPIEDADES"
@@ -58,8 +62,12 @@ public partial class CRM_RepAcercamientos : ClsPaginas
        string FechaInicio = TxtFechaInicio.Text == "" ? "-1" : TxtFechaInicio.Text;
        string FechaFin = TxtFechaFin.Text == "" ? "-1" : TxtFechaFin.Text;
        int CvePS = DdlPS.SelectedValue.ToEntero() == 0 ? -1 : DdlPS.SelectedValue.ToEntero();
+        
        ClsCRM ObjCRM = new ClsCRM();
-        if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin, CvePS: CvePS, CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero()))
+
+        if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin, CvePS: CvePS,
+            CveGiroClasificacion: DdlGiroClasificacion.SelectedValue.ToEntero(), CveMedioCaptacion: DdlMedioCaptacion.SelectedValue.ToEntero(), CveTipoProceso: DdlTipoProceso.SelectedValue.ToEntero(),
+            EnPausa: DdlEnPausa.SelectedValue.ToEntero(), CveEtapaProceso: DdlEtapaProceso.SelectedValue.ToEntero()))
        {
            GVDatos.DataSource = ObjCRM.DtResultados;
            DtDatos = ObjCRM.DtResultados;
@@ -100,6 +108,23 @@ public partial class CRM_RepAcercamientos : ClsPaginas
        DdlGiroClasificacion.DataSource = dtGiroClasificaciones;
        DdlGiroClasificacion.DataBind();
        DdlGiroClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+        RequestEtapaProceso EtapaProceso = new RequestEtapaProceso(UsuarioActual.CveEmpresa, 1, -1);
+        RequestMedioCaptacion MedioCaptacion = new RequestMedioCaptacion(UsuarioActual.CveEmpresa);
+        RequestTipoProceso tipoProceso = new RequestTipoProceso(UsuarioActual.CveEmpresa, 1, -1);       
+
+        DdlEtapaProceso .DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetEtapaProcesoCRM(EtapaProceso).Result);
+        DdlMedioCaptacion.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable( cRMService.GetMedioCaptacionCRM(MedioCaptacion).Result);
+        DdlTipoProceso.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetTipoProcesoCRM(tipoProceso).Result);
+        
+        DdlEtapaProceso.DataBind();
+        DdlMedioCaptacion.DataBind();
+        DdlTipoProceso.DataBind();
+
+        DdlEtapaProceso.Items.Insert(0,new ListItem("Todas", "-1"));
+        DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos", "-1"));
+        DdlTipoProceso.Items.Insert(0, new ListItem("Todos", "-1"));
    }
    #endregion

--- a/CRM/RepAcercamientosProcesos.aspx
+++ b/CRM/RepAcercamientosProcesos.aspx
@@ -58,7 +58,7 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
    <asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
-            <div class="portlet solid  grey-cascade portlet-filter">
+            <div class="portlet solid  grey-cascade portlet-filter" id="dvFiltros">
                <div class="portlet-title portlet-filterT smalltitle">
                    <div class="tools">
                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="LnkConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
@@ -66,23 +66,23 @@
                    </div>
                    <div class="titlefiltros  caption">
                        <div class="row" style="margin-left: 10px;">
-                            <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 "   runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
+                            <div class="col-md-1">
                                <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                            </div>

-                            <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 "   runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
+                            <div class="col-md-1">
                                <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                            </div>

-                            <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 "   runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
+                            <div class="col-md-1">
                                <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                            </div>

-                            <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 "   runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
+                            <div class="col-md-1">
                                <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                            </div>
                        </div>
@@ -90,8 +90,9 @@
                </div>
                <div class="portlet-body" style="display: none;">
                    <div class="row" style="margin-left: 10px; margin-top: 10px;">
-                        <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
-                        <div class="col-md-2">
+
+                        <asp:Label class="col-md-1 "   runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
+                        <div class="col-md-1">
                            <asp:DropDownList ID="DdlGrupo1" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
                                <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
                                <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
@@ -103,8 +104,8 @@
                            </asp:DropDownList>
                        </div>

-                        <asp:Label class="col-md-1 " style="width: 110px; margin-top: 5px; display: none;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
-                        <div class="col-md-2" style="display: none;">
+                        <asp:Label class="col-md-1 " style="  display: none;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
+                        <div class="col-md-1" style="display: none;">
                            <asp:DropDownList ID="DdlGrupo2" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
                                <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
                                <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
@@ -115,7 +116,7 @@
                            </asp:DropDownList>
                        </div>

-                        <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
+                        <asp:Label class="col-md-1 "   runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
                        <div class="col-sm-1">
                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top:5px">
                                <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
@@ -127,7 +128,7 @@
                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                        </div>

-                        <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
+                        <asp:Label class="col-md-1 "   runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
                        <div class="col-sm-1">
                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top:5px">
                                <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
@@ -138,18 +139,49 @@
                            <ajax:MaskedEditExtender ID="MEEFechaSolicitudF" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                        </div>
-                    </div>
-                    <div class="row">
-                        <asp:Label class="col-md-1 " style="width: 124px; margin-top: 5px;" runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label>
-                        <div class="col-md-2">
+
+                        <asp:Label class="col-md-1 "   runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label>
+                        <div class="col-md-1">
                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
                        </div>

-                        <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label>
-                        <div class="col-md-2">
+                        <asp:Label class="col-md-1 "   runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label>
+                        <div class="col-md-1">
                            <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList>
                        </div>
                    </div>
+                    <div class="row" style="margin-left: 10px; margin-top: 10px;">
+
+                         <label class="col-md-1" >En Pausa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEnPausa" Width="100%" runat="server"  CssClass="form-control input-sm select2me" >
+                                <asp:ListItem Value="-1">Todo</asp:ListItem>
+                                <asp:ListItem Value="0">Activos</asp:ListItem>
+                                <asp:ListItem Value="1">En Pausa</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
+
+                        <label class="col-md-1" >Etapa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEtapaProceso" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="EtapaProceso" DataValueField="CveEtapaProceso">
+                            </asp:DropDownList>
+                        </div>
+
+                    <%--     <label class="col-md-1" >Medio Captación:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DropDownList1" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion">
+                            </asp:DropDownList>
+                        </div>
+
+                           <label class="col-md-1"  >Medio Captación:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DropDownList2" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="TipoProceso" DataValueField="CveTipoProceso">
+                            </asp:DropDownList>
+                        </div>
+                        --%>
+
+                    </div>
                </div>
            </div>

--- a/CRM/RepAcercamientosProcesos.aspx.cs
+++ b/CRM/RepAcercamientosProcesos.aspx.cs
@@ -9,6 +9,8 @@ using System.Data;
 using Extensiones;
 using iTextSharp.text.pdf;
 using iTextSharp.text;
+using ADSNetLibrary.SIGAPI.Models.CRM.Request;
+using ADSNetLibrary.SIGAPI.Services.CRM;

 public partial class CRM_RepAcercamientosProcesos : ClsPaginas
 {
@@ -134,7 +136,17 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
            DdlProbabilidad.SelectedValue = CveProbabilidadAcercamiento;
            DdlTipoProceso.SelectedValue = CveTipoProceso;
        }
+
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+        RequestEtapaProceso EtapaProceso = new RequestEtapaProceso(UsuarioActual.CveEmpresa, 1, -1);
+        DdlEtapaProceso.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetEtapaProcesoCRM(EtapaProceso).Result);
+        DdlEtapaProceso.DataBind();
+        DdlEtapaProceso.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todas", "-1"));       
+
+
        upDatosRepA.Update();
+
    }
    protected void cargarDatos()
    {
@@ -149,7 +161,8 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
        ClsCRM ObjCRM = new ClsCRM();
        GVRepAcercamientosEtapas.Columns.Clear();

-        if (ObjCRM.RepAcercamientosEtapas(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento,CvePS:DdlPS.SelectedValue.ToEntero(),CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero()))
+        if (ObjCRM.RepAcercamientosEtapas(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento,CvePS:DdlPS.SelectedValue.ToEntero(),
+            CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero(), EnPausa: DdlEnPausa.SelectedValue.ToEntero(), CveEtapaProceso: DdlEtapaProceso.SelectedValue.ToEntero()))
        {
            DataTable dte = ObjCRM.DSResultados.Tables[1];
            GVRepAcercamientosEtapas.DataSource = ObjCRM.DSResultados.Tables[0];
--- a/CRM/RepAcercamientosRechazos.aspx
+++ b/CRM/RepAcercamientosRechazos.aspx
@@ -55,40 +55,40 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
    <asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
-            <div class="portlet solid  grey-cascade portlet-filter">
+            <div class="portlet solid  grey-cascade portlet-filter" id="dvFiltros">
                <div class="portlet-title portlet-filterT smalltitle">
                    <div class="tools">
                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="LnkConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
                        <a href="javascript:;" class="expand"></a>
                    </div>
                    <div class="titlefiltros  caption">
-                        <div class="row" style="margin-left: 10px;">
-                            <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
-                            <div class="col-md-2">
+                         <div class="row" style="margin-left: 10px;">
+                            <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
+                            <div class="col-md-1">
                                <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                            </div>

-                            <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
+                            <div class="col-md-1">
                                <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                            </div>

-                            <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
+                            <div class="col-md-1">
                                <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                            </div>

-                            <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
+                            <div class="col-md-1">
                                <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                            </div>
                        </div>
                    </div>
                </div>
                <div class="portlet-body" style="display: none;">
-                    <div class="row" style="margin-left: 10px; margin-top: 10px;">
-                        <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
-                        <div class="col-md-2">
+                     <div class="row" style="margin-left: 10px;">
+                        <asp:Label class="col-md-1 " style="margin-top: 5px;" runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
+                        <div class="col-md-1">
                            <asp:DropDownList ID="DdlGrupo1" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
                                <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
                                <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
@@ -100,8 +100,8 @@
                            </asp:DropDownList>
                        </div>

-                        <asp:Label class="col-md-1 " style="width: 110px; margin-top: 5px;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
-                        <div class="col-md-2">
+                        <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
+                        <div class="col-md-1">
                            <asp:DropDownList ID="DdlGrupo2" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
                                <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
                                <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
@@ -112,8 +112,8 @@
                            </asp:DropDownList>
                        </div>

-                        <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
-                        <div class="col-md-2">
+                        <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
+                        <div class="col-md-1">
                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: 5px;">
                                <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
                                <span class="input-group-btn ">
@@ -124,8 +124,8 @@
                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                        </div>

-                        <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
-                        <div class="col-md-2">
+                        <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
+                        <div class="col-md-1">
                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: 5px;">
                                <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
                                <span class="input-group-btn ">
@@ -136,15 +136,32 @@
                            <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                        </div>
                    </div>
-                    <div class="row">
-                        <asp:Label class="col-md-1 " style="width: 124px; margin-top: 5px;" runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label>
-                        <div class="col-md-2">
+                     <div class="row" style="margin-left: 10px;">
+                        <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label>
+                        <div class="col-md-1">
                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
                        </div>

-                        <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlGiroClasificacion" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList>
+                        <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat ="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList>
+                        </div>
+
+
+                            <label class="col-md-1" >En Pausa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEnPausa" Width="100%" runat="server"  CssClass="form-control input-sm select2me" >
+                                <asp:ListItem Value="-1">Todo</asp:ListItem>
+                                <asp:ListItem Value="0">Activos</asp:ListItem>
+                                <asp:ListItem Value="1">En Pausa</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
+
+                        <label class="col-md-1" >Etapa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEtapaProceso" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="EtapaProceso" DataValueField="CveEtapaProceso">
+                            </asp:DropDownList>
                        </div>
                    </div>
                </div>
--- a/CRM/RepAcercamientosRechazos.aspx.cs
+++ b/CRM/RepAcercamientosRechazos.aspx.cs
@@ -9,6 +9,8 @@ using Extensiones;
 using iTextSharp.text.pdf;
 using iTextSharp.text;
 using System.IO;
+using ADSNetLibrary.SIGAPI.Models.CRM.Request;
+using ADSNetLibrary.SIGAPI.Services.CRM;

 public partial class CRM_RepAcercamientosRechazos : ClsPaginas
 {
@@ -117,6 +119,14 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
        DdlMedioCaptacion.SelectedValue = "-1";
        DdlProbabilidad.SelectedValue = "-1";
        DdlTipoProceso.SelectedIndex = 0;
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+        RequestEtapaProceso EtapaProceso = new RequestEtapaProceso(UsuarioActual.CveEmpresa, 1, -1);
+        DdlEtapaProceso.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetEtapaProcesoCRM(EtapaProceso).Result);
+        DdlEtapaProceso.DataBind();
+        DdlEtapaProceso.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todas", "-1"));
+
+
        upDatosRepA.Update();
    }

@@ -133,7 +143,8 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
        ClsCRM ObjCRM = new ClsCRM();
        GVRepAcercamientosEtapas.Columns.Clear();

-        if (ObjCRM.RepAcercamientosRechazos(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento, CvePS:DdlPS.SelectedValue.ToEntero(), CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero()))
+        if (ObjCRM.RepAcercamientosRechazos(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento, CvePS:DdlPS.SelectedValue.ToEntero(), 
+            CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero(), EnPausa: DdlEnPausa.SelectedValue.ToEntero(), CveEtapaProceso: DdlEtapaProceso.SelectedValue.ToEntero()))
        {
            DataTable dte = ObjCRM.DSResultados.Tables[1];
            GVRepAcercamientosEtapas.DataSource = ObjCRM.DSResultados.Tables[0];
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -505,7 +505,7 @@
                            <div class="form-group proveedoreespes">
                                <span class="whitoutcol linewhitsize  proveedoreespes">F. Captura </span>
                                <div class="whitoutcol whitoutcol">
-                                    <asp:Literal ID="LitFechCaptura" runat="server"></asp:Literal>
+                                    <asp:Label ID="LitFechCaptura" runat="server"></asp:Label>
                                </div>
                            </div>
                            <div class="form-group proveedoreespes">
@@ -5925,12 +5925,9 @@
                if (!isNaN(txtComision.value)) {
                    txtComisionImporte = ToDouble(txtComision.value);
                } 
-            }
-
-            
-
-            var txtvalue = ToDouble(txt.value);
+            } 

+            var txtvalue = ToDouble(txt.value); 

            if (txtComisionImporte != 0 && txtComisionImporte > txtvalue) {

@@ -5941,7 +5938,7 @@
                return;
            }      

-
+            debugger;
            if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) {
                txtvalue = ToDouble(txtvalue / TCAnticipo);
            } else if (CveMonedaAnticipo == 2 && CveMonedaOriginal == 1) {
@@ -5949,7 +5946,7 @@
            }

            var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + ToDouble(txtvalue)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2));
-            
+            alert(txtvalue);
            if (SaldoCompra < 0) txt.value = SaldoCompra - txtvalue;
            //minimo entre saldocompra y el saldoanticipo
            if (SaldoCompra < saldo) saldo = SaldoCompra;
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1769,7 +1769,7 @@ Partial Class Compras_Compras

                If Validada And Not EnListadoEFOS Then
                    Try
-                        XMLDoc.Load(Archivo)
+                        XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("&lt;br&gt;", "").Replace("&lt;", ""))
                    Catch ex As Exception
                        Try
                            Dim oReader = New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
@@ -1820,13 +1820,21 @@ Partial Class Compras_Compras
                        Xml = Xml.Replace(Chr(13), "") 'salto de linea
                        Xml = Xml.Replace(Chr(10), "")
                        Xml = Xml.Replace("<br />", "") 'salto de linea html
+                        Xml = Xml.Replace("&lt;br&gt;", "")
+                        Xml = Xml.Replace("&lt;", "")
+
                        Xml = Xml.Replace("&", "") 'adicional, si hay otros

+
                        If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then
                            TmpDT = ObjeFacturas.DtResultados
                            TmpDT.Columns.Add("CveSATPSActualizado")
                            SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL

+                            If Not TmpDT.Columns.Contains("Amortizacion") Then
+                                TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+                            End If
+
                            AddPS2(False)

                            'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101
@@ -1939,6 +1947,11 @@ Partial Class Compras_Compras

                    If Version = "3.3" Or Version = "4.0" Then

+                        If Not TmpDT.Columns.Contains("Amortizacion") Then
+                            TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+                        End If
+                        TmpDT.AcceptChanges()
+
                        ValidacionesTotalesXml()

                    Else
@@ -2264,6 +2277,10 @@ Partial Class Compras_Compras

    Private Sub ValidacionesTotalesXml()

+        If Not TmpDT.Columns.Contains("Amortizacion") Then
+            TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+        End If
+
        Dim Msg As String = ""
        Dim SubtotalTemp = TmpDT.SUM("Total") + Math.Round(TmpDT.SUM("Descuento") + Math.Round(TmpDT.SUM("Amortizacion")), 2)
        Dim DescuentosTemp = TmpDT.SUM("Descuento")
@@ -2625,6 +2642,7 @@ Partial Class Compras_Compras
                TxtObsFact.Text = dr("Observaciones").ToString
                LblUsuarioCaptura.Text = dr("Usuario").ToString
                LitFechCaptura.Text = dr("FechaIng").ToString.ToDate.ToShortDateString
+                LitFechCaptura.ToolTip = dr("FechaIng").ToString
                LblRetIVA.Text = Math.Round((dr("RetIVA").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3) + "%"
                LblRetISR.Text = Math.Round((dr("RetISR").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3)
                If dr("TipoFactura").ToString <> "CFDi" Then LblTipoFact.Text = dr("TipoFactura").ToString : divTipoFactura.Visible = True
@@ -4757,7 +4775,7 @@ Partial Class Compras_Compras
                            'End If

                            'METODO DE PREPOLIZA DE ALMACEN
-                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163, 172, 173) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
                                Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                If ImporteAlmacen > 0 Then
                                    If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -8087,11 +8105,15 @@ Partial Class Compras_Compras
                                        Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
                                    End If

-                                    If Not TieneError AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                        TieneError = True
-                                        Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
+
+                                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                                        If Not TieneError AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                                            TieneError = True
+                                            Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
+                                        End If
                                    End If

+
                                    If Not TieneError Then
                                        ObjCompras.Commit()
                                        If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1236,17 +1236,20 @@ Partial Class PopUpVerFactura
                Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString)
                Dim Archivo As New System.IO.FileInfo(Path)

-                If UrlParametros("EXT").ToString.ToUpper = "PDF" Then
-                    If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then
-                        Dim CveIE As Integer = -1
-                        If UrlParametros("CVEIE") IsNot Nothing Then
-                            CveIE = UrlParametros("CVEIE").ToString.ToEntero
+                If Not Archivo.Exists Then
+                    If UrlParametros("EXT").ToString.ToUpper = "PDF" Then
+                        If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then
+                            Dim CveIE As Integer = -1
+                            If UrlParametros("CVEIE") IsNot Nothing Then
+                                CveIE = UrlParametros("CVEIE").ToString.ToEntero
+                            End If
+                            PDFReciboDePagos(-1, CveIE, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir
                        End If
-                        PDFReciboDePagos(-1, CveIE, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir
                    End If
+
+                    Archivo = Nothing
                End If

-                Archivo = Nothing
            End If

            If UrlParametros("SERIEFOLIO") IsNot Nothing AndAlso UrlParametros("SERIEFOLIO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -3101,7 +3101,7 @@
                                            <asp:Literal ID="LtlEventoBitacora" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Literal>
                                        </ItemTemplate>
                                    </asp:TemplateField>
-                                    <asp:TemplateField>
+                                    <asp:TemplateField HeaderStyle-Width="30px">
                                        <HeaderTemplate>Archivo</HeaderTemplate>
                                        <ItemTemplate>
                                            <asp:LinkButton ID="LinkArchivo" Visible="false" runat="server" CssClass="Texto" OnClick="DownloadFile">
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2173,64 +2173,7 @@ Partial Class Compras_eFacturas

        Return Fact
    End Function
-    Private Function GuardaArchivoXML(Archivo As String) As Modelos.eFactura
-        ' , Destino As String, Temporal As String
-        Dim Retorno As Modelos.eFactura = Nothing

-        If File.Exists(Archivo) Then
-            Dim NombreArchivo As String = Path.GetFileName(Archivo)
-            Dim invalidChars As Char() = Path.GetInvalidFileNameChars()
-            Dim invalidString As String = Regex.Escape(New String(invalidChars))
-            Dim valid As String = Regex.Replace(NombreArchivo, (Convert.ToString("[") & invalidString) + "]", "")
-
-            NombreArchivo = valid
-
-            Try
-                Dim XMLDoc As New XmlDocument()
-
-                XMLDoc.Load(Archivo)
-                Retorno = CargaDatosXML(XMLDoc)
-
-            Catch exx As XmlException
-                Retorno = Nothing
-                'Dim texto As Dynamic = File.ReadAllText(Archivo)
-                Dim txt_utf8 As New UTF8Encoding()
-                'REEMPLAZA CARACTERES ESPECIALES Y VUELVE A LEER EL DOCUMENTO
-
-                'texto = RemoveIllegalXMLCharacters(texto)
-                ' SE RENOMBRA EL ARCHIVO, PERO SE QUITO POR SI NO COINCIDE EL PDF CON EL NOMBRE
-                'Archivo = Archivo.ToUpper.Replace(".XML", "-2.XML")
-                'NombreArchivo = IO.Path.GetFileName(Archivo)
-                'File.WriteAllText(Archivo, texto)
-
-
-                ' Dim xmltr As New XmlTextReader(New MemoryStream(RemoveIllegalXMLCharacters(texto)))
-                Dim XMLDoc As New XmlDocument()
-
-                Try
-                    XMLDoc.Load(Archivo)
-                    Retorno = CargaDatosXML(XMLDoc)
-                Catch ex As Exception
-                    Retorno = Nothing
-
-
-
-                End Try
-            Catch ex As Exception
-
-
-                Retorno = Nothing
-            End Try
-
-            'si se cargaron todos los datos
-            If Retorno IsNot Nothing AndAlso Not String.IsNullOrEmpty(Retorno.TFDUUID) Then
-                'XML
-                Retorno.ArchivoXML = NombreArchivo
-            End If
-        End If
-        Return Retorno
-
-    End Function
    Private Sub CargaImpuestosXML(XMLDoc As XmlDocument)
        Dim Prefijo As String = If(String.IsNullOrEmpty(XMLDoc.DocumentElement.Prefix), "cfd", XMLDoc.DocumentElement.Prefix)
        Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
@@ -3338,7 +3281,7 @@ Partial Class Compras_eFacturas


            Dim SXML As String = File.ReadAllText(Archivo).Replace(vbLf, " ").Replace(vbCrLf, " ")
-
+            SXML = SXML.Replace("o;?", "")
            SXML = SXML.Trim((Convert.ToChar(0)))

            XMLDoc.LoadXml(SXML)
@@ -4508,7 +4451,7 @@ Partial Class Compras_eFacturas


                Dim SXML As String = File.ReadAllText(Archivo).Replace(vbLf, " ").Replace(vbCrLf, " ")
-
+                SXML = SXML.Replace("o;?", "")
                SXML = SXML.Trim((Convert.ToChar(0)))

                XMLDoc.LoadXml(SXML)
--- a/Contabilidad/DiarioPagos.aspx.vb
+++ b/Contabilidad/DiarioPagos.aspx.vb
@@ -599,7 +599,7 @@ Partial Class Contabilidad_DiarioPagos


                                Select Case UsuarioActual.CveEmpresa
-                                    Case 13
+                                    Case 13, 83
                                        Select Case gvr.DataKey("CveTipoTransaccion")
                                            Case "1" 'cheque
                                                Folio = gvr.DataKey("Folio")
@@ -791,7 +791,7 @@ Partial Class Contabilidad_DiarioPagos
                                    End If

                                    'registro los movimientos en proveedores, cuando es de contado que toque 
-                                    If UsuarioActual.CveEmpresa = 13 AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then
+                                    If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then
                                        CargoProveedor += CompraPagadoTotal
                                        AbonoProveedor += CompraPagadoTotal
                                    End If
@@ -835,7 +835,7 @@ Partial Class Contabilidad_DiarioPagos
                                    End If

                                    Dim ttTipoCambioPago As Double = TipoCambioPago
-                                    If UsuarioActual.CveEmpresa = 13 Then ttTipoCambioPago = TipoCambioCompra
+                                    If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ttTipoCambioPago = TipoCambioCompra

                                    If IVAAcreditable > 0 Then 'iva Acreditable 

@@ -927,8 +927,7 @@ Partial Class Contabilidad_DiarioPagos

                                        If SimplificaRetIVA = False Then CompraRetIVA = CompraPagadoRetIVA
                                        'no registra la retencion de iva al pagar
-                                        If UsuarioActual.CveEmpresa = 13 Then IdCuentaRetIVACirculacion = 0
-
+                                        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then IdCuentaRetIVACirculacion = 0

                                        ConceptoTmp = If(CveMoneda = 2, String.Format("{0} TC {1}", ConceptoDetalle, TipoCambioFechaCompra), ConceptoDetalle)
                                        If CompraRetIVA > 0 AndAlso IdCuentaRetIVACirculacion > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, IdCuentaRetIVACirculacion, False, CompraPagadoRetIVA * TipoCambioFechaCompra, gvrc.FCHiddenField("HdnSerieFolio").Value, ConceptoTmp, 0, Fecha, gvrc.FCHiddenField("HdnCveCompra").Value.ContaReferencia(TipoContaReferencia.Compra), If(MonExt, CompraRetIVA, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -61,7 +61,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
            ObjPlantillaPolizasTipo.Dispose()

            Dim dt As DataTable = Nothing
-            If UsuarioActual.Empresa.UsaContabilidad Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)

                If Conta.GetCuentas(-1, "-1", 1) Then
@@ -257,13 +257,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
                                                                                DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
                    TxtOrden.Text = ""
                    If Not ChkSeguirAgregando.Checked Then
-                        updatatos()
                        Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
                    Else
                        RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
                        UpModal.Update()
                    End If
-
+                    updatatos()
                Else
                    ErrorDetalle = True
                End If
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/Contabilidad/PopUpAuxiliar.aspx.vb
@@ -210,7 +210,7 @@ Partial Class PopUpAuxiliar
                e.Row.FCLiteral("LtlConcepto").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("ConceptoContable"))
            End If

-            If e.Row.DBCampo("CveConceptoContable").Contiene("91", "251", "301") Then 'desaplicar NC 
+            If e.Row.DBCampo("CveConceptoContable").Contiene("91", "294", "251", "301") Then 'desaplicar NC 

                e.Row.FCLinkButton("LnkDesAplicar").Visible = True
                e.Row.FCLinkButton("imgD").Visible = False
--- a/Contabilidad2/CatCuentasAsignaciones.aspx
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -60,7 +60,7 @@

                            <label runat="server" id="Lblcon" class="col-md-1 truncate">Concepto:</label>
                            <div runat="server" id="DivCon" class="col-md-2">
-                                <asp:DropDownList ID="DdlConceptos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo2" ></asp:DropDownList>                                                   
+                                <asp:DropDownList ID="DdlConceptos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"  DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo2" ></asp:DropDownList>                                                   
                            </div>
                                                          
                        </div>
@@ -134,11 +134,11 @@
                                    <div class="col-md-1" style="width:50%;text-align:left">
                                        <div class="form-group form-md-line-input input-iconright">
                                            <asp:HiddenField ID="HdnCveCuentaAsignacion" runat="server" />
-                                            <asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo" AutoPostBack="true"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"  DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo" AutoPostBack="true"></asp:DropDownList>
                                            <label for="<%= DdlCconceptosContables.ClientID.ToString()%>">Concepto Contable: </label>
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"  DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
                                            <label for="<%= DdlCuenta.ClientID.ToString()%>">Cuenta Contable: </label>
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright" id="divIdCuenta" runat="server" visible="false">
@@ -147,7 +147,7 @@
                                            <label for="<%= TxtIdCuentaContable.ClientID.ToString()%>">IdCuentaContable:</label>
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright" id="divProveedor" runat="server" visible="false">
-                                            <ADS:Dropdownlost ID="DdlProveedor" CssClassDdl="select2me" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" data-metodo="getproveedores" CssStyle="width: 100%;" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo" ></ADS:Dropdownlost>
+                                            <ADS:Dropdownlost ID="DdlProveedor" CssClassDdl="select2me" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" data-metodo="getproveedores" CssStyle="width: 100%;"  DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo" ></ADS:Dropdownlost>
                                            <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor: </label>
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright" id="divCliente" runat="server" visible="false">
@@ -165,11 +165,11 @@
                                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlPersonal" Width="90%" data-metodo="getpersonal" runat="server" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssStyle="width: 100%;" Enabled="false"></ADS:Dropdownlost>
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright" id="divClasificacion" runat="server" visible="false">
-                                            <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"  DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
                                            <label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación: </label>
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright" id="divAlmacen" runat="server" visible="false">
-                                            <asp:DropDownList ID="DdlAlmacen" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Almacen" DataValueField="CveAlmacen" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlAlmacen" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"  DataTextField="Almacen" DataValueField="CveAlmacen" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
                                            <label for="<%= DdlAlmacen.ClientID.ToString()%>">Almacén: </label>
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright" id="divPorcentajeIVA" runat="server" visible="false">
@@ -178,11 +178,11 @@
                                            <label for="<%= TxtPorcentajeIVA.ClientID.ToString()%>">PorcentajeIVA:</label>
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright" id="divConceptoNomina" runat="server" visible="false">
-                                            <asp:DropDownList ID="DdlConceptoNomina" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Width="240px" ValidationGroup="GrpModulo" ></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlConceptoNomina" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"  DataTextField="CodigoConcepto" DataValueField="CveConcepto" Width="240px" ValidationGroup="GrpModulo" ></asp:DropDownList>
                                            <label for="<%= DdlConceptoNomina.ClientID.ToString()%>">Concepto nómina: </label>
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright" id="divActivoFijo" runat="server" visible="false">
-                                            <asp:DropDownList ID="DdlActivoFijo" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlActivoFijo" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"  DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
                                            <label for="<%= DdlActivoFijo.ClientID.ToString()%>">Activo Fijo: </label>
                                        </div>
                                        <div class="form-group form-md-line-input input-iconright" id="divSubProyectos" runat="server" visible="false">
@@ -249,7 +249,7 @@
                                <div class="row">
                                     <div class="col-md-6" style="width:50%;text-align:left">
                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlCuentaGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo2"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlCuentaGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"  DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo2"></asp:DropDownList>
                                            <label for="<%= DdlCuentaGlobal.ClientID.ToString()%>">Cuenta Contable: </label>
                                        </div> 
                                    </div>    
--- a/Contabilidad2/RepAnexoCatalogo.aspx
+++ b/Contabilidad2/RepAnexoCatalogo.aspx
@@ -49,18 +49,7 @@
                                <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
                                <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
                            </div>
-                            <div class="col-md-1 truncate">
-                                Tipo Movto
-                            </div>
-                            <div class="col-md-2 truncate">
-                                <asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
-                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
-                                </asp:DropDownList>
-                            </div>
+                            
                            <div class="col-md-1 truncate">
                                Fecha Inicio:  
                            </div>
@@ -100,6 +89,18 @@
                </div>
                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
                    <div class="row">
+                        <div class="col-md-1 truncate">
+                                Tipo Movto
+                            </div>
+                            <div class="col-md-2 truncate">
+                                <asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
+                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                    <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
+                                    <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
                        <div class="col-md-1 truncate" id="tdTipoReporte" visible="true">
                            Tipo
                        </div>
--- a/Empresas/1/Formatos/Factura.rdlc
+++ b/Empresas/1/Formatos/Factura.rdlc
--- a/Empresas/132/Formatos/Factura.rdlc
+++ b/Empresas/132/Formatos/Factura.rdlc
--- a/Empresas/141/Formatos/Factura.rdlc
+++ b/Empresas/141/Formatos/Factura.rdlc
@@ -152,6 +152,10 @@
          <DataField>PorcentajeIVA</DataField>
          <rd:TypeName>System.String</rd:TypeName>
        </Field>
+        <Field Name="CodigoObjetoImpuesto">
+          <DataField>CodigoObjetoImpuesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
      </Fields>
      <rd:DataSetInfo>
        <rd:DataSetName>DsOC</rd:DataSetName>
@@ -448,7 +452,7 @@
                  <Paragraph>
                    <TextRuns>
                      <TextRun>
-                        <Value>Este documento es una representación impresa de un CFDI                                                                                                                                                                                  </Value>
+                        <Value>Este documento es una representación impresa de un CFDI                                                                                                                                                                           </Value>
                        <Style>
                          <FontFamily>calibri</FontFamily>
                          <FontSize>6pt</FontSize>
@@ -456,7 +460,23 @@
                        </Style>
                      </TextRun>
                      <TextRun>
-                        <Value>VERSION 3.3</Value>
+                        <Value>VERSION </Value>
+                        <Style>
+                          <FontFamily>MYRiad Pro</FontFamily>
+                          <FontSize>6pt</FontSize>
+                          <FontWeight>Bold</FontWeight>
+                        </Style>
+                      </TextRun>
+                      <TextRun>
+                        <Value>=Parameters!CFDIVersion.Value</Value>
+                        <Style>
+                          <FontFamily>MYRiad Pro</FontFamily>
+                          <FontSize>6pt</FontSize>
+                          <FontWeight>Bold</FontWeight>
+                        </Style>
+                      </TextRun>
+                      <TextRun>
+                        <Value xml:space="preserve"> </Value>
                        <Style>
                          <FontFamily>MYRiad Pro</FontFamily>
                          <FontSize>6pt</FontSize>
@@ -511,16 +531,19 @@
                  <Width>0.66404in</Width>
                </TablixColumn>
                <TablixColumn>
-                  <Width>2.60074in</Width>
+                  <Width>2.11562in</Width>
                </TablixColumn>
                <TablixColumn>
-                  <Width>0.83102in</Width>
+                  <Width>0.6863in</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.69852in</Width>
                </TablixColumn>
                <TablixColumn>
                  <Width>0.6403in</Width>
                </TablixColumn>
                <TablixColumn>
-                  <Width>0.69088in</Width>
+                  <Width>0.67895in</Width>
                </TablixColumn>
                <TablixColumn>
                  <Width>0.80447in</Width>
@@ -743,6 +766,50 @@
                        </Textbox>
                      </CellContents>
                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox26">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Obj. Imp.</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox26</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                    <TablixCell>
                      <CellContents>
                        <Textbox Name="Textbox53">
@@ -1103,6 +1170,41 @@
                        </Textbox>
                      </CellContents>
                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="CodigoObjetoImpuesto">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!CodigoObjetoImpuesto.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>CodigoObjetoImpuesto</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                    <TablixCell>
                      <CellContents>
                        <Textbox Name="PU1">
@@ -1267,6 +1369,7 @@
                <TablixMember />
                <TablixMember />
                <TablixMember />
+                <TablixMember />
              </TablixMembers>
            </TablixColumnHierarchy>
            <TablixRowHierarchy>
@@ -1283,7 +1386,7 @@
            <Top>1.75278in</Top>
            <Left>0.09836in</Left>
            <Height>0.36206in</Height>
-            <Width>8.16629in</Width>
+            <Width>8.22304in</Width>
            <ZIndex>1</ZIndex>
            <Style>
              <Border>
@@ -2015,6 +2118,25 @@
                </TextRuns>
                <Style />
              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Reg.fiscal: </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!RegimenFiscalCodigo.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
            </Paragraphs>
            <rd:DefaultName>Textbox4</rd:DefaultName>
            <Top>3.56339cm</Top>
@@ -4635,6 +4757,18 @@
      <AllowBlank>true</AllowBlank>
      <Prompt>ReportParameter1</Prompt>
    </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
  </ReportParameters>
  <EmbeddedImages>
    <EmbeddedImage Name="ID2">
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -152,10 +152,6 @@ Partial Class Inicio
                Response.Redirect("/PortalProveedor/PortalProveedor.aspx")
            End If

-            If UsuarioActual.CveEmpresa = 66 Then
-                LtlTitulo.Text = "Sistema Integral de Información Gluyas"
-            End If
-
            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
                Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa)
                If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -164,13 +164,12 @@
                    </div>
                    <div class="titlefiltros caption ">
                        <div class="row" style="padding-top: 10px; position: relative;">
-
                            <asp:Label runat="server" ID="LblPS" CssClass="col-md-1 truncate" Style="max-width: 80px;">Producto:</asp:Label>
                            <div class="col-md-2 " style="min-width: 250px; max-width: 300px;">
                                <ADS:Dropdownlost ID="ddlProducto2" runat="server" AutoPostBack="False" DataTextField="PSCodigo" IncluyeTodos="false" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost>
                            </div>

-                            <label class="col-md-1 truncate" style="max-width: 80px;">Almacén:</label>
+                            <label class="col-md-1 truncate" style="max-width: 80px;" id="lblAlm" runat="server">Almacén:</label>
                            <div class="col-md-2">
                                <%--<asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me " Style="width: 175px !important;" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>--%>
                                <asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -54,6 +54,7 @@ Partial Class Inventarios_Kardex

            If UsuarioActual.CveUsuario = 100 Then
                LblPS.ToolTip = ddlProducto2.SelectedValue
+                lblAlm.InnerText = ddlProducto2.SelectedValue
            End If

        End If
@@ -180,6 +181,7 @@ Partial Class Inventarios_Kardex

        If UsuarioActual.CveUsuario = 100 Then
            LblPS.ToolTip = ddlProducto2.SelectedValue
+            lblAlm.InnerText = ddlProducto2.SelectedValue
        End If

        TxtSerie.Text = ""
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -39,11 +39,12 @@ Partial Class Inventarios_KardexAlmacen
        CargaFuncionalidad105()
        CargaPS()

-        Using ObjPS As New ClsProductosServicios
-            If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
-                DdlMarca.DataSource = ObjPS.DtResultados.Copy().FiltraParametros("", Orderby:="Marca")
-            End If
-        End Using
+        'Using ObjPS As New ClsProductosServicios
+        '    If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+        '        DdlMarca.DataSource = ObjPS.DtResultados.Copy().FiltraParametros("", Orderby:="Marca")
+        '    End If
+        'End Using
+        DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
        DdlMarca.DataBind()
        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))

--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -4350,8 +4350,6 @@ Partial Class Inventarios_RecepcionAlmacen
                TipoCambio = 0
                TipoMovimiento = 1

-
-
                If ObjInventario.RecepcionAlmacenOCGet(CveOC, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                    DtDatosDetalle = Nothing
                    CreaDtDetalle()
@@ -4359,7 +4357,10 @@ Partial Class Inventarios_RecepcionAlmacen
                    CreaDtLoteDetalle()
                    CreaDTInv(ObjInventario.DtResultados.FiltraParametros("CantidadCompra = 0"))
                    BtnGuardar.Visible = True
-
+                    'cuando están todos los detalles de la compra, nos indica que se va a recibir la totalidad de la compra
+                    If DtDatosDetalle.Rows.Count = DtDatosDetalle.Rows(0)("NumDetalles").ToString.ToEntero Then
+                        RecibidaCompleta = True
+                    End If

                    ''MONEDA DIFERENTE
                    If CveMoneda <> 1 Then
--- a/Inventarios/RepEntregaAlmacenRuta.aspx
+++ b/Inventarios/RepEntregaAlmacenRuta.aspx
@@ -103,49 +103,44 @@
                DataKeyNames="CveSubProyecto, CveEntregaAlmacen,Estatus,CveCliente,CveDireccionOrigen,CveDireccionDestino,CveCamion,CveChofer,FechaEntrega,CveAlmacen,Tipo,AplicaCP,RFCReceptor,RFCEmisor,CveTimbre,CvePAC,FolioFiscal,TimbreTipoDocto,CveMovimiento,FechaLlegada,CveCamionRemolque1,CveCamionRemolque2,Distancia,CveConfigAutoTransporte,SerieFolio,DireccionOrigen,Direccion"
                AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None"
                EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound">
-                <Columns>
-                    
-                    <asp:TemplateField  ItemStyle-HorizontalAlign="Left"  HeaderStyle-HorizontalAlign="Left" HeaderText="Tipo">
+                <Columns>                    
+                    <asp:TemplateField   HeaderStyle-HorizontalAlign="Left" HeaderText="Tipo">
                        <ItemTemplate>
                            <asp:Label ID="LtTipo" runat="server" Text='<%# Eval("TipoDescripcion") %>'></asp:Label>
                        </ItemTemplate>
-                        <HeaderStyle HorizontalAlign="Left" />
-                        <ItemStyle HorizontalAlign="Left" />
+                        <HeaderStyle HorizontalAlign="Left" />                        
                    </asp:TemplateField>                    
-                     <asp:TemplateField  ItemStyle-HorizontalAlign="Left"  HeaderStyle-HorizontalAlign="Left" HeaderText="CP">
+                     <asp:TemplateField   HeaderStyle-HorizontalAlign="Left" HeaderText="CP">
                        <ItemTemplate>
                            <asp:Literal ID="LtCP" runat="server" Text='<%#  Eval("AplicaCP").ToString()=="True"?"Si":"No"   %>'></asp:Literal>
                        </ItemTemplate>
-                         <HeaderStyle HorizontalAlign="Left" />
-                         <ItemStyle HorizontalAlign="Left" />
+                         <HeaderStyle HorizontalAlign="Left" />                       
                    </asp:TemplateField>
                    <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal">
                    </asp:BoundField>
                                                        
-                    <asp:BoundField DataField="SerieFolio" HeaderText="Folio"  ItemStyle-HorizontalAlign="Left" >
-                    <ItemStyle HorizontalAlign="Left" />
+                    <asp:BoundField DataField="SerieFolio" HeaderText="Folio"  >                  
                    </asp:BoundField>
-                    <asp:BoundField DataField="Nombre" HeaderText="Cliente"  ItemStyle-HorizontalAlign="Left" >
-                    <ItemStyle HorizontalAlign="Left" />
+                  
+                    <asp:BoundField DataField="Nombre" HeaderText="Cliente"  >                   
                    </asp:BoundField>
-                    <asp:HyperLinkField DataTextField="FolioAlmacen"  HeaderText="Folio Alm" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataNavigateUrlFields="CveMovimiento" ControlStyle-CssClass="Texto"  ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="Chofer" HeaderText="Operador"   ItemStyle-HorizontalAlign="Left" >
-                     <ItemStyle HorizontalAlign="Left" />
+                     <asp:BoundField DataField="EnvioDireccionOrigen" HeaderText="Dirección"  >                   
                    </asp:BoundField>
-                     <asp:BoundField DataField="Unidad" HeaderText="Unidad" ItemStyle-HorizontalAlign="Left" >
-                    <ItemStyle HorizontalAlign="Left" />
+                    <asp:HyperLinkField DataTextField="FolioAlmacen"  HeaderText="Folio Alm" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataNavigateUrlFields="CveMovimiento" ControlStyle-CssClass="Texto"  />
+                    <asp:BoundField DataField="Chofer" HeaderText="Operador" >                    
                    </asp:BoundField>
-                    <asp:BoundField DataField="EstatusStr" HeaderText="Estatus" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" >
-
-                    <ItemStyle HorizontalAlign="Left" Width="10%" />
+                     <asp:BoundField DataField="Unidad" HeaderText="Unidad" >                   
+                    </asp:BoundField>
+                    <asp:BoundField DataField="EstatusStr" HeaderText="Estatus"  >  
                    </asp:BoundField>

                    <asp:BoundField DataField="FechaEntrega" HeaderText="Fecha Entrega" ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" >
                    
                     <ItemStyle HorizontalAlign="Center" Width="4%" />
                    </asp:BoundField>
-                    
-                     <asp:TemplateField  ItemStyle-Width="75px"  ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Opciones">
+                     <asp:BoundField DataField="FolioReferencia" HeaderText="Folio Ref"  >                   
+                    </asp:BoundField>
+                     <asp:TemplateField  ItemStyle-Width="75px"  HeaderStyle-HorizontalAlign="Left" HeaderText="Opciones">
                        <ItemTemplate>
                            <asp:LinkButton ID="LnkEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar"   CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />                                                        
                            <asp:LinkButton ID="LnkTimbrar" runat="server" OnClick="LnkTimbrar_Click" AlternateText="Timbrar" ToolTip="Timbrar"   CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-external-link'></i>" />                                                        
@@ -156,7 +151,7 @@
                         <ItemStyle HorizontalAlign="Left" Width="75px" />
                    </asp:TemplateField>

-                      <asp:TemplateField ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Center" HeaderText="Direcciones"  Visible="false">
+                      <asp:TemplateField ItemStyle-Width="50px" HeaderStyle-HorizontalAlign="Center" HeaderText="Direcciones"  Visible="false">
                        <ItemTemplate>
                            <asp:LinkButton ID="LnkEditarDirOrigen" Visible="false" runat="server" OnClick="EditDireccionOrigen_Click" AlternateText="Editar" ToolTip="Actualizar dirección Origen"   CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-location-arrow'></i>" />                                                        
                            <asp:LinkButton ID="LnkEditarDirDestino" Visible="false" runat="server" OnClick="EditDireccionDestino_Click" AlternateText="Editar" ToolTip="Actualizar dirección Destino"   CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-location-arrow'></i>" />                            
--- a/Inventarios/RepEntregaAlmacenRuta.aspx.cs
+++ b/Inventarios/RepEntregaAlmacenRuta.aspx.cs
@@ -619,7 +619,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
    {
        if (e.Row.RowType == DataControlRowType.DataRow)
        {
-            e.Row.Cells[11].Text = "";
+            e.Row.Cells[13].Text = "";
            LinkButton LnkEditar = e.Row.FCLinkButton("LnkEditar");
            LinkButton LnkTimbrar = e.Row.FCLinkButton("LnkTimbrar");
            LinkButton LnkCancelaTimbre = e.Row.FCLinkButton("LnkCancelaTimbre");
--- a/Ventas/CatClasificaciones.aspx.vb
+++ b/Ventas/CatClasificaciones.aspx.vb
@@ -225,7 +225,18 @@ Partial Class CatClasificaciones

    Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)

-        If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+            DdlCuentaGasto.DataValueField = "CveCuenta"
+            DdlCuentaGasto.DataTextField = "Cuenta"
+            Dim ObjContabilidad As New ClsContabilidad
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                DtCuentasContables = ObjContabilidad.DtResultados
+                'Cuenta, CtaCodigo
+                DtCuentasContables.Columns("CtaCodigo").ColumnName = "Cuenta"
+            End If
+            ObjContabilidad.Dispose()
+        ElseIf UsuarioActual.Empresa.TipoContabilizacion = 1 Then

            Dim ObjEmpresa As New ClsSisEmpresas
            Dim Empresa As Empresa = Nothing
@@ -238,9 +249,8 @@ Partial Class CatClasificaciones
                ObjContabilidad.Dispose()
            End If
            ObjEmpresa.Dispose()
-        ElseIf UsuarioActual.Empresa.TipoContabilizacion = 2 Then
-            DdlCuentaGasto.DataValueField = "CveCuenta"
-            DdlCuentaGasto.DataTextField = "Cuenta"
+
+
        End If


--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1858,7 +1858,8 @@ Partial Class Clientes

                'Ocultamos la mayoria de informacion si es no-frecuente
                If ObjClientes.TipoCliente = 2 Then
-                    TabFiscalContable.Visible = False
+                    If UsuarioActual.CveEmpresa <> 141 Then TabFiscalContable.Visible = False
+
                    TabCxC.Visible = False
                    'TabAnticipos.Visible = False
                    TabRetenciones.Visible = False
@@ -2510,12 +2511,12 @@ Partial Class Clientes

            If DdlPais.SelectedValue.ToEntero() = 151 Then
                If Not DdlMunicipio.SelectedValue.ToEntero() > 0 Then
-                    Alert("Tiene que seleccionar un municipio para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia)
+                    Alert("Tiene que seleccionar un municipio para comercio exterior si el pais es méxico.", TipoMensaje.MsgAdvertencia)
                    Exit Sub
                End If

                If Not DdlColonia.SelectedValue.ToEntero() > 0 Then
-                    Alert("Tiene que seleccionar una colonia para comercio exterior si el pais es mexico.", TipoMensaje.MsgAdvertencia)
+                    Alert("Tiene que seleccionar una colonia para comercio exterior si el pais es méxico.", TipoMensaje.MsgAdvertencia)
                    Exit Sub
                End If
            End If
@@ -2533,7 +2534,7 @@ Partial Class Clientes

            If TxtRFC.Text.ToUpper.Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue <> "23" Then

-                Alert("El Regimen fiscal del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Alert("El uso del cfdi debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
                Exit Sub

            End If
@@ -8739,10 +8740,11 @@ Partial Class Clientes
        DTPorcentajePrecios = DTPorcentajeTemp.Clone
    End Sub
    Private Sub CargaMarcas()
-        Dim ObjMarcas As New ClsProductosServicios
-        ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
-        DdlMarcaPS.DataSource = ObjMarcas.DtResultados
-        ObjMarcas.Dispose()
+        'Dim ObjMarcas As New ClsProductosServicios
+        'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
+        'DdlMarcaPS.DataSource = ObjMarcas.DtResultados
+        'ObjMarcas.Dispose()
+        DdlMarcaPS.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
        DdlMarcaPS.DataBind()
        DdlMarcaPS.Items.Insert(0, New ListItem("Seleccione", "-1"))

--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -985,7 +985,7 @@ Partial Class Ventas_ClientesAbonar
                                                IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaComplementariaAnticipo, IdCtaContComplementaria)
                                                If ImporteMovimiento <> 0 Then
                                                    ImporteMN = ImporteMovimiento
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158), 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, -1, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento).RoundSQL, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158), 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento).RoundSQL, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then
                                                        MsgError = "No se pudo insertar la póliza"
                                                    End If
                                                End If
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -1375,16 +1375,17 @@ Partial Class PV
    Private Sub CargaMarcasFiltro()

        Using ObjMarcas As New ClsProductosServicios
-            If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
-                DdlMarcaPS.DataSource = ObjMarcas.DtResultados.Copy()
-                DdlMarcaPSAjuste.DataSource = ObjMarcas.DtResultados.Copy()
-            End If
+            'If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
+            '    DdlMarcaPS.DataSource = ObjMarcas.DtResultados.Copy()
+            '    DdlMarcaPSAjuste.DataSource = ObjMarcas.DtResultados.Copy()
+            'End If

            If ObjMarcas.GetMarcasUsados(UsuarioActual.CveEmpresa) Then
                DdlMarcaUsado.DataSource = ObjMarcas.DtResultados.Copy()
            End If
        End Using

+        DdlMarcaPS.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
        DdlMarcaPS.DataBind()
        DdlMarcaPSAjuste.DataBind()
        DdlMarcaUsado.DataBind()
@@ -6639,11 +6640,13 @@ Partial Class PV
            End If
            DdlMarca.Items.Clear()
            DdlMarcaPSDes.Items.Clear()
-            Dim ObjMarcas As New ClsProductosServicios
-            ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
-            DdlMarca.DataSource = ObjMarcas.DtResultados
-            DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
-            ObjMarcas.Dispose()
+            'Dim ObjMarcas As New ClsProductosServicios
+            'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
+            'DdlMarca.DataSource = ObjMarcas.DtResultados
+            'DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
+            'ObjMarcas.Dispose()
+            DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
+            DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
            DdlMarca.DataBind()
            DdlMarcaPSDes.DataBind()
        End If
--- a/Ventas/RepLineasAdicionales.aspx
+++ b/Ventas/RepLineasAdicionales.aspx
@@ -39,14 +39,14 @@
                    <div class="titlefiltros  caption">
                        <div class="row">

-                            <div class="col-md-1 truncate" runat="server" id="DVProveedor1" visible="false">Proveedor:</div>
+                            <div class="col-md-1 truncate" runat="server" id="DVProveedor1" visible="false">Comercializador:</div>
                            <div class="col-md-2" runat="server" id="DVProveedor2" visible="false">
                                <ADS:Dropdownlost ID="DdlProveedor" SelectedText="-" runat="server" CssStyle="width: 100%; selected2me; " Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></ADS:Dropdownlost>
                            </div>

                            <div class="col-md-1 truncate" >Cliente:</div>
                            <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" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                            </div>

                            <div class="col-md-1 truncate" >Estatus:</div>
@@ -54,7 +54,7 @@
                                <asp:DropDownList runat="server" ID="DdlEstatus" CssClass="select2me" Width="100%">
                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>                                    
                                    <%--<asp:ListItem Text="Registrado" Value="0" ></asp:ListItem>                                   --%>
-                                    <asp:ListItem Text="Vinculado" Value="1" Selected="True"></asp:ListItem>                                   
+                                    <asp:ListItem Text="Pendiente" Value="1" Selected="True"></asp:ListItem>                                   
                                    <asp:ListItem Text="Enviado" Value="2"></asp:ListItem>                                    
                                </asp:DropDownList>
                            </div>
@@ -95,8 +95,8 @@

                    <div class="row " runat="server" visible ="false" id="DvLineaPO">
                        <div class="  col-md-12" style="text-align: right!important">
-                            <input type="text" id="TxtBuscarLineaAdicionalpo" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLineasAdicionalesPO.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLineasAdicionalesPO.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                            <input type="text" id="TxtBuscarLineaAdicionalpo" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLAPO.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLAPO.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                        </div>
                    </div>

@@ -117,29 +117,27 @@
                                    <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" />
                                    <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
                                    <asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." />
-                                    <asp:BoundField DataField="Estatus" HeaderText="Estatus" />
-                                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" />
+                                    <asp:BoundField DataField="Estatus" HeaderText="Estatus" />                                    
                                </Columns>
                            </asp:GridView>

-                            <asp:GridView ID="GvLineasAdicionalesPO" Width="100%" runat="server" GridLines="None" Visible="false"
-                                DataKeyNames="Agrupador,CveLineaAdicional,LineaAdicional,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,CveLineaAdicionalEstatus,LineaAdicionalComprobante,DiasVencimiento,CveVenta"
+                            <asp:GridView ID="GvLAPO" Width="100%" runat="server" GridLines="None" Visible="false"
+                                DataKeyNames="CveLineaAdicional,LineaAdicional,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveLineaAdicionalEstatus,LineaAdicionalComprobante,CveVenta,CveCliente"
                                CssClass="table table-striped table-advance table-hover ScrollAD input-sm mysmallbtn" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                                AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"
-                                OnRowCommand="GvLineasAdicionalesPO_RowCommand"
-                                OnRowDataBound="GvLineasAdicionalesPO_RowDataBound">
+                                OnRowCommand="GvLAPO_RowCommand"
+                                OnRowDataBound="GvLAPO_RowDataBound">
                                <Columns>
                                    <asp:BoundField DataField="Agrupador" HeaderText="Agrupador" />
-                                    <asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" />
+                                    <asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional" ItemStyle-HorizontalAlign="Right" />
                                    <asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
-                                    <asp:BoundField DataField="Abreviatura" HeaderText="Moneda" ItemStyle-HorizontalAlign="Right" />
+                                    <asp:BoundField DataField="Abreviatura" HeaderText="Mon" ItemStyle-HorizontalAlign="Right" />
                                    
                                    <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" />
                                    <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
                                    <asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." ItemStyle-HorizontalAlign="Right"  />
                                    <asp:BoundField DataField="Estatus" HeaderText="Estatus" />
-                                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" />
-
+                                  
                                    <asp:TemplateField HeaderText="Opciones" ItemStyle-Width="100px"  HeaderStyle-Width="100px">
                                        <ItemTemplate>
                                            <div class="row" >
@@ -147,12 +145,10 @@
                                                    <asp:LinkButton ID="LnkCargarComprobante" Visible="false" runat="server" AlternateText="Editar" CausesValidation="False" 
                                                        CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-upload'></i>" OnClick="LnkCargarComprobante_Click"
                                                        ToolTip="Cargar Comprobante" />
-                                                </div>
-                                                <div class="col-md-4" style="max-width:26px!important">
                                                    <asp:LinkButton ID="LnkDescargaComprobante"  Visible="false"  runat="server" AlternateText="Descarga" CausesValidation="False" 
                                                        CssClass="btn btn-circle btn-sm  yellow" Text="<i class='fa fa-download'></i>" OnClick="LnkDescargaComprobante_Click"
                                                        ToolTip="Descargar Comprobante" />
-                                                </div>
+                                                </div>                                                 
                                                <div class="col-md-4" style="max-width:26px!important" title="Cambiar esatatus a Enviado">
                                                    <asp:LinkButton ID="LnkCambiarEstatus" runat="server"  Visible="false"  AlternateText="CambiarEstatus" 
                                                        CommandName="Estatus" CommandArgument='<%# Eval("CveLineaAdicionalEstatus") %>' CausesValidation="False" 
--- a/Ventas/RepLineasAdicionales.aspx.cs
+++ b/Ventas/RepLineasAdicionales.aspx.cs
@@ -73,7 +73,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas

        if (Request["OP"] != null && Request["OP"].ToString() == "PO")
        {
-            DVProveedor1.Visible = true;
+            DVProveedor1.Visible = true;
            DVProveedor2.Visible = true;          
            TipoLinea = 2;
            LtlEncabezado.Text = "Reporte PO";
@@ -84,10 +84,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas

        }
        else
-        {
-            DvLinea.Visible = true;
-            GvLineasAdicionales.Visible = true;
-        }
+        {
            DvLinea.Visible = true;
            GvLineasAdicionales.Visible = true;
        }
@@ -147,16 +144,16 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
                GvLineasAdicionales.DataSource = null;
            }
        }
-        else
+        else
        {

            if (DdlAgrupador.SelectedValue.ToEntero()== 1){
-                GvLineasAdicionalesPO.Columns[0].HeaderText = "Comercializador";
+                GvLAPO.Columns[0].HeaderText = "Comercializador";
            }
            else
            {
                GvLAPO.Columns[0].HeaderText = "Cliente";
-            }
+            }
            
            if (objVentas.RepLineasAdicionales(DdlAgrupador.SelectedValue.ToEntero(), -1, DdlClientes.SelectedValue.ToEntero(), CveProveedor, 2, -1, MinFecha, MaxFecha, DdlEstatus.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa))
            {
@@ -167,19 +164,13 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
                    DTDatosGvLineasAdicionales = objVentas.DtResultados;
                    LnkDescargaExcel.Visible = true;
                    UpAcciones.Update();
-                }
+                }
            }
-            else
-            {
-                GvLineasAdicionalesPO.DataSource = null;
-            }
-
+            else
            {
                GvLAPO.DataSource = null;
-
            }
-
-        objVentas.Dispose();
+        }            

        objVentas.Dispose();
        GvLineasAdicionales.DataBind();
@@ -273,17 +264,15 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
                    {
                        errorCargaComprobante = true;
                    }                    
-                    
+                    
                    if (!errorCargaComprobante)
                    {
                        ClsVentas objVentas = new ClsVentas();
                        if (!objVentas.UpdateLineasAdicionales(CveLineaAdicional, "-1", -1, -1, -1, -1, -1, MinFecha, UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, LineaAdicionalComprobante: $@"{CveVenta}{fiNuevo.Extension}",CveVenta:CveVenta))
                        {
                            errorCargaComprobante = true;
-                        }
-                        objVentas.Dispose();
-                    }
-               }
+                        }
+                        objVentas.Dispose();
                    }
               }
            }            
@@ -306,7 +295,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
        int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToString().ToEntero();
        int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero(); 

-        bool errorCambioEstatus = false;
+        bool errorCambioEstatus = false;

        ClsVentas objVentas = new ClsVentas();

@@ -325,21 +314,20 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas

    protected void LnkDescargaExcel_Click(object sender, EventArgs e)
    {        
-
+
        if(TipoLinea == 1)
        {
            GridView gvTemp = GvLineasAdicionales;            
-            gvTemp.ExportToExcelx("RepLienasAdicionales");
-        }
-        else if(TipoLinea == 2)
+            gvTemp.ExportToExcelx("RepLineasAdicionales" + DateTime.Now.ToShortDateString());
+        }
+        else if(TipoLinea == 2)
        {
-            GridView gvTemp = GvLineasAdicionalesPO;
-            gvTemp.Columns[9].Visible = false;
+            GridView gvTemp = GvLAPO;
            gvTemp.Columns[8].Visible = false;
            gvTemp.ExportToExcelx("ReportePO" + DateTime.Now.ToShortDateString());
        }
             
-    }
+    }
     
  

@@ -349,9 +337,16 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
        {

            LinkButton LnkCambiarEstatus = e.Row.FCLinkButton("LnkCambiarEstatus");
-            LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante");
+            LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante");
            LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante");
-
+
+
+            if (e.Row.DataKey("CveLineaAdicional")=="")
+            {
+                if (e.Row.DataKey("CveLineaAdicional") == "" && e.Row.DataKey("CveCliente") == "")
+                {
+                    e.Row.CssClass = "SubTotales2";                  
+                }
                else
                {
                    e.Row.CssClass = "SubTotales";
@@ -374,6 +369,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas

                    if (fi.Exists)
                    {
+                        LnkDescargaComprobante.Visible = true;
                        ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkDescargaComprobante);
                    }
                }
@@ -396,12 +392,12 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
            Response.ContentType = "text/octet-stream";
            Response.Flush();
            Response.TransmitFile(fi.FullName);
-            Response.End();
+            Response.End();
        }
    }

    protected void GvLAPO_RowCommand(object sender, GridViewCommandEventArgs e)
-    {
+    {
        if (e.CommandName == "Estatus")
        {
            GridViewRow GvRow = (GridViewRow)((LinkButton)e.CommandSource).NamingContainer;
@@ -409,7 +405,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
            int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero();

            bool errorCambioEstatus = false;
-            //int cveestatus = e.CommandArgument.ToEntero() + 2; //pasar al siguiente estatus
+            //int cveestatus = e.CommandArgument.ToEntero() + 2; //pasar al siguiente estatus

            ClsVentas objVentas = new ClsVentas();

--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -336,12 +336,13 @@ Partial Class Ventas_RepProductosServicios
            DivMarca.Visible = True
            LblMarca.Visible = True

-            Using ObjMarcas As New ClsProductosServicios
-                If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
-                    DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
-                    DdlMarcaPSDes.DataBind()
-                End If
-            End Using
+            'Using ObjMarcas As New ClsProductosServicios
+            '    If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
+            '        DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
+            '        DdlMarcaPSDes.DataBind()
+            '    End If
+            'End Using
+            DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
        End If
        DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
    End Sub
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6185,6 +6185,12 @@ Partial Class Ventas
                DdlVendedor.Enabled = False
                LbAgregar.Enabled = True
            End If
+
+
+            ThTiempoEntrega.Visible = True
+                ThTiempoEntrega2.Visible = True
+                GvPS.Columns(5).Visible = True
+
        End If
        ObjCRM.Dispose()
    End Sub
@@ -7821,7 +7827,7 @@ Partial Class Ventas
                End If

                'Si es Cotizacíon
-                If e.Row.DBCampo("TipoDocto") = "Cot" Then
+                If e.Row.DBCampo("TipoDocto") = "Cot" Or CveEmpresaCRM > 0 Then
                    ThTiempoEntrega.Visible = True
                    ThTiempoEntrega2.Visible = True
                    GvPS.Columns(5).Visible = True
@@ -25123,11 +25129,13 @@ Partial Class Ventas
            End If
            DdlMarca.Items.Clear()
            DdlMarcaPSDes.Items.Clear()
-            Dim ObjMarcas As New ClsProductosServicios
-            ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
-            DdlMarca.DataSource = ObjMarcas.DtResultados
-            DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
-            ObjMarcas.Dispose()
+            'Dim ObjMarcas As New ClsProductosServicios
+            'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
+            'DdlMarca.DataSource = ObjMarcas.DtResultados
+            'DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
+            'ObjMarcas.Dispose()
+            DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
+            DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
            DdlMarca.DataBind()
            DdlMarcaPSDes.DataBind()
        End If
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -574,6 +574,12 @@
    
  
    
+  
+    
+  
+    
+  
+