diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb
index 50c928d51..866c58dfa 100644
--- a/App_Code/ClsCRM.vb
+++ b/App_Code/ClsCRM.vb
@@ -1173,7 +1173,7 @@ Public Class ClsCRM
 
 
 
-    Public Function RepAgendasBitacoras(CveEmpresa As Integer, CveVendedor As Integer, CveTipoProceso As Integer, FechaInicio As Date, FechaFin As Date) As Boolean
+    Public Function RepAgendasBitacoras(CveEmpresa As Integer, CveVendedor As Integer, CveTipoProceso As Integer, FechaInicio As Date, FechaFin As Date, Optional CveTipoEvento As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_CRM_RepAgendasBitacoras", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -1183,6 +1183,7 @@ Public Class ClsCRM
             .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveTipoEvento", SqlDbType.Int).Value = CveTipoEvento
 
 
         End With
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 22db1798b..85cb7f1a4 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7604,7 +7604,7 @@ Public Class ClsPaginas
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, 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, True, 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
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=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  
diff --git a/CRM/RepAgendasBitacoras.aspx b/CRM/RepAgendasBitacoras.aspx
index 0ea6824c0..edbe65404 100644
--- a/CRM/RepAgendasBitacoras.aspx
+++ b/CRM/RepAgendasBitacoras.aspx
@@ -71,6 +71,15 @@
                                 <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
 
+                            <label class="col-md-1"  >Tipo Evento:</label>
+                            <div class="col-md-1">
+                                <asp:DropDownList ID="DdlTipoEvento" Width="100%" runat="server"  CssClass="form-control input-sm select2me" >
+                                    <asp:ListItem Value="-1">Todos</asp:ListItem>
+                                    <asp:ListItem Value="6">Bitácora</asp:ListItem>
+                                    <asp:ListItem Value="2">Agenda</asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
 
                      
 
diff --git a/CRM/RepAgendasBitacoras.aspx.cs b/CRM/RepAgendasBitacoras.aspx.cs
index 8f2242b97..8b725b80c 100644
--- a/CRM/RepAgendasBitacoras.aspx.cs
+++ b/CRM/RepAgendasBitacoras.aspx.cs
@@ -38,7 +38,7 @@ public partial class CRM_AgendasBitacoras : ClsPaginas
         ClsCRM ObjCRM = new ClsCRM();
         //nt CveEmpresa, int CveVendedor, int CveTipoProceso, DateTime FechaInicio, DateTime FechaFin
 
-        if (ObjCRM.RepAgendasBitacoras(UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(),DdlTipoProceso.SelectedValue.ToEntero(), TxtFechaInicio.Text.ToDate(), TxtFechaFin.Text.ToDate()))
+        if (ObjCRM.RepAgendasBitacoras(UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(),DdlTipoProceso.SelectedValue.ToEntero(), TxtFechaInicio.Text.ToDate(), TxtFechaFin.Text.ToDate(), CveTipoEvento:DdlTipoEvento.SelectedValue.ToEntero()))
         {
             GVDatos.DataSource = ObjCRM.DtResultados;            
             GVDatos.DataBind();
diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
index e9a5d17dd..9ecb78a66 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -231,10 +231,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
 
 
         If Not ErrorPlantilla Then
-            Using ObjContabilidad As New ClsContabilidad
-                If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
-                If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
-            End Using
+            GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing
+            GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, -1) = Nothing
+            'Using ObjContabilidad As New ClsContabilidad
+            '    If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
+            '    If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
+            'End Using
         End If
 
 
@@ -244,13 +246,13 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
         Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
         If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, UsuarioActual.CveEmpresa) Then
             ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa))
-
             ' GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados
         End If
+        ObjPlantillaPolizaDetalle.Dispose()
 
         GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, -1) = Nothing
 
-        ObjPlantillaPolizaDetalle.Dispose()
     End Sub
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
         OcultaDiv()
diff --git a/GPS/FacturacionMasiva.aspx.vb b/GPS/FacturacionMasiva.aspx.vb
index 5fcd2b16c..9c4d12d65 100644
--- a/GPS/FacturacionMasiva.aspx.vb
+++ b/GPS/FacturacionMasiva.aspx.vb
@@ -497,7 +497,6 @@ Partial Class Contratos_FacturacionMasiva
         ObjFactura.Folio = Folio.ToEntero
         'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
         ObjFactura.Serie = Serie
-        ObjFactura.CveMesa = -1
         ObjFactura.Fecha = DR("FechaVenc").ToString.ToDate
         ObjFactura.CvePrePoliza = -1
         ObjFactura.CveMetodoPago = 1
@@ -617,7 +616,7 @@ Partial Class Contratos_FacturacionMasiva
                            factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
                            factura.Observaciones, factura.FechaEjecucion, factura.CveVendedor, factura.Alfa1, factura.Alfa2,
                            factura.Alfa3, factura.Num1, factura.Num2, factura.Num3,
-                           factura.Fech1, factura.Fech2, factura.Fech3, factura.CveCorte, factura.CveMesa, factura.NumeroPersonas, factura.CvePrePoliza, factura.CveUsuario, factura.CveEmpresa,
+                           factura.Fech1, factura.Fech2, factura.Fech3, factura.CveCorte, factura.NumeroPersonas, factura.CvePrePoliza, factura.CveUsuario, factura.CveEmpresa,
                            AtencionA:=factura.AtencionA, TelefonoGenerico:="", CveContrato:=factura.CveContrato, CveVentaPadre:=factura.CveVentaPadre, Det_FechaOrdenCompra:=factura.Det_FechaOrdenCompra, Det_OrdenCompra:=factura.Det_OrdenCompra, otros:=factura.Otros,
                            Entrega:="", Vigencia:=MinFecha,
                            CveAlmacenTraspasoDestino:=CveAlmacenTraspasoDestino, CveAlmacenTraspasoOrigen:=CveAlmacenTraspasoOrigen, CveDireccionEnvio:=-1, CveOC:=-1, IEPS:=factura.IEPSTC, Serie:=factura.Serie, CveCondicionEntrega:=-1,