diff --git a/AF/CatTiposServiciosActividades.aspx.cs b/AF/CatTiposServiciosActividades.aspx.cs
index 1c4801f17..a9eb08dc8 100644
--- a/AF/CatTiposServiciosActividades.aspx.cs
+++ b/AF/CatTiposServiciosActividades.aspx.cs
@@ -96,10 +96,10 @@ public partial class AF_CatTiposServiciosActividades : ClsPaginas
         }
         else
         {
-            if (ObjAF.UpdateActividades(DdlActividades.SelectedValue.ToEntero(),TxtDuracion.Text.ToEntero(),TxtObservaciones.Text))
-            {
-                Alert("Se actualizó la Actividad del Tipo de Servicio correctamente");
-            }
+            //if (ObjAF.UpdateActividades(DdlActividades.SelectedValue.ToEntero(),TxtDuracion.Text.ToEntero(),TxtObservaciones.Text,))
+            //{
+            //    Alert("Se actualizó la Actividad del Tipo de Servicio correctamente");
+            //}
         }
         ObjAF.Dispose();
         CargaDatos();
diff --git a/AF/RepDepreciacion.aspx b/AF/RepDepreciacion.aspx
index 9d4588dd0..a6faf68bf 100644
--- a/AF/RepDepreciacion.aspx
+++ b/AF/RepDepreciacion.aspx
@@ -42,6 +42,9 @@
     <li>
         <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
     </li>
+    <li>
+        <asp:LinkButton runat="server" ID="BtnDepreciacion" data-toggle="tooltip" data-placement="left" title="Generar Depreciacion" Text="<i class='fa fa-plus'></i> Generar Depreciacion"></asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     <asp:Label ID="LblTitulo" runat="server" Text="Catálogo de Ingreso / Egreso"></asp:Label>
@@ -94,7 +97,7 @@
     <br />
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Activo Fijo con depreciacion" DataKeyNames="CveActivoFijo, TipoActivoFijo" ToolTip="Reporte de Depreciacion" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center; position: static" UseAccessibleHeader="false" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Activo Fijo con depreciacion" DataKeyNames="CveActivoFijo, TipoActivoFijo, Descripcion, TasaDepreciacion" ToolTip="Reporte de Depreciacion" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center; position: static" UseAccessibleHeader="false" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>
@@ -172,7 +175,40 @@
             </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
+        <div id="DivDepreciacion" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlTituloModalTiposD" runat="server">Agregar Depreciacion</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                         <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList CssClass="form-control input-sm input-medium select2me" ID="DdlProyecto" runat="server"  AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar"> </asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RFVProyecto" runat="server" ControlToValidate="DdlProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCOProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                    <label for="TxtSubProyecto">Proyecto:</label>
 
+                         </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList CssClass="form-control input-sm input-medium select2me" ID="DdlSubProyecto" runat="server"  AppendDataBoundItems="true" AutoPostBack="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar"> </asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCOSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
+                            <label for="TxtSubProyecto">Sub Proyecto:</label>
+                     
+                        </div>
+     
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnGenerarDepreciacion" runat="server" class="btn btn-success" Text="Generar Depreciacion" ValidationGroup="GrpGuardar" />
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
diff --git a/AF/RepDepreciacion.aspx.vb b/AF/RepDepreciacion.aspx.vb
index e16f547a4..77c32ae7f 100644
--- a/AF/RepDepreciacion.aspx.vb
+++ b/AF/RepDepreciacion.aspx.vb
@@ -22,6 +22,76 @@ Partial Class AF_RepDepreciacion
         If GvDatos.Rows.Count = 0 Then Alert("No se encontraron Registros con los filtros actuales.", TipoMensaje.MsgAdvertencia)
     End Sub
 
+    Protected Sub BtnGenerarDepreciacion_Click(sender As Object, e As System.EventArgs) Handles BtnGenerarDepreciacion.Click
+
+
+        If GvDatos.Rows.Count > 0 Then
+            Dim CveActivoFijo As Integer
+            Dim ObjInventario As New ClsInventarios
+            Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
+            Dim ErrorMovInv As Boolean = False
+            Dim ConceptoPoliza As String = String.Format("Depreciacion - {0}", txtFechaI.Text)
+            Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
+            Dim CvePrePoliza = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+
+            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 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
+                            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
+                            ErrorMovInv = True
+                            Exit For
+                        End If
+                    Else
+                        ErrorMovInv = True
+                        Exit For
+                    End If
+                End If
+
+            Next
+
+            If ErrorMovInv = False Then
+                ObjInventario.Commit()
+                ObjInventario.Dispose()
+                ObjConta.Dispose()
+
+                Dim MensajeAlert As New StringBuilder
+                MensajeAlert.Append("Se ha generado la depreciación")
+                MensajeAlert.AppendFormat("<br/><br/><b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >ver PrePóliza</a></b>", CvePrePoliza)
+
+                Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion)
+
+            Else
+                ObjInventario.RollBack()
+                ObjInventario.Dispose()
+                ObjConta.Dispose()
+            End If
+
+        Else
+            Alert("Debera consultar la informacion previo a la generacion de la depreciación", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
+    Protected Sub BtnDepreciacion_Click(sender As Object, e As EventArgs) Handles BtnDepreciacion.Click
+        CargaProyecto()
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivDepreciacion"))
+    End Sub
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargaSubProyecto()
+    End Sub
+
+
 #Region " C A R G A - D A T O S "
     Public Sub CargaDatos()
         Dim ObjAF As New ClsAF
@@ -50,6 +120,19 @@ Partial Class AF_RepDepreciacion
 #End Region
 
 #Region "CARGA COMBOS FILTRO"
+    Private Sub CargaProyecto()
+        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
+        DdlProyecto.DataBind()
+        CargaSubProyecto()
+    End Sub
+
+    Private Sub CargaSubProyecto()
+        DdlSubProyecto.Items.Clear()
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+
 #End Region
 
 #Region "DDLS SELECTED INDEX CHANGED"
diff --git a/AF/ValesCombustible.aspx.vb b/AF/ValesCombustible.aspx.vb
index 468a24ed8..c95960131 100644
--- a/AF/ValesCombustible.aspx.vb
+++ b/AF/ValesCombustible.aspx.vb
@@ -47,21 +47,21 @@ Partial Class AF_ValesCombustible
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        If UsuarioActual.Empresa.GralSoloProyecto Then
+        'If UsuarioActual.Empresa.GralSoloProyecto Then
 
-            LtlSubProyecto.Text = "Proyecto"
-            DdlSubProyecto.Items.Clear()
-            DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
-            DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DivProyecto.Visible = False
-            'DdlProyecto.Items(0).Text = ""
-        Else
-            DivProyecto.Visible = True
-            DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)
-            DdlProyecto.DataBind()
-            DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        End If
+        '    LtlSubProyecto.Text = "Proyecto"
+        '    DdlSubProyecto.Items.Clear()
+        '    DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+        '    DdlSubProyecto.DataBind()
+        '    DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        '    DivProyecto.Visible = False
+        '    'DdlProyecto.Items(0).Text = ""
+        'Else
+        DivProyecto.Visible = True
+        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)
+        DdlProyecto.DataBind()
+        DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'End If
 
 
         DdlCombustible.DataSource = GlobalDTCombustibles(UsuarioActual.CveEmpresa)
diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb
index a9509a624..4648e11e5 100644
--- a/App_Code/CFDITimbre.vb
+++ b/App_Code/CFDITimbre.vb
@@ -365,6 +365,11 @@ Public Class CFDINominaOtrosPagos
     Public Property Concepto As String
     Public Property Importe As Decimal
     Public Property Subsidiocausado As Decimal
+    Public Property RemanenteSalFav As Decimal
+    Public Property ejercicio As Integer
+    Public Property SaldoAFavor As Integer
+
+
 End Class
 
 
diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb
index 274b51195..8c9c1da2b 100644
--- a/App_Code/ClsAF.vb
+++ b/App_Code/ClsAF.vb
@@ -1,3440 +1,3440 @@
-Option Strict On
-Option Explicit On
-
-Imports System.Data
-Imports System.Data.SqlClient
-Imports Extensiones
-Imports System
-Imports System.Configuration
-
-Public Class ClsAF
-    Implements IDisposable
-
-#Region "Campos"
-    'SQL
-    Private SqlConexion As SqlConnection
-    Private SqlAdapter As SqlDataAdapter
-    Private SqlCommand As SqlCommand
-    Private SqlTransacc As SqlTransaction
-    Private Data As DataTable
-    Private DSet As New DataSet
-
-    Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
-    'REGISTRAR CONEXIÓN
-    Private CveConexion As Integer = 0
+Option Strict On
+Option Explicit On
+
+Imports System.Data
+Imports System.Data.SqlClient
+Imports Extensiones
+Imports System
+Imports System.Configuration
+
+Public Class ClsAF
+    Implements IDisposable
+
+#Region "Campos"
+    'SQL
+    Private SqlConexion As SqlConnection
+    Private SqlAdapter As SqlDataAdapter
+    Private SqlCommand As SqlCommand
+    Private SqlTransacc As SqlTransaction
+    Private Data As DataTable
+    Private DSet As New DataSet
+
+    Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    'REGISTRAR CONEXIÓN
+    Private CveConexion As Integer = 0
     Private EsTransaccionCompartida As Boolean = False
 
     Public CveMetricaValor As Integer = 0
 
-#End Region
+#End Region
 
-#Region "Propiedades"
-    Public ReadOnly Property DtResultados() As DataTable
-        Get
-            DtResultados = Data
-        End Get
+#Region "Propiedades"
+    Public ReadOnly Property DtResultados() As DataTable
+        Get
+            DtResultados = Data
+        End Get
     End Property
 
     Public ReadOnly Property DSResultados() As DataSet
         Get
             DSResultados = DSet
         End Get
-    End Property
-
-    Public Property CveActivoFijo As Integer
-    Public Property Codigo As String
-    Public Property Descripcion As String
-    Public Property CveCompra As Integer
-    Public Property ValorCompra As Double
-    Public Property FechaCompra As Date
-    Public Property CuentaInicial As Integer
-    Public Property CveTipoActivoFijo As Integer
-    Public Property TipoActivoFijo As String
-    Public Property CveSubTipoActivoFijo As Integer
-    Public Property SubTipoActivoFijo As String
-    Public Property CveModeloActivoFijo As Integer
-    Public Property ModeloActivoFijo As String
-    Public Property CveMarcaActivoFijo As Integer
-    Public Property MarcaActivoFijo As String
-    Public Property CvePersonaResponsable As Integer
-    Public Property Responsable As String
-    Public Property NoSerie As String
-    Public Property Año As Integer
-    Public Property CveSubProyecto As Integer
-    Public Property SubProyecto As String
-    Public Property CveProyecto As Integer
-    Public Property Proyecto As String
-    Public Property Cuenta As Integer
-    Public Property CveEstadoActivoFijo As Integer
-    Public Property EstadoActivoFijo As String
-    Public Property IdCtaContDepreciacion As Integer
-    Public Property PorDepreciacion As Double
-    Public Property FechaUltimaDepreciacion As DateTime
-    Public Property Observaciones As String
-    Public Property FechaIng As Date
-    Public Property CveUsuario As Integer
-    Public Property Usuario As String
-    Public Property CveEmpresa As Integer
-    Public Property FolioVale As Integer
-    Public Property FolioResguardo As Integer
-    Public Property MesesDepreciacion As Integer
-    Public Property CveCliente As Integer
-    Public Property NombreCliente As String
-    Public Property MedidaUso As String
-    Public Property CveMovimientoInv As Integer
-    Public Property FolioInv As String
-    Public Property AlmacenInv As String
-    Public Property CveMarcaAF As Integer
-    Public Property CveModeloAF As Integer
-    Public Property CveGrupoAF As Integer
-    Public Property CveAFPadre As Integer
-    Public Property CveDispositivo As Integer
+    End Property
+
+    Public Property CveActivoFijo As Integer
+    Public Property Codigo As String
+    Public Property Descripcion As String
+    Public Property CveCompra As Integer
+    Public Property ValorCompra As Double
+    Public Property FechaCompra As Date
+    Public Property CuentaInicial As Integer
+    Public Property CveTipoActivoFijo As Integer
+    Public Property TipoActivoFijo As String
+    Public Property CveSubTipoActivoFijo As Integer
+    Public Property SubTipoActivoFijo As String
+    Public Property CveModeloActivoFijo As Integer
+    Public Property ModeloActivoFijo As String
+    Public Property CveMarcaActivoFijo As Integer
+    Public Property MarcaActivoFijo As String
+    Public Property CvePersonaResponsable As Integer
+    Public Property Responsable As String
+    Public Property NoSerie As String
+    Public Property Año As Integer
+    Public Property CveSubProyecto As Integer
+    Public Property SubProyecto As String
+    Public Property CveProyecto As Integer
+    Public Property Proyecto As String
+    Public Property Cuenta As Integer
+    Public Property CveEstadoActivoFijo As Integer
+    Public Property EstadoActivoFijo As String
+    Public Property IdCtaContDepreciacion As Integer
+    Public Property PorDepreciacion As Double
+    Public Property FechaUltimaDepreciacion As DateTime
+    Public Property Observaciones As String
+    Public Property FechaIng As Date
+    Public Property CveUsuario As Integer
+    Public Property Usuario As String
+    Public Property CveEmpresa As Integer
+    Public Property FolioVale As Integer
+    Public Property FolioResguardo As Integer
+    Public Property MesesDepreciacion As Integer
+    Public Property CveCliente As Integer
+    Public Property NombreCliente As String
+    Public Property MedidaUso As String
+    Public Property CveMovimientoInv As Integer
+    Public Property FolioInv As String
+    Public Property AlmacenInv As String
+    Public Property CveMarcaAF As Integer
+    Public Property CveModeloAF As Integer
+    Public Property CveGrupoAF As Integer
+    Public Property CveAFPadre As Integer
+    Public Property CveDispositivo As Integer
     Public Property MedidaVehicular As Integer
     Public Property CveTipoServicio As Integer
     Public Property CveOrdenTrabajo As Integer
     Public Property FolioOT As Integer
 
 
-#End Region
+#End Region
 
-    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
-
-        If TransaccionCompartida Is Nothing Then
-            SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
-            Try
-                SqlConexion.Open()
-            Catch ex As Exception
-                OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
-            End Try
-        Else
-            SqlConexion = TransaccionCompartida.Connection
-            SqlTransacc = TransaccionCompartida
-            EsTransaccionCompartida = True
-        End If
-
-        SqlAdapter = New SqlDataAdapter("", SqlConexion)
-        ConexionAdd()
-    End Sub
-    Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
-        With SqlAdapter.SelectCommand
-            .Parameters.Clear()
-            .CommandText = StrSQL
-            .CommandType = TipoComando
-        End With
-        If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
-        Data = New DataTable
-    End Sub
-#Region "Conexiones"
-
-    Private Sub ConexionAdd()
-        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
-            Try
-                DataAdapter("PA_Sis_RegistrarConexion")
-                With SqlAdapter.SelectCommand.Parameters
-                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
-                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
-                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
-                End With
-                SqlAdapter.Fill(Data)
-                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
-            Catch ex As Exception
-                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End Try
-
-        End If
-    End Sub
-
-    Private Sub ConexionClose()
-        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
-
-            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
-
-            Try
-                SqlAdapter.Fill(Data)
-
-            Catch ex As Exception
-                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End Try
-            CveConexion = 0
-        End If
-
-    End Sub
-#End Region
-    Public Function IniciaTransacSQL() As SqlTransaction
-        If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
-        Return SqlTransacc
-    End Function
-    Public Sub RollBack()
-        SqlTransacc.Rollback()
-    End Sub
-    Public Sub Commit()
-        SqlTransacc.Commit()
-    End Sub
-
-
-#Region "A C T I V O S- F I J O S"
-
-    Public Function GetRepActivosFijos(CveActivoFijo As Integer, CveEmpresa As Integer, Codigo As String, Descripcion As String, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, NoSerie As String, Año As Integer, CvePersonaResponsable As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEstadoActivoFijo As Integer, CaracteristicaValor As String, Optional BuscaGrupoEmpresa As Integer = -1, Optional Agrupador As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_AFGetRep")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
-            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
-            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
-            .Add("@NoSerie", SqlDbType.VarChar).Value = NoSerie
-            .Add("@Año", SqlDbType.Int).Value = Año
-            .Add("@CvePersonaResponsable", SqlDbType.Int).Value = CvePersonaResponsable
-            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
-            .Add("@CaracteristicaValor", SqlDbType.VarChar).Value = CaracteristicaValor
-            .Add("@BuscaGrupoEmpresa", SqlDbType.Int).Value = BuscaGrupoEmpresa
-            .Add("@Gpo", SqlDbType.Int).Value = Agrupador
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-
-            If CveActivoFijo > 0 AndAlso Data IsNot Nothing AndAlso Data.Rows.Count > 0 Then
-                Me.CveActivoFijo = Data.Rows(0)("CveActivoFijo").ToString.ToEntero
-
-                Me.Codigo = Data.Rows(0)("Codigo").ToString
-                Me.Descripcion = Data.Rows(0)("Descripcion").ToString
-                Me.CuentaInicial = Data.Rows(0)("Conta_CuentaInicial").ToString.ToEntero
-                Me.CveTipoActivoFijo = Data.Rows(0)("CveTipoActivoFijo").ToString.ToEntero
-                Me.TipoActivoFijo = Data.Rows(0)("TipoActivoFijo").ToString
-                Me.CveSubTipoActivoFijo = Data.Rows(0)("CveSubTipoActivoFijo").ToString.ToEntero
-                Me.SubTipoActivoFijo = Data.Rows(0)("SubTipoActivoFijo").ToString
-                Me.CveCompra = Data.Rows(0)("CveCompra").ToString.ToEntero
-                Me.ValorCompra = Data.Rows(0)("ValorCompra").ToString.ToDouble
-                Me.FechaCompra = Data.Rows(0)("FechaCompra").ToString.ToDate
-                Me.CvePersonaResponsable = Data.Rows(0)("CvePersonaResponsable").ToString.ToEntero
-                Me.Responsable = Data.Rows(0)("Responsable").ToString
-                Me.NoSerie = Data.Rows(0)("NoSerie").ToString
-                Me.Año = Data.Rows(0)("Año").ToString.ToEntero
-                Me.CveSubProyecto = Data.Rows(0)("CveSubProyecto").ToString.ToEntero
-                Me.SubProyecto = Data.Rows(0)("SubProyecto").ToString
-                Me.CveProyecto = Data.Rows(0)("CveProyecto").ToString.ToEntero
-                Me.Proyecto = Data.Rows(0)("Proyecto").ToString
-                Me.Cuenta = Data.Rows(0)("Cuenta").ToString.ToEntero
-                Me.CveEstadoActivoFijo = Data.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero
-                Me.EstadoActivoFijo = Data.Rows(0)("EstadoActivoFijo").ToString
-                Me.IdCtaContDepreciacion = Data.Rows(0)("IdCtaContDepreciacion").ToString.ToEntero
-                Me.PorDepreciacion = Data.Rows(0)("PorDepreciacion").ToString.ToDouble
-                Me.Observaciones = Data.Rows(0)("Observaciones").ToString
-                Me.FechaIng = Data.Rows(0)("FechaIng").ToString.ToDate
-                Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
-                Me.Usuario = Data.Rows(0)("Usuario").ToString
-                Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
-            End If
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetActivosFijosProyectos(CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEstadoActivoFijo As Integer, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosUsuarioGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetRepActivosFijosDepreciacion(CveEmpresa As Integer, Fecha As Date) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_DepreciacionesGetRep")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Fecha", SqlDbType.Date).Value = Fecha
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Reporte de Depreciaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetActivosFijos(CveActivoFijo As Integer, CveEmpresa As Integer, Codigo As String, Descripcion As String, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, NoSerie As String, Año As Integer, CvePersonaResponsable As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEstadoActivoFijo As Integer, CaracteristicaValor As String, CveCliente As Integer, Optional BuscaGrupoEmpresa As Integer = -1, Optional BuscaPorAFPadre As Integer = -1, Optional CveGrupo As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
-            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
-            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
-            .Add("@NoSerie", SqlDbType.VarChar).Value = NoSerie
-            .Add("@Año", SqlDbType.Int).Value = Año
-            .Add("@CvePersonaResponsable", SqlDbType.Int).Value = CvePersonaResponsable
-            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
-            .Add("@CaracteristicaValor", SqlDbType.VarChar).Value = CaracteristicaValor
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@BuscaGrupoEmpresa", SqlDbType.Int).Value = BuscaGrupoEmpresa
-            .Add("@CveAFPadre", SqlDbType.Int).Value = BuscaPorAFPadre
-            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-
-            If CveActivoFijo > 0 AndAlso Data IsNot Nothing AndAlso Data.Rows.Count > 0 Then
-                Me.CveActivoFijo = Data.Rows(0)("CveActivoFijo").ToString.ToEntero
-
-                Me.Codigo = Data.Rows(0)("Codigo").ToString
-                Me.Descripcion = Data.Rows(0)("Descripcion").ToString
-                Me.CuentaInicial = Data.Rows(0)("Conta_CuentaInicial").ToString.ToEntero
-                Me.CveTipoActivoFijo = Data.Rows(0)("CveTipoActivoFijo").ToString.ToEntero
-                Me.TipoActivoFijo = Data.Rows(0)("TipoActivoFijo").ToString
-                Me.CveSubTipoActivoFijo = Data.Rows(0)("CveSubTipoActivoFijo").ToString.ToEntero
-                Me.SubTipoActivoFijo = Data.Rows(0)("SubTipoActivoFijo").ToString
-                Me.CveCompra = Data.Rows(0)("CveCompra").ToString.ToEntero
-                Me.ValorCompra = Data.Rows(0)("ValorCompra").ToString.ToDouble
-                Me.FechaCompra = Data.Rows(0)("FechaCompra").ToString.ToDate
-                Me.CvePersonaResponsable = Data.Rows(0)("CvePersonaResponsable").ToString.ToEntero
-                Me.Responsable = Data.Rows(0)("Responsable").ToString
-                Me.NoSerie = Data.Rows(0)("NoSerie").ToString
-                Me.Año = Data.Rows(0)("Año").ToString.ToEntero
-                Me.CveSubProyecto = Data.Rows(0)("CveSubProyecto").ToString.ToEntero
-                Me.SubProyecto = Data.Rows(0)("SubProyecto").ToString
-                Me.CveProyecto = Data.Rows(0)("CveProyecto").ToString.ToEntero
-                Me.Proyecto = Data.Rows(0)("Proyecto").ToString
-                Me.Cuenta = Data.Rows(0)("Cuenta").ToString.ToEntero
-                Me.CveEstadoActivoFijo = Data.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero
-                Me.EstadoActivoFijo = Data.Rows(0)("EstadoActivoFijo").ToString
-                Me.IdCtaContDepreciacion = Data.Rows(0)("IdCtaContDepreciacion").ToString.ToEntero
-                Me.PorDepreciacion = Data.Rows(0)("PorDepreciacion").ToString.ToDouble
-                Me.Observaciones = Data.Rows(0)("Observaciones").ToString
-                Me.MesesDepreciacion = Data.Rows(0)("MesesDepreciacion").ToString.ToEntero
-                Me.CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero
-                Me.NombreCliente = Data.Rows(0)("NombreCliente").ToString
-                Me.FechaIng = Data.Rows(0)("FechaIng").ToString.ToDate
-                Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
-                Me.Usuario = Data.Rows(0)("Usuario").ToString
-                Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
-                Me.MedidaUso = Data.Rows(0)("MedidaUso").ToString
-                Me.CveMovimientoInv = Data.Rows(0)("CveMovimientoInv").ToString.ToEntero
-                Me.FolioInv = Data.Rows(0)("FolioInv").ToString
-                Me.AlmacenInv = Data.Rows(0)("AlmacenInv").ToString
-                Me.CveMarcaActivoFijo = Data.Rows(0)("CveMarcaActivoFijo").ToString.ToEntero
-                Me.CveModeloActivoFijo = Data.Rows(0)("CveModeloActivoFijo").ToString.ToEntero
-                Me.CveGrupoAF = Data.Rows(0)("CveGrupo").ToString.ToEntero
-                Me.CveAFPadre = Data.Rows(0)("CveAFPadre").ToString.ToEntero
-                Me.CveDispositivo = Data.Rows(0)("CveDispositivo").ToString.ToEntero
-            End If
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    'Public Function AddActivosFijos(Codigo As String, Descripcion As String, ValorCompra As Double, FechaCompra As Date, CveSubTipoActivoFijo As Integer,
-    '                                CvePersonalResponsable As Integer, NoSerie As String, Año As Integer, CveSubProyecto As Integer, Cuenta As Integer,
-    '                                CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, PorDeduccion As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-    '    Dim Retorno As Boolean = False
-
-    '    DataAdapter("PA_AF_ActivosFijosAdd")
-
-    '    With SqlAdapter.SelectCommand.Parameters
-    '        .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-    '        .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
-    '        .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
-    '        .Add("@ValorCompra", SqlDbType.Money).Value = ValorCompra
-    '        .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
-    '        .Add("@CvePersonalResponsable", SqlDbType.Int).Value = CvePersonalResponsable
-    '        .Add("@NoSerie", SqlDbType.VarChar).Value = NoSerie
-    '        .Add("@Año", SqlDbType.Int).Value = Año
-    '        .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-    '        .Add("@IdCtaContActivoFijo", SqlDbType.Int).Value = Cuenta
-    '        .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
-    '        .Add("@IdCtaContDepreciacion", SqlDbType.Int).Value = IdCtaContDepreciacion
-    '        .Add("@PorDepreciacion", SqlDbType.Float).Value = PorDepreciacion
-    '        .Add("@PorDeduccion", SqlDbType.Float).Value = PorDeduccion
-    '        .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-    '    End With
-
-    '    Try
-    '        SqlAdapter.Fill(Data)
-    '        Retorno = True
-    '    Catch Ex1 As SqlException
-    '        If Ex1.Message.Contains("Número: 2627;") Then
-    '            Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
-    '        Else
-    '            Me.OnError("Ocurrió un error al Guardar el Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-    '        End If
-    '    Catch ex As Exception
-
-    '    End Try
-
-    '    Return Retorno
-    'End Function
-    Public Function AddActivosFijos(Codigo As String, Descripcion As String, ValorCompra As Double, FechaCompra As Date, CveSubTipoActivoFijo As Integer, CvePersonalResponsable As Integer, NoSerie As String, Año As Integer,
-                                    CveSubProyecto As Integer, Cuenta As Integer, CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer,
-                                    CveMovimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1,
-                                    Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1) As Integer
-        Dim Retorno As Integer = -1
-
-        DataAdapter("PA_AF_ActivosFijosAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
-            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
-            .Add("@ValorCompra", SqlDbType.Money).Value = ValorCompra
-            .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
-            .Add("@CvePersonalResponsable", SqlDbType.Int).Value = CvePersonalResponsable
-            .Add("@NoSerie", SqlDbType.VarChar).Value = NoSerie
-            .Add("@Año", SqlDbType.Int).Value = Año
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@IdCtaContActivoFijo", SqlDbType.Int).Value = Cuenta
-            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
-            .Add("@IdCtaContDepreciacion", SqlDbType.Int).Value = IdCtaContDepreciacion
-            .Add("@PorDepreciacion", SqlDbType.Float).Value = PorDepreciacion
-            '.Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
-            .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-            .Add("@CveModelo", SqlDbType.Int).Value = CveModelo
-            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
-            .Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-
-            .Add("@CveActivoFijo", SqlDbType.Int).Direction = ParameterDirection.Output
-            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            CveActivoFijo = SqlAdapter.SelectCommand.Parameters("@CveActivoFijo").Value.ToString.ToEntero
-            'Dim RetValue As Integer = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
-            Retorno = CveActivoFijo
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                If Ex1.Message.Contains("UN_ActivoFijo") Then
-                    Alert("El Codigo ya se encuentra registrado", TipoMensaje.MsgAdvertencia)
-                Else
-                    Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
-                End If
-
-            Else
-                Me.OnError("Ocurrió un error al Guardar el Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateActivosFijos(CveActivoFijo As Integer, Codigo As String, Descripcion As String, ValorCompra As Double, FechaCompra As Date, CveSubTipoActivoFijo As Integer,
-                                       CvePersonalResponsable As Integer, NoSerie As String, Año As Integer, CveSubProyecto As Integer, IdCtaContActivoFijo As Integer,
-                                       CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer,
-                                       CveUsuarioModifico As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1,
-                                       Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivosFijosUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
-            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
-            .Add("@ValorCompra", SqlDbType.Money).Value = ValorCompra
-            .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
-            '.Add("@CveModeloActivoFijo", SqlDbType.Int).Value = CveModeloActivoFijo
-            '.Add("@CveMarcaActivoFijo", SqlDbType.Int).Value = CveMarcaActivoFijo
-            .Add("@CvePersonalResponsable", SqlDbType.Int).Value = CvePersonalResponsable
-            .Add("@NoSerie", SqlDbType.VarChar).Value = NoSerie
-            .Add("@Año", SqlDbType.Int).Value = Año
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@IdCtaContActivoFijo", SqlDbType.Int).Value = IdCtaContActivoFijo
-            .Add("@IdCtaContDepreciacion", SqlDbType.Int).Value = IdCtaContDepreciacion
-            .Add("@PorDepreciacion", SqlDbType.Float).Value = PorDepreciacion
-            .Add("@PorDeduccion", SqlDbType.Float).Value = -1
-            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-            .Add("@CveModelo", SqlDbType.Int).Value = CveModelo
-            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
-            .Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al guardar los cambios en el Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios en el Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveActivosFijos(CveActivoFijo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivosFijosRemove")
-        SqlAdapter.SelectCommand.Parameters.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 547;") Then
-                Alert("El Activo Fijo no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al eliminar el Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar el Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivosFijosCompraUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle
-            .Add("@TipoAF", SqlDbType.Int).Value = TipoAF
-            .Add("@ValorCompra", SqlDbType.Float).Value = ValorCompra
-            .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al guardar los cambios en el Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios en el Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateActivosFijosCuentaAC(CveActivoFijo As Integer, IdCuentaContable As Integer, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivosFijosCtaContableUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@IdCuentaContable", SqlDbType.Int).Value = IdCuentaContable
-            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            OnError("Ocurrió un error al actualizar la cuenta contable en el Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la cuenta contable en el Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-#End Region
-
-#Region "A C T I V O S - F I J O S- B I T A C O R A S"
-    Public Function GetActivosFijosBitacora(CveActivoFijo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosBitacoraGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.VarChar).Value = CveActivoFijo
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos - Bitacora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddActivosFijosBitacora(CveActivoFijo As Integer, Observacion As String, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivosFijosBitacoraAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Guardar la Bitacora del Activo Fijo ", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "A C T I V O S - F I J O S - C A R A C T E R I S T I C A S"
-
-    Public Function GetActivosFijosCaracteristicas(CveActivoFijo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosCaracteristicasGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.VarChar).Value = CveActivoFijo
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos - Caracteristicas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-#End Region
-
-#Region "A C T I V O S- F I J O S - H I S T O R I A L"
-    Public Function GetActivosFijosHistorial(CveActivoFijo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosHistorialGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.VarChar).Value = CveActivoFijo
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos - Historial.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddActivosFijosHistorial(CveActivoFijo As Integer, CveConceptoHistorialActivoFijo As Integer, Actual As String, Anterior As String, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivosFijosHistorialAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@CveConceptoHistorialActivoFijo", SqlDbType.Int).Value = CveConceptoHistorialActivoFijo
-            .Add("@Actual", SqlDbType.VarChar).Value = Actual
-            .Add("@Anterior", SqlDbType.VarChar).Value = Anterior
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Guardar el Historial del Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "A C T I V O S- F I J O S - I M A G E N E S"
-    Public Function GetActivosFijosImagenes(CveActivoFijo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosImagenesGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.VarChar).Value = CveActivoFijo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos - Imagenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddActivosFijosImagenes(CveActivoFijo As Integer, URL As String, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivosFijosImagenesAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@URL", SqlDbType.VarChar).Value = URL
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una Imagen en Fijo Imagenes con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar la Imagen en Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al Guardar la Imagen en Activo Fijo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemoveActivosFijosImagenes(CveImagenActivoFijo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivosFijosImagenesRemove")
-        SqlAdapter.SelectCommand.Parameters.Add("@CveImagenActivoFijo", SqlDbType.Int).Value = CveImagenActivoFijo
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 547;") Then
-                Alert("La Imagen del Activo Fijo no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al eliminar la Imagen del Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar la Imagen del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "A C T I V O S - F I J O S - R E S G U A R D O S"
-    Public Function GetActivosFijosResguardos(CveActivoFijo As Integer, CveActivoFijoResguardo As Integer, CveResponsable As Integer, CveResguardo As Integer, Optional CveEmpresa As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional Folio As Integer = -1, Optional CveResguardo2 As Integer = -1, Optional UsuarioImprimio As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosResguardosGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@CveActivoFijoResguardo", SqlDbType.Int).Value = CveActivoFijoResguardo
-            .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable
-            .Add("@CveResguardo", SqlDbType.Int).Value = CveResguardo
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@Folio", SqlDbType.Int).Value = Folio
-            .Add("@CveResguardo2", SqlDbType.Int).Value = CveResguardo2
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@UsuarioImprimio", SqlDbType.Int).Value = UsuarioImprimio
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos - Resguardos.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
-    End Function
-
-    Public Function ActivoFijoResguardoADD(FechaInicio As Date, CvePersonal As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, TipoDocto As String, Tipo As Integer, CveEmpresa As Integer, Optional Observaciones As String = " ", Optional CveResguardo As Integer = -1) As Boolean
-        'Dim CveResguardo As Integer = -1
-        Dim Retorno = False
-        DataAdapter("PA_AF_ActivosFijosResguardosAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
-            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
-            .Add("@Tipo", SqlDbType.Int).Value = Tipo
-            .Add("@CveResguardo", SqlDbType.Int).Value = CveResguardo
-            .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Folio", SqlDbType.Int).Direction = ParameterDirection.Output
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            FolioResguardo = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString().ToEntero()
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar el resguardo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function ActivoFijoResguardoGpo() As Integer
-        Dim CveResguardo As Integer = -1
-        DataAdapter("PA_AF_ActivosFijosResguardosGpo")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveResguardo", SqlDbType.Int).Direction = ParameterDirection.Output
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            CveResguardo = SqlAdapter.SelectCommand.Parameters("@CveResguardo").Value.ToString().ToEntero()
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el grupo del resguardo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return CveResguardo
-    End Function
-    Public Function UpdateActivosFijosResguardos(FechaFin As String, Observaciones As String, URL As String, CveActivoFijoResguardo As Integer, CveActivoFijo As Integer, Optional URL2 As String = "-1", Optional CveResguardo2 As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosResguardosUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
-            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
-            .Add("@URL", SqlDbType.VarChar).Value = URL
-            .Add("@CveActivoFijoResguardo", SqlDbType.Int).Value = CveActivoFijoResguardo
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@URL2", SqlDbType.VarChar).Value = URL2
-            .Add("@CveResguardo2", SqlDbType.Int).Value = CveResguardo2
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateEstatusResguardo(EstatusResguardo As Integer, CveEmpresa As Integer, CveActivoFijo As Integer, Optional CveSubProyecto As Integer = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_UpdateEstatusResguardo")
-        'ESTATUS RESGUARDO: 1- Disponible, 2- En Traslado, 3- Asignado
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@EstatusResguardo", SqlDbType.Int).Value = EstatusResguardo
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateActivosFijosResguardosURL(URL As String, URL2 As String, CveActivoFijoResguardo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosResguardosUrlUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@URL", SqlDbType.VarChar).Value = URL
-            .Add("@URL2", SqlDbType.VarChar).Value = URL2
-            .Add("@CveActivoFijoResguardo", SqlDbType.Int).Value = CveActivoFijoResguardo
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateActivosFijosResguardosURLGpo(URL As String, URL2 As String, CveResguardo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosResguardosGpoUrl")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@URL", SqlDbType.VarChar).Value = URL
-            .Add("@URL2", SqlDbType.VarChar).Value = URL2
-            .Add("@CveActivoFijoResguardo", SqlDbType.Int).Value = CveResguardo
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetActivosFijosHijos(CveEmpresa As Integer, CveAFPadre As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosHijosGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los AF Hijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-#End Region
-
-#Region "A C T I V O S - F I J O S - COMPRAS "
-    Public Function GetActivosFijosCompras(CveActivoFijo As Integer, Optional CveClasificacion As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivosFijosCompras")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As Exception
-            OnError("Ocurrió un error al obtener las Compras del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
-    End Function
-#End Region
-
-#Region " ************************************************ C A R A C T E R I S T I C A S ************************************************ "
-
-#Region "ClasificacionesCaracteristicas"
-
-    Public Function GetCaracteristicasClasificaciones(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CaracteristicasClasificacionesGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Data.TableName = "CaracteristicasClasificaciones"
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Clasificaciones de Características.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddClasificacionesCaracteristicas(CaracteristicaClasificacion As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CaracteristicasClasificacionesAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CaracteristicaClasificacion", SqlDbType.VarChar).Value = CaracteristicaClasificacion
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al Guardar la Clasificacion de Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateClasificacionesCaracteristicas(CaracteristicaClasificacion As String, Estatus As Boolean, CveCaracteristicaClasificacion As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CaracteristicasClasificacionesUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CaracteristicaClasificacion", SqlDbType.VarChar).Value = CaracteristicaClasificacion
-            '.Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
-            '.Add("@Orden", SqlDbType.Int).Value = Orden
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveCaracteristicaClasificacion", SqlDbType.Int).Value = CveCaracteristicaClasificacion
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una Clasificacion de Caracteristica con el mismo nombre: " & CaracteristicaClasificacion & ".", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al guardar los cambios en la Clasificacion de Caracteristica", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios en la Clasificacion de Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveClasificacionesCaracteristicas(CveCaracteristicaClasificacion As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CaracteristicasClasificacionesRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveCaracteristicaClasificacion", SqlDbType.Int).Value = CveCaracteristicaClasificacion
-        SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 547;") Then
-                Alert("La Clasificacion de Caracteristica no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al eliminar la Clasificacion de Caracteristica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar la Clasificacion de Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-
-#Region "Características"
-    Public Function GetCaracteristicas(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CaracteristicasGet")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-        Try
-            SqlAdapter.Fill(Data)
-            Data.TableName = "Caracteristicas"
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Características.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-
-        Return Retorno
-    End Function
-    Public Function AddCaracteristica(Caracteristica As String, CveCaracteristicaClasificacion As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, TipoCampo As Integer, Longitud As Integer, Requerido As Integer, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CaracteristicasAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Caracteristica", SqlDbType.VarChar).Value = Caracteristica
-            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
-            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
-            .Add("@TipoCampo", SqlDbType.TinyInt).Value = TipoCampo
-            .Add("@CveCaracteristicaClasificacion", SqlDbType.Int).Value = CveCaracteristicaClasificacion
-            .Add("@Longitud", SqlDbType.Int).Value = Longitud
-            .Add("@Requerido", SqlDbType.Int).Value = Requerido
-            .Add("@Orden", SqlDbType.Int).Value = Orden
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una Característica con el mismo nombre: " & Caracteristica & ".", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar la Característica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al Guardar la Característica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateCaracteristica(CveCaracteristicaClasificacion As Integer, Caracteristica As String, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, TipoCampo As Integer, Longitud As Integer, Requerida As Boolean, Orden As Integer, Estatus As Boolean, CveEmpresa As Integer, CveCaracteristica As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CaracteristicasUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCaracteristica", SqlDbType.VarChar).Value = CveCaracteristica
-            .Add("@Caracteristica", SqlDbType.VarChar).Value = Caracteristica
-            .Add("@CveCaracteristicaClasificacion", SqlDbType.Int).Value = CveCaracteristicaClasificacion
-            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
-            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
-            .Add("@TipoCampo", SqlDbType.TinyInt).Value = TipoCampo
-            .Add("@Longitud", SqlDbType.Int).Value = Longitud
-            .Add("@Orden", SqlDbType.Int).Value = Orden
-            .Add("@Requerida", SqlDbType.Bit).Value = Requerida
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una Caracteristica con el mismo nombre: " & Caracteristica & ".", TipoMensaje.MsgAdvertencia)
-            ElseIf Ex1.Message.Contains("Número: 547;") Then
-                Alert("La Característica tiene Opciones que están siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al guardar los cambios en la Característica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios en la Característica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveCaracteristica(CveCaracteristica As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CaracteristicasRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
-        SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 547;") Then
-                Alert("La Característica no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al eliminar la Característica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar la Característica de Tipo de Cuenta y/o Equipo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-
-#Region "CaracteristicasOpciones"
-
-    Public Function GetCaracteristicasOpciones(CveCaracteristica As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CaracteristicasOpcionesGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Data.TableName = "CaracteristicasOpciones"
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las Opciones para las Caracteristicas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetCaracteristicasOpcionesSubTipo(CveCaracteristica As Integer, CveSubTipoActivoFijo As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CaracteristicasOpcionesSubTipoGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
-            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Data.TableName = "CaracteristicasOpciones"
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las Opciones para las Caracteristicas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddCaracteristicasOpciones(CaracteristicaOpcion As String, CveCaracteristica As Integer, Orden As Integer, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CaracteristicasOpcionesAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CaracteristicaOpcion", SqlDbType.VarChar).Value = CaracteristicaOpcion
-            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
-            .Add("@Orden", SqlDbType.Int).Value = Orden
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una Opcion para la Caracteristica con el mismo nombre: " & CaracteristicaOpcion & ".", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar la Opcion para la Caracteristica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al Guardar la Opcion para la Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateCaracteristicasOpciones(CveCaracteristica As Integer, CaracteristicaOpcion As String, Orden As Integer, Estatus As Boolean, CveCaracteristicaOpcion As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CaracteristicasOpcionesUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CaracteristicaOpcion", SqlDbType.VarChar).Value = CaracteristicaOpcion
-            .Add("@Orden", SqlDbType.Int).Value = Orden
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
-            .Add("@CveCaracteristicaOpcion", SqlDbType.Int).Value = CveCaracteristicaOpcion
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una Opcion para la Caracteristica con el mismo nombre: " & CaracteristicaOpcion & ".", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al guardar los cambios en la Opcion para la Caracteristica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios en la Opcion para la Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveCaracteristicasOpciones(CveCaracteristicaOpcion As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CaracteristicasOpcionesRemove")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCaracteristicaOpcion", SqlDbType.Int).Value = CveCaracteristicaOpcion
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 547;") Then
-                Alert("La Opcion para la Caracteristica no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al eliminar la Opcion para la Caracteristica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar la Opcion para la Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-
-#Region "A C T I V O S    V A L O R E S"
-    Public Function GetActivosFijosValores(CveActivoFijo As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ActivoFijoValoresGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Valores de Activos Fijos .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddActivosFijosValores(CveActivoFijo As Integer, CveCaracteristica As Integer, CveOpcion As Integer, Valor As String, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivoFijoValoresAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
-            .Add("@CveOpcion", SqlDbType.Int).Value = CveOpcion
-            .Add("@Valor", SqlDbType.VarChar).Value = Valor
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            Me.OnError("Ocurrió un error al Guardar el Valor de Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        Catch ex As Exception
-
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddUpdActivosFijosValores(CveActivoFijo As Integer, CveCaracteristica As Integer, CveOpcion As Integer, Valor As String, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivoFijoValoresAddUpd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
-            .Add("@CveOpcion", SqlDbType.Int).Value = CveOpcion
-            .Add("@Valor", SqlDbType.VarChar).Value = Valor
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            Me.OnError("Ocurrió un error al Guardar el Valor de Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        Catch ex As Exception
-
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateActivosFijosValores(CveActivoFijo As Integer, CveCaracteristica As Integer, CveOpcion As Integer, Valor As String, CveUsuario As Integer, CveValor As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivoFijoValoresUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
-            .Add("@CveOpcion", SqlDbType.Int).Value = CveOpcion
-            .Add("@Valor", SqlDbType.VarChar).Value = Valor
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveValor", SqlDbType.Int).Value = CveValor
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            Me.OnError("Ocurrió un error al guardar los cambios en el Valor del Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios en el Valor del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveActivosFijosValores(CveActivoFijo As Integer, CveValor As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActivoFijoValoresRemove")
-        SqlAdapter.SelectCommand.Parameters.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
-        SqlAdapter.SelectCommand.Parameters.Add("@CveValor", SqlDbType.Int).Value = CveValor
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 547;") Then
-                Alert("El Valor de Activo Fijo no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al eliminar el Valor de Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar el Valor de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-#End Region
-
-#Region "Subtipos Activos Fijos"
-
-    Public Function GetSubTiposActivosFijos(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_SubTiposActivosFijosGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Subtipos de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddSubTiposActivosFijos(CveTipoActivoFijo As Integer, SubTipoActivoFijo As String, CveUsuario As Integer, CveEmpresa As Integer, Optional AplicaGPS As Boolean = False) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_SubTiposActivosFijosAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
-            .Add("@SubTipoActivoFijo", SqlDbType.VarChar).Value = SubTipoActivoFijo
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@AplicaGPS", SqlDbType.Bit).Value = AplicaGPS
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Guardar el Subtipo de Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateSubTiposActivosFijos(CveSubTipoActivoFijo As Integer, CveTipoActivoFijo As Integer, SubTipoActivoFijo As String, Estado As Boolean, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_SubTiposActivosFijosUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
-            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
-            .Add("@SubTipoActivoFijo", SqlDbType.VarChar).Value = SubTipoActivoFijo
-            .Add("@Estado", SqlDbType.Bit).Value = Estado
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios en el Subtipo del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveSubTiposActivosFijos(CveSubTiposActivosFijos As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_SubTiposActivosFijosRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTiposActivosFijos
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            Me.OnError("Ocurrió un error al eliminar el Subtipo del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "Tipos Activos Fijos"
-
-    Public Function GetTiposActivosFijos(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_TiposActivosFijosGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Tipos de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddTiposActivosFijos(TipoActivoFijo As String, CuentaInicial As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional PorDepreciacion As Decimal = 0, Optional MedidaVehicular As Integer = 1, Optional AutoFolio As Boolean = False, Optional Contable As Boolean = False) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposActivosFijosAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@TipoActivoFijo", SqlDbType.VarChar).Value = TipoActivoFijo
-            .Add("@CuentaInicial", SqlDbType.VarChar).Value = CuentaInicial
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@PorDepreciacion", SqlDbType.Money).Value = PorDepreciacion
-            .Add("@MedidaVehicular", SqlDbType.TinyInt).Value = MedidaVehicular
-            .Add("@AutoFolio", SqlDbType.Bit).Value = AutoFolio
-            .Add("@Contable", SqlDbType.Bit).Value = Contable
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Guardar el Tipo de Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateTiposActivosFijos(CveTipoActivoFijo As Integer, TipoActivoFijo As String, CuentaInicial As Integer, Estado As Boolean, Optional PorDepreciacion As Decimal = 0, Optional MedidaVehicular As Integer = 1, Optional AutoFolio As Boolean = False, Optional Contable As Boolean = False) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposActivosFijosUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
-            .Add("@TipoActivoFijo", SqlDbType.VarChar).Value = TipoActivoFijo
-            .Add("@CuentaInicial", SqlDbType.VarChar).Value = CuentaInicial
-            .Add("@Estado", SqlDbType.Bit).Value = Estado
-            .Add("@PorDepreciacion", SqlDbType.Money).Value = PorDepreciacion
-            .Add("@MedidaVehicular", SqlDbType.TinyInt).Value = MedidaVehicular
-            .Add("@AutoFolio", SqlDbType.Bit).Value = AutoFolio
-            .Add("@Contable", SqlDbType.Bit).Value = Contable
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios en el Tipo del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveTiposActivosFijos(CveTiposActivosFijos As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposActivosFijosRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTiposActivosFijos
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            Me.OnError("Ocurrió un error al eliminar el tipo del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "A C T I V O S  -  S U B T I P O S "
-
-    Public Function GetSubTiposCaracteristicas(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_SubTiposCaracteristicasGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de caracteristicas de Subtipos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddSubTipoCaracteristica(CveSubTipoActivoFijo As Integer, CveCaracteristica As Integer, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_SubTiposCaracteristicasAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
-            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Guardar el Subtipo de Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveSubTipoCaracteristica(CveSubTipoActivosFijos As Integer, CveCaracteristica As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_SubTiposCaracteristicasRemove")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivosFijos
-            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
-        End With
-
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            Me.OnError("Ocurrió un error al eliminar el Subtipo del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "ESTATUS DE ACTIVOS FIJOS"
-    Public Function GetEstatusActivoFijo() As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_EstatusActivoFijoGet")
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Estatus de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddEstatusActivoFIjo(EstadoActivoFijo As Integer, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_EstatusActivoFijoAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@EstadoActivoFijo", SqlDbType.Int).Value = EstadoActivoFijo
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Guardar el Departamento", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateEstatusActivoFijo(CveEstadoActivoFIjo As Integer, EstadoActivoFijo As Integer, Estado As Boolean) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_EstatusActivoFijoUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@EstadoActivoFijo", SqlDbType.Int).Value = EstadoActivoFijo
-            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFIjo
-            .Add("@Estado", SqlDbType.Bit).Value = Estado
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al guardar los cambios en el Estado del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-        Return Retorno
-    End Function
-    Public Function RemoveEstatusActivoFijo(CveEstadoActivoFijo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_EstatusActivoFijoRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 547;") Then
-                Alert("El Departamento no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al eliminar el Departamento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar el Departamento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "ClsAFModelosActivosFijos"
-    Public Function GetModelosActivosFijos(CveEmpresa As Integer, CveMarca As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ModelosActivosFijosGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Modelos de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddModelosActivosFijos(ModeloActivoFijo As String, CveMarcaAF As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ModelosActivosFijosAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@ModeloActivoFijo", SqlDbType.VarChar).Value = ModeloActivoFijo
-            .Add("@CveMarcaAF", SqlDbType.Int).Value = CveMarcaAF
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Guardar el Modelo del Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateModelosActivosFijos(CveModeloActivoFijo As Integer, ModeloActivoFijo As String, CveMarcaAF As Integer, Estado As Boolean, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ModelosActivosFijosUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveModeloActivoFijo", SqlDbType.Int).Value = CveModeloActivoFijo
-            .Add("@ModeloActivoFijo", SqlDbType.VarChar).Value = ModeloActivoFijo
-            .Add("@CveMarcaAF", SqlDbType.Int).Value = CveMarcaAF
-            .Add("@Estado", SqlDbType.Bit).Value = Estado
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios en el Modelo del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveModelosActivosFijos(CveModelosActivosFijos As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ModelosActivosFijosRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveModeloActivoFijo", SqlDbType.Int).Value = CveModelosActivosFijos
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            Me.OnError("Ocurrió un error al eliminar el Modelo del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "ClsAFMarcasActivosFijos"
-    Public Function GetMarcasActivosFijos(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_MarcasActivosFijosGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Marcas de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddMarcasActivosFijos(MarcaActivoFijo As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MarcasActivosFijosAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@MarcaActivoFijo", SqlDbType.VarChar).Value = MarcaActivoFijo
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Guardar la Marca del Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateMarcasActivosFijos(CveMarcaActivoFijo As Integer, MarcaActivoFijo As String, Estado As Boolean, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MarcasActivosFijosUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveMarcaActivoFijo", SqlDbType.Int).Value = CveMarcaActivoFijo
-            .Add("@MarcaActivoFijo", SqlDbType.VarChar).Value = MarcaActivoFijo
-            .Add("@Estado", SqlDbType.Bit).Value = Estado
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios en la Marca del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveMarcasActivosFijos(CveMarcaActivoFijo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MarcasActivosFijosRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveMarcaActivoFijo", SqlDbType.Int).Value = CveMarcaActivoFijo
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            Me.OnError("Ocurrió un error al eliminar la Marca del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "AF G R U P O S"
-    Public Function GetGrupoAF(CveGrupo As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_GruposGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Grupos de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddGrupoAF(Grupo As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer
-        Dim Retorno As Integer = -1
-
-        DataAdapter("PA_AF_GruposAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Grupo", SqlDbType.VarChar).Value = Grupo
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveGrupo", SqlDbType.Int).Direction = ParameterDirection.Output
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = SqlAdapter.SelectCommand.Parameters("@CveGrupo").Value.ToString.ToEntero
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Guardar el Grupo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateGrupoAF(Grupo As String, Estatus As Boolean, CveGrupo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_GruposUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Grupo", SqlDbType.VarChar).Value = Grupo
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Actualizar el Grupo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemoveGrupoAF(CveEmpresa As Integer, CveGrupo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_GruposRemove")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Eliminar el Grupo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "ClsAFConceptosHistorial"
-
-    Public Function GetConceptosHistorial() As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ConceptosHistorialGet")
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo Historial de Conceptos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddConceptosHistorial(ConceptoHistorialActivoFijo As String, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ConceptosHistorialAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@ConceptoHistorialActivoFijo", SqlDbType.VarChar).Value = ConceptoHistorialActivoFijo
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Guardar el Concepto del Historial", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateDepartamento(CveConceptoHistorialActivoFijo As Integer, ConceptoHistorialActivoFijo As String, Estado As Boolean) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_RH_DepartamentoUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveConceptoHistorialActivoFijo", SqlDbType.Int).Value = CveConceptoHistorialActivoFijo
-            .Add("@ConceptoHistorialActivoFijo", SqlDbType.VarChar).Value = ConceptoHistorialActivoFijo
-            .Add("@Estado", SqlDbType.Bit).Value = Estado
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al guardar los cambios en el Concepto del Historial.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveConceptosHistorialRemove(CveConceptoHistorialActivoFijo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ConceptosHistorialRemove")
-        SqlAdapter.SelectCommand.Parameters.Add("@CveConceptoHistorialActivoFijo", SqlDbType.Int).Value = CveConceptoHistorialActivoFijo
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            Me.OnError("Ocurrió un error al eliminar el Concepto del Historial.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "ClsAFCaracteristicasActivosFijos"
-
-    Public Function GetCaracteristicasActivosFijos(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CaracteristicasActivosFijos")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Características de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddCaracteristicasActivosFijos(CveActivoFijo As Integer, Caracteristica As String, EsRequerido As Boolean, EsUnico As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CaracteristicasActivosFijosAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActivoFijo", SqlDbType.VarChar).Value = CveActivoFijo
-            .Add("@Caracteristica", SqlDbType.VarChar).Value = Caracteristica
-            .Add("@EsRequerido", SqlDbType.Bit).Value = EsUnico
-            .Add("@EsUnico", SqlDbType.Bit).Value = EsRequerido
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al Guardar la Característica del Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateCaracteristicasActivosFijos(CveTipoActivoFijo As Integer, Caracteristica As String, EsRequerido As Boolean, EsUnico As Boolean, CveEmpresa As Integer, CveCaracteristicaActivoFijo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CaracteristicasActivosFijosUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoActivoFijo", SqlDbType.VarChar).Value = CveTipoActivoFijo
-            .Add("@Caracteristica", SqlDbType.VarChar).Value = Caracteristica
-            .Add("@EsRequerido", SqlDbType.Bit).Value = EsUnico
-            .Add("@EsUnico", SqlDbType.Bit).Value = EsRequerido
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveCaracteristicaActivoFijo", SqlDbType.VarChar).Value = CveCaracteristicaActivoFijo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            OnError("Ocurrió un error al guardar los cambios en la Característica del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveCaracteristicasActivosFijos(CveCaracteristicaActivoFijo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CaracteristicasActivosFijosRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveCaracteristicaActivoFijo", SqlDbType.Int).Value = CveCaracteristicaActivoFijo
-
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex As SqlException
-            Me.OnError("Ocurrió un error al eliminar la Característica del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-#End Region
-
-#Region "O P E R A D O R E S"
-    Public Function GetTipoOperadores(CveTipoOperador As String, CveEmpresa As Integer, Estatus As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_TipoOperadoresGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoOperador", SqlDbType.VarChar).Value = CveTipoOperador
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Tipo Operador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddOperador(Operador As String, CveTipoOperador As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveTransportista As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_OperadoresAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Operador", SqlDbType.VarChar).Value = Operador
-            .Add("@CveTipoOperador", SqlDbType.VarChar).Value = CveTipoOperador
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveTransportista", SqlDbType.Int).Value = CveTransportista
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el Operador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateOperador(CveOperador As Integer, Operador As String, CveTipoOperador As String, CveUsuario As Integer, CveEmpresa As Integer, Estatus As Integer, Optional CveTransportista As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_OperadoresUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveOperador", SqlDbType.Int).Value = CveOperador
-            .Add("@Operador", SqlDbType.VarChar).Value = Operador
-            .Add("@CveTipoOperador", SqlDbType.VarChar).Value = CveTipoOperador
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-            .Add("@CveTransportista", SqlDbType.Int).Value = CveTransportista
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el chofer.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemoveOperador(CveOperador As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_OperadoresRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveOperador", SqlDbType.Int).Value = CveOperador
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el Operador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function GetOperadores(CveOperador As Integer, CveEmpresa As Integer, Estatus As Integer, Optional CveTransportista As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_OperadoresGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveOperador", SqlDbType.Int).Value = CveOperador
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-            .Add("@CveTransportista", SqlDbType.Int).Value = CveTransportista
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el chofer.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "T I P O S  C O M B U S T I B L E S"
-    Public Function GetTiposCombustible(CveTipoCombustible As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_TiposCombustibleGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTiposCombustible", SqlDbType.VarChar).Value = CveTipoCombustible
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Tipos de combustible", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddTipoCombustible(TipoCombustible As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_TiposCombustibleAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@TipoCombustible", SqlDbType.VarChar).Value = TipoCombustible
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el tipo de combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateTipoCombustible(CveTipoCombustible As Integer, TipoCombustible As String, Estatus As Integer, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_TiposCombustibleUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoCombustible", SqlDbType.Int).Value = CveTipoCombustible
-            .Add("@TipoCombustible", SqlDbType.VarChar).Value = TipoCombustible
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el tipo de combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemoveTipoCombustible(CveTipoCombustible As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_OperadoresRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoCombustible", SqlDbType.Int).Value = CveTipoCombustible
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el Operador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "C O M B U S T I B L E S"
-    Public Function GetCombustibles(CveCombustible As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CombustiblesGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddCombustible(Combustible As String, CveTipoCombustible As Integer, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CombustiblesAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Combustible", SqlDbType.VarChar).Value = Combustible
-            .Add("@CveTipoCombustible", SqlDbType.Int).Value = CveTipoCombustible
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el Combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateCombustible(CveCombustible As Integer, Combustible As String, CveTipoCombustible As Integer, Estatus As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CombustiblesUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
-            .Add("@Combustible", SqlDbType.VarChar).Value = Combustible
-            .Add("@CveTipoCombustible", SqlDbType.Int).Value = CveTipoCombustible
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el Combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemoveCombustible(CveCombustible As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CombustiblesRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el Combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "C A R G A S    C O M B U S T I B L E S "
-    Public Function GetCargasCombustible(CveAF As Integer, CveProveedor As Integer, CveTipoAF As Integer, CveSubProyecto As Integer, FechaI As String, FechaF As String, CveEmpresa As Integer, Optional CveCargaCombustible As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CargaCombustibleGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
-            .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
-            .Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa
-            .Add("@CveCargaCombustible", SqlDbType.Int).Value = CveCargaCombustible
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las cargas de combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddCargaCombustible(CveCombustible As Integer, CveProveedor As Integer, CveAF As Integer, Folio As String, FechaCarga As DateTime, TanqueLleno As Integer, Cantidad As Double, CostoUnitario As Double, Odometro As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_CargaCombustiblesAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@Folio", SqlDbType.VarChar).Value = Folio
-            .Add("@FechaCarga", SqlDbType.DateTime).Value = FechaCarga
-            .Add("@TanqueLleno", SqlDbType.Int).Value = TanqueLleno
-            .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
-            .Add("@CostoUnitario", SqlDbType.SmallMoney).Value = CostoUnitario
-            .Add("@Odometro", SqlDbType.SmallMoney).Value = Odometro
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar la carga de combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function GetRepCargasCombustible(FechaI As String, FechaF As String, CveTipoAF As Integer, CveSubProyecto As Integer, GPO As Integer, CveProveedor As Integer, CveEstatus As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_RepCargasCombustibleGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
-            .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
-            .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
-            .Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@GPO", SqlDbType.Int).Value = GPO
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Reporte de Flotillas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "P L A C A S"
-    Public Function GetPlacas(CvePlaca As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_PlacasGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePlaca", SqlDbType.Int).Value = CvePlaca
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Placas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddPlacas(CveAF As Integer, Placa As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional Observacion As String = "-1", Optional Adjunto As String = "-1",
-                              Optional FechaExpedicion As String = "-1", Optional FechaVencimiento As String = "-1") As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_PlacasAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@Placa", SqlDbType.VarChar).Value = Placa
-            .Add("@FechaExpedicion", SqlDbType.VarChar).Value = FechaExpedicion
-            .Add("@FechaVencimiento", SqlDbType.VarChar).Value = FechaVencimiento
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
-            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar la placa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdatePlacas(CvePlaca As Integer, Placa As String, Optional Observacion As String = "-1", Optional Adjunto As String = "-1", Optional FechaExpedicion As Date = MinFecha, Optional FechaVencimiento As Date = MinFecha) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_PlacasUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePlaca", SqlDbType.Int).Value = CvePlaca
-            .Add("@Placa", SqlDbType.VarChar).Value = Placa
-            .Add("@FechaExpedicion", SqlDbType.Date).Value = FechaExpedicion
-            .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento
-            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
-            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la placa", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemovePlaca(CvePlaca As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_PlacasRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePlaca", SqlDbType.Int).Value = CvePlaca
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar la placa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetRepPlacas(CvePlaca As Integer, CveAF As Integer, CveEmpresa As Integer, FechaExpedicionI As DateTime, FechaExpedicionF As DateTime, FechaVencimientoI As DateTime, FechaVencimientoF As DateTime, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_RepPlacas")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePlaca", SqlDbType.Int).Value = CvePlaca
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@FechaExpedicionI", SqlDbType.DateTime).Value = FechaExpedicionI
-            .Add("@FechaExpedicionF", SqlDbType.DateTime).Value = FechaExpedicionF
-            .Add("@FechaVencimientoI", SqlDbType.DateTime).Value = FechaVencimientoI
-            .Add("@FechaVencimientoF", SqlDbType.DateTime).Value = FechaVencimientoF
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Placas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "L I C E N C I A S"
-    Public Function GetLicencias(CveLicencia As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_LicenciasGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveLicencia", SqlDbType.Int).Value = CveLicencia
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Licencias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetLicenciasVencidas(CveLicencia As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional Estatus As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_LicenciasVencidasGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveLicencia", SqlDbType.Int).Value = CveLicencia
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Licencias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetLicenciasRep(CveLicencia As Integer, CveAF As Integer, CveEmpresa As Integer, FechaEI As DateTime, FechaEF As DateTime, FechaVI As DateTime, FechaVF As DateTime, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional Estatus As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_LicenciasRepGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveLicencia", SqlDbType.Int).Value = CveLicencia
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@FechaEI", SqlDbType.DateTime).Value = FechaEI
-            .Add("@FechaEF", SqlDbType.DateTime).Value = FechaEF
-            .Add("@FechaVI", SqlDbType.DateTime).Value = FechaVI
-            .Add("@FechaVF", SqlDbType.DateTime).Value = FechaVF
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveCliente", SqlDbType.Int).Value = Estatus
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Licencias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddLicencia(CveAF As Integer, Licencia As String, FechaExpedicion As DateTime, FechaVencimiento As DateTime, CveUsuario As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional Observacion As String = "-1", Optional Adjunto As String = "-1", Optional CvePersonal As Integer = -1, Optional Estatus As Boolean = True) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_LicenciasAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
-            .Add("@FechaExpedicion", SqlDbType.DateTime).Value = FechaExpedicion
-            .Add("@FechaVencimiento", SqlDbType.DateTime).Value = FechaVencimiento
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
-            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
-            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar la licencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateLicencia(CveLicencia As Integer, Licencia As String, FechaExpedicion As DateTime, FechaVencimiento As DateTime, Optional Observacion As String = "-1", Optional Adjunto As String = "-1", Optional Estatus As Boolean = True) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_LicenciasUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveLicencia", SqlDbType.Int).Value = CveLicencia
-            .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
-            .Add("@FechaExpedicion", SqlDbType.DateTime).Value = FechaExpedicion
-            .Add("@FechaVencimiento", SqlDbType.DateTime).Value = FechaVencimiento
-            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
-            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la licencia", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemoveLicencia(CveLicencia As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_LicenciasRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveLicencia", SqlDbType.Int).Value = CveLicencia
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar la licencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "P O L I Z A S   S E G U R O S "
-    Public Function GetPolizasSeguro(CvePoliza As Integer, CveAF As Integer, CveProveedor As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_PolizasSeguroGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Pólizas de seguro", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetRepPolizaSeguro(CveAF As Integer, CveProveedor As Integer, FechaExpedicionI As DateTime, FechaExpedicionF As DateTime, FechaVencimientoI As DateTime, FechaVencimientoF As DateTime, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_RepPolizaSeguroGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@FechaExpedicionI", SqlDbType.DateTime).Value = FechaExpedicionI
-            .Add("@FechaExpedicionF", SqlDbType.DateTime).Value = FechaExpedicionF
-            .Add("@FechaVencimientoI", SqlDbType.DateTime).Value = FechaVencimientoI
-            .Add("@FechaVencimientoF", SqlDbType.DateTime).Value = FechaVencimientoF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Reporte de Polizas de Seguros.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddPolizasSeguro(CveAF As Integer, CveProveedor As Integer, PolizaSeguro As String, FechaExpedicion As DateTime, FechaVencimiento As DateTime, CveUsuario As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional Observacion As String = "-1", Optional Adjunto As String = "-1", Optional Proveedor As String = "-1") As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_PolizasSegurosAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@PolizaSeguro", SqlDbType.VarChar).Value = PolizaSeguro
-            .Add("@FechaExpedicion", SqlDbType.DateTime).Value = FechaExpedicion
-            .Add("@FechaVencimiento", SqlDbType.DateTime).Value = FechaVencimiento
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
-            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
-            .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar la póliza de seguro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdatePolizaSeguro(CvePoliza As Integer, CveProveedor As Integer, PolizaSeguro As String, FechaExpedicion As DateTime, FechaVencimiento As DateTime, Optional Observacion As String = "-1", Optional Adjunto As String = "-1", Optional Proveedor As String = "-1") As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_PolizasSegurosUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@PolizaSeguro", SqlDbType.VarChar).Value = PolizaSeguro
-            .Add("@FechaExpedicion", SqlDbType.DateTime).Value = FechaExpedicion
-            .Add("@FechaVencimiento", SqlDbType.DateTime).Value = FechaVencimiento
-            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
-            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
-            .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la póliza de seguro", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemovePoliza(CvePoliza As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_PolizasSeguroRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar la póliza de seguro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "I N C I D E N T E S "
-    Public Function GetIncidentes(CveIncidente As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_IncidentesGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveIncidente", SqlDbType.Int).Value = CveIncidente
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Incidentes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetIncidentesRep(CveIncidente As Integer, CveAF As Integer, CveEmpresa As Integer, FechaInicio As String, FechaFin As String, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_IncidentesRepGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveIncidente", SqlDbType.Int).Value = CveIncidente
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@FechaInicial", SqlDbType.VarChar).Value = FechaInicio
-            .Add("@FechaFinal", SqlDbType.VarChar).Value = FechaFin
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Reporte de Incidentes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddIncidente(CveAF As Integer, Asunto As String, Descripcion As String, Odometro As Double, Horometro As Double, Prioridad As Integer, FechaIncidente As DateTime, CveUsuario As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_IncidentesAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@Asunto", SqlDbType.VarChar).Value = Asunto
-            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
-            .Add("@Odometro", SqlDbType.Float).Value = Odometro
-            .Add("@Horometro", SqlDbType.Float).Value = Horometro
-            .Add("@FechaIncidente", SqlDbType.DateTime).Value = FechaIncidente
-            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el incidente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateIncidente(CveIncidente As Integer, Asunto As String, Descripcion As String, Odometro As Double, Horometro As Double, Prioridad As Integer, FechaIncidente As DateTime) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_IncidentesUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveIncidente", SqlDbType.Int).Value = CveIncidente
-            .Add("@Asunto", SqlDbType.VarChar).Value = Asunto
-            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
-            .Add("@Odometro", SqlDbType.Float).Value = Odometro
-            .Add("@Horometro", SqlDbType.Float).Value = Horometro
-            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
-            .Add("@FechaIncidente", SqlDbType.DateTime).Value = FechaIncidente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el incidente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemoveIncidente(CveIncidente As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_IncidenteRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveIncidente", SqlDbType.Int).Value = CveIncidente
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el incidente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "F A  L L A S  / A C C I D E N T E S "
-    Public Function GetTipoFallas(CveTipoFalla As Integer, CveEmpresa As Integer, ClasificacionTipoFalla As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_TipoFallasGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoFalla", SqlDbType.Int).Value = CveTipoFalla
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@ClasificacionTipoFalla", SqlDbType.Int).Value = ClasificacionTipoFalla
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Tipo Fallas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function GetFallas(CveFalla As Integer, CveAF As Integer, CveEmpresa As Integer, CveTipoFalla As Integer, ClasificacionTipoFalla As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_FallasGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveFalla", SqlDbType.Int).Value = CveFalla
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveTipoFalla", SqlDbType.Int).Value = CveTipoFalla
-            .Add("@ClasificacionTipoFalla", SqlDbType.Int).Value = ClasificacionTipoFalla
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Fallas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddFalla(CveAF As Integer, Asunto As String, Descripcion As String, AFMedida As Integer, Prioridad As Integer, FechaFalla As DateTime, CveUsuario As Integer, CveEmpresa As Integer, CveTipoFalla As Integer, CorreoNotificacion As String) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_FallasAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@Asunto", SqlDbType.VarChar).Value = Asunto
-            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
-            .Add("@AFMedida", SqlDbType.Int).Value = AFMedida
-            .Add("@FechaFalla", SqlDbType.DateTime).Value = FechaFalla
-            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveTipoFalla", SqlDbType.Int).Value = CveTipoFalla
-            .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al Registrar la Falla.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateFalla(CveFalla As Integer, Asunto As String, Descripcion As String, AFMedida As Integer, Prioridad As Integer, FechaFalla As DateTime, CveTipoFalla As Integer, CorreoNotificacion As String) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_FallasUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveFalla", SqlDbType.Int).Value = CveFalla
-            .Add("@Asunto", SqlDbType.VarChar).Value = Asunto
-            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
-            .Add("@AFMedida", SqlDbType.Int).Value = AFMedida
-            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
-            .Add("@FechaFalla", SqlDbType.DateTime).Value = FechaFalla
-            .Add("@CveTipoFalla", SqlDbType.Int).Value = CveTipoFalla
-            .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la falla", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemoveFalla(CveFalla As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_FallasRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveFalla", SqlDbType.Int).Value = CveFalla
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar la falla.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-#Region "S E R V I C I O S"
-    Public Function GetServicios(CveServicio As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ServiciosGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveServicio", SqlDbType.Int).Value = CveServicio
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Servicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetServiciosTotal(CveServicio As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ServiciosTotalCompraGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveServicio", SqlDbType.Int).Value = CveServicio
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Servicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddServicio(CveAF As Integer, CveTipoServicio As Integer, FechaServicio As DateTime, CveProveedor As Integer, CveCompra As Integer, Horometro As Double, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional Proveedor As String = "-1", Optional Importe As Double = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ServiciosAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
-            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
-            .Add("@Horometro", SqlDbType.Float).Value = Horometro
-            .Add("@FechaServicio", SqlDbType.DateTime).Value = FechaServicio
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor
-            .Add("@Importe", SqlDbType.Float).Value = Importe
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateServicio(CveServicio As Integer, CveTipoServicio As Integer, FechaServicio As DateTime, CveProveedor As Integer, CveCompra As Integer, Horometro As Double, Observaciones As String, Optional Proveedor As String = "-1", Optional Importe As Double = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ServiciosUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveServicio", SqlDbType.Int).Value = CveServicio
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@FechaServicio", SqlDbType.DateTime).Value = FechaServicio
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
-            .Add("@Horometro", SqlDbType.Float).Value = Horometro
-            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
-            .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor
-            .Add("@Importe", SqlDbType.Float).Value = Importe
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el servicio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemoveServicio(CveServicio As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ServiciosRemove")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveServicio", SqlDbType.Int).Value = CveServicio
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetRepServicios(CveAF As Integer, CveEmpresa As Integer, CveTipoServicio As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_RepServicios")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
-            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el reporte de servicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "E V E N T O S   P R O G R A M A D O S "
-    Public Function GetRepEventosProgramados(CveAF As Integer, CveTipoAF As Integer, CveSubTipoAF As Integer, Asunto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_RepEventosProgramadosGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF
-            .Add("@CveSubTipoAF", SqlDbType.Int).Value = CveSubTipoAF
-            .Add("@Asunto", SqlDbType.VarChar).Value = Asunto
-            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
-            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Reporte de Eventos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "ValesCombustible"
-    Public Function AddValesCombustible(FolioUsuario As Integer, CveCompra As Integer, CveProveedor As Integer, CveAF As Integer, CvePersonal As Integer, Fecha As Date, NombreRecibe As String, CveSubProyecto As Integer, Observaciones As String, Odometro As Integer, CveCombustible As Integer, Litros As Double, TipoVale As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional Recibo As Integer = -1, Optional Importe As Integer = -1) As Integer
-        Dim Retorno As Integer = -1
-
-        DataAdapter("PA_AF_ValesCombustibleAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@FolioUsuario", SqlDbType.Int).Value = FolioUsuario
-            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
-            .Add("@NombreRecibe", SqlDbType.VarChar).Value = NombreRecibe
-            .Add("@Fecha", SqlDbType.Date).Value = Fecha
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
-            .Add("@Odometro", SqlDbType.Int).Value = Odometro
-            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
-            .Add("@Litros", SqlDbType.Float).Value = Litros
-            .Add("@Recibo", SqlDbType.Float).Value = Recibo
-            .Add("@Importe", SqlDbType.Float).Value = Importe
-            .Add("@TipoVale", SqlDbType.Int).Value = TipoVale
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveVale", SqlDbType.Int).Direction = ParameterDirection.Output
-            .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            FolioVale = SqlAdapter.SelectCommand.Parameters("@vFolio").Value.ToString.ToEntero
-            Retorno = SqlAdapter.SelectCommand.Parameters("@CveVale").Value.ToString.ToEntero
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe un Vale de Combustible con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar el Vale de Combustible.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-
-        End Try
-
-        Return Retorno
-
-    End Function
-    Public Function GetValesCombustible(CveCompra As Integer, CveValeCombustible As Integer, Folio As Integer, CveProveedor As Integer, CveAF As Integer, CveSubProyecto As Integer, Odometro As Integer, CveCombustible As Integer, Litros As Double, CvePersonal As Integer, CveUsuario As Integer, CveEmpresa As Integer, Recibo As Integer, Importe As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_AF_ValesCombustibleGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
-            .Add("@CveValeCombustible", SqlDbType.Int).Value = CveValeCombustible
-            .Add("@Folio", SqlDbType.Int).Value = Folio
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@Odometro", SqlDbType.Int).Value = Odometro
-            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
-            .Add("@Litros", SqlDbType.Float).Value = Litros
-            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Recibo", SqlDbType.Int).Value = Recibo
-            .Add("@Importe", SqlDbType.Int).Value = Importe
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Estatus de Vales Combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateValeCombustible(CveVale As Integer, CveCompra As Integer, CveProveedor As Integer, NombreRecibe As String, Litros As Double, Recibo As Integer, Importe As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ValesCombustibleUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveVale", SqlDbType.Int).Value = CveVale
-            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@NombreRecibe", SqlDbType.VarChar).Value = NombreRecibe
-            .Add("@Litros", SqlDbType.Float).Value = Litros
-            .Add("@Recibo", SqlDbType.Int).Value = Recibo
-            .Add("@Importe", SqlDbType.Int).Value = Importe
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            OnError("Ocurrió un error al actualizar la cuenta contable en el Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la cuenta contable en el Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-#Region "M E T R I C A S"
+    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
 
-    Public Function GetMetricas(CveMetrica As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MetricasGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddMetricas(Metrica As String) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MetricasAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Metrica", SqlDbType.Int).Value = Metrica
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function DeleteMetricas(CveMetrica As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MetricasRemove")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+        If TransaccionCompartida Is Nothing Then
+            SqlConexion = New SqlConnection
+            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            Try
+                SqlConexion.Open()
+            Catch ex As Exception
+                OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
+            End Try
+        Else
+            SqlConexion = TransaccionCompartida.Connection
+            SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
+        End If
+
+        SqlAdapter = New SqlDataAdapter("", SqlConexion)
+        ConexionAdd()
+    End Sub
+    Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand
+            .Parameters.Clear()
+            .CommandText = StrSQL
+            .CommandType = TipoComando
+        End With
+        If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
+        Data = New DataTable
+    End Sub
+#Region "Conexiones"
+
+    Private Sub ConexionAdd()
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+            Try
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+            CveConexion = 0
+        End If
+
+    End Sub
+#End Region
+    Public Function IniciaTransacSQL() As SqlTransaction
+        If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
+        Return SqlTransacc
     End Function
+    Public Sub RollBack()
+        SqlTransacc.Rollback()
+    End Sub
+    Public Sub Commit()
+        SqlTransacc.Commit()
+    End Sub
 
 
+#Region "A C T I V O S- F I J O S"
 
-    Public Function GetMetricasRegistro(CveSubProyecto As Integer, CveEmpresa As Integer, Fecha As Date) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MetricasRegistroGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+    Public Function GetRepActivosFijos(CveActivoFijo As Integer, CveEmpresa As Integer, Codigo As String, Descripcion As String, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, NoSerie As String, Año As Integer, CvePersonaResponsable As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEstadoActivoFijo As Integer, CaracteristicaValor As String, Optional BuscaGrupoEmpresa As Integer = -1, Optional Agrupador As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_AFGetRep")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Fecha", SqlDbType.Date).Value = Fecha
-        End With
-
-        Try
-            SqlAdapter.Fill(DSet)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-
-    Public Function GetMetricasValores(CveMetricaValor As Integer, CveAF As Integer, CvePersonal As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, FechaI As Date, FechaF As Date,
-                                       CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MetricasValoresGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
-            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
+            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            .Add("@NoSerie", SqlDbType.VarChar).Value = NoSerie
+            .Add("@Año", SqlDbType.Int).Value = Año
+            .Add("@CvePersonaResponsable", SqlDbType.Int).Value = CvePersonaResponsable
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
+            .Add("@CaracteristicaValor", SqlDbType.VarChar).Value = CaracteristicaValor
+            .Add("@BuscaGrupoEmpresa", SqlDbType.Int).Value = BuscaGrupoEmpresa
+            .Add("@Gpo", SqlDbType.Int).Value = Agrupador
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+
+            If CveActivoFijo > 0 AndAlso Data IsNot Nothing AndAlso Data.Rows.Count > 0 Then
+                Me.CveActivoFijo = Data.Rows(0)("CveActivoFijo").ToString.ToEntero
+
+                Me.Codigo = Data.Rows(0)("Codigo").ToString
+                Me.Descripcion = Data.Rows(0)("Descripcion").ToString
+                Me.CuentaInicial = Data.Rows(0)("Conta_CuentaInicial").ToString.ToEntero
+                Me.CveTipoActivoFijo = Data.Rows(0)("CveTipoActivoFijo").ToString.ToEntero
+                Me.TipoActivoFijo = Data.Rows(0)("TipoActivoFijo").ToString
+                Me.CveSubTipoActivoFijo = Data.Rows(0)("CveSubTipoActivoFijo").ToString.ToEntero
+                Me.SubTipoActivoFijo = Data.Rows(0)("SubTipoActivoFijo").ToString
+                Me.CveCompra = Data.Rows(0)("CveCompra").ToString.ToEntero
+                Me.ValorCompra = Data.Rows(0)("ValorCompra").ToString.ToDouble
+                Me.FechaCompra = Data.Rows(0)("FechaCompra").ToString.ToDate
+                Me.CvePersonaResponsable = Data.Rows(0)("CvePersonaResponsable").ToString.ToEntero
+                Me.Responsable = Data.Rows(0)("Responsable").ToString
+                Me.NoSerie = Data.Rows(0)("NoSerie").ToString
+                Me.Año = Data.Rows(0)("Año").ToString.ToEntero
+                Me.CveSubProyecto = Data.Rows(0)("CveSubProyecto").ToString.ToEntero
+                Me.SubProyecto = Data.Rows(0)("SubProyecto").ToString
+                Me.CveProyecto = Data.Rows(0)("CveProyecto").ToString.ToEntero
+                Me.Proyecto = Data.Rows(0)("Proyecto").ToString
+                Me.Cuenta = Data.Rows(0)("Cuenta").ToString.ToEntero
+                Me.CveEstadoActivoFijo = Data.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero
+                Me.EstadoActivoFijo = Data.Rows(0)("EstadoActivoFijo").ToString
+                Me.IdCtaContDepreciacion = Data.Rows(0)("IdCtaContDepreciacion").ToString.ToEntero
+                Me.PorDepreciacion = Data.Rows(0)("PorDepreciacion").ToString.ToDouble
+                Me.Observaciones = Data.Rows(0)("Observaciones").ToString
+                Me.FechaIng = Data.Rows(0)("FechaIng").ToString.ToDate
+                Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
+                Me.Usuario = Data.Rows(0)("Usuario").ToString
+                Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
+            End If
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetActivosFijosProyectos(CveEmpresa As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEstadoActivoFijo As Integer, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosUsuarioGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetRepActivosFijosDepreciacion(CveEmpresa As Integer, Fecha As Date) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_DepreciacionesGetRep")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de Depreciaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetActivosFijos(CveActivoFijo As Integer, CveEmpresa As Integer, Codigo As String, Descripcion As String, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, NoSerie As String, Año As Integer, CvePersonaResponsable As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEstadoActivoFijo As Integer, CaracteristicaValor As String, CveCliente As Integer, Optional BuscaGrupoEmpresa As Integer = -1, Optional BuscaPorAFPadre As Integer = -1, Optional CveGrupo As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
+            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            .Add("@NoSerie", SqlDbType.VarChar).Value = NoSerie
+            .Add("@Año", SqlDbType.Int).Value = Año
+            .Add("@CvePersonaResponsable", SqlDbType.Int).Value = CvePersonaResponsable
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
+            .Add("@CaracteristicaValor", SqlDbType.VarChar).Value = CaracteristicaValor
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@BuscaGrupoEmpresa", SqlDbType.Int).Value = BuscaGrupoEmpresa
+            .Add("@CveAFPadre", SqlDbType.Int).Value = BuscaPorAFPadre
+            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+
+            If CveActivoFijo > 0 AndAlso Data IsNot Nothing AndAlso Data.Rows.Count > 0 Then
+                Me.CveActivoFijo = Data.Rows(0)("CveActivoFijo").ToString.ToEntero
+
+                Me.Codigo = Data.Rows(0)("Codigo").ToString
+                Me.Descripcion = Data.Rows(0)("Descripcion").ToString
+                Me.CuentaInicial = Data.Rows(0)("Conta_CuentaInicial").ToString.ToEntero
+                Me.CveTipoActivoFijo = Data.Rows(0)("CveTipoActivoFijo").ToString.ToEntero
+                Me.TipoActivoFijo = Data.Rows(0)("TipoActivoFijo").ToString
+                Me.CveSubTipoActivoFijo = Data.Rows(0)("CveSubTipoActivoFijo").ToString.ToEntero
+                Me.SubTipoActivoFijo = Data.Rows(0)("SubTipoActivoFijo").ToString
+                Me.CveCompra = Data.Rows(0)("CveCompra").ToString.ToEntero
+                Me.ValorCompra = Data.Rows(0)("ValorCompra").ToString.ToDouble
+                Me.FechaCompra = Data.Rows(0)("FechaCompra").ToString.ToDate
+                Me.CvePersonaResponsable = Data.Rows(0)("CvePersonaResponsable").ToString.ToEntero
+                Me.Responsable = Data.Rows(0)("Responsable").ToString
+                Me.NoSerie = Data.Rows(0)("NoSerie").ToString
+                Me.Año = Data.Rows(0)("Año").ToString.ToEntero
+                Me.CveSubProyecto = Data.Rows(0)("CveSubProyecto").ToString.ToEntero
+                Me.SubProyecto = Data.Rows(0)("SubProyecto").ToString
+                Me.CveProyecto = Data.Rows(0)("CveProyecto").ToString.ToEntero
+                Me.Proyecto = Data.Rows(0)("Proyecto").ToString
+                Me.Cuenta = Data.Rows(0)("Cuenta").ToString.ToEntero
+                Me.CveEstadoActivoFijo = Data.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero
+                Me.EstadoActivoFijo = Data.Rows(0)("EstadoActivoFijo").ToString
+                Me.IdCtaContDepreciacion = Data.Rows(0)("IdCtaContDepreciacion").ToString.ToEntero
+                Me.PorDepreciacion = Data.Rows(0)("PorDepreciacion").ToString.ToDouble
+                Me.Observaciones = Data.Rows(0)("Observaciones").ToString
+                Me.MesesDepreciacion = Data.Rows(0)("MesesDepreciacion").ToString.ToEntero
+                Me.CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero
+                Me.NombreCliente = Data.Rows(0)("NombreCliente").ToString
+                Me.FechaIng = Data.Rows(0)("FechaIng").ToString.ToDate
+                Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
+                Me.Usuario = Data.Rows(0)("Usuario").ToString
+                Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
+                Me.MedidaUso = Data.Rows(0)("MedidaUso").ToString
+                Me.CveMovimientoInv = Data.Rows(0)("CveMovimientoInv").ToString.ToEntero
+                Me.FolioInv = Data.Rows(0)("FolioInv").ToString
+                Me.AlmacenInv = Data.Rows(0)("AlmacenInv").ToString
+                Me.CveMarcaActivoFijo = Data.Rows(0)("CveMarcaActivoFijo").ToString.ToEntero
+                Me.CveModeloActivoFijo = Data.Rows(0)("CveModeloActivoFijo").ToString.ToEntero
+                Me.CveGrupoAF = Data.Rows(0)("CveGrupo").ToString.ToEntero
+                Me.CveAFPadre = Data.Rows(0)("CveAFPadre").ToString.ToEntero
+                Me.CveDispositivo = Data.Rows(0)("CveDispositivo").ToString.ToEntero
+            End If
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    'Public Function AddActivosFijos(Codigo As String, Descripcion As String, ValorCompra As Double, FechaCompra As Date, CveSubTipoActivoFijo As Integer,
+    '                                CvePersonalResponsable As Integer, NoSerie As String, Año As Integer, CveSubProyecto As Integer, Cuenta As Integer,
+    '                                CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, PorDeduccion As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
+
+    '    DataAdapter("PA_AF_ActivosFijosAdd")
+
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+    '        .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+    '        .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+    '        .Add("@ValorCompra", SqlDbType.Money).Value = ValorCompra
+    '        .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
+    '        .Add("@CvePersonalResponsable", SqlDbType.Int).Value = CvePersonalResponsable
+    '        .Add("@NoSerie", SqlDbType.VarChar).Value = NoSerie
+    '        .Add("@Año", SqlDbType.Int).Value = Año
+    '        .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+    '        .Add("@IdCtaContActivoFijo", SqlDbType.Int).Value = Cuenta
+    '        .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
+    '        .Add("@IdCtaContDepreciacion", SqlDbType.Int).Value = IdCtaContDepreciacion
+    '        .Add("@PorDepreciacion", SqlDbType.Float).Value = PorDepreciacion
+    '        .Add("@PorDeduccion", SqlDbType.Float).Value = PorDeduccion
+    '        .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '    End With
+
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch Ex1 As SqlException
+    '        If Ex1.Message.Contains("Número: 2627;") Then
+    '            Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
+    '        Else
+    '            Me.OnError("Ocurrió un error al Guardar el Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '        End If
+    '    Catch ex As Exception
+
+    '    End Try
+
+    '    Return Retorno
+    'End Function
+    Public Function AddActivosFijos(Codigo As String, Descripcion As String, ValorCompra As Double, FechaCompra As Date, CveSubTipoActivoFijo As Integer, CvePersonalResponsable As Integer, NoSerie As String, Año As Integer,
+                                    CveSubProyecto As Integer, Cuenta As Integer, CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer,
+                                    CveMovimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1,
+                                    Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1) As Integer
+        Dim Retorno As Integer = -1
+
+        DataAdapter("PA_AF_ActivosFijosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            .Add("@ValorCompra", SqlDbType.Money).Value = ValorCompra
+            .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
+            .Add("@CvePersonalResponsable", SqlDbType.Int).Value = CvePersonalResponsable
+            .Add("@NoSerie", SqlDbType.VarChar).Value = NoSerie
+            .Add("@Año", SqlDbType.Int).Value = Año
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@IdCtaContActivoFijo", SqlDbType.Int).Value = Cuenta
+            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
+            .Add("@IdCtaContDepreciacion", SqlDbType.Int).Value = IdCtaContDepreciacion
+            .Add("@PorDepreciacion", SqlDbType.Float).Value = PorDepreciacion
+            '.Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveModelo", SqlDbType.Int).Value = CveModelo
+            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
+            .Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+
+            .Add("@CveActivoFijo", SqlDbType.Int).Direction = ParameterDirection.Output
+            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            CveActivoFijo = SqlAdapter.SelectCommand.Parameters("@CveActivoFijo").Value.ToString.ToEntero
+            'Dim RetValue As Integer = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
+            Retorno = CveActivoFijo
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                If Ex1.Message.Contains("UN_ActivoFijo") Then
+                    Alert("El Codigo ya se encuentra registrado", TipoMensaje.MsgAdvertencia)
+                Else
+                    Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
+                End If
+
+            Else
+                Me.OnError("Ocurrió un error al Guardar el Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateActivosFijos(CveActivoFijo As Integer, Codigo As String, Descripcion As String, ValorCompra As Double, FechaCompra As Date, CveSubTipoActivoFijo As Integer,
+                                       CvePersonalResponsable As Integer, NoSerie As String, Año As Integer, CveSubProyecto As Integer, IdCtaContActivoFijo As Integer,
+                                       CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer,
+                                       CveUsuarioModifico As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1,
+                                       Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivosFijosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            .Add("@ValorCompra", SqlDbType.Money).Value = ValorCompra
+            .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
+            '.Add("@CveModeloActivoFijo", SqlDbType.Int).Value = CveModeloActivoFijo
+            '.Add("@CveMarcaActivoFijo", SqlDbType.Int).Value = CveMarcaActivoFijo
+            .Add("@CvePersonalResponsable", SqlDbType.Int).Value = CvePersonalResponsable
+            .Add("@NoSerie", SqlDbType.VarChar).Value = NoSerie
+            .Add("@Año", SqlDbType.Int).Value = Año
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@IdCtaContActivoFijo", SqlDbType.Int).Value = IdCtaContActivoFijo
+            .Add("@IdCtaContDepreciacion", SqlDbType.Int).Value = IdCtaContDepreciacion
+            .Add("@PorDepreciacion", SqlDbType.Float).Value = PorDepreciacion
+            .Add("@PorDeduccion", SqlDbType.Float).Value = -1
+            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveModelo", SqlDbType.Int).Value = CveModelo
+            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
+            .Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar los cambios en el Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en el Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveActivosFijos(CveActivoFijo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivosFijosRemove")
+        SqlAdapter.SelectCommand.Parameters.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 547;") Then
+                Alert("El Activo Fijo no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al eliminar el Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar el Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivosFijosCompraUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle
+            .Add("@TipoAF", SqlDbType.Int).Value = TipoAF
+            .Add("@ValorCompra", SqlDbType.Float).Value = ValorCompra
+            .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar los cambios en el Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en el Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateActivosFijosCuentaAC(CveActivoFijo As Integer, IdCuentaContable As Integer, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivosFijosCtaContableUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@IdCuentaContable", SqlDbType.Int).Value = IdCuentaContable
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            OnError("Ocurrió un error al actualizar la cuenta contable en el Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la cuenta contable en el Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
+
+#Region "A C T I V O S - F I J O S- B I T A C O R A S"
+    Public Function GetActivosFijosBitacora(CveActivoFijo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosBitacoraGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.VarChar).Value = CveActivoFijo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos - Bitacora.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddActivosFijosBitacora(CveActivoFijo As Integer, Observacion As String, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivosFijosBitacoraAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Guardar la Bitacora del Activo Fijo ", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "A C T I V O S - F I J O S - C A R A C T E R I S T I C A S"
+
+    Public Function GetActivosFijosCaracteristicas(CveActivoFijo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosCaracteristicasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.VarChar).Value = CveActivoFijo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos - Caracteristicas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
+
+#Region "A C T I V O S- F I J O S - H I S T O R I A L"
+    Public Function GetActivosFijosHistorial(CveActivoFijo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosHistorialGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.VarChar).Value = CveActivoFijo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos - Historial.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddActivosFijosHistorial(CveActivoFijo As Integer, CveConceptoHistorialActivoFijo As Integer, Actual As String, Anterior As String, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivosFijosHistorialAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveConceptoHistorialActivoFijo", SqlDbType.Int).Value = CveConceptoHistorialActivoFijo
+            .Add("@Actual", SqlDbType.VarChar).Value = Actual
+            .Add("@Anterior", SqlDbType.VarChar).Value = Anterior
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Guardar el Historial del Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "A C T I V O S- F I J O S - I M A G E N E S"
+    Public Function GetActivosFijosImagenes(CveActivoFijo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosImagenesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.VarChar).Value = CveActivoFijo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos - Imagenes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddActivosFijosImagenes(CveActivoFijo As Integer, URL As String, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivosFijosImagenesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@URL", SqlDbType.VarChar).Value = URL
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una Imagen en Fijo Imagenes con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar la Imagen en Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar la Imagen en Activo Fijo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemoveActivosFijosImagenes(CveImagenActivoFijo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivosFijosImagenesRemove")
+        SqlAdapter.SelectCommand.Parameters.Add("@CveImagenActivoFijo", SqlDbType.Int).Value = CveImagenActivoFijo
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 547;") Then
+                Alert("La Imagen del Activo Fijo no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al eliminar la Imagen del Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar la Imagen del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "A C T I V O S - F I J O S - R E S G U A R D O S"
+    Public Function GetActivosFijosResguardos(CveActivoFijo As Integer, CveActivoFijoResguardo As Integer, CveResponsable As Integer, CveResguardo As Integer, Optional CveEmpresa As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional Folio As Integer = -1, Optional CveResguardo2 As Integer = -1, Optional UsuarioImprimio As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosResguardosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveActivoFijoResguardo", SqlDbType.Int).Value = CveActivoFijoResguardo
+            .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable
+            .Add("@CveResguardo", SqlDbType.Int).Value = CveResguardo
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Folio", SqlDbType.Int).Value = Folio
+            .Add("@CveResguardo2", SqlDbType.Int).Value = CveResguardo2
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@UsuarioImprimio", SqlDbType.Int).Value = UsuarioImprimio
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Activos Fijos - Resguardos.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function ActivoFijoResguardoADD(FechaInicio As Date, CvePersonal As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, TipoDocto As String, Tipo As Integer, CveEmpresa As Integer, Optional Observaciones As String = " ", Optional CveResguardo As Integer = -1) As Boolean
+        'Dim CveResguardo As Integer = -1
+        Dim Retorno = False
+        DataAdapter("PA_AF_ActivosFijosResguardosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@CveResguardo", SqlDbType.Int).Value = CveResguardo
+            .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Folio", SqlDbType.Int).Direction = ParameterDirection.Output
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            FolioResguardo = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString().ToEntero()
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar el resguardo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function ActivoFijoResguardoGpo() As Integer
+        Dim CveResguardo As Integer = -1
+        DataAdapter("PA_AF_ActivosFijosResguardosGpo")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveResguardo", SqlDbType.Int).Direction = ParameterDirection.Output
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            CveResguardo = SqlAdapter.SelectCommand.Parameters("@CveResguardo").Value.ToString().ToEntero()
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el grupo del resguardo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return CveResguardo
+    End Function
+    Public Function UpdateActivosFijosResguardos(FechaFin As String, Observaciones As String, URL As String, CveActivoFijoResguardo As Integer, CveActivoFijo As Integer, Optional URL2 As String = "-1", Optional CveResguardo2 As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosResguardosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@URL", SqlDbType.VarChar).Value = URL
+            .Add("@CveActivoFijoResguardo", SqlDbType.Int).Value = CveActivoFijoResguardo
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@URL2", SqlDbType.VarChar).Value = URL2
+            .Add("@CveResguardo2", SqlDbType.Int).Value = CveResguardo2
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateEstatusResguardo(EstatusResguardo As Integer, CveEmpresa As Integer, CveActivoFijo As Integer, Optional CveSubProyecto As Integer = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_UpdateEstatusResguardo")
+        'ESTATUS RESGUARDO: 1- Disponible, 2- En Traslado, 3- Asignado
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@EstatusResguardo", SqlDbType.Int).Value = EstatusResguardo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateActivosFijosResguardosURL(URL As String, URL2 As String, CveActivoFijoResguardo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosResguardosUrlUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@URL", SqlDbType.VarChar).Value = URL
+            .Add("@URL2", SqlDbType.VarChar).Value = URL2
+            .Add("@CveActivoFijoResguardo", SqlDbType.Int).Value = CveActivoFijoResguardo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateActivosFijosResguardosURLGpo(URL As String, URL2 As String, CveResguardo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosResguardosGpoUrl")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@URL", SqlDbType.VarChar).Value = URL
+            .Add("@URL2", SqlDbType.VarChar).Value = URL2
+            .Add("@CveActivoFijoResguardo", SqlDbType.Int).Value = CveResguardo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetActivosFijosHijos(CveEmpresa As Integer, CveAFPadre As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosHijosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los AF Hijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
+
+#Region "A C T I V O S - F I J O S - COMPRAS "
+    Public Function GetActivosFijosCompras(CveActivoFijo As Integer, Optional CveClasificacion As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivosFijosCompras")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As Exception
+            OnError("Ocurrió un error al obtener las Compras del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+#End Region
+
+#Region " ************************************************ C A R A C T E R I S T I C A S ************************************************ "
+
+#Region "ClasificacionesCaracteristicas"
+
+    Public Function GetCaracteristicasClasificaciones(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CaracteristicasClasificacionesGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Data.TableName = "CaracteristicasClasificaciones"
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Clasificaciones de Características.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddClasificacionesCaracteristicas(CaracteristicaClasificacion As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CaracteristicasClasificacionesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CaracteristicaClasificacion", SqlDbType.VarChar).Value = CaracteristicaClasificacion
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar la Clasificacion de Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateClasificacionesCaracteristicas(CaracteristicaClasificacion As String, Estatus As Boolean, CveCaracteristicaClasificacion As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CaracteristicasClasificacionesUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CaracteristicaClasificacion", SqlDbType.VarChar).Value = CaracteristicaClasificacion
+            '.Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            '.Add("@Orden", SqlDbType.Int).Value = Orden
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveCaracteristicaClasificacion", SqlDbType.Int).Value = CveCaracteristicaClasificacion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una Clasificacion de Caracteristica con el mismo nombre: " & CaracteristicaClasificacion & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar los cambios en la Clasificacion de Caracteristica", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en la Clasificacion de Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveClasificacionesCaracteristicas(CveCaracteristicaClasificacion As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CaracteristicasClasificacionesRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveCaracteristicaClasificacion", SqlDbType.Int).Value = CveCaracteristicaClasificacion
+        SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 547;") Then
+                Alert("La Clasificacion de Caracteristica no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al eliminar la Clasificacion de Caracteristica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar la Clasificacion de Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+
+#Region "Características"
+    Public Function GetCaracteristicas(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CaracteristicasGet")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        Try
+            SqlAdapter.Fill(Data)
+            Data.TableName = "Caracteristicas"
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Características.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+
+        Return Retorno
+    End Function
+    Public Function AddCaracteristica(Caracteristica As String, CveCaracteristicaClasificacion As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, TipoCampo As Integer, Longitud As Integer, Requerido As Integer, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CaracteristicasAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Caracteristica", SqlDbType.VarChar).Value = Caracteristica
+            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
+            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            .Add("@TipoCampo", SqlDbType.TinyInt).Value = TipoCampo
+            .Add("@CveCaracteristicaClasificacion", SqlDbType.Int).Value = CveCaracteristicaClasificacion
+            .Add("@Longitud", SqlDbType.Int).Value = Longitud
+            .Add("@Requerido", SqlDbType.Int).Value = Requerido
+            .Add("@Orden", SqlDbType.Int).Value = Orden
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una Característica con el mismo nombre: " & Caracteristica & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar la Característica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar la Característica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateCaracteristica(CveCaracteristicaClasificacion As Integer, Caracteristica As String, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, TipoCampo As Integer, Longitud As Integer, Requerida As Boolean, Orden As Integer, Estatus As Boolean, CveEmpresa As Integer, CveCaracteristica As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CaracteristicasUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCaracteristica", SqlDbType.VarChar).Value = CveCaracteristica
+            .Add("@Caracteristica", SqlDbType.VarChar).Value = Caracteristica
+            .Add("@CveCaracteristicaClasificacion", SqlDbType.Int).Value = CveCaracteristicaClasificacion
+            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
+            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            .Add("@TipoCampo", SqlDbType.TinyInt).Value = TipoCampo
+            .Add("@Longitud", SqlDbType.Int).Value = Longitud
+            .Add("@Orden", SqlDbType.Int).Value = Orden
+            .Add("@Requerida", SqlDbType.Bit).Value = Requerida
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una Caracteristica con el mismo nombre: " & Caracteristica & ".", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("Número: 547;") Then
+                Alert("La Característica tiene Opciones que están siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar los cambios en la Característica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en la Característica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveCaracteristica(CveCaracteristica As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CaracteristicasRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
+        SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 547;") Then
+                Alert("La Característica no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al eliminar la Característica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar la Característica de Tipo de Cuenta y/o Equipo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+
+#Region "CaracteristicasOpciones"
+
+    Public Function GetCaracteristicasOpciones(CveCaracteristica As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CaracteristicasOpcionesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Data.TableName = "CaracteristicasOpciones"
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las Opciones para las Caracteristicas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetCaracteristicasOpcionesSubTipo(CveCaracteristica As Integer, CveSubTipoActivoFijo As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CaracteristicasOpcionesSubTipoGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
+            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Data.TableName = "CaracteristicasOpciones"
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las Opciones para las Caracteristicas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddCaracteristicasOpciones(CaracteristicaOpcion As String, CveCaracteristica As Integer, Orden As Integer, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CaracteristicasOpcionesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CaracteristicaOpcion", SqlDbType.VarChar).Value = CaracteristicaOpcion
+            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
+            .Add("@Orden", SqlDbType.Int).Value = Orden
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una Opcion para la Caracteristica con el mismo nombre: " & CaracteristicaOpcion & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar la Opcion para la Caracteristica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar la Opcion para la Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateCaracteristicasOpciones(CveCaracteristica As Integer, CaracteristicaOpcion As String, Orden As Integer, Estatus As Boolean, CveCaracteristicaOpcion As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CaracteristicasOpcionesUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CaracteristicaOpcion", SqlDbType.VarChar).Value = CaracteristicaOpcion
+            .Add("@Orden", SqlDbType.Int).Value = Orden
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
+            .Add("@CveCaracteristicaOpcion", SqlDbType.Int).Value = CveCaracteristicaOpcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una Opcion para la Caracteristica con el mismo nombre: " & CaracteristicaOpcion & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar los cambios en la Opcion para la Caracteristica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en la Opcion para la Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveCaracteristicasOpciones(CveCaracteristicaOpcion As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CaracteristicasOpcionesRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCaracteristicaOpcion", SqlDbType.Int).Value = CveCaracteristicaOpcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 547;") Then
+                Alert("La Opcion para la Caracteristica no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al eliminar la Opcion para la Caracteristica.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar la Opcion para la Caracteristica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+
+#Region "A C T I V O S    V A L O R E S"
+    Public Function GetActivosFijosValores(CveActivoFijo As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ActivoFijoValoresGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Valores de Activos Fijos .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddActivosFijosValores(CveActivoFijo As Integer, CveCaracteristica As Integer, CveOpcion As Integer, Valor As String, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivoFijoValoresAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
+            .Add("@CveOpcion", SqlDbType.Int).Value = CveOpcion
+            .Add("@Valor", SqlDbType.VarChar).Value = Valor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al Guardar el Valor de Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddUpdActivosFijosValores(CveActivoFijo As Integer, CveCaracteristica As Integer, CveOpcion As Integer, Valor As String, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivoFijoValoresAddUpd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
+            .Add("@CveOpcion", SqlDbType.Int).Value = CveOpcion
+            .Add("@Valor", SqlDbType.VarChar).Value = Valor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al Guardar el Valor de Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateActivosFijosValores(CveActivoFijo As Integer, CveCaracteristica As Integer, CveOpcion As Integer, Valor As String, CveUsuario As Integer, CveValor As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivoFijoValoresUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
+            .Add("@CveOpcion", SqlDbType.Int).Value = CveOpcion
+            .Add("@Valor", SqlDbType.VarChar).Value = Valor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveValor", SqlDbType.Int).Value = CveValor
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al guardar los cambios en el Valor del Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en el Valor del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveActivosFijosValores(CveActivoFijo As Integer, CveValor As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActivoFijoValoresRemove")
+        SqlAdapter.SelectCommand.Parameters.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+        SqlAdapter.SelectCommand.Parameters.Add("@CveValor", SqlDbType.Int).Value = CveValor
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 547;") Then
+                Alert("El Valor de Activo Fijo no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al eliminar el Valor de Activo Fijo.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar el Valor de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+#End Region
+
+#Region "Subtipos Activos Fijos"
+
+    Public Function GetSubTiposActivosFijos(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_SubTiposActivosFijosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Subtipos de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddSubTiposActivosFijos(CveTipoActivoFijo As Integer, SubTipoActivoFijo As String, CveUsuario As Integer, CveEmpresa As Integer, Optional AplicaGPS As Boolean = False) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_SubTiposActivosFijosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
+            .Add("@SubTipoActivoFijo", SqlDbType.VarChar).Value = SubTipoActivoFijo
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@AplicaGPS", SqlDbType.Bit).Value = AplicaGPS
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Guardar el Subtipo de Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateSubTiposActivosFijos(CveSubTipoActivoFijo As Integer, CveTipoActivoFijo As Integer, SubTipoActivoFijo As String, Estado As Boolean, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_SubTiposActivosFijosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
+            .Add("@SubTipoActivoFijo", SqlDbType.VarChar).Value = SubTipoActivoFijo
+            .Add("@Estado", SqlDbType.Bit).Value = Estado
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en el Subtipo del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveSubTiposActivosFijos(CveSubTiposActivosFijos As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_SubTiposActivosFijosRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTiposActivosFijos
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            Me.OnError("Ocurrió un error al eliminar el Subtipo del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "Tipos Activos Fijos"
+
+    Public Function GetTiposActivosFijos(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_TiposActivosFijosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Tipos de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddTiposActivosFijos(TipoActivoFijo As String, CuentaInicial As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional PorDepreciacion As Decimal = 0, Optional MedidaVehicular As Integer = 1, Optional AutoFolio As Boolean = False, Optional Contable As Boolean = False) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposActivosFijosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@TipoActivoFijo", SqlDbType.VarChar).Value = TipoActivoFijo
+            .Add("@CuentaInicial", SqlDbType.VarChar).Value = CuentaInicial
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@PorDepreciacion", SqlDbType.Money).Value = PorDepreciacion
+            .Add("@MedidaVehicular", SqlDbType.TinyInt).Value = MedidaVehicular
+            .Add("@AutoFolio", SqlDbType.Bit).Value = AutoFolio
+            .Add("@Contable", SqlDbType.Bit).Value = Contable
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Guardar el Tipo de Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateTiposActivosFijos(CveTipoActivoFijo As Integer, TipoActivoFijo As String, CuentaInicial As Integer, Estado As Boolean, Optional PorDepreciacion As Decimal = 0, Optional MedidaVehicular As Integer = 1, Optional AutoFolio As Boolean = False, Optional Contable As Boolean = False) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposActivosFijosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
+            .Add("@TipoActivoFijo", SqlDbType.VarChar).Value = TipoActivoFijo
+            .Add("@CuentaInicial", SqlDbType.VarChar).Value = CuentaInicial
+            .Add("@Estado", SqlDbType.Bit).Value = Estado
+            .Add("@PorDepreciacion", SqlDbType.Money).Value = PorDepreciacion
+            .Add("@MedidaVehicular", SqlDbType.TinyInt).Value = MedidaVehicular
+            .Add("@AutoFolio", SqlDbType.Bit).Value = AutoFolio
+            .Add("@Contable", SqlDbType.Bit).Value = Contable
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en el Tipo del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveTiposActivosFijos(CveTiposActivosFijos As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposActivosFijosRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTiposActivosFijos
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            Me.OnError("Ocurrió un error al eliminar el tipo del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "A C T I V O S  -  S U B T I P O S "
+
+    Public Function GetSubTiposCaracteristicas(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_SubTiposCaracteristicasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de caracteristicas de Subtipos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddSubTipoCaracteristica(CveSubTipoActivoFijo As Integer, CveCaracteristica As Integer, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_SubTiposCaracteristicasAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Guardar el Subtipo de Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveSubTipoCaracteristica(CveSubTipoActivosFijos As Integer, CveCaracteristica As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_SubTiposCaracteristicasRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivosFijos
+            .Add("@CveCaracteristica", SqlDbType.Int).Value = CveCaracteristica
+        End With
+
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            Me.OnError("Ocurrió un error al eliminar el Subtipo del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "ESTATUS DE ACTIVOS FIJOS"
+    Public Function GetEstatusActivoFijo() As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_EstatusActivoFijoGet")
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Estatus de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddEstatusActivoFIjo(EstadoActivoFijo As Integer, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_EstatusActivoFijoAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@EstadoActivoFijo", SqlDbType.Int).Value = EstadoActivoFijo
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Guardar el Departamento", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateEstatusActivoFijo(CveEstadoActivoFIjo As Integer, EstadoActivoFijo As Integer, Estado As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_EstatusActivoFijoUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@EstadoActivoFijo", SqlDbType.Int).Value = EstadoActivoFijo
+            .Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFIjo
+            .Add("@Estado", SqlDbType.Bit).Value = Estado
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al guardar los cambios en el Estado del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+    Public Function RemoveEstatusActivoFijo(CveEstadoActivoFijo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_EstatusActivoFijoRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveEstadoActivoFijo", SqlDbType.Int).Value = CveEstadoActivoFijo
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 547;") Then
+                Alert("El Departamento no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al eliminar el Departamento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar el Departamento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "ClsAFModelosActivosFijos"
+    Public Function GetModelosActivosFijos(CveEmpresa As Integer, CveMarca As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ModelosActivosFijosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Modelos de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddModelosActivosFijos(ModeloActivoFijo As String, CveMarcaAF As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ModelosActivosFijosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@ModeloActivoFijo", SqlDbType.VarChar).Value = ModeloActivoFijo
+            .Add("@CveMarcaAF", SqlDbType.Int).Value = CveMarcaAF
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Guardar el Modelo del Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateModelosActivosFijos(CveModeloActivoFijo As Integer, ModeloActivoFijo As String, CveMarcaAF As Integer, Estado As Boolean, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ModelosActivosFijosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveModeloActivoFijo", SqlDbType.Int).Value = CveModeloActivoFijo
+            .Add("@ModeloActivoFijo", SqlDbType.VarChar).Value = ModeloActivoFijo
+            .Add("@CveMarcaAF", SqlDbType.Int).Value = CveMarcaAF
+            .Add("@Estado", SqlDbType.Bit).Value = Estado
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en el Modelo del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveModelosActivosFijos(CveModelosActivosFijos As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ModelosActivosFijosRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveModeloActivoFijo", SqlDbType.Int).Value = CveModelosActivosFijos
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            Me.OnError("Ocurrió un error al eliminar el Modelo del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "ClsAFMarcasActivosFijos"
+    Public Function GetMarcasActivosFijos(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_MarcasActivosFijosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Marcas de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddMarcasActivosFijos(MarcaActivoFijo As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MarcasActivosFijosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@MarcaActivoFijo", SqlDbType.VarChar).Value = MarcaActivoFijo
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Guardar la Marca del Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateMarcasActivosFijos(CveMarcaActivoFijo As Integer, MarcaActivoFijo As String, Estado As Boolean, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MarcasActivosFijosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMarcaActivoFijo", SqlDbType.Int).Value = CveMarcaActivoFijo
+            .Add("@MarcaActivoFijo", SqlDbType.VarChar).Value = MarcaActivoFijo
+            .Add("@Estado", SqlDbType.Bit).Value = Estado
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en la Marca del Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveMarcasActivosFijos(CveMarcaActivoFijo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MarcasActivosFijosRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveMarcaActivoFijo", SqlDbType.Int).Value = CveMarcaActivoFijo
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            Me.OnError("Ocurrió un error al eliminar la Marca del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "AF G R U P O S"
+    Public Function GetGrupoAF(CveGrupo As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_GruposGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Grupos de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddGrupoAF(Grupo As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer
+        Dim Retorno As Integer = -1
+
+        DataAdapter("PA_AF_GruposAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Grupo", SqlDbType.VarChar).Value = Grupo
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveGrupo", SqlDbType.Int).Direction = ParameterDirection.Output
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = SqlAdapter.SelectCommand.Parameters("@CveGrupo").Value.ToString.ToEntero
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Guardar el Grupo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateGrupoAF(Grupo As String, Estatus As Boolean, CveGrupo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_GruposUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Grupo", SqlDbType.VarChar).Value = Grupo
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Actualizar el Grupo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemoveGrupoAF(CveEmpresa As Integer, CveGrupo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_GruposRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Eliminar el Grupo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "ClsAFConceptosHistorial"
+
+    Public Function GetConceptosHistorial() As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ConceptosHistorialGet")
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo Historial de Conceptos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddConceptosHistorial(ConceptoHistorialActivoFijo As String, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ConceptosHistorialAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@ConceptoHistorialActivoFijo", SqlDbType.VarChar).Value = ConceptoHistorialActivoFijo
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Guardar el Concepto del Historial", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateDepartamento(CveConceptoHistorialActivoFijo As Integer, ConceptoHistorialActivoFijo As String, Estado As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_RH_DepartamentoUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveConceptoHistorialActivoFijo", SqlDbType.Int).Value = CveConceptoHistorialActivoFijo
+            .Add("@ConceptoHistorialActivoFijo", SqlDbType.VarChar).Value = ConceptoHistorialActivoFijo
+            .Add("@Estado", SqlDbType.Bit).Value = Estado
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al guardar los cambios en el Concepto del Historial.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveConceptosHistorialRemove(CveConceptoHistorialActivoFijo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ConceptosHistorialRemove")
+        SqlAdapter.SelectCommand.Parameters.Add("@CveConceptoHistorialActivoFijo", SqlDbType.Int).Value = CveConceptoHistorialActivoFijo
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            Me.OnError("Ocurrió un error al eliminar el Concepto del Historial.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "ClsAFCaracteristicasActivosFijos"
+
+    Public Function GetCaracteristicasActivosFijos(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CaracteristicasActivosFijos")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Características de Activos Fijos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddCaracteristicasActivosFijos(CveActivoFijo As Integer, Caracteristica As String, EsRequerido As Boolean, EsUnico As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CaracteristicasActivosFijosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActivoFijo", SqlDbType.VarChar).Value = CveActivoFijo
+            .Add("@Caracteristica", SqlDbType.VarChar).Value = Caracteristica
+            .Add("@EsRequerido", SqlDbType.Bit).Value = EsUnico
+            .Add("@EsUnico", SqlDbType.Bit).Value = EsRequerido
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al Guardar la Característica del Activo Fijo", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateCaracteristicasActivosFijos(CveTipoActivoFijo As Integer, Caracteristica As String, EsRequerido As Boolean, EsUnico As Boolean, CveEmpresa As Integer, CveCaracteristicaActivoFijo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CaracteristicasActivosFijosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoActivoFijo", SqlDbType.VarChar).Value = CveTipoActivoFijo
+            .Add("@Caracteristica", SqlDbType.VarChar).Value = Caracteristica
+            .Add("@EsRequerido", SqlDbType.Bit).Value = EsUnico
+            .Add("@EsUnico", SqlDbType.Bit).Value = EsRequerido
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveCaracteristicaActivoFijo", SqlDbType.VarChar).Value = CveCaracteristicaActivoFijo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            OnError("Ocurrió un error al guardar los cambios en la Característica del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveCaracteristicasActivosFijos(CveCaracteristicaActivoFijo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CaracteristicasActivosFijosRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveCaracteristicaActivoFijo", SqlDbType.Int).Value = CveCaracteristicaActivoFijo
+
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex As SqlException
+            Me.OnError("Ocurrió un error al eliminar la Característica del Activo Fijo.", Ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
+
+#Region "O P E R A D O R E S"
+    Public Function GetTipoOperadores(CveTipoOperador As String, CveEmpresa As Integer, Estatus As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_TipoOperadoresGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoOperador", SqlDbType.VarChar).Value = CveTipoOperador
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Tipo Operador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddOperador(Operador As String, CveTipoOperador As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveTransportista As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_OperadoresAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Operador", SqlDbType.VarChar).Value = Operador
+            .Add("@CveTipoOperador", SqlDbType.VarChar).Value = CveTipoOperador
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveTransportista", SqlDbType.Int).Value = CveTransportista
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el Operador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateOperador(CveOperador As Integer, Operador As String, CveTipoOperador As String, CveUsuario As Integer, CveEmpresa As Integer, Estatus As Integer, Optional CveTransportista As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_OperadoresUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOperador", SqlDbType.Int).Value = CveOperador
+            .Add("@Operador", SqlDbType.VarChar).Value = Operador
+            .Add("@CveTipoOperador", SqlDbType.VarChar).Value = CveTipoOperador
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CveTransportista", SqlDbType.Int).Value = CveTransportista
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el chofer.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemoveOperador(CveOperador As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_OperadoresRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOperador", SqlDbType.Int).Value = CveOperador
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el Operador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetOperadores(CveOperador As Integer, CveEmpresa As Integer, Estatus As Integer, Optional CveTransportista As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_OperadoresGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOperador", SqlDbType.Int).Value = CveOperador
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CveTransportista", SqlDbType.Int).Value = CveTransportista
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el chofer.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "T I P O S  C O M B U S T I B L E S"
+    Public Function GetTiposCombustible(CveTipoCombustible As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_TiposCombustibleGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTiposCombustible", SqlDbType.VarChar).Value = CveTipoCombustible
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Tipos de combustible", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddTipoCombustible(TipoCombustible As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_TiposCombustibleAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@TipoCombustible", SqlDbType.VarChar).Value = TipoCombustible
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el tipo de combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateTipoCombustible(CveTipoCombustible As Integer, TipoCombustible As String, Estatus As Integer, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_TiposCombustibleUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoCombustible", SqlDbType.Int).Value = CveTipoCombustible
+            .Add("@TipoCombustible", SqlDbType.VarChar).Value = TipoCombustible
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el tipo de combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemoveTipoCombustible(CveTipoCombustible As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_OperadoresRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoCombustible", SqlDbType.Int).Value = CveTipoCombustible
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el Operador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "C O M B U S T I B L E S"
+    Public Function GetCombustibles(CveCombustible As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CombustiblesGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddCombustible(Combustible As String, CveTipoCombustible As Integer, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CombustiblesAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Combustible", SqlDbType.VarChar).Value = Combustible
+            .Add("@CveTipoCombustible", SqlDbType.Int).Value = CveTipoCombustible
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el Combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateCombustible(CveCombustible As Integer, Combustible As String, CveTipoCombustible As Integer, Estatus As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CombustiblesUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
+            .Add("@Combustible", SqlDbType.VarChar).Value = Combustible
+            .Add("@CveTipoCombustible", SqlDbType.Int).Value = CveTipoCombustible
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el Combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemoveCombustible(CveCombustible As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CombustiblesRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el Combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "C A R G A S    C O M B U S T I B L E S "
+    Public Function GetCargasCombustible(CveAF As Integer, CveProveedor As Integer, CveTipoAF As Integer, CveSubProyecto As Integer, FechaI As String, FechaF As String, CveEmpresa As Integer, Optional CveCargaCombustible As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CargaCombustibleGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
+            .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
+            .Add("@CveEmpresa", SqlDbType.VarChar).Value = CveEmpresa
+            .Add("@CveCargaCombustible", SqlDbType.Int).Value = CveCargaCombustible
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las cargas de combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddCargaCombustible(CveCombustible As Integer, CveProveedor As Integer, CveAF As Integer, Folio As String, FechaCarga As DateTime, TanqueLleno As Integer, Cantidad As Double, CostoUnitario As Double, Odometro As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_CargaCombustiblesAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@Folio", SqlDbType.VarChar).Value = Folio
+            .Add("@FechaCarga", SqlDbType.DateTime).Value = FechaCarga
+            .Add("@TanqueLleno", SqlDbType.Int).Value = TanqueLleno
+            .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
+            .Add("@CostoUnitario", SqlDbType.SmallMoney).Value = CostoUnitario
+            .Add("@Odometro", SqlDbType.SmallMoney).Value = Odometro
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la carga de combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetRepCargasCombustible(FechaI As String, FechaF As String, CveTipoAF As Integer, CveSubProyecto As Integer, GPO As Integer, CveProveedor As Integer, CveEstatus As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_RepCargasCombustibleGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@FechaI", SqlDbType.VarChar).Value = FechaI
+            .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
+            .Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@GPO", SqlDbType.Int).Value = GPO
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de Flotillas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "P L A C A S"
+    Public Function GetPlacas(CvePlaca As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_PlacasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePlaca", SqlDbType.Int).Value = CvePlaca
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Placas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddPlacas(CveAF As Integer, Placa As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional Observacion As String = "-1", Optional Adjunto As String = "-1",
+                              Optional FechaExpedicion As String = "-1", Optional FechaVencimiento As String = "-1") As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_PlacasAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@Placa", SqlDbType.VarChar).Value = Placa
+            .Add("@FechaExpedicion", SqlDbType.VarChar).Value = FechaExpedicion
+            .Add("@FechaVencimiento", SqlDbType.VarChar).Value = FechaVencimiento
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
+            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la placa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdatePlacas(CvePlaca As Integer, Placa As String, Optional Observacion As String = "-1", Optional Adjunto As String = "-1", Optional FechaExpedicion As Date = MinFecha, Optional FechaVencimiento As Date = MinFecha) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_PlacasUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePlaca", SqlDbType.Int).Value = CvePlaca
+            .Add("@Placa", SqlDbType.VarChar).Value = Placa
+            .Add("@FechaExpedicion", SqlDbType.Date).Value = FechaExpedicion
+            .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento
+            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
+            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la placa", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemovePlaca(CvePlaca As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_PlacasRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePlaca", SqlDbType.Int).Value = CvePlaca
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar la placa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetRepPlacas(CvePlaca As Integer, CveAF As Integer, CveEmpresa As Integer, FechaExpedicionI As DateTime, FechaExpedicionF As DateTime, FechaVencimientoI As DateTime, FechaVencimientoF As DateTime, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_RepPlacas")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePlaca", SqlDbType.Int).Value = CvePlaca
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@FechaExpedicionI", SqlDbType.DateTime).Value = FechaExpedicionI
+            .Add("@FechaExpedicionF", SqlDbType.DateTime).Value = FechaExpedicionF
+            .Add("@FechaVencimientoI", SqlDbType.DateTime).Value = FechaVencimientoI
+            .Add("@FechaVencimientoF", SqlDbType.DateTime).Value = FechaVencimientoF
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Placas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "L I C E N C I A S"
+    Public Function GetLicencias(CveLicencia As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_LicenciasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveLicencia", SqlDbType.Int).Value = CveLicencia
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Licencias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetLicenciasVencidas(CveLicencia As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional Estatus As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_LicenciasVencidasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveLicencia", SqlDbType.Int).Value = CveLicencia
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Licencias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetLicenciasRep(CveLicencia As Integer, CveAF As Integer, CveEmpresa As Integer, FechaEI As DateTime, FechaEF As DateTime, FechaVI As DateTime, FechaVF As DateTime, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional Estatus As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_LicenciasRepGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveLicencia", SqlDbType.Int).Value = CveLicencia
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@FechaEI", SqlDbType.DateTime).Value = FechaEI
+            .Add("@FechaEF", SqlDbType.DateTime).Value = FechaEF
+            .Add("@FechaVI", SqlDbType.DateTime).Value = FechaVI
+            .Add("@FechaVF", SqlDbType.DateTime).Value = FechaVF
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveCliente", SqlDbType.Int).Value = Estatus
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Licencias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddLicencia(CveAF As Integer, Licencia As String, FechaExpedicion As DateTime, FechaVencimiento As DateTime, CveUsuario As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional Observacion As String = "-1", Optional Adjunto As String = "-1", Optional CvePersonal As Integer = -1, Optional Estatus As Boolean = True) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_LicenciasAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
+            .Add("@FechaExpedicion", SqlDbType.DateTime).Value = FechaExpedicion
+            .Add("@FechaVencimiento", SqlDbType.DateTime).Value = FechaVencimiento
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
+            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la licencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateLicencia(CveLicencia As Integer, Licencia As String, FechaExpedicion As DateTime, FechaVencimiento As DateTime, Optional Observacion As String = "-1", Optional Adjunto As String = "-1", Optional Estatus As Boolean = True) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_LicenciasUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveLicencia", SqlDbType.Int).Value = CveLicencia
+            .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
+            .Add("@FechaExpedicion", SqlDbType.DateTime).Value = FechaExpedicion
+            .Add("@FechaVencimiento", SqlDbType.DateTime).Value = FechaVencimiento
+            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
+            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la licencia", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemoveLicencia(CveLicencia As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_LicenciasRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveLicencia", SqlDbType.Int).Value = CveLicencia
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar la licencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "P O L I Z A S   S E G U R O S "
+    Public Function GetPolizasSeguro(CvePoliza As Integer, CveAF As Integer, CveProveedor As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_PolizasSeguroGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Pólizas de seguro", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetRepPolizaSeguro(CveAF As Integer, CveProveedor As Integer, FechaExpedicionI As DateTime, FechaExpedicionF As DateTime, FechaVencimientoI As DateTime, FechaVencimientoF As DateTime, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_RepPolizaSeguroGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@FechaExpedicionI", SqlDbType.DateTime).Value = FechaExpedicionI
+            .Add("@FechaExpedicionF", SqlDbType.DateTime).Value = FechaExpedicionF
+            .Add("@FechaVencimientoI", SqlDbType.DateTime).Value = FechaVencimientoI
+            .Add("@FechaVencimientoF", SqlDbType.DateTime).Value = FechaVencimientoF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de Polizas de Seguros.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddPolizasSeguro(CveAF As Integer, CveProveedor As Integer, PolizaSeguro As String, FechaExpedicion As DateTime, FechaVencimiento As DateTime, CveUsuario As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional Observacion As String = "-1", Optional Adjunto As String = "-1", Optional Proveedor As String = "-1") As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_PolizasSegurosAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@PolizaSeguro", SqlDbType.VarChar).Value = PolizaSeguro
+            .Add("@FechaExpedicion", SqlDbType.DateTime).Value = FechaExpedicion
+            .Add("@FechaVencimiento", SqlDbType.DateTime).Value = FechaVencimiento
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
+            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
+            .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la póliza de seguro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdatePolizaSeguro(CvePoliza As Integer, CveProveedor As Integer, PolizaSeguro As String, FechaExpedicion As DateTime, FechaVencimiento As DateTime, Optional Observacion As String = "-1", Optional Adjunto As String = "-1", Optional Proveedor As String = "-1") As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_PolizasSegurosUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@PolizaSeguro", SqlDbType.VarChar).Value = PolizaSeguro
+            .Add("@FechaExpedicion", SqlDbType.DateTime).Value = FechaExpedicion
+            .Add("@FechaVencimiento", SqlDbType.DateTime).Value = FechaVencimiento
+            .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
+            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
+            .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la póliza de seguro", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemovePoliza(CvePoliza As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_PolizasSeguroRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar la póliza de seguro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "I N C I D E N T E S "
+    Public Function GetIncidentes(CveIncidente As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_IncidentesGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveIncidente", SqlDbType.Int).Value = CveIncidente
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Incidentes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetIncidentesRep(CveIncidente As Integer, CveAF As Integer, CveEmpresa As Integer, FechaInicio As String, FechaFin As String, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_IncidentesRepGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveIncidente", SqlDbType.Int).Value = CveIncidente
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@FechaInicial", SqlDbType.VarChar).Value = FechaInicio
+            .Add("@FechaFinal", SqlDbType.VarChar).Value = FechaFin
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de Incidentes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddIncidente(CveAF As Integer, Asunto As String, Descripcion As String, Odometro As Double, Horometro As Double, Prioridad As Integer, FechaIncidente As DateTime, CveUsuario As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_IncidentesAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@Asunto", SqlDbType.VarChar).Value = Asunto
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@Odometro", SqlDbType.Float).Value = Odometro
+            .Add("@Horometro", SqlDbType.Float).Value = Horometro
+            .Add("@FechaIncidente", SqlDbType.DateTime).Value = FechaIncidente
+            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el incidente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateIncidente(CveIncidente As Integer, Asunto As String, Descripcion As String, Odometro As Double, Horometro As Double, Prioridad As Integer, FechaIncidente As DateTime) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_IncidentesUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveIncidente", SqlDbType.Int).Value = CveIncidente
+            .Add("@Asunto", SqlDbType.VarChar).Value = Asunto
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@Odometro", SqlDbType.Float).Value = Odometro
+            .Add("@Horometro", SqlDbType.Float).Value = Horometro
+            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
+            .Add("@FechaIncidente", SqlDbType.DateTime).Value = FechaIncidente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el incidente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemoveIncidente(CveIncidente As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_IncidenteRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveIncidente", SqlDbType.Int).Value = CveIncidente
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el incidente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "F A  L L A S  / A C C I D E N T E S "
+    Public Function GetTipoFallas(CveTipoFalla As Integer, CveEmpresa As Integer, ClasificacionTipoFalla As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_TipoFallasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoFalla", SqlDbType.Int).Value = CveTipoFalla
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@ClasificacionTipoFalla", SqlDbType.Int).Value = ClasificacionTipoFalla
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Tipo Fallas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetFallas(CveFalla As Integer, CveAF As Integer, CveEmpresa As Integer, CveTipoFalla As Integer, ClasificacionTipoFalla As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_FallasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFalla", SqlDbType.Int).Value = CveFalla
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveTipoFalla", SqlDbType.Int).Value = CveTipoFalla
+            .Add("@ClasificacionTipoFalla", SqlDbType.Int).Value = ClasificacionTipoFalla
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Fallas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddFalla(CveAF As Integer, Asunto As String, Descripcion As String, AFMedida As Integer, Prioridad As Integer, FechaFalla As DateTime, CveUsuario As Integer, CveEmpresa As Integer, CveTipoFalla As Integer, CorreoNotificacion As String) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_FallasAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@Asunto", SqlDbType.VarChar).Value = Asunto
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@AFMedida", SqlDbType.Int).Value = AFMedida
+            .Add("@FechaFalla", SqlDbType.DateTime).Value = FechaFalla
+            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveTipoFalla", SqlDbType.Int).Value = CveTipoFalla
+            .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al Registrar la Falla.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateFalla(CveFalla As Integer, Asunto As String, Descripcion As String, AFMedida As Integer, Prioridad As Integer, FechaFalla As DateTime, CveTipoFalla As Integer, CorreoNotificacion As String) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_FallasUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFalla", SqlDbType.Int).Value = CveFalla
+            .Add("@Asunto", SqlDbType.VarChar).Value = Asunto
+            .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
+            .Add("@AFMedida", SqlDbType.Int).Value = AFMedida
+            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
+            .Add("@FechaFalla", SqlDbType.DateTime).Value = FechaFalla
+            .Add("@CveTipoFalla", SqlDbType.Int).Value = CveTipoFalla
+            .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la falla", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemoveFalla(CveFalla As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_FallasRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFalla", SqlDbType.Int).Value = CveFalla
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar la falla.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+#Region "S E R V I C I O S"
+    Public Function GetServicios(CveServicio As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ServiciosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveServicio", SqlDbType.Int).Value = CveServicio
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Servicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetServiciosTotal(CveServicio As Integer, CveAF As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ServiciosTotalCompraGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveServicio", SqlDbType.Int).Value = CveServicio
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Servicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddServicio(CveAF As Integer, CveTipoServicio As Integer, FechaServicio As DateTime, CveProveedor As Integer, CveCompra As Integer, Horometro As Double, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1, Optional Proveedor As String = "-1", Optional Importe As Double = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ServiciosAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@Horometro", SqlDbType.Float).Value = Horometro
+            .Add("@FechaServicio", SqlDbType.DateTime).Value = FechaServicio
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor
+            .Add("@Importe", SqlDbType.Float).Value = Importe
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateServicio(CveServicio As Integer, CveTipoServicio As Integer, FechaServicio As DateTime, CveProveedor As Integer, CveCompra As Integer, Horometro As Double, Observaciones As String, Optional Proveedor As String = "-1", Optional Importe As Double = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ServiciosUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveServicio", SqlDbType.Int).Value = CveServicio
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@FechaServicio", SqlDbType.DateTime).Value = FechaServicio
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@Horometro", SqlDbType.Float).Value = Horometro
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@Proveedor", SqlDbType.VarChar).Value = Proveedor
+            .Add("@Importe", SqlDbType.Float).Value = Importe
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el servicio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemoveServicio(CveServicio As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ServiciosRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveServicio", SqlDbType.Int).Value = CveServicio
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetRepServicios(CveAF As Integer, CveEmpresa As Integer, CveTipoServicio As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, Optional CveDispositivo As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_RepServicios")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(DSet)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddMetricasValores(CveAF As Integer, CvePersonal As Integer, CveUsuario As Integer, CveSubProyecto As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        CveMetricaValor = -1
-
-        DataAdapter("PA_AF_MetricasValoresAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de servicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "E V E N T O S   P R O G R A M A D O S "
+    Public Function GetRepEventosProgramados(CveAF As Integer, CveTipoAF As Integer, CveSubTipoAF As Integer, Asunto As String, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_RepEventosProgramadosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF
+            .Add("@CveSubTipoAF", SqlDbType.Int).Value = CveSubTipoAF
+            .Add("@Asunto", SqlDbType.VarChar).Value = Asunto
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de Eventos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "ValesCombustible"
+    Public Function AddValesCombustible(FolioUsuario As Integer, CveCompra As Integer, CveProveedor As Integer, CveAF As Integer, CvePersonal As Integer, Fecha As Date, NombreRecibe As String, CveSubProyecto As Integer, Observaciones As String, Odometro As Integer, CveCombustible As Integer, Litros As Double, TipoVale As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional Recibo As Integer = -1, Optional Importe As Integer = -1) As Integer
+        Dim Retorno As Integer = -1
+
+        DataAdapter("PA_AF_ValesCombustibleAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FolioUsuario", SqlDbType.Int).Value = FolioUsuario
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@NombreRecibe", SqlDbType.VarChar).Value = NombreRecibe
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@Odometro", SqlDbType.Int).Value = Odometro
+            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
+            .Add("@Litros", SqlDbType.Float).Value = Litros
+            .Add("@Recibo", SqlDbType.Float).Value = Recibo
+            .Add("@Importe", SqlDbType.Float).Value = Importe
+            .Add("@TipoVale", SqlDbType.Int).Value = TipoVale
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveVale", SqlDbType.Int).Direction = ParameterDirection.Output
+            .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            FolioVale = SqlAdapter.SelectCommand.Parameters("@vFolio").Value.ToString.ToEntero
+            Retorno = SqlAdapter.SelectCommand.Parameters("@CveVale").Value.ToString.ToEntero
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Vale de Combustible con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar el Vale de Combustible.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+
+        End Try
+
+        Return Retorno
+
+    End Function
+    Public Function GetValesCombustible(CveCompra As Integer, CveValeCombustible As Integer, Folio As Integer, CveProveedor As Integer, CveAF As Integer, CveSubProyecto As Integer, Odometro As Integer, CveCombustible As Integer, Litros As Double, CvePersonal As Integer, CveUsuario As Integer, CveEmpresa As Integer, Recibo As Integer, Importe As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_AF_ValesCombustibleGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveValeCombustible", SqlDbType.Int).Value = CveValeCombustible
+            .Add("@Folio", SqlDbType.Int).Value = Folio
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Odometro", SqlDbType.Int).Value = Odometro
+            .Add("@CveCombustible", SqlDbType.Int).Value = CveCombustible
+            .Add("@Litros", SqlDbType.Float).Value = Litros
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Recibo", SqlDbType.Int).Value = Recibo
+            .Add("@Importe", SqlDbType.Int).Value = Importe
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Estatus de Vales Combustible.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateValeCombustible(CveVale As Integer, CveCompra As Integer, CveProveedor As Integer, NombreRecibe As String, Litros As Double, Recibo As Integer, Importe As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ValesCombustibleUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVale", SqlDbType.Int).Value = CveVale
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@NombreRecibe", SqlDbType.VarChar).Value = NombreRecibe
+            .Add("@Litros", SqlDbType.Float).Value = Litros
+            .Add("@Recibo", SqlDbType.Int).Value = Recibo
+            .Add("@Importe", SqlDbType.Int).Value = Importe
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            OnError("Ocurrió un error al actualizar la cuenta contable en el Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la cuenta contable en el Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+#Region "M E T R I C A S"
+
+    Public Function GetMetricas(CveMetrica As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddMetricas(Metrica As String) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Metrica", SqlDbType.Int).Value = Metrica
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function DeleteMetricas(CveMetrica As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+    Public Function GetMetricasRegistro(CveSubProyecto As Integer, CveEmpresa As Integer, Fecha As Date) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasRegistroGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+        End With
+
+        Try
+            SqlAdapter.Fill(DSet)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetMetricasValores(CveMetricaValor As Integer, CveAF As Integer, CvePersonal As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, FechaI As Date, FechaF As Date,
+                                       CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveTipoActivoFijo", SqlDbType.Int).Value = CveTipoActivoFijo
+            .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(DSet)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddMetricasValores(CveAF As Integer, CvePersonal As Integer, CveUsuario As Integer, CveSubProyecto As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        CveMetricaValor = -1
+
+        DataAdapter("PA_AF_MetricasValoresAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Fecha", SqlDbType.Date).Value = Fecha
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveMetricaValor", SqlDbType.Int).Direction = ParameterDirection.Output
 
 
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            CveMetricaValor = SqlAdapter.SelectCommand.Parameters("@CveMetricaValor").Value.ToString.ToEntero
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemoveMetricasValores(CveMetricaValor As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MetricasValoresRemove")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
-
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetMetricasValoresDetalle(CveEmpresa As Integer, Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MetricasValoresDetalleGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
-            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            CveMetricaValor = SqlAdapter.SelectCommand.Parameters("@CveMetricaValor").Value.ToString.ToEntero
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveMetricasValores(CveMetricaValor As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetMetricasValoresDetalle(CveEmpresa As Integer, Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresDetalleGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
     Public Function AddMetricasValoresDetalle(CveMetricaValor As Integer, CveMetrica As Integer, Valor As Decimal) As Boolean
@@ -3456,723 +3456,724 @@ Public Class ClsAF
         End Try
 
         Return Retorno
-    End Function
-
-    Public Function DeleteMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MetricasValoresDetalleAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
-            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
-            .Add("@Valor", SqlDbType.VarChar).Value = Valor
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
     End Function
 
-#End Region
+    Public Function DeleteMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean
+        Dim Retorno As Boolean = False
 
-#Region "TIPO SERVICIO"
+        DataAdapter("PA_AF_MetricasValoresDetalleAdd")
 
-    Public Function GetTiposServicios(CveTipoServicio As Integer, CveTipoMantenimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposServicioGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@CveTipoMantenimiento", SqlDbType.Int).Value = CveTipoMantenimiento
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddTiposServicios(Nombre As String, CveTipoMantenimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        CveTipoServicio = -1
-        DataAdapter("PA_AF_TiposServicioAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
-            .Add("@CveTipoMantenimiento", SqlDbType.Int).Value = CveTipoMantenimiento
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+            .Add("@Valor", SqlDbType.VarChar).Value = Valor
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
+
+#Region "TIPO SERVICIO"
+
+    Public Function GetTiposServicios(CveTipoServicio As Integer, CveTipoMantenimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposServicioGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@CveTipoMantenimiento", SqlDbType.Int).Value = CveTipoMantenimiento
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddTiposServicios(Nombre As String, CveTipoMantenimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        CveTipoServicio = -1
+        DataAdapter("PA_AF_TiposServicioAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
+            .Add("@CveTipoMantenimiento", SqlDbType.Int).Value = CveTipoMantenimiento
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveTipoServicio", SqlDbType.Int).Direction = ParameterDirection.Output
 
 
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-
-            CveTipoServicio = SqlAdapter.SelectCommand.Parameters("@CveTipoServicio").Value.ToString.ToEntero
-
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateTiposServicios(CveTipoServicio As Integer, Nombre As String, CveTipoMantenimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposServicioUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
-            .Add("@CveTipoMantenimiento", SqlDbType.Int).Value = CveTipoMantenimiento
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function DeleteTiposServicios(CveTipoServicio As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposServicioDelete")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetTiposServiciosActividades(CveTipoServicioActividad As Integer, CveTipoServicio As Integer, CveActividad As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposServiciosActividadesGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicioActividad", SqlDbType.Int).Value = CveTipoServicioActividad
-            .Add("@CveActividad", SqlDbType.Int).Value = CveActividad
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddTiposServiciosActividades(CveActividad As Integer, CveTipoServicio As Integer, Duracion As Decimal, Observaciones As String) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposServiciosActividadesAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActividad", SqlDbType.Int).Value = CveActividad
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@Duracion", SqlDbType.SmallMoney).Value = Duracion
-            .Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateTiposServiciosActividades(CveTipoServicioActividad As Integer, CveActividad As Integer, Duracion As Decimal, Observaciones As String) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposServiciosActividadesUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicioActividad", SqlDbType.Int).Value = CveTipoServicioActividad
-            .Add("@CveActividad", SqlDbType.Int).Value = CveActividad
-            .Add("@Duracion", SqlDbType.SmallMoney).Value = Duracion
-            .Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function DeleteTiposServiciosActividades(CveTipoServicioActividad As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposServiciosActividadesDelete")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicioActividad", SqlDbType.Int).Value = CveTipoServicioActividad
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetTiposServiciosMaterial(CveTipoServicioMaterial As Integer, CveTipoServicio As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposServiciosMaterialGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicioMaterial", SqlDbType.Int).Value = CveTipoServicioMaterial
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los materiales de los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddTiposServiciosMaterial(CveTipoServicio As Integer, Cantidad As Decimal, CveUM As Integer, CvePS As Integer,
-                                                 Tipo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposServiciosMaterialAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
-            .Add("@CveUM", SqlDbType.Int).Value = CveUM
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@Tipo", SqlDbType.TinyInt).Value = Tipo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateTiposServiciosMaterial(CveTipoServicioMaterial As Integer, CveTipoServicio As Integer, Cantidad As Decimal, CveUM As Integer, CvePS As Integer,
-                                                 Tipo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposServiciosMaterialUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicioMaterial", SqlDbType.Int).Value = CveTipoServicioMaterial
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
-            .Add("@CveUM", SqlDbType.Int).Value = CveUM
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@Tipo", SqlDbType.TinyInt).Value = Tipo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function DeleteTiposServiciosMaterial(CveTipoServicioMaterial As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposServiciosMaterialDelete")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicioMaterial", SqlDbType.Int).Value = CveTipoServicioMaterial
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            CveTipoServicio = SqlAdapter.SelectCommand.Parameters("@CveTipoServicio").Value.ToString.ToEntero
+
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function GetTiposMantenimiento(CveTipoMantenimiento As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_TiposMantenimientoGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoMantenimiento", SqlDbType.Int).Value = CveTipoMantenimiento
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los tipos de mantenimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+    Public Function UpdateTiposServicios(CveTipoServicio As Integer, Nombre As String, CveTipoMantenimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposServicioUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
+            .Add("@CveTipoMantenimiento", SqlDbType.Int).Value = CveTipoMantenimiento
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function GetActividades(CveActividad As Integer, CvePuesto As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActividadesGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActividad", SqlDbType.Int).Value = CveActividad
-            .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+    Public Function DeleteTiposServicios(CveTipoServicio As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposServicioDelete")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function AddActividades(Nombre As String, CvePuesto As Integer, Cantidad As Decimal, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActividadesAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
-            .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto
-            .Add("@Cantidad", SqlDbType.SmallMoney).Value = Cantidad
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+
+    Public Function GetTiposServiciosActividades(CveTipoServicioActividad As Integer, CveTipoServicio As Integer, CveActividad As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposServiciosActividadesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoServicioActividad", SqlDbType.Int).Value = CveTipoServicioActividad
+            .Add("@CveActividad", SqlDbType.Int).Value = CveActividad
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function UpdateActividades(CveActividad As Integer, Nombre As String, CvePuesto As Integer, Cantidad As Decimal, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActividadesUpdate")
-
+    Public Function AddTiposServiciosActividades(CveActividad As Integer, CveTipoServicio As Integer, Duracion As Decimal, Observaciones As String) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposServiciosActividadesAdd")
+
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveActividad", SqlDbType.Int).Value = CveActividad
-            .Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
-            .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto
-            .Add("@Cantidad", SqlDbType.SmallMoney).Value = Cantidad
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@Duracion", SqlDbType.SmallMoney).Value = Duracion
+            .Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function DeleteActividades(CveActividad As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_ActividadesDelete")
-
+    Public Function UpdateTiposServiciosActividades(CveTipoServicioActividad As Integer, CveActividad As Integer, Duracion As Decimal, Observaciones As String) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposServiciosActividadesUpdate")
+
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveActividad", SqlDbType.Int).Value = CveActividad
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+            .Add("@CveTipoServicioActividad", SqlDbType.Int).Value = CveTipoServicioActividad
+            .Add("@CveActividad", SqlDbType.Int).Value = CveActividad
+            .Add("@Duracion", SqlDbType.SmallMoney).Value = Duracion
+            .Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function GetCheckListActividadGrupo(CveCheckListActividadGrupo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListGrupoGet")
-
+    Public Function DeleteTiposServiciosActividades(CveTipoServicioActividad As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposServiciosActividadesDelete")
+
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+            .Add("@CveTipoServicioActividad", SqlDbType.Int).Value = CveTipoServicioActividad
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function AddCheckListActividadGrupo(CheckListActividadGrupo As String) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListGrupoAdd")
-
+    Public Function GetTiposServiciosMaterial(CveTipoServicioMaterial As Integer, CveTipoServicio As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposServiciosMaterialGet")
+
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CheckListActividadGrupo", SqlDbType.NVarChar).Value = CheckListActividadGrupo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+            .Add("@CveTipoServicioMaterial", SqlDbType.Int).Value = CveTipoServicioMaterial
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los materiales de los tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function UpdateCheckListActividadGrupo(CveCheckListActividadGrupo As Integer, CheckListActividadGrupo As String) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListGrupoUpdate")
-
+    Public Function AddTiposServiciosMaterial(CveTipoServicio As Integer, Cantidad As Decimal, CveUM As Integer, CvePS As Integer,
+                                                 Tipo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposServiciosMaterialAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
+            .Add("@CveUM", SqlDbType.Int).Value = CveUM
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Tipo", SqlDbType.TinyInt).Value = Tipo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateTiposServiciosMaterial(CveTipoServicioMaterial As Integer, CveTipoServicio As Integer, Cantidad As Decimal, CveUM As Integer, CvePS As Integer,
+                                                 Tipo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposServiciosMaterialUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoServicioMaterial", SqlDbType.Int).Value = CveTipoServicioMaterial
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
+            .Add("@CveUM", SqlDbType.Int).Value = CveUM
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Tipo", SqlDbType.TinyInt).Value = Tipo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function DeleteTiposServiciosMaterial(CveTipoServicioMaterial As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposServiciosMaterialDelete")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoServicioMaterial", SqlDbType.Int).Value = CveTipoServicioMaterial
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las actividades tipos servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetTiposMantenimiento(CveTipoMantenimiento As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_TiposMantenimientoGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoMantenimiento", SqlDbType.Int).Value = CveTipoMantenimiento
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los tipos de mantenimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetActividades(CveActividad As Integer, CvePuesto As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActividadesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActividad", SqlDbType.Int).Value = CveActividad
+            .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddActividades(Nombre As String, CvePuesto As Integer, Cantidad As Decimal, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActividadesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
+            .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto
+            .Add("@Cantidad", SqlDbType.SmallMoney).Value = Cantidad
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateActividades(CveActividad As Integer, Nombre As String, CvePuesto As Integer, Cantidad As Decimal, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActividadesUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActividad", SqlDbType.Int).Value = CveActividad
+            .Add("@Nombre", SqlDbType.NVarChar).Value = Nombre
+            .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto
+            .Add("@Cantidad", SqlDbType.SmallMoney).Value = Cantidad
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function DeleteActividades(CveActividad As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_ActividadesDelete")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveActividad", SqlDbType.Int).Value = CveActividad
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar la actividad", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetCheckListActividadGrupo(CveCheckListActividadGrupo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListGrupoGet")
+
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
-            .Add("@CheckListActividadGrupo", SqlDbType.NVarChar).Value = CheckListActividadGrupo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function DeleteCheckListActividadGrupo(CveCheckListActividadGrupo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListGrupoDelete")
-
+    Public Function AddCheckListActividadGrupo(CheckListActividadGrupo As String) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListGrupoAdd")
+
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+            .Add("@CheckListActividadGrupo", SqlDbType.NVarChar).Value = CheckListActividadGrupo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function GetCheckListTipo(CveCheckListTipo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListTipoGet")
-
+    Public Function UpdateCheckListActividadGrupo(CveCheckListActividadGrupo As Integer, CheckListActividadGrupo As String) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListGrupoUpdate")
+
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+            .Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
+            .Add("@CheckListActividadGrupo", SqlDbType.NVarChar).Value = CheckListActividadGrupo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function AddCheckListTipo(CheckListTipo As String) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListTipoAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CheckListTipo", SqlDbType.NVarChar).Value = CheckListTipo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
+    Public Function DeleteCheckListActividadGrupo(CveCheckListActividadGrupo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListGrupoDelete")
 
-    Public Function UpdateCheckListTipo(CveCheckListTipo As Integer, CheckListTipo As String) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListTipoUpdate")
-
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
-            .Add("@CheckListTipo", SqlDbType.NVarChar).Value = CheckListTipo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+            .Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el grupo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function DeleteCheckListTipo(CveCheckListTipo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListTipoDelete")
-
+    Public Function GetCheckListTipo(CveCheckListTipo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListTipoGet")
+
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+            .Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function GetCheckListActividad(CveCheckListActividad As Integer, CveCheckListActividadGrupo As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListActividadGet")
-
+    Public Function AddCheckListTipo(CheckListTipo As String) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListTipoAdd")
+
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
-            .Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las actividades de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+            .Add("@CheckListTipo", SqlDbType.NVarChar).Value = CheckListTipo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function AddCheckListActividad(CheckListActividad As String, CveCheckListActividadGrupo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListActividadAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CheckListActividad", SqlDbType.NVarChar).Value = CheckListActividad
-            .Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar las actividades de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
+    Public Function UpdateCheckListTipo(CveCheckListTipo As Integer, CheckListTipo As String) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListTipoUpdate")
 
-    Public Function UpdateCheckListActividad(CveCheckListActividad As Integer, CheckListActividad As String, CveCheckListActividadGrupo As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListActividadUpdate")
-
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
-            .Add("@CheckListActividad", SqlDbType.NVarChar).Value = CheckListActividad
-            .Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar las actividades de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+            .Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
+            .Add("@CheckListTipo", SqlDbType.NVarChar).Value = CheckListTipo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function DeleteCheckListActividad(CveCheckListActividad As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListActividadDelete")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar las actividades de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+    Public Function DeleteCheckListTipo(CveCheckListTipo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListTipoDelete")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCheckListTipo", SqlDbType.Int).Value = CveCheckListTipo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el tipo de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function GetCheckList(CveCheckList As Integer, CveTipoServicio As Integer, CveCheckListActividad As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCheckList", SqlDbType.Int).Value = CveCheckList
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+    Public Function GetCheckListActividad(CveCheckListActividad As Integer, CveCheckListActividadGrupo As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListActividadGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
+            .Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las actividades de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function AddCheckList(CveTipoServicio As Integer, CveCheckListActividad As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+    Public Function AddCheckListActividad(CheckListActividad As String, CveCheckListActividadGrupo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListActividadAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CheckListActividad", SqlDbType.NVarChar).Value = CheckListActividad
+            .Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar las actividades de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function UpdateCheckList(CveCheckList As Integer, CveTipoServicio As Integer, CveCheckListActividad As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCheckList", SqlDbType.Int).Value = CveCheckList
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+    Public Function UpdateCheckListActividad(CveCheckListActividad As Integer, CheckListActividad As String, CveCheckListActividadGrupo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListActividadUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
+            .Add("@CheckListActividad", SqlDbType.NVarChar).Value = CheckListActividad
+            .Add("@CveCheckListActividadGrupo", SqlDbType.Int).Value = CveCheckListActividadGrupo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar las actividades de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function DeleteCheckList(CveCheckList As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_CheckListDelete")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCheckList", SqlDbType.Int).Value = CveCheckList
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+    Public Function DeleteCheckListActividad(CveCheckListActividad As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListActividadDelete")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar las actividades de CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetCheckList(CveCheckList As Integer, CveTipoServicio As Integer, CveCheckListActividad As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCheckList", SqlDbType.Int).Value = CveCheckList
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddCheckList(CveTipoServicio As Integer, CveCheckListActividad As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateCheckList(CveCheckList As Integer, CveTipoServicio As Integer, CveCheckListActividad As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCheckList", SqlDbType.Int).Value = CveCheckList
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@CveCheckListActividad", SqlDbType.Int).Value = CveCheckListActividad
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function DeleteCheckList(CveCheckList As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_CheckListDelete")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCheckList", SqlDbType.Int).Value = CveCheckList
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el CheckList", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
 
@@ -4185,176 +4186,176 @@ Public Class ClsAF
 
     Public Function GetOrdenesTrabajoEstatus(CveEmpresa As Integer) As Boolean
 
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_OrdenesTrabajoEstatusGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los estatus", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoEstatusGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los estatus", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
     End Function
 
     Public Function GetOrdenesTrabajo(CveOrdenTrabajo As Integer, CveTipoServicio As Integer, Folio As Integer, CveAF As Integer, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_OrdenesTrabajoGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@Folio", SqlDbType.Int).Value = Folio
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
-            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
-            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-            '.Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal
-            .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@Folio", SqlDbType.Int).Value = Folio
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            '.Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal
+            .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
 
 
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al consultar las ordenes de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al consultar las ordenes de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
     End Function
 
 
     'Public Function GetOrdenesTrabajoAsignacion(CveSubProyecto As Integer, CveAF As Integer, CveTipoServicio As Integer, FechaInicio As Date, FechaFin As Date, Prioridad As Integer, CveEmpresa As Integer) As Boolean
 
-    '    Dim Retorno As Boolean = False
-
-    '    DataAdapter("PA_AF_OrdenesTrabajoAsignacionGet")
-
-    '    With SqlAdapter.SelectCommand.Parameters
-    '        .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
+    '    Dim Retorno As Boolean = False
+
+    '    DataAdapter("PA_AF_OrdenesTrabajoAsignacionGet")
+
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
     '        .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
 
-    '        .Add("@CveAF", SqlDbType.Int).Value = CveAF
-    '        .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-    '        .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
-    '        .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+    '        .Add("@CveAF", SqlDbType.Int).Value = CveAF
+    '        .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+    '        .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
+    '        .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
     ''        .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
 
     '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
 
 
-    '    End With
-
-    '    Try
-    '        SqlAdapter.Fill(Data)
-    '        Retorno = True
-    '    Catch ex As Exception
-    '        OnError("Ocurrió un error al consultar las ordenes de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-    '    End Try
-
-    '    Return Retorno
-
+    '    End With
+
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al consultar las ordenes de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+    '    End Try
+
+    '    Return Retorno
+
     'End Function
 
 
     Public Function AddOrdenesTrabajo(CveTipoServicio As Integer, CveAF As Integer, Servicio As String, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_OrdenesTrabajoAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@Servicio", SqlDbType.VarChar).Value = Servicio
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
-            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
-            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-            .Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal
-            .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-            .Add("@CveOrdenTrabajo", SqlDbType.Int).Direction = ParameterDirection.Output
-            .Add("@Folio", SqlDbType.Int).Direction = ParameterDirection.Output
-
-        End With
-
-        Try
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@Servicio", SqlDbType.VarChar).Value = Servicio
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal
+            .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+            .Add("@CveOrdenTrabajo", SqlDbType.Int).Direction = ParameterDirection.Output
+            .Add("@Folio", SqlDbType.Int).Direction = ParameterDirection.Output
+
+        End With
+
+        Try
             SqlAdapter.Fill(Data)
 
             CveOrdenTrabajo = SqlAdapter.SelectCommand.Parameters("@CveOrdenTrabajo").Value.ToString.ToEntero
-            FolioOT = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString.ToEntero
-
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar la orden de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
+            FolioOT = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString.ToEntero
+
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la orden de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
     End Function
 
 
 
     Public Function UpdateOrdenesTrabajo(CveOrdenTrabajo As Integer, CveTipoServicio As Integer, CveAF As Integer, Servicio As String, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer, CvePersonal As Integer) As Boolean
 
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_OrdenesTrabajoUpdate")
-
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoUpdate")
+
         With SqlAdapter.SelectCommand.Parameters
 
 
             .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
-            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
-            .Add("@CveAF", SqlDbType.Int).Value = CveAF
-            .Add("@Servicio", SqlDbType.VarChar).Value = Servicio
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
-            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
-            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-            .Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal
-            .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@Servicio", SqlDbType.VarChar).Value = Servicio
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal
+            .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
 
-        End With
-
-        Try
+        End With
+
+        Try
             SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la orden de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la orden de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
     End Function
 
 
     Public Function UpdateOrdenesTrabajoOC(CveOrdenTrabajo As Integer, CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_OrdenesTrabajoOCUpdate")
-
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoOCUpdate")
+
         With SqlAdapter.SelectCommand.Parameters
 
 
@@ -4362,76 +4363,76 @@ Public Class ClsAF
             .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
-        End With
-
-        Try
+        End With
+
+        Try
             SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la orden de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la orden de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
     End Function
 
     Public Function GetOrdenesTrabajoMateriales(CveOrdenTrabajo As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_OrdenesTrabajoMaterialesGet")
-
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoMaterialesGet")
+
         With SqlAdapter.SelectCommand.Parameters
 
-            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
+            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
-        End With
-
-        Try
+        End With
+
+        Try
             SqlAdapter.Fill(Data)
 
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los materiales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los materiales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
     End Function
 
     Public Function GetOrdenesTrabajoActividades(CveOrdenTrabajo As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_OrdenesTrabajoActividadesGet")
-
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoActividadesGet")
+
         With SqlAdapter.SelectCommand.Parameters
 
-            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
+            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
-        End With
-
-        Try
+        End With
+
+        Try
             SqlAdapter.Fill(Data)
 
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
     End Function
 
 
     Public Function UpdateOrdenesTrabajoActividades(CveOrdenTrabajoActividad As Integer, Valor As String, Terminado As Integer, Observaciones As String, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_OrdenesTrabajoActividadesUpdate")
-
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoActividadesUpdate")
+
         With SqlAdapter.SelectCommand.Parameters
 
             .Add("@CveOrdenTrabajoActividad", SqlDbType.Int).Value = CveOrdenTrabajoActividad
@@ -4440,104 +4441,104 @@ Public Class ClsAF
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
-        End With
-
-        Try
+        End With
+
+        Try
             SqlAdapter.Fill(Data)
 
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar las actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar las actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
     End Function
 
     Public Function GetOrdenesTrabajoCheckList(CveOrdenTrabajo As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_OrdenesTrabajoCheckListGet")
-
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoCheckListGet")
+
         With SqlAdapter.SelectCommand.Parameters
 
-            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
+            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
-        End With
-
-        Try
+        End With
+
+        Try
             SqlAdapter.Fill(Data)
 
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el check list", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el check list", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
     End Function
 
     Public Function UpdateOrdenesTrabajoCheckList(CveOrdenTrabajoCheckList As Integer, Valor As String, Terminado As Integer, Observaciones As String, Estatus As Integer, CveEmpresa As Integer) As Boolean
 
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_OrdenesTrabajoCheckListUpdate")
-
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoCheckListUpdate")
+
         With SqlAdapter.SelectCommand.Parameters
 
             .Add("@CveOrdenTrabajoCheckList", SqlDbType.Int).Value = CveOrdenTrabajoCheckList
             .Add("@Valor", SqlDbType.VarChar).Value = Valor
             .Add("@Terminado", SqlDbType.Int).Value = Terminado
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
-        End With
-
-        Try
+        End With
+
+        Try
             SqlAdapter.Fill(Data)
 
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el check list", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el check list", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
     End Function
 
 #End Region
 
-#End Region
+#End Region
 
 
-#Region " IDisposable Support "
+#Region " IDisposable Support "
     ' IDisposable
-    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
-        If Not disposedValue Then
-            If disposing Then
-                ' TODO: Liberar otro estado (objetos administrados).
-                SqlConexion.Close()
-                SqlConexion.Dispose()
-                If Not Data Is Nothing Then Data.Dispose()
-                If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
-
-            End If
-
-            ' TODO: Liberar su propio estado (objetos no administrados).
-            ' TODO: Establecer campos grandes como Null.
-        End If
-        disposedValue = True
-    End Sub
-
-    ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
-    Public Sub Dispose() Implements IDisposable.Dispose
-        ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
-        ConexionClose()
-        Dispose(True)
-        GC.SuppressFinalize(Me)
-    End Sub
-#End Region
-End Class
+    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
+        If Not disposedValue Then
+            If disposing Then
+                ' TODO: Liberar otro estado (objetos administrados).
+                SqlConexion.Close()
+                SqlConexion.Dispose()
+                If Not Data Is Nothing Then Data.Dispose()
+                If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+
+            End If
+
+            ' TODO: Liberar su propio estado (objetos no administrados).
+            ' TODO: Establecer campos grandes como Null.
+        End If
+        disposedValue = True
+    End Sub
+
+    ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
+    Public Sub Dispose() Implements IDisposable.Dispose
+        ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+        ConexionClose()
+        Dispose(True)
+        GC.SuppressFinalize(Me)
+    End Sub
+#End Region
+End Class
diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 5098d660e..9ab441dc1 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -1718,7 +1718,7 @@ Public Class ClsBancos
 
         Return Retorno
     End Function
-    Public Function CancelarBancos_IE(CveUsuario As Integer, CveIE As Integer, MesAnterior As Boolean, IdPoliza As Integer, FolioPoliza As Integer, Optional FechaCancelacion As Date = MinFecha, Optional TipoMovimiento As Integer = 1) As Integer
+    Public Function CancelarBancos_IE(CveUsuario As Integer, CveIE As Integer, MesAnterior As Boolean, IdPoliza As Integer, FolioPoliza As Integer, Optional FechaCancelacion As Date = MinFecha, Optional TipoMovimiento As Integer = 1, Optional CveTipoTransaccionCancelacion As Integer = -1) As Integer
 
         Dim Retorno As Integer = 0
         DataAdapter("PA_Banc_IECancelar")
@@ -1731,6 +1731,7 @@ Public Class ClsBancos
             .Add("@FolioPoliza", SqlDbType.Int).Value = FolioPoliza
             .Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion
             .Add("@TipoMovimiento", SqlDbType.Int).Value = TipoMovimiento
+            .Add("@CveTipoTransaccionCancelacion", SqlDbType.Int).Value = CveTipoTransaccionCancelacion
             .Add("@CvePrePoliza", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 4f6329ac5..0fd71e90d 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -4602,7 +4602,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function GetFletes(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1, Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean
+    Public Function GetFletes(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1, Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha, Optional OpcionInventario As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_FletesGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -4614,6 +4614,7 @@ Public Class ClsInventarios
             .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@OpcionInventario", SqlDbType.Int).Value = OpcionInventario
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index 5b0ffdcff..9ea0c4866 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -1437,7 +1437,7 @@ Public Class ClsMovimientos
                                        Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
                                        Optional CveBanco As Integer = -1, Optional CveCuenta As Integer = -1,
                                        Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1,
-                                       Optional EsDistribuidor As Integer = -1) As Boolean
+                                       Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = Nothing, Optional FechaAplicadoF As Date = Nothing) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_RepRecuperacion")
         With SqlAdapter.SelectCommand.Parameters
@@ -1460,7 +1460,10 @@ Public Class ClsMovimientos
             .Add("@TipoCambio", SqlDbType.Int).Value = TipoCambio
             .Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico
             .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
-            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+            .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+
+            .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
+            .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index ba7d8f608..ee26608db 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7883,6 +7883,7 @@ Public Class ClsPaginas
 
         ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/Nomina/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, ObjNomina.SerieFolio)
 
+        Dim cQr As Byte() = Nothing
         Try
             Dim CadenaOriginalCFD As String = "||1.0|" + FolioFiscal + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|" + SelloCFDi + "|" + NoSerieCertificado + "||"
 
@@ -7899,7 +7900,7 @@ Public Class ClsPaginas
                 RptParametro.Add(New ReportParameter("RFC", ObjPersonal.RFC))
                 RptParametro.Add(New ReportParameter("CURP", ObjPersonal.CURP))
 
-                RptParametro.Add(New ReportParameter("NombreCompleto", ObjPersonal.NombreCompleto))
+                RptParametro.Add(New ReportParameter("NombreCompleto", String.Format("{0} {1} {2}", ObjPersonal.Nombres, ObjPersonal.APaterno, ObjPersonal.AMaterno).Trim()))
                 RptParametro.Add(New ReportParameter("Regimen", ObjPersonal.RegimenContratacion))
                 RptParametro.Add(New ReportParameter("RiesgoPuesto", ObjPersonal.RiesgoPuesto))
 
@@ -7926,23 +7927,18 @@ Public Class ClsPaginas
                     RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo))
 
                     RptParametro.Add(New ReportParameter("DiasPagados", ObjNomina.DiasPagados.ToString))
-                    RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago))
-                    RptParametro.Add(New ReportParameter("FormaPago", ObjNomina.FormaPago))
+                    RptParametro.Add(New ReportParameter("MetodoPago", """PUE"" (Pago en una sola exhibición)"))
+                    RptParametro.Add(New ReportParameter("FormaPago", """99"" (Por definir)"))
 
                     RptParametro.Add(New ReportParameter("Cantidad", "1"))
-                    RptParametro.Add(New ReportParameter("Unidad", "SERVICIO"))
+                    RptParametro.Add(New ReportParameter("Unidad", "ACT"))
                     RptParametro.Add(New ReportParameter("Descripcion", "PAGO DE NÓMINA"))
-                    RptParametro.Add(New ReportParameter("PU", ObjNomina.SubTotal.ToString))
-                    RptParametro.Add(New ReportParameter("Importe", ObjNomina.SubTotal.ToString))
-
-                    RptParametro.Add(New ReportParameter("SubTotal", ObjNomina.SubTotal.ToString))
-                    RptParametro.Add(New ReportParameter("Descuentos", ObjNomina.Descuento.ToString))
-                    RptParametro.Add(New ReportParameter("ISR", ObjNomina.RetISR.ToString))
-                    RptParametro.Add(New ReportParameter("Total", ObjNomina.Total.ToString))
-
+                    RptParametro.Add(New ReportParameter("Total", ObjNomina.Total.ToString()))
 
+                    Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+                    cQr = CBB.GenerarCBBBytes(UsuarioActual.Empresa.RFC, ObjPersonal.RFC, ObjNomina.Total.ToString().ToDecimal(), FolioFiscal)
                     RptParametro.Add(New ReportParameter("ImporteLetra", ObjNomina.Total.ToString.ToDouble.Texto2Letras))
-                    RptParametro.Add(New ReportParameter("Clave", ""))
+                    RptParametro.Add(New ReportParameter("Clave", "84111505"))
                 Else
                     TieneError = True
                 End If
@@ -7959,7 +7955,28 @@ Public Class ClsPaginas
                 End If
             End If
 
+            'PERCECIONES - DEDUCCIONES
+            If ObjNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then
+                DTPercepciones = ObjNomina.DtResultados.FiltraParametros("(Tipo = 'P' OR (Tipo = 'D' AND Importe <0)) AND Importe <>0 AND EsPadre = 1 AND SoloVisible =0")
+                DTDeducciones = ObjNomina.DtResultados.FiltraParametros("Tipo = 'D' AND Importe >0  AND EsPadre = 1 AND SoloVisible =0")
+                For Each row As DataRow In DTPercepciones.Rows
+                    If row("Tipo").ToString() = "D" Then
+                        row("Codigo") = row("Codigo").ToString().Replace("D", "OP")
+                        row("Importe") = row("Importe").ToString().ToDecimal() * -1
+                    End If
+                Next
 
+            Else
+                DTPercepciones = Nothing
+                DTDeducciones = Nothing
+            End If
+
+            RptParametro.Add(New ReportParameter("PU", DTPercepciones.SUM("Importe").ToString()))
+            RptParametro.Add(New ReportParameter("Importe", DTPercepciones.SUM("Importe").ToString()))
+
+            RptParametro.Add(New ReportParameter("SubTotal", DTPercepciones.SUM("Importe").ToString()))
+            RptParametro.Add(New ReportParameter("Descuentos", DTDeducciones.SUM("Importe", "SATCveConcepto <> '002'").ToString()))
+            RptParametro.Add(New ReportParameter("ISR", DTDeducciones.SUM("Importe", "SATCveConcepto = '002'").ToString()))
             'Timbrado
             RptParametro.Add(New ReportParameter("FolioFiscal", FolioFiscal))
             RptParametro.Add(New ReportParameter("CertificadoSAT", NoSerieCertificado))
@@ -7969,16 +7986,18 @@ Public Class ClsPaginas
             RptParametro.Add(New ReportParameter("CadenaOriginal", CadenaOriginalCFD))
             RptParametro.Add(New ReportParameter("QR", ImgCBB.ToString))
 
-            'PERCECIONES - DEDUCCIONES
-            If ObjNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then
-                DTPercepciones = ObjNomina.DtResultados.FiltraParametros("Tipo = 'P' AND EsPadre = 1")
-                DTDeducciones = ObjNomina.DtResultados.FiltraParametros("Tipo = 'D' AND EsPadre = 1")
-            Else
-                DTPercepciones = Nothing
-                DTDeducciones = Nothing
-            End If
 
             Dim LSRds As New List(Of ReportDataSource)
+
+
+            Dim rds2 = New ReportDataSource()
+            Dim limagenes = New List(Of utilImage)()
+            limagenes.Add(New utilImage(cQr))
+            rds2.Name = "dsImagenes"
+            rds2.Value = limagenes
+            LSRds.Add(rds2)
+
+
             Dim RptDS As New ReportDataSource
             RptDS.Name = "DsOC"
             RptDS.Value = DTPercepciones
@@ -8004,7 +8023,7 @@ Public Class ClsPaginas
                         End Try
                     End If
                 Else
-                    ImprimirPDF(String.Format("{0}\Formatos\Nomina.rdlc", RutaEmpresa), LSRds, RptParametro, ObjNomina.SerieFolio)
+                    'ImprimirPDF(String.Format("{0}\Formatos\Nomina.rdlc", RutaEmpresa), LSRds, RptParametro, ObjNomina.SerieFolio)
                 End If
             Else
                 Alert("Ocurrio un error al obtener los datos de la Nomina")
@@ -8020,6 +8039,13 @@ Public Class ClsPaginas
 
         Return Retorno
     End Function
+
+    Public Class utilImage
+        Public Sub New(imagenByte As Byte())
+            Me.ImagenByte = imagenByte
+        End Sub
+        Public Property ImagenByte As Byte()
+    End Class
 #End Region
 
 #Region "PDF PAGOS"
diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index 1a939af3d..8afea1057 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -1,2208 +1,2215 @@
-Option Explicit On
-Option Strict On
-
-Imports System.Data
-Imports System.Data.SqlClient
-Imports Extensiones
-Imports System
-Imports System.Configuration
-Imports Modelos
-
-Public Class ClsProductosServicios
-    Implements IDisposable
-
-#Region "Campos"
-    Private SqlConexion As SqlConnection
-    Private SqlAdapter As SqlDataAdapter
-    Private SqlCommand As SqlCommand
-    Private SqlTransacc As SqlTransaction
-    Private Data As DataTable
-    Private disposedValue As Boolean = False
-    'PARA REGISTRAR CONEXION
-    Private CveConexion As Integer = 0
-    Private EsTransaccionCompartida As Boolean = False
-#End Region
-
-#Region "Propiedades"
-
-    Public Property CvePS As Integer
-    Public Property CveClasificacion As Integer
-    Public Property Clasificacion As String
-    Public Property CveUnidadMedida As Integer
-    Public Property CveSATPS As Integer
-    Public Property SATClavePS As String
-    Public Property SATDescripcion As String
-    Public Property Codigo As String
-    Public Property Codigo2 As String
-    Public Property CodigoBarras As String
-    Public Property PS As String
-    Public Property Precio As Double
-    Public Property PrecioMinimo As Double
-    Public Property Oferta As Double
-    Public Property IVA As Double
-    Public Property RetIVA As Double
-    Public Property MargenGanancia As Double
-    Public Property IdCtaContVentas As Integer
-    Public Property IdCtaContCompras As Integer
-    Public Property IdCtaContInventarios As Integer
-    Public Property AsientoContableVentas As Integer
-    Public Property AsientoContableCompras As Integer
-    Public Property AplicaParaConcepto As Boolean
-    Public Property AplicaParaVenta As Boolean
-    Public Property Estado As Boolean
-    Public Property Fecha As Date
-    Public Property Usuario As String
-    Public Property CveEmpresa As Integer
-    Public Property CveMetodoInventario As Integer
-    Public Property CveTipoPS As Integer
-    Public Property Estado2 As Integer
-    Public Property CveMarca As Integer
-
-    Public Property IEPSPorcentaje As Double
-
-    Public Property AplicaIEPS As Boolean
-    Public Property IEPSGrabaIVA As Boolean
-
-    Public Property AplicaSerie As Boolean
-    Public Property AplicaLote As Boolean
-    Public Property AplicaCaducidad As Boolean
-    Public Property AplicaSeccion As Boolean
-
-    Public Property CveConceptoContable As Integer
-
-    'Nuevo R: 26/09/2017'
-    Public Property Inventariable As Boolean
-    Public Property CveProveedorCompra As Integer
-    Public Property ProveedorCompra As String
-    Public Property VentaMinima As Decimal
-    Public Property CveMoneda As Integer
-    Public Property RetISR As Double
-
-
-    'Nuevo Rjb: 12/01/2018'
-    Public Property CveTipoFactor As Integer
-
-    'Nuevo Raul: 08/03/2018
-    Public Property CveFraccionArancelaria As Integer
-    Public Property CveUnidadAduana As Integer
-    Public Property ClaveSATFraccionArancelariaDescripcion As String
-    Public Property ClaveSATUnidadAduanaDescripcion As String
-    Public Property ClaveSATFraccionArancelaria As String
-    Public Property ClaveSATUnidadAduana As String
-
-    'Nuevo Raul: 10/08/2018
-    Public Property CveUsuarioModifico As Integer
-    Public Property UsuarioModifico As String
-    Public Property FechaUltimaModificacion As Date
-
-    'Nuevo Raul: 11/09/2018
-    Public Property CveClasificacionDetalle As Integer
-    Public Property ClaveImpuestoTipoProducto As String
-    Public Property ClaveImpuestoEmpaque As String
-    Public Property ClaveImpuestoUnidadMedida As String
-    Public Property ClaveCategoriaToxicidad As String
-
-    Public Property EsOutSourcing As Boolean
-
-    Public ReadOnly Property DtResultados() As DataTable
-        Get
-            DtResultados = Data
-        End Get
-    End Property
-#End Region
-
-
-    Sub New()
-        SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
-        SqlAdapter = New SqlDataAdapter("", SqlConexion)
-        Try
-            SqlConexion.Open()
-        Catch ex As Exception
-            OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
-        End Try
-        ConexionAdd()
-    End Sub
-
-
-    Public Function IniciaTransacSQL() As SqlTransaction
-        If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
-
-        Return SqlTransacc
-    End Function
-    Public Sub RollBack()
-        SqlTransacc.Rollback()
-    End Sub
-    Public Sub Commit()
-        SqlTransacc.Commit()
-    End Sub
-
-    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
-
-        If TransaccionCompartida Is Nothing Then
-            SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
-            Try
-                SqlConexion.Open()
-            Catch ex As Exception
-                OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
-            End Try
-        Else
-            SqlConexion = TransaccionCompartida.Connection
-            SqlTransacc = TransaccionCompartida
-            EsTransaccionCompartida = True
-        End If
-
-        SqlAdapter = New SqlDataAdapter("", SqlConexion)
-        ConexionAdd()
-    End Sub
-    Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
-        With SqlAdapter.SelectCommand
-            .Parameters.Clear()
-            .CommandText = StrSQL
-            .CommandType = TipoComando
-        End With
-        If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
-        Data = New DataTable
-    End Sub
-#Region "Conexiones"
-
-    Private Sub ConexionAdd()
-        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
-
-
-            Try
-                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
-                DataAdapter("PA_Sis_RegistrarConexion")
-                With SqlAdapter.SelectCommand.Parameters
-                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
-                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
-                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
-                End With
-                SqlAdapter.Fill(Data)
-                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
-            Catch ex As Exception
-                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End Try
-
-        End If
-    End Sub
-
-    Private Sub ConexionClose()
-        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
-
-            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
-
-            Try
-                SqlAdapter.Fill(Data)
-
-            Catch ex As Exception
-                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End Try
-            CveConexion = 0
-        End If
-
-    End Sub
-#End Region
-    Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1",
-                          Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1,
-                          Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1,
-                          Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_ProductosServiciosGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@Codigo2", SqlDbType.VarChar).Value = Codigo2
-            .Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
-            .Add("@PS", SqlDbType.VarChar).Value = PS
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@EsPaquete", SqlDbType.SmallInt).Value = EsPaquete
-            .Add("@AplicaParaVenta", SqlDbType.Int).Value = pAplicaParaVenta
-            .Add("@Estado", SqlDbType.Int).Value = pEstado
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
-            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
-            .Add("@SATClavePS", SqlDbType.VarChar).Value = SATClavePS
-            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            If Data.Rows.Count > 0 Then
-                Me.CvePS = Data.Rows(0)("CvePS").ToString().ToEntero
-                Me.CveClasificacion = Data.Rows(0)("CveClasificacion").ToString.ToEntero
-                Me.Clasificacion = Data.Rows(0)("Clasificacion").ToString
-                CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero
-                CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero
-                Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString
-                'SATDescripcion = Data.Rows(0)("SATDescripcion").ToString
-                Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero
-                Me.Codigo = Data.Rows(0)("Codigo").ToString
-                Me.Codigo2 = Data.Rows(0)("Codigo2").ToString
-                Me.CodigoBarras = Data.Rows(0)("CodigoBarras").ToString
-                Me.PS = Data.Rows(0)("PS").ToString
-                Precio = Data.Rows(0)("Precio").ToString.ToDouble
-                PrecioMinimo = Data.Rows(0)("PrecioMinimo").ToString.ToDouble
-                Oferta = Data.Rows(0)("Oferta").ToString.ToDouble
-                IVA = Data.Rows(0)("IVA").ToString.ToDouble
-                RetIVA = Data.Rows(0)("RetIVA").ToString.ToDouble
-                CveMarca = Data.Rows(0)("CveMarca").ToString.ToEntero
-                AplicaParaConcepto = CBool(Data.Rows(0)("AplicaParaConcepto").ToString)
-                AplicaParaVenta = Data.Rows(0)("AplicaParaVenta").ToString = "True"
-                Estado = Data.Rows(0)("Estado").ToString = "Activo"
-                Estado2 = Data.Rows(0)("Estado2").ToString.ToEntero
-                Fecha = Data.Rows(0)("Fecha").ToString.ToDate
-                Usuario = Data.Rows(0)("Usuario").ToString
-
-                'AlmacenSeccion = Data.Rows(0)("AlmacenSeccion").ToString
-                AplicaIEPS = (Data.Rows(0)("AplicaIEPS").ToString) = "True"
-                IEPSGrabaIVA = (Data.Rows(0)("IEPSGrabaIVA").ToString) = "True"
-                IEPSPorcentaje = Data.Rows(0)("IEPSPorcentaje").ToString.ToDouble
-                CveConceptoContable = Data.Rows(0)("CveConceptoContable").ToString.ToEntero
-
-                AplicaSerie = (Data.Rows(0)("AplicaSerie").ToString) = "True"
-                AplicaLote = (Data.Rows(0)("AplicaLote").ToString) = "True"
-                AplicaCaducidad = (Data.Rows(0)("AplicaCaducidad").ToString) = "True"
-                AplicaSeccion = (Data.Rows(0)("AplicaSeccion").ToString) = "True"
-
-                'Nuevo R: 26/09/2017'
-
-                Inventariable = Data.Rows(0)("Inventariable").ToString = "True"
-                CveProveedorCompra = Data.Rows(0)("CveProveedorCompra").ToString.ToEntero
-                ProveedorCompra = Data.Rows(0)("ProveedorCompra").ToString
-
-                'Nuevo R: 12/01/2018'
-                CveTipoFactor = Data.Rows(0)("CveTipoFactor").ToString.ToEntero
-
-                Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
-                CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero
-                VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal
-                CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero
-                RetISR = Data.Rows(0)("RetISR").ToString.ToDouble
-
-                'Nuevo Raul: 08/03/2018
-                CveFraccionArancelaria = Data.Rows(0)("CveFraccionArancelaria").ToString.ToEntero
-                CveUnidadAduana = Data.Rows(0)("CveUnidadAduana").ToString.ToEntero
-                ClaveSATFraccionArancelaria = Data.Rows(0)("ClaveSATFraccionArancelaria").ToString
-                ClaveSATUnidadAduana = Data.Rows(0)("ClaveSATUnidadAduana").ToString
-                ClaveSATFraccionArancelariaDescripcion = Data.Rows(0)("ClaveSATFraccionArancelariaDescripcion").ToString
-                ClaveSATUnidadAduanaDescripcion = Data.Rows(0)("ClaveSATUnidadAduanaDescripcion").ToString
-
-                'Nuevo Raul: 10/08/2018
-                CveUsuarioModifico = Data.Rows(0)("CveUsuarioModifico").ToString.ToEntero
-                UsuarioModifico = Data.Rows(0)("UsuarioModifico").ToString
-                FechaUltimaModificacion = Data.Rows(0)("FechaUltimaModificacion").ToString.ToDate
-
-                'Nuevo Raul: 11/09/2018
-                CveClasificacionDetalle = Data.Rows(0)("CveClasificacionDetalle").ToString.ToEntero
-
-                ClaveImpuestoTipoProducto = Data.Rows(0)("ClaveImpuestoTipoProducto").ToString
-                ClaveImpuestoEmpaque = Data.Rows(0)("ClaveImpuestoEmpaque").ToString
-                ClaveImpuestoUnidadMedida = Data.Rows(0)("ClaveImpuestoUM").ToString
-                ClaveCategoriaToxicidad = Data.Rows(0)("ClaveCategoriaToxicidad").ToString
-                EsOutSourcing = Data.Rows(0)("EsOutSourcing").ToString = "True"
-            End If
-            Retorno = True
-        Catch ex As SqlException
-            If CvePS <> -1 Then
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            Else
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End If
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function GetPSSimplificado(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_ProductosServiciosSimplificadoGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-
-            Retorno = True
-        Catch ex As SqlException
-            If CvePS <> -1 Then
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            Else
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End If
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function GetPSLite(CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveTipoPS As Integer = -1, Optional UsoClasificacion As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        ' @CveClasificacion int, @Codigo varchar(50) = '-1', @PS varchar(300) = '-1',  @AplicaParaVenta int = -1, @Estado int = -1, @CodigoBarras varchar(50) = '-1', @CveTipoPS int = -1, @CveEmpresa int
-        DataAdapter("PA_ProductosServiciosLiteGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
-            .Add("@PS", SqlDbType.VarChar).Value = PS
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@AplicaParaVenta", SqlDbType.Int).Value = pAplicaParaVenta
-            .Add("@Estado", SqlDbType.Int).Value = pEstado
-            .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@UsoClasificacion", SqlDbType.Int).Value = UsoClasificacion
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-
-            Retorno = True
-        Catch ex As SqlException
-            If CvePS <> -1 Then
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            Else
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End If
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function GetPSClasificados(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_ProductosServiciosClasificadosGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-
-            Retorno = True
-        Catch ex As SqlException
-            If CvePS <> -1 Then
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            Else
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End If
-        End Try
-        Return Retorno
-    End Function
-    Public Function AddPS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, Codigo2 As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
-                          AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveMetodoInventario As Integer, EsPaquete As Integer,
-                          Optional CveTipoPS As Integer = -1, Optional FuePorXML As Boolean = True, Optional TipoServicio As Integer = -1, Optional CveClasificacion2 As Integer = -1,
-                          Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1,
-                          Optional CveConceptoContable As Integer = -1, Optional CveCompuesto As Integer = -1, Optional CveSATPS As Integer = -1, Optional IEPSGrabaIVA As Boolean = False, Optional VentaMinima As Decimal = 0,
-                          Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
-                          Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1,
-                          Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
-                          Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False,
-                          Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1) As Integer
-        Dim Retorno As Integer = -1
-
-        DataAdapter("PA_ProductosServiciosAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
-            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
-            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@Codigo2", SqlDbType.VarChar).Value = If(Codigo2 = "", "-1", Codigo2)
-            .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
-            .Add("@PS", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS)
-            .Add("@Precio", SqlDbType.Float).Value = Precio
-            .Add("@IVA", SqlDbType.Float).Value = IVA
-            .Add("@RetIVA", SqlDbType.Float).Value = RetIVA
-            .Add("@AplicaParaConcepto", SqlDbType.Bit).Value = AplicaParaConcepto
-            .Add("@AplicaParaVenta", SqlDbType.Bit).Value = AplicaParaVenta
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@EsPaquete", SqlDbType.Bit).Value = EsPaquete
-            .Add("@CveMetodoInventario", SqlDbType.Int).Value = CveMetodoInventario
-            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
-            .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
-            .Add("@FuePorXML", SqlDbType.Bit).Value = If(FuePorXML, 1, 0)
-            .Add("@TipoServicio", SqlDbType.Int).Value = TipoServicio
-            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-            .Add("@AlmacenSeccion", SqlDbType.VarChar).Value = AlmacenSeccion
-            .Add("@AplicaIEPS", SqlDbType.Bit).Value = AplicaIEPS
-            .Add("@IEPSGrabaIVA", SqlDbType.Bit).Value = IEPSGrabaIVA
-            .Add("@IEPSPorcentaje", SqlDbType.SmallMoney).Value = IEPSPorcentaje
-            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
-            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
-            .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
-
-            'Nuevo R: 26/09/2017'
-            .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable
-            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
-            .Add("@VentaMinima", SqlDbType.Decimal).Value = VentaMinima
-
-            'Nuevo R: 08/11/2017'
-            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-
-            'Nuevo R: 30/11/2017
-            .Add("@RetISR", SqlDbType.Float).Value = RetISR
-
-
-            'Nuevo Oscar 29/12/2017
-            .Add("@PrecioMinimo", SqlDbType.Money).Value = PrecioMinimo
-
-            'Nuevo Rigo 12/01/2018
-            .Add("@CveTipoFactor", SqlDbType.Int).Value = CveTipoFactor
-
-            'Nuevo Raul 08/03/2018
-            .Add("@CveFraccionArancelaria", SqlDbType.Int).Value = CveFraccionArancelaria
-
-            'Nuevo Raul 11/09/2018
-            .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
-
-            'Nuevo Oscar 31/10/2018
-            .Add("@CveTamaño", SqlDbType.Int).Value = CveTamaño
-
-            'Nuevo Happy 25/04/2019
-            .Add("@CveModelo", SqlDbType.Int).Value = CveModelo
-            .Add("@CveMedida", SqlDbType.Int).Value = CveMedida
-            .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño
-
-            .Add("@ClaveImpuestoTipoProducto", SqlDbType.VarChar).Value = ClaveImpuestoTipoProducto
-            .Add("@ClaveImpuestoEmpaque", SqlDbType.VarChar).Value = ClaveImpuestoEmpaque
-            .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM
-            .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
-            .Add("@Litraje", SqlDbType.Float).Value = Litraje
-            .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing
-
-            .Add("@AplicaSerie", SqlDbType.Bit).Value = AplicaSerie
-            .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote
-            .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad
-            .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports System.Data.SqlClient
+Imports Extensiones
+Imports System
+Imports System.Configuration
+Imports Modelos
+
+Public Class ClsProductosServicios
+    Implements IDisposable
+
+#Region "Campos"
+    Private SqlConexion As SqlConnection
+    Private SqlAdapter As SqlDataAdapter
+    Private SqlCommand As SqlCommand
+    Private SqlTransacc As SqlTransaction
+    Private Data As DataTable
+    Private disposedValue As Boolean = False
+    'PARA REGISTRAR CONEXION
+    Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
+#End Region
+
+#Region "Propiedades"
+
+    Public Property CvePS As Integer
+    Public Property CveClasificacion As Integer
+    Public Property Clasificacion As String
+    Public Property CveUnidadMedida As Integer
+    Public Property CveSATPS As Integer
+    Public Property SATClavePS As String
+    Public Property SATDescripcion As String
+    Public Property Codigo As String
+    Public Property Codigo2 As String
+    Public Property CodigoBarras As String
+    Public Property PS As String
+    Public Property Precio As Double
+    Public Property PrecioMinimo As Double
+    Public Property Oferta As Double
+    Public Property IVA As Double
+    Public Property RetIVA As Double
+    Public Property MargenGanancia As Double
+    Public Property IdCtaContVentas As Integer
+    Public Property IdCtaContCompras As Integer
+    Public Property IdCtaContInventarios As Integer
+    Public Property AsientoContableVentas As Integer
+    Public Property AsientoContableCompras As Integer
+    Public Property AplicaParaConcepto As Boolean
+    Public Property AplicaParaVenta As Boolean
+    Public Property Estado As Boolean
+    Public Property Fecha As Date
+    Public Property Usuario As String
+    Public Property CveEmpresa As Integer
+    Public Property CveMetodoInventario As Integer
+    Public Property CveTipoPS As Integer
+    Public Property Estado2 As Integer
+    Public Property CveMarca As Integer
+
+    Public Property IEPSPorcentaje As Double
+
+    Public Property AplicaIEPS As Boolean
+    Public Property IEPSGrabaIVA As Boolean
+
+    Public Property AplicaSerie As Boolean
+    Public Property AplicaLote As Boolean
+    Public Property AplicaCaducidad As Boolean
+    Public Property AplicaSeccion As Boolean
+
+    Public Property CveConceptoContable As Integer
+
+    'Nuevo R: 26/09/2017'
+    Public Property Inventariable As Boolean
+    Public Property CveProveedorCompra As Integer
+    Public Property ProveedorCompra As String
+    Public Property VentaMinima As Decimal
+    Public Property CveMoneda As Integer
+    Public Property RetISR As Double
+
+
+    'Nuevo Rjb: 12/01/2018'
+    Public Property CveTipoFactor As Integer
+
+    'Nuevo Raul: 08/03/2018
+    Public Property CveFraccionArancelaria As Integer
+    Public Property CveUnidadAduana As Integer
+    Public Property ClaveSATFraccionArancelariaDescripcion As String
+    Public Property ClaveSATUnidadAduanaDescripcion As String
+    Public Property ClaveSATFraccionArancelaria As String
+    Public Property ClaveSATUnidadAduana As String
+
+    'Nuevo Raul: 10/08/2018
+    Public Property CveUsuarioModifico As Integer
+    Public Property UsuarioModifico As String
+    Public Property FechaUltimaModificacion As Date
+
+    'Nuevo Raul: 11/09/2018
+    Public Property CveClasificacionDetalle As Integer
+    Public Property ClaveImpuestoTipoProducto As String
+    Public Property ClaveImpuestoEmpaque As String
+    Public Property ClaveImpuestoUnidadMedida As String
+    Public Property ClaveCategoriaToxicidad As String
+
+    Public Property EsOutSourcing As Boolean
+    Public Property PrecioLibre As Boolean
+
+    Public ReadOnly Property DtResultados() As DataTable
+        Get
+            DtResultados = Data
+        End Get
+    End Property
+#End Region
+
+
+    Sub New()
+        SqlConexion = New SqlConnection
+        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+        SqlAdapter = New SqlDataAdapter("", SqlConexion)
+        Try
+            SqlConexion.Open()
+        Catch ex As Exception
+            OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
+        End Try
+        ConexionAdd()
+    End Sub
+
+
+    Public Function IniciaTransacSQL() As SqlTransaction
+        If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
+
+        Return SqlTransacc
+    End Function
+    Public Sub RollBack()
+        SqlTransacc.Rollback()
+    End Sub
+    Public Sub Commit()
+        SqlTransacc.Commit()
+    End Sub
+
+    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
+
+        If TransaccionCompartida Is Nothing Then
+            SqlConexion = New SqlConnection
+            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            Try
+                SqlConexion.Open()
+            Catch ex As Exception
+                OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
+            End Try
+        Else
+            SqlConexion = TransaccionCompartida.Connection
+            SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
+        End If
+
+        SqlAdapter = New SqlDataAdapter("", SqlConexion)
+        ConexionAdd()
+    End Sub
+    Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand
+            .Parameters.Clear()
+            .CommandText = StrSQL
+            .CommandType = TipoComando
+        End With
+        If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
+        Data = New DataTable
+    End Sub
+#Region "Conexiones"
+
+    Private Sub ConexionAdd()
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+
+            Try
+                'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
+                DataAdapter("PA_Sis_RegistrarConexion")
+                With SqlAdapter.SelectCommand.Parameters
+                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
+                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
+                End With
+                SqlAdapter.Fill(Data)
+                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub ConexionClose()
+        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+
+            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
+
+            Try
+                SqlAdapter.Fill(Data)
+
+            Catch ex As Exception
+                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End Try
+            CveConexion = 0
+        End If
+
+    End Sub
+#End Region
+    Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1",
+                          Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1,
+                          Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1,
+                          Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_ProductosServiciosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+            .Add("@Codigo2", SqlDbType.VarChar).Value = Codigo2
+            .Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
+            .Add("@PS", SqlDbType.VarChar).Value = PS
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@EsPaquete", SqlDbType.SmallInt).Value = EsPaquete
+            .Add("@AplicaParaVenta", SqlDbType.Int).Value = pAplicaParaVenta
+            .Add("@Estado", SqlDbType.Int).Value = pEstado
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@SATClavePS", SqlDbType.VarChar).Value = SATClavePS
+            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            If Data.Rows.Count > 0 Then
+                Me.CvePS = Data.Rows(0)("CvePS").ToString().ToEntero
+                Me.CveClasificacion = Data.Rows(0)("CveClasificacion").ToString.ToEntero
+                Me.Clasificacion = Data.Rows(0)("Clasificacion").ToString
+                CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero
+                CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero
+                Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString
+                'SATDescripcion = Data.Rows(0)("SATDescripcion").ToString
+                Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero
+                Me.Codigo = Data.Rows(0)("Codigo").ToString
+                Me.Codigo2 = Data.Rows(0)("Codigo2").ToString
+                Me.CodigoBarras = Data.Rows(0)("CodigoBarras").ToString
+                Me.PS = Data.Rows(0)("PS").ToString
+                Precio = Data.Rows(0)("Precio").ToString.ToDouble
+                PrecioMinimo = Data.Rows(0)("PrecioMinimo").ToString.ToDouble
+                Oferta = Data.Rows(0)("Oferta").ToString.ToDouble
+                IVA = Data.Rows(0)("IVA").ToString.ToDouble
+                RetIVA = Data.Rows(0)("RetIVA").ToString.ToDouble
+                CveMarca = Data.Rows(0)("CveMarca").ToString.ToEntero
+                AplicaParaConcepto = CBool(Data.Rows(0)("AplicaParaConcepto").ToString)
+                AplicaParaVenta = Data.Rows(0)("AplicaParaVenta").ToString = "True"
+                Estado = Data.Rows(0)("Estado").ToString = "Activo"
+                Estado2 = Data.Rows(0)("Estado2").ToString.ToEntero
+                Fecha = Data.Rows(0)("Fecha").ToString.ToDate
+                Usuario = Data.Rows(0)("Usuario").ToString
+
+                'AlmacenSeccion = Data.Rows(0)("AlmacenSeccion").ToString
+                AplicaIEPS = (Data.Rows(0)("AplicaIEPS").ToString) = "True"
+                IEPSGrabaIVA = (Data.Rows(0)("IEPSGrabaIVA").ToString) = "True"
+                IEPSPorcentaje = Data.Rows(0)("IEPSPorcentaje").ToString.ToDouble
+                CveConceptoContable = Data.Rows(0)("CveConceptoContable").ToString.ToEntero
+
+                AplicaSerie = (Data.Rows(0)("AplicaSerie").ToString) = "True"
+                AplicaLote = (Data.Rows(0)("AplicaLote").ToString) = "True"
+                AplicaCaducidad = (Data.Rows(0)("AplicaCaducidad").ToString) = "True"
+                AplicaSeccion = (Data.Rows(0)("AplicaSeccion").ToString) = "True"
+
+                'Nuevo R: 26/09/2017'
+
+                Inventariable = Data.Rows(0)("Inventariable").ToString = "True"
+                CveProveedorCompra = Data.Rows(0)("CveProveedorCompra").ToString.ToEntero
+                ProveedorCompra = Data.Rows(0)("ProveedorCompra").ToString
+
+                'Nuevo R: 12/01/2018'
+                CveTipoFactor = Data.Rows(0)("CveTipoFactor").ToString.ToEntero
+
+                Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
+                CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero
+                VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal
+                CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero
+                RetISR = Data.Rows(0)("RetISR").ToString.ToDouble
+
+                'Nuevo Raul: 08/03/2018
+                CveFraccionArancelaria = Data.Rows(0)("CveFraccionArancelaria").ToString.ToEntero
+                CveUnidadAduana = Data.Rows(0)("CveUnidadAduana").ToString.ToEntero
+                ClaveSATFraccionArancelaria = Data.Rows(0)("ClaveSATFraccionArancelaria").ToString
+                ClaveSATUnidadAduana = Data.Rows(0)("ClaveSATUnidadAduana").ToString
+                ClaveSATFraccionArancelariaDescripcion = Data.Rows(0)("ClaveSATFraccionArancelariaDescripcion").ToString
+                ClaveSATUnidadAduanaDescripcion = Data.Rows(0)("ClaveSATUnidadAduanaDescripcion").ToString
+
+                'Nuevo Raul: 10/08/2018
+                CveUsuarioModifico = Data.Rows(0)("CveUsuarioModifico").ToString.ToEntero
+                UsuarioModifico = Data.Rows(0)("UsuarioModifico").ToString
+                FechaUltimaModificacion = Data.Rows(0)("FechaUltimaModificacion").ToString.ToDate
+
+                'Nuevo Raul: 11/09/2018
+                CveClasificacionDetalle = Data.Rows(0)("CveClasificacionDetalle").ToString.ToEntero
+
+                ClaveImpuestoTipoProducto = Data.Rows(0)("ClaveImpuestoTipoProducto").ToString
+                ClaveImpuestoEmpaque = Data.Rows(0)("ClaveImpuestoEmpaque").ToString
+                ClaveImpuestoUnidadMedida = Data.Rows(0)("ClaveImpuestoUM").ToString
+                ClaveCategoriaToxicidad = Data.Rows(0)("ClaveCategoriaToxicidad").ToString
+                EsOutSourcing = Data.Rows(0)("EsOutSourcing").ToString = "True"
+                PrecioLibre = Data.Rows(0)("PrecioLibre").ToString = "True"
+
+            End If
+            Retorno = True
+        Catch ex As SqlException
+            If CvePS <> -1 Then
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetPSSimplificado(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_ProductosServiciosSimplificadoGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As SqlException
+            If CvePS <> -1 Then
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetPSLite(CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveTipoPS As Integer = -1, Optional UsoClasificacion As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        ' @CveClasificacion int, @Codigo varchar(50) = '-1', @PS varchar(300) = '-1',  @AplicaParaVenta int = -1, @Estado int = -1, @CodigoBarras varchar(50) = '-1', @CveTipoPS int = -1, @CveEmpresa int
+        DataAdapter("PA_ProductosServiciosLiteGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+            .Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
+            .Add("@PS", SqlDbType.VarChar).Value = PS
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@AplicaParaVenta", SqlDbType.Int).Value = pAplicaParaVenta
+            .Add("@Estado", SqlDbType.Int).Value = pEstado
+            .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@UsoClasificacion", SqlDbType.Int).Value = UsoClasificacion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As SqlException
+            If CvePS <> -1 Then
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetPSClasificados(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_ProductosServiciosClasificadosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As SqlException
+            If CvePS <> -1 Then
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
+        End Try
+        Return Retorno
+    End Function
+    Public Function AddPS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, Codigo2 As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
+                          AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveMetodoInventario As Integer, EsPaquete As Integer,
+                          Optional CveTipoPS As Integer = -1, Optional FuePorXML As Boolean = True, Optional TipoServicio As Integer = -1, Optional CveClasificacion2 As Integer = -1,
+                          Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1,
+                          Optional CveConceptoContable As Integer = -1, Optional CveCompuesto As Integer = -1, Optional CveSATPS As Integer = -1, Optional IEPSGrabaIVA As Boolean = False, Optional VentaMinima As Decimal = 0,
+                          Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
+                          Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1,
+                          Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
+                          Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False,
+                          Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False) As Integer
+        Dim Retorno As Integer = -1
+
+        DataAdapter("PA_ProductosServiciosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
+            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
+            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+            .Add("@Codigo2", SqlDbType.VarChar).Value = If(Codigo2 = "", "-1", Codigo2)
+            .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
+            .Add("@PS", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS)
+            .Add("@Precio", SqlDbType.Float).Value = Precio
+            .Add("@IVA", SqlDbType.Float).Value = IVA
+            .Add("@RetIVA", SqlDbType.Float).Value = RetIVA
+            .Add("@AplicaParaConcepto", SqlDbType.Bit).Value = AplicaParaConcepto
+            .Add("@AplicaParaVenta", SqlDbType.Bit).Value = AplicaParaVenta
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@EsPaquete", SqlDbType.Bit).Value = EsPaquete
+            .Add("@CveMetodoInventario", SqlDbType.Int).Value = CveMetodoInventario
+            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
+            .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
+            .Add("@FuePorXML", SqlDbType.Bit).Value = If(FuePorXML, 1, 0)
+            .Add("@TipoServicio", SqlDbType.Int).Value = TipoServicio
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@AlmacenSeccion", SqlDbType.VarChar).Value = AlmacenSeccion
+            .Add("@AplicaIEPS", SqlDbType.Bit).Value = AplicaIEPS
+            .Add("@IEPSGrabaIVA", SqlDbType.Bit).Value = IEPSGrabaIVA
+            .Add("@IEPSPorcentaje", SqlDbType.SmallMoney).Value = IEPSPorcentaje
+            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
+
+            'Nuevo R: 26/09/2017'
+            .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable
+            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
+            .Add("@VentaMinima", SqlDbType.Decimal).Value = VentaMinima
+
+            'Nuevo R: 08/11/2017'
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+
+            'Nuevo R: 30/11/2017
+            .Add("@RetISR", SqlDbType.Float).Value = RetISR
+
+
+            'Nuevo Oscar 29/12/2017
+            .Add("@PrecioMinimo", SqlDbType.Money).Value = PrecioMinimo
+
+            'Nuevo Rigo 12/01/2018
+            .Add("@CveTipoFactor", SqlDbType.Int).Value = CveTipoFactor
+
+            'Nuevo Raul 08/03/2018
+            .Add("@CveFraccionArancelaria", SqlDbType.Int).Value = CveFraccionArancelaria
+
+            'Nuevo Raul 11/09/2018
+            .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
+
+            'Nuevo Oscar 31/10/2018
+            .Add("@CveTamaño", SqlDbType.Int).Value = CveTamaño
+
+            'Nuevo Happy 25/04/2019
+            .Add("@CveModelo", SqlDbType.Int).Value = CveModelo
+            .Add("@CveMedida", SqlDbType.Int).Value = CveMedida
+            .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño
+
+            .Add("@ClaveImpuestoTipoProducto", SqlDbType.VarChar).Value = ClaveImpuestoTipoProducto
+            .Add("@ClaveImpuestoEmpaque", SqlDbType.VarChar).Value = ClaveImpuestoEmpaque
+            .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM
+            .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
+            .Add("@Litraje", SqlDbType.Float).Value = Litraje
+            .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing
+
+            .Add("@AplicaSerie", SqlDbType.Bit).Value = AplicaSerie
+            .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote
+            .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad
+            .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion
             .Add("@TiempoCaducidad", SqlDbType.SmallInt).Value = TiempoCaducidad
 
-            .Add("@CvePSAdicionalVigencia", SqlDbType.Int).Value = CvePSAdicionalVigencia
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            _CvePS = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
-            Retorno = _CvePS
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
-            ElseIf Ex1.Message.Contains("Número: 2601;") Then
-                Alert("El Nuevo Producto o Servicio tiene Codigo duplicado:" & Codigo, TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddPSApp(PS As MProductoServicio) As Integer
-        Dim Retorno As Integer = -1
-
-        DataAdapter("PA_ProductosServiciosAppAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveClasificacion", SqlDbType.Int).Value = PS.CveClasificacion
-            .Add("@CveClasificacionCosto", SqlDbType.Int).Value = PS.CveClasificacionCosto
-            .Add("@CveUnidadMedida", SqlDbType.Int).Value = PS.CveUnidadMedida
-            .Add("@Codigo", SqlDbType.VarChar).Value = PS.Codigo
-            .Add("@Codigo2", SqlDbType.VarChar).Value = If(PS.Codigo2 = "", "-1", PS.Codigo2)
-            .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(PS.CodigoBarras = "", "-1", PS.CodigoBarras)
-            .Add("@PS", SqlDbType.VarChar).Value = If(PS.PS.Length > 845, PS.PS.Substring(0, 845), PS.PS)
-            .Add("@Precio", SqlDbType.Float).Value = PS.Precio
-            .Add("@IVA", SqlDbType.Float).Value = PS.IVA
-            .Add("@RetIVA", SqlDbType.Float).Value = PS.RetIVA
-            .Add("@AplicaParaConcepto", SqlDbType.Bit).Value = PS.AplicaParaConcepto
-            .Add("@AplicaParaVenta", SqlDbType.Bit).Value = PS.AplicaParaVenta
-            .Add("@CveUsuario", SqlDbType.Int).Value = PS.CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = PS.CveEmpresa
-            .Add("@EsPaquete", SqlDbType.Bit).Value = PS.EsPaquete
-            .Add("@CveMetodoInventario", SqlDbType.Int).Value = PS.CveMetodoInventario
-            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
-            .Add("@CveTipoPS", SqlDbType.Int).Value = PS.CveTipoPS
-            .Add("@FuePorXML", SqlDbType.Bit).Value = PS.FuePorXML
-            .Add("@TipoServicio", SqlDbType.Int).Value = PS.TipoServicio
-            .Add("@CveClasificacion2", SqlDbType.Int).Value = PS.CveClasificacion2
-            .Add("@CveMarca", SqlDbType.Int).Value = PS.CveMarca
-            .Add("@AlmacenSeccion", SqlDbType.VarChar).Value = PS.AlmacenSeccion
-            .Add("@AplicaIEPS", SqlDbType.Bit).Value = PS.AplicaIEPS
-            .Add("@IEPSGrabaIVA", SqlDbType.Bit).Value = PS.IEPSGrabaIVA
-            .Add("@IEPSPorcentaje", SqlDbType.SmallMoney).Value = PS.IEPSPorcentaje
-            .Add("@CveConceptoContable", SqlDbType.Int).Value = PS.CveConceptoContable
-            .Add("@CveCompuesto", SqlDbType.Int).Value = PS.CveCompuesto
-            .Add("@CveSATPS", SqlDbType.Int).Value = PS.CveSATPS
-
-            'Nuevo R: 26/09/2017'
-            .Add("@Inventariable", SqlDbType.Bit).Value = PS.Inventariable
-            .Add("@CveProveedorCompra", SqlDbType.Int).Value = PS.CveProveedorCompra
-            .Add("@VentaMinima", SqlDbType.Decimal).Value = PS.VentaMinima
-
-            'Nuevo R: 08/11/2017'
-            .Add("@CveMoneda", SqlDbType.Int).Value = PS.CveMoneda
-
-            'Nuevo R: 30/11/2017
-            .Add("@RetISR", SqlDbType.Float).Value = PS.RetISR
-
-
-            'Nuevo Oscar 29/12/2017
-            .Add("@PrecioMinimo", SqlDbType.Money).Value = PS.PrecioMinimo
-
-            'Nuevo Rigo 12/01/2018
-            .Add("@CveTipoFactor", SqlDbType.Int).Value = PS.CveTipoFactor
-
-            'Nuevo Raul 08/03/2018
-            .Add("@CveFraccionArancelaria", SqlDbType.Int).Value = PS.CveFraccionArancelaria
-
-            'Nuevo Raul 11/09/2018
-            .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = PS.CveClasificacionDetalle
-
-            'Nuevo Oscar 31/10/2018
-            .Add("@CveTamaño", SqlDbType.Int).Value = PS.CveTamaño
-
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            _CvePS = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
-            Retorno = _CvePS
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
-            ElseIf Ex1.Message.Contains("Número: 2601;") Then
-                Alert("El Nuevo Producto o Servicio tiene Codigo duplicado.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function AddPSSimplificado(PS As MProductoServicio) As Integer
-        Dim Retorno As Integer = -1
-
-        DataAdapter("PA_ProductosServiciosSimplificadoAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveClasificacion", SqlDbType.Int).Value = PS.CveClasificacion
-            .Add("@CveUnidadMedida", SqlDbType.Int).Value = PS.CveUnidadMedida
-            .Add("@Codigo", SqlDbType.VarChar).Value = PS.Codigo
-            .Add("@PS", SqlDbType.VarChar).Value = If(PS.PS.Length > 845, PS.PS.Substring(0, 845), PS.PS)
-            .Add("@AplicaParaVenta", SqlDbType.Bit).Value = PS.AplicaParaVenta
-            .Add("@CveTipoPS", SqlDbType.Int).Value = PS.CveTipoPS
-            .Add("@CveUsuario", SqlDbType.Int).Value = PS.CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = PS.CveEmpresa
-            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            _CvePS = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
-            Retorno = _CvePS
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
-            ElseIf Ex1.Message.Contains("Número: 2601;") Then
-                Alert("El Nuevo Producto o Servicio tiene Codigo duplicado.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdatePS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, Codigo2 As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
-                             AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, Estado As Boolean, CveUsuario As Integer, CvePS As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, CveSATPS As Integer, Optional CveTipoPS As Integer = -1, Optional TipoServicio As Integer = -1,
-                             Optional CveClasificacion2 As Integer = -1, Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1,
-                             Optional CveConceptoContable As Integer = -1, Optional CveCompuesto As Integer = -1, Optional IEPSGrabaIVA As Boolean = False, Optional VentaMinima As Decimal = 0,
-                             Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
-                             Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
-                             Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
-                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
-                             Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1) As Boolean
-
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_ProductosServiciosUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
-            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
-            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@Codigo2", SqlDbType.VarChar).Value = If(Codigo2 = "", "-1", Codigo2)
-            .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
-            .Add("@PS", SqlDbType.VarChar).Value = PS
-            .Add("@Precio", SqlDbType.Float).Value = Precio
-            .Add("@IVA", SqlDbType.Float).Value = IVA
-            .Add("@RetIVA", SqlDbType.Float).Value = RetIVA
-            .Add("@AplicaParaConcepto", SqlDbType.Bit).Value = AplicaParaConcepto
-            .Add("@AplicaParaVenta", SqlDbType.Bit).Value = AplicaParaVenta
-            .Add("@Estado", SqlDbType.Bit).Value = Estado
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@EsPaquete", SqlDbType.Bit).Value = EsPaquete
-            .Add("@CveMetodoInventario", SqlDbType.Int).Value = CveMetodoInventario
-            .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
-            .Add("@TipoServicio", SqlDbType.Int).Value = TipoServicio
-            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-            .Add("@AlmacenSeccion", SqlDbType.VarChar).Value = AlmacenSeccion
-            .Add("@AplicaIEPS", SqlDbType.Bit).Value = AplicaIEPS
-            .Add("@IEPSGrabaIVA", SqlDbType.Bit).Value = IEPSGrabaIVA
-            .Add("@IEPSPorcentaje", SqlDbType.SmallMoney).Value = IEPSPorcentaje
-            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
-            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
-            .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
-
-            'Nuevo R: 26/09/2017'
-            .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable
-            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
-            .Add("@VentaMinima", SqlDbType.Decimal).Value = VentaMinima
-
-            'Nuevo R: 08/11/2017'
-            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-
-            'Nuevo R: 30/11/2017
-            .Add("@RetISR", SqlDbType.Float).Value = RetISR
-
-            'Nuevo Oscar 29/12/2017
-            .Add("@PrecioMinimo", SqlDbType.Money).Value = PrecioMinimo
-
-            'Nuevo Rigo 12/01/2018
-            .Add("@CveTipoFactor", SqlDbType.Int).Value = CveTipoFactor
-
-            'Nuevo Raul 08/03/2018
-            .Add("@CveFraccionArancelaria", SqlDbType.Int).Value = CveFraccionArancelaria
-
-            'Nuevo Raul 10/08/2018
-            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
-
-            'Nuevo Raul 11/09/2018
-            .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
-
-            'Nuevo Oscar 31/10/2018
-            .Add("@CveTamaño", SqlDbType.Int).Value = CveTamaño
-
-            'Nuevo Happy 25/04/2019
-            .Add("@CveModelo", SqlDbType.Int).Value = CveModelo
-            .Add("@CveMedida", SqlDbType.Int).Value = CveMedida
-            .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño
-
-            .Add("@ClaveImpuestoTipoProducto", SqlDbType.VarChar).Value = ClaveImpuestoTipoProducto
-            .Add("@ClaveImpuestoEmpaque", SqlDbType.VarChar).Value = ClaveImpuestoEmpaque
-            .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM
-            .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
-            .Add("@Litraje", SqlDbType.Float).Value = Litraje
-            .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing
-
-            .Add("@AplicaSerie", SqlDbType.Bit).Value = AplicaSerie
-            .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote
-            .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad
-            .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion
+            .Add("@CvePSAdicionalVigencia", SqlDbType.Int).Value = CvePSAdicionalVigencia
+            .Add("@PrecioLibre", SqlDbType.Bit).Value = PrecioLibre
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            _CvePS = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
+            Retorno = _CvePS
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("Número: 2601;") Then
+                Alert("El Nuevo Producto o Servicio tiene Codigo duplicado:" & Codigo, TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddPSApp(PS As MProductoServicio) As Integer
+        Dim Retorno As Integer = -1
+
+        DataAdapter("PA_ProductosServiciosAppAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveClasificacion", SqlDbType.Int).Value = PS.CveClasificacion
+            .Add("@CveClasificacionCosto", SqlDbType.Int).Value = PS.CveClasificacionCosto
+            .Add("@CveUnidadMedida", SqlDbType.Int).Value = PS.CveUnidadMedida
+            .Add("@Codigo", SqlDbType.VarChar).Value = PS.Codigo
+            .Add("@Codigo2", SqlDbType.VarChar).Value = If(PS.Codigo2 = "", "-1", PS.Codigo2)
+            .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(PS.CodigoBarras = "", "-1", PS.CodigoBarras)
+            .Add("@PS", SqlDbType.VarChar).Value = If(PS.PS.Length > 845, PS.PS.Substring(0, 845), PS.PS)
+            .Add("@Precio", SqlDbType.Float).Value = PS.Precio
+            .Add("@IVA", SqlDbType.Float).Value = PS.IVA
+            .Add("@RetIVA", SqlDbType.Float).Value = PS.RetIVA
+            .Add("@AplicaParaConcepto", SqlDbType.Bit).Value = PS.AplicaParaConcepto
+            .Add("@AplicaParaVenta", SqlDbType.Bit).Value = PS.AplicaParaVenta
+            .Add("@CveUsuario", SqlDbType.Int).Value = PS.CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = PS.CveEmpresa
+            .Add("@EsPaquete", SqlDbType.Bit).Value = PS.EsPaquete
+            .Add("@CveMetodoInventario", SqlDbType.Int).Value = PS.CveMetodoInventario
+            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
+            .Add("@CveTipoPS", SqlDbType.Int).Value = PS.CveTipoPS
+            .Add("@FuePorXML", SqlDbType.Bit).Value = PS.FuePorXML
+            .Add("@TipoServicio", SqlDbType.Int).Value = PS.TipoServicio
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = PS.CveClasificacion2
+            .Add("@CveMarca", SqlDbType.Int).Value = PS.CveMarca
+            .Add("@AlmacenSeccion", SqlDbType.VarChar).Value = PS.AlmacenSeccion
+            .Add("@AplicaIEPS", SqlDbType.Bit).Value = PS.AplicaIEPS
+            .Add("@IEPSGrabaIVA", SqlDbType.Bit).Value = PS.IEPSGrabaIVA
+            .Add("@IEPSPorcentaje", SqlDbType.SmallMoney).Value = PS.IEPSPorcentaje
+            .Add("@CveConceptoContable", SqlDbType.Int).Value = PS.CveConceptoContable
+            .Add("@CveCompuesto", SqlDbType.Int).Value = PS.CveCompuesto
+            .Add("@CveSATPS", SqlDbType.Int).Value = PS.CveSATPS
+
+            'Nuevo R: 26/09/2017'
+            .Add("@Inventariable", SqlDbType.Bit).Value = PS.Inventariable
+            .Add("@CveProveedorCompra", SqlDbType.Int).Value = PS.CveProveedorCompra
+            .Add("@VentaMinima", SqlDbType.Decimal).Value = PS.VentaMinima
+
+            'Nuevo R: 08/11/2017'
+            .Add("@CveMoneda", SqlDbType.Int).Value = PS.CveMoneda
+
+            'Nuevo R: 30/11/2017
+            .Add("@RetISR", SqlDbType.Float).Value = PS.RetISR
+
+
+            'Nuevo Oscar 29/12/2017
+            .Add("@PrecioMinimo", SqlDbType.Money).Value = PS.PrecioMinimo
+
+            'Nuevo Rigo 12/01/2018
+            .Add("@CveTipoFactor", SqlDbType.Int).Value = PS.CveTipoFactor
+
+            'Nuevo Raul 08/03/2018
+            .Add("@CveFraccionArancelaria", SqlDbType.Int).Value = PS.CveFraccionArancelaria
+
+            'Nuevo Raul 11/09/2018
+            .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = PS.CveClasificacionDetalle
+
+            'Nuevo Oscar 31/10/2018
+            .Add("@CveTamaño", SqlDbType.Int).Value = PS.CveTamaño
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            _CvePS = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
+            Retorno = _CvePS
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("Número: 2601;") Then
+                Alert("El Nuevo Producto o Servicio tiene Codigo duplicado.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function AddPSSimplificado(PS As MProductoServicio) As Integer
+        Dim Retorno As Integer = -1
+
+        DataAdapter("PA_ProductosServiciosSimplificadoAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveClasificacion", SqlDbType.Int).Value = PS.CveClasificacion
+            .Add("@CveUnidadMedida", SqlDbType.Int).Value = PS.CveUnidadMedida
+            .Add("@Codigo", SqlDbType.VarChar).Value = PS.Codigo
+            .Add("@PS", SqlDbType.VarChar).Value = If(PS.PS.Length > 845, PS.PS.Substring(0, 845), PS.PS)
+            .Add("@AplicaParaVenta", SqlDbType.Bit).Value = PS.AplicaParaVenta
+            .Add("@CveTipoPS", SqlDbType.Int).Value = PS.CveTipoPS
+            .Add("@CveUsuario", SqlDbType.Int).Value = PS.CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = PS.CveEmpresa
+            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            _CvePS = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
+            Retorno = _CvePS
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("Número: 2601;") Then
+                Alert("El Nuevo Producto o Servicio tiene Codigo duplicado.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdatePS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, Codigo2 As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer,
+                             AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, Estado As Boolean, CveUsuario As Integer, CvePS As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, CveSATPS As Integer, Optional CveTipoPS As Integer = -1, Optional TipoServicio As Integer = -1,
+                             Optional CveClasificacion2 As Integer = -1, Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1,
+                             Optional CveConceptoContable As Integer = -1, Optional CveCompuesto As Integer = -1, Optional IEPSGrabaIVA As Boolean = False, Optional VentaMinima As Decimal = 0,
+                             Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
+                             Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
+                             Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
+                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
+                             Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_ProductosServiciosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveClasificacionCosto", SqlDbType.Int).Value = CveClasificacionCosto
+            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
+            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+            .Add("@Codigo2", SqlDbType.VarChar).Value = If(Codigo2 = "", "-1", Codigo2)
+            .Add("@CodigoBarras", SqlDbType.VarChar).Value = If(CodigoBarras = "", "-1", CodigoBarras)
+            .Add("@PS", SqlDbType.VarChar).Value = PS
+            .Add("@Precio", SqlDbType.Float).Value = Precio
+            .Add("@IVA", SqlDbType.Float).Value = IVA
+            .Add("@RetIVA", SqlDbType.Float).Value = RetIVA
+            .Add("@AplicaParaConcepto", SqlDbType.Bit).Value = AplicaParaConcepto
+            .Add("@AplicaParaVenta", SqlDbType.Bit).Value = AplicaParaVenta
+            .Add("@Estado", SqlDbType.Bit).Value = Estado
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@EsPaquete", SqlDbType.Bit).Value = EsPaquete
+            .Add("@CveMetodoInventario", SqlDbType.Int).Value = CveMetodoInventario
+            .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
+            .Add("@TipoServicio", SqlDbType.Int).Value = TipoServicio
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@AlmacenSeccion", SqlDbType.VarChar).Value = AlmacenSeccion
+            .Add("@AplicaIEPS", SqlDbType.Bit).Value = AplicaIEPS
+            .Add("@IEPSGrabaIVA", SqlDbType.Bit).Value = IEPSGrabaIVA
+            .Add("@IEPSPorcentaje", SqlDbType.SmallMoney).Value = IEPSPorcentaje
+            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
+
+            'Nuevo R: 26/09/2017'
+            .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable
+            .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
+            .Add("@VentaMinima", SqlDbType.Decimal).Value = VentaMinima
+
+            'Nuevo R: 08/11/2017'
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+
+            'Nuevo R: 30/11/2017
+            .Add("@RetISR", SqlDbType.Float).Value = RetISR
+
+            'Nuevo Oscar 29/12/2017
+            .Add("@PrecioMinimo", SqlDbType.Money).Value = PrecioMinimo
+
+            'Nuevo Rigo 12/01/2018
+            .Add("@CveTipoFactor", SqlDbType.Int).Value = CveTipoFactor
+
+            'Nuevo Raul 08/03/2018
+            .Add("@CveFraccionArancelaria", SqlDbType.Int).Value = CveFraccionArancelaria
+
+            'Nuevo Raul 10/08/2018
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+
+            'Nuevo Raul 11/09/2018
+            .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
+
+            'Nuevo Oscar 31/10/2018
+            .Add("@CveTamaño", SqlDbType.Int).Value = CveTamaño
+
+            'Nuevo Happy 25/04/2019
+            .Add("@CveModelo", SqlDbType.Int).Value = CveModelo
+            .Add("@CveMedida", SqlDbType.Int).Value = CveMedida
+            .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño
+
+            .Add("@ClaveImpuestoTipoProducto", SqlDbType.VarChar).Value = ClaveImpuestoTipoProducto
+            .Add("@ClaveImpuestoEmpaque", SqlDbType.VarChar).Value = ClaveImpuestoEmpaque
+            .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM
+            .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
+            .Add("@Litraje", SqlDbType.Float).Value = Litraje
+            .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing
+
+            .Add("@AplicaSerie", SqlDbType.Bit).Value = AplicaSerie
+            .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote
+            .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad
+            .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion
             .Add("@TiempoCaducidad", SqlDbType.SmallInt).Value = TiempoCaducidad
 
-            .Add("@CvePSAdicionalVigencia", SqlDbType.Int).Value = CvePSAdicionalVigencia
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("El Producto o Servicio no se guardo debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia)
-            ElseIf Ex1.Message.Contains("Número: 2601;") Then
-                Alert("El Nuevo Producto o Servicio tiene Codigo duplicado.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al intentar guardar los cambios en el Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al intentar guardar los cambios en el Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdateClasificacionPS(CveClasificacion As Integer, CveUsuario As Integer, CvePS As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_ProductosServiciosClasificacionUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("El Producto o Servicio no se guardo debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al intentar guardar los cambios de clasificación del Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al intentar guardar los cambio de clasificación del Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemovePS(CvePS As Integer) As Boolean
-        Dim OnError As Boolean = False
-        DataAdapter("PA_ProductosServiciosRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CvePS", SqlDbType.Int).Value = CvePS
-
-        Try
-            SqlAdapter.Fill(Data)
-            OnError = True
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar El Producto Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return OnError
-    End Function
-    Public Function GetAllPS(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_ProductosServiciosGetAll")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As SqlException
-            If CvePS <> -1 Then
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            Else
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End If
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function GetPrecioUnitarioPS(CveEmpresa As Integer, CvePS As Integer) As Double
-
-        Dim Retorno As Double = -1
-
-        DataAdapter("PA_Inv_PrecioUnitarioSalidaGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@PU", SqlDbType.Money).Direction = ParameterDirection.Output
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = CDbl(SqlAdapter.SelectCommand.Parameters("@PU").Value)
-
-        Catch Ex1 As SqlException
-            Me.OnError("Ocurrió un error al obtener el precio unitario.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el precio unitario", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-#Region "P R O D U C T O S  - E Q U I V A L E N C I A S "
-
-    Public Function GetPSEquivalencias(CvePS As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_ProductosServiciosEquivalenciasGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las equivalencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddPSEquivalencias(CvePS As Integer, CveUM As Integer, Cantidad As Decimal, UnidadBase As Boolean, Precio As Double, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosEquivalenciasAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveUM", SqlDbType.Int).Value = CveUM
-            .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
-            .Add("@UnidadBase", SqlDbType.Bit).Value = UnidadBase
-            .Add("@Precio", SqlDbType.Money).Value = Precio
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-
-
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una equivalencia con la misma unidad de medida.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar la Equivalencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al Guardar la Equivalencia", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdatePSEquivalencias(CvePS As Integer, CveUM As Integer, Cantidad As Decimal, UnidadBase As Boolean, Precio As Double, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosEquivalenciasUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveUM", SqlDbType.Int).Value = CveUM
-            .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
-            .Add("@UnidadBase", SqlDbType.Bit).Value = UnidadBase
-            .Add("@Precio", SqlDbType.Money).Value = Precio
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una equivalencia con la misma unidad de medida." + Ex1.Message.ToString, TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar la Equivalencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la Equivalencia", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemovePSEquivalencias(CvePS As Integer, CveUM As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosEquivalenciasRemove")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveUM", SqlDbType.Int).Value = CveUM
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            Me.OnError("Ocurrió un error al eliminar la equivalencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar la equivalencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-
-
-#End Region
-
-#Region "P R O D U C T O S   A D I C I O N A L E S "
-
-    Public Function GetPSAdicionales(CvePS As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_ProductosServiciosAdicionalesGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los Productos/Servicios Adicionales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddPSAdicionales(CvePS As Integer, CvePSAdicional As Integer, Cantidad As Decimal) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosAdicionalesAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CvePSAdicional", SqlDbType.Int).Value = CvePSAdicional
-            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
-
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una equivalencia con el mismo Producto/Servicio Adicional.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar el Producto/Servicio Adicional.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al Guardar el Producto/Servicio Adicional.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdatePSAdicionales(CvePS As Integer, CvePSAdicional As Integer, CvePSAdicionalAnterior As Integer, Cantidad As Decimal) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosAdicionalesUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CvePSAdicional", SqlDbType.Int).Value = CvePSAdicional
-            .Add("@CvePSAdicionalAnterior", SqlDbType.Int).Value = CvePSAdicionalAnterior
-            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
-
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una equivalencia con el mismo Producto/Servicio Adicional." + Ex1.Message.ToString, TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar el Producto/Servicio Adicional.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el Producto/Servicio Adicional.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemovePSAdicionales(CvePS As Integer, CvePSAdicional As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosAdicionalesRemove")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CvePSAdicional", SqlDbType.Int).Value = CvePSAdicional
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            Me.OnError("Ocurrió un error al eliminar el Producto/Servicio Adicional.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar el Producto/Servicio Adicional.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-
-
-#End Region
-
-#Region "P A Q U E T E S"
-
-    Public Function UpdatePaquete(CvePS As Integer, PS As String, Precio As Double, Estado As Boolean) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Inv_PaqueteUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@PS", SqlDbType.VarChar).Value = PS
-            .Add("@Precio", SqlDbType.Money).Value = Precio
-            .Add("@Estado", SqlDbType.Bit).Value = Estado
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetPaqueteDetalle(CvePSPaquete As Integer, CveEmpresa As Integer, Optional CveUMPaquete As Integer = -1, Optional Cantidad As Double = 0, Optional CveAlmacen As Integer = -1, Optional Fecha As Date = MinFecha, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Inv_PaqueteDetallesGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePSPaquete", SqlDbType.Int).Value = CvePSPaquete
-            .Add("@CveUMPaquete", SqlDbType.Int).Value = CveUMPaquete
-            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
-            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-            .Add("@Fecha", SqlDbType.Date).Value = Fecha
-            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los Productos y servicios del paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddPaqueteDetalle(CvePSPaquete As Integer, CvePS As Integer, Cantidad As Double, Tipo As Integer, CveUnidadMedida As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Inv_PaquetesAdd")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePSPaquete", SqlDbType.Int).Value = CvePSPaquete
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
-            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
-            .Add("@Tipo", SqlDbType.Int).Value = Tipo
-            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe en el Paquete el Producto o Servicio.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al guardar el Paquete.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar el Paquete", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-        Return Retorno
-    End Function
-
-    Public Function DeletePaqueteDetalle(CvePSPaquete As Integer, CvePS As Integer, Cantidad As Double, Tipo As Integer, CveUnidadMedida As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Inv_PaqueteDetalleDelete")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePSPaquete", SqlDbType.Int).Value = CvePSPaquete
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
-            .Add("@Tipo", SqlDbType.Int).Value = Tipo
-            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al ingresar el producto al paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdatePaqueteDetalle(CvePSPaquete As Integer, CvePS As Integer, Cantidad As Double, Tipo As Integer, CveUnidadMedida As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Inv_PaqueteDetalleUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePSPaquete", SqlDbType.Int).Value = CvePSPaquete
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
-            .Add("@Tipo", SqlDbType.SmallInt).Value = Tipo
-            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
-            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-#End Region
-
-#Region "P R O D U C T O S  - S U C U R S A L E S"
-
-    Public Function GetPSSucursales(CvePS As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_ProductosServiciosSucursalesGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las Sucursales habilitadas para el Producto y/o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetPSSucursalesALL(CvePS As Integer, CveEmpresa As Integer, Optional Codigo As String = "", Optional CodigoBarras As String = "", Optional CveSubProyecto As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_ProductosServiciosSucursalesGetAll")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las Sucursales habilitadas para el Producto y/o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddPSSucursales(CvePS As Integer, Importe As Double, Minimo As Double, Maximo As Double, CveUsuario As Integer, CveSubProyecto As Integer, Optional PrecioMinimo As Decimal = Nothing) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosSucursalesAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@Importe", SqlDbType.Float).Value = Importe
-            .Add("@Minimo", SqlDbType.Float).Value = Minimo
-            .Add("@Maximo", SqlDbType.Float).Value = Maximo
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@PrecioMinimo", SqlDbType.Decimal).Value = PrecioMinimo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una Sucursal para el mismo Producto y/o Servicio.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar la Sucursal para Producto y/o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al Guardar la Sucursal para Producto y/o Servicio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdatePSSucursales(CvePS As Integer, Importe As Double, Minimo As Double, Maximo As Double, CveUsuario As Integer, CveSubProyecto As Integer, Optional PrecioMinimo As Decimal = Nothing) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosSucursalesUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@Importe", SqlDbType.Float).Value = Importe
-            .Add("@Minimo", SqlDbType.Float).Value = Minimo
-            .Add("@Maximo", SqlDbType.Float).Value = Maximo
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@PrecioMinimo", SqlDbType.Decimal).Value = PrecioMinimo
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una Sucursal para el mismo Producto y/o Servicio.", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar la Sucursal para Producto y/o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al Guardar la Sucursal para Producto y/o Servicio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemovePSSucursales(CvePS As Integer, CveSubProyecto As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosSucursalesRemove")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            Me.OnError("Ocurrió un error al eliminar la Sucursal para Producto y/o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar la Sucursal para Producto y/o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-#End Region
-
-    'Ubicacion temporal
-    Public Function GetMetodosInv() As Boolean
-        Dim Retorno = False
-
-        DataAdapter("PA_Inv_MetodosGet")
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            Me.OnError("Ocurrió un error al obtener los Metodos de Inventario.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los Metodos de Inventario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-
-    End Function
-
-#Region "   Marcas  "
-    Public Function GetPSAlias(CvePS As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosAliasGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-
-            Retorno = True
-        Catch ex As SqlException
-            If CvePS <> -1 Then
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            Else
-                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End If
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddPSAlias(PS As String, CvePS As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_ProductosServiciosAliasAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@PSAlias", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS)
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                OnError("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            Else
-                Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function RemovePSAlias(CvePS As Integer, PSAlias As String, CveUsuarioModifico As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosAliasRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CvePS", SqlDbType.Int).Value = CvePS
-        SqlAdapter.SelectCommand.Parameters.Add("@PSAlias", SqlDbType.VarChar).Value = PSAlias
-        SqlAdapter.SelectCommand.Parameters.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar el Alias del Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateAplicaSeccionAlmacen(CvePS As Integer, CveEmpresa As Integer, AplicaSeccionAlmacen As Boolean) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_ProductosServiciosSeccionAlmacenUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@AplicaSeccionAlmacen", SqlDbType.Bit).Value = AplicaSeccionAlmacen
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar aplica seccion almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function GetMarcas(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_MarcasGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Marcas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-
-
-    Public Function AddMarcas(Marca As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_MarcasAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Marca", SqlDbType.VarChar).Value = Marca
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe una Marca del Producto o Servicio con el mismo nombre: " & Marca & ".", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar la Marca.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al Guardar la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-
-
-    Public Function RemoveMarca(CveMarca As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_MarcasRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            Me.OnError("Ocurrió un error al eliminar la Marca.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-
-
-
-    Public Function UpdateMarca(Marca As String, CveMarca As Integer, Estatus As Boolean) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_MarcasUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Marca", SqlDbType.VarChar).Value = Marca
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-
-#End Region
-    Public Function GetPSMarcas(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_GRAL_PSMarcasGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Marcas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-
-#Region "IMPUESTOS LOCALES"
-    Public Function GetPSImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_PSImpuestosLocalesGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los datos de impuestos locales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-
-
-    Public Function AddPSImpuestosLocales(CvePS As Integer, CveImpuestoLocal As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_PSImpuestosLocalesAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveImpuestoLocal", SqlDbType.Int).Value = CveImpuestoLocal
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al tratar de agregar datos a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-        Return Retorno
-    End Function
-
-    Public Function LimpiaImpuestosLocales(CveCliente As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_PSImpuestosLocalesRemove")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CveCliente
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al limpiar la lista de deducciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-#End Region
-
-#Region "C O M P U E S T O S"
-    Public Function GetCompuestosActivos(CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_CompuestosGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de Compuestos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-        Return Retorno
-    End Function
-
-
-
-    Public Function AddCompuestoActivo(Compuesto As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_CompuestosAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Compuesto", SqlDbType.VarChar).Value = Compuesto
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe un compuesto activo con el mismo nombre: " & Compuesto & ".", TipoMensaje.MsgAdvertencia)
-            Else
-                Me.OnError("Ocurrió un error al Guardar el compuesto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End If
-        Catch ex As Exception
-            OnError("Ocurrió un error al Guardar el compuesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-
-
-
-    Public Function RemoveCompuestoActivo(CveCompuesto As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_CompuestosRemove")
-
-        SqlAdapter.SelectCommand.Parameters.Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            Me.OnError("Ocurrió un error al eliminar el compuesto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar  el compuesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-
-
-
-    Public Function UpdateCompuestoActivo(Compuesto As String, CveCompuesto As Integer, Estatus As Boolean) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_CompuestoUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Compuesto", SqlDbType.VarChar).Value = Compuesto
-            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el compuesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "UNIFICAR PRODUCTO"
-    Public Function UnificarPS(CvePSPrincipal As Integer, CvePSUnificado As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_PS_PSUnificar")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePSPrincipal", SqlDbType.Int).Value = CvePSPrincipal
-            .Add("@CvePSUnificado", SqlDbType.Int).Value = CvePSUnificado
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        Catch ex As Exception
-            OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-
-#Region "Precios Lista"
-    Public Function GetPSPreciosLista(CveEmpresa As Integer, CvePrecioLista As Integer, Optional CveClasificacion As Integer = -1, Optional CvePS As Integer = -1,
-                                      Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional Marcas As String = "-1", Optional CveModelo As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_PSPrecioListaGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
-            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
-            .Add("@Estado", SqlDbType.Int).Value = Estado
-            .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
-            .Add("@CveModelo", SqlDbType.Int).Value = CveModelo
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el Catálogo de PS con precios de lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdatePSPreciosLista(Importe As Decimal, CvePrecioLista As Integer, Porcentaje As Decimal, CvePS As Integer, CveUsuario As Integer, Fecha As DateTime, Fijo As Boolean, Optional PrecioMinimo As Decimal = Nothing) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_PSPrecioListaAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-            If Importe = -1 Then
-                .Add("@Importe", SqlDbType.Float).Value = DBNull.Value
-            Else
-                .Add("@Importe", SqlDbType.Float).Value = Importe
-            End If
-
-            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
-
-            If Porcentaje = -1 Then
-                .Add("@Porcentaje", SqlDbType.Money).Value = DBNull.Value
-            Else
-                .Add("@Porcentaje", SqlDbType.Money).Value = Porcentaje
-            End If
-
-            .Add("@PrecioMinimo", SqlDbType.Decimal).Value = PrecioMinimo
-
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
-            .Add("@Fijo", SqlDbType.Bit).Value = Fijo
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar los precios de lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdatePSPrecios(Importe As Decimal, CvePrecioLista As Integer, Porcentaje As Decimal, CvePS As Integer, CveUsuario As Integer, Fecha As DateTime, Fijo As Boolean, Optional PrecioMinimo As Decimal = Nothing) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_PSPrecioUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-            If Importe = -1 Then
-                .Add("@Importe", SqlDbType.Float).Value = DBNull.Value
-            Else
-                .Add("@Importe", SqlDbType.Float).Value = Importe
-            End If
-
-            If Porcentaje = -1 Then
-                .Add("@Porcentaje", SqlDbType.Money).Value = DBNull.Value
-            Else
-                .Add("@Porcentaje", SqlDbType.Money).Value = Porcentaje
-            End If
-
-            .Add("@PrecioMinimo", SqlDbType.Decimal).Value = PrecioMinimo
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
-            .Add("@Fijo", SqlDbType.Bit).Value = Fijo
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar los precios de lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-
-    Public Function GetPSPrecioLista(CvePS As Integer, CveEmpresa As Integer, Optional CvePrecioLista As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_ProductosServiciosPrecioListaGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los precios de lista para el Producto/Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-
-    End Function
-
-    Public Function GetPSExistencias(CvePS As Integer, CvePrecioLista As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
-                                    CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1,
-                                    Optional FechaMovto As String = "-1", Optional Serie As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
-                                    Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1",
-                                    Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_ProductosExistenciasGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
-            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
-            .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing)
-            .Add("@Serie", SqlDbType.VarChar).Value = Serie
-            .Add("@Lote", SqlDbType.VarChar).Value = Lote
-            .Add("@Batch", SqlDbType.VarChar).Value = Batch
-            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado
-            .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir
-            .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados
-            .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las productos y sus existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function GetPSExistenciasWS(CvePS As Integer, CvePrecioLista As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
-                                    CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1,
-                                    Optional FechaMovto As String = "-1", Optional Serie As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
-                                    Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1",
-                                    Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_ProductosExistenciasWSGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
-            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
-            .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing)
-            .Add("@Serie", SqlDbType.VarChar).Value = Serie
-            .Add("@Lote", SqlDbType.VarChar).Value = Lote
-            .Add("@Batch", SqlDbType.VarChar).Value = Batch
-            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado
-            .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir
-            .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados
-            .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las productos y sus existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-#End Region
-
-#Region "Porcentaje Productos"
-    Public Function GetPorcentajeProductos(CveCliente As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_PorcentajeProductosGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los porcentajes de los productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddPorcentajeProductos(CveCliente As Integer, CvePS As Integer, PorcentajeProducto As Decimal, CveUsuario As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_PorcentajeProductosAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el porcentaje del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdatePorcentajeProductos(CveCliente As Integer, CvePS As Integer, PorcentajeProducto As Decimal) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_PorcentajeProductosUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el porcentaje del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemovePorcentajeProductos(CveCliente As Integer, CvePS As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_PorcentajeProductosRemove")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el porcentaje del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-
-#Region "Porcentaje Marcas de Productos"
-    Public Function GetPorcentajeMarcas(CveCliente As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_PorcentajeMarcasGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los porcentajes de las Marcas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, CveUsuario As Integer, Optional ProntoPago As Decimal = -1, Optional Plazo As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_PorcentajeMarcasAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-            .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
-            .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2
-            .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@ProntoPago", SqlDbType.SmallMoney).Value = ProntoPago
-            .Add("@Plazo", SqlDbType.SmallInt).Value = Plazo
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el porcentaje de la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, Optional ProntoPago As Decimal = -1, Optional Plazo As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_PorcentajeMarcasUpdate")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-            .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
-            .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2
-            .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3
-            .Add("@ProntoPago", SqlDbType.SmallMoney).Value = ProntoPago
-            .Add("@Plazo", SqlDbType.SmallInt).Value = Plazo
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el porcentaje de la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-    Public Function RemovePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_PorcentajeMarcasRemove")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el porcentaje de la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-#End Region
-#Region "IDisposable Support"
-
-
-    ' IDisposable
-    Protected Overridable Sub Dispose(disposing As Boolean)
-        If Not Me.disposedValue Then
-            If disposing Then
-                ' TODO: dispose managed state (managed objects).
-                If Not Data Is Nothing Then Data.Dispose()
-                If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
-                If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
-                If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
-                If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
-            End If
-
-            ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
-            ' TODO: set large fields to null.
-        End If
-        Me.disposedValue = True
-    End Sub
-
-    ' TODO: override Finalize() only if Dispose(disposing As Boolean) above has code to free unmanaged resources.
-    'Protected Overrides Sub Finalize()
-    '    ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
-    '    Dispose(False)
-    '    MyBase.Finalize()
-    'End Sub
-
-    ' This code added by Visual Basic to correctly implement the disposable pattern.
-    Public Sub Dispose() Implements IDisposable.Dispose
-        ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
-        ConexionClose()
-        Dispose(True)
-        GC.SuppressFinalize(Me)
-    End Sub
-#End Region
-
-
-
-    Public Function GetProductosServiciosSinSAT(Opcion As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_ProductosServiciosSinSATGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Opcion", SqlDbType.Int).Value = Opcion
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los productos sin SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-    Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Gral_ProductosServiciosSATUpdate")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al actualizar la clave SAT del producto o servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
+            .Add("@CvePSAdicionalVigencia", SqlDbType.Int).Value = CvePSAdicionalVigencia
+            .Add("@PrecioLibre", SqlDbType.Bit).Value = PrecioLibre
 
-    Public Function GetProductosModificados(CveEmpresa As Integer, CvePrecioLista As Integer, Optional HorasDiferencia As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_ProductosModificadosGet")
-        With SqlAdapter.SelectCommand.Parameters
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("El Producto o Servicio no se guardo debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("Número: 2601;") Then
+                Alert("El Nuevo Producto o Servicio tiene Codigo duplicado.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al intentar guardar los cambios en el Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al intentar guardar los cambios en el Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdateClasificacionPS(CveClasificacion As Integer, CveUsuario As Integer, CvePS As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_ProductosServiciosClasificacionUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("El Producto o Servicio no se guardo debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al intentar guardar los cambios de clasificación del Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al intentar guardar los cambio de clasificación del Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemovePS(CvePS As Integer) As Boolean
+        Dim OnError As Boolean = False
+        DataAdapter("PA_ProductosServiciosRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CvePS", SqlDbType.Int).Value = CvePS
+
+        Try
+            SqlAdapter.Fill(Data)
+            OnError = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar El Producto Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return OnError
+    End Function
+    Public Function GetAllPS(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_ProductosServiciosGetAll")
+
+        With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
-            .Add("@HorasDiferencia", SqlDbType.Int).Value = HorasDiferencia
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los productos modificados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            If CvePS <> -1 Then
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
+        End Try
+
+        Return Retorno
     End Function
-    Public Function GetPreciosModificados(CveEmpresa As Integer, CvePrecioLista As Integer, Optional HorasDiferencia As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_ProductosPreciosModificadosGet")
-        With SqlAdapter.SelectCommand.Parameters
+    Public Function GetPrecioUnitarioPS(CveEmpresa As Integer, CvePS As Integer) As Double
+
+        Dim Retorno As Double = -1
+
+        DataAdapter("PA_Inv_PrecioUnitarioSalidaGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
-            .Add("@HorasDiferencia", SqlDbType.Int).Value = HorasDiferencia
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los precios modificados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@PU", SqlDbType.Money).Direction = ParameterDirection.Output
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = CDbl(SqlAdapter.SelectCommand.Parameters("@PU").Value)
+
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al obtener el precio unitario.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el precio unitario", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function GetExistenciasEmpresa(Codigo As String, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_ProductosExistenciasEmpresaGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
+#Region "P R O D U C T O S  - E Q U I V A L E N C I A S "
+
+    Public Function GetPSEquivalencias(CvePS As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_ProductosServiciosEquivalenciasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las equivalencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
     End Function
 
-    Public Function GetVendedoresModificados(CveEmpresa As Integer, Optional HorasDiferencia As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_VendedoresModificadosGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@HorasDiferencia", SqlDbType.Int).Value = HorasDiferencia
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los vendedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-End Class
+    Public Function AddPSEquivalencias(CvePS As Integer, CveUM As Integer, Cantidad As Decimal, UnidadBase As Boolean, Precio As Double, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosEquivalenciasAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveUM", SqlDbType.Int).Value = CveUM
+            .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
+            .Add("@UnidadBase", SqlDbType.Bit).Value = UnidadBase
+            .Add("@Precio", SqlDbType.Money).Value = Precio
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una equivalencia con la misma unidad de medida.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar la Equivalencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar la Equivalencia", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdatePSEquivalencias(CvePS As Integer, CveUM As Integer, Cantidad As Decimal, UnidadBase As Boolean, Precio As Double, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosEquivalenciasUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveUM", SqlDbType.Int).Value = CveUM
+            .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
+            .Add("@UnidadBase", SqlDbType.Bit).Value = UnidadBase
+            .Add("@Precio", SqlDbType.Money).Value = Precio
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una equivalencia con la misma unidad de medida." + Ex1.Message.ToString, TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar la Equivalencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la Equivalencia", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemovePSEquivalencias(CvePS As Integer, CveUM As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosEquivalenciasRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveUM", SqlDbType.Int).Value = CveUM
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al eliminar la equivalencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar la equivalencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+#End Region
+
+#Region "P R O D U C T O S   A D I C I O N A L E S "
+
+    Public Function GetPSAdicionales(CvePS As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_ProductosServiciosAdicionalesGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los Productos/Servicios Adicionales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddPSAdicionales(CvePS As Integer, CvePSAdicional As Integer, Cantidad As Decimal) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosAdicionalesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CvePSAdicional", SqlDbType.Int).Value = CvePSAdicional
+            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una equivalencia con el mismo Producto/Servicio Adicional.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar el Producto/Servicio Adicional.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar el Producto/Servicio Adicional.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdatePSAdicionales(CvePS As Integer, CvePSAdicional As Integer, CvePSAdicionalAnterior As Integer, Cantidad As Decimal) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosAdicionalesUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CvePSAdicional", SqlDbType.Int).Value = CvePSAdicional
+            .Add("@CvePSAdicionalAnterior", SqlDbType.Int).Value = CvePSAdicionalAnterior
+            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una equivalencia con el mismo Producto/Servicio Adicional." + Ex1.Message.ToString, TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar el Producto/Servicio Adicional.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el Producto/Servicio Adicional.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemovePSAdicionales(CvePS As Integer, CvePSAdicional As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosAdicionalesRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CvePSAdicional", SqlDbType.Int).Value = CvePSAdicional
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al eliminar el Producto/Servicio Adicional.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar el Producto/Servicio Adicional.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+#End Region
+
+#Region "P A Q U E T E S"
+
+    Public Function UpdatePaquete(CvePS As Integer, PS As String, Precio As Double, Estado As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_PaqueteUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@PS", SqlDbType.VarChar).Value = PS
+            .Add("@Precio", SqlDbType.Money).Value = Precio
+            .Add("@Estado", SqlDbType.Bit).Value = Estado
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetPaqueteDetalle(CvePSPaquete As Integer, CveEmpresa As Integer, Optional CveUMPaquete As Integer = -1, Optional Cantidad As Double = 0, Optional CveAlmacen As Integer = -1, Optional Fecha As Date = MinFecha, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_PaqueteDetallesGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePSPaquete", SqlDbType.Int).Value = CvePSPaquete
+            .Add("@CveUMPaquete", SqlDbType.Int).Value = CveUMPaquete
+            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los Productos y servicios del paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddPaqueteDetalle(CvePSPaquete As Integer, CvePS As Integer, Cantidad As Double, Tipo As Integer, CveUnidadMedida As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_PaquetesAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePSPaquete", SqlDbType.Int).Value = CvePSPaquete
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
+            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe en el Paquete el Producto o Servicio.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar el Paquete.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar el Paquete", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function DeletePaqueteDetalle(CvePSPaquete As Integer, CvePS As Integer, Cantidad As Double, Tipo As Integer, CveUnidadMedida As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_PaqueteDetalleDelete")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePSPaquete", SqlDbType.Int).Value = CvePSPaquete
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al ingresar el producto al paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdatePaqueteDetalle(CvePSPaquete As Integer, CvePS As Integer, Cantidad As Double, Tipo As Integer, CveUnidadMedida As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_PaqueteDetalleUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePSPaquete", SqlDbType.Int).Value = CvePSPaquete
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
+            .Add("@Tipo", SqlDbType.SmallInt).Value = Tipo
+            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el paquete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
+
+#Region "P R O D U C T O S  - S U C U R S A L E S"
+
+    Public Function GetPSSucursales(CvePS As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_ProductosServiciosSucursalesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las Sucursales habilitadas para el Producto y/o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetPSSucursalesALL(CvePS As Integer, CveEmpresa As Integer, Optional Codigo As String = "", Optional CodigoBarras As String = "", Optional CveSubProyecto As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_ProductosServiciosSucursalesGetAll")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+            .Add("@CodigoBarras", SqlDbType.VarChar).Value = CodigoBarras
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las Sucursales habilitadas para el Producto y/o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddPSSucursales(CvePS As Integer, Importe As Double, Minimo As Double, Maximo As Double, CveUsuario As Integer, CveSubProyecto As Integer, Optional PrecioMinimo As Decimal = Nothing) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosSucursalesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Importe", SqlDbType.Float).Value = Importe
+            .Add("@Minimo", SqlDbType.Float).Value = Minimo
+            .Add("@Maximo", SqlDbType.Float).Value = Maximo
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@PrecioMinimo", SqlDbType.Decimal).Value = PrecioMinimo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una Sucursal para el mismo Producto y/o Servicio.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar la Sucursal para Producto y/o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar la Sucursal para Producto y/o Servicio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdatePSSucursales(CvePS As Integer, Importe As Double, Minimo As Double, Maximo As Double, CveUsuario As Integer, CveSubProyecto As Integer, Optional PrecioMinimo As Decimal = Nothing) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosSucursalesUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Importe", SqlDbType.Float).Value = Importe
+            .Add("@Minimo", SqlDbType.Float).Value = Minimo
+            .Add("@Maximo", SqlDbType.Float).Value = Maximo
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@PrecioMinimo", SqlDbType.Decimal).Value = PrecioMinimo
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una Sucursal para el mismo Producto y/o Servicio.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar la Sucursal para Producto y/o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar la Sucursal para Producto y/o Servicio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemovePSSucursales(CvePS As Integer, CveSubProyecto As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosSucursalesRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al eliminar la Sucursal para Producto y/o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar la Sucursal para Producto y/o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
+
+    'Ubicacion temporal
+    Public Function GetMetodosInv() As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Inv_MetodosGet")
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al obtener los Metodos de Inventario.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los Metodos de Inventario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
+
+#Region "   Marcas  "
+    Public Function GetPSAlias(CvePS As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosAliasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As SqlException
+            If CvePS <> -1 Then
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al consultar El Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddPSAlias(PS As String, CvePS As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_ProductosServiciosAliasAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@PSAlias", SqlDbType.VarChar).Value = If(PS.Length > 845, PS.Substring(0, 845), PS)
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                OnError("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Else
+                Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemovePSAlias(CvePS As Integer, PSAlias As String, CveUsuarioModifico As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosAliasRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CvePS", SqlDbType.Int).Value = CvePS
+        SqlAdapter.SelectCommand.Parameters.Add("@PSAlias", SqlDbType.VarChar).Value = PSAlias
+        SqlAdapter.SelectCommand.Parameters.Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar el Alias del Producto o Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateAplicaSeccionAlmacen(CvePS As Integer, CveEmpresa As Integer, AplicaSeccionAlmacen As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_ProductosServiciosSeccionAlmacenUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@AplicaSeccionAlmacen", SqlDbType.Bit).Value = AplicaSeccionAlmacen
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar aplica seccion almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetMarcas(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_MarcasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Marcas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+    Public Function AddMarcas(Marca As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_MarcasAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Marca", SqlDbType.VarChar).Value = Marca
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe una Marca del Producto o Servicio con el mismo nombre: " & Marca & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar la Marca.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+    Public Function RemoveMarca(CveMarca As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_MarcasRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al eliminar la Marca.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+
+    Public Function UpdateMarca(Marca As String, CveMarca As Integer, Estatus As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_MarcasUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Marca", SqlDbType.VarChar).Value = Marca
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+#End Region
+    Public Function GetPSMarcas(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_GRAL_PSMarcasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Marcas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+#Region "IMPUESTOS LOCALES"
+    Public Function GetPSImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_PSImpuestosLocalesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los datos de impuestos locales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+    Public Function AddPSImpuestosLocales(CvePS As Integer, CveImpuestoLocal As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_PSImpuestosLocalesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveImpuestoLocal", SqlDbType.Int).Value = CveImpuestoLocal
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al tratar de agregar datos a la base de datos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function LimpiaImpuestosLocales(CveCliente As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_PSImpuestosLocalesRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CveCliente
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al limpiar la lista de deducciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
+
+#Region "C O M P U E S T O S"
+    Public Function GetCompuestosActivos(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_CompuestosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de Compuestos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+
+
+    Public Function AddCompuestoActivo(Compuesto As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_CompuestosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Compuesto", SqlDbType.VarChar).Value = Compuesto
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un compuesto activo con el mismo nombre: " & Compuesto & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar el compuesto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar el compuesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+    Public Function RemoveCompuestoActivo(CveCompuesto As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_CompuestosRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            Me.OnError("Ocurrió un error al eliminar el compuesto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar  el compuesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+
+    Public Function UpdateCompuestoActivo(Compuesto As String, CveCompuesto As Integer, Estatus As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_CompuestoUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Compuesto", SqlDbType.VarChar).Value = Compuesto
+            .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el compuesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "UNIFICAR PRODUCTO"
+    Public Function UnificarPS(CvePSPrincipal As Integer, CvePSUnificado As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_PS_PSUnificar")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePSPrincipal", SqlDbType.Int).Value = CvePSPrincipal
+            .Add("@CvePSUnificado", SqlDbType.Int).Value = CvePSUnificado
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+
+#Region "Precios Lista"
+    Public Function GetPSPreciosLista(CveEmpresa As Integer, CvePrecioLista As Integer, Optional CveClasificacion As Integer = -1, Optional CvePS As Integer = -1,
+                                      Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional Marcas As String = "-1", Optional CveModelo As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PSPrecioListaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@Estado", SqlDbType.Int).Value = Estado
+            .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
+            .Add("@CveModelo", SqlDbType.Int).Value = CveModelo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Catálogo de PS con precios de lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdatePSPreciosLista(Importe As Decimal, CvePrecioLista As Integer, Porcentaje As Decimal, CvePS As Integer, CveUsuario As Integer, Fecha As DateTime, Fijo As Boolean, Optional PrecioMinimo As Decimal = Nothing) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PSPrecioListaAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            If Importe = -1 Then
+                .Add("@Importe", SqlDbType.Float).Value = DBNull.Value
+            Else
+                .Add("@Importe", SqlDbType.Float).Value = Importe
+            End If
+
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+
+            If Porcentaje = -1 Then
+                .Add("@Porcentaje", SqlDbType.Money).Value = DBNull.Value
+            Else
+                .Add("@Porcentaje", SqlDbType.Money).Value = Porcentaje
+            End If
+
+            .Add("@PrecioMinimo", SqlDbType.Decimal).Value = PrecioMinimo
+
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
+            .Add("@Fijo", SqlDbType.Bit).Value = Fijo
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar los precios de lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdatePSPrecios(Importe As Decimal, CvePrecioLista As Integer, Porcentaje As Decimal, CvePS As Integer, CveUsuario As Integer, Fecha As DateTime, Fijo As Boolean, Optional PrecioMinimo As Decimal = Nothing) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PSPrecioUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            If Importe = -1 Then
+                .Add("@Importe", SqlDbType.Float).Value = DBNull.Value
+            Else
+                .Add("@Importe", SqlDbType.Float).Value = Importe
+            End If
+
+            If Porcentaje = -1 Then
+                .Add("@Porcentaje", SqlDbType.Money).Value = DBNull.Value
+            Else
+                .Add("@Porcentaje", SqlDbType.Money).Value = Porcentaje
+            End If
+
+            .Add("@PrecioMinimo", SqlDbType.Decimal).Value = PrecioMinimo
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
+            .Add("@Fijo", SqlDbType.Bit).Value = Fijo
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar los precios de lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function GetPSPrecioLista(CvePS As Integer, CveEmpresa As Integer, Optional CvePrecioLista As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_ProductosServiciosPrecioListaGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los precios de lista para el Producto/Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+    Public Function GetPSExistencias(CvePS As Integer, CvePrecioLista As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
+                                    CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1,
+                                    Optional FechaMovto As String = "-1", Optional Serie As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
+                                    Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1",
+                                    Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ProductosExistenciasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+            .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing)
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
+            .Add("@Lote", SqlDbType.VarChar).Value = Lote
+            .Add("@Batch", SqlDbType.VarChar).Value = Batch
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado
+            .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir
+            .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados
+            .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las productos y sus existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetPSExistenciasWS(CvePS As Integer, CvePrecioLista As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer,
+                                    CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional CveTipoAlmacen As Integer = -1, Optional CveSubProyecto As Integer = -1,
+                                    Optional FechaMovto As String = "-1", Optional Serie As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
+                                    Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, Optional Lote As String = "-1", Optional Batch As String = "-1",
+                                    Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ProductosExistenciasWSGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+            .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
+            .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing)
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
+            .Add("@Lote", SqlDbType.VarChar).Value = Lote
+            .Add("@Batch", SqlDbType.VarChar).Value = Batch
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado
+            .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir
+            .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados
+            .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las productos y sus existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
+
+#Region "Porcentaje Productos"
+    Public Function GetPorcentajeProductos(CveCliente As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeProductosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los porcentajes de los productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddPorcentajeProductos(CveCliente As Integer, CvePS As Integer, PorcentajeProducto As Decimal, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeProductosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el porcentaje del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdatePorcentajeProductos(CveCliente As Integer, CvePS As Integer, PorcentajeProducto As Decimal) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeProductosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el porcentaje del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemovePorcentajeProductos(CveCliente As Integer, CvePS As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeProductosRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el porcentaje del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+#Region "Porcentaje Marcas de Productos"
+    Public Function GetPorcentajeMarcas(CveCliente As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeMarcasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los porcentajes de las Marcas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, CveUsuario As Integer, Optional ProntoPago As Decimal = -1, Optional Plazo As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeMarcasAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
+            .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2
+            .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@ProntoPago", SqlDbType.SmallMoney).Value = ProntoPago
+            .Add("@Plazo", SqlDbType.SmallInt).Value = Plazo
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el porcentaje de la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, PorcentajeProducto2 As Decimal, PorcentajeProducto3 As Decimal, Optional ProntoPago As Decimal = -1, Optional Plazo As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeMarcasUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
+            .Add("@PorcentajeProducto2", SqlDbType.SmallMoney).Value = PorcentajeProducto2
+            .Add("@PorcentajeProducto3", SqlDbType.SmallMoney).Value = PorcentajeProducto3
+            .Add("@ProntoPago", SqlDbType.SmallMoney).Value = ProntoPago
+            .Add("@Plazo", SqlDbType.SmallInt).Value = Plazo
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el porcentaje de la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemovePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeMarcasRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el porcentaje de la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+#Region "IDisposable Support"
+
+
+    ' IDisposable
+    Protected Overridable Sub Dispose(disposing As Boolean)
+        If Not Me.disposedValue Then
+            If disposing Then
+                ' TODO: dispose managed state (managed objects).
+                If Not Data Is Nothing Then Data.Dispose()
+                If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+                If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+                If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+                If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+            End If
+
+            ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
+            ' TODO: set large fields to null.
+        End If
+        Me.disposedValue = True
+    End Sub
+
+    ' TODO: override Finalize() only if Dispose(disposing As Boolean) above has code to free unmanaged resources.
+    'Protected Overrides Sub Finalize()
+    '    ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
+    '    Dispose(False)
+    '    MyBase.Finalize()
+    'End Sub
+
+    ' This code added by Visual Basic to correctly implement the disposable pattern.
+    Public Sub Dispose() Implements IDisposable.Dispose
+        ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
+        ConexionClose()
+        Dispose(True)
+        GC.SuppressFinalize(Me)
+    End Sub
+#End Region
+
+
+
+    Public Function GetProductosServiciosSinSAT(Opcion As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_ProductosServiciosSinSATGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los productos sin SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_ProductosServiciosSATUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la clave SAT del producto o servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetProductosModificados(CveEmpresa As Integer, CvePrecioLista As Integer, Optional HorasDiferencia As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_ProductosModificadosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+            .Add("@HorasDiferencia", SqlDbType.Int).Value = HorasDiferencia
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los productos modificados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetPreciosModificados(CveEmpresa As Integer, CvePrecioLista As Integer, Optional HorasDiferencia As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_ProductosPreciosModificadosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+            .Add("@HorasDiferencia", SqlDbType.Int).Value = HorasDiferencia
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los precios modificados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetExistenciasEmpresa(Codigo As String, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_ProductosExistenciasEmpresaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetVendedoresModificados(CveEmpresa As Integer, Optional HorasDiferencia As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_VendedoresModificadosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@HorasDiferencia", SqlDbType.Int).Value = HorasDiferencia
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los vendedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+End Class
diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index c1f9e640a..d1ff35a2d 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -191,7 +191,7 @@ Public Class ClsSisUsuarios
         End Try
         Return Retorno
     End Function
-    Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1) As Usuario
+    Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1, Optional CvePlataforma As Integer = -1) As Usuario
         Dim Retorno As Usuario = Nothing
         DataAdapter("PA_Sis_UsuariosGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -199,6 +199,7 @@ Public Class ClsSisUsuarios
             .Add("@CveRol", SqlDbType.Int).Value = -1
             .Add("@Usuario", SqlDbType.VarChar).Value = Usuario
             .Add("@Contraseña", SqlDbType.VarChar).Value = Password
+            .Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma
             .Add("@EsLogIn", SqlDbType.Bit).Value = 1
         End With
         Try
diff --git a/App_Code/Log Tareas.txt b/App_Code/Log Tareas.txt
deleted file mode 100644
index 241eb710e..000000000
--- a/App_Code/Log Tareas.txt	
+++ /dev/null
@@ -1,3 +0,0 @@
-Log tareas: 
-Llamada de consulta: 11 minutos
-Temperatura comienzo: 7 pm
\ No newline at end of file
diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb
index 9e99e3c97..c8fd108b0 100644
--- a/App_Code/LogicNominas.vb
+++ b/App_Code/LogicNominas.vb
@@ -145,8 +145,17 @@ Public Class LogicNominas
                 If continuar AndAlso objNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then
                     If objNomina.DtResultados.Rows.Count > 0 Then
                         DtPercepciones = objNomina.DtResultados.FiltraParametros("Tipo = 'P' AND EsPadre = 1 AND SoloVisible =0")
-                        DtDeducciones = objNomina.DtResultados.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0")
+                        DtDeducciones = objNomina.DtResultados.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0 AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL)")
                         DtOtrosPagos = objNomina.DtResultados.FiltraParametros(" TipoConceptoSAT='O'")
+                        Dim disrcomp As DataRow = DtOtrosPagos.FiltroPrimero("Codigo ='D999'")
+                        For Each drow As DataRow In DtDeducciones.Rows
+                            If drow("Codigo").ToString() = "D038" Then
+
+                            End If
+                        Next
+
+
+
                         TotalPercepciones = DtPercepciones.SUM("Importe").ToString().ToDecimal()
                         TotalDeducciones = DtDeducciones.SUM("Importe").ToString().ToDecimal()
                         Total = CType((Total + DtPercepciones.SUM("Importe")), Decimal)
@@ -230,7 +239,7 @@ Public Class LogicNominas
                                                                          .ImporteGravado = Row("ImporteGravado").ToString().ToDecimal(), .ImporteExento = Row("ImporteExento").ToString().ToDecimal()})
                 End If
                 'RMF, falta poner el numero de horas pagadas
-                If Row("CveSATConcepto").ToString().ToEntero() = 19 AndAlso DtHorasExtras IsNot Nothing Then 'cuando son horas extras
+                If Row("SATCveConcepto").ToString().ToEntero() = 19 AndAlso DtHorasExtras IsNot Nothing Then 'cuando son horas extras
                     'Obtengo el desglose de horas extras
                     Dim dr As DataRow = DtHorasExtras.FiltroPrimero("")
                     If dr IsNot Nothing Then
@@ -249,13 +258,16 @@ Public Class LogicNominas
 
         If DtDeducciones IsNot Nothing AndAlso DtDeducciones.Rows.Count > 0 Then
             For Each Row As DataRow In DtDeducciones.Rows
-                If Row("Importe").ToString().ToDecimal > 0 Then
+                If Row("Importe").ToString().ToDecimal <> 0 Then
 
                     If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For
                     If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 Then
 
                         ObjPercepciones.Add(New CFDINominaPercepciones With {.TipoPercepcion = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(),
                                                                          .ImporteGravado = Row("ImporteGravado").ToString().ToDecimal(), .ImporteExento = Row("ImporteExento").ToString().ToDecimal()})
+                    ElseIf Row("Importe").ToString().ToDecimal() < 0 AndAlso Row("Concepto").ToString() = "Ajuste al neto" Then ' corregir
+                        ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "999", .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(),
+                                                                         .Importe = Row("Importe").ToString().ToDecimal() * -1})
                     Else
                         ObjDeducciones.Add(New CFDINominaDeducciones With {.TipoDeduccion = Row("SATCveConcepto").ToString(),
                                                                 .Clave = Row("Codigo").ToString(),
@@ -276,12 +288,14 @@ Public Class LogicNominas
 
         If DtOtrosPagos IsNot Nothing AndAlso DtOtrosPagos.Rows.Count > 0 Then
             For Each Row As DataRow In DtOtrosPagos.Rows
-                If (Row("Importe").ToString().ToDecimal() > 0) OrElse (Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 2 AndAlso Row("Importe").ToString().ToDecimal() < 0) Then
+                If (Row("Importe").ToString().ToDecimal() > 0) OrElse
+                    (Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 2 AndAlso (CveRegimenContratacion.ToEntero() = 2 OrElse Row("Importe").ToString().ToDecimal() <> 0)) OrElse
+                    (Row("SATCveConcepto").ToString().ToEntero().ToEntero().Contiene(2, 4) AndAlso Row("Importe").ToString().ToDecimal() < 0) Then
 
                     If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For
-
-                    ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(),
-                                                                         .Importe = Row("Importe").ToString().ToDecimal().Abs(), .Subsidiocausado = Row("ImporteGravado").ToString().ToDecimal().Abs()})
+                    Dim otrp = New CFDINominaOtrosPagos With {.TipoOtroPago = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(),
+                                                                         .Importe = Row("Importe").ToString().ToDecimal().Abs(), .Subsidiocausado = Row("ImporteGravado").ToString().ToDecimal().Abs()}
+                    ObjOtrosPagos.Add(otrp)
 
 
                     If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 7 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 2e54a07c1..8ebf065ce 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -382,7 +382,7 @@ Namespace Modelos
             Me.ListaMensajes = New List(Of String)
             Me.FolioFiscal = ""
             Me.GenerarPDFFactura = False
-            IniciaValores()
+            IniciaValores()
 
             Dim ObjVentas As New ClsVentas()
             If ObjVentas.GetVenta(CveVenta, CveEmpresa) Then
@@ -414,49 +414,49 @@ Namespace Modelos
             TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
             TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
 
-            Dim DR As DataRow = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
-
-            'solo para eclipse, que muesre un subtotal debajo de IVA
-            If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
-            If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
-
-            If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR)
-            DR = TmpDTImpuestos.NewRow()
-
-            If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR)
+            Dim DR As DataRow = TmpDTImpuestos.NewRow()
+            If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
+            DR = TmpDTImpuestos.NewRow()
+            If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
+            DR = TmpDTImpuestos.NewRow()
+            If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
+            DR = TmpDTImpuestos.NewRow()
+            If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
+            DR = TmpDTImpuestos.NewRow()
+            If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
+
+            'solo para eclipse, que muesre un subtotal debajo de IVA
+            If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
+            DR = TmpDTImpuestos.NewRow()
+            If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
+            DR = TmpDTImpuestos.NewRow()
+            If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
             DR = TmpDTImpuestos.NewRow()
 
-            If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
-
-                Dim dtImpuesto As DataTable = ObjVentas.DtResultados
-                If dtImpuesto.Rows.Count > 0 Then
-                    For Each Row As DataRow In dtImpuesto.Rows
-                        Dim Orden = 80
-                        If Row("Importe").ToString.ToDouble <> 0 Then
-                            DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
-                            DR("Importe") = Row("Importe").ToString.ToDouble
-                            DR("Orden") = Orden
-                            TmpDTImpuestos.Rows.Add(DR)
-                            DR = TmpDTImpuestos.NewRow()
-                            Orden = Orden + 1
-                        End If
-                    Next
-                End If
-                Me.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
-
+            If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR)
+            DR = TmpDTImpuestos.NewRow()
+
+            If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR)
+            DR = TmpDTImpuestos.NewRow()
+
+            If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
+
+                Dim dtImpuesto As DataTable = ObjVentas.DtResultados
+                If dtImpuesto.Rows.Count > 0 Then
+                    For Each Row As DataRow In dtImpuesto.Rows
+                        Dim Orden = 80
+                        If Row("Importe").ToString.ToDouble <> 0 Then
+                            DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
+                            DR("Importe") = Row("Importe").ToString.ToDouble
+                            DR("Orden") = Orden
+                            TmpDTImpuestos.Rows.Add(DR)
+                            DR = TmpDTImpuestos.NewRow()
+                            Orden = Orden + 1
+                        End If
+                    Next
+                End If
+                Me.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
+
             End If
 
         End Sub
@@ -1775,7 +1775,7 @@ Namespace Modelos
                         AlmacenEntrada = CveAlmacenDestino
 
                         CveMovimientoEntrada2 = ObjInventario.AddMovimiento(AlmacenEntrada, 9, 1, Me.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1,
-                                                                            CveMovimientoRelacionado:=CveMovimientoSalida2, CveOS:=CveOS, Modulo:="Mod/OS")
+                                                                            CveMovimientoRelacionado:=CveMovimientoSalida2, CveOS:=CveOS, Modulo:="Mod/OS1")
                         FolioEntrada = ObjInventario.Folio
 
                         If CveMovimientoEntrada2 <= 0 Then
@@ -1803,7 +1803,7 @@ Namespace Modelos
                         AlmacenEntrada = CveAlmacenDestino
 
                         CveMovimientoEntrada3 = ObjInventario.AddMovimiento(AlmacenEntrada, 3, 1, Me.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=-1,
-                                                                            CveMovimientoRelacionado:=CveMovimientoSalida3, CveOS:=CveOS, Modulo:="Mod/OS")
+                                                                            CveMovimientoRelacionado:=CveMovimientoSalida3, CveOS:=CveOS, Modulo:="Mod/OS2")
                         FolioEntrada = ObjInventario.Folio
 
                         If CveMovimientoEntrada3 <= 0 Then
@@ -1842,7 +1842,7 @@ Namespace Modelos
 
 
             'MOVIMIENTO DE SALIDA POR TRASPASO DEL ALMACEN DE CONSIGNACION
-            CveMovimientoSalidaConsignacion = ObjInventario.AddMovimiento(CveAlmacenExistenciasContrato, 8, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, Modulo:="Mod/E")
+            CveMovimientoSalidaConsignacion = ObjInventario.AddMovimiento(CveAlmacenExistenciasContrato, 8, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, Modulo:="Mod/CV")
             If CveMovimientoSalidaConsignacion > 0 Then
                 Dim CveProducto As Integer
                 Dim CveUnidad As Integer
@@ -1885,7 +1885,7 @@ Namespace Modelos
 
 
             'ENTRADA POR TRASPASO A GENERAL
-            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 9, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalidaConsignacion, Modulo:="Mod/E")
+            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 9, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalidaConsignacion, Modulo:="Mod/E2")
             If CveMovimientoEntradaGeneral > 0 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
@@ -1899,7 +1899,7 @@ Namespace Modelos
             End If
 
             'SALIDA GENERAL
-            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 3, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, Modulo:="Mod/E")
+            CveMovimientoEntradaGeneral = ObjInventario.AddMovimiento(Me.CveAlmacenOrigenContrato, 3, 1, Me.Fecha, -1, Me.CveUsuario, Me.CveEmpresa, -1, Me.CveVenta, -1, -1, Modulo:="Mod/E3")
             If CveMovimientoEntradaGeneral > 0 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then
                     For Each Dr As DataRow In ObjInventario.DtResultados.Rows
@@ -3610,7 +3610,7 @@ Namespace Modelos
             Dim OcurrioError As Boolean = False
             If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") AndAlso (DtRecepcionUsados IsNot Nothing Or DtAjustes IsNot Nothing) Then
                 If factura.CveAlmacenRecepcionUsados > 0 Then
-                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacenRecepcionUsados, 2, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Mod/E")
+                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacenRecepcionUsados, 2, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Mod/E4")
 
                     Dim DtTemporal As DataTable = Nothing
                     Dim DtTemporalMovimientosDetalle As DataTable = Nothing
@@ -3667,7 +3667,7 @@ Namespace Modelos
 
             If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
                 If factura.CveAlmacen > 0 AndAlso DtInventario.Rows.Count > 0 Then
-                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Mod/E")
+                    Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(factura.CveAlmacen, 3, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Mod/E5")
 
                     If CveMovimientoInventario <= 0 Then
                         OcurrioError = True
@@ -3952,7 +3952,7 @@ Namespace Modelos
             Dim ContadorMovtosDetalles = 0
 
             'Creamos el movimiento
-            Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoRelacionado)
+            Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Mod/M2")
 
             If CveMovimientoInventario > 0 Then
 
@@ -4804,7 +4804,7 @@ Namespace Modelos
                                     'SI TIENE SALDO PENDIENTE POR DEVOLVER GENERA UN MOVIMIENTO DE DEVOLUCION
                                     If ObjFactura.SaldoAlmacen <> 0 Then
                                         'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
-                                        CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenDevolucion, CveConceptoDevolucion, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1)
+                                        CveMovimientoDevolucion = ObjInventario.AddMovimiento(CveAlmacenDevolucion, CveConceptoDevolucion, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=-1, Modulo:="Mod/CV1")
                                         Folio = ObjInventario.Folio
 
                                         If CveMovimientoDevolucion > 0 Then
@@ -5318,11 +5318,11 @@ Namespace Modelos
                                 End If
 
                                 'SALIDA GENERAL
-                                CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacenDevolucion, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=CveAlmacenTraspasoDestinoDevRem)
+                                CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacenDevolucion, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=CveAlmacenTraspasoDestinoDevRem, Modulo:="Mod/ExAR1")
                                 FolioMovimientoSalidaDevRem = ObjInventario.Folio
 
                                 'ENTRADA ADELANTADO
-                                CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestinoDevRem, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDevolucion)
+                                CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestinoDevRem, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, DrMovtos("CveRem").ToString.ToEntero, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDevolucion, Modulo:="Mod/ExAR2")
                                 FolioMovimientoEntradaDevRem = ObjInventario.Folio
 
                                 If Not (CveMovimientoSalidaDevRem > 0 And CveMovimientoEntradaDevRem > 0) Then
@@ -5401,11 +5401,11 @@ Namespace Modelos
             Dim FolioMovimientoEntradaDevRem As Integer = 0
 
             'SALIDA DE (ENTREGA POR ADELANTADO)
-            CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacen, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenDestino)
+            CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacen, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR1")
             FolioMovimientoSalidaDevRem = ObjInventario.Folio
 
             'ENTRADA A (ALMACEN GENERAL)
-            CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDestino)
+            CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR2")
             FolioMovimientoEntradaDevRem = ObjInventario.Folio
 
             If Not (CveMovimientoSalidaDevRem > 0 And CveMovimientoEntradaDevRem > 0) Then
@@ -5488,7 +5488,7 @@ Namespace Modelos
                     For Each Dr As DataRow In DtTempApartados.Rows
 
                         If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString.ToEntero Then
-                            CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveVendedor:=1, CveCliente:=CveCliente, CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero)
+                            CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveVendedor:=1, CveCliente:=CveCliente, CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero, Modulo:="Mod/Apar1")
                             FolioSalida = ObjInventario.Folio
                             CveAlmacenApartado = Dr("CveAlmacen").ToString.ToEntero
 
@@ -5515,7 +5515,7 @@ Namespace Modelos
                         For Each Dr1 As DataRow In DtTraspasos.Rows
                             CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString.ToEntero
 
-                            CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", CveAlmacenDestino:=CveAlmacenDevolucion, CveMovimientoRelacionado:=CveMovimientoSalida, Guia:="", CveContrato:=CveContrato, CveVendedor:=-1, CveCliente:=CveCliente)
+                            CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 9, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, Observaciones:="", CveAlmacenDestino:=CveAlmacenDevolucion, CveMovimientoRelacionado:=CveMovimientoSalida, Guia:="", CveContrato:=CveContrato, CveVendedor:=-1, CveCliente:=CveCliente, Modulo:="Mod/Apar2")
                             FolioEntrada = ObjInventario.Folio
 
                             If Not CveMovimientoEntradaApartado > 0 Then
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index bed33b7e6..26418aaed 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -1987,7 +1987,7 @@ Public Class Timbrado
             'cfdi.Esquema.AgregarEsquema("http://www.sat.gob.mx/nomina12 http://www.sat.gob.mx/sitio_internet/cfd/nomina/nomina12.xsd")
             cfdi.Nomina12(ObjCFDITimbre.Nomina.TipoNomina, ObjCFDITimbre.Nomina.FechaPago.ToString("yyyy-MM-dd"), ObjCFDITimbre.Nomina.FechaInicio.ToDate().ToString("yyyy-MM-dd"), ObjCFDITimbre.Nomina.FechaFin.ToDate().ToString("yyyy-MM-dd"), ObjCFDITimbre.Nomina.NumDiasPagados, If(ObjCFDITimbre.Nomina.Percepciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Percepciones.Count > 0, ObjCFDITimbre.Nomina.TotalPercepciones, 0), If(ObjCFDITimbre.Nomina.Deducciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Deducciones.Count > 0, ObjCFDITimbre.Nomina.TotalDeducciones, 0), If(ObjCFDITimbre.Nomina.OtrosPagos IsNot Nothing AndAlso ObjCFDITimbre.Nomina.OtrosPagos.Count > 0, ObjCFDITimbre.Nomina.TotalOtrosPagos, 0))
 
-            cfdi.Nomina12Emisor(ObjCFDITimbre.Emisor.CURP, If(ObjCFDITimbre.Nomina.Receptor.TipoContrato = "99", "", ObjCFDITimbre.Emisor.RegistroPatronal), ObjCFDITimbre.Emisor.RFC)
+            cfdi.Nomina12Emisor(ObjCFDITimbre.Emisor.CURP, If(ObjCFDITimbre.Nomina.Receptor.TipoContrato.Contiene("09", "10", "99"), "", ObjCFDITimbre.Emisor.RegistroPatronal), ObjCFDITimbre.Emisor.RFC)
 
             If UsuarioActual.Empresa.UsaAC Then cfdi.Nomina12EntidadSNCF("IF", 90)
 
@@ -2029,6 +2029,11 @@ Public Class Timbrado
                 Next
             End If
 
+            If ObjCFDITimbre.Nomina.HorasExtras IsNot Nothing AndAlso ObjCFDITimbre.Nomina.HorasExtras.Count > 0 Then
+                For Each HoraExtra As CFDINominaHorasExtras In ObjCFDITimbre.Nomina.HorasExtras
+                    cfdi.Nomina12HorasExtra(HoraExtra.Dias.ToEntero, HoraExtra.TipoHoras, HoraExtra.HorasExtra, HoraExtra.ImportePagado)
+                Next
+            End If
             'deducciones al final
             If ObjCFDITimbre.Nomina.Deducciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Deducciones.Count > 0 Then
                 cfdi.Nomina12Deducciones(ObjCFDITimbre.Nomina.TotalDeduccionesOtras, Math.Round(ObjCFDITimbre.Nomina.TotalDeduccionesImpuestosRetenidos, 2))
@@ -2037,11 +2042,6 @@ Public Class Timbrado
                 Next
             End If
 
-            If ObjCFDITimbre.Nomina.HorasExtras IsNot Nothing AndAlso ObjCFDITimbre.Nomina.HorasExtras.Count > 0 Then
-                For Each HoraExtra As CFDINominaHorasExtras In ObjCFDITimbre.Nomina.HorasExtras
-                    cfdi.Nomina12HorasExtra(HoraExtra.Dias.ToEntero, HoraExtra.TipoHoras, HoraExtra.HorasExtra, HoraExtra.ImportePagado)
-                Next
-            End If
 
             If ObjCFDITimbre.Nomina.Incapacidades IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Incapacidades.Count > 0 Then
                 For Each Incap As CFDINominaIncapacidades In ObjCFDITimbre.Nomina.Incapacidades
@@ -2059,6 +2059,12 @@ Public Class Timbrado
                             cfdi.Nomina12SubsidioAlEmpleo(otpag.Subsidiocausado)
                         End If
 
+                        If otpag.TipoOtroPago = "004" AndAlso otpag.Importe > 0 Then
+                            If otpag.ejercicio > 0 Then
+                                cfdi.CompensacionSaldosAFavor(otpag.Importe, otpag.ejercicio, otpag.RemanenteSalFav) 'otpag.SaldoAFavor
+                            End If
+                        End If
+
                     Next
                 End If
             End If
diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 38f89fdc3..d8f598c3d 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -1153,7 +1153,7 @@
     </div>
 
     <div id="DivCancelarIE" class="modal fade">
-        <div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
+        <div class="modal-dialog" style="max-height: 500px; max-width: 700px;">
             <asp:UpdatePanel ID="UpEliminarCotizacion" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
                     <div class="modal-header">
@@ -1162,7 +1162,7 @@
                     </div>
                     <div class="modal-body">
                         <div class="row" style="align-items: center; vertical-align: middle;">
-                            <label class="col-md-4" style="max-width: 155px;">Fecha de Cancelación:</label>
+                            <label class="col-md-3" style="max-width: 155px;">Fecha de Cancelación:</label>
                             <div class="col-md-3">
                                 <div class="input-group date date-picker" data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
                                     <asp:TextBox ID="TxtFechaCancelacion" runat="server" CssClass="form-control input-sm" Width="80px" CausesValidation="true" MaxLength="10" ValidationGroup="GrpCancelarIE"></asp:TextBox>
@@ -1178,13 +1178,28 @@
                                     <asp:CompareValidator ID="CVFechaCancelacionMin" runat="server" ControlToCompare="TxtFechaDocumento" ControlToValidate="TxtFechaCancelacion" Display="None" Operator="GreaterThanEqual" Type="Date" ValidationGroup="GrpCancelarIE" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Cancelación''</b>tiene que ser mayor o igual a la fecha del documento."></asp:CompareValidator>
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCancelacionMin" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
+                            </div>                            
+                             <div class="col-md-6">
+                                 <div class="row">
+                                      <div class="col-md-12">
+                                <asp:CheckBox ID="ChkGeneraCancelacion" CssClass="md-checksd2" Text="Genera Devolución" TextAlign="Right" runat="server" AutoPostBack="true" OnCheckedChanged="ChkGeneraCancelacion_CheckedChanged" />
+                                           </div>
+                                        </div>
+                                    <div class="row">
+                                <div class="col-md-12"  id="DVTipoTransacciónCancelar"  runat="server" visible ="false"> 
+                                 
+                                Movimiento:
+                                <asp:DropDownList ID="DdlTipoTransaccionCancelacion" CssClass="form-control input-sm select2me" runat="server"    DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpCancelarIE">
+                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RFVDdlTipoTransaccionCancelacion" runat="server" ControlToValidate="DdlTipoTransaccionCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Transaccion''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCEDdlTipoTransaccionCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlTipoTransaccionCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
+
                             </div>
-                            <div class="col-md-3">
-                                <asp:CheckBox ID="ChkCancelarNegativo" CssClass="md-checksd2" Text="Falta de fondos" TextAlign="Right" runat="server" Visible="false" />
                             </div>
-                             <div class="col-md-4">
-                                <asp:CheckBox ID="ChkGeneraCancelacion" CssClass="md-checksd2" Text="Genera Devolución" TextAlign="Right" runat="server" />
                             </div>
+                            
+
                         </div>
                     </div>
                     <div class="modal-footer">
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 80424468e..7324ffd30 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -3048,9 +3048,6 @@ Partial Class Bancos_IE
                                 Dim TCDocumento As Decimal = 1
 
 
-
-
-
                                 'BANCOS
                                 IdCtaContableAplicar = If(IDCtaContable > 0, IDCtaContable, 0)
                                 If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
@@ -3256,7 +3253,7 @@ Partial Class Bancos_IE
                                                         CveCuentaDevolucionIMPUESTOS = CveCuentaIVAxAcreditarDevDinC
                                                         IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC
 
-                                                        If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
+                                                        If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
 
                                                             CveCuentaDevolucionIMPUESTOS = CveCuentaIVAAcreditableDevDinC
                                                             IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC
@@ -4436,7 +4433,7 @@ Partial Class Bancos_IE
 
                             'CANCELA IE
                             If Not ErrorCancelar Then
-                                If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate) <= 0 Then
+                                If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero) <= 0 Then
                                     ErrorCancelar = True
                                     MensajeError = "Error al cancelar IE"
                                 End If
@@ -4467,7 +4464,7 @@ Partial Class Bancos_IE
 
                         'CANCELA IE
                         If Not ErrorCancelar Then
-                            If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate) <= 0 Then
+                            If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero) <= 0 Then
                                 ErrorCancelar = True
                                 MensajeError = "Error al cancelar IE"
                             End If
@@ -4500,14 +4497,14 @@ Partial Class Bancos_IE
 
             If Not GeneraCancelacionEnCero Then
                 'CANCELA IE MES ANTERIOR
-                CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate)
+                CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero)
                 If CvePrePolizaCancelacion <= 0 Then
                     ErrorCancelar = True
                     MensajeError = "Error al cancelar IE MES ANTERIOR"
                 End If
             Else
                 'CANCELA IE MES ACTUAL
-                CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate)
+                CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero)
                 If CvePrePolizaCancelacion <= 0 Then
                     ErrorCancelar = True
                     MensajeError = "Error al cancelar IE MES ACTUAL"
@@ -6631,4 +6628,35 @@ Partial Class Bancos_IE
         Return respuesta
     End Function
 
+    Protected Sub ChkGeneraCancelacion_CheckedChanged(sender As Object, e As EventArgs)
+
+        Dim dttemp As DataTable
+        Dim TipoMovto As String
+        dttemp = GlobalDTTipoTransacciones.FiltraParametros($"CveTipoTransaccion ={DdlTipoTransaccion.SelectedValue}")
+
+        TipoMovto = dttemp(0)("Tipo").ToString
+
+
+        If TipoMovto = "Egs" Then
+            TipoMovto = "Ing"
+        Else
+            TipoMovto = "Egs"
+        End If
+
+        GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
+
+        DdlTipoTransaccionCancelacion.Items.Clear()
+        DdlTipoTransaccionCancelacion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo ='{TipoMovto}'")
+        DdlTipoTransaccionCancelacion.DataBind()
+        DdlTipoTransaccionCancelacion.Items.Insert(0, New ListItem("Seleccione una", "-1"))
+
+        If ChkGeneraCancelacion.Checked Then
+            DVTipoTransacciónCancelar.Visible = True
+        Else
+            DVTipoTransacciónCancelar.Visible = False
+        End If
+
+        UpEliminarCotizacion.Update()
+
+    End Sub
 End Class
\ No newline at end of file
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 11f73ffd5..8f1a3f8bf 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -122,6 +122,14 @@ Partial Class Bancos_PopIECompras
         Set(value As Integer)
             ViewState("IdCuentaBancaria") = value
         End Set
+    End Property
+    Private Property IdCuentaBancariaComplementaria As Integer
+        Get
+            Return ViewState("IdCuentaBancariaComplementaria").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("IdCuentaBancariaComplementaria") = value
+        End Set
     End Property
     Private ReadOnly Property IdCtaContMonedaExtranjera As Integer
         Get
@@ -482,6 +490,7 @@ Partial Class Bancos_PopIECompras
                 ViewState("IdCtaContRetIVA") = 0
                 ViewState("IdCtaContRetISR") = 0
                 ViewState("IdCuentaBancaria") = 0
+                ViewState("IdCuentaBancariaComplementaria") = 0
                 ViewState("IdCtaAnticipo") = 0
 
                 ViewState("CveCuentaMonedaExtranjera") = 0
@@ -1107,9 +1116,9 @@ Partial Class Bancos_PopIECompras
                 RegistraScript("CambiaDolaresPesos();")
             End If
 
-            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
-            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
-
+            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
+            IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
+
             If dr("UsaTarjeta").ToString = "True" Then
                 CargaGridTarjetas()
             Else
@@ -2814,15 +2823,13 @@ Partial Class Bancos_PopIECompras
                                                         CveCuenta = CveCuentaCliente
                                                     End If
                                                 Else
-                                                    IdCtaContable = IdCtaContComplementaria
-                                                    CveCuenta = CveCuentaComplementaria
+                                                    IdCtaContable = IdCuentaBancariaComplementaria
                                                     If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, 204, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioPago - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago, CveCuenta:=CveCuenta) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
                                                         ImporteMX = ImporteMovimiento
-                                                        IdCtaContable = IdCtaContMonedaExtranjera
-                                                        CveCuenta = CveCuentaMonedaExtranjera
+                                                        IdCtaContable = IdCuentaBancaria
                                                     End If
                                                 End If
 
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index ef4f28551..11f56d18e 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -2132,10 +2132,10 @@ Partial Class Bancos_PopIEVentas
                                                         Dim TCImpuestos As Decimal = tipoCambioPago
                                                         TimpocambioGeneral = TCImpuestos
 
-                                                        Diferencia -= ((MovimientoPagar.IVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA
-                                                        Diferencia += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA
-                                                        Diferencia += ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR
-                                                        Diferencia -= ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS
+                                                        Diferencia -= (((MovimientoPagar.IVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IVA
+                                                        Diferencia -= (((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetIVA
+                                                        Diferencia -= (((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetISR
+                                                        Diferencia -= (((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IEPS
                                                         Diferencia = Math.Round(Diferencia, 2)
                                                     End If
 
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index b11dc7cc1..e0d894fd5 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -2509,6 +2509,18 @@ Partial Class Bancos_ProveedoresAbonar
         'recargo la moneda con la que se va a pagar
         Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue))
         If dr IsNot Nothing Then
+
+
+            If dr("CveMoneda").ToString.ToEntero >= 2 Then
+                DivDolaresDolares.Visible = True
+                TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
+                BtnCambiaTipoMoneda_Click(Nothing, Nothing)
+            Else
+                DivDolaresDolares.Visible = False
+                TxtFechaDocumento.Attributes.Remove("onchange")
+            End If
+            UpDatos.Update()
+
             If ChkPagarPesos.Checked Then
                 CveMoneda = 2
                 RegistraScript("CambiaPesosDolares();")
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6dbca516f..97f5c159a 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2785,7 +2785,7 @@ Partial Class Compras_Compras
 
                 DdlTipoComprobante.Enabled = False
                 DdlTipoComprobante.SelectedValue = dr("TipoDocto").ToString
-                If dr("TipoDocto").ToString = "Fac" Then
+                If dr("TipoDocto").ToString.Contiene("Fac", "Ant") Then
                     ChkAplicaNotaCredito.Enabled = True
                     ImgAnticiposPendientes.Visible = True
                 Else
@@ -19877,7 +19877,7 @@ Private Sub CargaNCINV()
         ObjCompras.Dispose()
 
         Dim ObjInv As New ClsInventarios
-        If ObjInv.GetFletes(UsuarioActual.CveEmpresa) Then
+        If ObjInv.GetFletes(UsuarioActual.CveEmpresa, OpcionInventario:=1) Then
             DdlFletes.DataSource = ObjInv.DtResultados
             DdlFletes.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 94dc00a5d..60e3e291a 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2357,8 +2357,8 @@ Partial Class PopUpVerFactura
                         Else
                             params.Add(New ReportParameter("LogoPath", ""))
                         End If
-                        params.Add(New ReportParameter("Origen", Almacen))
-                        params.Add(New ReportParameter("Destino", AlmacenDestino))
+                        params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
+                        params.Add(New ReportParameter("Destino", Almacen))
 
                         params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index 9b8a0ed78..89b63605c 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -210,7 +210,7 @@
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Proveedor">
                                     <ItemTemplate>
-                                        <asp:HyperLink ID="HplProveedor" runat="server" CssClass="Texto" Target="_newtab" Text='<%# Eval("NombreProveedor") %>'></asp:HyperLink>
+                                        <asp:HyperLink ID="HplProveedor" runat="server" CssClass="Texto" Target="_blank" rel="opener"  Text='<%# Eval("NombreProveedor") %>'></asp:HyperLink>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
                                 </asp:TemplateField>
@@ -236,7 +236,7 @@
                                 <asp:TemplateField HeaderText="Prov">
                                     <ItemTemplate>
                                         <%--<asp:Literal ID="LtlProv" runat="server"></asp:Literal>--%>
-                                        <asp:HyperLink ID="HplProv" runat="server" Visible='False' CssClass="btn btn-circle btn-sm blue" ToolTip="Agregar Proveedor" Target="_blank"><i class="fa fa-pencil"></i></asp:HyperLink>
+                                        <asp:HyperLink ID="HplProv" runat="server" Visible='False' CssClass="btn btn-circle btn-sm blue" ToolTip="Agregar Proveedor" Target="_blank" rel="opener"><i class="fa fa-pencil"></i></asp:HyperLink>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Center" />
                                 </asp:TemplateField>
@@ -250,7 +250,7 @@
                                 <asp:TemplateField HeaderText="Agregar">
                                     <ItemTemplate>
                                         <%--<asp:Image ID="ImgAgregar" runat="server" Style="cursor: pointer;" Visible='<%# Eval("CveProveedor").ToString <> "" %>' ToolTip="Agregar Factura" ImageUrl="/Imagenes/Nota.gif" Height="18px" />--%>
-                                        <asp:HyperLink ID="HplAgregar" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" Target="_blank"><i class="fa fa-plus"></i></asp:HyperLink>
+                                        <asp:HyperLink ID="HplAgregar" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" rel="opener" Target="_blank" ><i class="fa fa-plus"></i></asp:HyperLink>
                                         <asp:LinkButton ID="LnkAgregarPago" runat="server" OnClick="LnkAgregarPago_Click" CssClass="btn btn-sm blue" Visible="false" data-toggle="tooltip" title="Vincular Pago"><i class="fa fa-check"></i></asp:LinkButton>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Center" />
@@ -324,7 +324,7 @@
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Proveedor">
                                         <ItemTemplate>
-                                            <asp:HyperLink ID="HplProveedor" runat="server" CssClass="Texto" Target="_newtab" Text='<%# Eval("NombreProveedor") %>'></asp:HyperLink>
+                                            <asp:HyperLink ID="HplProveedor" runat="server" CssClass="Texto" Target="_blank" rel="opener" Text='<%# Eval("NombreProveedor") %>'></asp:HyperLink>
                                         </ItemTemplate>
                                         <ItemStyle HorizontalAlign="Left" />
                                     </asp:TemplateField>
@@ -348,7 +348,7 @@
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Prov">
                                         <ItemTemplate>
-                                            <asp:HyperLink ID="HplProv" runat="server" Visible='False' CssClass="btn btn-circle btn-sm blue" ToolTip="Agregar Proveedor" Target="_blank"><i class="fa fa-pencil"></i></asp:HyperLink>
+                                            <asp:HyperLink ID="HplProv" runat="server" Visible='False' CssClass="btn btn-circle btn-sm blue" ToolTip="Agregar Proveedor" rel="opener" Target="_blank"><i class="fa fa-pencil"></i></asp:HyperLink>
                                         </ItemTemplate>
                                         <ItemStyle HorizontalAlign="Center" />
                                     </asp:TemplateField>
@@ -361,7 +361,7 @@
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Agregar">
                                         <ItemTemplate>
-                                            <asp:HyperLink ID="HplAgregarP" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" Target="_blank"><i class="fa fa-plus"></i></asp:HyperLink>
+                                            <asp:HyperLink ID="HplAgregarP" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" Target="_blank" rel="opener"><i class="fa fa-plus"></i></asp:HyperLink>
                                             <asp:LinkButton ID="LnkAgregarPagoP" runat="server" OnClick="LnkAgregarPago_Click" CssClass="btn btn-sm blue" Visible="false" data-toggle="tooltip" ></asp:LinkButton>
                                         </ItemTemplate>
                                         <ItemStyle HorizontalAlign="Center" />
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 3b39e3541..0f8199f3a 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -898,7 +898,7 @@ Partial Class Compras_eFacturas
 
             End If
             If e.Row.DBCampo("CveCompra") <> "" Then
-                e.Row.FCLiteral("LtlFolio").Text = String.Format("<a class=""Texto"" style=""cursor:pointer;text-decoration: underline;"" href='/Compras/Compras.aspx?CveCompra={0}' target='_newtab');"">{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio"))  '1\Compras\GAPC480413QL3\A-69.xml
+                e.Row.FCLiteral("LtlFolio").Text = String.Format("<a class=""Texto"" style=""cursor:pointer;text-decoration: underline;"" href='/Compras/Compras.aspx?CveCompra={0}' target='_blank' rel='opener'  );"">{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio"))  '1\Compras\GAPC480413QL3\A-69.xml
             End If
 
             If e.Row.DBCampo("CveProveedor") = "" Then
@@ -1059,7 +1059,7 @@ Partial Class Compras_eFacturas
 
             End If
             If e.Row.DBCampo("CveCompra") <> "" Then
-                e.Row.FCLiteral("LtlFolio").Text = String.Format("<a class=""Texto"" style=""cursor:pointer;text-decoration: underline;"" href='/Compras/Compras.aspx?CveCompra={0}' target='_newtab');"">{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio"))  '1\Compras\GAPC480413QL3\A-69.xml
+                e.Row.FCLiteral("LtlFolio").Text = String.Format("<a class=""Texto"" style=""cursor:pointer;text-decoration: underline;"" href='/Compras/Compras.aspx?CveCompra={0}' target='_blank' rel='opener');"">{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio"))  '1\Compras\GAPC480413QL3\A-69.xml
             End If
 
             If e.Row.DBCampo("CveProveedor") = "" Then
@@ -1686,6 +1686,8 @@ Partial Class Compras_eFacturas
 
         End Using
     End Sub
+
+
     Public Shared Function CargaEmisordeXML(ArchivoXML As String, CampoXML As String, RFCEmpresaActual As String) As String
         Dim Valor As [String] = Nothing
 
@@ -3142,15 +3144,6 @@ Partial Class Compras_eFacturas
 
             If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
 
-                'GvVincularPago.DataSource = ObjCompras.DtResultados
-
-                'If ObjCompras.DtResultados.Rows.Count > 0 Then
-                '    SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
-                'End If
-
-
-                'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
-
                 For Each Drow As DataRow In ObjCompras.DtResultados.Rows
                     For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
 
@@ -3171,16 +3164,26 @@ Partial Class Compras_eFacturas
 
                 For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
                     If GvRow.RowType = DataControlRowType.DataRow Then
+
                         If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
                             ErrorVinculacion = False
-                            Exit For
+
                         Else
-                            ErrorVinculacion = True
+
+                            If ObjCompras.DtResultados.Rows.Count > 0 Then
+                                GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString
+                                GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString
+                            Else
+                                ErrorVinculacion = True
+                                Exit For
+                            End If
 
                         End If
                     End If
+
                 Next
 
+
             Else
                 ErrorVinculacion = True
             End If
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index 6756eca1a..c711b21bb 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -980,7 +980,7 @@ Partial Class ContabilidadC_RegPrePoliza
                         If CveConcepto = 41 Then
                             CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
                         Else
-                            If CveConcepto = 30 Then
+                            If CveConcepto = 30 AndAlso Importe <> 0 Then
                                 'Registra movimieno bancario
                                 If CveConcepto = 30 Then
                                     CveIE = ObjIE.AddBancos_IE(CveCuenta, CveTipoTransaccion, TxtFecha.Text, Folio, Beneficiario, ImporteDocumento, CveMoneda, 0, Observaciones, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
diff --git a/Empresas/119/Formatos/Nomina.rdlc b/Empresas/119/Formatos/Nomina.rdlc
new file mode 100644
index 000000000..939e14537
--- /dev/null
+++ b/Empresas/119/Formatos/Nomina.rdlc
@@ -0,0 +1,5375 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="dsImagenes">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>06ae5329-8ff5-42b5-b7f4-6d68e5186421</rd:DataSourceID>
+    </DataSource>
+    <DataSource Name="DsOC">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>06ae5329-8ff5-42b5-b7f4-6d68e5186420</rd:DataSourceID>
+    </DataSource>
+    <DataSource Name="DataSet2">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>3fde81d4-b9ca-4175-9160-5293ca8b9aa9</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="dsImagenes">
+      <Query>
+        <DataSourceName>dsImagenes</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="ImagenByte">
+          <DataField>ImagenByte</DataField>
+          <rd:TypeName>System.Byte[]</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>dsImagenes</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Cauditronic\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd</rd:SchemaPath>
+        <rd:TableName>dtImagenes</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DsOC">
+      <Query>
+        <DataSourceName>DsOC</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Codigo">
+          <DataField>Codigo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Concepto">
+          <DataField>Concepto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsOC</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Orlando Bojorquez\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd</rd:SchemaPath>
+        <rd:TableName>DtOCDetalle</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DataSet2</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Codigo">
+          <DataField>Codigo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Concepto">
+          <DataField>Concepto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet2</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet2.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportSections>
+    <ReportSection>
+      <Body>
+        <ReportItems>
+          <Tablix Name="Tablix2">
+            <TablixBody>
+              <TablixColumns>
+                <TablixColumn>
+                  <Width>1.69328cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>6.53084cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>1.87118cm</Width>
+                </TablixColumn>
+              </TablixColumns>
+              <TablixRows>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox3">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>PERCEPCIONES</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <Color>White</Color>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox3</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BackgroundColor>DimGray</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>3</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.52063cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox178">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Clave</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox175</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox37">
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Concepto</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox34</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox105">
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Importe</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox87</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.4148cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox179">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Codigo.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox176</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>None</Style>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Cantidad2">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Concepto.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <Format>#,0.00;(#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Cantidad1</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>None</Style>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Importe">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Importe.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <Format>'$'#,0.00;('$'#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Importe</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>None</Style>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                            <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.43657cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox225">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox225</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <RightBorder>
+                              <Style>None</Style>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox226">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>TOTAL PERCEPCIONES</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox226</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Style>None</Style>
+                            </LeftBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox227">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=SUM(Fields!Importe.Value)</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <Format>'$'#,0.00;('$'#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox227</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                            <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.07938cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox180">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox177</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox107">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value EvaluationMode="Constant" />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox81</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox111">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox89</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+              </TablixRows>
+            </TablixBody>
+            <TablixColumnHierarchy>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixColumnHierarchy>
+            <TablixRowHierarchy>
+              <TablixMembers>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <Group Name="Details2" />
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>Before</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>Before</KeepWithGroup>
+                </TablixMember>
+              </TablixMembers>
+            </TablixRowHierarchy>
+            <DataSetName>DsOC</DataSetName>
+            <Top>8.83958cm</Top>
+            <Left>0.1598cm</Left>
+            <Height>2.05138cm</Height>
+            <Width>10.0953cm</Width>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Tablix>
+          <Tablix Name="Tablix3">
+            <TablixBody>
+              <TablixColumns>
+                <TablixColumn>
+                  <Width>1.69328cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>6.23048cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>1.87118cm</Width>
+                </TablixColumn>
+              </TablixColumns>
+              <TablixRows>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox6">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>DEDUCCIONES</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <Color>White</Color>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox6</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BackgroundColor>DimGray</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>3</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.52063cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox181">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Clave</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox175</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox42">
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Concepto</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox34</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox106">
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Importe</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox87</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.4148cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox182">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Codigo.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox176</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>None</Style>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Cantidad3">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Concepto.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <Format>#,0.00;(#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Cantidad1</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>None</Style>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox215">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Importe.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <Format>'$'#,0.00;('$'#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox214</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>None</Style>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                            <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.44125cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox228">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox228</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <RightBorder>
+                              <Style>None</Style>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox229">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>TOTAL DEDUCCIONES</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox229</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Style>None</Style>
+                            </LeftBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox230">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=SUM(Fields!Importe.Value)</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <Format>'$'#,0.00;('$'#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox230</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Style>None</Style>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                            <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.07938cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox183">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox177</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox108">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value EvaluationMode="Constant" />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox81</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox112">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox89</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+              </TablixRows>
+            </TablixBody>
+            <TablixColumnHierarchy>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixColumnHierarchy>
+            <TablixRowHierarchy>
+              <TablixMembers>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <Group Name="Details3" />
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>Before</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>Before</KeepWithGroup>
+                </TablixMember>
+              </TablixMembers>
+            </TablixRowHierarchy>
+            <DataSetName>DataSet1</DataSetName>
+            <Top>8.84178cm</Top>
+            <Left>10.25511cm</Left>
+            <Height>2.05606cm</Height>
+            <Width>9.79494cm</Width>
+            <ZIndex>1</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Tablix>
+          <Rectangle Name="Rectangle1">
+            <ReportItems>
+              <Image Name="QRCode">
+                <Source>Database</Source>
+                <Value>=First(Fields!ImagenByte.Value, "dsImagenes")</Value>
+                <MIMEType>image/png</MIMEType>
+                <Sizing>FitProportional</Sizing>
+                <Top>0.27213in</Top>
+                <Left>0.20622in</Left>
+                <Height>1.30194in</Height>
+                <Width>1.48366in</Width>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                </Style>
+              </Image>
+              <Tablix Name="Tablix1">
+                <TablixBody>
+                  <TablixColumns>
+                    <TablixColumn>
+                      <Width>5.73971cm</Width>
+                    </TablixColumn>
+                    <TablixColumn>
+                      <Width>5.74636cm</Width>
+                    </TablixColumn>
+                  </TablixColumns>
+                  <TablixRows>
+                    <TablixRow>
+                      <Height>0.6cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox258">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Éste documento es una representación impresa de un CFDi</Value>
+                                      <Style>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                        <Color>White</Color>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox258</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <BackgroundColor>DimGray</BackgroundColor>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                            <ColSpan>2</ColSpan>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell />
+                      </TablixCells>
+                    </TablixRow>
+                    <TablixRow>
+                      <Height>0.6cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox18">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Sello digital del  Emisor</Value>
+                                      <Style>
+                                        <FontFamily>Calibri</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox18</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                            <ColSpan>2</ColSpan>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell />
+                      </TablixCells>
+                    </TablixRow>
+                    <TablixRow>
+                      <Height>0.6cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox15">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Parameters!SelloDigitalEmisor.Value</Value>
+                                      <Style>
+                                        <FontFamily>colibri</FontFamily>
+                                        <FontSize>6pt</FontSize>
+                                        <FontWeight>Normal</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox15</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                            <ColSpan>2</ColSpan>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell />
+                      </TablixCells>
+                    </TablixRow>
+                    <TablixRow>
+                      <Height>0.6cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox9">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Sello dígital del SAT:</Value>
+                                      <Style>
+                                        <FontFamily>Calibri</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox9</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                            <ColSpan>2</ColSpan>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell />
+                      </TablixCells>
+                    </TablixRow>
+                    <TablixRow>
+                      <Height>0.6cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox64">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Parameters!SelloDigitalSAT.Value</Value>
+                                      <Style>
+                                        <FontFamily>calibri</FontFamily>
+                                        <FontSize>6pt</FontSize>
+                                        <FontWeight>Normal</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox64</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                            <ColSpan>2</ColSpan>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell />
+                      </TablixCells>
+                    </TablixRow>
+                    <TablixRow>
+                      <Height>0.6cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox68">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Cadena Original del timbre</Value>
+                                      <Style>
+                                        <FontFamily>calibri</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Bold</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox68</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                            <ColSpan>2</ColSpan>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell />
+                      </TablixCells>
+                    </TablixRow>
+                    <TablixRow>
+                      <Height>0.6cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox69">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Parameters!CadenaOriginal.Value</Value>
+                                      <Style>
+                                        <FontFamily>calibri</FontFamily>
+                                        <FontSize>6pt</FontSize>
+                                        <FontWeight>Normal</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox69</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                            <ColSpan>2</ColSpan>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell />
+                      </TablixCells>
+                    </TablixRow>
+                    <TablixRow>
+                      <Height>0.6cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox11">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Versión del comprobante: 3.3</Value>
+                                      <Style>
+                                        <FontFamily>calibri</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Normal</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox11</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="Textbox12">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Versión del complemento: 1.2</Value>
+                                      <Style>
+                                        <FontFamily>calibri</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Normal</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox12</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                      </TablixCells>
+                    </TablixRow>
+                    <TablixRow>
+                      <Height>0.6cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox254">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Usos del CFDI "P01"(Por definir)</Value>
+                                      <Style>
+                                        <FontFamily>calibri</FontFamily>
+                                        <FontSize>9pt</FontSize>
+                                        <FontWeight>Normal</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox254</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                            <ColSpan>2</ColSpan>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell />
+                      </TablixCells>
+                    </TablixRow>
+                  </TablixRows>
+                </TablixBody>
+                <TablixColumnHierarchy>
+                  <TablixMembers>
+                    <TablixMember />
+                    <TablixMember />
+                  </TablixMembers>
+                </TablixColumnHierarchy>
+                <TablixRowHierarchy>
+                  <TablixMembers>
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                  </TablixMembers>
+                </TablixRowHierarchy>
+                <DataSetName>dsImagenes</DataSetName>
+                <Top>0.09122cm</Top>
+                <Left>4.46868cm</Left>
+                <Height>5.4cm</Height>
+                <Width>11.48607cm</Width>
+                <ZIndex>1</ZIndex>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                </Style>
+              </Tablix>
+            </ReportItems>
+            <KeepTogether>true</KeepTogether>
+            <Top>13.44227cm</Top>
+            <Left>0.1598cm</Left>
+            <Height>5.61496cm</Height>
+            <Width>19.90317cm</Width>
+            <ZIndex>2</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Rectangle>
+          <Textbox Name="Textbox2">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>AGROQUIMICOS JAM SA DE CV</Value>
+                    <Style>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Left</TextAlign>
+                </Style>
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>AJA850608L7A</Value>
+                    <Style>
+                      <FontStyle>Normal</FontStyle>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                      <TextDecoration>None</TextDecoration>
+                      <Color>#000000</Color>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Left</TextAlign>
+                </Style>
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Registro Patronal </Value>
+                    <Style>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Left</TextAlign>
+                </Style>
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!RegistroPatronal.Value</Value>
+                    <Style>
+                      <FontStyle>Normal</FontStyle>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                      <TextDecoration>None</TextDecoration>
+                      <Color>#000000</Color>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Left</TextAlign>
+                </Style>
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>601 Régimen  General de Ley Personas Morales
+Lugar de expedición: 83220 Hermosillo</Value>
+                    <Style>
+                      <FontStyle>Normal</FontStyle>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                      <TextDecoration>None</TextDecoration>
+                      <Color>#000000</Color>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Left</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox2</rd:DefaultName>
+            <Top>0.12976cm</Top>
+            <Left>4.80311cm</Left>
+            <Height>2.24428cm</Height>
+            <Width>8.17373cm</Width>
+            <ZIndex>3</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Tablix Name="Tablix5">
+            <TablixBody>
+              <TablixColumns>
+                <TablixColumn>
+                  <Width>3.71238cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>7.38712cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>4.59571cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>4.19504cm</Width>
+                </TablixColumn>
+              </TablixColumns>
+              <TablixRows>
+                <TablixRow>
+                  <Height>0.49417cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox232">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox232</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="Textbox233">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox233</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="Textbox124">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>SubTotal</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox124</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="Textbox126">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!SubTotal.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                    <Format>'$'#,0.00;('$'#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox126</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.52062cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox120">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Folio Fiscal</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox120</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="Textbox122">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!FolioFiscal.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox122</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="Textbox130">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Descuentos</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox130</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="Textbox131">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Descuentos.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                    <Format>'$'#,0.00;('$'#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox131</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox132">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>No. Certificado del SAT</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox128</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="Textbox133">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!CertificadoSAT.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox129</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="Textbox134">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Retenciones</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox134</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox135">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!ISR.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox135</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox148">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Fecha de certificación</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox132</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="Textbox149">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!FechaCertificacion.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox133</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="Textbox138">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>TOTAL</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox138</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="Textbox139">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Total.Value</Value>
+                                  <Style>
+                                    <Format>'$'#,0.00;('$'#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox139</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+              </TablixRows>
+            </TablixBody>
+            <TablixColumnHierarchy>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixColumnHierarchy>
+            <TablixRowHierarchy>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixRowHierarchy>
+            <DataSetName>DsOC</DataSetName>
+            <Top>11.00367cm</Top>
+            <Left>0.1598cm</Left>
+            <Height>2.21479cm</Height>
+            <Width>19.89025cm</Width>
+            <ZIndex>4</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Tablix>
+          <Tablix Name="Tablix4">
+            <TablixBody>
+              <TablixColumns>
+                <TablixColumn>
+                  <Width>2.24293cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.0898cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.18893cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.55215cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>4.82941cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.61173cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>3.23933cm</Width>
+                </TablixColumn>
+              </TablixColumns>
+              <TablixRows>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox201">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>DATOS DEL EMPLEADO</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox201</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>7</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.49417cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox194">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>No Empleado</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox194</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox195">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!NoEmpleado.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox195</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox333">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox333</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox198">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Nombre</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox196</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox203">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!NombreCompleto.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox197</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox199">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>NSS</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox199</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox200">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!NSS.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox200</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.44125cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox187">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>RFC</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox187</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="Textbox188">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!RFC.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox188</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox190">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Régimen</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox190</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="Textbox191">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Regimen.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox191</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="Textbox192">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Departamento</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox192</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="Textbox193">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Departamento.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox193</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.46771cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox174">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>CURP</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox174</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="Textbox175">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!CURP.Value</Value>
+                                  <Style>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox175</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox177">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Riesgo Puesto</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox177</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="Textbox184">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!RiesgoPuesto.Value</Value>
+                                  <Style>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox184</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="Textbox185">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Puesto</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox185</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="Textbox186">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Puesto.Value</Value>
+                                  <Style>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox186</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox167">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>INFORMACION LABORAL</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox167</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>7</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.54708cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox160">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Contrato</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox160</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox161">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Contrato.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox161</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox163">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Jornada</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox163</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox164">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Jornada.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox164</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox165">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Salario Base</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox165</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox166">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!SalarioBase.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox166</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.52062cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox153">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Dias Pagados</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox153</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="Textbox154">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!DiasPagados.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox154</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox156">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Periodo</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox156</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="Textbox157">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Periodo.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox157</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="Textbox158">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Salario Diario Int</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox158</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="Textbox159">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!SalarioDiarioInt.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox159</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.52062cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox146">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>PAGO</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox146</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>7</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.54708cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox127">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Banco</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox127</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox136">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Banco.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox136</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox142">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Método de Pago</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox142</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox143">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!MetodoPago.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox143</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox144">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Fecha Inicio</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox144</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox145">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!FechaInicio.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox145</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.49417cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox115">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>CLABE</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox115</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="Textbox117">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!CLABE.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox117</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox119">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Forma de Pago</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox119</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="Textbox121">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!FormaPago.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox121</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="Textbox123">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Fecha Fin</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox123</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="Textbox125">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!FechaFin.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox125</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.46771cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox36">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Clave</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox36</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="Textbox16">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Cantidad</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox16</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="Textbox21">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Unidad</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox21</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="Textbox49">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Moneda</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox47</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="Textbox65">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Descripción</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox59</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="Textbox77">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Precio Unit.</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox77</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="Textbox109">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Importe</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox109</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.52062cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox54">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Clave.Value</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox54</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="Textbox55">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Cantidad.Value</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                    <Format>'$'#,0.00;('$'#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox55</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="Textbox57">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Unidad.Value</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox57</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="Textbox50">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>MXN</Value>
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox48</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="Textbox71">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Descripcion.Value</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox60</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="Textbox103">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!PU.Value</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                    <Format>#,0.00;(#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox103</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="Textbox110">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Importe.Value</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>7.5pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                    <Format>'$'#,0.00;('$'#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox110</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+              </TablixRows>
+            </TablixBody>
+            <TablixColumnHierarchy>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixColumnHierarchy>
+            <TablixRowHierarchy>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixRowHierarchy>
+            <DataSetName>DsOC</DataSetName>
+            <Top>2.45745cm</Top>
+            <Left>0.29576cm</Left>
+            <Height>6.22103cm</Height>
+            <Width>19.75428cm</Width>
+            <ZIndex>5</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Tablix>
+          <Image Name="Image1">
+            <Source>Embedded</Source>
+            <Value>Logo</Value>
+            <Sizing>FitProportional</Sizing>
+            <Top>0.12976cm</Top>
+            <Left>0.29576cm</Left>
+            <Height>2.1513cm</Height>
+            <Width>3.93798cm</Width>
+            <ZIndex>6</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Image>
+          <Tablix Name="Tablix6">
+            <TablixBody>
+              <TablixColumns>
+                <TablixColumn>
+                  <Width>3.31842cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>3.24083cm</Width>
+                </TablixColumn>
+              </TablixColumns>
+              <TablixRows>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox218">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Recibo Nómina</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox218</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="Textbox216">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!ReciboNomina.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox216</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox220">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Serie</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox220</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="Textbox221">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Serie.Value</Value>
+                                  <Style>
+                                    <FontFamily>Calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox221</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox223">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Fecha</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox223</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="Textbox224">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Fecha.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox224</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox219">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Tipo de comprobante</Value>
+                                  <Style>
+                                    <FontFamily>arial</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox219</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="Textbox210">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>N</Value>
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox210</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+              </TablixRows>
+            </TablixBody>
+            <TablixColumnHierarchy>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixColumnHierarchy>
+            <TablixRowHierarchy>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixRowHierarchy>
+            <DataSetName>DsOC</DataSetName>
+            <Top>0.12976cm</Top>
+            <Left>13.50372cm</Left>
+            <Height>2.4cm</Height>
+            <Width>6.55925cm</Width>
+            <ZIndex>7</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Tablix>
+        </ReportItems>
+        <Height>19.28653cm</Height>
+        <Style />
+      </Body>
+      <Width>20.56787cm</Width>
+      <Page>
+        <PageFooter>
+          <Height>1.03187cm</Height>
+          <PrintOnFirstPage>true</PrintOnFirstPage>
+          <PrintOnLastPage>true</PrintOnLastPage>
+          <ReportItems>
+            <Textbox Name="Textbox116">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Fecha Impresión:</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value xml:space="preserve"> </Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Today</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox8</rd:DefaultName>
+              <Top>0.17639cm</Top>
+              <Left>0.29576cm</Left>
+              <Height>0.46771cm</Height>
+              <Width>6.86562cm</Width>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+          </ReportItems>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+          </Style>
+        </PageFooter>
+        <PageHeight>27.94cm</PageHeight>
+        <PageWidth>21.59cm</PageWidth>
+        <LeftMargin>0.5cm</LeftMargin>
+        <RightMargin>0.5cm</RightMargin>
+        <TopMargin>1cm</TopMargin>
+        <BottomMargin>0.5cm</BottomMargin>
+        <ColumnSpacing>1.27cm</ColumnSpacing>
+        <Style />
+      </Page>
+    </ReportSection>
+  </ReportSections>
+  <ReportParameters>
+    <ReportParameter Name="NoEmpleado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RFC">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CURP">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NombreCompleto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Regimen">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RiesgoPuesto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NSS">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Departamento">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Puesto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Contrato">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="DiasPagados">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Jornada">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Periodo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SalarioBase">
+      <DataType>Float</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SalarioDiarioInt">
+      <DataType>Float</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Banco">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CLABE">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="MetodoPago">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FormaPago">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaInicio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaFin">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Clave">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Cantidad">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Unidad">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Descripcion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="PU">
+      <DataType>Float</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Importe">
+      <DataType>Float</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FolioFiscal">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CertificadoSAT">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaCertificacion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SubTotal">
+      <DataType>Float</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Descuentos">
+      <DataType>Float</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ISR">
+      <DataType>Float</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Total">
+      <DataType>Float</DataType>
+      <Nullable>true</Nullable>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SelloDigitalEmisor">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SelloDigitalSAT">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CadenaOriginal">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ReciboNomina">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Serie">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Fecha">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="QR">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ImporteLetra">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegistroPatronal">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+  </ReportParameters>
+  <EmbeddedImages>
+    <EmbeddedImage Name="logo">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAAGYAAABtCAIAAADceoP2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACxWSURBVHhe7XwHeFTVFi72Rq+BQHpPSEJ675WEEELviKAgVVGvVxFFFASUEmoKRZrUIOAVvaD0XkSKIJCZTEvvZfpk3r/PPpmcmcwkE+7F+977XN//7eyzz67/WWvttc9kpoP2b2mn/E1Zu+VvytotT0iZWq0uLS0VCUUSsfipQigQKhUKdtQWUlRYKBIJ9ZpIAEmhAQoJIKhfX1fHNmZWUVhY+PjRY15+PgGPgM/jEUB4/AK+ISBPSFl+fv6EsWNC/P1iwsOeHiJDQ5LjYkEEO6q+4Jmlpw6ODA2Kj44EEmKiEmOjkuJikuPjUhLigdSkhLTBiUNTktNTUzLSUlB5xLCh169eYdtrtRUVFWPHjIoOD0+IiUmKi01OiB2cGJ+anDRkcHLa4MFpKSnpQ4ZwkZYyeGRGxhNSdujgARvLvhbdu1r26mHZq2fr6N+byfQmmXahT/cuWGplRQU7qr7kHTpkb9VvQJ+eNv0sbPv3s7eydLDp72Rj7Wxn4+pg6+5o7+7iONDNycvdZdBAd1+vgUjBC7SNba/V3rr5W3RkGOhOjGX5SklKJHylpAwFhqQOS0vjAremvzH1CSn7/NNPenbpCNZszUH/prR/X7sB/XSZNmHRvcv6zDWNGg07qr58+P57NpZ9HKz7O9pYOdlau9jbuDrauzk5erg4ebo5e7m5enu4+3h6+Hl5Bvh4B/n5+A/yfv/d+XK5nG2v1W7JyYmhfMWDrAToF/RoaGoqFCojLS1jaNqIYelcoHzJ4sVPQllJSfHojPR+vboarLC9gI4ADtbGYTegL+6eOXOaHVVf5HJFempy/z69nOysnexsnO1tXR3s3Bwd3J2cPF3Al4u3uxtRLu+B/t5egX4+QX5+vl6eu3ft
+YNtrtRqNet6cWbFREYMT4ghfg5OGpBD9Ai/DhoKvocCIYcNGZrAAZcPThx46cOBJKIM78HB2sO1v4WBtaTYoETTfvy0MAKz69klNThQIBOyo+nLp4sVA30GwR2d7li93JwcPZ0fKl5eH6yBPNxij/yAvVAv28w3y84VnvP/HH2x7rRaOf/Tw4XHRUYOTElKSKF9ExWCAIGs4CBqWPnJ4xqgmgL6xo0bBiT8JZVtzcyx6dHWwGWAGrBxtBsBwHKyRscKlUTja6gFW5mhr3bdH939+8IFSqWRH1ZctOdlOxB6tQBbskfDl4uDpSu3RzZs4L08/L69An0HB/r6hAf4BPoPemvZGWWkp216r/eHo0dSkpKT4WDwYOKmhqdgfCF/D04kNws0Do4ePGD2CxchhGfNmz66urm43ZfX19TOnT7fuZ4FVNcOGZrBgXSGbx/p1cLa1YTN2JIPUFJzsrGC5O7/dzo7aQj5Y8M4Ai16ujrYwRjfCl+NAVyfClzvxX9AvP28vf7gwf5/gAL/QoACo2+pVX2vUara9Vrty+fK4qEiYJPX36cTZD8lIZ41x1PDhwJiRI8eMYjF82LCcrCw8wnZTJhAUBPkMguEYLNII7G2gYrAdAOunqZ2VKVhyMpYD+vYK9Bt0jRMQcAVzQMSAalAud2fHgc5OXkS/qP/yIP4L9ujjHehL+AoLCgBloUGBP//0E9teq5VKpfPnzgVlVL9gj3D2cFWsMY4YTjRr5Iixo0cB40aPBqB0ly5dQtt2U/bT8R+hQaDDxcHOxcEWKTGNJjCFbB4uZtBAt7jI8PjoCBI6RTGpDgaXTUhg0rDAgAXz5jbU17Oj6suZ06d8BrpjoIHYHBmyEEl4e7hS/SL+3tcbLp/hyz8iJCgk0B+29se9u2x7hBe//QYWkhPi4b+IPQ4hfFF7BFlUueC5CFljxowfM2bsqJFvTZvO4/HQtn2UNTY2fvjB+852tuTxMmA2KUd3mjYVUtgNsPz8
+00V3b9++e+f2HaTtwa2bN0VCITtqC9m2Jdd+QD/GEp29CV+ueDa+iCe8Pf29veG/Av0ZFxYYEB4cCK8f4OuDiETa0MC212oPHtifEBuDeBV8IZ6A/yLbIqtfIxmmRoOpCWPHThg3DgCPK1csh1NC2/ZRVlNdjSDbxd7W09UJTxgRUFPqiAzWQFKmxM3R3tfT3VSIYKbgCbE5jtTW1r4ze5arvY23Ozw9yGKdF4wxYBCMkZAVAv0KDIwICQZfUWEhMMycrM1se+actOqbr+Oio4l+DR0C/SLOfnjG6JFwXqOgXOPHjgHA1MTx4ydNIECFI98fps3bR9mFs2cCBnl6ODng8RJzMEybL53trMeMyMDJjm353xMc9GDUnm4kpvfxIpEqPH0AcV5eiCSC/P2wP4YFga+gyLDQqPAwUAbrO3fuDNteq8Vhc86st1MSE5lggvj7UcNHMD4engvKNXriuLETGb4mT5gweeJEZF6fMuXK5ctoi6fYPsq+WbkCcyVRDzZyDxIrIoOU5JtKyB7v4Ybw8sP3F7DN/qty5vRpKDIxQ4YseC4a3AcF+MBnwRjh78NDg6JCQ3F4jI2MiAwNnvb66xUVlWx7rfbG9eskpBgC/SL2iEgCzgveCmQRYxw3btKECQDImjJp0uuTJsE8F370UWkJG6C0gzK5QjHt9Snuzg6+XsQQmlIGjGmwJZ4eoA+ZHdtNhghPLLCpFcuWon8/JowIgJv3RWTvG+LvFxLoFxYcGB4cROwxLDQmIhyRfVx0JDJfLvmcbc/I4UN5cPxkc8xgnBfhC3viKKJZDF9TJjFkTZ48dcoU0A3K1q9bh4bUUbSDMuw4KYnx8LXk2Q5invAgzybQEjaPJcHl3f79d7YlOd/I+XzeyRP/3r9379rVq1Ys+3LlsqXfrFh+YN/eU7/+UlZWqjFxkDSQhoaGSePH+Xp7wmcF+sIMidsCQgP9w4MDIkKJMUaHh8VERMRi542Jjo+JSk1MPHbs
+KNuecYWfLfpk6JAUGnmNHkm2xfFjx04aNw5mOIlq1uTJr0+Gdk2A0oHTERnDjhxmHRmkHZTt3b0bLgPxIZmuH2bsQ1IuaLnfIC8Pt6mTJ6IJ5nfjxo1lX36JaWH2EaEhsB0cj0EuAy9cRoQGI/7+4L13//3zT3Wcl1lG5f79+2AEeyJhKtAfgJsnygXPRZxXSAyMMSIcx6B45n1OQmw0VEkoaN58xWLx5AnjoWLYGeG8JowZM5HZFuHvEU+QKD8jAxtCGgnWCJLi46ZMmCCRNL+AMpcytUr96cKFnq4uwf5+OmDeRvLETPxXrVxx9crld+bOQjncDfE42M58fIIQXlI78vPF1kZ8kK8PnJE/nLevz/w5s2nsY0r2fbcnNMg/FBticCB8PGIIME63xehwxhgjmeAuNjqJvJ+IS4yLmT93jkLe/JLy2rWrI9LT4bnGjBgJLQM7CDIQ/ScnxYPipLi4wYk4ciYC9MUZTHj5smVsY0bMpUzA508YMwoqhg0b/rUZwUixQzEZkg+AjUSHhb457Q3MG6oEF4NFMncZdWBSZsEkaGIQxCAQ+oKD4YSxo1th7dNPFgYF+EGnwBRDVnBUOLXEMEa5IuJjmZeFcfGDE+JTEhOSE+NwGm3UsMEKnFHWxg04JCUnxifGxcLTRUeEE8WMjIyLidJRBrIoX+gBjuzPhw9pcyrmUnbu7Bls28zmHRyuDzp7LINBMKkQHBwSAO4CIkJCcEkrNCEkIiyYgNGOyDC4apQgwwJPBbzIZDJ2YI5UVFRgAYghosJCaeVowlQEQRQ8V1R8XDRZM8hi3xQOBh4+/JNtTyjTvjF5ElSbeZBEQ6GYceArOiqBtNWjLDUpMTkx4bs9u9nGTWIWZXg4OdlZOILoFsYFnjMFpzCUWRUphApgYTqQEs5lS6B5fHTU7du32bE5gseWkpyAJxcTCbWCz4pADAFNIWTFRsMG4XdSEkBWUlpK8pDkJJTg5Hjp4sX8x48BXn4+
+8jhXwucSfScba4iOskR9ysA7LleuWNHSvZpFWVVV5dxZb8N2YiLDYQIEyGDeupQUIs8ilgAPn803lYeRQiOIxDJ0KUpgKXt37WLH5sjWrVvAeAyhKQp2xPj4aFgiqEmOj09NSkodnJQYG4sesHv6e3siqKYnUBL0eCIoIa9nA/1wkIKjaI0y2Cx6XrPqm6rqanZsjphF2YMH9zEtJjKkq8IYLHRLjYmIhHU0XRIiKOKY4IhFTCT2fgrk42NIIVIKUggucDcqIpdzvqECU/34nx/C9rEY8AVHiUwi8VxxyQkJUEw8UWzBiHJd7G0cba1wqnN3sqcnOYY15qU2ohNsPszroDBEcKHBMAJoKx4DJpCABxAVjVVgizycl4eAhh1bX8yiLO/QITxeumYa7ABkAKyZ5GlKVkuJYOpEIzSjNelsmPqkVRNiOPlmYPEgHT6bHbtJ/vzzTzgyLA80MYBGIIaICQsM8HZ3c3WwcbDub0M+NOnvRPiycXOw82Ao83J1xmnUZyA5LWBfxhGdHEJxTsCGGxIEB4I+Mduk+NihqYNnvjV9984dgoICdlRj0jZlmkYNXMCWnJxtW7Zs27plOwOSp0C+Bdg6TWlzZT1sbVFCsDWXpDdv3GCHbxI+j/fttm1bcnK3bd26fevWbbm5oDV786ZN69etX7sG2JC5duP6dZs2rN+0LhOFmzesJ9i4IWvjxqxNG1ETJ3OSbt6MTE5WVm5W1pbs7NzsrO927jx54sTFC+eFQmFtbQ07XlOs31LapsxUy6ct/6tx2xSzDPNv4crflLVb/qas3fLXUPafeyX08Be7NpPD/QWU/V/qxc0Q7EBGJv/UKTslanj/fNk7Z0sXnOOAuXzvXNkH58veP1c281Rp2g9FCUcKgfi8ohslzf82ASlpUA0+WpTwPblrFElHC5OPFgEpx4pSfiga8kPR0B+Khv0LKM74sXjEj8WjjhePOV487ufi8T8XT2Qw5UQJMPVEyRsnS6ad
+LJn+S8mMX0uBmb+Wvn2q9M1fSz+6UC6oVf5vKPvsUoX3Xon/fnEAB4H7xSEHJMi47xF3yxV0WMfvsIbXYTWvwze8njkFd8r0KDvKqyd3VzEVWgK31gJ8gkw+6WoDwXMbgYLnNxW8tLnglayCjlkFXXME3XIEPXMFvXIFFluFfbcKLbcJB2wXWm0X2n4rdNghctwhctopct4lstkpTj9WWKc0/tbz6VJWo1BPP1ESfEAcfVCkQ1yeKPaQyPc7Yf+tBc+t53XIzCdYx2A1b+KJMrma+2wb3zlXoVfHAOvzn92Q/9wGHvDiRt5Lm3ivbOZ13MzrkgXwu2bze+Twe+XyLXL5llsLMKL1tgKbbQX23wocvhU47RC47BS47hS47xJ47hZ67RZ67yHw2iNaeq35swIDebqUnRE3pB6VRB6UxBwSA3F54vg8sf9eYb+t/Oc3MGQZrH8Nb80tvZOwStM46DsR0SODmhTrjVD28mbe8xv5L24CiIp1zub3zuX33WJImeMO45R57hFihkd5Jt8PP13Ktv9RE3ZQHHdInJBHELJfhBm/vFFfs3RYm98zh39GImUbM3K3XNkrtwC3DCtTtKAMgH59dLE881b1qt+q196qhs/qswVaVtBM2fYC++3GKGNUbOAeUdxhcUm98X+fgTxFyqRKzcKL5eGHJEmHxVEHRZifSbIo1vCiDxdWyZv/0wSSfbcWLJhs0oKyZzfyIg9JKqUqtr1Wu/hqRc9cfp8t7aBsxqkSlemPb4xTptZo+NWKG8XymyUyc3CjWPagUq7R318eVCjG/1gYeUjssUvQNatVsijW8N49V8Y2bpJpv5Z2WNOipg4tKOuwnv/J5UruTjfkWFHn7AILrmG2SpnHHtHG29WtnHCNU9agVL9zpjTpcGHq95I2kfK9JPmwZPHlcnXTK3YqJwQNnntEcL1kba2TBazNh8/Oe6z3fyt1ysbQgxKyLRpU1mF9/jPrwRdL2QvQsg18bif3K5Xu
+u4VdsvV9mWnK4M58vhNdK9bbsg3EOGWSOtXQo/DZEnjrNgGnHn1I/N0DPX+Jh/TJ5YpnsOubckMGWMNz2Cksqm82KMivwoberTgyQJ+yZzbwbXcIf2diFKomW+/W9M4hm2YLygqMUuaxW5R2VFJo2pFBjFN2SiSF4oCORDMAv46at/WDqZIGdcB+SWs2ZYC1+cN/LDI4KsB/m9wrKfQpQ1A28nhJnaLZDcHSX95cAE03U8tcdok+vFjRoGrtc2jjlGXerKTbnAE7RhF/SDz2eJHBk7laLHvZaBhhFJn5z6zLX/e7YXgx9ZfS1qwS4FD2LBmO//nVKra9VlsuVSUfkYAywyCjFcp2ivY+bOPjZ+OUzTtVAqsEHW2yhgqo+eml8nqlnoJk/l5tLl9AZn6nzbwHlXrfIimoUeJ40IaeciiD4++ew8dRgW0PuxY1IP5qGZfZgjJjcRkcf9h+0fViI58HcsUIZSX1qonHi6IZytoEAghEqjvv17KNGYGC4MxorhcD1ubH5BXK1XrmcFokfWkjzkAtKnPBpSyTj2OZuK7ZG2bdrXlpUwF4bIUy550Ct50C7OmgDEelSf8uhkth25sQI5SdFDSkHZHEmUFZymHi+J13Co/z9T6MwUEaR8V2ULYmf+l1w4+/1t+uacMqAX3KRv9UzDbGpq9qnP5rKQ4A8P1mUma/U7z8uslzkk6MUJb1e1VsW44sKU88+LA4eJ+oezbfcZfoTrme7z/wqP4F8x3ZuvxnMvPPSvTMoV6pGXm8iBy5W1TWQxNlHdbzXt7EW3e7mXdetdJ/nxincfh+cyjz2CXEyezgozYcGcQIZcuvVkQcLDTgiItk4LDYY7fgFYSOq3gpx4rqlHrKPOPXsg6Zba1Wh7U8n70ica3e7gH7stouaJt0HWXreDgVXSlp5v2sWNolW9Atm5zJdZQN2GbEl1HK4PiTvpcY+FOjYkhZlUz9zunSKBNWSZUr+qAIYz+LyBtLWs378GI5
+25gRmbrRdx/CC7MpW8376HKlwcnhtFhKbplJGWayjhe4X88brrtdA6uEEZhJmdNO0Zu/lBhMw6gYUlZcr5r5S4lR3w9PD74C9gpx7iWLYfDsusdb7uq5oR8LGrpmmR3Brs3vnMU/KTT8XHrp9cq2+QIYysjDW8+bc7r5yTUoNRk/Fr26meyh5lDmtgubpnD5DeNfyTMQI5S93YIy+DVYIigbuFuod0hGPLU2f9OdZsrgg5KPFrYjgl3NG/tzsUJ/r0TkHntYYj5lhLUNOGw18y6qU9l9K+yYZS5lSAP2in4R6b1EMSWGlJU3qGb/Whp9UI8yKBc2BAyGgNNwJWt4QQfE9xkX8LBKMenfJWYtlWIteRd4UmSoYlgwtrk24n4Khi+kIAWt2PbQdIEUmg79pZT1aYsybPqJhyXV+i9RTIkhZQipFl0sD29y/9R5hR8QkTWAC6N0ZOZjyNRjRa67hMQezaQM1dbmLzhXoX+WJ/Ldwzr2NZFBk5aglK3LTzlSWKfQLbjxvXNlHTfzcRrnUEZe/nApA18A4lhYJYibfapUQ6bSfl8GyblTHXtIAmOEJcIe/fcKX93Ea8M3QSPoa3iD8lawOj/0gMho3DjnDDbcFvWNglKWyVt2rUq3WLWmMfygGEFsV/Moc90F1oR7HuhF462IEcoQZKUfk8TlScAXlPbF9kRY5mI1z2mnAOdQMp7+JgU1DzskJg/AoIlRMFaJGPA0513uvXK5w46Cl9tDmfd3InPCCypGKMMKVt2owjHIbrvgWUzrv89Xvtsu0c1S4++kbpbIrLYJzFVYRsUQ1vFrmsO6rDvVPbL58P3mUAaTdNopTP+hqIzzIrd1MUIZpFyqTjuGje+/rV+wbuY4ebfC5CPdfKfmOdQ02zAxyRmnytQcVZ36S8lzG/n04yVzKLPbIfzyaiW0m23flhinDPJ7mTz8EBMumH9UbAXoZE0+Dp6fXKqo4rzPailvny4jH1kaNDcFULY2fz3n
+rVGZTB2ZJ2lJWb8t5LRklDLbb3FGNv4tRqNinDL6ShOnlnnnynvjgN1e164DlAUN1+RbbxeM+7nkSlvvVQrrVAH7Czt8wwxnDlbzumbzzoibHdlxfkPP3IJnNvDh/l/eXPBqVkHnbDg1HM7JJ769twgstgj6bRX03ya02U5gtV0YtE9k8GFz62JSyxghxJ0Sy2adKfPYjQCC2RaR0kjCFIj1sUvCc44/XPjZlYqrzae/1vT/XrliyA/FAfvEiPXMgd8+yfRfy+BG2PYIUP6sQ/OoPAnMP+ZwYdzhwvjvCxO/L0w+UjQYOFqUcrRoyLGitB+K4L8AlHx+tbLGxAfjRqV1yprlYbXiSH79N79Vjz5eHLhfbPet4KWNvOc36AElttsFAfvFI44XL7pcufvPuktFsjLOeloXqDYOOoJaZUGNUlirMge8GmVJA7xQ82OolKnzq5WCGiOgTQT6PWDfQBODXbt1MZcynWBVZQ0qSZ0KM3tcrXxUpaB4DFQrxHVKbD04NrG1/3+UdlP2t/w/QFnLT2Fb+Vz2LxCTlJWWlmzYsG7pF0uWLlmyZtUq7jeB/nq5duXKksWLly9d+vlnn+7a8S1b2h5RKBRHDh9etXLF+sy136xc3vKf5M0Xk5Q9eHDf12ugRffOfbp1crW3PfFz849MmJJWnv1/qBfr1q7p+PwzPTq+/MqzHRKiI9jS9ohUJn3j9cmONlbMl7itt23JZW+0X0xS9ueDB/7enn17dAZr7o52//7pOHuDI7W1tdVVzZ8bQjSNmuLiIrWqtcNHQ0NDYaFEKm3j5VRFRYXuZxr+9cOx0RnpE0aPHDEsbfGihbSQCuZQVFgo4/xeVMvHg1nBaDZuWPfW9KnzZr89Y/obv5w4wd5jvnxdUlxcUlKs1jzRyx+dgLJAH2/LXl379ew60Nnh3Nkz9+7eXfPN16tWLv/6q6V5hw7s3PHtlInjx48evjFzbXU1Ie7+H/cWzJ+bMWTwgnmzDx86
+BAv6ZsVXXy9flr1pYynzYzsFBfzMNaunvT4pPTXpzTemLF2y+M4d8o04LHLv7l0rln25+usV6P/I93lLl3w2dmTG1Enjf/rxB1S4dPHih+8vWPjPf3zw3rs5mzehBHLnzp1lXyyZOnnSiKGps2a8uX5dJv12L3rbvXMHBiLfMdm4AUb92aKFWZs2/OvY0S8Wf7riq6VIr1wmv6tSV1eXd+jgl18smTNr5rzZs75a+iWM19RXl3RiLmXXrl7ZtWNH19de7vTSs51fes6mX+/+vXv07PxKz04EB/Z+p1KpJo4b3e3VF/t07dir86sDLHpZ9u7e5ZXnX32ug6N1//z8/EcPH2YMTenR6RWgZ+dXYWVdXnkhJiLkKjP7mPCQFzt06Prqi11feQGd9+7yWq8ur3V77UVPFwc0zMne3OnFZzAQekuKiUT9s6dPR4YEdXvtlV5dOln06AL07dVz9PCMh38SnxsWFNCnR1dby772Vv0T42Icra0WzJ8Hup3tbAd5erg42NFfE/p04cLw4MAQ5hcPosmP8pHvaW3IzGydNXMpu3rl8oF9+6z79enfu/uAPj18PFzDAv1tLftYWfTE2t6ZMwsLc3O0tezVDSWONv0TYiORt+7bq2+PLoE+Xnw+f9kXn3d59fn+vbo5WFlGh4V4uTohD4qnvz5JqVKPHJaGflAfzUP8fDzdnJHHQOjkwP69cD19u3e2ZsYaNSxNo1FDSbu++pKVRW9XR/uQIH9XRzu7Af0tundd+sXnMLQhyUmOttaezBe+PN1d3J3sP/rwg0ULPxrk4Y5pDxrofujA/lO//hoRGhIVGhIbFTFl4oSMtLTkOPLF6sFJCY8fPWJZMCZPQlmvLq++/+78vXt2eTjZY0lwdrNnvPnDsWMudta4iyYBgzwvnj/v5miHS1AWGuB75cqVqRPHQfvQW6CP55HvD08cO6p3145oGxrgg+14/KjhoAN8oULW5k3vzJszoA95NihZ9fWK3Ows
+9EMpGzdqeHFRYVJstEX3Ln17dE+Kjf1u966E6Eibfn2t+vYeN3pEUVFRRtoQJ1trLzfmO3JeHs52Nu8veOfTTz7WUZZ38MCWnByoWGxEeHhI0NmzZ75YvDguOio5gXyB+tSpUywLxuRJKIM9fvzPf2BUDyc7StmcmW8dO3rU1d6GUubv7XHn9u2EmCjLnl2x1Ihg/5MnTgxPS7Ho1gm9Bfl4HTl8CE4Q1gdFc7G3uXD+PBiklKH+ltyczDWrrCx6UMpWf7OSS9n40SMEBQVxkeF9e2BuPWIiwuD70lMHW1n0sRtgGRcd/sfdu6My0nWUDXRzjgwJRmwBReNSlpudHezvi1shgf7Xrl39+quvKGVJ8XFHjx5hWTAmT0gZhj+4fx+XMmgZl7Jbv/0WFxWho+yXkyfhpEEZKIBhhgf5udhb9YMD6tbJydbq4oULXMpyc7KhWa1QJhQI4qMiQJl1XwtXB1s4RGi0jWU/G8u+/t4D4e9HDx9GKRvo6vzeO/Pv3r5TVCiZN2eWjrID+/aeP3v2s4Uff/7pojkzZ3zx+eIJY8cmxpJfsARl3N/VaClPlbLIlpQx3qoXqrk52PgOdPVycQgL9Lt+7dqEMSOfgDIYo42lhY1ln0EeroG+PoiKBsfH3r51i2oZfJmHi9OF8+ewHIVCPnf2TB1le3btRCGfx8tctWpERnpMVHhcVFRyfPz/nLLwlpSh/kAXh1Vfr9y0Yd0nH/0TLnnpl0uEQuGY4elPQFn/3j1B08Z1mRsy18JVIZhY881KkUg4bEgqpWygixP9/cX6+jouZfv3fscv4E8cN5Z8Kz4qYnBSPNz/4IS/lrIj33/vasdShi3yt5s3QA0uDSjDZcCggfmPH329/CsPZwdsFLDf327efDIt69eze0x4aKFEvOjjj/y8BoKOYWkpcKMjhw3VUfbHvXtYjgFl8GVQtLDgQDSPDAvJztr8+aJFSeTXeP8qyua+PQNq5epgg0usEzvpe/Pn
+ImPdl1DAdf86yj54d37nl55FiYN1//PnzrXLl3HcP6EMMcHUyRP7dIOdWvgP8rxx7Rr1ZSYp8ySUbduyJSIkCDsmiLtx8wYsND46GloG1rCVURKMyn9Ny4qLinD6Q/CJtaEEsOrbi8Zl8Fbnz52lWyR68/Nyh39BE4SmaI6g6crly+2iTCwWgzIEGZa9usdEhP50/DgOUgMsetv075uanMDLfzwinWoZ+f25tiiLiAgJPnnyxFdffPF0KfsYlO3by1LWrdOMaVPhX1EHp5zE2MghSfGjhg/zdnfBmrFUBGKPHj3CMQXBPaIt+wF9E2OifD3d0FX3ji/jgFVVWTEqfYgeZStXDNBR9rUeZQh65XL5lInjund8BaGsm5P90NRkn4FuCGUte/d4f8H8urpaxBwtKKvHqWiQhxtDmUfewYNbc2lcFhETFTnzrekj0tOZHTPhSSijh1p4TW83l56dXsbJxtHa8tKF8/v27EYIjnC00wvPYOfes2c3Fg9NQQQ/ddLEu/fubcnOwjEQoSZObY8f54cF+FEdRCCGQyiOB3iG6K1Pt044VFl074STk7Od9fEf/4XhkuNjcA7r061j99dewpl0xdIvoZK9u7yKmiuXLc3auKH7a+Qo1vnFZ1MTY1H/xrWrIf4+PTt17NerG/EG8AA9e0QEB925TX4BLD4qEk8XoTWC2Ht376AEWgZe3BzgPb3cnR337dlz8fy5yNDgsKDA6Mjw8NDAmAjyiyXxMdFIv8/LQxNTYpKyQonk4398MHP61JnTXn//nTnwF4ieZr457c1pU3Ea37Fj55kLl+bNmTP9jdenTpmUu2XrlVu/gwu4JywVsdKo4ekO5De/e4D0tKQE2qtQULB+zerJ48dGh4cOS0leMG/O2TPs7/2tXP7VG5Mnvf3mtOlTJ//yy8ljR4/MfGsahsM68cxPnjw5/Y0p5BXElEkrly+jLxzu3Lm7ZPFnUGdszaMyhi7+dNGtmzdRrtY0frFk
+8dsz3pw/d/bcObP4QqEGlEmlOdnZ8+bO+fCD9+fNmX3mzGmNWn04L2/WjBlTJk9C5Lxx/TocORct/PiTjz66auLHWakYN0ysDyc1mVQqlzbU1TeU19VXyJRlDYqSmnoGdWX18nKporS2gV5WyhTVMvn8eXNhPlDDHh1f6vjCM0hBn5er89FjP8i02io5+4FAfV1dcXFxRXm5oumH/BsbG2FrOAxLGxpqMJZUUd4gL62tR/9IyxrkKCmtIZcYrrJBKqxT3atQ1Gi1NapGcXmlqLCoqrJS96NxUqWGqVlHUSZT/VGpKKxXlddLaUlxdW2FVF4q09Q3aosqq4QlpfUyhUqlgvFSMfWTyVRMUkalXKl9VKu9W625VCy/Wqq4V625D9Q23qpQMZeN92sIfq9QlykbS6uqV69ZPXbUSPKj+3Ex6UNSFiyYf+nqNfB1v0p5Xii9WCQrkur6JoKLxsbm4ajcq1JdLVH8Ud34R7Xmj5rG62XKG+UqjII80rtV6vMS2XmR9LRE+luF+nG9Vixne6AvyqrlZJK0MnCtVHFOLD0rkd2uVN9n+kQh5n9GIr1eqnxcp+U3aB9Um/cjfYyYNExNo5Zfo7ooll0QSi+IpOdE0vPIi0gewIx1lxdF0ktIQYdMi6cjb9RKSkpFhcUNKmJAVRrt3QrlWbHsrEh6hunnTrmipukDc8KXhgEyTcz9XiY/L5JdFLH9YyAMh0tMBmMhPSeWnUGHYukFseySSHZJKC1lPvqjPagatVeK5BeEDaQJmSqpjCZoeIn0QFJ0ixLa/DIzVjUzJdpD00SMi3Etg5Q0aDDSaRF5PmcAzFIio3ldSdOlHBlM6Hyh7EaJ4n6VGs+tAI+uRn27THG5SI45YdmnmXVSXCmWl8vYV6CULAoqwlol+mwekRmoJWhXNM+r0XsPjKfCrUYz5wr1YFAiaPqPPt00TIlxyuB2rhbLuT2ag0uFsusS2TWx9GKh7EKh7KpYekMsvSyRcuuA
+VpKRyC4Xycpl7IPlAlKr1FwuJnW4rSi4eR1Q87cyOfd7epJ6tUEdo8AkSUYihaWDZdIec6BdmBbjlEnqVaQ7iRQp06+U4kIRuaQj0UxLwELBHUCJI630K+hwtUReybAGoXxRj4JJ3yxT6EanuAhb41xygRFxt4H5vJkuuE6pudRUH3eb6jRnKFCHphcKpddK5NRbPCFl9yqUTKfEQ8HxXypGSjLsSEyGKW8CxsZsGOiVE7QsaUKR/PcyBf3yPVfLII+qlbo6l+hYNNN8CT2VXy6W0xTlhfXNH3agy1tlClIHFVrFlRI2c61EQf8XAlNonTUjlMF9/l4OH0Q8jgEwP4MSihulcnG9ukKuwVINbrUJfq1Kx5eOtRKpWlcBykiBVekukScZeslUe1TVHBmgj4JaFblrGlArml4vpSUybHe0betihDKZuvFWGdudOcBgxU3/qwJ/AqPm3r3OSWlGl6e4WSqH80JbLmWYww3cLWbrmwM4I+rN6JorZGoU4lnSVAeDSx2uF8v+rNL/tp8JMUaZqvF2ueJGKaDfKWcwrJPNlCnAbz00kyOPq1W6aqhAq+ma/EZLmgBqCsAZQ5WOMiz+YZVSVwdAKyaDVNGU1wOmQf8LnfbQoNJgFajZErBZmrKZpmp3yxWmfk6EK0Yp096rVN4qV9LudOBe6vLI3K5gR6JzhdQo1DBtMidaX78fOtfmDHooVzQwpOsoQ4pdj1bDXfTGooykKG8uaQIoo8pOe4A7y69WkfpM/1xAH2mG3tJdIiQqawp9WhEjlOEJP6hU6g8mZ6C7NJwHrAANdQvGdP+sVGIG9G7znJqAkjsVTXlkyhQ4vtAesGnSThBb3imX4y6prI+7xgoBnbZSKZFq7pTJcbSC+uiAnY2TZzN/VCppOZ4T29i0GKEMwq9RYlqkF5K2ATJSHfvfuboJY//i1mHmRFJdRpfSDGJR0pbrzlSNsE1uk/tMHik3o8sjfVyj4v74TY2iUVdHB2iD
+LkPRXFihwA7Q5v8ZG6cMz4d0UcX2DnCnSPGAcxe7Hp2qbjQciXR3KVCfhW6iTA+6Qt3XYShl0DrswlgGvDLuIn1YTTI0xWVLgGJ2JyEdaBVqcuaj5QTVBM2XukLO5eNqJXURrYhxyuqUjWxfzDCGeQZkbJqvUmKDb14wkyrUjdgE6DwoUIeC5GmrprYULf9Tu0KmeVileFxDaj6qVjCpDqScgpYw/1Kp5P6fKdSlsEGN8sfVivwaFVwb/c9Lkm8CtBuFXLT+D+MQ45SBaDRmBmORj8npXar0L9nHqxNMF9EGbmFOFLo58Wp0Gb3yohZfzmlQNkJNUB9aTCvTTNMl6YreJUB5jaqoXu9bd5VyDSlvukuBkI2bBwS1ah1KpZrWv5VpnLLGxkY4Ql2/BqBDclOA+2/RVKrJdJV0TgYQtCgBxPUqeG+2MSNwK4X1pHLrENYR0IyoToWYjm2v1UpVjSihFbgZmtelXEAxW3dnximD4Plw56SbmbBOSTOiel0JAXTE4NmQ6daruXU4UGJy3BLUBGUt/y+5TKbhrgeAg2MzdSSDVihhUgZ1au7PT6A7HCToLSgBTU0BWxYFdh62vTExSRm8IIYXM1MkKc3QydVhYDoJXUpGMtSRxkZMlzMno9OlhSo0l9SpoZhs4ybBNoLHzgVMT7c2CpRwAWfEnQeePR4ngKiNpibRoC5BhQY19/dcWopJyuC/yfwwS8yDydA8e9lU2Hy3Xi3V/90XWHeNvFG3EkylZR5bM01pCU6pBs8Xk6fL0AGPQYdSBiTPrJaiXKb3e01SlZbUaSA1EanSJi1Bb5G0QYXnhMmz7VuIScowap2qEfEknjxJaUauQXe6vO4uCgGZ4XrJUZE7LR0wM6PAavGo2MaM4AJqQm/RtFym4aTckmZwnx22g0qZBptvm8BAADJVcg0TJRoXk5RRQbsWIJ21BKlM/3AEU8ckDNYDcCdqAK7zpoKIh7mFViyYhZFOmEWSy6YMC64z
+Qq5W2QhrRR1w0Saofuj/HqSetEHZfy5QVUzXfGAHMJgs9I4uQ7eeNoEzL54f+qFPEY8BhdQUmqDWAeERTbkwcDJceeqUyVTcibYN7HcGlMEz1So0AO7STJsAZQ0qFlJ1I7YyqCoK4ddbAiPSlAuETKbU7KlTBqdA5mo+FBqDBwxPjHjFYEmtAASZA/TZOkyZ5lOnDPaBIN5guq3DYAeAwLPgsbOL0WXMg6ypPsyTpq0AA9EUME6ZVvt/AJtQ/9ONVm81AAAAAElFTkSuQmCC</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="Logo">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAALMAAABiCAIAAACUFHUuAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAABmJLR0QA/wD/AP+gvaeTAAAAB3RJTUUH4wYPFDQLvPAHqQAAQARJREFUeNrtfXeclcXV/zkzT719+7LL0ntTiiCIKIpYiWLX2Luxp2iMNRpNjCWaqLGX2BEFewVUBESl9767sL3e+tSZ8/vj7i5FjL5xDbzvj+/nfvy4l3nmTjnPaXPOGbQsC/bh54GQMqCbtu88+tX05xe/uzVRVxIuvP+Ya48aMDaTSRuqwTgHAl94nvARkYAAAAH39MABAHAfZfxM8KUIGcH1jeWXzfzL3PIlpmYqnLekW6J65OXT7jxmwPiNjZUtVgoBymLFBYGY47sqVySRJ3zO2J4ePuz5EfyfhC9EKBBcWLni8Keu+KJicU4wxoA44AmDDhNAl7/916SbWV1XPu6xCyY+ffnhT12+pbVGVdSaZGPKywTNgJAiyz/2IPZRRudDSBEKBBeULzv+xd822Ym8QMwTjifEP467fsY59504eGJl/aY5G745asC4slgxcraheVt5S5WiKgu2rjr0sYvmbPomGAgioCS5B2exjzI6Gb4UQSO4tGrtiS9en/QyQc1whJe27QeP/c3pwycv2bZ2QeVyphqbmqs0VS0J53vCNxSVIQMAU9VW1G+e8q9f3/j+w8QwoBp7kDj2UUZnQpI0VL0qWXfGqze3uqmAagqStuvcdcTlFx84dW19xWkv37gt2cgULS8YAwDOOQJYwqlJNgGA67u6Zpq68ZcvnjvmmavXNFVoiiaJiEiS9KUg+u+JmH2U0ZlAYIB42Zt3r2+uDGtBAhm3U6cMOfx3E8/d2lJ35it/qEjWBlQ9ogUOLBvsuE5TupUzTgAcEQBqU82u8ICwMJz3WcW3Z792q+O7HJmmqAEj
+EAoENUUTUvx35qLs6cX8vwNfilAg+Nc5z727dl5+JNcTPkPUuLqhaeu05Z8+Mn/asvqNhcHc+lTTiQMP7VvYffHW1VWJepUrUsqCUC4AbG2pJSACcoUfM6PbkvXVqca+eWW/e++hNU3lh3QffvLQST3zSjO2xfBnt2w7kzII/pvcbi8CAgiSpmYsq1r3l8//FQtGhBAAIIlMVV9Rv+nMV2/SVC3XjFi+HdLM6yecg4jvrJsXd1MxI5pjRnrnlALRqoYtKuNAhIA+CQU5BwYMV9Zt/nDtZx+uX/DA/FfunHTZRaNP+C8QR6dRhiSpMEVT1J97G/ZOEBAq7I+fPpXwMjlm2G/n+USkK5qp6lkjNJ5O3H/sdQd0H1IXb3ppyQdhPZTxrJElA8pyiqrjDavqN+mqLokQwfP9otzcomAuCDIUTTdDMTOS9qyL37yzKdN6w8Tz0pnMz+r26BzKIKKAZjRZyarG8qya/f8VpCRT07/euuqjjQuiRtDfWRUgIgnAkDWmmq+fcO51B50JAH/+/NnNrVWFobyEnT6671jG+byK5VsT9VEjJEgy5LbvHNx9eDAQSKSTlYlaROYJT2Vqbjj2h08e7ZNTetL+R6Qzac74zzSpTqAMSdLQjC8rll70xl11mWZEBnvaS/PfRHaqCOhJX1M1+R2BypEJks3p1lsmXvTHSZciZ88sfOvhha/nmtG0Z5WFC08cchgQzFj1mQQCBCQgkiHFOHXoJALa0lpd3lKlK9meiQELaMZvPvz7qG6DS8OFnu/hzyNWOuH9RkAhxR8+fmxdcznnnIAQiSHg/x8fhsCQCKTKdvOaKYxbvuP5/qPH//6OIy5HZF9sWnTt+w+E9CAyTNrpM/c/qkdeybKq9R9tmB/RA0JKznirnT6m3/gxZUOQcM6mRc12Sm3nDZKkqRoVrTVPLJyhqIr/s5kqP5VnEJDCecJK1aYaw3qYiBAh6TBBtFecC/1XgMCDGiHbyaONCBxZU6a1
+T07XJ6bedGjvUZ7nVSXrz59+pwCpM93y7J6xLlcceCoAPLTg1VYnlRuI+lL6UkRU4/eHnssQM07mleUfZ5WPHRcdAEoi+USgMkUSsJ9hrTtDzyAARIZMkgTgtkdnDUkc3tPyxM/E5/YiEACCBMi9b0FgS8JT27dIYeAK1mo7pww99sFjr+kSjqUtCzic//odlcnamBEGkBnHuvno35TlFn20dv6ryz6KmRFfCpUrDcmmPx522fDSAQDwxqrPFlWvzjGjPon2nnmLnRxXtt9ZI46Rvkj6mRwj4voeR+xcEd5ptgkBMQZJF0/un37mF/UgBewdp8k/OzjVJqxff9JNCB5QyJfIEVpslm/4dx/ZcPnoRqlCyvJDAePiN+76rGJRfjAHAFoyyZMGH3b+Ab+oiTdc9/6DwAGyu24lDu056neHnO25XtJL/+WzZ3VVl+28SGE87VolwbzHpt4YNcNzNnxz5Yy/TD/73v4FPWzP7lzdvzP9GQgkJE7sbpEUTWmm/H9gowiCmIGfl5tdQ95vxrb+cW60Oq35Hh3bJ3n3xObBhW489bzERTn5r9//xZdPLXozP5gLBJZ0ukWL/3bsdZZwLnnjrvVNlTEzTESW7xSZOY9NvVFBRVWVm99/bE1TeV4gllUmFMZTrpWrh185466hJX3W1VdcPOPuTU1brnn3vnfOfZAho059FzvZB4oAkgiBOEPOfpi9EYAk4DtMSBIQISIwpI4G2Z47pGm2DUPqkFZEmHUDZNsQtDWQBIjZUQECIIIEIAKOQATU3ueOolq2f48dI5QISNlBIoAEkBKzWjYjcAUNLXC+OHdbZVzb3JTXM9e5aVzrufvFScqWDCArCKlrFqy/8I7ZPDcQYkA2uRkrdd/UW0pzis9/7Y/vrp9XEMoRJARJEvT0Gbf2y+uGnD337TtPfjMj14xmyULlSouV6BHp8uoZd48sG1iTaPzlazdXJmqLYl0+2fT1M9++ffm4k1OZtNJ5Rmzn
+vtfYJnkB8UcYrgTAACPa9paSKKDKWFAGVUFEQKgyiBkUMymoEBABgCAIqhQLSkOhLNFIQkPJPiWz+6oyCqiCCE2VNEZEYKikKwQEOqeIJrP/E9YIgBAoqEoEICAgiBoyZkoGbXTJgWIBETNkG5UAqIxiQRnWZJaCPYHdY07UkMtr9bOHxD87p+rCEc0ZlzI+KowBuaoSfXZJTcL2fKnVZ4BR7NFf3H3isCMemffac0vezQvHJJEEmbYz/zz+hiP7jUXGZm1YeM079weNgCRCQIXxhlTLmC6D37/g7yPLBsYzqXNevXVpzfqoEfY8N6CbjyycFk8nda52oqrx852b4A96NTiC7ePS2sDQYpsDCYKgBisbzHnl+n6l/shii4SsTSvL6oyMC/3zvaGFjuVBSKOvqwNLqpVDezr985yMg0FdrmsyPtuij+jiHlBiuQLq02pjhg8qslfWa1ENS2L2hkaDIfTKc7a0qNVJdWxXa0tcq00po0osT+DKKr1fgatzCYxNWx0QAo/rZwEIlUHGU6ctMcO6PKaPJaRUGdSm9feW6IMKxdiulusDIgiJSRuO6J06bUhCSGrJcIVlTTNCRF+IcWUwd5sVUumALsmLRvUe0TNU0bT2vrmvRANBBTDl257nPfKLG84ZcRwQzNn8zRmv3CyRNFQAgEA2plp/ud/RD//iNzEzmrYz571+++zyb/MCUU/6ABBQ9bUNFe+vn3/G/ke6Vqf5vvaYLiAkBDX50Zbgwc8ULa01dYUCqpxVHrzkndwaV7nl08iXFXogIt9ZG7n7y1idq5//dsEXFYFwSL62KnLdhzkVae38t/Lmbw0EgnLu1uA5M/PKU9o1H+W8sjoSCMvPKo0/fR41w3DP/OgHGwNmlJ5YHH52RciIyjfXhiY9X9xo6X+aFztrZh5nLO3y6z7ObXV4QJc3zsp5c01o2prQ72dFQzpmfH7OzLx5W81XVgZ/83GuqUHS5WfPzKuxtAcWBOdv1QOa
+zAosAAiqMu2C7aOygxhlCBkPzxrSPP+8bR//surRY1sG5syQySmfr7ugvKnW9a26ZGNBIDrtl3++ZPSJQPT5lsUnv/T7jHR0rnIE27cd173nqKueP/W2iB5Ke5lzp93+1trPcgMxr8MBDwgI762Z2/5Cdg722FkrQ7IFn71Zv2KcPW21MaEsgwyf/DZ0xejMqUOS0yKRmEkgQEGK6NQtxysMGJ4ExuCFZcHrxiVPH91894eFTy4JTRicfnm5eXx/99Zjqt9clPvIwtDZo5Kcg66AL0FXgDMAAoWDygAkGCr0yJMz1wUSjtYn13cEIIKmgKlSRYs+f5s+65z6oOJtbtER5dzKkCv4UydXJ5L8sOeL1zbqfXLdLmG5qVGd2Mvtmytdf7tl/n1+BQRIe6gyHwhaMwgQZGjtX1J0zOD9XT89ocf+F448qiQa84W3pqHijFf/YEs3qJoSZFM63je3+8Mn/G5S7zFSiFY3de6029/d8GVBMDfLLdp/V+qKvqhmbXM6HlZNn0SnxBjvGZ4hCUyV1jTon27RbZ/e3RDYHNdAIQKSROUJ5bFvA+9tNEAFH0Dl8Pi8QFFYHj3AFg4Ak1IgAPgEWW1GAmpcJhJGXUrJMQmASIIjmKKQpKxQoza9B8H2YEJ35+UVgahBxSHPF1lvLQEAEEpCBJly+JZWDoAMSBCBBClRAilISRfOGmqdOzz95lpjxjrD1EnKH94GhiAJJSBnwJl0fKVfzpa3T6l8/8yetxzWtyDo2i5Lee5F029tcZJRPZjyrOZ0/PShk2dd/OikXqMBYEu8espz1763YV5+IGdHsgAAIFK5Up9qrorXq1zprPPuPUMZRKCq+OyS4KRe3vkHxEcWe88vDQKXl4xKP/J16JVVEc4p3yRASjtsYJ7zwfmNy6px+vIA1+DcYdbfFgZ++3aXt9eal4xMeRk6e2jmvQ3aL6d1ueK9nP75vvRpv0KvMsmunVG0rlEdUWKDz3wJngBASDjQ
+O8cnkn1zPSGAAAnI9cHysVuOe1BX66J3Cs+aWfj22oAkPLibHVDkBW8WnvdW/ugSt1++67jKPXONb2q0gEKRtmPRH7UTuJ3REyJ3vNpUZnomfUNL49Gp1gkGu/tvc5/6umITA6xJNHYPF7182l0vnXlXaawQEGasmj3pyV99U7MuLxD1dyGLNkcjetJPuRZ0nkvjp2YVEJCCPOFmxj1xYW2qIe1qjxxZd+mI5laL/3urlSMsrTV653pFMbeySa9J8KFFjqrQ+ibj2yqlV64Y2cVBkNviWtLDQcX2hnrT9mBIka0wXFqnr65XRnf1++TaGQeCOqxtMjY0cVVhVXF25pCkxmlDi7a4Sh1SLAbl20S0qUVDgF75zuZGXeOQ8TBiUHMG++R6kmBto9Y/39O5QOSfbDYYwqSeti+FwsDylU+3GKZCh/e0hRQax9q0+ulmo0eOP76r7fr0Ezg3y1rBUnpB3XpqadFTS/K6546eMmDSKUMPy3ju5satzXb8haUfvLFqtqqopqJ5u2NQ2GZDsfmXPNU3v5vlOZ0SurHHKIMAgirZPniC6YpUOWQ8JAJTIU0j4WPGQwLQODEEy0NTIUSwfCSCoEqKSo6Lto8MQWafUogIiFjKg45+PA8tDwFB5wQAjo+6QkTAGAgJCgPbRwQwVLK9Nu9yWJcAkHQYAGRbhnQJtP0blZOpk/Qx5XaW+x8B0FDQFclg4MIU/un8abd8tvlbVwpHuD7JqBEEAPk9YkLjan2q+YT+E6affa/jdpondI9poAiQXVnOyBPoCsgKfNvHjIdIyIAQwBVIAAzAchFYW5u0h+Rhm+9LAiOwXcw4DIEIkHNgSJaPGR87/GOOh0TAABwXAYAIEMElZAoRQNplWccaELSmWcdTCCAltHocGWV/CwE8RCfFkCRjnWUKSABmeVKC6TvPza9cP315Q25EV5ArSiAbMLa7pwgAVa60WPFesdJ7jrmKZGcGmu/JONAOTR53UKYRgSNg
+QAJm/8p+C9wHae36IBBgEIADErT5ppAgA1LubCYQoQbMQNiV9xNliGg7WQAnJbyT5oAADIlsACA0ASRACrkpUWckJGQ6hTQQgBCBAcv4+viuC88d3v355XZOUOOofl9IMALjDBtTLSNLBvzr1Dv65XVP2WnOO80HuvdFCCOAD/7nHGyEDnnkAxYRG0zg7/CaEgBj/lcIcYL2BSECPhwwLKBDIhOACrKG0+qdp0tADNQRAAEBEoEAOcgE87+AnYQEArnABxIpKJchhFAZK8VGThsA8pgynKDzUkKyPI9IffiomsLw0Y99u6XVa4oYYZUpkqRs88oCAHDGfekn0ukLRx5/3zHXhLVg2smEzJDv+99VUf8z7GWUQQAMyEXveoVtY6C3O6hbAaf6+pNCeu1nJQSgAVWDdylnrQyUtpaylegBoV0gqQXayEUCmigXMv8KzqIIHW8gA5kieEwoJ0toBQCAKHgvcXkDZ7EdmnGgJoC/esoJ4NzAsQ7xZZ91Q/sKjkj4ilDGAaU6zchjQJ5kOkv/dcp5Z40sfWT+s9NXfdaYbjU13eAqQ04IJCluJUOq+c8Tbrx4zFTbtm3PCZjBi1+/4+Bew88eeZxlWewnh4juleehCCwILAwYavuwMKCxcxsJaKD/OWetyHIBg20teQTlx0g2gx31X0JQgYWBhbb3iWHgARAfMvQZAAAjsBA+QR7d3huGgIUAI0ACeDehXEkM0f8740OAXyIxBeIpBoJB54VGCMKgSk2WOXvdml65RY+ffOvXv/rX9ePP6hMrFRKSdjpppSWJiT2Gf3jePy4eMzWeSjDGTcO49q17n1rw8otLPpRCQmcoxnsZz2gHSSAJINtO6Eh+Z/EZkAvyY2QMSABkOToBGkhLQa5nrL8Eq4PyCWiHPtu/AwPha6DNCGWADOVqLlcgNxDE9jMfyiqeDKVP6qnSfgvxa+a9IvUrhT1ToVlMfEZ8kqQEwE8W8ZLAVOS2pH7S9OLVDc91
+j7193IAJl4w+4Z5jr7nnqGuWVq/b0lIlQPaKlQ4p7q0gT2XS0VCkIdl85bR731g9O5JTXJVqSNrpgGqIn+wJ3Usp4wfmJBFNKdcosAQgwNrO6SFrQxNrZmK2z4cBZf5tJwSgAjSC9xlqFyIh+XMAEwxyAL6r8yGAj5gnlItQXsn9x1A9CflFUtzEvacZP5gB6wRtgyF5xK75MH9JfaAgIKrSjQ/Mf/npRW8f3mvUeSOPO7rfQfuX9d8+eABFKq8u/fiOWU+ub6rMDUZTrsWBY1vU4U9lG3spZfwASILO/NkACYQcatvINj84oI5yFqOLCLiAfx+NSsAUlB8zOFuAj2I249r3nxBzoGZSpkjnDYSPmfscqhdLMQ3hM/Q/QuV4oPhPYhtEqHKqS/Nvao2YQb4EnWlm0PSl99a6L95eN3dQQa+j+h54QNfBUS2Y8a2ltRs+WL9gcfVqVdFyAhEhhZCiIBgLaabrd4Kn5X8lZSAHSqCchUzbwcIUADyrbwKsRrmc8QMEpf9tRxIgALAU5BYEm8FqQPP7TQ0EksgNoVzK/Hkknkb1DOBXSnEp959h/HAC/pPYBiI5Asui4pjeyWeWRwpD3BUkpQ+AMTNCQBuaK1d8uYEzriDzSfpS6KoWMcNE5EvBGfeE3yOnC1e49Ij/ZMrY4xoo7fyBH85VkUAmyuUM1jAw23URRhSQ2ShaYoAZ9D8FVPGHT5c4YBLFHO5/gZhG+jfrkTVrk6gcKvE4gJXoPsW0MxAOlvAF899lGN2dGPqfABFc37/rMPuAkmhjxlbbnRNCCimlqep5wWjUCAX0QMQM5gdzgqoppNzuGyUaVToI8Ees4Y/AHqSMtppUiGyHD/6w3kSACvqfAGYQGAADSAGNlerLQLpA0SZQaA6TTQyVH6YzDKGYjnImY0GEH/PaC6n8SkA3lM+iqCD1t4Bh8p9gsoqB9pNK5TBgtudF9cgbZ91/QJcBDakWlSkdCyKJfCkFSUlSSvKl
+31FdAwGEFDEjfFD3YeTLTnHa7znKEIgh8N/g9vGKc7binKm4v1StU5i/mjPj+1l61m3ViPIzhiaBBESQJPEQ4vu7MEHKNAECmACbUCxiGMhu9vevFAFowLYxrMI298m/B4L0iRUj5hE0g6yTrCdBBKABIIk/8chCEgY0YZpndg33effce6YOOLQh1QwI/If6ZchSnjW66+DBRb1tz+mUo5M9RxkEwInqEBdzXM5xOYflDJYqlMDtgmU3iwdgovyG4RYAAwGAHIBuoB4pCUA9n1EQQAAgMA/EJ4AI8H0SZUdfqgKo7PCj3y+ESAIPMu9NoiXATiHlQHSfYLIc2PmEAwTZ/7mpKAlM1V3dVPbPbwts38sP5L9yxl23H3ax7dhpz1I4/zddM8aELy4ZdQLnXHZSfMYe1UAJUCUIAgQABCAioIQwYRSB7TbsoU0AiY+B+awjHhklercqIAkIMQBgASBBAGkuk7UcQv7ud9oHUHaj2xAjQEB/d4yGAHSStZye51QK/Gop1yO9ynAYaGf58BM8oQTAkdKedtE74cVbH/hk4zePnHBjl0jBbZMuHddj/99/8PfFNevCZkjnqiS5PTanTQbzhkT9yUOOPH7wobZtdVaC/J7jGUgASBLa3EoSQBITSO8y90UOTYQ71Ftoe/OJoUZUDTRvB91TAWxFeI/Bhxw+YmgjcABC0AG2oZiPGMBdbVcBEAY5GMjZ+YSNAWSIhiGUITjfCbxAIAE8yPwZTK4Afh6p/ch/iska4pcLVizB/c9jNYTAkIlPLilcXK8V5UffWjf/sCcv/2TDV4BwRL8xH1/4yB8nXRZWA43p1oznCCIBIIhc4SXsdEOy8bgBhz429fdCik48bN2DlIHgAj8IZUCgaDtNYgbS80zewLhg1BF8jkCSoAAACU3wv2RQjdihE2TpIwQQBAhmKax9boT+xwBi5yj2ts0j9VwhTcKd1hKJSPmFRF0CfYd5E6BOshbFM4gDQL1E+GtR
+vopsPKhTpUz+59mlkjBiiK+3Rf+6IBI1yPVEbiBckaw74YXf/ubdv9XEG/JCsVsnXfTFxY/fftjFwwr7mIqmITe4WhIsmNxrzDMn3fbGWX+NakFfiE4st7LnpAkDygA7ULIzmHxCsiJGPhEABhFgBw2UA3ogAlKbSuRLhlx8DNsPKghIIRmQmN1KAkJkFqKPWV8Ffc1kBfGBYifdhQGlSRlJ/iSSryPmYFY1AZtkT9DHS+cZRMRdZBAJwABzX2S0mpQHgXch+36FGkn9O0FIQhz/MzcXAXIUaV//7af5CVdGdBQEvhSmohPQA/Nffnfdl1ePPe2UoZN6F5TddsQlv59wbmVrrSt8hpgTiBQH84GD7dg+UedW4dmjegYCpYV+PdjbULwvWYyDCm0byAEAkJAy0neI30HKMCk9EtsYLGYsBBIAVaBWggulcaWk7EG8AIyidy+DVxjEEFVkjSjmMT5YtskdDoQACMgZka+eg+47hIDAARSABLHDCYsl+AryNr9Zm2FMgBpRFZdPMxgN2i89fx0TryEeK5UjJCV3zrP7n0AShHV4fuXo+VWNOab0Zcf3EgDygrGqZP2V793/yFevnzh44tH9DtqvuHffou4dj3uep0oVoPPT4fcwZYBAUoX5D3T6M/81nzdkI7napIjUBPUF9UqpHidkXLJcbr1Hshz8HCIByEmmSB0gWRchTQAO4APLARzK/EeJERJJSoE/DbQLEHygZpICQRJIJE1CHNloCYdw+QZhFECgQNKPleSRsEimJPjtMQBJ4A4AQ/dxLlaQNl1iBNxfIzWSdg0Q7k70/DgQcV/Uo3bxhtYhwnuYB7v40t2xgZBCUzRTNSoTtXd9/szfF7zWK6e0T17X0kihoerViYbNzVUnDDrk2oPOFKJzwjI6sKe94wzAR8l8/fdcOQ3EfCk2MvAQOPACgYOAjySICpkAUFBaxMcgexZAzVanAS6AjyDZCuC3abKUADZCwBUKqYIAQQIp
+IBsB+xNdSmQIIkACqaCMEvOkeqVw8zmZBC5iAbF+RIKUPxFZss08QgAX+QAJcSZ0ye9EdZIUtSgLkN8DfD9BmV21tY5k2n8PSahzK6iP9PCWM4Zbb676YG3T1rxglAh2LBBLRD610YdPcn1L5cqGzYIkEHHGFK7O37K4LFJ4+vCj0lZnVu7a05SRXXqJMi5YCbKzSO1YZiT0SVqwXYR7oI7yQaXttgYSZQB8bHsIgTzkPaR5j9eeXwIEQEmpDEblPrmTJZwmSiIbLAL3tbsACChFAKgd5u+02QhgAzkQ+B0BAqUkaBi4A0ASpdqiErMNhQTOIKBKIZkr2mQRImTTXrIMP9tGSIiZ8Mkm9cuaI/54ZP6gPP/Tix+76cN/vrTsA13VDFUXcie7OUsfAGAqekA1sM0HThx5q/BV3vn7uBdQRnZhOZILYGft0za/BWVfvY5IPgTIAG3PgAcCxF3CdJHIB2qhjo4JADmS1/bl9rYciAE6IGyJWRsasr9FlALaxQJlAAwoSUSAHAFAxiUStGXAtYkdDAdEylFW1Os5uigIeWEVPUlpB2MGSaCkg5xBzJRJlxkKbUuq131auqr2A8S82ydfUWjkPnfqbccOGPeHj/5ZmaiJGKHdVlqSRB2qMUMWd1LDu/Q/asBBjmP/9DiuXWa81yBLBByQI3IE3p6Q0V65QEGSCMjammUb0Hd7wWwnBJwkA+TURmicWPuDxFESKEjEgBgDDowD8TYfEiEg3+FXeDtBMcB2Mm0bRgdZIHiA987Ln/hi2dEvl1QmlFAQnlwc/XRzICePpq01p68yYiFAZM8ti9UkmK7xy94rXNusFeaYf/zsuRs/+Ieq8rSdOWXYEXMvf2JC9xFNmbjG1R8QSghSylsPuziomX42ca/zsDdRxu7n3pY8ojBsddSoQZx38H7QOBhtXG+7ZxsBFYYAzFBYSMsW6kRABOAEDNrVyqgOKU/VOQtqgggEgIJc4QAEmpLNXfuxIAJD
+hT/Mzr9+Vv631frNE1oOGZT++7y827+IDetCTywIXfNhz54l09fGbzv21dzzZxZvS+fdPCv83sZAjildH/MDsb/Mff6SN+/WVTVjWwVmzlMn3jS0oFd9skmCVBjnyBAQERkyhXGFcc6YxtXmVPzy0SceM2h82sp0evnHvUOafD8kgabA2mb97rmxpgwWBOWDRzUFFekJiAbo9jm5qxrVl6Y2Op7MphEqSHGHX/JegSuZ69EVo5NH9rRPnZ7vA/qCxna1bj04bnkkmHLdx7FvqnSN0+2Hxsd1TWd8fv7beRePTB/WP3XbR/m5hrxmXEvCwh+0RolA51QR197dEOQaHtcjedW4llmrwzfOin55Qf3aJnbpjLzPf/WXkmiX0Y982OTkqGqyMnPdsG5dzK9vE2QAkE9+fjD25KIZ9enmp0++1QS9OJQ/++LH7vn8+ecWv9uQbtVUTWMKAbm+50kBRJxxIf2Duu33pyOvcByH/Qwl3PZ2niEIDF2+tCK4vll76Lh096hsSHPOSOVUm9De2xSYv9VcWJ2tVoAAwBAcwdc18T8eGv/V6NTNsyNbEsamFnb1mPTfj2o5Z5hleRA24akl4YXb9Gm/bJzYy/pqm0KAEUMEdXh9VQB89Y01xpAiL6s3/hggghAokSkgrj2wJW4r58wsunpMclixe+Z08zcTz5zQe/iZr9xUlynPM1WfaEVty2n7TzqwbEjKzXBkAOhLmR/MfWfdl5OfumJZ3QZd10KK+ddjrpl7yZN3TLzkgC4D84xwl0DuIT1GXDXmlPsmX3XFmJPHlA558qSbQqopZOckv++CvZ1ncMSMjVePTlW0aCe+FDm6n1sYkq4PEROeW24OKxRTB7rPLg5N6JEhpy0uAYHCmiwOOgeWeg8siGxsZhEdHvgqpJAxdaB1wTAXAb7aqkwZYJUE7VsOsQGxJYVRJs8emr5tTvSddaHCAB3SPZN28Me8iojg+Ngt5nUPeQHOD+1hX/F+QcLD
+Wye03j8/1Gjn33jIabPWfT1/64qcQI7rC875qvr1BHT6sMmflS8Bve3s0Jd+biCyunHzEU9fedfkyy864AQQsl9et1uOuPi3E85qyLTqXCuK5nX8ru1YCqq22zln7t/F3s4zCEjhOGuTdu7wzBeXNc9cZ76yPBwJoOvzdzcEv61WvtikzKk0q1tVQ+HUHpIlJGoK35Ywmi0oMImI/nRo4oWpzScNsNI+AFJJmJbUKmCw11aG/7EgHDUw6ahjSuywSb/+KGfKgIymkvjR7m5JoCvirGGJAsNbXGM+9m3krCFpzuH5ZVGVeQnHmrPlW0ECASSQwbXylpp0Jn3sgINLwvmu8DrIz5ciqAdd8n711l+m/OvXs7csyvg2CWHqZrfcLvnBnA11lX+e/dxj86enrDQQesL7+epq7u08gwAUlITsqvfDB/XwCwP++O7OLR/FehZAwpL/OiFeFPIvmJnzysrw1jicu7+1X1E6G1B5+bs59Wk4caA1qNBJepG75wYNZvaIebcckrAcuvKA5Hlv5R3/TPHqen7PEfF/LQ9sa1VuPqr1kG727M3aOcOsh+aFNM4uHRNPZvAHjUHOIOXgKQMTw4ud11aFpKse3sNaUKlvaDUQkptaarbF6xGRiIhI4Uptqml1ffnoHkMm9Bw+bcWnsUCkI0VRSMGRx4KRjzctnLN50ZDCnr1ySkNmIOM4la3VW1prqlurDTV4dP+DSsMFnvB+vpXf2ymDI6Qcdvaw5AEl7ppG5bbxXteoqw4TOofxZenuMZcBPX5cU9pDT0CXkLA8FtH9105ubLUxqtPAAsd24bWTGuMOEwRhVQBIV0C3iDPztPr5W/U+ef6gAnt9oy5L3XSCztsvcWy/TFhzjupLnJHt/tgwLSKmMXFg98zfFsaQU35AzqowBHEkUdFS48P26qicsWY7taR23QE9hpw4aOLrK2fvEqdEQEJS1AgS0YqGzYtq12WrHRqq7vheQajwgWOv6xotdDop
+duv70LmUQTtHSnUOECHpQJ8ce1ABWR5aLvbPd7KWq+MhARYEvCKEbJk9QaggDMizFSRBYLkMEQbk2pxlbyEB20eGaPlgKv4v+nuuj/EM6xZ1EcDxWVCVMd2xfOwRcwnAFT+eW5MglB7kmYIkVCWVVQ2awsDzoCrZoDG1bW3anG24oHLFpWNOmth7VP+8svJ4raaou9TKEVICQEDVg6rBGSeixkzr+LJhDx9//bCSfpZl/dx3QnQuZSABKdlwHNl+KP6TOyUgBEx7mHIBERhA2u1IkScEtP2OP7P50uS5rOMbIEjvUI8E2//rCWzOtJWUzxbPYAieAFcgA8p4DNuy4wB+XDYgEfhS/qJf5vFvwhKwNqUojDyE2mRjcTiPqI1tSJKmqi+sXNmQaC6I5p40+LA75jwZ1PLd3YkGImAc406KS7xh/Nm3HH5xQDHSmRRnPzuz77QfyNbTZAjzq4wLD8CcQCe75P6XgI7qk/zmYq9fvvfkYpOIOOc1icZRpYM7LvcgIlPVNrZsm1u5bOqQQ88dedwLSz6oSTeE9JAn/Y5FQwDOFFe4LcnEASUD/3z0lYf3He3YTtrJ/BfIAjrt5hsgAJQSIzpNWxOKaEWH97SAGG0/kPi/D8ryTAJTpW+rjJjJJZDG1crWuv753XLMiOiofEKACE99M+PEoRN7xUo+vvAfZ756y6KatfnBmC8FIiCgK7zWdGtRMPeGyedcPe70kBZIZ9KMsf/a9c+dUI2JI7c8e8xj51elG02uSYCkgww6OcTofxFkm8JIHMGXIqAY8y598tzX/7iwamVYb7sxiSNLu9Zvx519/SFnhwPBtbXlp7x8w8r6jZqqSymFFEWhvFOHTLpq3Gl9Csocx/GF//Ndf7RbdMK98IJk0DCvmHnvo1/+SwuEpSTG2t6fH1NJ+P8gCAFBZpNsEX3HWnT1Kxuatp3+wu9C4ajG1SxXAMBWK9EzVvLXo64+YeihDcnmf3715ufli3OM0ME9
+RkwZeHCv/FLpiYxnc8Z+Di/nv0cnSBMG6Lre3ZMvyzHDy2vXc67A/59XMO4OiCzjWknHPm2/I2qTv//H/FerUo2u8BCIIY/qoRY7uWjb6ikDD46qwVuPuEj6kjEGDKQn0pkMInZikfn/2ch/Os+AtmNopulaR8WLfWgDASB4nudL3zTMxmTzitrNVcl6T/j5wWhxKL93XtdcM2p7NgFJKRmybLlcjmzPXhzUOZQBANmJIeI+uvgOCJFlb5vTuaqo7WFrBEDkeb4n/b1QJ+s0ytiHH4MsP2iXtojZsIu98l3a273j/8eAgHwvpYRdsbefte7DnsI+ytiH3WMfZezD7rGPMvZh99hHGfuwe+yjjH3YPfZRxj7sHvsoYx92j32UsQ+7xz7K2IfdYx9l7MPusY8y9mH32EcZ+7B7dP5ZqySZDYT8wZrI+7A3o5Mpg4gCeiBbDM9yrL3wvJmIvi9W6t/80/9e/Mfz3em1JiBJUpDYsXb1j69jLUmamjF3y6JL37zj/i//pXJF7mXhwQSgK9puByWJVEVh+B9eiUYkhRSCZGeV/e6c+RIZivZ9/6RyhTP+3RBuarvpcMelQSVgBIJG0FSNjijfgGYg/nAIuCQZ0AMz18xZWrv+wO779cvtgch+xP0i/z0wRJWr6xorv1s7k0gGDHNrvC7hpBXG/6eDliQN1QgGgkE9END0PT3R7TA1c21jBX3n5gciMnWzLt1Sn25R2C43fZDCmMI562hqKGqrm5q27ONr3v3rE9++qWmaJMkZv/ydu+eUL9I1XUixveTRLkm6RLqib2yq/GD9/KvGnXH+yOOnDJjg+i7i994ATu2V2nbp7fsuCKGdA9J3/PO7j+/yDWU5J2e3z358ad16XdOytyZnU0klSV015mz69v55LwV0U8psOWr6kVeVSJIBzVzbVP7EV9Pv+uzpY168dtaWb3RN/+7FzB1jpu+f5m7X5weXa+dvsqMiTdMenP/iJ5u+MnQzW0ay
+YylURV1Zt/62WY+rikLZ77IfIpXrW+N1p077PcvOjXNelWq6ddZjfQu6La1dX5VqYJwz5M124q11n4f0AEhUWDZtGIhIQb7jaCRJrvJXVnxUltNFgkxl0hk3AwQM2Y7XNu1wiYtUmcKRtxUOQN5+CdquPbetI5HB9Q6VNvs4Q8xORkHeNm0ihSkAkO052zjbucKV2njjyJL+pww53HGc7EQMVUdABHSll7RTvxl/ls5USSRJ6lzl+MM3QkiShmYs2Lr80a9eH9F10PDS/h+s/7wq2YBsp+LU2bEZXOPIiIjvrJ5/V9hLIp1rSnu5uO3LBR3L1bYRKlOyc+yYb7aoF2esJRUvjRRedMBU13MRsGMNs0RQHW+6ZtzpBWbMk4KINKYqTPFJcJUtqduwqn4zAwBNUTVNe3DBy2O7DRteOiDupiZ0Hw6SNK5uS9TFjEjfnDJkmPQsV/qIaGh6ws0oO2RXIjKScm7lsqGFvRgyS7iMMUPVU17GFl525oTgkQ/tcqfZTqR9S+WKoepxNy2IOKKmaEkvo+7A3wiIA2qKurF1q+U72SoUAT3QkGlxhc8Z11Ut7qazqXK6psedFGfM8p2O7PKUZ0kihliW12Xq0MNdzyUiTVE54xuaKj3yFc4NRf/FkENLgvme7yFgQA9sTdRnfNtQNPq3xMGACSkeWfj6FQeeNqrrINt1hhQPcHbOXc6OTVHUTS3bLN82VC3ju5bvZuPFEdH7zq3MpqqVx6sTboYhio7l8iyVKbqqJ7yMTwIRTd1ssZMK5ynf1hW1PTXc8sjnyPIiOafsNxkkEUmFcUPVN7Zszfi2yhSVqZMHjB2Q39P2HAQI6IHadFOrnQyoBgBUJesGFPRkhq7/Ze7zD857aUNj5fju+1c0VaVdu1duqef7TGFbWqsNVS8IxxZWLp/66m/vmvuMrunXffjAAU+cvaZxi6ZokoiANK40pRO1iYbhXQa8vOzDYX8/6Zklb69rrjz1tRtv+OQf
+Otd0Tb/ho78/s/gdXddNzZi1aeF1H/zt5Fd/nxL23IolR71wxaPfTmeKct6bt0949pLqVKPGs1wOEJAYvLL8w/u+fPF3Hz2EjJmaOWP1rF+9e885M24lBp9uWnjYs5dMXz0HOB79/JWXv/vnqz64f+TjZ21o3qYpqqKoF7999+urP21xkn/78sVL3ryTgDRFrc803/vlvx5Y8PJV79/rSfHppq/OfO2muZVLdE1XFHXaio8fXvj6sS9eu7pps6aq38c5JJGhGUtq1jVkmvsXdFtXu8WTYkhB76ZMHHbQyxgwAeLFpe/9Ze5zt855vDxee8HM2y9650+EqGvan7987t65/9J1PZv1mqXamas/e2jBa5e/+2fLs4NGYNamhb/58G9TX7s+5VtLatYe/cLVD371iq7rZ71x8xnTb7p51qNDHjll3rbl2Tf85ln/fOirVzPSefrbt8567aa4k1K5Zgn3/nkvPbxw2kUz74x7mYXbVlzwxu2vr/rY0A1D1d9fN/fxb978xcvXzSlfBADV8fr9ivswIsgPxFSm3nn45T1ySlY2bAloRkmwwBUeIGxsquwRK6lPNsft1LEDJlTGa2esnDO8uH9OILayYRNTGJEkAoUpFfGaiBlaUrtua0vNFePOuO/LFxtSzacMnbyusRwYSkkLq1fmBsKIuGDr8umrZj1+wo0++c8seiuiBcb3GLWpteqNFZ9M7nMgAW1s3sa5QkCCpKEbb66e3eKkHp960/juwzRFfXvd5wu3rn7x5Du3Juqmr5hVGikYXTZsbXP5s4vemtx37MjigWcOO6oolPvQwle5oigKZwhpN1Mdb3hh2ftVqcagHnSkf+ecpyf3HfvYlBtHdBnQbMW/rFw2c8MXReF85Ozl5e9vatp27zHXFIZzHpj/MlcU+T13dyGAL/2YHr7z8CuQsa+2rTywdEgsGGmyWjvaCJK6rk9b9akr/adOuq1vbtnqus1n7Hf0huatICUy9tW2FaFA
+EBGzhqGhG59tWby4dt1DU357fP+DNVX7ZtuqaSs+efT4PwDQS8s+UJhyZL+xm1urXl320YD87kf1GTup94Hjuw2/e+6zHDky1FQ14aYbk62vr/pkZePmgmAOcrzr82cGFHR7aMrvDu0xMuVkltSsf2Xlh3nBGDL8aNNXszd/e8fky8d23++uz58CAEeIkcUDmes6F4+cesXoU4cW9EKGm1q25gdihtZGwpuaq7pGCnIC0ckDxqXttOXZJOnckVMUxLJIIUjITgk4bkvUAcC6horfHnzOgIKeUTN0cK8RTenmknA+MGi24rbvDinoAwR/W/DyecOnhPQgAI0rG7Z/2UDHtZJ2OteMnj5ssopKSSSfpMyKRkBYUbdpVcMmADhjyJFp137imxlXH3iqlNLg+gElAwd36esJsa21rjRU8JuDzz596JETeg6/cMTUJdWrQVLSygDAkX0PGlba75Beo/rllQGDF5a+xzgbVTYobqVOHTypa07xaUOO6J9T1jPWpTHV+uKyD88ZcSwRjSgemJ3U96UJIaLne71zSkaXDm5OtcbtVPf8EiRyxfaq8tkpLKtZv6ZxCwCcPmTyMQPGW65VEszTdcN13RYruX9RP5DAEIkIGW5orlhWvx4ATho0ydSMB+a9eO7wKWE9QCT3K+67X2k/z/dbrAQJunnixacOmTSp75jLRp+8ubkqbidAUlO69YQBh/Yq6HpM3/H98ropqvrh+vkVrdXHDToknU6fOuSI7tHi04ZN6p/Xs3dOqe/7//hq2pn7HQUAw4v6N9tJANC50q+gO1O5+s7az+vTTZbvAkBFS23XcCG0qZpQGa/tmVOqqxpI2NRSFbfTR/YfU9lck3LtbpEuUvgd+1edqKtJNh/Z+0DO+dKadcOKehPQqsbyHjklADBny7fNVrx/Qbdl1esbM63DSwf88dPHD+k+6sDuw3zf39RabfvOYb1HL6tZTwBdgnme8AGBIZKQx/Y76KUVH35duVLV
+9FmbFnKOeeGcG2c9evrQyf2Kejius6W1ComO7Dcuk7GKQjnSlwMLeiScDAF9sWXRhO7De+d3JUkbGsv75nUDgGmrPj64+3AiUjmP6iEiWl63MaSaITP4ztrPTV0rjRQBok9+WA9RlisCEO3GWkFEy3cJYcHWlUXh/IxrB1SjMRWHdnWbIZKkKf0PfnbpOytrNuaYUWS4sn5T10gRIS3YtryytbZXTqkUAgARmfDEpN5j5lYsnbFqtmEYi7atqU41jSwbeNfspw7uNnJ8jxEkaUtrdcqxjxtwsGM7BYEc3/V6RUuQKOU5S6vX98ktG1s2jIhW1G/oFu1CAC8u+2B46QACIISoEULAtfUVBNQjp+u8iiUJJzmksDcA+ORHtCBJmWtGuoYKWMq3NrdUhbRA9r1otFpjRjg7Jddzq5IN/XK7gQRfiPVNFWO7DQsawc3NVaaiFgSjQsqOZMW1jZV9c0uHlfQDonWNlZN7jUXAmkR979wyAPho44Ku0UJTN5fVrWvKxO//4oWiYO4th17kOq7tOVtaqg7rOYorfGPLthwjGDZCWSWDIcs41kE9h5866IhrP7gfEJbVrW/KJO7/4sWxXQdfMfo013HSrl3RWnNk/3GqolLWLUdUFMrTFK0q0bC+seLM/Y52Hcf3/YZ0vF9uN8d1K1pryyJFKEEQCSkQsby1ujCUS0RfV68uDuRlX4yaZNN+hb2zOcdEoHGV407Jx1m7lCEK6X9Rvmhl/canv5m5qmGLAEnUVqeHIcvYmYl9Rk/pd/C1Hz6QtUgq4jXdc0oQ8MMNC/JC0XwzR5JEBIZoeXbv/LJfjzvr1x896At/TWNFixW/b+6LeYHobRMvth1bCrGuqWJir1HhQNCTPhBKkrlmNKgFmu3Egq3Lz9nvWM9zEbA60dA3twwB1jRu6R7tkjXkfClAwcp4bUQPKgr/unpN2AhpigYA2xINgwp7SSm7hoqCepDVJBsbrXhANbLzzKbTEVHQDH6y
+eWFVor5/QQ8AaLHjju+fNHAiAVQkanIDsYARTLkWIGZNjy3NVScMOgQZVjTXCCmPH3Roxs4028mxZUO/rlhp+26PaCkAlMdrCoO51x9y7mVjT8m+VbXpJp1rx/Y9GAAqWmpKIkWMs5Sb4cCISFM04fl/nnRl3E01JJpbrVSvvNLfTzzvl8OPdX2HM16VrI/pwcm9xvquyxjLXtKpczXfjLy3fu747sNzjQgSNlnxlGv1L+xRn2qyPSekmYAY1gOeFABQ3lzdL68bIm5pqtJUTZJ0HLeyteaUIUckrFSznVAVpSbVmPHtjupYnLGgHvCEHzADszd9M6Sg951HXH7VQaefMujwxkwcAbItCUjnmvT8e4+4ui7VuKGhEgC2xRvHd9t/bd3mhky8V7Q0Gggl7Uy2epWuqL7rXT/+7EIjtqxmQ8pJFQTzbphwzmUHnsIAgKjJjkshjh9wsPQlQ4aY9WbywlDuJxu/GljQs0duqSd823MbUi2DC3v5vmixkxE9CABhw2xTElq2lkWLAWBD41adqxIkEKyo3XDKoMO5opw05DDPd9m6xnJPesAxyzOHFfb+omIpIm5trXtj9RxN0VusuE9+eWutL72ukSIEWNtQ3jOny8qajavqN+mKhsBsx94Sry4NdxEkXl/1yWWjpoaMQJOVQID525Ytrl6TH4wVh/M3NmxNO1Z1qsH13ap4wzOLZrQ6yc3N1RpXikK5ALCuqbJnTsmiravLW2sURWWM1aYaE04mPxgZUzLE1IyScN6qus0M2YaGyqcXvZX2nXVNFaZq5Jhhr72ULgEYiraltSbjOQd0G5x00qqqViUbDEW1PeerypWcK0vr1vvgv7Fq9sJtKwFgfUtlWax4ZfWGqBHa3LSNIXt95Sfjuw0fWNTrnOm3XvXeXwXJic9f9vDX0zRdy1613ZxJzFg9KxwMlTdXv7vuy+MGTrAsCyTkmZHNLVsrWmqyAogzXp1uTHp2XjBnXMmwnEA0Y9uW
+Z61p2vLJhq9LowXRQHhN3ealdes1VWPIGjPx+kyrruojSwflGtGSSOHG5grX92vjDU98O6PZTmyN13vS7xoq8jvcAQQqUxoyLVvj9Yf0GpG2LV3RWjKtNnmGqs/euDCkmd9UryakDzcs/GTjAgBY21DePVa8tr5c5UpFooYxNnvj16XhgsP6jpm+/OPXV8/SVI0trlmnMBUAGEPPcc8ZPiWk6Ec9+6tnl8wcWzbM5OoT38ysa22qSzX1zinLMUJA0C1aPL982dqGLaPKBlueo3LenInrXLt/3vO3f/zYqJLBk/uMtSwrx4gEVfPxhTNOGza5R6zLnE1frWvYctOhF5WGiyY/f8XDC17dr8uAwkjepqbKIYW9s8cZPaLFH6yf15huGdalb8a1dFV/4ps3p7x07U2f/PPc4ccFNOPUwZM5Y0c+96sXl753SM+RETNY0VwzrLgfMtZxRsMAHd8dVTzgrP2O8TyXIZNSxPSQ4/vPLn7n8H5jrht7xq2z/nn5zLt9Kcb32B8k9Yh2mbbiY0/4fz3ymupUw3Xv3Z90M9eOPYMkjeg6cEB+T4Xzg7rt3yPahSQBAGMs7qZumfXEGa/eeMun/zx3xHHR9ksnQlrQ8/07P3uyJtXAGVO58vDCaVNeuvb2WY+fNeLY/ECUMyyNFv59/ssnDJ44MK/711uXL6vZMKb7UMuxNU2buWbOlJeu+937Dx7d58AeOUWH9BgxML/nkc/96qEFr44oGViSU7SxcevAvJ4hIyBlW106RHSF3zen7JJRU6UkRBIkDdUIcP2Jb94cVtLv9kMveWrRjLNfv7UqUX9Y3zFA0COn9JMNC6rj9XdOusxU9Mtn3rWybuMfJlzAADc3V6+u38Q4wykvXHd4rwOuGXdGOpNmyDSuJL3Mouq1o7sO8YWf8eyiUL6UMuNnGHKdqYDgS7821dwj1sWXQhIhoCSyhZN00hE9mGNGLTcDyDhjTZnWgGqG1UDKyzRmWrvHuhCR
+I9zNLdV98spMxXA8xxI2R0VjHBAd4TZm4j1jJa7vZv02tvQqWmpyzEhZtMhyLU3Rkk56W6J+QEEvBdHxPcu3Fa4quP1kCAE96ROQqeie8BGz95BgVaIxz4wENBMBN7dsDWrBkmiBbTuMUcq1Uq5dFi2SJJutRG2ycUhRH1d4QMAYKox5QiCiwhTHdwGASGqK3mTFl9SsGdFlYEEwN+NmGDKGmHLtpJsqDOQyxiUJBHR8rzxeVRDIKYkUZlxL4WqrleCM5ZrRjJepS7V0ixVLSYIEAvokK1prDEXrnVtmuRmFq67wNrdUdSyXLRxE1Lm6/dJWAEHSk35QC/i+D22V+bEm3RxU9GggyonK47UMWffcEte1CdARblMm0T1WLIlSrrWlpWpIYe/sFeKMcUQUQuDgh06547BLTxxyeNrKtPluGdc0zXUcQOTIXOkBQFb5ku26iMoVR7g7HrJzZIwxIaUv2+6GJACVcUkkpOCMKUxxhJv1/OiKZvtO1jWZrSXS5tdCVBl3fK/dYUwMmcY1IYUjXNYxPK7anp19IDvmXawGBATE7MZ0fKlx1Zd+VtAaqi6kcISX9VIzZByZKzwC0LiiMMXybGirmbT9tFrucL9h9qxSUVXfdV25/TpMhsgZ94VoHxIxZJqiCdE2BQBSmJJVBpGhxlRHeNhejwYBdUWTJG3fyc6XIdMVzfEd0bZcSO0nPjt6VhBZVptuGx6QxlUpZZaT6YoGRLZwEVm2scp4lso545qi2p7TMc3sUJSgYg7M7yl9mV0FRBQkMnaGIcueLLcviqT2i+QIyPHdXbz9PgnwBSJ2rBECZI1PRBREov0RCTLj2ay9Zbvm2+ZV3IEsAAAFUcazEdsUurbheaKjIM2Oj2/3IgARyV2iQ7Jjzj5neQ7ucN+6IJGdaXbMWU6zo2nases7OTOE7wiP7TBlABBE4rtTcLdPAaDNHY6IQNC+ktt3dJf57rJcWafzLlMjAEkCdz6icn0vu/jZ
+ucP2AYAk4fht7QWJjCtY+8p0LOb/A+uc9B7suNKuAAAAJXRFWHRkYXRlOmNyZWF0ZQAyMDE5LTA2LTE1VDIwOjUyOjExLTA0OjAwExvH+wAAACV0RVh0ZGF0ZTptb2RpZnkAMjAxOS0wNi0xNVQyMDo1MjoxMS0wNDowMGJGf0cAAAAASUVORK5CYII=</ImageData>
+    </EmbeddedImage>
+  </EmbeddedImages>
+  <rd:ReportUnitType>Cm</rd:ReportUnitType>
+  <rd:ReportID>ce050101-4530-4332-90ec-6ac094336e40</rd:ReportID>
+</Report>
\ No newline at end of file
diff --git a/Empresas/119/Formatos/SobreRecibo.rdlc b/Empresas/119/Formatos/SobreRecibo.rdlc
new file mode 100644
index 000000000..7bae016cd
--- /dev/null
+++ b/Empresas/119/Formatos/SobreRecibo.rdlc
@@ -0,0 +1,4330 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DataSet">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DataSet</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="ConceptoP">
+          <DataField>ConceptoP</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="LabelValorP">
+          <DataField>LabelValorP</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveConceptoP">
+          <DataField>CveConceptoP</DataField>
+          <rd:TypeName>System.Int32</rd:TypeName>
+        </Field>
+        <Field Name="ImporteP">
+          <DataField>ImporteP</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="ValorP">
+          <DataField>ValorP</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="EstatusP">
+          <DataField>EstatusP</DataField>
+          <rd:TypeName>System.Int32</rd:TypeName>
+        </Field>
+        <Field Name="ConceptoD">
+          <DataField>ConceptoD</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="LabelValorD">
+          <DataField>LabelValorD</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveConceptoD">
+          <DataField>CveConceptoD</DataField>
+          <rd:TypeName>System.Int32</rd:TypeName>
+        </Field>
+        <Field Name="ImporteD">
+          <DataField>ImporteD</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="ValorD">
+          <DataField>ValorD</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="EstatusD">
+          <DataField>EstatusD</DataField>
+          <rd:TypeName>System.Int32</rd:TypeName>
+        </Field>
+        <Field Name="NoConceptoP">
+          <DataField>NoConceptoP</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="NoConceptoD">
+          <DataField>NoConceptoD</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportSections>
+    <ReportSection>
+      <Body>
+        <ReportItems>
+          <Tablix Name="Tablix1">
+            <TablixBody>
+              <TablixColumns>
+                <TablixColumn>
+                  <Width>1.08889cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.88604cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>3.03009cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>1.64923cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.71847cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>1.38875cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>1.62688cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>1.01833cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.89625cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.5cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.72729cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>3.00271cm</Width>
+                </TablixColumn>
+              </TablixColumns>
+              <TablixRows>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox1">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox1</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>12</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox202">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>RECIBO DE NOMINA</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox202</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>3</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox204">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox204</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="Textbox205">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Empresa.Value</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox205</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>5</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox209">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>R.F.C.AJA-850608-L7A</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox209</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>3</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox192">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>UUID:</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox192</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>4</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox195">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox195</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>5</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox199">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox199</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox200">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox200</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox201">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox201</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox139">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!Codigo.Value</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox135</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <LeftBorder>
+                              <Style>Solid</Style>
+                            </LeftBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox96">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox96</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="Textbox140">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!NombreCompleto.Value</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox136</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox5">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox5</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="Textbox7">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox7</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="Textbox176">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>R.F.C</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox176</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="Textbox15">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox15</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox16">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Afi I.M.S.S.</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox13</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="Textbox245">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!NSS.Value</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox175</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox22">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Departamento </Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!SubProyecto.Value</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox22</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>3</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox29">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Dias Trab.</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!DiasLaborados.Value</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox29</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox32">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox32</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="Textbox177">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Periodo</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox177</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="Textbox33">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox33</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="Textbox148">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!TipoPeriodo.Value</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox148</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="Textbox39">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!FechaInicio.Value</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value> al </Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!FechaFin.Value</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox39</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <RightBorder>
+                              <Style>Solid</Style>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>3</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox61">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>PERCEPCIONES</Value>
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox61</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>7</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox65">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>DEDUCCIONES</Value>
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox65</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Style>None</Style>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>5</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox21">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Concepto</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox21</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>3</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox138">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox138</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox23">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox23</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox24">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Importe</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox24</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox25">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Concepto</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox25</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox190">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox190</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox27">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox27</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox28">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Importe</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox28</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.44125cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="NoConceptoP">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!NoConceptoP.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>NoConceptoP</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="ConceptoP1">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!ConceptoP.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>ConceptoP1</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>3</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox6">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=IIf(not IsNothing(Fields!ConceptoP.Value) ORELSE Fields!ImporteP.Value &gt;0,"$",Nothing)</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox6</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="ImporteP">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=IIf(not IsNothing(Fields!ConceptoP.Value) ORELSE Fields!ImporteP.Value &gt;0,Fields!ImporteP.Value,nothing)</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <Format>#,0.00;(#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>ImporteP</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="NoConceptoD">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!NoConceptoD.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>NoConceptoD</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="ConceptoD">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!ConceptoD.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>ConceptoD</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox14">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=IIf(not IsNothing(Fields!ConceptoD.Value) ORELSE Fields!ImporteD.Value &gt;0,"$"," ")</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox14</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="ImporteD">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=IIf(not IsNothing(Fields!ConceptoD.Value) ORELSE Fields!ImporteD.Value &gt;0,Fields!ImporteD.Value,nothing)</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <Format>#,0.00;(#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>ImporteD</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.30896cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox212">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox212</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox101">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox101</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="Textbox213">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox213</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="Textbox214">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox214</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="Textbox215">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox215</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="Textbox216">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox216</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="Textbox229">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox229</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="Textbox217">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox217</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox218">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox218</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="Textbox219">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox219</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="Textbox220">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox220</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="Textbox221">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox221</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.41479cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox222">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox222</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox102">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox102</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox223">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Total Percepciones</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox223</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox225">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>$</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox225</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="ImporteP1">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!ImporteP.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <Format>#,0.00;(#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>ImporteP1</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox231">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox231</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox227">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox227</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox228">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Total Deducciones</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox228</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox230">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>$</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox230</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="ImporteD1">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!ImporteD.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <Format>#,0.00;(#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>ImporteD1</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.36187cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox232">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox232</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="Textbox103">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox103</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="Textbox233">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox233</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="Textbox234">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox234</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="Textbox235">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox235</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="Textbox236">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox236</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="Textbox241">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox241</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="Textbox237">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox237</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="Textbox238">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox238</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="Textbox239">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Neto a pagar</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox239</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox240">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>$</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox240</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="ImporteD2">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!ImporteD.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <Format>#,0.00;(#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>ImporteD2</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.52062cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox242">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>    Recibí de la empresa arriba mencionada,</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox242</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>12</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.54708cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox252">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>    la cantidad neta a que este documento </Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox252</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>12</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.46771cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox253">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>    se refiere, estando conforme con las</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox253</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>12</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.46771cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox272">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>    Percepciones y deducciones que en el </Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox272</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>12</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.52062cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox262">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>    aparecen especificados.</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox262</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>12</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell />
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>1.27938cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox282">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox282</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="Textbox104">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox104</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="Textbox283">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox283</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="Textbox284">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox284</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="Textbox285">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox285</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="Textbox286">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox286</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="Textbox243">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox243</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="Textbox287">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox287</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="Textbox288">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox288</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox289">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox289</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox290">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox290</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="Textbox291">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox291</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.6cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox292">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox292</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="Textbox105">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox105</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="Textbox293">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox293</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="Textbox294">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox294</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="Textbox295">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox295</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="Textbox296">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox296</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="Textbox244">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style />
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox244</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="Textbox297">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox297</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="Textbox298">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Parameters!NombreCompleto.Value</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox298</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>2</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox300">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox300</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="Textbox301">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox301</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+              </TablixRows>
+            </TablixBody>
+            <TablixColumnHierarchy>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixColumnHierarchy>
+            <TablixRowHierarchy>
+              <TablixMembers>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <Group Name="Details" />
+                  <TablixMembers>
+                    <TablixMember>
+                      <Visibility>
+                        <Hidden>=Fields!EstatusD.Value =-3 OR Fields!EstatusP.Value =-2</Hidden>
+                      </Visibility>
+                    </TablixMember>
+                    <TablixMember>
+                      <Visibility>
+                        <Hidden>=Fields!EstatusD.Value &lt;&gt; 2</Hidden>
+                      </Visibility>
+                    </TablixMember>
+                    <TablixMember>
+                      <Visibility>
+                        <Hidden>=Fields!EstatusD.Value &lt;&gt; -2</Hidden>
+                      </Visibility>
+                    </TablixMember>
+                    <TablixMember>
+                      <Visibility>
+                        <Hidden>=Fields!EstatusD.Value &lt;&gt; -3</Hidden>
+                      </Visibility>
+                    </TablixMember>
+                  </TablixMembers>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>Before</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>Before</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>Before</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>Before</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>Before</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>Before</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <KeepWithGroup>Before</KeepWithGroup>
+                </TablixMember>
+              </TablixMembers>
+            </TablixRowHierarchy>
+            <DataSetName>DataSet1</DataSetName>
+            <Left>0.07625cm</Left>
+            <Height>10.12999cm</Height>
+            <Width>20.53293cm</Width>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Tablix>
+        </ReportItems>
+        <Height>6.69045in</Height>
+        <Style />
+      </Body>
+      <Width>8.11385in</Width>
+      <Page>
+        <PageFooter>
+          <Height>0.68792cm</Height>
+          <PrintOnFirstPage>true</PrintOnFirstPage>
+          <PrintOnLastPage>true</PrintOnLastPage>
+          <ReportItems>
+            <Textbox Name="Textbox83">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Fecha Impresión: </Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Today</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value xml:space="preserve"> </Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox5</rd:DefaultName>
+              <Top>0.08364cm</Top>
+              <Left>0.10282cm</Left>
+              <Height>0.46771cm</Height>
+              <Width>6.92282cm</Width>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+          </ReportItems>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+          </Style>
+        </PageFooter>
+        <PageHeight>27.94cm</PageHeight>
+        <PageWidth>21.59cm</PageWidth>
+        <LeftMargin>0.5cm</LeftMargin>
+        <RightMargin>0.5cm</RightMargin>
+        <TopMargin>1cm</TopMargin>
+        <BottomMargin>1cm</BottomMargin>
+        <ColumnSpacing>0.13cm</ColumnSpacing>
+        <Style />
+      </Page>
+    </ReportSection>
+  </ReportSections>
+  <ReportParameters>
+    <ReportParameter Name="Codigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NombreCompleto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RFC">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CURP">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TipoPeriodo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NSS">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="DiasLaborados">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="DiasFaltados">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="DiasVacaciones">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaInicio">
+      <DataType>String</DataType>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaFin">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="DiasRetardos">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaPago">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="DiasIncapacidad">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SubProyecto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Empresa">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+  </ReportParameters>
+  <rd:ReportUnitType>Cm</rd:ReportUnitType>
+  <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
+</Report>
\ No newline at end of file
diff --git a/Empresas/132/Formatos/Cotizacion.rdlc b/Empresas/132/Formatos/Cotizacion.rdlc
index dfb898aac..82acf3e6f 100644
--- a/Empresas/132/Formatos/Cotizacion.rdlc
+++ b/Empresas/132/Formatos/Cotizacion.rdlc
@@ -738,43 +738,10 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Soluciones en Telemediciones JAR SA de CV</Value>
-                <Style>
-                  <FontFamily>bahnschrift</FontFamily>
-                  <FontSize>8pt</FontSize>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Paseo Florido 62A. Col. Nueva Galicia</Value>
-                <Style>
-                  <FontFamily>bahnschrift</FontFamily>
-                  <FontSize>8pt</FontSize>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Tel. (662) 2 2162270</Value>
-                <Style>
-                  <FontFamily>bahnschrift</FontFamily>
-                  <FontSize>8pt</FontSize>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style />
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Hermosillo, Sonora, México.</Value>
+                <Value>Soluciones en Telemediciones JAR SA de CV
+contacto@soteljar.com
+Tel. (662) 2 2162270
+Hermosillo, Sonora, México.  C.P. 83245</Value>
                 <Style>
                   <FontFamily>bahnschrift</FontFamily>
                   <FontSize>8pt</FontSize>
@@ -1678,7 +1645,6 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox20</rd:DefaultName>
-          <Top>0cm</Top>
           <Left>10.20038cm</Left>
           <Height>3.01642cm</Height>
           <Width>8.19687cm</Width>
diff --git a/Empresas/132/Formatos/Factura.rdlc b/Empresas/132/Formatos/Factura.rdlc
index 05b4e4aab..319a612b8 100644
--- a/Empresas/132/Formatos/Factura.rdlc
+++ b/Empresas/132/Formatos/Factura.rdlc
@@ -195,6 +195,20 @@
               <TextAlign>Center</TextAlign>
             </Style>
           </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>contacto@soteljar.com</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
           <Paragraph>
             <TextRuns>
               <TextRun>
@@ -214,7 +228,7 @@
         <rd:DefaultName>Textbox4</rd:DefaultName>
         <Top>0.03532cm</Top>
         <Left>1.48781in</Left>
-        <Height>0.51102in</Height>
+        <Height>0.58046in</Height>
         <Width>4.09641in</Width>
         <ZIndex>4</ZIndex>
         <Style>
@@ -315,106 +329,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Textbox Name="Textbox10">
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>DOMICILIO FISCAL</Value>
-                <Style>
-                  <FontFamily>Calibri</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>PASEO FLORIDO No.Ext: 62, No.Int: A, Col: NUEVA GALICIA, CP: 83245, HERMOSILLO,SONORA, MEXICO</Value>
-                <Style>
-                  <FontStyle>Normal</FontStyle>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>7.5pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                  <TextDecoration>None</TextDecoration>
-                  <Color>#000000</Color>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.52493in</Top>
-        <Left>1.48781in</Left>
-        <Height>0.65513in</Height>
-        <Width>2.06754in</Width>
-        <ZIndex>8</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox11">
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>LUGAR DE EXPEDICIÓN</Value>
-                <Style>
-                  <FontFamily>Calibri</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>=Parameters!DomicilioSucursal.Value</Value>
-                <Style>
-                  <FontFamily>Calibri</FontFamily>
-                  <FontSize>7.5pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.52493in</Top>
-        <Left>3.64748in</Left>
-        <Height>0.65513in</Height>
-        <Width>1.93674in</Width>
-        <ZIndex>9</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <VerticalAlign>Top</VerticalAlign>
-        </Style>
-      </Textbox>
       <Textbox Name="Textbox19">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -436,7 +350,7 @@
         <Left>0.14361cm</Left>
         <Height>0.22222in</Height>
         <Width>0.81128in</Width>
-        <ZIndex>10</ZIndex>
+        <ZIndex>8</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -478,7 +392,7 @@
         <Left>0.86782in</Left>
         <Height>0.22222in</Height>
         <Width>4.79418in</Width>
-        <ZIndex>11</ZIndex>
+        <ZIndex>9</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -521,7 +435,7 @@
         <Left>0.05654in</Left>
         <Height>0.23611in</Height>
         <Width>0.81128in</Width>
-        <ZIndex>12</ZIndex>
+        <ZIndex>10</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -564,7 +478,7 @@
         <Left>0.86782in</Left>
         <Height>0.2309in</Height>
         <Width>7.0427in</Width>
-        <ZIndex>13</ZIndex>
+        <ZIndex>11</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -607,7 +521,7 @@
         <Left>0.05654in</Left>
         <Height>0.23611in</Height>
         <Width>0.81128in</Width>
-        <ZIndex>14</ZIndex>
+        <ZIndex>12</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -649,7 +563,7 @@
         <Left>0.86782in</Left>
         <Height>0.23611in</Height>
         <Width>4.79418in</Width>
-        <ZIndex>15</ZIndex>
+        <ZIndex>13</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -695,7 +609,7 @@
         <Left>1.62474in</Left>
         <Height>0.18056in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>16</ZIndex>
+        <ZIndex>14</ZIndex>
         <Style>
           <Border>
             <Color>#4f81bd</Color>
@@ -745,7 +659,7 @@
         <Left>1.62474in</Left>
         <Height>0.18056in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>17</ZIndex>
+        <ZIndex>15</ZIndex>
         <Style>
           <Border>
             <Color>White</Color>
@@ -783,7 +697,7 @@
         <Left>1.62474in</Left>
         <Height>0.19444in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>18</ZIndex>
+        <ZIndex>16</ZIndex>
         <Style>
           <Border>
             <Color>White</Color>
@@ -821,7 +735,7 @@
         <Left>1.62474in</Left>
         <Height>0.19445in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>19</ZIndex>
+        <ZIndex>17</ZIndex>
         <Style>
           <Border>
             <Color>White</Color>
@@ -857,7 +771,7 @@
         <Left>5.68204in</Left>
         <Height>0.18056in</Height>
         <Width>2.22448in</Width>
-        <ZIndex>20</ZIndex>
+        <ZIndex>18</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -891,7 +805,7 @@
         <Left>5.67684in</Left>
         <Height>0.16667in</Height>
         <Width>2.22969in</Width>
-        <ZIndex>21</ZIndex>
+        <ZIndex>19</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -924,7 +838,7 @@
         <Left>5.67684in</Left>
         <Height>0.16939in</Height>
         <Width>2.22714in</Width>
-        <ZIndex>22</ZIndex>
+        <ZIndex>20</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -957,7 +871,7 @@
         <Left>5.68204in</Left>
         <Height>0.17784in</Height>
         <Width>2.22193in</Width>
-        <ZIndex>23</ZIndex>
+        <ZIndex>21</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1016,6 +930,13 @@
                   <FontSize>7pt</FontSize>
                 </Style>
               </TextRun>
+              <TextRun>
+                <Value>, lugar de expedición  C.P. 83245 Hermosillo, Sonora, México.</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                </Style>
+              </TextRun>
             </TextRuns>
             <Style />
           </Paragraph>
@@ -1025,7 +946,7 @@
         <Left>1.51843in</Left>
         <Height>0.29498in</Height>
         <Width>6.38809in</Width>
-        <ZIndex>24</ZIndex>
+        <ZIndex>22</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1053,11 +974,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox63</rd:DefaultName>
-        <Top>6.72543in</Top>
+        <Top>6.81293in</Top>
         <Left>2.52292in</Left>
         <Height>0.25in</Height>
         <Width>3.69856in</Width>
-        <ZIndex>25</ZIndex>
+        <ZIndex>23</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1860,7 +1781,7 @@
         <Left>0.08093cm</Left>
         <Height>4.04843cm</Height>
         <Width>20.06179cm</Width>
-        <ZIndex>26</ZIndex>
+        <ZIndex>24</ZIndex>
         <Visibility>
           <Hidden>= (Parameters!AplicaPagare.Value="0" ORelse Parameters!AplicaPagare.Value="")</Hidden>
         </Visibility>
@@ -2496,7 +2417,7 @@
         <Left>0.11468cm</Left>
         <Height>1.01949cm</Height>
         <Width>20.01064cm</Width>
-        <ZIndex>27</ZIndex>
+        <ZIndex>25</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2535,7 +2456,7 @@
         <Left>5.662in</Left>
         <Height>0.20317in</Height>
         <Width>2.26391in</Width>
-        <ZIndex>28</ZIndex>
+        <ZIndex>26</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -2821,7 +2742,7 @@
         <Left>5.73412in</Left>
         <Height>0.34081in</Height>
         <Width>2.19818in</Width>
-        <ZIndex>29</ZIndex>
+        <ZIndex>27</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2937,7 +2858,7 @@
         <Left>14.56464cm</Left>
         <Height>0.6cm</Height>
         <Width>5.58343cm</Width>
-        <ZIndex>30</ZIndex>
+        <ZIndex>28</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3553,7 +3474,7 @@
         <Left>0.11468cm</Left>
         <Height>5.76188cm</Height>
         <Width>14.34413cm</Width>
-        <ZIndex>31</ZIndex>
+        <ZIndex>29</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3596,7 +3517,7 @@
         <Left>0.04404in</Left>
         <Height>0.36457in</Height>
         <Width>7.87931in</Width>
-        <ZIndex>32</ZIndex>
+        <ZIndex>30</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3615,7 +3536,7 @@
         <Left>0.13016cm</Left>
         <Height>2.85467cm</Height>
         <Width>3.50777cm</Width>
-        <ZIndex>33</ZIndex>
+        <ZIndex>31</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3736,7 +3657,7 @@
         <Left>0.08093cm</Left>
         <Height>2.03294cm</Height>
         <Width>9.97751cm</Width>
-        <ZIndex>34</ZIndex>
+        <ZIndex>32</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3822,7 +3743,7 @@
         <Left>10.05844cm</Left>
         <Height>2.03294cm</Height>
         <Width>10.08428cm</Width>
-        <ZIndex>35</ZIndex>
+        <ZIndex>33</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
diff --git a/Empresas/132/Formatos/NotaDevolucion.rdlc b/Empresas/132/Formatos/NotaDevolucion.rdlc
index f72b1bc6d..c2c58c45f 100644
--- a/Empresas/132/Formatos/NotaDevolucion.rdlc
+++ b/Empresas/132/Formatos/NotaDevolucion.rdlc
@@ -195,6 +195,20 @@
               <TextAlign>Center</TextAlign>
             </Style>
           </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>contacto@soteljar.com</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
           <Paragraph>
             <TextRuns>
               <TextRun>
@@ -214,7 +228,7 @@
         <rd:DefaultName>Textbox4</rd:DefaultName>
         <Top>0.03532cm</Top>
         <Left>1.48781in</Left>
-        <Height>0.51102in</Height>
+        <Height>0.66099in</Height>
         <Width>4.09641in</Width>
         <ZIndex>4</ZIndex>
         <Style>
@@ -315,106 +329,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Textbox Name="Textbox10">
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Domicilio Fiscal</Value>
-                <Style>
-                  <FontFamily>Calibri</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Paseo Florido, 62-A, Col.: Nueva Galicia, C.P.: 83245, Hermosillo, Sonora, México.</Value>
-                <Style>
-                  <FontStyle>Normal</FontStyle>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                  <TextDecoration>None</TextDecoration>
-                  <Color>#000000</Color>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.52493in</Top>
-        <Left>1.48781in</Left>
-        <Height>0.65513in</Height>
-        <Width>2.06754in</Width>
-        <ZIndex>8</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox11">
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Lugar de Expedición</Value>
-                <Style>
-                  <FontFamily>Calibri</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>=Parameters!DomicilioSucursal.Value</Value>
-                <Style>
-                  <FontFamily>Calibri</FontFamily>
-                  <FontSize>7.5pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.52493in</Top>
-        <Left>3.64748in</Left>
-        <Height>0.65513in</Height>
-        <Width>1.93674in</Width>
-        <ZIndex>9</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <VerticalAlign>Top</VerticalAlign>
-        </Style>
-      </Textbox>
       <Textbox Name="Textbox19">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -436,7 +350,7 @@
         <Left>0.14361cm</Left>
         <Height>0.22222in</Height>
         <Width>0.81128in</Width>
-        <ZIndex>10</ZIndex>
+        <ZIndex>8</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -478,7 +392,7 @@
         <Left>0.86782in</Left>
         <Height>0.22222in</Height>
         <Width>4.79418in</Width>
-        <ZIndex>11</ZIndex>
+        <ZIndex>9</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -521,7 +435,7 @@
         <Left>0.05654in</Left>
         <Height>0.23611in</Height>
         <Width>0.81128in</Width>
-        <ZIndex>12</ZIndex>
+        <ZIndex>10</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -564,7 +478,7 @@
         <Left>0.86782in</Left>
         <Height>0.2309in</Height>
         <Width>7.0427in</Width>
-        <ZIndex>13</ZIndex>
+        <ZIndex>11</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -607,7 +521,7 @@
         <Left>0.05654in</Left>
         <Height>0.23611in</Height>
         <Width>0.81128in</Width>
-        <ZIndex>14</ZIndex>
+        <ZIndex>12</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -649,7 +563,7 @@
         <Left>0.86782in</Left>
         <Height>0.23611in</Height>
         <Width>4.79418in</Width>
-        <ZIndex>15</ZIndex>
+        <ZIndex>13</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -695,7 +609,7 @@
         <Left>1.64412in</Left>
         <Height>0.18056in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>16</ZIndex>
+        <ZIndex>14</ZIndex>
         <Style>
           <Border>
             <Color>#4f81bd</Color>
@@ -745,7 +659,7 @@
         <Left>1.64412in</Left>
         <Height>0.18056in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>17</ZIndex>
+        <ZIndex>15</ZIndex>
         <Style>
           <Border>
             <Color>White</Color>
@@ -783,7 +697,7 @@
         <Left>1.64412in</Left>
         <Height>0.19444in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>18</ZIndex>
+        <ZIndex>16</ZIndex>
         <Style>
           <Border>
             <Color>White</Color>
@@ -821,7 +735,7 @@
         <Left>1.64412in</Left>
         <Height>0.19445in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>19</ZIndex>
+        <ZIndex>17</ZIndex>
         <Style>
           <Border>
             <Color>White</Color>
@@ -857,7 +771,7 @@
         <Left>5.70142in</Left>
         <Height>0.18056in</Height>
         <Width>2.22448in</Width>
-        <ZIndex>20</ZIndex>
+        <ZIndex>18</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -891,7 +805,7 @@
         <Left>5.69622in</Left>
         <Height>0.16667in</Height>
         <Width>2.22969in</Width>
-        <ZIndex>21</ZIndex>
+        <ZIndex>19</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -924,7 +838,7 @@
         <Left>5.69622in</Left>
         <Height>0.16939in</Height>
         <Width>2.22714in</Width>
-        <ZIndex>22</ZIndex>
+        <ZIndex>20</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -957,7 +871,7 @@
         <Left>5.70142in</Left>
         <Height>0.17784in</Height>
         <Width>2.22193in</Width>
-        <ZIndex>23</ZIndex>
+        <ZIndex>21</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1016,6 +930,13 @@
                   <FontSize>7pt</FontSize>
                 </Style>
               </TextRun>
+              <TextRun>
+                <Value> , lugar de expedición  C.P. 83245 Hermosillo, Sonora, México.</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                </Style>
+              </TextRun>
             </TextRuns>
             <Style />
           </Paragraph>
@@ -1025,7 +946,7 @@
         <Left>1.53781in</Left>
         <Height>0.29498in</Height>
         <Width>6.38809in</Width>
-        <ZIndex>24</ZIndex>
+        <ZIndex>22</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1053,11 +974,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox63</rd:DefaultName>
-        <Top>5.98585in</Top>
+        <Top>6.09835in</Top>
         <Left>2.5423in</Left>
         <Height>0.25in</Height>
         <Width>3.69856in</Width>
-        <ZIndex>25</ZIndex>
+        <ZIndex>23</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1860,7 +1781,7 @@
         <Left>0.13016cm</Left>
         <Height>4.04843cm</Height>
         <Width>20.06179cm</Width>
-        <ZIndex>26</ZIndex>
+        <ZIndex>24</ZIndex>
         <Visibility>
           <Hidden>= (Parameters!AplicaPagare.Value="0" ORelse Parameters!AplicaPagare.Value="")</Hidden>
         </Visibility>
@@ -2496,7 +2417,7 @@
         <Left>0.11468cm</Left>
         <Height>1.01949cm</Height>
         <Width>20.01064cm</Width>
-        <ZIndex>27</ZIndex>
+        <ZIndex>25</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2535,7 +2456,7 @@
         <Left>5.662in</Left>
         <Height>0.20317in</Height>
         <Width>2.26391in</Width>
-        <ZIndex>28</ZIndex>
+        <ZIndex>26</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -2821,7 +2742,7 @@
         <Left>5.73412in</Left>
         <Height>0.34081in</Height>
         <Width>2.19818in</Width>
-        <ZIndex>29</ZIndex>
+        <ZIndex>27</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2937,7 +2858,7 @@
         <Left>14.56464cm</Left>
         <Height>0.6cm</Height>
         <Width>5.58343cm</Width>
-        <ZIndex>30</ZIndex>
+        <ZIndex>28</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3553,7 +3474,7 @@
         <Left>0.11468cm</Left>
         <Height>5.76188cm</Height>
         <Width>14.34413cm</Width>
-        <ZIndex>31</ZIndex>
+        <ZIndex>29</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3596,7 +3517,7 @@
         <Left>0.04404in</Left>
         <Height>0.36457in</Height>
         <Width>7.87931in</Width>
-        <ZIndex>32</ZIndex>
+        <ZIndex>30</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3615,7 +3536,7 @@
         <Left>0.13016cm</Left>
         <Height>2.85467cm</Height>
         <Width>3.50777cm</Width>
-        <ZIndex>33</ZIndex>
+        <ZIndex>31</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
diff --git a/Empresas/132/Formatos/OC.rdlc b/Empresas/132/Formatos/OC.rdlc
index dccb4d848..d39e756de 100644
--- a/Empresas/132/Formatos/OC.rdlc
+++ b/Empresas/132/Formatos/OC.rdlc
@@ -55,34 +55,6 @@
             </TextRuns>
             <Style />
           </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>PASEO FLORIDO 62-A</Value>
-                <Style>
-                  <FontSize>7pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value xml:space="preserve"> </Value>
-                <Style>
-                  <FontSize>7.5pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>NUEVA GALICIA </Value>
-                <Style>
-                  <FontSize>7pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
           <Paragraph>
             <TextRuns>
               <TextRun>
@@ -93,7 +65,9 @@
                 </Style>
               </TextRun>
             </TextRuns>
-            <Style />
+            <Style>
+              <TextAlign>Left</TextAlign>
+            </Style>
           </Paragraph>
           <Paragraph>
             <TextRuns>
@@ -115,6 +89,18 @@
             </TextRuns>
             <Style />
           </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>contacto@soteljar.com</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox4</rd:DefaultName>
         <Left>4.05739cm</Left>
diff --git a/Empresas/132/Formatos/ReciboDePago.rdlc b/Empresas/132/Formatos/ReciboDePago.rdlc
index ceb7da173..30b0a0548 100644
--- a/Empresas/132/Formatos/ReciboDePago.rdlc
+++ b/Empresas/132/Formatos/ReciboDePago.rdlc
@@ -2852,7 +2852,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Regímen: Regímen General de Ley Personas Morales</Value>
+                <Value>Regímen: Regímen General de Ley Personas Morales, lugar de expedición  C.P. 83245 Hermosillo, Sonora, México.</Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -3571,7 +3571,7 @@
   <Width>20.54984cm</Width>
   <Page>
     <PageHeader>
-      <Height>3.26147cm</Height>
+      <Height>2.27561cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -3778,8 +3778,8 @@
           <Source>Embedded</Source>
           <Value>Logo</Value>
           <Sizing>FitProportional</Sizing>
-          <Height>2.88998cm</Height>
-          <Width>3.14425cm</Width>
+          <Height>2.27561cm</Height>
+          <Width>2.55292cm</Width>
           <ZIndex>4</ZIndex>
           <Style>
             <Border>
@@ -3830,10 +3830,24 @@
                 <TextAlign>Center</TextAlign>
               </Style>
             </Paragraph>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>contacto@soteljar.com</Value>
+                  <Style>
+                    <FontFamily>calibri</FontFamily>
+                    <FontSize>8pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox4</rd:DefaultName>
           <Left>1.77165in</Left>
-          <Height>0.50583in</Height>
+          <Height>0.57533in</Height>
           <Width>4.00199in</Width>
           <ZIndex>5</ZIndex>
           <Style>
@@ -3852,7 +3866,7 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>Domicilio Fiscal</Value>
+                  <Value />
                   <Style>
                     <FontFamily>Calibri</FontFamily>
                     <FontSize>8pt</FontSize>
@@ -3864,56 +3878,11 @@
                 <TextAlign>Center</TextAlign>
               </Style>
             </Paragraph>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Paseo Florido, #62-A,</Value>
-                  <Style>
-                    <FontFamily>Calibri</FontFamily>
-                    <FontSize>7.5pt</FontSize>
-                    <FontWeight>Normal</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Center</TextAlign>
-              </Style>
-            </Paragraph>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Col.: Nueva Galicia Son, C.P. 83245 Hermosillo,</Value>
-                  <Style>
-                    <FontFamily>Calibri</FontFamily>
-                    <FontSize>7.5pt</FontSize>
-                    <FontWeight>Normal</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Center</TextAlign>
-              </Style>
-            </Paragraph>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Sonora, México</Value>
-                  <Style>
-                    <FontFamily>Calibri</FontFamily>
-                    <FontSize>7.5pt</FontSize>
-                    <FontWeight>Normal</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Center</TextAlign>
-              </Style>
-            </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox10</rd:DefaultName>
-          <Top>0.50583in</Top>
-          <Left>2.84624in</Left>
-          <Height>0.75234in</Height>
+          <Top>0.64477in</Top>
+          <Left>2.84635in</Left>
+          <Height>0.25114in</Height>
           <Width>1.93508in</Width>
           <ZIndex>6</ZIndex>
           <Style>
diff --git a/Empresas/132/Formatos/Remision.rdlc b/Empresas/132/Formatos/Remision.rdlc
index 1e9f94345..b1cc5010d 100644
--- a/Empresas/132/Formatos/Remision.rdlc
+++ b/Empresas/132/Formatos/Remision.rdlc
@@ -198,11 +198,10 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value />
+                <Value>contacto@soteljar.com</Value>
                 <Style>
-                  <FontFamily>Calibri</FontFamily>
+                  <FontFamily>calibri</FontFamily>
                   <FontSize>8pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
                 </Style>
               </TextRun>
             </TextRuns>
@@ -213,8 +212,8 @@
         </Paragraphs>
         <rd:DefaultName>Textbox4</rd:DefaultName>
         <Top>0.03532cm</Top>
-        <Left>1.48781in</Left>
-        <Height>0.51102in</Height>
+        <Left>1.49615in</Left>
+        <Height>0.66099in</Height>
         <Width>4.09641in</Width>
         <ZIndex>4</ZIndex>
         <Style>
@@ -315,106 +314,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Textbox Name="Textbox10">
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Domicilio Fiscal</Value>
-                <Style>
-                  <FontFamily>Calibri</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Paseo Florido, 62-A, Col.: Nueva Galicia, C.P.: 83245, Hermosillo, Sonora, México.</Value>
-                <Style>
-                  <FontStyle>Normal</FontStyle>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                  <TextDecoration>None</TextDecoration>
-                  <Color>#000000</Color>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.52493in</Top>
-        <Left>1.48781in</Left>
-        <Height>0.65513in</Height>
-        <Width>2.06754in</Width>
-        <ZIndex>8</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-      <Textbox Name="Textbox11">
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>Lugar de Expedición</Value>
-                <Style>
-                  <FontFamily>Calibri</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>=Parameters!DomicilioSucursal.Value</Value>
-                <Style>
-                  <FontFamily>Calibri</FontFamily>
-                  <FontSize>7.5pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.52493in</Top>
-        <Left>3.64748in</Left>
-        <Height>0.65513in</Height>
-        <Width>1.93674in</Width>
-        <ZIndex>9</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <VerticalAlign>Top</VerticalAlign>
-        </Style>
-      </Textbox>
       <Textbox Name="Textbox19">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -436,7 +335,7 @@
         <Left>0.14361cm</Left>
         <Height>0.22222in</Height>
         <Width>0.81128in</Width>
-        <ZIndex>10</ZIndex>
+        <ZIndex>8</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -478,7 +377,7 @@
         <Left>0.86782in</Left>
         <Height>0.22222in</Height>
         <Width>4.79418in</Width>
-        <ZIndex>11</ZIndex>
+        <ZIndex>9</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -521,7 +420,7 @@
         <Left>0.05654in</Left>
         <Height>0.23611in</Height>
         <Width>0.81128in</Width>
-        <ZIndex>12</ZIndex>
+        <ZIndex>10</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -564,7 +463,7 @@
         <Left>0.86782in</Left>
         <Height>0.2309in</Height>
         <Width>7.0427in</Width>
-        <ZIndex>13</ZIndex>
+        <ZIndex>11</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -607,7 +506,7 @@
         <Left>0.05654in</Left>
         <Height>0.23611in</Height>
         <Width>0.81128in</Width>
-        <ZIndex>14</ZIndex>
+        <ZIndex>12</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -649,7 +548,7 @@
         <Left>0.86782in</Left>
         <Height>0.23611in</Height>
         <Width>4.79418in</Width>
-        <ZIndex>15</ZIndex>
+        <ZIndex>13</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -695,7 +594,7 @@
         <Left>1.64412in</Left>
         <Height>0.18056in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>16</ZIndex>
+        <ZIndex>14</ZIndex>
         <Style>
           <Border>
             <Color>#4f81bd</Color>
@@ -745,7 +644,7 @@
         <Left>1.64412in</Left>
         <Height>0.18056in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>17</ZIndex>
+        <ZIndex>15</ZIndex>
         <Style>
           <Border>
             <Color>White</Color>
@@ -783,7 +682,7 @@
         <Left>1.64412in</Left>
         <Height>0.19444in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>18</ZIndex>
+        <ZIndex>16</ZIndex>
         <Style>
           <Border>
             <Color>White</Color>
@@ -821,7 +720,7 @@
         <Left>1.64412in</Left>
         <Height>0.19445in</Height>
         <Width>4.03672in</Width>
-        <ZIndex>19</ZIndex>
+        <ZIndex>17</ZIndex>
         <Style>
           <Border>
             <Color>White</Color>
@@ -857,7 +756,7 @@
         <Left>5.70142in</Left>
         <Height>0.18056in</Height>
         <Width>2.22448in</Width>
-        <ZIndex>20</ZIndex>
+        <ZIndex>18</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -891,7 +790,7 @@
         <Left>5.69622in</Left>
         <Height>0.16667in</Height>
         <Width>2.22969in</Width>
-        <ZIndex>21</ZIndex>
+        <ZIndex>19</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -924,7 +823,7 @@
         <Left>5.69622in</Left>
         <Height>0.16939in</Height>
         <Width>2.22714in</Width>
-        <ZIndex>22</ZIndex>
+        <ZIndex>20</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -957,7 +856,7 @@
         <Left>5.70142in</Left>
         <Height>0.17784in</Height>
         <Width>2.22193in</Width>
-        <ZIndex>23</ZIndex>
+        <ZIndex>21</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1016,6 +915,13 @@
                   <FontSize>7pt</FontSize>
                 </Style>
               </TextRun>
+              <TextRun>
+                <Value>, lugar de expedición  C.P. 83245 Hermosillo, Sonora, México.</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                </Style>
+              </TextRun>
             </TextRuns>
             <Style />
           </Paragraph>
@@ -1025,7 +931,7 @@
         <Left>1.53781in</Left>
         <Height>0.29498in</Height>
         <Width>6.38809in</Width>
-        <ZIndex>24</ZIndex>
+        <ZIndex>22</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1053,11 +959,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox63</rd:DefaultName>
-        <Top>5.98585in</Top>
+        <Top>6.11085in</Top>
         <Left>2.5423in</Left>
         <Height>0.25in</Height>
         <Width>3.69856in</Width>
-        <ZIndex>25</ZIndex>
+        <ZIndex>23</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1860,7 +1766,7 @@
         <Left>0.13016cm</Left>
         <Height>4.04843cm</Height>
         <Width>20.06179cm</Width>
-        <ZIndex>26</ZIndex>
+        <ZIndex>24</ZIndex>
         <Visibility>
           <Hidden>= (Parameters!AplicaPagare.Value="0" ORelse Parameters!AplicaPagare.Value="")</Hidden>
         </Visibility>
@@ -2496,7 +2402,7 @@
         <Left>0.11468cm</Left>
         <Height>1.01949cm</Height>
         <Width>20.01064cm</Width>
-        <ZIndex>27</ZIndex>
+        <ZIndex>25</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2535,7 +2441,7 @@
         <Left>5.662in</Left>
         <Height>0.20317in</Height>
         <Width>2.26391in</Width>
-        <ZIndex>28</ZIndex>
+        <ZIndex>26</ZIndex>
         <Style>
           <Border>
             <Color>#2c2e42</Color>
@@ -2821,7 +2727,7 @@
         <Left>5.73412in</Left>
         <Height>0.34081in</Height>
         <Width>2.19818in</Width>
-        <ZIndex>29</ZIndex>
+        <ZIndex>27</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2937,7 +2843,7 @@
         <Left>14.56464cm</Left>
         <Height>0.6cm</Height>
         <Width>5.58343cm</Width>
-        <ZIndex>30</ZIndex>
+        <ZIndex>28</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3553,7 +3459,7 @@
         <Left>0.11468cm</Left>
         <Height>5.76188cm</Height>
         <Width>14.34413cm</Width>
-        <ZIndex>31</ZIndex>
+        <ZIndex>29</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3596,7 +3502,7 @@
         <Left>0.04404in</Left>
         <Height>0.36457in</Height>
         <Width>7.87931in</Width>
-        <ZIndex>32</ZIndex>
+        <ZIndex>30</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -3615,7 +3521,7 @@
         <Left>0.13016cm</Left>
         <Height>2.85467cm</Height>
         <Width>3.50777cm</Width>
-        <ZIndex>33</ZIndex>
+        <ZIndex>31</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc
index b2dac1529..79a23d44f 100644
--- a/Empresas/141/Formatos/Factura.rdlc
+++ b/Empresas/141/Formatos/Factura.rdlc
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -1297,7 +1297,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>9.91059cm</Top>
+            <Top>9.52211cm</Top>
             <Left>0.28014cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
@@ -1345,10 +1345,10 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>10.00082cm</Top>
-            <Left>2.01402cm</Left>
-            <Height>0.51608cm</Height>
-            <Width>19.15264cm</Width>
+            <Top>9.6829cm</Top>
+            <Left>1.10521cm</Left>
+            <Height>0.62233cm</Height>
+            <Width>9.17089cm</Width>
             <ZIndex>3</ZIndex>
             <Style>
               <Border>
@@ -3858,6 +3858,50 @@
               </Border>
             </Style>
           </Rectangle>
+          <Textbox Name="Textbox27">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Acepto ajuste     </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontSize>12pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>_______________________</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontSize>12pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox1</rd:DefaultName>
+            <Top>9.84123cm</Top>
+            <Left>10.41721cm</Left>
+            <Height>0.64039cm</Height>
+            <Width>9.53276cm</Width>
+            <ZIndex>44</ZIndex>
+            <Visibility>
+              <Hidden>=IIF((Sum(IIF(UCase(Fields!Clasificacion.Value) = "AJUSTE" , 1, 0), "DsOC") &gt; 0),false,true)</Hidden>
+            </Visibility>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
         </ReportItems>
         <Height>27.70336cm</Height>
         <Style />
diff --git a/Empresas/153/Formatos/Cotizacion.rdlc b/Empresas/153/Formatos/Cotizacion.rdlc
new file mode 100644
index 000000000..fc6b403d8
--- /dev/null
+++ b/Empresas/153/Formatos/Cotizacion.rdlc
@@ -0,0 +1,3397 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DsOC">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>06ae5329-8ff5-42b5-b7f4-6d68e5186420</rd:DataSourceID>
+    </DataSource>
+    <DataSource Name="DataSet2">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>3fde81d4-b9ca-4175-9160-5293ca8b9aa9</rd:DataSourceID>
+    </DataSource>
+    <DataSource Name="DsFirmas">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>c220a38d-e45b-4e04-917e-7dfd9cc3345f</rd:DataSourceID>
+    </DataSource>
+    <DataSource Name="DsDesgloseImpuestos">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>c220a38d-e45b-4e04-917e-7dfd9cc3345f</rd:DataSourceID>
+    </DataSource>
+    <DataSource Name="DsDocumentosRelacionados">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>c220a38d-e45b-4e04-917e-7dfd9cc3345f</rd:DataSourceID>
+    </DataSource>
+    <DataSource Name="DsNCVinculadas">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>c220a38d-e45b-4e04-917e-7dfd9cc3345f</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DsOC">
+      <Query>
+        <DataSourceName>DsOC</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="CveOrdenCompraDetalle">
+          <DataField>CveOrdenCompraDetalle</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="CveOrdenCompra">
+          <DataField>CveOrdenCompra</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Cantidad">
+          <DataField>Cantidad</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="CveUnidadMedida">
+          <DataField>CveUnidadMedida</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Abreviatura">
+          <DataField>Abreviatura</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="PS">
+          <DataField>PS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveClasificacion">
+          <DataField>CveClasificacion</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Clasificacion">
+          <DataField>Clasificacion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveActivoFijo">
+          <DataField>CveActivoFijo</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Codigo">
+          <DataField>Codigo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="TipoDato">
+          <DataField>TipoDato</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="CodigoAF">
+          <DataField>CodigoAF</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CodigoPS">
+          <DataField>CodigoPS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="UnidadMedida">
+          <DataField>UnidadMedida</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="Total">
+          <DataField>Total</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="UM">
+          <DataField>UM</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Obs">
+          <DataField>Obs</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SubProyecto">
+          <DataField>SubProyecto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="PU">
+          <DataField>PU</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Descuento">
+          <DataField>Descuento</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Marca">
+          <DataField>Marca</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SATClaveProdServ">
+          <DataField>SATClaveProdServ</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="TiempoEntrega">
+          <DataField>TiempoEntrega</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsOC</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Orlando Bojorquez\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd</rd:SchemaPath>
+        <rd:TableName>DtOCDetalle</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DataSet2</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="ImpuestoLocal">
+          <DataField>ImpuestoLocal</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="Nombre">
+          <DataField>Nombre</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="ImporteT">
+          <DataField>ImporteT</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Orden">
+          <DataField>Orden</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet2</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet2.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DataSet2">
+      <Query>
+        <DataSourceName>DsFirmas</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Titulo">
+          <DataField>Titulo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Nombre">
+          <DataField>Nombre</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Puesto">
+          <DataField>Puesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Lado">
+          <DataField>Lado</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsFirmas</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DataSet3">
+      <Query>
+        <DataSourceName>DsDesgloseImpuestos</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Impuesto">
+          <DataField>Impuesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="tasa">
+          <DataField>tasa</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Orden">
+          <DataField>Orden</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsDesgloseImpuestos</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DataSet4">
+      <Query>
+        <DataSourceName>DsDesgloseImpuestos</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="SerieFolio">
+          <DataField>SerieFolio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fecha">
+          <DataField>Fecha</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="FolioFiscal">
+          <DataField>FolioFiscal</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsDocumentosRelacionados</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DataSet5">
+      <Query>
+        <DataSourceName>DsDesgloseImpuestos</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="SerieFolio">
+          <DataField>SerieFolio</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Fecha">
+          <DataField>Fecha</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SubTotal">
+          <DataField>SubTotal</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Moneda">
+          <DataField>Moneda</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsNCVinculadas</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportSections>
+    <ReportSection>
+      <Body>
+        <ReportItems>
+          <Tablix Name="Tablix2">
+            <TablixBody>
+              <TablixColumns>
+                <TablixColumn>
+                  <Width>0.63263in</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.58129in</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.90001in</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.65422in</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.12577in</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.73082in</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.86967in</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.68106in</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>1.03419in</Width>
+                </TablixColumn>
+              </TablixColumns>
+              <TablixRows>
+                <TablixRow>
+                  <Height>0.19645in</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox23">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value># Cant.</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox22</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </BottomBorder>
+                            <BackgroundColor>White</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox17">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Unidad</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox15</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="Textbox29">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Clave Pr./Se</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox29</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="Textbox2">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Clave U.</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox2</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <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="Textbox18">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Nombre</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox17</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="Textbox13">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>T. Entrega</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox13</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">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Precio</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox53</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="Textbox24">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Descto.</Value>
+                                  <Style>
+                                    <FontFamily>CALIbri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox23</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="Textbox6">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>SubTotal</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox1</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>
+                  </TablixCells>
+                </TablixRow>
+                <TablixRow>
+                  <Height>0.14436in</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Cantidad1">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Cantidad.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8.75pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Cantidad1</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="UM">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!UM.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8.75pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>UM</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="Codigo">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Codigo.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8.75pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Codigo</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="SATClaveProdServ">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!SATClaveProdServ.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8.75pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>SATClaveProdServ</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="PS">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!PS.Value &amp; IIF(Fields!Obs.Value &lt;&gt; "",System.Environment.NewLine &amp;"Observaciones: ","") &amp; Fields!Obs.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8.75pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>PS</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="TiempoEntrega1">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!TiempoEntrega.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8.75pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>TiempoEntrega1</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">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!PU.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8.75pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                    <Format>#,0.00;(#,0.00)</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>PU1</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="Descuento1">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Descuento.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8.75pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                    <Format>#,0.00##;(#,0.00##);'-'</Format>
+                                    <Language>es-MX</Language>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Descuento1</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="TiempoEntrega">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Cantidad.Value * Fields!PU.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8.75pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                    <Format>#,0.00</Format>
+                                    <Language>es-MX</Language>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>TiempoEntrega</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+              </TablixRows>
+            </TablixBody>
+            <TablixColumnHierarchy>
+              <TablixMembers>
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
+              </TablixMembers>
+            </TablixColumnHierarchy>
+            <TablixRowHierarchy>
+              <TablixMembers>
+                <TablixMember>
+                  <KeepWithGroup>After</KeepWithGroup>
+                </TablixMember>
+                <TablixMember>
+                  <Group Name="Details" />
+                </TablixMember>
+              </TablixMembers>
+            </TablixRowHierarchy>
+            <DataSetName>DsOC</DataSetName>
+            <Top>2.25278in</Top>
+            <Left>0.09836in</Left>
+            <Height>0.34081in</Height>
+            <Width>8.20966in</Width>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Tablix>
+          <Textbox Name="Textbox7">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value />
+                    <Style />
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox5</rd:DefaultName>
+            <Top>6.74141cm</Top>
+            <Left>0.28014cm</Left>
+            <Height>0.05496cm</Height>
+            <Width>20.88652cm</Width>
+            <ZIndex>1</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <BackgroundColor>Black</BackgroundColor>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox1">
+            <CanGrow>true</CanGrow>
+            <CanShrink>true</CanShrink>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!Observaciones.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value xml:space="preserve"> </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox1</rd:DefaultName>
+            <Top>6.97276cm</Top>
+            <Left>0.28014cm</Left>
+            <Height>0.56899cm</Height>
+            <Width>20.73845cm</Width>
+            <ZIndex>2</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox4">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>ELECTRICA SERVEC S DE RL DE CV</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>ESE180307IUA</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>CAMELIA 619 LIBERTAD HERMOSILLO</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>HERMOSILLO SONORA CP 83130 MEXICO</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value />
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox4</rd:DefaultName>
+            <Top>0.31432cm</Top>
+            <Left>4.32565cm</Left>
+            <Height>2.06903cm</Height>
+            <Width>7.93893cm</Width>
+            <ZIndex>3</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox5">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Expedido en Sucursal: 2</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!Sucursal.Value</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!DomicilioSucursal.Value</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!VendedorNombre.Value</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value />
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox4</rd:DefaultName>
+            <Top>0.31432cm</Top>
+            <Left>12.68838cm</Left>
+            <Height>2.88925cm</Height>
+            <Width>5.11312cm</Width>
+            <ZIndex>4</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox8">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>COTIZACIÓN</Value>
+                    <Style>
+                      <FontWeight>Bold</FontWeight>
+                      <Color>White</Color>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Center</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox8</rd:DefaultName>
+            <Top>0.31432cm</Top>
+            <Left>18.23008cm</Left>
+            <Height>0.6cm</Height>
+            <Width>2.79101cm</Width>
+            <ZIndex>5</ZIndex>
+            <Style>
+              <Border>
+                <Style>Solid</Style>
+              </Border>
+              <BackgroundColor>Black</BackgroundColor>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox10">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value &amp; "-" &amp;Parameters!Folio.Value)</Value>
+                    <Style>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Center</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox8</rd:DefaultName>
+            <Top>0.91432cm</Top>
+            <Left>18.23008cm</Left>
+            <Height>0.6cm</Height>
+            <Width>2.79101cm</Width>
+            <ZIndex>6</ZIndex>
+            <Style>
+              <Border>
+                <Style>Solid</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox11">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Fecha y Hora:</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Center</TextAlign>
+                </Style>
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!Fecha.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Center</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox8</rd:DefaultName>
+            <Top>1.51432cm</Top>
+            <Left>18.23008cm</Left>
+            <Height>0.86903cm</Height>
+            <Width>2.79101cm</Width>
+            <ZIndex>7</ZIndex>
+            <Style>
+              <Border>
+                <Style>Solid</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox30">
+            <CanGrow>true</CanGrow>
+            <CanShrink>true</CanShrink>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Lugar, fecha y hora de emisión: </Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>8pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!Fecha.Value</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox4</rd:DefaultName>
+            <Top>3.77683cm</Top>
+            <Left>10.06268cm</Left>
+            <Height>0.51681cm</Height>
+            <Width>9.71199cm</Width>
+            <ZIndex>8</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox31">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!ClienteNombre.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!ClienteCalle.Value &amp; IIF(Parameters!ClienteNoExt.Value &lt;&gt; "", " No.Ext: " &amp; Parameters!ClienteNoExt.Value &amp; iif(Parameters!ClienteNoInt.Value &lt;&gt; ""," No.Int: " &amp; Parameters!ClienteNoInt.Value,""),iif(Parameters!ClienteNoInt.Value &lt;&gt; ""," No.Int: " &amp; Parameters!ClienteNoInt.Value,""))</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value xml:space="preserve"> </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!ClienteColonia.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value xml:space="preserve"> </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!ClienteCiudad.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value xml:space="preserve"> </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!ClienteEstado.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value> CP </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!ClienteCP.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value xml:space="preserve"> </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!ClientePais.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox4</rd:DefaultName>
+            <Top>4.29364cm</Top>
+            <Left>0.25136cm</Left>
+            <Height>0.74611cm</Height>
+            <Width>13.82025cm</Width>
+            <ZIndex>9</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox32">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!CondicionPago.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox32</rd:DefaultName>
+            <Top>4.46621cm</Top>
+            <Left>14.07729cm</Left>
+            <Height>0.57354cm</Height>
+            <Width>2.90753cm</Width>
+            <ZIndex>10</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox35">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!ClienteRFC.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Left</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox35</rd:DefaultName>
+            <Top>5.09559cm</Top>
+            <Left>0.26772cm</Left>
+            <Height>0.52062cm</Height>
+            <Width>9.72441cm</Width>
+            <ZIndex>11</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox9">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value />
+                    <Style />
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox5</rd:DefaultName>
+            <Top>7.65106cm</Top>
+            <Left>0.19009cm</Left>
+            <Height>0.05496cm</Height>
+            <Width>20.88652cm</Width>
+            <ZIndex>12</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <BackgroundColor>Black</BackgroundColor>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox37">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=UCase(Parameters!ImporteLetra.Value)</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value />
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value />
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value />
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontSize>9pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox4</rd:DefaultName>
+            <Top>7.84713cm</Top>
+            <Left>0.24983cm</Left>
+            <Height>2.44366cm</Height>
+            <Width>14.88133cm</Width>
+            <ZIndex>13</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox12">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value />
+                    <Style />
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox5</rd:DefaultName>
+            <Top>10.47425cm</Top>
+            <Left>0.19009cm</Left>
+            <Height>0.05496cm</Height>
+            <Width>20.88652cm</Width>
+            <ZIndex>14</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <BackgroundColor>Black</BackgroundColor>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Textbox Name="Textbox3">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Este documento es una cotización sin efectos fiscales ni tampoco es un comprobante de pago</Value>
+                    <Style>
+                      <FontFamily>Calibri</FontFamily>
+                      <FontSize>12pt</FontSize>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox3</rd:DefaultName>
+            <Top>3.20357cm</Top>
+            <Left>4.32565cm</Left>
+            <Height>0.53799cm</Height>
+            <Width>16.75096cm</Width>
+            <ZIndex>15</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+          <Image Name="Image1">
+            <Source>Embedded</Source>
+            <Value>LOGOSERVECENJPG</Value>
+            <Sizing>FitProportional</Sizing>
+            <Top>0.91432cm</Top>
+            <Left>0.19008cm</Left>
+            <Height>1.23542cm</Height>
+            <Width>3.86912cm</Width>
+            <ZIndex>16</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Image>
+          <Tablix Name="Tablix3">
+            <TablixBody>
+              <TablixColumns>
+                <TablixColumn>
+                  <Width>2.88535cm</Width>
+                </TablixColumn>
+              </TablixColumns>
+              <TablixRows>
+                <TablixRow>
+                  <Height>0.48004cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Importe">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Importe.Value</Value>
+                                  <Style>
+                                    <FontFamily>Myriad Pro</FontFamily>
+                                    <FontSize>9.64pt</FontSize>
+                                    <FontWeight>=IIF(Fields!ImpuestoLocal.Value = "Total","Bold","Normal")</FontWeight>
+                                    <Format>#,0.00</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Importe</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+              </TablixRows>
+            </TablixBody>
+            <TablixColumnHierarchy>
+              <TablixMembers>
+                <TablixMember />
+              </TablixMembers>
+            </TablixColumnHierarchy>
+            <TablixRowHierarchy>
+              <TablixMembers>
+                <TablixMember>
+                  <Group Name="ImpuestoLocal">
+                    <GroupExpressions>
+                      <GroupExpression>=Fields!ImpuestoLocal.Value</GroupExpression>
+                    </GroupExpressions>
+                  </Group>
+                  <TablixHeader>
+                    <Size>2.82569cm</Size>
+                    <CellContents>
+                      <Textbox Name="ImpuestoLocal">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>=IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value)</Value>
+                                <Style>
+                                  <FontFamily>Myriad Pro</FontFamily>
+                                  <FontSize>9.64pt</FontSize>
+                                  <FontWeight>=iif(Fields!ImpuestoLocal.Value = "Total","Bold","Normal")</FontWeight>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style />
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>ImpuestoLocal</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <BackgroundColor>White</BackgroundColor>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixHeader>
+                </TablixMember>
+              </TablixMembers>
+            </TablixRowHierarchy>
+            <DataSetName>DataSet1</DataSetName>
+            <Top>7.84713cm</Top>
+            <Left>15.30755cm</Left>
+            <Height>0.48004cm</Height>
+            <Width>5.71104cm</Width>
+            <ZIndex>17</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Tablix>
+        </ReportItems>
+        <Height>10.69327cm</Height>
+        <Style />
+      </Body>
+      <Width>21.16666cm</Width>
+      <Page>
+        <PageFooter>
+          <Height>0.77793cm</Height>
+          <PrintOnFirstPage>true</PrintOnFirstPage>
+          <PrintOnLastPage>true</PrintOnLastPage>
+          <ReportItems>
+            <Textbox Name="Textbox48">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>="Página " &amp; Globals.PageNumber &amp; " de " &amp; Globals.TotalPages</Value>
+                      <Style>
+                        <FontStyle>Italic</FontStyle>
+                        <FontFamily>calibri</FontFamily>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Right</TextAlign>
+                  </Style>
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox35</rd:DefaultName>
+              <Top>0.17639cm</Top>
+              <Left>18.52109cm</Left>
+              <Height>0.50624cm</Height>
+              <Width>2.5cm</Width>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Textbox Name="Textbox74">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Fecha Impresión:</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value xml:space="preserve"> </Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Now()</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox8</rd:DefaultName>
+              <Top>0.17639cm</Top>
+              <Left>0.16383cm</Left>
+              <Height>0.46771cm</Height>
+              <Width>6.86562cm</Width>
+              <ZIndex>1</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Textbox Name="Textbox75">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Fecha Impresión:</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value xml:space="preserve"> </Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!UsuarioImprimio.Value</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox8</rd:DefaultName>
+              <Top>0.17639cm</Top>
+              <Left>8.31897cm</Left>
+              <Height>0.46771cm</Height>
+              <Width>8.42666cm</Width>
+              <ZIndex>2</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+          </ReportItems>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+          </Style>
+        </PageFooter>
+        <PageHeight>27.94cm</PageHeight>
+        <PageWidth>21.59cm</PageWidth>
+        <LeftMargin>0cm</LeftMargin>
+        <RightMargin>0cm</RightMargin>
+        <TopMargin>0.5cm</TopMargin>
+        <BottomMargin>0.5cm</BottomMargin>
+        <ColumnSpacing>1.27cm</ColumnSpacing>
+        <Style />
+      </Page>
+    </ReportSection>
+  </ReportSections>
+  <ReportParameters>
+    <ReportParameter Name="ClienteCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteNombre">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteDireccion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteLugar">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteTelefono">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteContacto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteContactoMail">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ImporteLetra">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Observaciones">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CveVendedor">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Status">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaSolicitud">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Folio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Descuento">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SubTotal">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="IVA">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Total">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Fecha">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="DescFinanciero">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="VigInsCon">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Universidades">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CECOP">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="InfraEducativa">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="DomicilioSucursal">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="MetodoPago">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Vencimiento">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FolioFiscal">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaCertificacion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SelloCFDI">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CadenaSAT">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SelloSAT">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CiudadSucursal">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Serie">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="QR">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteRFC">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FormaPago">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="LogoPath">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Prueba">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="VendedorNombre">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="VendedorCelular">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="VendedorMail">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="VendedorTelefono">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Moneda">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TipoCambio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CondicionPago">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CadenaOriginal">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SerieCertificadoSAT">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Tipo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="NumCta">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="CertificadoContribuyente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Amortizacion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="SubTotal2">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RetIVA">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RetISR">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TipoDocumento">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="AplicaPagare">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Ref">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Sucursal">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteDiasCredito">
+      <DataType>Integer</DataType>
+      <Nullable>true</Nullable>
+      <DefaultValue>
+        <Values>
+          <Value>0</Value>
+        </Values>
+      </DefaultValue>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="OC">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="MonedaAbreviatura">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsuarioImprimio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaImpresion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteCalle">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteColonia">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteCiudad">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteMunicipio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteEstado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteCP">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClientePais">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteNoInt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteNoExt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioDireccion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioColonia">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioCiudad">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioEstado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioCP">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EstatusFactura">
+      <DataType>String</DataType>
+      <DefaultValue>
+        <Values>
+          <Value />
+        </Values>
+      </DefaultValue>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EstatusEntrega">
+      <DataType>String</DataType>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioNoExt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioNoInt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioContacto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioDepartamento">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="PedidoContrato">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="INETipoProceso">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="INETipoComite">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="INEIdContabilidad">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Referencia">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="DescripcionContrato">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TipoRelacion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FolioFiscalPadre">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsoCFDI">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FolioFiscalRelacionado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TipoRelacionTexto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="OrdenCompra">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteDatoExtra1">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Contrato">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioTel">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Kilometraje">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+  </ReportParameters>
+  <EmbeddedImages>
+    <EmbeddedImage Name="ID2">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAANUAAACWCAYAAABJjM1BAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAACxMAAAsTAQCanBgAAF0xSURBVHhe7b0HfBTnlic69763u7Oz+3bfhrdhZnbu3LnZYxPMtUECk3OONiYYTM7JxoBNTmolQEIiCUSQyEIgESSEEFHkIIGQBMo5dc7V1d31zr9UJZeallTdaoJtnd/v0KK76ovnfCd85zvf37RB0/BBl9D/2tE/cHhH/6CFHfwVm9r7Ba5/n7GDf+Da9v6KHfR5oYOf4ib9fb0eA9M7+AXuoz6so8/F9OzIDztv+Z9CN9ugDd4c/H5g2L/7uKuiCxFiCOErIk7u54zEXJXUzyRiuqXtum39Y48e6/5vYSjaoA1aB506Kf5zh66K6URkGe6I75eCxFwP2ndRLCHp/PfC0LRBG3gGYKb2XRULiJlq3RHZLxVpPCykJu7s2Fnxlzbp1Qay4IMP1v3bdl0DhhEBFbkS1JvAjl0FdPPb+44kvY5+7B/0O2Ho2qANXof2XUL/gVbi/e4IqLXYsWsQ16kb4WdBzr92D+Y+pr/7DI3gps87xs1fdpr7cuohzq/3Nvo9mMPveO7jboFOvOeuvPcFye6yEf4Ax40wjG3QBgDuVx38FP6k1mS5I5zWYHs/BfdpjxBu9uKTtqvXX9ZqNOZKu91h4poBK8PqX+XXFiYmPa/6fv0F84CRu7iPuwYSk73HDOYX+JJsz35/8zfrfi0Mahv8UqFLl9B/36FL0FdE/HVuiYUQxFwvYXgpI0F50uTDTwO4fsMj2QtJzxmBbzwCp9NpV6pMdXsPpKuHjt1LUk/RbJ1QJyHtPu0Zyn1CDP2J0Fb0oV4CBvGS0927rUV4R9tc8r9gIEP7b0ndm+WOOECYnYhheg+J4FZvushcTsutKC5RltTU6oura/TFNTW60pyc6tK9B27XzFhwnOvadzvPeE0R
+Kxir77AINvHiM68YSwRiMOvjjHLVnMUnzJ17hritZ+Co3dytOwX88wzDGmrrDKUlpaqSazdflcQlPC3bqEg2Q+UcOg4MCgZrXIYUvWI+P8XNj7oEfCQMcxv8UgASqimGwuo+8etD7I30fDURsZ6nzhaAZe2mi5ezaifPOEKE6F6SfNQ5gLebSOKwVG5rmYvNzKowT5kVw7bromiog/rEffDXLdy+Q+k2PCM87hbod1vajVfmUV/ub1QGELbdZ/13cF/PPcozH8bk057BJOmCGz3XFJLE0rX3D5yI/T1hyNvg5wxNMRTsn0Gjd9uTU7LNRHBWgfY8AhBqVnalbub8YwzKc60DxEvqGBe84yrD2u3N2lZygOozHj310Nh7yE6eocQ6OpPqdzzuMYP2CI82CTYbq1+3+ZIZEgtl/L79Rm7PgXSL9F36m62o1FaFhKUZSZV9rV9No2LdR90C/osw9G3wc4SmVD7YGWAEUpU0Ah21CogIzYmXnmugioFQRYIH4u8PP93KzVl80lJSptE7HE7OQf8AhNc9hoJipWXmwuNmSEPU8a+fbCUJs8d2+05hi0wFoKoNm0gt7EBt4yVqn23cpZQXYMrXpJ1WZ9It+e6MBWNG0qihX00h9Xf/v34W8n+EKWiDnxt06KoY5DLhvHdu5dpEG+fgtALd+AzKyjX2+d/EMa7qFfBfibH8yRZbv/WS4UlGaWmt0qA3m22c0cRw+LRYWc5qtTlJtSSeq+c6oVi3YDRZjVuCko08sZOU/HOnLdyk6YfNWdlVFuGRZkFvMOsXLo8zgyGBJLWt9x+WuGVKaopuS/BlC9RCdxL5NSQ7q51f8IfCNLTBzwU+6hL4Ma2sWnGiQQyde4VyAaFX7EQkXql7coCxsZZ9B9N1UPvauRAgmBqS4QMi4r8QE4AR/tBhE9djYBgxxBFu2ap40/G4R+UPHhaX1ykNBrPFxjOa3e5estFXpvDdN0z1qpyC+0P7Tdy3P5wzqNRG
+WapmSYlK//WcWDMcHn/6eDM3Y8ExU0GR0u3YUF26WYuOW/9CNpy0T83gk/b+QR2E6WiDnzp07LL19zSp98UJhtoCwlu0PA4GvUGgkzcGVIc1LuGpHoa+K2O5IhgNkg3MBuKG1ADDQWXEhvEP6y+Yb97Oq1KqjAYrSTOSZFT8jwxGf5qCtqWaQOxgLLwbsfeGbDvx+q18Ztjn+1jU//t2G7mNimSdVmsyCz+jfL6uq9dyTUPG7Lahje760QQ+weImTEsb/FThk0+2/jcirnBxYkG0+Jy75CRUG5+rfE0BiBqM9ddmGOuTHsHOz/pvd3YfEMZJsVu/7U6/3tscn9LvaD8kGp6fPCvWcu7S8zqlymBiGDvZZvUED8m0bGW8CZ7Aj+AcITUtPjGTb0dLQO1kDsXes3Xtt50Yu54pIWmJeXk10mxhjCTdbSgTDIXFCe3u3DPUIcc72N5fUUUSq78wPW3wUwMEfbbzD/xCOqmQAqMmHLAVlSjfGkOJAMY6fRYSK4hvRwOhCWrg6k0XTGQ+6YTHeaB37DYbqywtUxUlXMxULlt11g4HCIgY70JN+6R7CPfDxguG7NwqYieGdy7culPADB27h5ckYK4xE6NtjzPK5Dou9BvguKDy8X6X3tu45Cs5bGGpUj15ZowV0hPtx+b36An7ud0Hbmkvp+ZUfvN9vLU7qa5iv5rBNlXwpwqYOOyZiJMJQug7LNKRkpbbqn2i1gAJE8v+Q3d0IEypkQ91bcqcWFNxiaoRU7kDInrT44zSuiUr4i0g4r9+FuQU1UQiekv6vUIDPWOJ2HvTjj6DaaHKrdl8waDXW2TZV9W1BsPMhcctcKiA4bv128F7ST+kv9FuSMCgHamkGDKN1Mqnz8uNn0+J5p0zolbgFv0UT9v5BXQUpqoNfgrw8Web/3cHf0W8OIkghE97hnCKbVea9aK9DTCQNaQISTGACaTtAyGG77kBppHVRnrMrtGZ1aE70wx9h0XwkgNE/zti
+oBFfRNlWrU9ksXmL71DHnzpu4vYfvtPixrAIyanZ1gEjd/H2lXQBgOQL33Vdb7bY3C5OFZU6/VezYqxyGKtj56B2wpS1wfsMUPvad1V8Lp1ATPCkGYex9+KTvajWQnZuJTt+yiErJIHYRjDZlFkxxsLiuhallSvUKQ3GtZsuGLv1r5cooqNDygz4f5+hEcy1W3myJDWNlS0kLJXFu2I5kKgzFx23lpSq7MJjbkEuY9Fvl+BIEqauDd5X+Mg/8E9EBBXixGFi+4+ItN97WCwr7OhtAKRF2vVXTNd+251ggHoCq5dWO+ullUN4VDagzKzsKvPMhSdskFruiBku++9WJxjg3BBeaxaMRot+3tJTFqiXeP+3H27gUq7mYnFqlqkAYCxaJOQw1v5PPgn6X8L0tcH7Bp06rfs7mqQVP06Ygo9lW0mqEBHCG9uP8gaoPZY90el6SCiR6BqkVZHn0koEKte472C6seegcJFoJQRMjEsYe+KhrDAmgFQNBFMlpbxocTNaBNmM1UWxBHMnTGMbvE8A54R0sjCZwz+PspVVqJXCPL9X8Cq/hv16biwDO4UnLkFahe++Abr1WFqJQO+y6XcLTGMnRdtQJlAcE94bOOkA+ySzDPZVi8xBj9iCtqfaOvornH/suJlbtf68htTNhr2rlsADiTUS59uEqWyD9wHa99j+/yKHwo+TpOD8eoc6I/be8Io4QXAOh4MF4k/ha58ClWs/n5TFEyyIDu2GtCJ7xFhQVNtqdTXnZRU7fcFxWwcqX8pY//LRBi5w2xWDlWFlMYdSZdTMWHCcVwP/SCpkfGKGFW0Xfm4RKqvIxprZEmMpakhifSpMZxu8D9Cha0B7mhx+/waICaSVmiXC8UhKId5OozFzhcVKS/q9gqIHj4rKcl9Wa/Edw7A+Z67Kaq0VIUmiNxDED5d1+J7WSSsR9HqzaeXa86Z6gq5nLNFNTqod6pClyp2Kf+okldL5J5JW46cetr3Mq5blRRSB
+VFrtF1OiGfRNnCNXbO+vSOroF/wbYUrb4F0Cn07MPzCiYXIEKbUj8obs1RRgoLX76vVc3ehJ+5nffLCe31zFygyVCW7qM+eeGhHs6gtiF4HKYq+k5Vj9+25rcFqAwSbPjDHmFdR4bVtJQav7kbHEiA44LZbXOy1kBd1SO3XffH/WAi8ixubQsXtGkuKy7DIRLl/Ntg4Zu8culZo/osLJf/opvm2zr94DqLelhEkhBPEgoqCqWlclzGeLUF2js67bfEn/Z2IkEM6Pk12P+A7lLvw2jqmq0WvlrvByQK0xmn9Yf0EPJhbrQzu2BF2G3eOTzWqRsUDQIoKJT8U/QVdk9eVmer6VxtUOpu8/IpKRa5cBxKdSaAFpmrHqsb1fwJA2++odAi+lGtlS9adXV6xNlC1NwFBrNl7Uw7slnVxXRNnYq5k4/YitukbvEykCILq0J156xsAVDsZFXbBfRn6533rvYZFsp0BLoCNV8Nvvz/GR6HxfiDkmTj9szsmtkeUZpXbaAkJTWJxw/hcaq20RaRqTqXFURXPwOmO5H2daIG+37V+9Q0ByR2k4EnT23kN32u8/KpFl6JMRbl27qZ6hmsvZIEWog1/PiWX1BnlhP3KgqlprWbLyjLGRtOq0mdsa4jtpBXiSUWb7YspBVmQs2EhHjt6H40GWKpfzsto4bnK0DYG9CPglppftYpfClbRcS7/hEXwolXRsRWzvH7jxgx7r/qMwzW3wtgDH49v5K5ZJJwOTNGnGYcxzi4TIMCwbc+KRFqqWtIyWUFRd1m25hNXbJ/YVlWONOf7QDGIVV3BRWqVczbFYLLym1aq6RNI/f+m5s/eQcN6Gg+TFgcaclx5Iq5DLJK0CnfAiQloZZUordIBl7SwtZFhEzFNmxzSrBrbrqugmTHUbvC0QkmA+apgEmiBEKRw8cq9FzxQm+PHTEjtiAptaLZtDrPR9hu60XUh6jgBWnzAWSRHH2MkH7Di4KNYDxkLKsQ1bk4wv
+cioNlVU6rqZWT3aYyW622GxEpOA2jxwy9Lx5V9RNM7JGoe+ICzxyzBNpVWMcS9IK6mP3/mHc/UfF/MEu4efXAL/RouCoqNQwSSkvlBOnHeHfdWe7ShHewI8+VfyjMN1t8OaB+1U7v4De0knAygsHBa2c1cJ8Ngl1SgPzzQ9ntVB/pGV4gpBwX359iFGpTT4JgbLbHfrQsKtqeByl9WA1BxFCNewxMJwj9Y1btvKMbu+B9NKEC89KM5+V60rK1FxFlZbTaE12gdGaZXRiTCNyZXzw162Cnei5tEKiT0irUEgro9Xtu2iHUmm0Hjr2QNdzULgd442YRzAzVHVg07YVGCtoaqdOe/+NMOlt8Cbh00/D/hPp3WHSCUBe8nlLT7ao39NE26/dfGX+I63Q0vc9RRA7zjMF77hKRXomLZoCUs2obIXT3WFGECLsOaiIIE64xZEB6Z//dT0v0QaP2YOcG/rEC88qX+RUmSHViNixee22bSfiHju69tnuwGKEsYjxQFrlviJpNaleWn1G0uqBG2mFo//5hbU6Ui9ZMC7qQR8wbp/132EfOGoXM3BEpA0HMF372oB+isIO3YI/EKa9Dd4kfNQt4F9ohasUBx+ThYk6k/C0xSPy1TU6llZpIya60QR6gSjji6mHLOUVWp8cfMzOrbZOnnHELIYuiQhCxJF6SKlxk6O5keP3O4aM3cPAtd1r8E7Wr08obyNByuH4B5gNade270yre/SkhFcbzWYGhN8gwehvw8r1iSSttgjS6hCklewodl5akQrJS6udaRqDRFqhnms383TdB4azos2KOfLvu80+acYRLv58hl6jNVdUVmmrNgQkW7v0CuV/l/b5R1Ssa9cv+D8IU98GbwL44x1dgkZJBx4ENXjUbhutzDXCvLoFmmxeSrVG7ZNig7QK8420otXdEByeqpFKUahHIPyoQ3fAFHwd9GliGLaS1L7y1Ouv6vZGp1vnLT3FjRgf5Rg4cpcNR/Bhs4C5
+INGIwdiow3e0ua9qLXqDBR47nrnizj1x9BgQVi+t6LmjJx82yvvXHOS+qjaMnrifgZcSERqPnpQ2eAKfPivT9hsRyYqLA9oyYMQux/HTjzSu5dP/jfOWnOTzJbpLfUb9r0XEjDD9bfAmAEkaabCjpQOPVe6rmTHCNDUNZEs45i495RMpJSJUoC+nHbZU1eh9cl6L7CRSe+oZVqwDKh+1W1dVrW9WIhKBmguKlbW7o26ap82NdfYfsYslpneAuCFR4PTYGpqixzERxmaH9NIu+Pa0GX0Azlh4zFBc4j6LkitQXabvVifwoUe//XA9d+T4AzhtWBtrt06ZHeuASoq28ww1MtKZkVmmo9/dLjyZWRV6Ul+bdrH7KcKh8gsk0Aa+hk5dFf8kVf1AfF37bXNGx9xtdoWlCXUgCgCroZRgW4u86tlvh+Pw0fs4UtFqT+DjjFL72MnRrEiUQEgSpGNGEheqo0W7EUCPWXPzajTrt16yjPwyyu5P9pMovZDzEJmW4A7HGS5c94N+4KTwuQvPGqmJzcH1W3lmSEGoeEPH7bMVFNbZow6mM/4kKVEe2o00Bjm51cbmyqTfmIDQKwwSyTQ1N+26BXcWSKANfAvuvX79h0ciLKlCmCO3oNNbmK0hV2p8pfpJEWXOmHeUsdnsrfYEkvTQbdh6SeXqBfwdSZqtwSlwJsiSJCLQ8yyVqd538LZp1Jf7HbhQAQwLB8d4krAbApIYYgx+HOFhXPxdnI5sHVkxgQTauYtPMGBWtG9bxDXbqAkHHNgWQHld+223k1oICdXiNofRZNGOn3LwtfzuDeinONiWSvoNwJ/8A/+f9v6KEOlgYxLIeIc+bxTm5zWg35yv8mocOLzXXKS0twgCwmG+pCvZcomxSaCmMtGx9yyum9JQ4SbPjDG9zKtpsp/NAQi7rEJrWL3xorlb3x0OSAQxmadIyPhExqfLqdmypVV0zD27WB6YUsyLgTHZf/iOzmKxyY5ojzn+0I4U
+ac0wlr9ACm3gK8DRa5q8h+Igw4iHS3ZDQHKzTgK73cGeT8rSthTf5y2iHWDW1ZsugrllGfrNwdXrL529Bu/kHQjSOrDHE7nvJlXhvZpJ7xoTLz23fP5VNEKzGuINRYR6uCXkslZvsMqKO1RrzOpJM47w6cvEMvD3hGmHmNIytSxVVQS0rd5pUd9fabuANPcJH3cL6ARvICJq3jb+7C63w728rl4/EET3QeFsyrWXzZ6bItXQhuMU0on3NaLsEeOjTBnPK1RCtV5DYbHKOGvhcf64vbQOOFjgFLmZnm+yWlmv4u5EKCiqY5esiGeQ5kzKvFDlBo3azT54VAIbscXy6RF2oyLZLuZyRxlgzJiTD+pY1u6Rqgp4/qJSj+2A16VVw0mEZ6St/EBSaxGO4r9V7Kr4HLZdu25b//jOrmYFd3fw2/oJMUPX1uBH/oGfUadm06TlSwcaxDB49G6b1WprMoqCJt2RTGqZpzF+niIICvdTrdl0kTOTygNiE5rgMSCx5paQlNeiKxD0i35067/DfuDwPXMhMUZBkZLLL6z7EQvquKISlbO2zsDodGYLjQ3c5I3aInKKycSYNgYkm2BnSYkY9tHaLZdMWq1Zljqbev2lYcCISBvmAxIGbczMatbEbRKorcy2nWksEnmKTPoe4jPC7e38FAPeaijVuHGn/q8O/gFzXRrjU8QkDhmz21lRobGBmPJcEAR343aeY+SXUbwx7a4MXyLa07lniP2HDRf06fcKjU8zy7jM5xVcXn4tV16hsZvNDAjcrapK3+MCAraySmt/8LjEtmRFnLWphaA+sWUgvyE8/PN9/AVtIg4Zs5f7Ykq0/ZtVZ1VbglIqow/frbiVnm98kVPFoWySHo28lEajFee5cE9VI88bknDu3HuTmLbO7m5sRSwuVXMJF5/VDRy5y4L+89rDgDDuTEIG94wY63FGmUeY8bwcNp2137BI3oMo7ff7iDRmcVBJ38pFdwh4lR4efFOIzdfh
+X0RxuBfXFRG6040MX8S4uXv3TSAIE/tK2Bf6zQfreHUK7Zi+4JgpMup25a27Bea8glquukZvI0lgxvGT4lKVI/N5ueNMYoYez4mrfXPHUfAMiBjlN0L6DrYXVEWUgY1knNZFDvQFy06ZTsY9VmdlV1mlERa5eTW68VMP8tfp/Fh+fTYqXPY2bBwxrpvxBeI3MDdyxUvfhQoIDyP2sDxCegfv/hQYqgH9AtU0H7M69Qj57wL5+x4Q9dChq2KK2wb4GEFcrxGWiMLK6e69t4UgMLQDnjZEN4DhBozc5Vi8Il67PiCp/Pv152snTjtixbNgRCwAeMe1nNYixgEeRBA6glt3779tRBCtrf72EOXSVfFGV8mIdrhlXBf8qMub1wJ+EugXuPONnQODKMS+gtuKfwIIAhSJCau3iGJUNxAEKv0N0gHMI6pATTGGKGF4SUIMBmcE3nd9Hs/hO7EtIrq2yS2iLSD2hrY0bgO+B3Mh0eiJuMfWqmq9fsl38QzaI33up4zoMwKTgdLxA+J6IrfjRih9DmMHdFd+U9jeP3A5hIrACr4DOCja+yuK3VWKTorE54qyCMZDFOsSP921CYjBEzctP+u/w9l/5C7r8C/2mSdMP2z58uvDpokzjlhmzD9qn7PkJK4Y5WYtPO6cPDPG+uXUQ6YJ0w6ZP5980DRk7B4T3us+YIfzr92D+frBfJhElNvSBIGJ0E4wHJ7FHb5knzgGjNptHTR6t2nw6D3mMZP2mxH8ijrd4UTCz7+KNg/9fJ+5/8jd1h4Dwh0gMJSJNkgZDO3Dd5NnHrEPGr3nNRc+2iIdS0/R3cLC97GJecb3zRG8rPGjMtBX/B/ODiACj6l/5kGj9pgHjtptHjv5gNuxg2cVY4znBo3ZbYJt6N8H5kP9wicdn+awo3/gcIEVfAfwiLirjCeUXqHcYCI+NFqKgwlHfLHPMnH6ESLSwz7AIyYQ/LBx9XWRXWPuNyzChiMi0jZhoIA9BobZEXG+
+bFW8Mzrmvv3azTzVy7zqSpuNrWEYW6Xdbq8hNUl6CRo8fCr6rYKeqdRozBXPsyrLr9/MUx4++sC+NSSFW/jtaefXc4/axk2KNvUdFsGI0diuxMEvNERMCNOhcWC+mh1rW7k2kQsNT+Nijj9gbt8prHv4tLTi8dOy6soqbTXL2ivRJneItqjVpqqsnMrKW+kFdUdPPrT9sOECN2V2DEP2ESsSnlg3mMeVYPAdPJmDR+9mMI716G6M3SPmkBjb4tdrG78p/GO59XdmDR2314qFSlou3hnxZZR57MRoaz2RN65z0owYU89BOx1ol1ietFwsiAi/Gv75Xsu0uUfZ7zec58J2Xed2RF6Hs0rz6Elp1cMnpZX3H5ZU1tTqquvHi5WMHf93zZOMMv45+qw4GHPPGbn3Frfgm9McbM7eQ3byh0hbYm7CIuRPEdih9cBHkfsHTXVTEa9ubNuZZsvILK989LS0SopEMFW5ebW19QTDVvkCDQZrZdaLqnIM6NOM8qrT8U91frRygYhBOBicz/qHOeYvO207ceYxYzBaa8EsAt+0Gqgs7CXpq6p1lUmp2drw3Te4+ctOOVGnODH1zBTimPj1ITZ4xxX2/sNiRHL7LLGMBLQpV3NMS1fGs72IONB/KcFLEUxGiwF3/1GJhsZRIDj3Y+wOMYdGGktiHBvKEssF42KxeJJZrrZYmEbl4p1XeXU1pRUaJf1GRN+ozkoak8pl1HZoAGi7WCYWCDDq2IkHrIHbU7ms7CrMoYnQ6z08d6DVWmrOns+0zF58wkaaiF26MLlDWrznCCzReuA3af0CD7lWghAhuEqprx5vCPoKiopVvDgXV+VRE6LssScfoj1v7SK4/MI6+5fEQKJKAQYL2pFqrq0zIOi01cdHWgKqw5B0Jds0euJ+tydvwezw5N26WwBJ3CrCXLQ8ju8jyoUqOWjULlt5hcaraBCMzddzYxt5k2HjkvRgoRVUVunUb2n8jMfjHluQHLRZieUX
+WOAzNzu8HzRRJdIK4Jpds/miz7ICeQM0GCwOzsFAxwo9gQibxLzs80O+AKrLeSnlhRMqKCYErvaziZloQ6tjBj0BjMXN2/m2keOjaIFpTBhgdlyF8zKvptUEulGRzM89xhtBx9sjrtVIDzN6AmqNuUrcYBbbibNjCRee+SxPiCdQUqrWNZ9qLZD7uKuii8AWrQHuV7jMS1owKu1CunXmi/IWc0e8SUCUekDIlVp42yZO4xnqrTGTCDT51qhD6cb/8+e1CAVykK7f5GbwmwYw1tnEDMtnpMpI7ak/tN/Ihe+6UcfYWK8Cd6Vw6Oh9prug6iJX4OXUnNcOKcqFi8kv1FC76u3P+sQ76XcLEQHvUzXPE7hyLdcER4iU3huhn2KbwBjeQ709FbhUWjCYCt4wgnd66VpZuYYbPWE/iwNzj56U8A6Htz0dldU644JvT2s+6R7kjD3xECusz5JlegNWq82I+3phfIvzhc1ikp5Q01ttW2ZmldcOHbuHv+oUjIAIC29h9cYL/EY/mArtTE598U4ZCkDVW2cvPmlz5zwBkoR+IbCG9wAdkgpKkBaMCsmGEJrxboA673j6rJz5tGewM3z3dTP9/61LKcC9h0VOhN+sXH8eoULvlKFEiD35iD/ACGkCiQUb5e6DIp8Qa3WNvnL0pP18+gLcZllcovLWnrKMnRTNtxFl/bD+vM1sfidT+Bpcv5VXh2BiKc1LkBFYw3vAeacO/gqVtOBPuhMh77n+TgkI8W6n459UDx6z22k0Wt6EZ61FIMKwnzzzhB1Ial/6vUKfeRhbC1kvKrWff3XQBIcCIiq+WRWvIWbwSfZd6rN68swjDMKPtu1Mq8Gdx8JPHkFxqaqi//AI/sb9zj1CHaXlmmZPEr9NsNnsmmaYiiRr8P8Q2MMb4H4lXGnTUCBUv849Qx0vX9V4L/d9AEqVkd2suKxShKa+M88jw7CGoO2pauFmR5+ljG4taHWW2tk4ZkKGP6LT90anw+7x
+WfsWfhvHR29cScvBxQ5eiZfDx+7r/ftut/+h/SbsPRlNJuadqn2u0Gtw/c2VbrGrop/AIJ4D7CnXNMxABFu+SyKiup25r6qdU2bHsDW1hjrh67cOefm11g2KZPWF5Bfvh94igMPhqF28PE7Hn9olSZCU8kL2qV85sH5rEo6qYP9I+MYzQFtmLTzBexBBTwVFSqjv74WUEmHavGNNBj8j/YPAIp4D9qc6+AUmSguEWCRD7p0OAE2A/er1V/oxEw/g73emdl2+mgNbwGyxMGrhq/cCSDWuXfRtnA75ApFy7FlWhU+9kfsP3WG+W5NgKi1Te1UuzZkGV/jAgbLg2zijSm16r6QUYP7S000yFa56EljEc8D+FELgpQUi7Cb25EOviIgGE2CilVTvLer1FtOtOwXMijUJ2rDd19+ZhKB+sIjY2BSYzDO58LXHADX2Znqe5ULyc0fipefc5dRcW0mpytYaHxiNEy+pcExl/dZLKp3O3GpXuhTSyJBPSXtZ7O3+1IPHxbVwn+M4yPVbeSpqr9cLo05vYa/fymfOJz13nk/KgoufsVhaTxYTph1ukqlasQHchD1FRmV5hdYre8pkZhyxJx+pwvdcr4nYd8Nj3Ln3Rs36rRdVfYdF2HsOCmdLy9U+Uf14Vnc6rXa7Qydl4KaQnjXU1OqVh2LvVyfTJArFeAw45Lg+IFnf0T/I8M8frLP/8wfruT+232ies+SkITu3ymttgGyqOthU2Ds7EfcE4T0+3aR/mVejIbUbzODVYqLYloLQJGePgeGOqmrvfUy41GF75HXrx/6Bxt9+uN6Jc1u/+3CjKfbEo1Y70fz6uN+rau+vMAsM4jkI56dWuRY6YOQuEKFXja6tMyCEh2dOuOW9QezmQwUdP/Ug7IQWU0I3BfSuk5icufugyHHuQqYz9sQDY8Sem9W79t2qbQn3HrhVs2JtgnpT0GW12cJ4vVcXsfcG8y8fbWCkG7WwM37zl3W2KFKxhMc8BiJ6
+1bivoo1/7R7kvJmeL3zrO6Ch81qy0Ls2soX5u4Y3B19Wk+bhtZQPCUszYeykoUUYP6IR/cMnpYzD4Z24p8XVAjoTy5Riq/apcDNDe//AdGmBqGjFmkSvJ9toYkgfv8vFnnjoNR49+dC5bec1B2LQvAWaWEd1rc4cFJZqJqnHQg3BYUIcOIQ3qiXEsXQQRfCOqyjLK6J4kVNpmyBcQSMdYyAiFfYdTBee9ByQBrvv0AjbjAXHDCWl6rcaLtUSaLWWWuQggb1370EhYvu8YtDs3EqkwmbadQl47SQ6thJmLDheA81IeNwjKC5VlyHHh2u5PPoFnhFYxHNAZpkOfgr+9KqI2GhNSvHS5eMjwCQUFSuVtJJ7TSw1NTpm+Q/nzJjYliKT3SHeGTpmj43sAa/d+bRAWD7otNkMqe1aPjEuezDmvtfSYO+BdO7PH29BXJ7KZrP71J5qLSReeK7t1m+7HSkRyIwQvvUc1m66qEbWKNexA0J6zV96qsbsJVOdPve0psl9Kj9FkMAinsK6X7tmjeXtqV4hTq3W3OyFAW8aNFoTG5eQUfEqr86ruENiSuZsYqYW+re0f54gpMv0+ccMKrXZK5uOxtC+esMFfo/GtWwQxGf9tutSUnO9yoxL/bOR3clCmpJaiyiPd+YddQfLV5/j+0jqs5FsIq/txn4jIk1Eo26Z6s+dtjhu3M5nvVX/5i87xcLUcFc22b8LBSbxDHh7yi9ws2uBgj31TiepuETFrVyfCGLxagWuqdUz364+5/EVplLEEfVVG7wPS7r/sNgwbOxenTspiXbNXXrSWlqu8UoSq7Rmzdfzjppwvurh45J3uvXhCjRepuGfRzmwoF1Mzipn7Q6vTIk79wstuJVE3OeSIr7r2m+7UqM1e8VR1EYGR5pcy5XgYIFNPAP39lSQc93mS+80NIk67Mh9VcPg1Ka3gNx1fKpoiXPAE8SkfUyrGA4negunzz41k3rGZ1hyLf/37TaxYbtveG28
+X07NNn82MIxFaFKd0jehSb6C7JzqGuTIhxTNfF7u9fEO6lsd2fcO17EDwp7aHHhZZbWyXjFVSYm6Cnd0uSubx86BfxDYxDPg7Sn/QEZa2Kc9Q5z3HxaVC3W/E8CNuDdv59ft2HXDa1sm/V4hH2Ij7VtLCOIHE4qxdDjCfjHlhddtwHFwhA+51gMv1ic9gw2Jl7K8za1uCw1Pc/zmL+u4g0fvIZbunYVwuYOIvbcsCHHz77ONKy3zfr8cOSncOSiAf+602ZrxvAJjITztGew5kN5s3J/AIp6Ce3sKTMUw7Fs7TesOyBZxbAhI0tx5UOT1Oa4nGWVOGjQ7mAPqF5gFnzhxiuMSOCiH3xDiI95iiO97DApzIjobyVemzT9qyiuobTYtdVNAdgQOd/LHMaRjDMR3cxadYErL1V6pRbhdZN6yk2bE/F1JyxW+9RxsNjv27LyWlu6AiNw+e9EJfmGaNvcoU12r947qCfoOi2zkRhcRczlyfJQaN/8Lj3oEaKOQj/61soHEB5XYvxUYRT7Un59qfAsHEMktWwPUYIYmSuNweIxak4nRP3paZt0eeY1DZtqqal2ZUKzHoNWZnYePPjCPnRxtIIlj7zEwjMNl3ZNnHFFPmHZY8/XcWO0335/VrlqXqN2oSLaGhKfRCnuTi0/McD7LKjdiP+vbVWcNKrXJK4eN3mDl1m25xLvwxbHFogVmJkJhjp566HU4QMrVbGvPweHsxOlHLC/zarwqhxjKkpdfW6HTW3yq6pM6ph72+T4W2xa0MNbodN6f8xgwKtLkao+CWf/SaYvlQnKWGXkPhUc9AqXSVNdsslg/xWWvmaqDX+BLaWGwpxShV7zWz2lAufiEDMvGgOS6zcHJSk9wS8hl5ZpNF7Q4GIf9mxHjo3BTu1dSQgR635aVXanF9TLxCZkcwlwKi+rqXuXVKkvK1Epa6VROh1NFzzUiLKxkZxIybPOWnkSUgleXFkArOXrykd2v73Y9SUTz79pt
+cP75r1tM/YfvMoftumauqdV5pbJRe5gtwZdZhCYFhKQoSWp5tTH+IrdKRfZiHXK6C1/5BK7dzFP2HhJuw/5e0LYrZQaj1ev9TixsfYdF6P/YYaMT9hlpEyyyOZFabbRYvG/2oWP31c2pfrT47feKqTr6B/69a2GI93uaWV4p1O0x0KrHzVp03A43JU56eow9QvjkLqSCIqc40c+7Oa6OU7Wbg5KVC745jWgOr/fJausMbPLVbO2e6NumbRFpzqiDdww30/MNrTn+UFKqNk6dHWvB1UKn4p94nacDx+VxkRypycI3voGtIVfsncmEgGodCKYyeM9UgNRrubrwPdcd0F7Cdl233b5b4J27TwDM59hJB5pU/YA4AS+wiSew7tcd/ILGuRbWrd92ELLXIUGkUnD3HhSxZxMzcVWmx5hw8Tl3+uwTx8LlcWZEpr8rKCyuYyZNP2ye/80pHE1v9Q2LvgJqi+PIsQcsFj/E08EZ4w2gHBxxx5YBSZZGlx60Bqgc8+SZsfwpX+zxbQxMrqaFtvVRrz6E7NxqVUv3BHT0DxojMIp84O0pv8BdjQoi6UL2hlD1uwOjyeqcv+yU6V0yFeLoYP/MWnRCxzDsO016IwW9wWJBimeox4uWx+kqKrVe2UMsa9d+PSfW+g9/XINAXCUxg09CnKpr9VWDRu/mYxyR2wKZnaprvHdU+BrQz8XfnbE0teErYsfOir8IrCIf+KtyXOwpBGXuPpD+TldlrJi5eTVWJKkcPXF/qwJpvQWqkzkR99j0939YwyHrbfbLqvdCUlG7bGTnmZFBCfbU3gO3kTzFy03pEs2wz/dZ4fHcoEhSajQmnzDVufOZBmQLhqTCPh9UrKJiJX+LgvDIO4Xzl7LMSOgppXt36NWRj/qrchoXhHwUL/NrfKtgewi0grIJF56psBOPPHHIWCr89NZArTGZ1m65qIL3qkuvEGf0kXs4Qv/OIhZEasx5WWWbMO2QHW50eMQSLz5DBl2v
+2rU3+rbDv0+oEyral18fYvLya31iu37z/Vn+ZAGkPGgKTIvcfjSv7zzio6BQaRkwcncjmm8CywQ28QTc21O9h+zEavhOgzLJsHfOWnjcDLfzpz1CHFtDL7/13HoZz8sdw77Yy0B9gft26uxYtqRM9U43V5Uqo33pynj+EgLss438Msry9Fm5V7YKjSezfHWCA4wJidKpWzD38HGJ8Kv3QOUaRk6IsmPMRJpCZlucSK6p1eEY/TuTViq10TRjwTGzuz2v19Abd3q9K73xVTlYXeDpEtrwToDG3PEqr9YCtQGIARg4ajdOj761GERqgx0nSkG8YjtIhXFsDkoGc7fKi+UNYEwKi5SOlWsT7Vhk0C64qtduvajS6c1eqcZWq005dXYMv3GMucelclfScrF10Kpxziuoqxo4alejM2NASMOtwSlWsk3f+vgBnmVVsMtWxb+239UU0pxHeeFOX/fr9v6BSmlBsKfOXXz2zhKrAEDQJ8880eDME985oW3jJkdzt+8W0M9vPsCX6rDs3HtTC7VFHBvYd7jwe0fkNXNFpQZ7Z29l8UFbrl5/aZ4296gT6pRIrNiviTqUjuxGXtlTj5+WaoeTPSUSGaJJwvfcUBOztYroI6Numv16N74pBIj/Y9EOCE1htTqzzy8faArsdof+7PlMJ6nMfO57aZuaw3p3uodM1bHL1t+7FgR76kraS9zOoKLGvFV0OBwqvd6sOxb3iBn+xb7XTsfi/7gbGL+XVWoxKT4xqkWg8mBI68ortfrDR+8zuA7H3S5+p26BzrlLTtoSLmQyUCfoHZ+vvFSmTaMxGbFZvYVW9z5DIhis9FJCBVMdjL2Po/61GDt3Y9oY7fDuIT5QU6s06tdsvGD7tEdwwx3B6OuwcXtZ7J8Jz0FV09C7ytfL+hHJTkK5cMfrMrMqzKMm7G/UTilC64AquHj5GcullBeMycy8kRzqVKZNozOrLyRlOckuNmCLSKqOysF2XRWjBVaRC+t+
+jWtCXAtCNPaEGUcs32+4oFm1/vxbxe83nNcsWXlG321AGAsCcm0bEBMPaTpr0Qnz9shrVlqBuPsPiyA5lA67A6dKgW7tHvoeYCLiqkMERVW1Vvk4o1SP5CFHTz7igrZfta/feskwc+ExA3KHN9UGEAZ+69p3ux37aBH7btoSLz13PnpSakCZpN6A2OqoLhB8A8HQ32YiwDqHg28jiNBS/38H/05NrUF570GR+VT8U0TE2xavOGPuPTSCX13dqSwgkonTDzNrN13QuhvP13BdgnqjItm0ISBJN2fxSSOkiauKhnpwJ9X6rUkmkiiW1Zsu6NyWJUUqN3DbFWZjwCXDKLLxEPEtOijcIX6D86fP0J325avPmfZE36aFPJfNK6jV0jhgHsHEHiHGUKkyqV4V1GgTLz53botIYxctP6PtPSSc33x27acc7OS35c8Cs8gDwZ464a4wBJNCX0eA6VtFqlPOAICoxStBkd995Pgoy4z5x2mCE3XEmDpF6BVme8Q1bttOCdL/Q8KvOmETIdfE8u/PaWYtOK4ZM/GAETkNEcGBKHIEuKJcOZOAZ9BmEGKvweFOKsuEMsn416KOdVsuGhFBjroRBbAp8LL1uzXn1N+vT9QSwdo2B9H/155Tk52kWb4mQTt70QkNLszz71t/6x/Kbq4dcFODsTyZK6h4Yh+bMtZRJp4B4cstG8/iHbzbHENJEX3DO2gH7jybMjPG8N0PCRqMhztcsYbG6Ydzmm9p7pauOKNb+l09Lvg2Tof0bFPmHNWPnrDfhJsr//FPa3kbEf1FX4FQ3yEl5cwt0At3OvcrV3sKCLGNCQVx8wPVBPJETc81JebdIZLS82XTu82VLU5mU5MuRQwQJhJt4QmAEO/DHhPzUPzTn9dx2Gv6+z+s5rDJiYxD//SXdTwT4RnUCcJAGeIEoI1iW4D4rZlIZv532F/IjoTygZhYsV5p3fge9eMUMMaZJ0xqN9rz2w/X8+W0ND5oY0Pf0Wah
+/8295ymiLLTPdR5EGhGfcX1PLuJd9B3lY2HiFxJxPESkPmEO65lkHX/VK87GIRB60swjqknTjqhWbzivXbflknrD1kuqTYokFWJHg7enKmmRVc1efEJJWo1yzqKTdUPH7XFiAe3abzs/1kC0AWMo7V99HwNLfGJPAdHBKbNjjUtXxKuDw1PrgsIaYzA+t6UqaWVQz5h/TIWspXJWJkwEkshMnXtUv/DbuLrQsFQ1X5YbDA2/Wrd2yyVNj4HhshjLHaJNcIVDAuHYhmJbCt92YEjYVSXSns1ccKIOg+2KsxeeqKOVUIkgVYwB8j7ADQsCc1dP/aVl4balq+LV2EBF+931S0SSWrWzFh03o20YF5QBA37KrBiz2EZ374m4PTINiTMtPQeHc6MnHjDMW3a6Fn0hVU0VEp6maul9ubiN+kHqnQH3DYvzgE/gVzOPmLcGp6jc0YhcxDj9sP682p1TQ6wLC8aYyQeQsEd//PQjZ+q1l9ytOwU4Da4rK9doS8rUUBmRRk7rijqdWVdWodHiufIKrSb9XoEz7cYrLjk1hzt66hF3KPaeLSQsTTl1Tqzh9cgKxVkPmWrdr92ldsbkHjxyz/Ayr9ZC+j2iB15rKJDsAC1uQs99VU0GoPsjzlLE4HzaI9Rx6Oh9fX6h0lxZpUc5bgcCiHoLipRGslm8Yir0A1IRN0yQoWouKKyzos2SOnQmk1WHCcGAu2IpIfVfa7OxOs7BwbumS7maY8UqKW0P6gF+PTfWTsa9sVZpMJjNDN9+SV2vIX6/djNPP2TsXhYrNFbjuUtO2cimgGvc7TtSpPZo9h++w5A6y73Iqabx1GnQF4PBonNS39y94w2iLUTASmRCglTEPIP5t+1MY4lGzETM/Pi4e1cOYlyra/QluMPZdZ5RHyIeduy6bnn6rMJiY+0+9xZScfAiawNCrpjQL2n91Ndwj5mqvb/iirQQqDbjpx5CRbI9alU0mdBTpeW4QzQYh9WobFmuXwze
+8xeVpj+Rvu2uvJYQEwT3O5WBIFifBHE+eFzCDRixq5HDABOPK2sSLj6Hl8wjN39hkdLw9dxjeqiZaG/M8YeI1pDlosf44Gh/Ukq28M2bg+iYu7ZufXfwkgpqKRwY3mapdQdms60METNSpsKCCK3myPH7NloM3/hmO26iFOsWkRbLWR4xVadO6/6ug5/CKC0E56eOnn4k+7wQddYRfz6jFLq8tBxXxOpGEseRmJQl+yw1Y2OZU/FPK6F3uyuzOQTR9xkWwabdfOVTV+29B8U4Ut+IqWADkMpmKC1TeXxO3GC0qFesTlCBUCEJbqQXyGZ+K0mIY6cfqx49KXmj+3Vg8mWrznIfdak/KY0MwVnZVT69WMBgsJYNGN6YqaBmH4y9z5I0e+NR7RYLo3EXVNveL2CIB0zF/apdt+DOroWAqerq9LLz++Ec0OIV8WZ4U1zLkiIGq9fgcLveaJUd4a1UGR3LVsSbYKu4K7MphCqGe3i//f4sFnOfrnDumApG7vIfziHCwuOIBnrHFBqexl9xOn/ZaS2pcLLTFty5X2i6eDmrUqc3v9EkL3a7QzVx+hEr5gF9PRhzz2q12ny6p+TKVFioFn93Rme2tG4DWi4kXcmpdpdE86NPFf8oMIwcWPdreul710JwGTRNtOyO0GBwXXqF8oTsWpYU8TsZ0x6VXVqu5roPCPPYnoIXZ+Co3Wzm8wqfR7S7MhVvX9AKF7nvFvrmMaHRO8590enO//371Vxg6BXYC7IZZN+hO9zZ8765erQ5eJpZpsTpWjDUhGmHjOUV3uXRaA6kTAVawacgDd9KtMXSlWcZN5LKITCLXHjdnoLNs9aDVGTocHGJUoPBlpbjihgkZLjdGpLiSdl2pLJqqWxXBJFjUxh7QVSGTyMtAK5MBc/i8M+jbOn3CryuC5u8fr23IXMthlQWEdFjzM69N+0XL78QvnlzEHXwDlt/5WkA0qBhXH0qpQBSpsKiuHj5GYPeYHkrDEX9MSF4
+3JWWcBQKfCIwTMvQo8e6v3W1p0CM127kyb7Vw0b21JlzGeXSi5vdIQj9s/477A+elMo+ls8wrO0k7CkPnRQg9nGTox3VNd7le2gJXJkKev+8paeNRpPV68sKrt3Ms323JtHw4FGJbAmg01k0x+OeVGU8q3ijBjwRHA5B8kkwv19/Qa/RmN6IVJQyFcKubt7OR4TEW4mpzM6trnWb789PEesBU3G/6ugX2Me1EBRsMlllOylMZrKnlp+xwPvlWpYUMVC9Bu902O122YY87KklK+PNnthTqKdL71B71MF0nxrRUnDHVOu3JiFW0GuVKONZueF8UlaZRmuSra6mXM21xZ3LqDYarT5XcaVABnzt2EkHLF37bbc/zSzHuL4RQheZCrY5zImKSg3CtzyWVBaLTW+1MrVk89XQZw3L2hEK5rYc+tpK2pBp9uITbk/+IrOYB0zFq36NUpHBlS7cTiibGA1GK6l1LdtTQDJ0PSq7rFwD6eaRPQXmnjI7FszusbdI7vRJmeojalu3fjscx08/ahUDq9Umff2dT/IJdueeGxwxFZj5jSweACrbcvzMY8MnpMFEx9zDUQ1ZddGCyBUU1fGZtOSCyFS8J3XmERY5Ej2F6hq9/vLV7IrNisu6dVuS9MDNQZdN2yOuOXfuvoF0A9zKtYlQZ7nDRx9woeFX2bGTD5At5Z6e2vsHTvTInU4vPZEWwG/mRV6TfQsXDbizqFipbsndXW9PhTi37Uzz1J7Se+JKB5GTXmy/dadA9soNnf32vQLz46elsmdQylTQ/b+cesiUk1vtteoHcDidsvemACB2sk9toTvTjK/y66qfv6ioEfFJRlm1UmlsFMArB+h5q15vUWbn1tRk51RWJV/JYTYHJbMIBZo8M8ZYVq6WrWbiWD9JXpYWN+GblkFkKkj+zYHJNbRge6xmUvuthcUq8+27hdzN9AIB87kbt/OhTnLxiZnc9p1pdeMmHXBiAx80D5u4SaHgp/CXzVSd
+eoT8d5JUNmkBsKeePiuXfXQe+1Onzz6tkGNP4foUsqdk22q8PRX3pEKuPcV74Eh1Xb3hPIxo2TOZlV1pnzDtcO25889kH9FvYCqSioiAWLw8DleutoqpPAVETsxZcsrYY2A4M2bCAf3ICfsNPH653zBg1C592o2XGAfZqpNWZzaH775u/mpmrGnMpAOG0VTmgJG7WEh+LBzJqdkeZVf6fHK0NfbkA4c3kgpjGrbneoXZzLwR241oy/gks4z7atYRpiUtCHwisExLwP2KXhjsWgC4lmwe2dIE9hSJU6s8eyoccyxbGsCeQoablhhWRLRh5JdR9uJStWwpRbq3I+pQuq1zzxBdsgf3bolMJQZfkrRA394IATQFuBsYRI94OKy0fNQ1IaIyENl+7Vae8KQ8OHDoLq4MdSBwFf1CmRhTBPVuCkw24m5d4dEWIe36Sx1pJvbYkw+xOS182zKITIUggtlLTlhJ/Xujnj8kn+k52I3HT0BaqCs8UP3c21NjJ0UL1ckD3IxYHwjauDGuiD2cGfOPC2/Jg7IKDWwVWfaU6JzYdzAdh+lkz+LLvBqWmN1Eq705+YrnTAWCRqxaay4r8Aaoj3aSKnw+CdexB0HOWnBcTyqQbPc+Yu9mLjhmRX+kZYGxEJOYlV2FTW3ZUmrOkpPIyOQ4dvqRVzYVmBlOg5o6A05Uv1HG2rHruqHpq0gDHyHDmMA0LQPpik+lBUBK7Yi8LnsnH53Ny6tR4YYJrI7NIS7fPnDkrie2mj0js0yHPHYgnKYQgy8y3ayFJzizxSbbOYFb9nCv7m8/3OAAY126/MJjpoJq+tXMI4bSMnWr0lB7CmCC71YnGNypxgh1Ct99U2u3O2RrBU+fV6hxdgtMJC0Lbu3YEw8RgCyboVKu5uhwmQNuVkH0tzdMhTmFxAwJT8NGuEd2oadQUFhbhiSk0n43oF/gPtmev08+2frfiAtZaQEIz8h4Lt+eoklzZD4vL162Mr56+ZpzbnHF
+6oSqxcvP1A4es8eRl18j+xoexsayZOTW4rgHkrw0hbiEDq7XXkN2so+elMpeEABI7dV76E7j3/9htaPfiEjVrbv5srcRRKZCiuXv1iTAwfBWJdXL/BodHAeuWw2wK6G6JVx87pFH8GDMfbsYKCuWBbsGN9xXVnl2+dzKtYmqTp+FVBHDV55NfGZjGPnedylToS+kltsDQq9gsYQG8kaYq7ZOX9w0UykWyVT/uF+18w/8wrUAiFtiFA9UBqfTaLSa65QGY1OoUhuNua9qTZNm8K502WVTO5zVNTrb08xyLvN5hVsklYTsihxu9IT9znVbkjxyTgBwLc+tOwVs2o1XcM4wZKjLXlLBVH2HRvCq166o28K3bw9OxT9xIDAZ7nzpHEJ6Dxy1y37vYZFsAsS8fLf6HH/sRCwHRN2ZFqtrNzxP/Zz7qpqFJ/XhkxJDbZ0BZCL80jLwTDUi0gYpBQ0HkTRoyxdTou2kpnEvcquVeoMVOVN8FrrUHFPR/I6UzVT0QrT0ZW/sKbmg01m4mQs8s6fkQkGRkps276iTGNjr8CBvAEzVa9BOsjf2MHcfFMp27DAMi32eVkk1oiVr4LYrvNtZOodAEOLSFWc0ldU62XkaiZDrvpoda5KeMIBzguoweOPSbg2AqUgVZ2cvOalbue589aq1CVUrVp+rWrIivmrlukTtku/OmFasSTBuUiSxASFXqI2pSKGHNNIIREbCU483i1++qmmSqT72D/qdwDQtA3FgSaOXyZ7aF50u2+aRC9Q/R1W1Th2+5/qbKNtZXqk1nYh7rPF0IFsLYKrP+ofBjjOaLYzsCJGM5xXMjVt5OJDn9SJAtqAaORmwmkvnEAh7KjLqFsqXbU8hW5I0UxTUR9wj9az+/NkbtWdcQa+3lpFazz7OKGM0GpNJqTLwiCxV5ZUaa8azCu7x0zLu0dNSjtR9pFXjbtzO4y+4u34rj7NYbR5HekQfvqN1F5kOlJ2Xon3ngH92fRn7O4Ul
+KtmGulyw2ez2J5mlxc+yKmTvT8kFMtYdRGA4JOd1aJC3AKbqTkz1w8YLSLEs2zly+uxTbuai44b8QqXXYUU0niaEDInufBFFe+rchUyP0j7v3HvDiY150Z4CY8aeeODzmxTlgEZrLlu28oypTvn2EiJPnXPU4T48KTBHpuePj/eb7FoA7mClifA5cZLN5dh/+K7G6fB92dReJynsb3UlFQFX1YyZcMARe+KhJxEQVtx5294vwBl37qnX7T589D7vVJI6FYBgKGSS8iTtM7XJsHRFPCPuBSJ6hf5v8PbiudYC2dHll69klxlNb0ftJC1DhW0b6TiKSNpcimymohdes6dmzD8mVONbEK/i/LkBwl0WLT9jzM6tkq36kdFuWLIqXossQKHhadD9PSZceseEtGruXOlQB3/YeF6l0Zpk30ZSXa2rxdkoeBFF58SN2/nv7OKFmlp9tVpjRmT6W6k/eEeaFaaP61gKGCHbnd7BT1EqfRmFHjn+wOepnWlinLVKozrm+EOvrvF8E0BNgqtZZbXaKhjGVilghc3GItmlbKmDLDybA5ORDFP+Cd17BXZspCLF1sq1CTqq0+OwJqXSpJq39LQODgnpHALh3j9w5A72dWQz64XkF7Z+wyPt2O/DvlLY7utms8XmsZSgOlliBESFN4wr/V2O74VHZAGNiY20+reidpKKqenVfDTF17I8f+0+C/6t68uwp4pL1T63eXB7YvSRu9ryCo3X15r6EnCBdkh4mvWLKdEMoXn81HocNSHKsjEgCc4O2QvLnftFOE5Or8hnRNwICRc8vHYz5h/XlZarPWaqm+n5LJwIrpu0kDJYHC8mZ6FNspw29Bi7UZHMZ6WF6jhifBT7IqfS4wiG4lKVZaMiiZ3w9WGMbcO40gJizs6pfCNpnFsL1CbdrAXHGOkYumI7v8ChspiqQ5egr1xfxtEKqsSnqwMGMv1uoW7cpP30p2/L9gYYhmW3RaYZPu4a6ITrGEQpIjY5
+h4/fxyBFsPB4i1BQVGe7euOlbIlAY2AM2p6qRV0g4p6Dwu0pV7M9GheMIzZpoa7DKSGdQ9hEX0w5aM55WS3bnrr3oNg6dNxeFgwF6Rlz/D42WD1qk95g0S78Js6CNqEc6bhC8l28/KKKyvT4CM6bAmqL9e79IsOU2TFNHvUQUWYgLdlTLlflAGlgOUSP33tQ1Gq8+6CokohNvSUohRs0ajc7ioz5zOcV5ffuu3/+jePDosrEpOc6nKHp3HsbH3Ht2n9h594Jg/32vQJV1ovK6idPy6vu3i9sKAd/4zhFcYmqNv1eoTJ4+xXLvkPpqkdPysob1Sci9ffh45Iqer7qVX5tXdCOq0ZkHxLrh2SZPu+Y41JKtvrhoxL3ZUiQyqref/iOCXPlrg+wiabNjWXOJ2fV0rPNlvfgUXF56vWXdURYVrEtOA+3e/9tzcMW6ADj8JTGgcai4kLSC8NMWu2h6bg6TYBgsvnfnDakpL2suv+wuOIOvfvyVXWVwWDlVW6oiq5osXiuMjYFVA5Di2mlxcJUY56iDt1xTpt7zAGXPbYPoDW4trkB/RQa2TF/9EKZawEwTvuPiLT4ChFgilvkMfldeoc6B7h55m0h6kYIE1ym7iZeRAwwbrwg+4IZPGaPdcCo3dbGZUVY8N3wL/ZZ8UzXPtsdpI+zzfUNv+GqzyFj9jCuWVfxN47Z9BocbpM1PiN3WVFnU4SA8vz7bnP2HRbBuH1fgqiv95AIBh5EsU0IKEXOQtTj7h0p0mJpHThiF5Wxkw9zk/ZLimgrFqs+wyKEMiMsNBaW0RP2W8ZMdI+jJ+43fzXriHPqnFiutTh5ZowDWw9jJ0Vb0WdkT4YEdbcouSK1PQP3Cwhs0zR81C3gX5oogK/IlygOND7d/f42EczUFDFKUU5bxYT2SPCIcl1/d0XxeXeEhzbJKUPE5hYFIN9+meW5GxNP2gJsqT1Ad22ClGgOIeGgzrYWUY5Yptz2itjeXxEpS1K19w+a
+6q6ANmzD5hCMIWdR+jlhR/+ghbLc6TQwh9wV8L4iJhJOBdyGgcDKRkjfYaMSq5G7d32JWOX+2LG+ztfaIQdxm0enpm9EqS9/s6zycSsJ+tyUkY3VGPtVOBclrU/8vsU6XNqKT5gH8Cy6MhYkAOppClEO1K2fIkNSm+UF0nbwV6jcFfA+IibTv88256bAJMOVtNyypMsvyqWYfCW7/NSZx9WTZx5hceanJU+OtwhChI0Ye+JBTUpqzmvtkINXb+SWKUKvaHEa11UFgXud7C7boZh7tSlXmy8/OfVFxc3b+dVzF5+yuAumBWMi50LYruvGLUEpVjEBKZiwz9AINmLvDRWNZUVSivvyganXc8tCwtN0yHoFZkc9J+Oe2KbNjXWCicS6UOaU2THsJkVSzdagy+Vb3GDQtitlcxaftHXpvY2fT2lbgWC2ptQyPA/GbGB0aofrc/g/1Gu0y91vKBvtRDnu6mgOP+gS+l8FtmkaPv007D+RnniY8Mj7hh38AmPoM1XaKQz4pz1CxLRfVofD4YJOHJyzwbX9/brzejCW9H1fIFbZL6YctD17UaGjuvgzU6+3o2XEe6lpL1nchQQiEMsHMcApQkRupucalQ/PFSH2jID4G4hoidINAUlGOBZAeEBIBHj/vv3+rOFJZjneNSLqQrQlcFvK2cRM5BNBWY3a5oqoZ1vENTscTSDkqXOOmqqqdSyOx/cZutMmMhY+h47d43yRU2lgGNai11sYnd5iFRH/d1B75y4+yfJbAEKfgWgTJC6IfciYvVz3gWE844haB76HY2nt1ou6i0nPK8DoweFXNV16/3jLCsax1+Bwbvjn+7iR4/fzJ8QRs4gNcOQmRPuHjtuHSCErjUUdLgMU628R/RQaWU4KGF3t/IL/R4duW/6/9xHbdwn9B2KuL6WdwwB++fVBmuem9znwY35BrW3C9CN8Wivp+61BlDVi/D4m83k5Ir5bvXmZwG/81jOBWAeI9pvvz2pNJutr
++2NUp1mtNlWl3yus3XPgNrNg2Wlu1IT9DiJkG7LEgomwt4Rylq46o8fxE2I4vp1FJWrT5JkxVvQBxIvrR4nI5UbFa3EUHoY+1GtqN47RY2Gzr9t80enqRYWXDQcm8bvwfgMcPfnQ0WNgmBNOHTwL5oLkwUJy4XKW7mVejbOySofwLa6mRs/OW3bSiX28Bd+cNmRlVyKuE/XyC4rRZLVnPq/Q9h22k3ffI7sTztSVV2j5NHalhFQel/uqHgsK67jySi2nVBo55NYoLlVZwWhyVFFaAG7IYqqfAvBM7xd4TewcvEb9hkeyL19VNxtfR4PuuHYzz4zVUEq03iImDSdOI6Nu+eTog93uMASHp2pgl0nrwcq658AtRJQbiIEqb90rrNlzIN06f+lpbsQXUQ4cx4DLHWd9wIC4bRGrODG7PSDksjL1Wm4NERIu726ISqdPNjLqpg2Xe0OaEANy9JzsU8BxZzPsPQftdECVnDr3qImIsWFBMxiszMJv4/itgXqs78eg0Xsc+w/dNbCSqPaCQqVp9MT9dikDQptYu+WiLi+/ho/aINDnFdQqA7el2qfMOuLE/VOrNpzXEJPZcl7WWGkhsdA4cPsP3uEj+ul5x849N/Sw73ChnUVyOQJpLK9Fw9BipSRmVdVX5XQi3UIzcX4NSHQUJnuP6n2HLl1C/337LoolDZ2jicORBLIPWtzl12rN1nVbk9RYCaUD5A1CDZm96ITNaLT65PxBdm61dfKMI2ZXSQqCQ+7uMZOiHYNG72Z6Dg7jGQiMg9wcuAEESXXmLT1pijp8p+LO/QI1EaEDqztJHv5qGRCLUA0PBUUq05RZkFJbG6SUTidfSs3/5pQVaq9ESjVsxKIu5NRb8E2cA2MknjpGP/x7b3fgDjCcmzt++pFx/JSD/N6gyHi8DTYn1lZUrOTLu34r3/YV2cNYNDHH+L3PkAgwh50kj4U0FDAkXw+ZAbgnWcmyDu7y1ZxyKs9x6y4NBM4UO53K
+LcGXHT0Hh9tJOoGBeEY7n5yFPUWWFh+D1Wrjx2jpinh5TMXH/MnOSPv+Q3v/oA7SDmLixk0+yK/mGJimAKP7LKvc3nNgeMNke4NY3fsOjbBdTH6BkB2fHHw8f+k5la1oUINExKIBBoLEghT6pHsIN23eMWto+LWaSykvKp9nV5pKy9R8qjaLxQYGgt3VZJvw++4Dt2wIxeKlFNlSJKUapFhLcOT4Qzsy7UIF+3peYyklAurHyYPYkw+MkOaQvmAqETv3CuXL4O0oiaoFVfVKWg5UaaRJqPn8q2gGthUQ44Byjp16rERbl62M19E7DZvlGCOScAiCdl5Je1nVc/BOWli0/EKL7LJ+fbbxi8CTjNJSvE8SVUmLlB0MOWn6YafJXN8NXDQoT1IFdZDl+fupwL9+FvJ/qGMNUR9gkP4jItncV9UtZitibHb2yPEHWlxeLb7vCYIIMMkr1ibyqoZQbKvAbrfXq34uEhTqHEKDln4Xb4g797QU9gJsA1J9kPcDyYvARB61gewvZvgXUbwzoV5KJevInpB11J9sEz0SS+JdELirlHIFq5V1FharjLjKs2vfbU54ScXjIyIziIjvPhuwg8svrOMZ4cSZx4aufbc3qIYYd0jxoiIli6DngaP2NMq9gQuur918xY/FijUJ9jmLTsApgjnSDxq9i48KQZufv6hA7grHwdj7Bkh8zOXUOUdxOyOeZXq5u9HDBakse7t+wf9BIMefByCIkeyqkz92sj5r7g/rL7SoAtLAkeGrZWYvOmkE0UoHSw5iRRw9aT9TUqr22dH/nJfVzOSZMRZR9RNX72++P2t6mVdrABHZbHYY4y32rzmgVdy4Ym2CiVfLiJjg8ZMrpegZ85bgFCti+MAc9VJK2WIQLMpGyuyycrXtUkp2NdWv69pvW0Pok4jw1ME2gjMBsFGRzEsMtBO/43PYuH31DotaA++EAHPz79Ln4LF7lVhsCNRQl0/HP60g1c9BkqlOzAAFt32d
+0sCPIXKWoHyMxa59t6qhNtbU6su79EKo2I/tcodkT6X/bJwUInzwwbp/6xr5gUEf+WUUS6tji+eyaODttGKbsWHpiRqIicet68dPP/aJcwKAtpw++9QGZhUnE0Q7fd5Rc3GJCnnOfaJeUjGWvQdum7H4gMB4KaWQL6XITrEg0y2y20JFvZic1ayUcgX0g8AeHXPHhFtBRAkkIi+p+u/gvXSAx09LlQu/Pc3iLBMkDMYHlwxW19SfrYw7+9QCSQM19MPOW7X3H5dAals2BSaxeJ4kHm8K1Lv+Q3nGm73wOGMyMchHr+41JJwYG/t2m7i8/FqolE6oiXCESNvlFv0UK382TgopdOys+AvEsNhRTEr3AWGOMwmZspKZMAzLxJx4oIXK1dLKBET5WF3XbLrIE4hQTKuhslprXbrijAnEIdZDqyV35NgDVOMrxrWRqmbrTYSExadeSu1AIhRZUspksurnLz3F72mBCFeuTdR4k5mqqlqv//Lrw3y+PtfxBUI13Ln3poGkMt8utdrkrKrWcbVKgw2SBZEz+YW1/ELjcDi5c+czLZuCkrWZZCfTV9atISkOuMTHf30I5+JwtY9qEKmJmF8wZeLFZxV4d/f+W7zqh3YgJyTZV/gaQdBu29UI/RR65MMUyPDnBR923vI/abBSpB3GICHqmAZIVq4L0qOth2Lv63GjfXOMJTLUd6sTHBarb++VTb32kvPrE+oUJSaYa/6y00a1Rv5x96ZA5Py794usI8ZH8WmSUQfc1rClSC1rUUphLEPCrtqg9uF9jEXa9ZcYY48WFnpcP2/ZKSukXFNjjTFGVHzg9lTGbLE15OzLL6hVDRq9mwXTTZpx2Pkip7rhBDZ9mouLlbXLVsWzUO/glcQdUvS9ldRnu+h0wGJATK3LeFam7DU4nF+M0ZdJM2I4jc6kX7j8jEOOg4Jw7c/K6ycFqIDt/AKnSTsMwuwzdKf9/qMS2QRJk8czFggN+rW0PCD/HRHBui1J
+dgs9K7zmEzCarKatwSk60bbDJIMwjhz3nZTKeFZug3TA2ICYwRiIerhxOx82WouM8fBJKTNyQpQdah8YfuX6RI1SafBoHEDgQTuusHD9o4+uYyxF/N65V4iz3/AI59TZsdzE6Ye53kMiiOADndhjBOHj8ObgMbudQ8fuRU5FJ65FEvOco49wv8M58dfuIQ3lgmH7j4h09hgY1qDdABGR03dYpKOpPOmN0E9hlBWa9FOGj/wD/0QDrZV2HDfNky7u0SqKE78Pn5QYcXUoCAcqIRChPeOnHLKm3ytQWywsiMOjcluCqzdeOnH+SZQgvpRSAJGhQKiidMBJ2x2R10x2h6NFxnA4OO2yVWfNsCVRBhjzar1jQ9Y4iA+RuuUkO4onbOlcNYVoK+oTYzVd38NvYnvEv6W/i++LfRaRf9alLDCq6/tNIez4n5Ub3R106qT4z+39FTukHQeB0urFVlRqPLoMAGnMyGh3lpapbDjZipOxhUUqk0Zr5vPBC4/5DIxGklJBKQ3JLjGxsKUOH7sPmm1VffQ+m363wDRmUrQNBCkSF+wKWvnNpD7JkjQxx+874AoH8WKR2aRI1mm0JlnvigyVkpZjHTBiV6P86z9FpDFc36nTur8TSO/nDR26BPZw6TyvlyOBpTCvHgFP0Q4nsREfU+ZTySQCiD71Wq6VJ1hBSiFY9Ls156w2Vv69X+6AyrbEJ2TgBC3vthYZCn+DsI+eegSrvEVXeE5utWk8STk4J+rLISlFkhUgPNIkNDDU1WycaLbjXekc/ZSQFu0roLGf3b5Uc/DRp4p/JF33nnQgQDykP9vvPyjyOsPrm4Sqai1DhrUJkgPthXpFej176fILWXZOU2BlWGNI2FWjH3+MojFxIDRr+eoEg1JlaNE7Sk0wrd54wQp7EuVADV66Kl6PdguPtAhgqMHEUM1LKEV9VLhfoJowhnAn/T/ibSIxTSS1Q9GhS8AEXMjR0U8xntrxZbuuim4I4P6oW8B/
++dk6JpoCbMJ18AsaRwPUMFnQk/G54JvTfASzMM/vBVB7zDHHH+qx0SsSPqTUyrUJVjJWZOc2lwKViX030/ipBxkY8q6SAdKm79Cdtuu38mSNRdzZp8iL0UiK7j90p4bUYFlxjvUMtbsFhqpHamtUu25b/whJAPygx7r/+LYRal2nTnv/jRR/cYzkCp26Kv7JnbTqMSjccTYx463e9NES3H1Q5MTRBBA62gkphYBRSCnhEY/AaLLqtwZfRkiPSKQNYyAiJOKuqJtmYtoW7aE6pVE7Y8Exs9QTCim3N/p2NcvaW2QqDxnqokc3ZrTB2wPXyHURYWB//tVBm8XCvNXLq5uC4hKVfd6yUzbst4hthBRYQVIKKpfwmCwwGC360J1pBmxYwoaEVAHz4IyTdAzgUSQmMRQWq+SofbbgsFQb1DIpcwrqqeP5i4omVVN615p8Jcckm6H8FVUd/LZ+IkxhG7yPAPc6TVaj1GogDOw/rN5wgd9xF+b/nYDeYLEqQq8YQPSi2ueplIKap9NZ1NuImfoSM/1VYCbssSFPXeq1l8b9h+/YEJENwoY07DM0grl245Ws8pNTs60IRRLVPnwC0V584m6y7Nxq2H2NnED0fyZy3y1794E7+L0k6Rw0hWSzjBamrg3eV+BPLbu5+RH7Et37hznIjmmVV601AIY+Ff+EPzgnXcWxy//DhvOQUk22De+q1KbKY3GPtbhpEtEXf+0ezJ8tQtjOuK+iLSQh1DgcSIxrWLkuwQiJBUaAlMKt+lRGizF6pNrpl6yMN4tSFG3D5Wnzlp6yIR5OZDTktFgfkGS8mZ5XWV2jL6lTGcq//eGsVc5F6RLHxDfQLoSpa4P3GTr6Bf/G1bYCgpAHj9nD3nsH3kAwRVzCUz0IU7rxCALERvX0eces8QkZVZcuZxVfuPS85CJ9xiVkVAZtT7V8NTOGQ7weNoiRxBP9wH4Ryvp+4wVDdk6VGtfJ2B1O1GM7cOQOqW71EhrSa/Wm
+CwZiNDlqHxMZdcsmRjwgwmP6gmOm/IJa/ph67PEHps9oYRK9gQjKRTQ32oXrT+tzYTQe8ybRL3DfJ58E/S9hytrgpwAdugT1dTeZIJbREw/YikvUHl2k3RpoYCgiOqmEkiII8tMeoQ7czC8i/i/eLQVChqMASUu+33DBdOd+UZ1GY7IwDMvfpyxUxd26U8AgNwVUPkiqSdMPm7Oyq2Q5aV7kVJkQOYK68D4uJr9xO7+R/ZTxrFwP7yKvDlK7wUQiuuuXO6T3bkBNF6aqDX4qwCeJcblbS0QQKdkFxFjKN85YIkOBaV4LjSFCRFuAIGIEgYKgoXqBIcBEOAaxaHmcldTWqvzCujqSOHYwkp0P4G68l4W7e+ctO22EvYby8O7F5BfCr80DFaVfte48r/aJjH/uQiYk1Gsqo81mN89edIJFG6X9kYPU50cdOwe1E6apDX5q0KFb8AekBja6X0vEt8FYBqPVGhZ5TY9gTVeGAuHjHBdyNcxaeNyuCE1R7j98p+joqUel6XcLSwqLlJVqtdGC491WK8vZWD6wo0mvGz1r+vb7s/zBQ/QNDHv46D1ZdhTg9NkMruegMN7hgdRdkftuGahOtxKuoKhW+/nkg7xEk/apRfRT6Dt2CRooTE8b/BQBTguayLFuJ5gQxDdyQhRDNolPXe1EyHak/lr4bVzDMQsR8X9IraDtV60Wi80EhgGS9HHiXDzQLmQpEYprESprdMaFy+OMkE6wo7ChHLzjqonKlOWUKSlR66fOjuH3pCAdV6xJNNTW6ZtgqDrthOmHLa79agnb+yt07f0ChvzsA1F/CYAQfddgWymCCPsNj7THncvw6FbBpoDKsJyOf6rrMTBMKP/HukC0yP6acDHTJ9EdVJft/qNiI/bgPupST+Q4ybt643kjSUlZUQ/VtQYDqXJmqJ6QnmMnH2CeZZW/Jt2oLuOBw3cZJPn0xH4CtjHUzxCwW0/Mc8fdhIvYhVSxBctPW4tLVB5FtYtA
+RGdOupKjHj3hANexq+AyliCkx7DP9zIIIxJeaRWwdrtx175bRmRBEokcke4Lvo0zlldqZdWRnVttmjj9iFWUOojtW7wi3pyZVV6tVBpKSss0Jddu5VWsXJtgATPJPLzXCH9kqDb42QGfzsxPoXE38SLi3A4SSs5fdsr2+ElpNRnkLSXmBBNWRey7oR8ydg/ed4pnf6QIYv1y6iFrXkFtq89HsazDcOzkY/2QMXsa1QHGQBKU5Cs5wpPuAcyfm1dTu2JNgqWrm5vWwTg4Yv5pT0L6xF6YN8wEbO8fqG1jqJ851B8PafniBSR2xB4MEOE/ZBtx36w6aw/eftW0dsslZt7SU9yUWbEcLgbDM7CR3JUDlzPsnIXfnLZotCavsy4RI1iKipW167deMmLT1R2Rg6kGjt7Nbo+4VpN48XlR/LnMYmDC+WdF+w7cViJdFzaNwXhw03vLKHKxTUL9gqCjX2AfmnB+c1Qugsk+BhIhAvF/oLtnRYRK1o7sHJyNIunikYRiGFaXn19XSLZZ3fxlJ+1yGQFSEsfN8awU8Z3Ybnfv+Rqp74/qk0y2wS8CevRY97ckQSbSxNe6IwhfIryLkHQLvonj5i451SziUoExEw/Uq1/dQ3gmQo7zt8UIvkIa2+OIaBGGuw1+SdC+a0BPIgClO8LwNYqSrSV09+5PCv0Ua5DaQBjiNvglAk51EjEUvUYcbegR0uKU084voHeby7wNeEA+diKK0+6IpQ1loJ8iCCFhwnC2QRvUA45Nk2Hdn+ysDLeE04ZuUBH/UZfAj3/xx83boHlAYs6OfgHdO/gFnmlpT+sXhUjI4q94THi2vb/iB8RU/ixziLfBm4XfDwz7d4imbu+n+JqIajNJsfXeIhHjpo7+gXP4zDxwkLwp9A/s1b5LUFfcMil0ow3eC/ibv/n/AXyO/yr8RpoxAAAAAElFTkSuQmCC</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="ID3">
+      <MIMEType>image/jpeg</MIMEType>
+      <ImageData>/9j/4AAQSkZJRgABAQEAeAB4AAD/2wBDAAMCAgMCAgMDAwMEAwMEBQgFBQQEBQoHBwYIDAoMDAsKCwsNDhIQDQ4RDgsLEBYQERMUFRUVDA8XGBYUGBIUFRT/2wBDAQMEBAUEBQkFBQkUDQsNFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBT/wAARCABeAmADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9Gfiv8UtA+DPgPWPF/iS6+y6RpkW+bafnlbokaL/E7t8uK/I74xf8FPPjF8Qtbun8L36eAfDxbFvZ2aI90U/25nR/n/3NlfS3/BZDW7u0+Hvw90WKVo9PvtTuZrhB/G6Imz/0N6/LDmgD3H/hub9oD/oquuf98Q//ABFH/Dc3
+7QH/AEVXXP8AviH/AOIrw7mjmgD3H/hub9oD/oquuf8AfEP/AMRR/wANzftAf9FV1z/viH/4ivDuaOaAPcf+G5v2gP8Aoquuf98Q/wDxFH/Dc37QH/RVdc/74h/+Irw7mjmgD3H/AIbm/aA/6Krrn/fEP/xFH/Dc37QH/RVdc/74h/8AiK8O5o5oA9x/4bm/aA/6Krrn/fEP/wARR/w3N+0B/wBFV1z/AL4h/wDiK8O5o5oA9x/4bm/aA/6Krrn/AHxD/wDEUf8ADc37QH/RVdc/74h/+Irw7mjmgD3H/hub9oD/AKKrrn/fEP8A8RR/w3N+0B/0VXXP++If/iK8O5o5oA9x/wCG5v2gP+iq65/3xD/8RR/w3N+0B/0VXXP++If/AIivDuaOaAPcf+G5v2gP+iq65/3xD/8AEUf8NzftAf8ARVdc/wC+If8A4ivDuaOaAPcf+G5v2gP+iq65/wB8Q/8AxFH/AA3N+0B/0VXXP++If/iK8O5o5oA9x/4bm/aA/wCiq65/3xD/APEUf8NzftAf9FV1z/viH/4ivDuaOaAPcf8Ahub9oD/oquuf98Q//EUf8NzftAf9FV1z/viH/wCIrw7mjmgD3H/hub9oD/oquuf98Q//ABFH/Dc37QH/AEVXXP8AviH/AOIrw7mjmgD3H/hub9oD/oquuf8AfEP/AMRR/wANzftAf9FV1z/viH/4ivDuaOaAPcf+G5v2gP8Aoquuf98Q/wDxFH/Dc37QH/RVdc/74h/+Irw7mjmgD3H/AIbm/aA/6Krrn/fEP/xFdR4D/wCCj3x68DaxDd3Xi1PFdrv/AH2n61bI6On+w6IjpXzNzRzQB++f7L/7Snh79p34dJ4i0hWsdRt3+zanpcz/AD2k3XH+5/cevca/Hn/gkZ4ivtP/AGivEOjQS4sNT0JpJl/2oZBsf/x81+w1ABXnnxk+Kuk/BvwZfeINYlVIYUd18xvkr0Ovzu/4LB6pcWvwn060SVkg
+mmhR/wDb+egD53+IX/BWfx7qmuzN4aslg0vf+5ed9m5P9xK5j/h6n8Xv+eVr/wCBc1fGfNHNAH2Z/wAPVPjB/wA8rT/wLm/+Lo/4eqfGD/nlaf8AgXN/8XXxnzRzQB9mf8PVPjB/zytP/Aub/wCLo/4eqfGD/nlaf+Bc3/xdfGfNHNAH2Z/w9U+MH/PK0/8AAub/AOLo/wCHqnxg/wCeVp/4Fzf/ABdfGf8Aq/8A0BK0dS8P6loDWrappl3pwuIvOh+1RPD5qf303/wUAfXf/D1T4wf88rT/AMC5v/i6P+Hqnxg/55Wn/gXN/wDF18Z80c0AfZn/AA9U+MH/ADytP/Aub/4uj/h6p8YP+eVp/wCBc3/xdfGfNEkiR/ffZQB9mf8AD1T4wf8APK0/8C5v/i6P+Hqnxg/55Wn/AIFzf/F18Xxzp/fR6k5oA+zP+Hqnxg/55Wn/AIFzf/F0f8PVPjB/zytP/Aub/wCLr4z5o5oA+zP+Hqnxg/55Wn/gXN/8XXcfCv8A4KPfEPx3qU2lalcJZXv37fZcPsl/2Pv1+ffNWrG+uNNv7W7tJfIurd96PQB+pv8Aw178Qv8AoJv/AN/n/wDi6X/hrz4jf9BN/wDv8/8A8XXzR4F8fReOPD9rqEJ2XX3LiH+NZq6H7ckfyf8AodQB7t/w158Rv+gm/wD3+f8A+Lo/4a8+I3/QTf8A7/P/APF14T9uSj7clAHu3/DXnxG/6Cb/APf5/wD4uj/hrz4jf9BN/wDv8/8A8XXhP25KPtdAHu3/AA158Rv+gm//AH+f/wCLo/4a8+I3/QTf/v8AP/8AF14T9uSj7clAHu3/AA158Rv+gm//AH+f/wCLo/4a8+I3/QTf/v8AP/8AF14T9uSj7clAHu3/AA158Rv+gm//AH+f/wCLo/4a8+I3/QTf/v8AP/8AF14T9uSl+1JQB7r/AMNefEb/AKCb/wDf5/8A4uj/AIa8+I3/AEE3/wC/z/8AxdeE/bko
++3JQB7t/w158Rv8AoJv/AN/n/wDi6P8Ahrz4jf8AQTf/AL/P/wDF14T9uSj7clAHu3/DXnxG/wCgm/8A3+f/AOLo/wCGvPiN/wBBN/8Av8//AMXXhP25KPtyUAfRnhX9tLxrpepI+oXDzWu/5/n3p/4/X3N8KfidYfFDwrDq1oyI/wDy1j/uV+Rv25K+3/8Agn7qktxpur27vvgRXP8A5E/+zqwPJP8Agst/yL3ws/6/r/8A9Fx1+YPNfp9/wWW/5F74Wf8AX9f/APouOvzB5oAJP3ab69g/4Zp1bWfD1re+Gr1NX1H7Ok02lunku/yb/k/gf/c+/Xjc33H/ANyvtzwrHLa6Polxbu8E6WkLo6fwfIlepgcPHEwnCR89m2Lq4XknA+Kr6xuNKvJrS9t5rW9t32TWt0mx0f8A20pnNfo3qXgPwZ+0LpX2LxRp6QeIbeHZDqFr+5m/30f+NP8AYevln4xfsfeM/hek+pafE/ivw2nz/arKH99Cn+3D9/8A4Gm9K8ut+4q8k/iOrA5nSxUP5ZnhXNHNR+Z5ifJUnNB64c0c0c0c0ARySeWm/wDuV9E/Eb9k1/h/4J8Da3/bF3dajqeqWek+IrJ7TZ/ZE15Ck0Ox/wCP5H/77SvBND1JNH17TtQe0t9RS0u0uvsV1v2TbH37H2fwPsr2rVv2zvH/AIkPi6PxBLDr2n+INQttTSzvXd4dImtpvOT7Mn8H9z/coA6b4nfsZp8NZPGMzeJpdU0XTJtNTRtThhTZfJc3L20yP/cmhdPnSoPH37K/hTSbnxxZeE/GGrahqHgPVrPT/ENlq1gkP7maZIftNs6O+/53+4+x65DUv2r/ABhqvhvxloVxb2L6R4m19PEb2vz/AOg3Pnec6Q/P9x/40erXxC/av1vxw+qPZeF9B8Kf25qltq2uPpaTO+rzQvvhSZ3d/k3/AD7E2JQB3/xM/Yit/DuvaL4f8Oa1rKa9qfir/hGbe18Saclsl8mze97b
+bHffClcvffs9eBPEWj69e+AvGGrau/hbWbPSdf8A7W05LZHhuZvs32m22O/yb9/yP89YuuftdeNdcvNXu/KsYL278Tw+LbG6jR3fSLxPv/Zt7/6l/wCNKPE/7UuoazazW+i+DfDngqDUNWttd1z+xUm/4m1zC+9N+932Jv8A4E2J89AHZ6j+zD8P/CbeKX8VeNfEGnWun+OpPBlpeafp8M3z+WjpczJvT5Pn+dErye++Beu6b+0J/wAKl81L3W/7ZTSfOtfuPv8A+W3+5s+eu1g/a91Od/EMuq+BPDPiGfVvEj+LYU1BJtljf7ETeiI6b0TZ9x99cX4N+Pnibwj8UtY+I2621fxdqK3i/wBoXobNtNcJ89yip9x0/g/uUAeszfsd6Svx28P+D7HxHq2qeEdd8PXGv2OrQWOy8uPsyPvhSF/496On/fFXbT9jnw7NrGqJ/a/iy9tbTwxbeJv7CtdLT+34ne58n7NNDv2b/wCP/crh9H/bI8d2Nh4XTU/s/iHV/D0OpQWmtapNM968N+mx0d9/8H8Fee+Bfi5r3w90Pxxp2nv503i7Tk0y+1CaZ/tMKJNv3o6P9/8Ag+f+CgDuNU/ZpZv2nE+EWi+JbfUY2dHfWpk2fZIfJ86bzkR/vwpv+RH+/W7pv7O3gT4habo+tfD/AMXa5qOgr4qtvC2sprVikNzC83+pubbY770fY/yffrxj4e+P9Y+F/jbSPFfh+4WHV9Jl86F5k3o/99H/AL+9Pkf/AH69Jn/ak1C1udB/4RrwZ4e8G6RpmuJ4mm0nTPO8nUb9PuPM7vv2J/AifJQBpfGT9lmT4R+FfFetya5JqttY6xZ2ejXMEKfZtTsLhHf7Tv8A7+9Nmz+/Xz/XqOuftDeJfE/wlvfh1qH2ebQZtefX7Z8P51o773eGF/7m9/uV5lzQAc0c0c0c0AHNHNHNHNABzRzRzRzQAc0c0c0c0AHNHNHNHNAH2X/wSX/5Oouv+xeuf/Q0r9ma
+/Gb/AIJL/wDJ1F1/2L1z/wChpX7M0AFfnJ/wWO/5Jvov/XzD/wCh1+jdfnJ/wWO/5Jvov/XzD/6HQB+R3NHNHNHNABzRzRzVizs7m+uIbS0gmurqaXyYoYUd3d/7mxPvvQBX5ok+RP8A0D++9fVvgT/gmL8fvHekpqf/AAjVr4etpk3pHrV95Mzf8A++n/A65Dx9+x18XPgFrWnal4w8BahfaLaXcM019pOy8hlhR97/ADp9zf8A7dAH6Jf8E+f2DfDnw38E6L4+8Z6VDrXjfVIEvIIb2MPFpcT4KBEf/lrj+P3r4y/4KmfFax+JH7TM+m6ZMt1ZeF7FdN3r9z7RnfME+n9K+sNY/am/aE/ai8OvofwP+E+peCdKuIRA/irXpRD5Sf8ATHeNn3P7m96+XPE3/BJ/4/WNjNqMUWg63dMHnltrbUT57N6bnT52zn+OgD4v5o5rf8aeBvEHw18R3WgeKNEu9C1q3/11newuj/7/APtpWBzQAc19CfsD+HdK8U/tZ+AtK1qwt9W0+WWbzba8iE0LfI+z5K+e+a+i/wDgnnfWulfthfD24vbiG1tklm3TTtsRP3L/AMb0Aen/APDW2i618ZNS8EfET4UeANX8ES65NpMkmn6Klnf2iec8KTJMnpXBfEz9ifxDZftZeIfhB4L/ANJtrdP7Qt9QvZdkNpYOm/zpn/g2fcrvV/Y1l8O/GzU/HHxR8Z+FPCXgSLXptWeb+2Ybm5u4fOeZI4YU/v12fwx/ae8O/HP9pn45/wBo6ovhK3+Inh1/D/hzUdTfy0i2fIiO/wDBvoA+dPiN+x1rPhH4b6p498NeMvDPxM8L6PcfZtWm8MXDu+nP/to6fc/26yvEH7JvirRfFvwr0C2v9N1eT4jWkN1o91ZlvJVX/gf/AHN/z19A+Cfh7efsXfs8/Gg/EnVtKh1rxjpiaHonhyx1CG8e66/6TsR/lTmui/Z3+KPh3/hkfSPHWt6pap4v+DsWsafplhM6
+b7j7ZD/o2z/cd/8AxygD5vtf2MfGtx8cvF3wuuNR0uy1DwvYzanqOrXTv9jFsib9+/Zv/jqz8O/2L9f+IHwt0T4j3PjDwr4X8GahcTWs2p67dvCloyfwP8n8f8CJX0T8R/i5or/sc3fxSg1i3l+IHjjwxYeA76zD/vVeF3892/34RXkPxE1S1k/4Jl/DPTo763e9XxfeO9skqb9myT+CgBvgn4P+Kf2Vf2r/AIcaFr15Y6toviDULOez1PT5fOtr+2eTCTJ/n+Ovob4qfDrXfip+1h4/0Dw/Bb+dFfPdXE877La0hRE3u7/wVwvxP1zTZtU/YeZdQtJvslnD9o/0hP3X76D7/wDcr0nwf8VvD2pftYftL/D6/wDENpp8/jGKay0TVppU+zM/kp+530AcN40+Bep+GfBN14t0TxLofjnw1YzeTfXWhTPvtH/20ejwH8F08f2ekJF8Q/Cel69q3/IO0K6u3+0u/wDcf5Pkd67HQ/Dl9+y3+z/8UofHF7pieIfFNommaTodlfQ3L3H3/wDSdiV6T8NdAt/Cej/CPVfh7beCY/CFwkM3irxXrU1s+oLc7/nh+f8A4Hs2UAfOPgf4O+K/HnxC1HwbaW8Nlqmk731R719kNiiP87u9e8eGfhzF4D/Zj+M93F4l0Hxlp13DbeTqGi3G/Y6P86P/AHPvpUej+JtH1j9oH9ozwO+t2mkXvjG3+zaTqk0qJDNNs+5vrB8M/Dm++C37MPxu0TxRquiQeJdRtraeLRbK+SZ0hT+N9n9+gD5tgupbqaCK3R57qZ0SFE++7v8AwV7p/wAMo+IvtiaL/wAJd4Zj8cNafak8JSXb/bHT7+z/AH68H+Ffji08D/FDwp4g1CLzrLSdTtr24R0/gR6+t5PhTd/8NVJ8Zv8AhKtE/wCFZpqP9uf8JB/aifc2f8e3k/f3/wAFBB4r8Mvgf4o+KkPit9PuLHT5/DcyJfQ6pN5Pk/P87u+z+DY++j4m/BPVfhz4
+V0vxVb+ING8V+Gr6b7F/a+i3HnJDN/ceu/8AB3xG0zxh4M/ax120uIbKDWE860hndEeZHd/4P8/frkdK1i0j/YD1e0+0W6XX/CZI6Wu9N/3E/goA5b4H+EbL4ofFDQfDmoarb6RZXdwnmzTPs3pv+4n/AE2f+CvbtP8AhdpXwo/bE8HaVpPiDTNX099bdE0+1uHmurFET7lz/wB918x/CHxNaaH8XvBWq6hL5GnWOs2d1cTP/AnnJX0r4g8K3fgn9vPw34j1C601tC8Sa8+oadew3aOjQ7E37/7n/A6CyD4pfs3a7r3jT4i6rpXiDw/qOsWt5c6lL4YtboyX6W2/5Pk+4H/2K8m+Hvwy1Dx9omqeILjWNM8KeF9MfZd61q82yHzv4IU/vvXrXwB8QWUH7cnxGu5dQt0tX/tjZNJKmyb5/k+f+Onfs4eOF8R/s66j4F8P2XhTWPGun68+ppovi5E8i+hf5N8O/wCTelAHjPxQ+HOp/Cu80tLq9tNU0vVrf7Vper6XNvtrtP76f7dcb/aX+1Xpv7UHjHx1J/winhfxro/hbQU0lJptO0/ww6PDCjv86Psd0T7n3K8H+2vUEHV/2l/tUf2l/tVy/wBuej7c9AHUf2l/tV92/wDBN2486PW/9x//AENK/Or7c9foD/wTEuPPh17/AHH/APQ0qyzkv+Cy3/IvfCz/AK/r/wD9Fx1+YPNfp9/wWW/5F74Wf9f1/wD+i46/MHmgCOb/AFL/AO5X3h4ctf8Aim9I/wCvSH/0BK+D5v8AUv8A7lfod4Ztf+KV0T/rxh/9ASvbyyfJKZ8pn3wwII4JbWaCWJ3gnhfejp/BXuvw18cJ4gRLS72QapCnzp/z2T++leS/ZKkt7eW1mglid4J4X3o6ffSurMMLSxlLlXxnylGfsZnQ/Gj9ibwV8YvP1PTETwj4om+f+0LJP3Mz/wDTaH/2dNj18C/Gb9nbx38CL7yvFGlN/Zzvst9asv31nL/wP+B/
+9h9lfqj8MvHkXiNEsr3ZBqkKfP8A3LhP76VqePNVTxBpV1oPlRXWl3CbLtJoUdJk/ubH/gr8zrYqvl9X2NY/U8ko1czlyQ//AGT8UeaOa+2fi/8AsJWmrRzal4ClTS73776TdP8A6M/+4/8AB/ufcr498XeDdd8B6w+leINKuNIvU+/DdQ7P+Bp/fT/bSvZw+KpYn4Jnr43LauCl78TI5r2z4U/s3p4i8AXPxL+IGuyeA/hpBL5Sah5PnXmpzf8APGzi/j+59/7n5V5j4A8Kv4/8eeG/DSO8D6zqltZb0/gR3RHf/vivsP8A4KpXieGfHHw5+Gukr9i8L+G9DSa0so/ub3fZv/74Su48s8F/4WB8DNKufs9l8HNZ17Tkf/j91rxO8NzN/t7IURE/8fr1bwz8Cf2ffj98PvEmv+DPFWs/CzxD4ftvtuo6T4ndLyyRP9h/403/ACf39/8ABXyFzR580cLxJLMkE2zzk3/I+z7m9KACT927/Pv/ANv+/RzXp/wD+A2q/HnxNqMEF7Fovh3RLR9Q1/XblPMSxtk+f7n8bvsfYlb2g65+zr/wkiaZqvhTxjP4baXyf+Em/tpEuUT/AJ+fsaQ7Nn8ezfQB4lzRzX0F+1t+yTefs3Xmiappmq/8JP4F8QJv0nWY1+f+/wCTNs/2H+TZUfir4JeGv2evDHhq7+KdvqeteL/ENp/aFp4R0i4SzSxtv79zc7H+d/7iJQB4DzRzX158Mf2Zfhv+1n4D126+EsureDfiLoUXnXPhbWr5Ly1ukcfI8M2zf/sV4t8Gf2edb+LGseKFu5f+EX0Hwhbvc+JNXvYnf7Cib/kRP45n2fcoA8s5r6I/YL0Pw542/aI0Lwn4m8KaT4l0vVUm3/2mjv5WxN6bPn2V2P7LvwN/Z6/aO8WT+EItX8daL4h8p5rF72a2RL5E+/s2I+x/9itv9lvwlongH/god4b8MaTousaK+jteW13DrV4lzM83kv8AOmxE+SgD
+w79sfR9J8M/tLeONA0LSLHQtE0e7SytLPT4tiKiJ/wCh145zX1N8dfhDr3x4/b98feDfDqRQXV3qzvNdTjENpCifPM/+fnrnvB2m/s9XfxOsvAV1ovjHxDa3d8mmJ4us9RSGbzt+zelmiP8Aud/+3v2UAfPXNHNe9ftB/s/6P+y/8ZZvCviC/fxJoVxbpc6fe2rbJkh3/cdEf5HSvD/Edxpkeq3suied/ZaP/on2r7+z/b/26AKvNHNfcXxg/ZZ+Bf7PMfhTxR441zxDdaFr2kwzWPhnRXR727vHTfNM8z/IkPz1zN1+zr8If2gfhX4o8T/Ai58Q6R4m8Lw/bdQ8J+IHSb7Rb/30f/gD/wAdAHmPwy/Z90zx5+zP8U/ibcaxd2uo+DZoYLfT40Tybjfs++/3/wCOvEea+wf2c5PM/wCCd37Sz/8AT9Z/+gQ14x8D7H4KfYNX1P4tan4k8+3lRNP0Xw3Em+7T+N3mf7nz/wC5QB5LzRzX2HofwJ+Bv7SXw/8AGl38Hx4p8K+N/C1i+p/2T4guUmhu7ZP9v/gH9+vPvG3wL8MXX7IPg34xeDRff2il8+k+KrW6uPOS3m/vomz5Pn/9DoA+feaOa9m/ZD+Btr+0J8btP8Naq0tr4bt7abUNWmhfY8Vsn+3/AAV5p48/sKDxz4hi8LpN/wAIvFfTQ6d9qfe/ko+xHd/46APrD/gkv/ydRdf9i9c/+hpX7M1+M3/BJf8A5Oquv+xeuf8A0NK/ZmgAr85P+Cx3/JN9F/6+Yf8A0Ov0br85P+Cx3/JN9F/6+Yf/AEOgD8juaOaOaOaADmv12/4JX/slaZ4W8C2vxa8R2C3PiXWdx0dbld/2Kz/vj/bfmvyJkj8xPK/vuiV/Sz8JdIt/Dvwu8Iabap5NraaTaQIn0hSgDs6ZT6KAGfcp9FYHjHUJdC8J69qMH+us7Ga5T/fRHegD8q/+Csv7QngPxpr1v8OtJ0a31TxRoFxuu/E27LWP9+2T
+b97/AG9/Svzm5qfUtZuvEGp6jqt7L5l7qFw9zcP/AH3d971BzQAc0Sf9/KOaOaADy/8AMj0SRpIux1r7Y/4Jvfsj+Ef2iP8AhOtf+IlrLdeGNEiS2t9t09t++f53fen9xE/8fqb/AIKQfsg+Ef2d4fA/iX4eWNxbeGNYR7W4V7h7hDN99Pnf++m/8qAPiHy/99/996PL+b/bo5o5oAP9rbRsT7+yjmjmgA/2f4KfBI9rMksX34X30zmjmgD13R/EcWq2CXab9/3Hq99qSvKPD+sf2VeR7/8AUTffT+5Xcf2kmzf/AAUEG99uSj7cn9/5/wDfr7W/Z0/YZ8Hx/ChPin8b9XfTNClt/tkWn/aPs0cNt/A87/f+f+4nrXW2qfsF+LJn0i0uLbSZmGxbxpb62J/4G9AHwB9u/wBuj7ckf8dHxC/sLR/HniG08NSyz+GrS+mh06aZ97vCj7Pv/wC3Xa+NP2bfiP8ADn4Y23j3xRoSaL4eupoYLfzrlHmZ5vuPsqAOG+3JR9u8ysX7d/nFH27/ADirA2vtyVJ9u/22rB+3f5xR9u/zigDa+3f5xUn21Kwft3+cUfbv84oA2475Kf8Abv8AbrB+3f5xR9u/zigDe+3f7dH27/brB+3f5xR9u/zigDe+3f7dfop/wSvn8+HXv+uL/wDoaV+Zv27/ADiv0l/4JOz+dba9/wBcn/8AQ0oLKH/BZb/kXvhZ/wBf1/8A+i46/MHmv0+/4LLf8i98LP8Ar+v/AP0XHX5g80ARzf6l/wDcr9LPCNr/AMUloP8A14w/+gJX5qSf6l/9yv1D8HWv/FH+Hv8AsHW3/oCV6OEnycx8vn3wwI/stH2Gtv7LXl/jzxwkjz6ZpkvyfcuLpP4/9hP9iu2riPYw5zz8kySvnOI9jR/7el/KM8TeLngufs+lTPB5L/PdI/z7/wDYr2b4Q/Ee38dw/wBmXuyHXok+T+5cJ/fT/wCIr5J8R+LtK8I232jU7tIP7kP3
+3f8A3ErxTxV8dNY1SbZok02gwJ9yaF9kz/8AA0+5/wAAr4fMMJLMp885e8f0hTjk/DuX/V4fH/5NKR+g/wAbP2mvAXwTWe0u7v8AtrxKv3NJ0t0d9/8Atv8AcT/0Ovz1+Nnx68RfHfW7W71pbe1srHf9h0+1T5Id/wB/5/vu/wDtvXnMn7x3lf553fe7v/HRzV4HL6WC974pn5/jszq4z3J/Cbfw88Vf8IB488L+Jdu/+xtTtr3Yn8aI6O//AI5vr9DP+Cp3w1PxG8G+CPjd4Xzqmiw2H2a+ntfnC2s3zwzf7nzOm/8A26/NjmvqH9lv9urX/gDoc/gzxFo8Pjj4d3CMj6TcunmW6Nnf5O/5Nj5PyPXrnjny9HGsjp+92I7/ADvs37K+t/2af2P/AIaftNare6F4f+JviGPXtPsUvb7z9ARLX7+z5N829/nrE8fW/wCyb40vJNV8Nax43+G09x876T/ZKX9sj/3E+f5E/wCB1r/s9/tO/DH9kDVNe1jwVZeKfHmvapbJZO+tJbabaxJv3psRHd6APdf2G/Buia58Ef2m/h34fu5r7W/tNzZxTXEKJNcQ/ZtkL7E/vuj1+afkPDvt5U2PD8kyP/Bsr0v4Y/H7xh8Hfird+P8Awldpp2qXdzM9xauN8MyO+94XT+NP9v76V2nxC+Nnwk+J/iabxZqvwgvtP8Q3T+ffW2k6/wCTpt3N/f2eTvTf/Hs2UAfU+vePtKj/AOCen7P3/CXuGeXxHpX2fzvvSW1vdfO/+7sH61w3/BXLwdcWPxs8I+K4kd9I1vRvIim/g86F/uf98Oj18o/GL40eIPjRquny6xDb6dpGk2/2LRvD+npsstOtv7if/FvXqHh39sSXWPhLD8Mfit4UT4i+FbIodMvftb2ep2Wz7myagDpP+CXerahpn7XWjQWu/wAi90u8hu/7mz5H/wDQ9le+/CP4sfDbxZ8Wv2nfhbqWqWOiWvjnV7n+ytXupkS2uH2bHTf/
+AL/zp/fr470/9oHTPhrouuWHwo8L3HhTUtZg+x33iPVtQ+3al9m/54w7ERId/wDG/wB96p/Df9m688X/AA6u/iH4q1y28B/DizlFsdZvYnmnu7g/8sbaFPnmfg/x9qAPVvgB+zf8RfgT8fNF8YeMLFfDngzwXdve6l4tmmR7J7dEdPkdH+d33omyup/Z7+K9v8cP+Cndl43s7RrPT9TlufskMifP5KQ7Ed/9uum/Zx/aC+AjfCt/2e/F9xrV/wCEdWupRFrus2K2aJNK+9D8jvs+f7j+/wA9eR+LvDOo/wDBOP8Aaptr+Czh8bW8dpJeaDNdXHk+dDN8hd9n8af/AGdAH07+z5d6a3/BTL4/6LeukNzrFpNDaSH7/wDBv2f9918YfELx543/AGffFniX4e6VpmnfD7UdMuJrW4vdFtP+Jneo770f7Y+99jp/c2VQ+JX7S114x+LkHxP8NeHIfAfjhLv+0JdT0+9eZLh/9x/kT/b/AL9ex/EL9ur4f/HjQ7IfFr4G2/iHxPZJsXWdJ1R7N/8AvtE3/wDAN9AHx3PcS30z3FxLNdTzPveZ5t7u/wDt1Vvv+Pef/crqPHHibTPE2t+bo/hqx8I6RCmy30uyd5tif7czvvmeuXuv+PZ/9ygD7a/4Kdw3Ca38E53DGzbwdDHE4+4HTl/0Iqj/AMEulm/4XX41vX/5A9t4Tuftz/wbP4N//j9ey/tmfGDwl4Xm+Gngr4l+BI/GvhK/8J2eo28ljcfZtQ0+5+47wzf3MY+SvnnxV+1t4M8J/CnWvAPwQ8B3Hge18QfJrGuapd/abyeL/nin9zrQB0HwBdP+HfX7UDxf6h9UhdP9z5Kx9A+Cfwu+CfwB8IfFL4tafrHjLVvGL79E8K6Zc/Y4Uh/vzTff+5XnXwz/AGgtP8Afs2fFD4Xy6FcXV14xuIZodQhmTZaIiJ99Pv8A8Fd14D/ao8B618D9C+GPxn8BX3i7S/Djv/YmraRd/Zrm3X+5
+8+ygD3z9iv4ifD3x5qnxTh8FfBu38Bz2XhO5e41NNXmvHmR0fYj7/kSvFf8Agn7rlr40tfiF8CtadP7L8eaTM+neZ/yyv4U+R/8A0D/vir3gX9uLwd8Hn1bw/wDD34Xf8I94D1LTLm2ukku/O1O9uXTYk00z/cRP7lfNXwW1DxBovxd8D3fhkO/iSHWLb7EifJufzvuf98b99AH0/wDCW0u/2Yf2Lvin41vT9l8ZeLtQ/wCEP0zf8joiPsmf/wBDevjBI/LRE/uV9q/8FSPiZBrnxf0f4e6WkNrpfha3+03dta/c+33PzvXxdzQB9l/8El/+TqLr/sXrn/0NK/Zmvxm/4JL/APJ1F1/2L1z/AOhpX7M0AFfnJ/wWO/5Jvov/AF8w/wDodfo3X5yf8Fjv+Sb6L/18w/8AodAH5Hc0c0c0c0AE3+pdD9/Z/wCP1/R7+zb40g+InwF8AeILZt8N7o1sx/30TY//AI+hr+cLmv1y/wCCPvx4h8RfDvWvhbqM3/Ez8PTNe6eHb79pKcsn/AH/APQ6AP0aooooAKqXVvDfW81vMgeOVdrJ/eWrdFAH8937Y37NOu/sz/F3VdMurNv+EYv7ia50TUxHiGeFm37N/wDfT7uyvBOa/dn/AIKTfEPw14E/Zd8Qrrun6fq+oar/AKBo1leRJN/pL/8ALZFP9xMvX4TR/u02UAHNEknlwu/36Oa7/wCAvw2l+MPxp8FeDYEx/a2owwzf3PJ373f/AL4oA/SDTbNP2Tf+CUd9JcD7L4h8WWDv/t+defIn/fEOz8q3PE1vD+15/wAEsbG+t1+0694f0tH8v+P7TYfI6f8AA0T/AMfr1/8AbM/Z18K/Hzw34V8F6v8AEm0+HumaK32pLNvJ3y/Jsj4d0+RKtfsX/ALw1+z74P8AE/gvSPiVb/EKx1Kb7b9mR4f9G3psf5Ed/v8AyUAfgvJJ+581P7lfqLef8EufBfjT4M/D/wAR+FL6+0bUdUtrPUNb
+1LUrzfFBbPBvmdEr8/v2i/hlL8GvjV478GTReXHpmozJb/7UL/PD/wCOOlfqv+1Br2oeHf8Aglfp81hcNDNceHdHspGRvvQzeSjp/wB8GgDzT4e/s1/sL+MtaXwLpPjKXXvFb/uUvJNUmR5pv+mL7Ehf/gFfJv7b37Ger/so+MbSS0updX8F6w8n9m38yAPC/wDzxm/2/wDb/jr5ptLybS7qG9tZPIurV0mikT76On3K/Y3/AIKOZ8Wf8E+dC8Qar82rr/Y+ob2+/wCc6Lv/APQ3oA8N+D//AATh8KfHD9jvwv4z8OS31r8RNWiR/Purv/Q4nS6dHfZs/uJXQ+Ff2Z/2IPDeuW/w/wBf8fr4j8Zbxay3M2oTQR+b/c3p+5Q7v4N9erfAfxBf+Fv+CTU+raZO1pqFr4Y1KSGb+4++b56/GX/lj/c+T770AfaX7dv7Acv7MsNr4s8KXt1q/gS+m+zv9t+a506Z/uB3T76P/er5L03Unntnif53++n+2n9yv1+8QahL8SP+CR0mp+JXee8/4RLzt7fe3wvshP8A44lfjPHI8ex/46AP2/8AGfg60/bk/Ya0Sw8C6vb2t6tvZvDDI/yLc22zfazf3OVP/jj1+U/xU+Dvjr4L6p/Z/jrw1qGgvv2JdTJvhm/3JvuVV+Cf7RHj34E6x/bHgjX5dMeb/j7tZPntbj/fhr9PP2T/ANtbQf20lvPhh8S/B9jFrc9k85h2+bZ6jGn39iP8yP8Ax0Afnd+zTpXwt8R/Ej7F8YNYl0Hwj9hd0uoZnh/ffwJ8m+v1u/ab8N/BvXP2fND074k69caR4AR7P7DqCTMjP8n7n59n9yvyK/bG+CFr+zv8evEPg2wlabRU8m90/wA597pbTfcR/wDc+ev0I/4KRN/xgf4H3f8APzo//omgD4M+OHgvwLffG7TvCnwHurvxXpGppbQ2O+Z3d7x9+9N7p/uV9cyfsT/Ab9mLwNp+sfH/AMWXF7r2of8ALlZz
+OkO/+NIYU+d/9+vB/wDgljolrrX7XOnTXUKSSadpN3c2+/8AgfZs/wDZ6l/4KoeJr/WP2tb3T7pn+y6VplnDaQ9l3/O//ff/ALJQB7zJ+w38DP2kfh3f+IfgD4tuLHVbX5Ps11cPNHv/AOecyP8APDv/AL9fF/we+F6a9+0f4X+GvjCxuLL7Rrn9k6pao+x0ffsfY9e3/wDBJTxNf6f+05faPayv/Z+qaHM10qfcbynRkk/9krt/jlpNpov/AAV08E/ZVVPtuoaVeXKr/fdNn/siUAei65/wTQ+GXhP4k3usa/4guvD3wq0yxhd/7Q1FFa4vHd/M3zP9xNmz/vuvkL4s/CHQPGn7VUfw8+Bb2+r6NqH2b+z5oLh7mBPk/fO7/wBxPvvX0d/wWT8Waj/bXw58LrMyaR5Vzqc0IbCSzI6Im/8A3Ef/AMfrkv8Agjv4fsr743eNdTmiR7rS9DSG33/fTzpvn/8AQP8Ax+gDrfFP7O/7Kf7K0en6H8XvEeq+K/GFxEJriKyeY+V/t+TD9xP9+uU/aK/Yo8EyfBf/AIXF8CdZuNZ8KQw/arvTJnef9z/G8P8AGmz+NH/269J+O37P/wCzD44+Mvi7WvGfx0uNP8UXd9svrJ76FPs7p8nkp8n8Fd/8GvG37Nf7P/wU8T+BNF+Mmn+IdL1NbqbZqd+jvvmh2OibE/2KAPyT+1f3PuUfaqy45PLTZSefQQav2qv01/4JEyeZZ+If+uT/APoaV+Wvn1+on/BID/kH69/1yf8A9DSgsl/4LLf8i98LP+v6/wD/AEXHX5g81+n3/BZb/kXvhZ/1/X//AKLjr8weaAI7z/Uyf7lfq94Ltf8AijPD3/YLtv8A0BK/KGePzI3RP7lfXfxN/a90y18DaJ4c8Jb7qdNOhhu7rY6JvRER0/v7K3ozPIzDBSxs4Q+E9N+LfxbtIIZ9PsrtLXTofkuNQd9iTf7Cf7H/AKHXy34x+O/37fw5F/sfbZk/9AT/
+AOLrzPxB4m1PxNdebqdw8+z7kP3Eh/3ErL5q61Xn+A+qw+Kjl+H+qYH3I/zfakTX19d6lcvd3tw91O/35pn3u9Q80c0c1ynmzqOpuHNHNHNHNAg5o5o5o5oAOaOaOaOaADmjmjmjmgA5o5o5o5oAOa+4PAvj34aftIfse6F8FvEvi6w+HPjTwvcLNpd3qmUsrt0343vnZ82/5/7lfD/NR0Ae5at+yrH4ZmY+K/ir8PtP0Dd++vNM1n+0ZnT+PybaFN7v/c/grL/ae+OEXx38f2V7p8Vxa+GtB0uHRdJS9/4+Xhh/5bTf7b/frx6OBI/uJU/NABzRzRzRzQAc1HJH5iOn99Kk5o5oA9n/AGpP2iLf9ovVfBt7b6LNoP8Awj2hpo2ye5Sbztn8fyJXjHNHNHNABzRzRzRzQASfcr6c+Fv7VXw5+Cvh/S9Q8K/BWzPxPtbHyF8U6hqDzQ+d/wA9kh/gf/vivmPmjmgC74j8Qan4u17VNd1u7m1HV9TuHuru6f78zv8AfqlzRzRzQB9l/wDBJf8A5Oouv+xeuf8A0NK/Zmvxm/4JL/8AJ1F1/wBi9c/+hpX7M0AFfnJ/wWO/5Jvov/XzD/6HX6N1+cn/AAWO/wCSb6L/ANfMP/odAH5Hc0c0c0c0AHNdt8Hfi5rvwN+I+i+NfDcuzVtMl3+W/wAiXCfxwv8A7GyuJ5o5oA/oz/Z4/aG8K/tI+AbPxJ4ZvI3dkCXunyP++tJv4kdK3viF8YvA3wmtVuvGPi3SvD0DfcGoXSRu3+4n3jX843h3xVrvhG/+2+H9a1DRL112edp929s+z/gGyqmsazqHiO/e91XULvV71/v3V7M803/fb0Af0XfD39pr4W/FS8Fj4V8eaJrV9/z7W94hm/74rrfGHjTRfh34Zv8AX/EWqW+k6LZL51xe3L7ERK/majuHt5klhlaCdX3pMj7Nj/7DpWx4g8aeJfFVtDb634j1bWrWL7kOoX00yJ/uI70Ae1ft
+rftUX37U3xafVYPNtvCWm77bRLN/4Yf45n/23r565o5o5oAOa/Qf/gjj8KP7f+LniTx/dQ/6L4fsfsVpI/8Az8zff/8AHN9fnxzV2w1vU9Lh2WOp3tjC/wB9La5dP/HEoA90/b4+KC/F79qrxxqsU3n6fp9x/Ytp/uQ/J/6Hvqx/wT9+Kw+D/wC1V4O1CabyNM1adtJvRu+REm+RP/H8V88ySPI7u7u7v993ojkdH3o7o+/enz7HSgD9B/8Agsp8KU0P4keF/iHaw/6Lr1k+n3br/wA/MP3P/HP/AECvtq+8G+D/AIifsL+FPCnjbVo9D0XWPD2m2aX8j7Ps9w6J5L73/wBvZ1r8JdU1zUtWtHS+1O+vUT7iT3Dvs/77r9fv2wFb/h1Poo7/ANk6D/6HDQB498PP+CO3iLT/AB1Z3HjHxlo954PtLgTPHpiP9pu1U79nz/c3/wC/VL/gqp+1BoHi2x0b4Q+DLu3v7DSp/tOrXVm++BHT5Etkb+PZ99/wr4N/4Wh41/sf+yv+Ew17+yNmxLL+1JvJ2f7m/ZXL80Aft1+x1H4duv8AgnB4fg8YXS2Phe50m8g1G6d9myF55kd91fLll/wRt8Qah4sga3+ImjXPgSabel+iO969v/sJ9z7n+3Xt3wn/AOUPeof9irqX/o6avyf0v4neM9H0dNN03xhr2naY6/8AHla6nMkH/fG+gD9Lf+Cjnx88H/Cf4C6d8APAtzDd33lQ2V8kT+cbGzh7O/8Az2dwP/H6/LDy/MdER0R32J9/5KJJHkd5d7u7/fd33vTOaAP0ruv+CQ7+I/D+ka14C+J9lOl3ZwvcQ6gnnQ+ds+fZND/Bv/2K9f8A2Z/2JfDv7EusX/xV+JHj/T5L+ys5oYZF/wBHtbdH++cu2532/JX5H6B488S+EkdNC8S6zoiP99NPvpof/QHqTVfF2u+LnR/EGt6nr06fcfULt5v/AEN6APWv2xPjnF+0X8d/EnjKwVodJfZZ
+aekybH+zQ/cd/wDf+ev1G8ReBdK/bz/Yf8MaT4c1+CzvRaWM8dxMN6W13boqOkyD7v8AH+dfid5j1t+HfGniLwi87+H9d1PRHm/139l301tv/wB/Y9BJ9GeH/wC2v+Cd/wC2JpC6xe2+vHSYkTU5NPR9k1ncp8+zf/c/9Dr7W/as/ZR0T9uyx0D4o/CfxZpb6wbRbWXzpf3N5D99EfZ86Spl6/I/VdY1DXNQnvdQvbjUb2b/AF011M80z/8AA3q94c8aeIPB8zy+H9b1TQXf776XdvDv/wC+HoA/Wn9mX9nHw1/wTx8I+JPiL8VPFumf8JBd2/2b/Q3wkMP3/Jh3/PNM718VfDf4xXXx6/4KJeDfHl1D9mGqeKraS3tWYf6NbJ8kKf7+z53r5k1zxVrfi65+163quoa3dJ/HqF29y/8A4/WdBdSwzebFLNA6fceF33p/wOgD9GP+CzEiyfE34a7X/wCYRef+jkr5z/YZ/aOt/wBmv462utaru/4RrU7f+zNWdP8AljC7/JN/wB//AByvnq61i91J0fUL271F0/jupnm2f991V3v/AHaBH6uftMf8E9dN/ag8WH4o/CXxpoyLr2ye8hkbzrWZ9n+uR0/jdPvpXzl8XP8Agmh4v+CHwm8Q+N/EvjDw/N/ZMKSJpllv3XHzpvTe+z+D/wBAr5H8P+MfEHhXf/YWu6noiP8Af/s++mh/9Aemax4q1vxM2/W9b1PV3/6iF283/odAyr5nmU/zKpeY9HmPQIu+ZX6h/wDBHv8A5B/iL/rk/wD6Glflf5j1+pv/AAR1/wCQb4i/3H/9DSgZ7r/wUg/Z71P45fAqK68P27XviTwvcnU7ayj/AOXiLZsmRP8Ab2/On+5X4sf+OOnyOn9yv6ZK+dPi1+wj8G/jVrD69rvhWO11ec+ZNqGkzPZyzf8AXQIdrH/aIzQUfhNzRzX7P/8ADqf4Cf8AQO1z/wAGslH/AA6n+An/AEDtc/8ABrJQB+MH
+NHNfs/8A8Op/gJ/0Dtc/8GslH/Dqf4Cf9A7XP/BrJQB+MHNHNfs//wAOp/gJ/wBA7XP/AAayUf8ADqf4Cf8AQO1z/wAGslAH4wc0c1+z/wDw6n+An/QO1z/wayUf8Op/gJ/0Dtc/8GslAH4wc0c1+z//AA6n+An/AEDtc/8ABrJR/wAOp/gJ/wBA7XP/AAayUAfjBzRzX7P/APDqf4Cf9A7XP/BrJR/w6n+An/QO1z/wayUAfjBzRzX7P/8ADqf4Cf8AQO1z/wAGslH/AA6n+An/AEDtc/8ABrJQB+MHNHNfs/8A8Op/gJ/0Dtc/8GslH/Dqf4Cf9A7XP/BrJQB+MHNHNfs//wAOp/gJ/wBA7XP/AAayUf8ADqf4Cf8AQO1z/wAGslAH4wc0c1+z/wDw6n+An/QO1z/wayUf8Op/gJ/0Dtc/8GslAH4wc0c1+z//AA6n+An/AEDtc/8ABrJR/wAOp/gJ/wBA7XP/AAayUAfjBzRzX7P/APDqf4Cf9A7XP/BrJR/w6n+An/QO1z/wayUAfjBzRzX7P/8ADqf4Cf8AQO1z/wAGslH/AA6n+An/AEDtc/8ABrJQB+MHNHNfs/8A8Op/gJ/0Dtc/8GslH/Dqf4Cf9A7XP/BrJQB+MHNHNfs//wAOp/gJ/wBA7XP/AAayUf8ADqf4Cf8AQO1z/wAGslAH4wc0SSJGm932JX7P/wDDqf4Cf9A7XP8AwayVv+Af+Cb/AMB/Beq2+s23hWbV7iE+ZCmtXb3MSN6+Wfl/SgD59/4JOfs8at4bttZ+K+v2k1nHq0Een6JBcx7HeH77z/7jnCJ9DX6UVBDbrbwpFEqxoq7VRVwq1PQAV8W/8FNfgxqvxW+D+7SY2nu7FvOSONf4k+evtKql1Yw6lbSW91Gk8EibZEdfvUAfzA3Eb2NzPb3CNazxPseGb+CmeYlfvz44/YX+E/j/AF97vUNBhe6Iy3mRK2f+B/e/Wue/4dofBn/oBW//AIDJQB+E
+/mUeZX7s/wDDs74Nf9AG1/8AAZKP+HZ3wa/6ANr/AOAyUAfhN5lHmV+7P/Ds74Nf9AG1/wDAZKP+HZ3wa/6ANr/4DJQB+E3mUeZX7s/8Ozvg1/0AbX/wGSj/AIdnfBr/AKANr/4DJQB+E3mUeZX7s/8ADs74Nf8AQBtf/AZKP+HZ3wa/6ANr/wCAyUAfhN5lHmV+7P8Aw7O+DX/QBtf/AAGSj/h2d8Gv+gDa/wDgMlAH4TeZR5lfuz/w7O+DX/QBtf8AwGSj/h2d8Gv+gDa/+AyUAfhN8ldtrHxt8e+JPCKeFNS8aa3qnhqFERNJur53ttifc2J/sV+0f/Ds74Nf9AG1/wDAZKP+HZ3wa/6ANr/4DJQB+E3mUeZX7s/8Ozvg1/0AbX/wGSj/AIdnfBr/AKANr/4DJQB+LNr8aviBpvg1/B9r411uDwu8T239hQ3z/Ztjv86bPuVxm9P9mv3Z/wCHZ3wa/wCgDa/+AyUf8Ozvg1/0AbX/AMBkoA/CbzKPMr92f+HZ3wa/6ANr/wCAyUf8Ozvg1/0AbX/wGSgD8JvMo8zy3r92f+HZ3wa/6ANr/wCAyUf8Ozvg1/0AbX/wGSgD8MPPo8z3r9xL7/gmZ8H75PKi0qK1dP447ZKp/wDDrb4T/wDPL/yXSgk/EfzPejzPev24/wCHW3wn/wCeX/kulH/Drb4T/wDPL/yXSgD8R/M96PM96/bj/h1t8J/+eX/kulH/AA62+E//ADy/8l0oA/EfzPejzPev24/4dbfCf/nl/wCS6Uf8OtvhP/zy/wDJdKAPxH8z3o8z3r9uP+HW3wn/AOeX/kulH/Drb4T/APPL/wAl0oA/EfzPejzPev24/wCHW3wn/wCeX/kulH/Drb4T/wDPL/yXSgD8SoN88yRRJ587vsRET53r9jv+CWPwf1TwD8OL7WdVha1kvhsRXPX597/98fIlejeCv+Cd3wp8D6rb6gti908b/u12KgP+9619OaTpNroun29n
+YwJbWUCbIoUHCigo/9k=</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="ID1">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAAmAAAACuCAYAAACRFrE9AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAG8/SURBVHhe7X0HeFVV9r1t7NJUIL333nvvFZJASKGEhFBCDb1ppInYsY2ICuroDMxYR7GMI2PXGRx1xF6wKyoi0lv4r3V/9+T/eL7Au8lL8oJ7fd/+7iv3nrv3PmWvU+65pwkEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCwSmLY8eOnW4u/H3jxo1nbtq06ZzNmzefy+Pq1asNibp269atZ7e0tJxh6V78TSAQCAQCgaDXAoTmDArJzpo1a/6A47ljxow5183N7dz6+vqLbrnllsEPPPCA48KFCx0uuOCCgfn5+V533313IchSbVNTU+Xw4cMrU1NTK/38/IafeeaZFbGxsZMnTJhw3bRp024aNWrU9cXFxTcUFhbewOOJpKCgQDvW1dVdP3369Jtx75UBAQH1ffv2LY+MjKwsKSmpHDt2bOX1119fe+uttxbl5uZ6h4aGDly+fLkD9Vu5cmV/6kzdaQPkLNpE23RTBQKBQCAQCLoWJB4kVCBIZw8bNuw8kKULExMTL1q2bJnL0qVLg3x9ff0rKirSZ82aNQbEZ6ynp+eY7OzsFnxeA8Jzu6Oj480gVRuSk5Nfjo6Ofg2fXxk8ePCLDg4Ob4aFhe2A7PP29t7n4eGxz8XFZR/+23vJJZfsxfGAq6vrYcgRZ2fnw05OTkeMCK8BkdKOAwcO3A/ZC1324bd9Xl5e+0C6KDuoB85/ITg4+FXo+Dp0fgLf/4jj
+bUVFRbdC59kgcCNB5OpBCAuTkpKCZs6c6T9nzhxH+oH+AJk8hz4SkiYQCAQCgcAqcKqvpaVFI1ckFAsWLLi0vLzcDceUoUOHFsfHx48uKChYGBISsiQ2NnYtznnc3d39cZCSN/HbdyAr34DY/Izf9oHs7B80aBBJ1CHIUXw+guORSy+9tLV///7HLr744mP4fAy/a8d+/fod4+/qPxCvYyBKmvB//qZ+74iYpqnuyd8GDBjQdm91P57H3/k/vmt6U3DdQRz3gQjuh62/wMbvAgMDvwZpfB2k7e/wz1/gi2vT0tIWZGVljYHvCkHOohsbGx3GjBnTj36lf+ln3eUCgUAgEAh+DzAnWfjsPnr06NghQ4YMTU5OHg/ysCQhIeGOoKCgh8PCwt7w8PD4CIRqO0jHbhCQvSAeBx0cHA6BnBxVhIZEhSSGpEYRGx4VoTH9TOF16lzTc0zF9Pyukvbuaf5d/aY+U39lA4ma8gOOrSBoh0FC6SMStV/hu298fX3fA0HbDH/ek5KSsiI1NXV8TU3NEBCzSI6e5eTkXDB16tRzhJgJBAKBQNDLoa/BOru4uPh8HAdPmjQptKCgIKeoqKgxIyNjSWRk5H0BAQH/8vLyepckwcXFZRfIFafnDkE0ckVyQZJhSjgUETH9rL6rz79XMfcNRflO9x9HAg/RzyBnu9zc3L7w8/N7KzQ09NG4uLjrQcSasrKy8kHGApubmwfoI2Zn6VkqEAgEAoHAnsCREy4Unz59er/58+d7g2SlgGSNTU5OvhLBfYO/v/9rIFrbEPB/cXR05NTgIZCBVjNycJyYkwqRzovypfIx/c7RQt3/hwcPHnzA2dl5l4eHxydBQUH/io6OXp+Wljab079z584NAhkbwHwGuZaRMoFAIBAIuhMc2eJ0FaRPfX29W21tbXp2dvaU8PDwP4aEhDzl5+f3vouLy04HBweOZh1GYG8jWibB/jgyoAiCSPeLaT6Y5pM+jXsU/x1Efu7x
+9fX9AkT6n3wgoKSkZFJNTU0q15bFx8fLKJlAIBAIBLYGCVdaWtq5kyZN6s81Q+Xl5aMSEhJWhYWFPerj40OytYsjJ4MGDTrCoK0WjyuipYK7EhX4RexXTPOJn83I8xGQaz4V+ou3t/ebwcHB65OTk2eiXGQ0NTUN5giZrCUTCAQCgcAgQLhO5wjXzJkzL6mqqooD+RoXHh7O7Rte8vDw4JOGfLLwMIOxWgCuAjaPSlQAFzk1xDRvKYqU4fNRferyFxDy/0ZERNyRn58/vrm5OXb+/Pn9uQ5QL1oCgUAgEAhMoe+tdWFTU1NQcXFxTWxs7GpfX99XXF1dt3PNFgKwNrqlRkFMA7JpkBY5XpR/LPlJ+U8J/XoyMT2/vfT4edCgQb/5vyvE9J486uXjKMsMyPoPISEhz6WkpCwZMmRIIcqWm75+THb9FwgEAsHvFxyZmDVr1sCqqqrM7OzshcHBwY8iaH7OES4EU41wqaBvGnDV59+bmBIN9Zs5MVIkVf3PzxwlVCOFIEbafmT4j2urjhNcT+F/7Qr/53n4zHTUkf8dNb0XdcFvbfdXOprmJ4/qsy1F3Uf5Ap8PcXTMz8/vv/Hx8beWlZUNGzVqlKuQMYFAIBD8bsCpRb5+B6QrPzU1daW/v/+LLi4uOxDED6qg2VWB2R5F2WrJZvpDiSIx/F33EZ8Y5OL0g/qGr9xC42dvb+9ffXx8fsTn9/H7f0E63g4PD/9fSkrK1oiIiH/g2jtxzZrAwMC10dHRa9PT09ciH9bm5uauraioWDtixIg7KisrfyPq97y8vDt4Pq/j9UzH0dGRO/zfExcX91JiYuK7+O1td3f3Nx0cHN7x8vL61tfX91fow4cidkGnA/h8EHYchC4kfJpd3ARW2WrqB+UXJep3a0SdzyPT1f3GNwPsgZ/eiY2N/SPsGo7y6MRyqRdRgUAgEAhODXB6UR/pyo+Pj78GpODfCIK7EAwPMyjqgfG4oHmqCe1SYvpd2a8I
+AkeVuL4N5+wHUdoLwvKzq6vrN8HBwZ/Bb88HBAQ8BPLzIL7fAJIzb+jQoZfDr5PxvQgkK3f+/PnF1113XcaYMWPcQYQGTJs2bdCNN944aO3atYNaWlr6ITu091HyoQaOAOG3tuO6detOKqbn88h0mB70PI/rrfiOyxUrVgzC75dkZ2c7Ll++PB7nFuN7dlRU1NBhw4bNhP6LQLwvB5FbFxMT8whI2j9CQkI+4vo+2gu7ucbvAOQI/HLcE6zKf6Z+Nf1ujTAdndCSjO0FGXsLZOw6kDH67+LNmzfLE5UCgUAg6J3gk4tc01VdXZ2QmJjY4uvr+7Kjo+MuBL3DpqM5vwdRBEIJfuNrfbRX+oC8/MppVxCS1yMiIp4ICwu7KyMjY1VycnJTeXl5DQhUDohMwKJFi7xAZC4BiTkfZPYCvm8RpOYs/Z2LveaJP5Kb8ePH/wF2/KG5ufk8bpJL4rZs2TKP0tLSwLq6ujwcRyclJc1KSEi4CcTsL6GhoS/AR++DcHIPN74X8yCIV9voGcUoEVPn81qWR3zm+zW5iH9zVlbWnIaGhlBuAqurLRAIBAKBfQMk4ewpU6Z4gCDUI3A+4urq+uOgQYP42p4OBcreJIoQKFvxG9dHcZpwr6en5/d+fn5vcZ8y+OV2EKyFJSUlIysrK1NHjRoVwNfxwHd9OKJEH3Ibhd/r+iSSd/jgLE4L8uXefB/n2LFjPWtqapKGDh1anZmZuSgyMvJu+PNZLy+vD52dndWeb8etGzRa1lTeMc9A+L6Mi4tbCxKWf+WVV15MnXT1BAKBQCCwH3C0AGQiBgRiua+v71uDBw/ez5EFBjRLwa63iwrwDNq6cFSLr9f5BaTgk8DAwM0M4ElJSfNARodVV1fHzps3z52bx5JkcRTo90qwOgP6jKN+nP7kyNnEiRP98vLystPT05tiYmJu9vf3/wfI7scgZb+SSKEMtpoQYqtFJ2N8mvJn5OXTIH0NtbW1zjI9KRAIBAK7
+AKcZq6qqchD87vTw8PgGpOSQWlDNQGZ0FMLeRBEtRbZMSCXfZ7iX75AMCAh4JT4+fg2I1ZSKioqCFStW+INg9dXXSp0lRKvrwRFDjpiBJPVZsGCBf0lJyRDkx4KoqKi/+Pj4vMO1ZQ4ODpy6bFXlU+WreZ6bispznLff29v79aKiohlXX321F0mgfmuBQCAQCLoPJF58abKfn99fENx+QqDStiE4WUDrTcLgazJ6wjVCexDMPwkJCfl7QkLCivz8/NqRI0eGISj3J9n6Pe2+DlLJKVKSS004MkSyCdKjrUvbsmVLm/B3XKJIKI+nk5RS/u+nrgF14sgsn3Ksrq7Oy87OnhceHv43T0/PT0ieUVa1h0AUGTPPf1Ph//pasQMo81sLCgoWLF682EdGxAQCgUDQLeAoA4JPZnBw8F8cHBx2IHhpUzynAvGiDQzGDLQ48mlELpL/JjAw8NmkpKRVQ4cOLZ8/f7431yWBgJ7d1QSiK6CID4kDn2pkfnJKlFOjzc3NA4YMGdIP9vdZtmyZ19q1a9MXLFiQBRKTmZGRkQk/ZCKJ9KioqCF1dXXTQTrn4zi7vr5+XllZ2bzU1NR5SGt+RUXFQvy+uKamZvGoUaOuKC0tbUZZKYN/88LCwopA3Itqa2uL4MvSJUuW5E2fPt39/7TrWtBmEOYL+EBDSUlJJey4AYSaD4fsRP5btU6R/3EEDceDvr6+W0HCm+fNm+cKn8oaMYFAIBDYHgxe48aNi4qPj1/t5OT0LYKVtj2ApSDV24R26CTysIuLC/fR4t5ZdyO4NkyYMCGM76DkwnjdFXYNEIEzqStHfkCGLuTrnG699daAoqKiMG54C9JU6+/vXw2yxHcn3hQZGbkaJPOOmJiY5+Li4t7y8vLaAj9scXZ23obz9np4eHBd2z5854jRXpCPX0Gm+LTgbhCyPX5+frvweUdQUNAOpLUDRHUHSNa3SPNDXP9BSEjIx5Ct8OeL0dHRzyYkJDwHvZ7L
+ycl5Djo9D1L7AnSaCr27dSSJJBT5ew7ufzH0yIbeK2DLC5yqRHk4pJNwi+Vl0KBBbUQdPjkA+/9dXFw8duXKlf315AUCgUAg6DwQ0Lmn02wE520IPNqTZpYCU28SFUDx+TCDLoLvv0ESri8FOGXFKUV7HdXglB5HrriFA/dXA0EMAJlKApEoLSwsnJqYmLgURPnu0NDQJ5BnzwcHB38IQvQ5yOVPIFTcX4ub3h6lD0AgNPJJX0BIqg+DcPG9ins5wunt7c13b/4P17+IdF8Giforvq/CcWVFRcUqkJgZ8GEpyFdxTU3NkDlz5pSWlJQknX322b64ly/O84Oe/tA5kDJjxowgvm4KZD6ovr4+GLqHcmNe3bQeA0nr2LFjLy0rK8uB71b6+vpucXR03EM/6eS8reyQgKnPqhzh3N0oP4+S5DItPVmBQCAQCIyDgSQnJyc3MDDwKQSbA3qPvy349EZhMEXQPKKPdL0BgnAdgm4RSMFgjojoptsF4P+zSAS5sHzRokUuIDhRID3lHL3i9FlISMjf/P39XwRJ4iam3MB0L8gBCdYh5FOrIlecMlPHfv360Q+tIFd8iEDbgwzk8w3k8UMc3QTJmos8HzNs2LCigoKC6BtvvDF0+fLlDvif064XcmQNn8/mU5wbN27UtsvQ1T1lwHIPnzuAOI4AqboX5PML+JI797dLxPgf6wd8+nV6evrSm266yUNPTiAQCAQC6/Hggw8ORCBpcXV1/Y6BhT19FWx6m1B3BkiSEwTTjxBU14waNaqcIy/2QroU2QLJ6Ttz5kx/EK3izMzM6REREbeA8DwWEBDwFnTnK4Y0kgW7+P5FzTZln+ln9R3ncnuMfe7u7j8inTfCwsLuB9Fanp2dPbauri5n8eLFfrhvP46mcVSNesh6pv8DpylJOBsbG0Pi4uIuA9H9D/y5X/nWtIwp0X1+CPn1HJ8OlqclBQKBQGAVGHQmTJgQCzzIQE/yxcCCz78JNvYsioxc
+euml3MvpF39//2dBKKfV1tb6cdG5bm6PgD4m2UlMTLyoubnZu7S0tAifZ4Js3QE9n/fw8PjC2dl5t4ODwwESKDWSReFn01EYfqad+n+tOJ/vhtwFsvBBcHDwI0h35dChQ0dOmjQpCuRqIAmF/gCBkCwD4IhfWVmZc1ZW1tSQkJB/c883846JqiPME3007Nvk5OTLH3rooYv1ZAQCgUAg+C0YlMeOHVvs5+f3NgJ6r1xkz+CnP6XGtUxfRUZG3gPSUcon/HpqukwRLuowc+bMCBCu2oSEhFWBgYHPeHp6fgrC9AsCOke1tHVZOnHUxNQu08/qPHw/DILJxfKfhIWF/Y3vWaysrMxbtGiRB59s5HQa76+rIugkWIbmzp3rDFI7JSgo6HWQLotEjHnE30GiD3IvMq5705MQCAQCgeD/g+QLvfUqNze3Txg4OKKievS9QVTAw/EQd0LPyMi4cfLkyQnjx48/XzexW0Hiw53ap0yZwn3CauPj428E4XoOROkbEKZ90PO4PaiUWLJNCc/VR7oOglz+5Ovr+0pMTMwN+fn5w+rq6ny4xYJMeXUPUF/O5Ouj+NAD8uEN5MthEn/zPGN+oVy2crNeTvkKGRYIBAJBG0AWzkhNTa0BMdimk5heQ76oK3UGOTkM4vVBVlbWkrlz5wZwxEk3r1tAAss1XM3NzU7l5eWFSUlJS0C4noBOX5NwQT/t6VFT0mXJHnPheTrp4hYZvyCQv4i8asG9sqZNmzaIa9gkqPccSMRGjx7tlZiYeK27u/u3qv6o/GM9Yn5TnJ2dtyYkJBRJfgkEAoFAIw5xcXFVCA6fMkiYBn97F514HfXw8PgyJSXluoaGhoDuHAGi77imCkTIB0RoZGRk5O2cvuX6Leh3iP40J1zWEC9FumgfF9D7+Pj8LyYm5moQuzyu45JRLvvD6tWrzxk1alQeCPLTIF3aPmIqr9WUJPMUJO09lJUSIWECgUDwOwfXR7m6un7EgKGChSkZ
+sDdRwYzTPSAnu6Kjo++ZO3dufHeNeDFw6k/GeYEQjYqNjV3n7e39sYODA6cVj9CPDLRKXxWErREVpJmOk5PT9qCgoIe5wef48eNduXBeV0Fgx+C0ZFpa2hLk3w/6WkStzKp6RTJOEpabm1ssJEwgEAh+p5g2bVqol5fXq2qExp7Jl9JNX2dzGOTklYqKisqWlpYLdXO6FHwKjttWjBgxojwyMpIvHv+Ai985Amc62qGORkURL6T7dXh4+O2FhYWp9fX1F3GUTVdB0EvAEUqWTV9f3/+hbGiv6jIlYfzO6cg8QL9EIBAIBL8X8D2AUVFR6xgUVIAwJwX2JCSJJF/u7u4/ZWZmXj1r1iy37hhB4GhXXV1dZGxs7OU+Pj6vOjk57SLpos8UcbWk78nENBgzPdj1dXJy8u1Tp05N7OltMgSdB8tmWVlZjLe391PIY42EDR48WMt3lht+9/T0fHn69OkB+iUCgUAg+D0Ane869MK3q6lHexVFEDk6BAL00qhRo4r5hKFuRpeAo06TJ0++GOSriNtYuLm5fYP7t70fsKOky1SYBtNDHvwYHR19Z319fQIX8esqCE4RTJgwIRDk/TGUm+NGwviZZQmdoPWPPfZYjzypKxAIBIJuxsaNGwf7+fn9Q5EJNRpjj6ITxIMxMTF3I5j56CZ0CUi8brvttoEVFRUjuZjawcFBG+2yFUlVftYD8aHg4OCXq6qqymbNmnWBroLgFMTUqVMDIyIiNvXv31/bW8+UhJGAFxQUNOqnCgQCgeBUBhr8cWz4VY/cnCjYi3DK0cnJ6afk5OSFN998c5fuJo4gyRcxjw4NDf3X4MGD95J00T+W9OqIKD8zXUdHx+/i4+OX8f2O3TGNKuh5FBYWhvO9ncx/NYJKMkbh73fccYe8O1IgEAhOZWzduvVskIwHVACwRwLGAEXy4+7u/n1ubu54LoDX1bc5uFEriFepr6/vM7h3G/GyxTSjEjXaAX+3+vj4bMnLyyvt
+SpsE9gl0fIrR8fmGHQuWCQrLGzoZe3JycubopwkEAoHgVMTs2bPDQTbeIsGwJcmwlSjyFRgY+HVVVdWYrnp90LFjx85samqKA+5xcHD4SSdImg62JKVm5OuRioqKUF0Fwe8MH3300TkpKSmXDR48uJXES5UNlpOgoKBNX3zxRX/9VIFAIBCcauBrcVxcXL5VDb89CQNS3759tZEvki+uydLVtinWrl07AOlP9vb2/hB+0J5oVPc316kzwvT0KaejkZGRD8+fP99XV0HwOwXKXWhISMh/1CgYywmJv5ub20c1NTUZ+mkCgUAgONWQmpo6y9HR8Vd7m35UZAW6/RIXFze+q8gXn0oDGbqXG6fyfmrUy9ZCe/RRxlZ/f//HJk+eLORLoL3MOy0tbbb5KBjK/a6srKyZ+mkCgUAgONWARv42JyenVtMeeE+LCkL4fCQlJWXFd999Z/OnArnYvbS0NDsoKOg/HJFSwc9cF1sK7+Hn5/dGZWVlkq6GQHBadnZ2vJeX16f9+vXT9gZjJwAdgmNhYWG36qcIBAKB4FRDYmLinehta4THHggYdeBIEYNQcHDwg1OmTLH502AkXxkZGYWurq5vkxRZ0sOWQptIcJ2dnXdlZmaO4/11VQSC08aNG+cMsvU3lnvTcuPm5nYnykqXrHkUCAQCQQ8DhGA1R8C6YwTIGqEOHAnw9PT8JicnJ1dX02Yg+UlNTS0A6XyHpIhBr6vt5j0oERERDwCDdFUEAg0okxempaWtYjlkx0OtQUTnaHNra6uTfppAIBAITiUkJSVNARnZ2VVrn4yKCj4JCQmrvvzyy/N0NW2G6urqZHd39y3dRb6YPu/l6uq6NyMjY6yuhkBwHAICAiZy+lGRdZadsLCwR0HO+umnCAQCgeBUQkVFxRCQgy8U8elJUaNf3t7en+fn56fpKtoMTz/99MDQ0NC/8l4knF1NvpTwXrDpjZycnDhdFYHgOPj7+zc6OTm1dUBIxlBm1sh0
+tUAgEJyiuO222zz9/PxeZa+7p0fBFCmKioq6g1tD6CraBAxk6enpM/m0Y3c+cKBGM2JjY19ZvHhxhK6OQNAGls3IyMgZLJMsLyRhjo6OR5OSkq7WTxEIBALBqQY2/iAHt6Hxb3s5sDmJ6C7hOjQXF5cjWVlZ43X1bIb777/fMyQk5DmSvO4kmmpKKTo6WgiYwCK2bdvWLyMj42aWF1U+nZ2dt+fk5NTppwgEAoHgVERlZWUJiM+27ngisD0h8SMB9Pb2/iY7OztLV81mKCgoGOHu7v5NT5BM+tXDw+Md2JWsqyMQtGHWrFkeERERT7BsKsKOevDm7Nmz5S0JAoFAcCpj8+bN54aEhNzHhl9NA1oiEl0pioAhEP27vr7e5iNFSUlJVzg5OR3pbpJJu3hPBweHwwkJCZNlTY/AHPn5+Vmenp7fsZywDqLctKIerOuq124JBAKBwI5QV1eX6eHh8T5JkDmJ6C7hwmMQlb95eXm56GrZDMHBwVdzc8vunH5UwqBKv4aGhj6zdOlSP10lgeC0LVu2/CE1NXUhyybLCMXV1fWbYcOGjdBPEQgEAsGpjGPHjp2RkpKyeNCgQdoreXpqFMzZ2flvUVFRrrpaNkNPEjA1Cubo6HgkOjp6IX2tqyX4naOysjI4ICDgVbUtCiUoKOghrgvTTxEIBALBqY7HH3+8P4LBn9VC4O4kYYqkREZG/qexsTFSV8lmSExMXMYny3gPS/fvaqF9DLJubm5fFRYWVspUpGDr1q1np6WlLUDZ0F4AT3Fxcfm0oqKiWD9FIBAIBL8X8OXU3t7e2tOC7I13FwlTBMzLy+vrrKysbF0dm4Gkp6cW4SuhP0nC4N//IcgWCAn7faOgoCDT09NTe/iFZYMv5I6NjV0tI6QCgUDwO0VNTU0UiNDrijR0F2EhOXF2dm7Nzc2dpKtiM9x9990uAQEBT6nRPUv372qhH01I2IelpaXD1qxZ8wddRcHvCHzHaUhIyEMkXyyP
+7BigTGxuaWnx1k8RCAQCwe8RIGEFgYGBb5MwdNd0pCJG0dHR61evXn2prorNkJaWNtHJyekXBr2eGgVTJKxv377HoAu33Fi4YcMGm9sqsF9s3LixL8r4KpQHbUpcX3j/XkVFhc3ffSoQCASCXgZOjzU0NMR6enr+q3///tomreZkwtZCcsJXEXl5eX3VFXuBvfnmm/0iIiL+xKctu4tUWhJFwuhT6HIwKipqw6RJk6LGjx8vo2GnODZv3nwWOgLNjo6Oh1jWWQY8PDy+KSkpqZMpaYFAIBC0oaamJiQ4OPhREIdu2UOLxIgSGxt7a1c8CcYF/u7u7i8w+HXn9Gp7wgAMPVoRhD+Ji4tbNGLECHfZ/+nUBPM1Pj6+Afn+I8sfy7mbm9uOzMzMuZLnAoFAIPgNHn74YRcSIgcHh1/VguGuIi5qFAwkaWdJSUmlroJNkZeXl+Dq6vqKWn/TkyRM3Vv360EfH59/Z2RkjAdRdOBoia6yoJdjw4YN54FoTUZeb1cjXyBfP+Xm5s6TkU+BQCAQtIvm5ubz0tPTJyBofNodxIUL1YODg1+uq6uz+ZYURHFxcYK3t/eLID1HSSgt6dDdQj30qd79IGKvZGVlzRw5cqT31KlTz9HVFtgxkE99QLJio6OjY44dO9Y2orVmzZpLkpKSljs5Oe3p06ePlsfI328rKiqa5SEMgUAgEJwUnCYZMWJESkhIyN9BFg6QJHUFeSGxI8HD51aQsHvnzp3rrKtgU/Bde5GRkQ/QFjW92pOjYUroU12fA3w7QWJi4rUNDQ3p48eP7yujYvYFbhkxffr0fuXl5XmBgYF/AbH6CcT5ZrWeq7Gx0SsmJuZO5OUhPnhB8uXu7v5uYWFhueSlQCAQCAzh3nvvHZienj4X5GAbAoq2iaQpgbCFkAiR4IGIHcG9/vj888876Le3Ke65556LMzMz57m6un4B0tOqEz+7IGIU+hY6HXZxcfkJxPfJ4uLiaZMnTw6Jioo6
+X9YN9Rw4KjlhwgT3IUOGNIB4/cPR0XE36sN33MeLv5Nc1dbWpgcEBGxG/h1VZRnnPjdp0qQ0WXAvEAgEgg6BAWbkyJFx4eHh9yH47OyKaUmmxXQdHByO5OTk3PbII4846re3KWhLRUVFImz5G2zR1rnZExFTU5PUafDgwQfc3d2/9vf3/2t2dvaUyy67LGr48OF9W1paztbNEXQRSLrg54Fjx44tiIyMXI18+ATlYx/KzM8gVn8rKChI4rsdr7zyyos5fezp6fkx13uRfLGOxMXF3bJs2TIvPTmBQCAQCDoOkLALuKEoevr/RDDaS6Jgy2lJEiAGMByPRERE3FlfX++m39rmuOGGG/px4b+vr+9zuLf2TkxFxOxFTMhYK4gpydj3CP7PJiUlLRk6dGjx6NGjvUBWL5CF3Z0HiXlxcfH5NTU1bkVFRWWcCvbx8XlDL+cHQYZ34fvDmZmZOSTAJF/wewLIGZ8a1qYcmU9+fn7v4voxspZPIBAIBDYFp1Nuu+22gQj8DQhI/0HwOUjyYksixvQQ9DiF89SwYcNiufZGv71NQVtmz549uLCwkFNLm/nkJwmPrYmlLUSRMQq+H3Jyctrl6en5QVBQ0MNxcXGX5ebmFk+fPj1g/vz5/ceMGXOuTFmeGFwQT8K1cOFCJ5CuDGB2eHj4BvoUpItrHlv79et3BH7+PiYm5u7a2tosEi+WRV7DhfbOzs7fsKyy0wCCthPn3bV06dKwriqvAoFAIBBoC5JnzJjhmZ6ePg9E7B0GLVuNInEkjISDgc3Dw+OdioqKMddcc80F+q1tDtqC9AcWFBSMCA0NfcTNze1HEJ3D9kjEKNSJflaC3w6BDOzx8vL6LCAg4JnY2NibQMgaQRpSFi1a5MEF/SRlHCn7vZED2ku7QeTPmzp16qXjxo0LQnkagg7EYuT1/fDZf11cXHZy6pvljdOI9CfK9P+ysrKWlJWVhXF0DOmc/vDDD/cbOnToeG9v7zdRNo7y
+KUfkxSGk83JVVVU1nx7WbysQCAQCQdeipaXlrMmTJ/tyHYyvr++rgwcP3kPi0lkipkgYSR3IxS/R0dG3gSD5IhB22cgOg2x9ff1FNTU1qXFxcdcg0L7t6Oi4F3por5ExtcneiJkZITsC/+0HkfzF39//Ay7oh//uSEpKWox8qq+urs6bNGlSwKxZswbSXpKT4cOHn828pA90d/QakGRR9/z8/HM4qgWy2W/27NleJKDl5eV18fHxLSBJ64OCgl709PT8CuVpL/xzmHlI0qVPHx51dXX9ISws7EGkM4ZP4ypfwFf90dGohS+fw3WHLrroIp7fivLxUWpq6rxly5a59Ea/CQQCgeAUAEcJli9f7lBYWFiHQPcsp8gYpGwxisQ0IEcQ8N4oKioav2LFii5/nyKnm0aPHu3EdWIgL2sZbEEuScaOkOSY2mUvZIx6mOqk+00T/HYU+h8CodxPQksiEhAQ8AbffJCQkLA+MjJyWXZ29vTS0tIqEN1MkIpULiKPiorqy2lNELQLQejO5UjaunXrOMVJwnYGiYeZGB5hU9eZpEEyczrLFO/Fe/LeTU1NF1IXkKR+06ZN85k3b15qRkZGLjA2LS1tNnS9JiYm5s98+hBkaRufJoXsJ2mC/VpZJJFWZBo+OopyuhPnbgZJWwjyFkMi+n9anXYaOhZ8anakl5fXs7j+EEe8eC189zV+vxoENpDETz9dIBAIBIKeAwPptddeewkCeWloaOif3N3dv0Og09aJMeiRHHRESCg4WkECERIS8hj3YkIA7LJpSQWSARKASZMmeY4YMaIGAf52BOS3Edh/hV4HGdT1YN5GfuxFlE6muildTUkk5Cj+4zTmARCS3bBth6+v7w98aTTy7/W4uLj/REREPAwSdBOI2s0VFRW3Q5aDiIz18fGp4uhQWVlZ7bhx42pBikbX19cPhY+i/vCHP4Qg7fD2BP8Hp6amJsyZM2cECNWY6urq2vz8/Fr4uBa61IJUzamp
+qbkV5OgWDw8P3vtBkMX/QI9/Q8cPcO8fSKAg+1EuDiJNjmppREvZpuxk+eMRdh7E9T+CfL4Eu66GHVkrV67sr2e3Vn5ra2udc3JyJnPEjOfru9m3wqYvoNONjY2NcSTo+iUCgUAgENgXOB00atSoaATZy/39/f+DILkbgeyoKRFjkFSfrREVTBF0f+STkgj68ZxC02/ZpVBkbObMmS6wqxDE43IE6cdBRLaBMOyBfoeoH4V2KTG3wR7EVC/12VRn2sB8oijyPGjQIE5tHsG5R3DOIXzeP3jw4H3Ii30ga/vgh30gNvtAVHbhnC9xzac4b1t7gv8/cXBw+A5kb5+fn98+kL19IFbc6mEf00UaB3kvdU/qYOpb08/8z/yo/09iuRs6fRIcHPxIYmLinOHDhyevXr36UpItPWtP4xrDhoaGJJCyVTj3PVx3RN9M9QjI37vZ2dmXNzc3h8jTjQKBQCDoNeATZ4sWLXIpKyurQoC7l4QFAfUAAyQFn9sCKT+fSBCMtSOvAzE4ioD9ZUxMzJ18Sg3BsY9+y24B7eLU3IQJEwILCwsr+WQcR+cQwN9H0N8JEnEAuh5RdipyQP2VvdbY3NNiriPtoJh/1/OkLU+ZVycTpq38Y+oj/qfSNr0/PytR39W1+Mxp1oMghL9y3y7kxePJyclLy8vLK+bMmeOXlpZ2rp51Grg4H+WSW3k0gDg+irL0o1qIDxK4JzQ09Pnc3Nwp1dXVPvIaIYFAIBD0WnAEiaNVVVVVQampqdM4euTm5vYDgq02Rckgahpo1ef2hOfwOgZeEB7uHr+hpqZmyIIFCy7l+iH9tt0C2sZpKY76TZ8+3R025mdmZs6Ijo6+nVtcgJR9hgC/y8HBYT90P26qTJEMJco289/sXTqqr+l15mL6vyJ5imzBlyRbezml6O/v/yaI+H0ZGRnzS0pKhpA0xcfHn2c6ykVwjRenkznVGR4efjeI2mdI9zBJF4/4/hXX/KEcFd91110c
+JZPtPAQCgUBw6oD7VPEJvIkTJ8anpaXNDw4OftLV1XU7Aq62rkoPsm0BWAXr9kQPzq2c5vTz83uei7Jra2sDSfhIjvTbditoI6csuQ3EnDlzfEaOHJkDUjYRgX9VWFjYX0DMXvb29v4cxGw3yASn3dSUW9vDC4p08LP6bm57e6KuoVj6v7vE9P7qsxr9Mv2dQvtMBedpDw9wShLlYzf89SXI1vNRUVHrQbAuHzJkSE1dXV0MytFAPgVpntckYPD9Rc3NzWHZ2dmNuPY+kKwvkO4hjqDCt0eQ7o8cuUSZmcoywzzTLxcIBAKB4NQFnyTjQuimpqY47isGcrLJ09PzOwTJ/SRVJCDWEg+ex/Nx7UEE1m2hoaHrQMKGIwA72cP6HZIyjsJwpAx2Dxw3bpxveXl5Br6Pou1xcXG3gJhtACF9gaM68MPnEBK0PZzS5KgP7DwEO1sVgeFRjSCa/sbv6nf6hb+R+Cjhd/5uybf8X6VjSVQa5teZp8fP+iildr7SSaWD/4/idxKsgzjuBTnieq2vQKL5hOY/IyIi1mdlZa0AeRo3YsSIXJAj/5kzZ17C6URLm82SgPE/5LUzzi9ITk7mFhTPoiz8BH24Ro9TwoednJy+DwoKehTnzmlsbIzh9LWl9AQCgUAg+F1AkTEExUiOSICM/RVB+UOObCGAapujMqgzeKsgbyqKFPB/BnoGeK4JAol5Kyoq6ka+wqe2ttbB3kY5SBxoO0kip864MSy+u4OUhldVVWXGxsYW4TitsLDwchCUJQkJCX8CuXgavnnMzc3tnyAZH4CwfOHh4fEpfPCxs7Pz976+vnthNxe278X3vfDhXhCdvfCPEpIebYG7OirBd06TavufKRJnKjwHaR3mdeaC63gtF+jvxb25KH8fdNyB75+BVG4D8XkfelPnTbDjPm6BUVpaOr+oqKg2Jycnc9q0aVHz5s1z5dO0HMHk+qv2RjE5wkV/cd+uysrK7JSUlDnwA8vMx5zu
+ha4kXYc4wggdPkAZuC8zM3NCSUlJKNfvdfdUtUAgEAgEdg+OSHCkCEHYm7vUR0dHrwapeIWjGQj0XMR/3OhYe6SM/+ukja+W+RWE4M3w8PCbEITLly1bxp3iz0cgt/vRD+pIMgISoe3szndz4vP5zc3NA5588km/1atXR5BYwDdBIDMpICVVIJqj4LuapKSkGthcA4JW079//yr4rTY7O3sRSN2teXl5N8fFxd0UEhJyEwjbTfDT6n79+t3g4+NzL0jwyxkZGVtwfI0C8rIlMTHxGZCZ23kO/HuTt7f3TfQnyNRNIFK3jhgx4nrcbwoI3whcM7KhoWEkN3/FvUNnz54d/uc//9kXevUD2bqAdnAxvNptXjfVIvg/Rw/VlG5ZWVk+iOmCwMDAjdD7QxIu6M4RQr678QBI57d+fn5PcyE+dCoGmXXj/Uja9CQFAoFAIBCcCAy+XOMzf/78ixHMk9PT06cj+N6PAMsnDn8F6eDasTZChu8a+SIpMyVmioxBjnBECGTs/YiIiHu479OECRNiues5g/zJyEBvAG0wF/zcJiRzmzZtOgfE7RyOvNG/IFOa4H9tJG7evHl9r7vuugEclVTS0tLSBwSMI4jaubyOwjSYFtPUp/NM72sIuOYM5gNJGt+9WFtbm8L1cyCcNwQHBz8NEv41SBa3quBDDftJvqDTN/7+/ptA1Jfh3OG4xo/XyxOMAoFAIBDYCAzwHM3g9haVlZWFKSkpl4WGhv4VhOADELLdJGQgWa1q+syUhKnP/F1fj8Qn6g64u7tv57ojBPCVxcXFI7jTOYJ4HxILEgL91gIbg1OvnBIGmb4IJNidm6NmZGQ0Ih9WcXsIT0/PTziViTwl4eI+YZxS5W7+b4aEhNyXkJAwH2WhiK8f4rQiR9Q6QvoEAoFAIBAYBIMup+SmTJniUV5eXpicnLyITxr6+/u/BWLF9UecnmrbzJNHEjFFxnhUhAzfuUh7D677Iigo6NnU1NTrs7Oz
+x4IYpEyePNmRoyogDRwlE1JmJUiIOBLFUbXExMSLuJkt8ioJvhzGzVEjIyPvBAF7CT7/hr6ngGjtATHeA/L1M4j1OyBbD3KvNZCtmkmTJkUhvwempaWdSwKn30YgEAgEAkFPgoSMI2R8UfKIESPSgSYE/1tBqJ5BMP8IgZ4bpao9udqmJhUpMyVqOOcIp7i4XYGvr+9boaGhD4E0rMzMzBxZWVmZdOWVV3pz6pKjOCdaMP57AMkQ16XB9wNmzZrlUVNTE56Xl5cNojUGebAUpPiBgICAV+D/T5gH8OmvnELm2jwQrV34vg3581J4ePg6kOi5xcXFFUgjig9OMD9/7/4VCAQCgaBXgVOWnErkAu7Fixf78Yk5Pg0XExNzdUhIyEMI+ls8PDy4J9cuR0dH7TU4IGJHSca4O7qayuRRJ2qtIGUHcc1OHx+f9/39/f8JcrE2Ozt7YUlJSXVFRUViQ0ODd1FR0Smzpuxk0NdsDeOTq56enq/6+fl9hOP3kJ1eXl47Qbh+cXNz24XjD/jtPRCxZ0C0bs/IyFiQlpY2HHmSyhFMjpDJyJZAIBAIBKcoSMpIGvik5dixYy/llg9cT4bgPzYlJWVxUlLSGpIzyBYQhk+cnZ23gzxwKwdusXAYopEx7qJOkobP2qahgwYNOkQS5+rq+gWI2UsgZdPXrFnTV7/tKQv4sm9wcPDVkJ9Brj4EOX0yLi7ur1w4j+PM8vLyUWVlZZnz5s0LIzGFny7g4n3ZCkIgEAgEAoH2BB6nMDmlyPVeK1asGARy4Tpp0qTEcePGlYGQDcvLy5uTnp5+JUjWlTExMQ+kpqY+6+Pj8xRIxb/8/PxIvHaDhO0GYfs1Pj7+rpaWloF68qcyTs/KyrqYI38LFy50IMHitCFJLsmuTB0KBAKBQCDoMEgkOGoDUnV2YGDg2bNmzbpg3bp1/aZOndoHZGvA0qVLffBfOMhIBIhZBAjIYHyXBfsCgUAgEAgEAoFAIBAIBAKB
+QCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCHoVztCPvQNbtmz5A2XNmjVtor6PHz/ermT48OFn8wi1T/8/7U+MY8eOnWnJvq4Q3mPr1q1n457dVgCUfZb0sbXwPrgfpVvsw31O5z03btyo5TlF6WGuW2fExC7m3Vn67bscuNeZXW2bqZjYaUhYpnltS0tLW77j99Ops6qP9iDQ7+zNmzd3Ov+Qzln2ZJe1YqltZD4ZtYXnU+gHPZk2qP/Nr+kpYZ6zbOrqdTlQX3tNneWR+uqqnxSsO/n5+efMmjXrgrS0tAsDAwPtSi699NI2GTRo0AWw77g4VFxcfH5WVlaEn59f+pQpUzwslV+7ABWnsuPGjQvKyMgoHzZs2ILS0tKWkpKSy5RUVFRchky4LDw8/LLIyMjLYmJi7EJCQkKWZmdnN6Lw99XN+Q1gz3mLFi3ywHlpsKsR31toX0FBQZt9tpa8vLzL0DBdNnny5CtQiOuDgoLy6urqUpqbm70TExMvYkOhq9cpmOSdL/Ius6ysbHJ5eXkLfrvckl62Eto3YsSIyydNmnQ57jsaZSIXOsQvW7bMramp6UJbBD7YdjrzDmm64JiA8je8srJyAe6/hGWQZTEnJ+cy2GxRx44I7aqurr5s4sSJi2fMmLFk1KhRs3Cvstzc3IwFCxaEIj8vHjNmzLnUTVezw0AaZ06dOrUP7hOEhiIfNk5BPaNtl8fFxV3G8mlL20xFzz/NTuTXYh4NyBLUt/mNjY0huimnQc/42NjYy1Efr7BU
+T7tTWC5CQ0Np4xL4dHpqamrJ0KFDY6GvA8uTkbyrr693S09PnxYcHLzMntq9kwl1jYiIWJGcnDx+5syZl9AW1smamppU/L8EPmoxv6Y9YZ4ib1twbYHmFB3wjR/SX4S2rcfznPYyz9EWLUG7Ow95Xsb2CO2ss57nNukkMh3YfRHaAV+061loFxpRZ+mfy1nuWK+6qs6yPWBMQd0zXGfRTl+B8r9ozpw5KbopvwHLR21tbR/EqRDcrzwzM3MuytANOD6OMvCkt7f3E/YiLi4uT4B4UTb169fvH8j79Rs2bHDSTTltyJAh/VJSUpag3v8V7fXt+L4ecbEG7e05+in2gdWrV18KJUfCwX/x8vL6zMnJae/gwYMPOjg4HDIX/G5XAtZ7aODAgYcTEhLuQ6HUGhlTsKKgIA2BbXfBtrfd3Nx24br9lmzrKoE/qed+HPd4enruROHZCvb+CMjEFQjuaSSOHWkcGESuueaagQjctQgOf0a6Hzk7O/8K+w5Y0qMrxNHRURPkwT7ce4+Hh8cP/v7+/w0LC/srGsLZ06ZNi0ED2EdX2RBuvvnmi9HgVKABuANpbkHaO3CvvbivVjZVGTDVx5ZCu5h3uMdByF53d/fd8PE25N1mEOhbWJmRd64dIdLIuzMbGhq8QR4no2w+jHS/QIOyR+VdV9umROUf7VSfrRHWOfjhMwSaItqzffv2C1EH1/I/NIht+ve00EbUvQNs05B/LJuvR0dH34mgWUtixREFLUNOADTiDWg3Dlx88cUW72Gvgjyi/YcRmJ594IEHHGkLOn9OsP8Bvd20eJ250IfMU9TvX9CBXag5BeCICur4AuT5QXvLcxwPMs/R3u7w8fH5D4jRfehwj0V99edonW6CIbC9raqqGoT2doweKz9wdXVlndXiibkOXSmsZ0brLPVCOd6BDmyTblIb2IZNmTLFH7Y1I5b8HX77DPmt8QDk7ZFLLrnkGAWf7UJQdo+hDLcJdUOH9WEQsAG0
+hySruLi4CW3SQyBed8DmWxBLlqO9fRRkvAz2dsuMzQnBxgdsfQh6L8/A0XvRwLRCLBpsj8JMAPM9hsC1Ez35LFOncpgVTD4djc8GFNRfkEFHaRulOwsT78N7UleK2f0PoQLvQIF/CoVjLEdWdPVPCjQkf8A1QxEE/4G82zNgwIBWSLfZpcTUPvVZt7EV/x9E0PsWDf5GBLvSO++88yJd/RNCt60AfnkStu1Gem15Z3pf3lN9t7WY2XLcbzxCjqAh3Ofr6/sOGq0VINIB1pLo+++/vz96zpNIxGEDA7tpupqo8mKul62E91Cf1f2tEZ7POsfrUbduRz27kDaNHDkyDL54RZ1jL2JqJz9TPxyP6nm3lSP6TU1N3gyuWuaY4c033+wXExNzJxt5e7PtRMKyw/aAeqP+XafKZmpqagKDa9++fQ2VL/oOdfkj09ETEliUgSd4n64sq50RVW6hfyt8sR82fAJ/rERbG2JtfSUee+yx86urq6tA5l5Em7QPabbSJxTeRx3pB/W5K0XZZUT69+9/DGV+84oVKy7VzdKwaNEiL5SLZfDNh9D/uPZI3Y92URThUd97Skx1YPkDB9iOuJGs6vGqVascQbzuLioqGl5YWPhnyBMlJSXz0GG8GnHlatT/8zXjewq33HLLhZmZmQuhyA5mDB1OY0ydbe9CXVlI4uPjbzUdZUGjehaH3dFD+QJ2aaRSnd/T9pnqwKMq7KjU+yMiIh5BDzVWN6NdsAcXGRm5AMTyB3vLO3P7WDkgrew9p6Sk3Dpp0iRP3QyLIPlCr2U2zv+O19pr3lFY9uh/fD6EhvmdoUOH1j/99NMX6KZYxB133OGB3vgdSGcPbVPp9bRtRoQ2s/ePxixTN+u0xMTEkewI8T97aKAtiXnesXxB10P+/v6vgUQXW1obU1NTExUQEPCGKoe9RZgHtJEdIPT4q2gLg1N6enqTo6Oj1lmzJp9UOjyGhIT8/bvvvmsr34gfGW5ubt+TkFuT
+Vk8I89y0jtFuHA+z84OgXGfN6DXOGZCRkbEcneVfVedDpWd6L3sW6ox4wdEvrSwQ+nRjKeryv2HLIdMy3lts0/P0KDjAGq7D0007bfny5Q6lpaV3koChnfobyNcTsH1GRUXFysDAwFU9SsDYa0XluR4G7NULpEXj7FlY4dnYI/B9haCdoJumzc+DnEzCOT+YBjh7FaUfKwj1RWX4HxrJLMXkzUGCwrUOKEA7e4N9SnSicgS9jxeqqqriLNnHABgXFzcLeat1CnidvTbspsI8YMOMBnpvbm7ulWjY+ukmHQfY5xobG/s3XHPE2gBoT0J9qTfKHhu85WrEubW19ZyYmJhb0InQynBvsssk774oKCgYbTqKTuTk5IwEydhrzyTDkrA9oW2+vr4vX3PNNR60ZcWKFYOQT/fyd2vbDdrMPAVp28u1XppTANTfM1NTU2ehLLR1knqTsH0BIfkRnfX5yPN216pOnz69HzpMq+CvQyz7ltKyZ2H+Ma+ZR1FRUQ9+8803GvFg/o0cOXK0n5/fD72VA1BoF+rud83NzfFahunggwMgzZNAsp+ZOXPm6sbGxqpx48Y9ijr+BGdXzOt5t4EEBfefjoqzm4WwtzqeelOys7OX3XvvvW29MrDcoWgsvulthUo17mzoPT0934UdLFDHkRSSFhDn6Th3R28M4IpkhoWFPcspO92sNsDmQgS7j3tjQ0dhfUJjcCAvL2+CeQXnFAYa8pvhA6tHH+xRqDsa7VfRoEXqpp02bdq04KCgoBdUnbR0nb2KClCsdyh7/xs2bFjbqB6DFQjzjTynN5EMpS8IcWt0dPRtqrODdj+a065GyST9w+nH0aNHZ2iOARDUXJD2w7xPbyvLKs9Zlp2dnb9BntfoZh0H+O0PIODT4EeNfPU2O5Xoo1/fTZo0qS3/xowZk+Th4fFZb21rlUD/o6ijnAH7zUgmbOwHAra0oqLi4SFDhtw3YsQIjoJVcRBDP6X7AaYYAsd/0psd
+z4rAYOfl5fWhaSB/8MEHByI4PM8Cp84zv9beRQWxyMjI28zXhM2ePTuBNrPR4zm9seFjuWNgSEhImGf6qPjmzZvPDQ4O/jPPY/711saO9gUGBr6AYBWqm6YBvbF6BPif+H9vtI0666MGR9LT0+eqoE6gUzAMxPN7/t9bbVNEAiT5Li4up118whNl8sXelmfUlXUI5OJHEIgGLZMAfK5DPh21loDxHNUewQ9Pffnll9oCZwJkLsnb2/vz3pzntIt+Qn19Fm3Rb56gr62tTUF7+0VvG/1UYmLj0ZiYmLtUna2urr4kIiJiI8s1/7d07YmkI9fYWqgD66yLi8vXDQ0N7S7b4dOvubm5YampqTkgoC7Dhw+3egsOm4NDrWg8VyJDDnfUieo6Hll4eexuUY0lbFn40UcftT1SikAwGcF9F88x19saMb0Hv7dX6UzPO5FYuvZkwnuyUQsKCnqXC5t107TRL1Si25luR3ud5rr1lH0sNyCYD7IXrZvHLQxyEBw+4X+WrrNWlE2W9LUk5tdTmEZ7/51IeB0bNa6FQq9smG6atsjVx8fnOVVf2vP7ycRU7+4W6s5yh3K56eqrr/bSTdPKJWy9ysHBodVoMDbNK6ZvC2FanfGvr6/vK7NmzQqkbWi0R4PE7GeecnrV0jXtialt5v9ZKx251tR2EKS3Fi9erLUh11133YDo6Git/bA2XabFPIftB+Pj45cxHYJ5jrZ2AnyjjeZauvZkQh0s5V9HpKM+Vr7gE8jTp09P183TsGDBgksTExPvof0dTZ+i7tFTwvzh6CXKQYRuGollLtraPR2pr0zT1Cem9+pO0XU4go78baZrv06A3yx56XbceOONg/z9/d/sDPNlgcdnPgHGbRX4+O1+VNBuE94PeuwPDQ19Y+LEiX66adpj8Gg8n1O2GS1YtEvPVD4tcwS/H4DstyTUwQq79yEdptEKsXjf9qRPnz7siW9Ho5Cqm3faVVddFeTp6blV978hoT9o
+GwU6HYUcxu+/sYt+xX8ntU//bx+u4aPshnxNYR4lJye/jkYuWDfvNASHFqat62jxOktC2/RG+DibTPS0KOo/02t0oV0HkebRjvha1/1XSLVuGke/JoGU/Uq7jfqKomzk9T0lLJMIuHvQ4I3VzdIwe/ZsL7QpT+l5YFF/S0I/8BrkdyvzAv7hNib7OyNMA+mSMLH+GvY19Ue78i7KpfakX0pKygpHR8dfEah+xP8/4n+rRD+Xa1C3Q4fdHclzXVgefzBP/0SC83+E/T/jnrsiIiIYnLQef2FhYbifn99bzEsj+jCPEKw/r6ioKGY6BAjqQLRP93Ykz3m+XscP2CrPWY+hC+u/IduoC21Au/otOrtDdfM01NTUcIRve2dGv5i2qj89ISRYsPEgiGQbeW5paTkf5HklbTeSdxTmG2L+bvjrbXQon0F5+geOz3a3IF+ehQ7/CgsL+xs68W3E0u4xZcqUAlSmnSwYlhzcnrAA0vn4fAjGvxEZGbkaAbRp+PDh49FITYyJiek2QaBuwv2bUGG4kLttOHHs2LFpqJDfdKRRYGHFcT8I3JtI+y95eXk3wc7pSGs8zploKmiQNT3QI/yNbqYCPcei4K9Bgd1lxN/Uh5U+MDDw7WHDhrVtcllQUMB77zBaaSh6xfkVNr2YlJR0X3Z29nUoB1OhVyP+P84+Nzc3Tf+T2RcbG8uNVx9H43dEb1At3tuS0B/wz4aFCxdqm+Zt27atH4L4k/yP9hlJi/eGzp8GBQWtho0TlE0IpCe0gf9FRUVp+cnzKUhLux52LUTw+jv+M5R3FOqDcvgzrq+gbSyjSO9u+En7z4htFF4DHY6yxxoQEPAT7NwB2d2dEhwcvDskJGQ36vrd995770DapZCenj4E/v/KiG08j35l2UG+PwpyMAEBr7Gqqmoi2pQOCa6fWF1dPQ55S7LL7Uu0e1i6vyVR9Qr17rmbbrpJW7QO4uyF3+LPP//8KKRltYBQRp199tkBnPYA
+UXnO9D4nE/qGviTxQx1ZBd/6I80I83ucSHB9DHSIRDvmoGUSkJ+fz4cJjrBtsXRfS4K0tCPaxX898sgj2j5iBNKKQb59YmQEhefRx5AjHh4em+GbaZ3Nc17LNNCeTUT5/BvqndaWW7q/JdH1oX0fLVmyJEY3j3X27LS0tGZVZy1deyJhmnoe7oWfdqFM/Yy6a7FudZWwzqIN3I12+l/qIQyitLTUEWXyVeadJd0tiaqvKFMfI6bVceaC66uam5sH9JRwec6cOXOs2tbILoBCdQYfpUXh4MZqFh3dntD5CG6H0bhdM2PGDE8+YcCeFdPkEZWBr2LoVtHNagMI4eXQda8R21TBwuedCMgzbrzxRlfOGa9evfoc2oRkuZCax+PEGnsZeFH4r0PaB3gPaxsqCs+Pi4u7C6RS268FaZ0OsrAOtmlbahhJiw0SGryPuQkhCy7t4yZ17dnH309mH//n+i1U5A28hxH7qD8bNvj7cjZ0uCfJczZ1NJp3DCbu7u770KMbyTKp26DZZE0e6T4wlzO4jQka9zKkvc1Ig06daB8a9C0VFRXRSOu0xYsXh+D7qx1pyHkN6t0B9PTuAbkoueyyy+KWLVuWiGCRhc85ixYtyu4OQa85l0dFmBVYLpGPS6GjoelH5jMFQfM5joIyL9iWsM50Us7gMgu0U1cYIbwq33BNK4LWrUjHJtMVaG8T0WP/wFo9KMo36Cy909DQkKQn1Sm8//77FyUkJLAtUu3dSYX68lz45AjK3zV6UlqeozM4FmTH0PQjbWJ6qOfv1NfXR9gyz7mdAsjmRJRDqwkY7aNO/Axy9Lh6OpCAfo7oND3MtKzNNyW0EXLQz8/vkaysrBHcN23FihVJqK/dWmdxzxzeD7GsbbkAMWHChHR05n4xmncoB7u5sSnqV888PdjbsW7dun5oXJ6n41XBs1bYuIJR/7esrKytR2VPYOWBbc+w8NM2I5WGjSMamPsV2bEVnn/+eQdUwn/rFdLi
+vc2FelMf9JxaQSjqkYwWCFiJgLeVfZautSTqvjk5OUtaW1tPuD+VUaCRSkBj+p7RskTShOt2otdaqCfFPaQWsbdoJFBRWJY5YlFXV+ejJ2UzREdHL0WPz9B2EfQFBWT5Dm7gyXRADrnwWdsSxdp0VDnA8WhSUtJqbtyqKWVnWL9+vRPq3aNGyqWyjYGdJFxPymbg2wUQUJ8xUi6VTgjgP6AjN0pPqtNIT0+fCaJy1Mhog/Il/PpX1Fmb9PBHjx4dhPReNkKSKSz7KLtf1dbWtq1nvPLKKy/muhvqqNqXk4nyL645GhERcaeelM0wc+bMSzhzYaSu8jzqT2IBonyZnpQGdFJjPT09vzTiL55Hn0BaQZ43cfsKPTm7AcjTuehcLlC6WrLDXHge8w7x54P77rvPWU9KYBQImKkuLi4/WVtpTIWZgMZyNd9/pydnV0DPPJrTIEYCAUVvdI+R2bM3pSdnE1RXVw+Fv78z4m9WDO5Q7e/v/1lFRUXb3HZRUdEYNORc42HxOkvCtEh24Jc9paWl2XpSNgMq8hxOk9A+axspCn0OMv+PkSNHejMdkueQkJCH1X/m57cnPBcEqRUBcyHyzmYvWEVap2/YsMEvKCjoX0bKE33ABht5fgSkieRZSwuB72b+Z8Q2lXfu7u4cuWx7dNzegA5ZPhrmT40GKgZKBKmPampqCljvOJraWWEZQIA5Gx2XBvhtlxGdmMcUdJhebW5ubpv27wxuv/12h5iYmAeMliH6BvVqP0jOfD2pTgN1hG3RLiMERbVbqAevcfNgPSnmeRh+e5PtlJE8Z3pow74dPnz4SFvnOdrHbLRz3xuxj3lCnXDdZxwV0s1jnT1TH01r28DbGuF9mSYI3U8gcMetk7QXIO8GIu+eYd2wZIMl0f3Exe53wjc9v5C9N4LD8ggKV8ChB80dfDJhIUWg249eVJmenN2hsLBwDgr+HmsbOgorDAsiAsi3VVVV2nSRLZGYmHgt9OnQ9GNU
+VNTGpqamwUyHhR4N+Rqkoa21snSNJeE9GcTDwsKeR6A74e7zRsEnT8PDwx/iPYzYx3N5TElJWf7ll1+ex7Tmz5/PkbR3jdrGxpbkkhspgkAnp6en53VGoFMuGplMNL7l6KVvQHniwl6rbeN5LE8I4u+godM2BUS98+b6GaajbLdGWI6ZFnr1z69evXrY/fffn4aAnnsiufnmm/PuvvvuwlWrVkXDn4MuvPDCSy644IKBJxPcazA6VwPYRlBnI4iLi5vP0VqjgY+2ofx8jMC3Eu1K89ixY+d3RhoaGnhsRh5eBfL1vrqP+b3bE5Y96h8dHb1elcvOIjc3l9OP7xvxDYXnI/8+bmxszNWT6hS4cz3sWkkdrC2DPJc+QR1oRdtzu2ngzczMrAKRMrQvFvOC56Nu/IB27aZRo0bNNM9Do8I8r6+vn436v8TV1VWbabB07/aE51MvEJJ/vvfee23b/SDtS1Hv7jPSHlGYHm0MCAj4FnV23Pr16zMs1VMLkn/XXXclZ2dnOxqps3369BmgL6GwGnwxOdpMQ3tI0i7G/yFDhtw2Y8aMzGnTpuVMnjw5rzsEZSUf8SF3wYIFfH9nX5Jt3ZTeBU4/hoSE/JOON9IwURjEUXHera2ttcvhR5IBVKKHVYWyZEN7ogeCB0eOHHncwuLOglNGaHxfUjoZLOzH0MhNR6On7ZG1adMmZ1TqN5gO/7d0nSXhubwvSMWVfO2UppiNwAWrsO9dI/6mLixLaCz3Z2VlDdGTIlFtRm9TW+xurZ8oul/5NO7PuH4HgsJOHDss+vU7kN5u6GL4CUilf2xs7J/RqGpT9egYVMNe7ZVKRm1jemgs9wYGBv6E/N8B2XkyQT3Y5enp+RXu9TbS+S/kzRMJgsx/ca/PQPjXLF++/Lj1XScD99zjNBntMuorCvzMBwv4rtADsPNgZwRp8MiXmB+mr5m+tf7mebwG+b8XZXGqbl6nkZGR0QhyeoRtjLW6KCKItvrJl19+
+2SZtEtptP+TTZuph6Z6WROUpfPID13vpSfFNDn3hI21j2o7kOQkd85x5ZZp/HRXmO3x8yKgu1F9vPw6AnF6lm6eBT4t6e3tvM5JvFFVnOQKOeshF91bVWdTvXxBft8M37yCdk9ZZyFu41/u4z1+5oF5X+6RAHDkHnQLtzQXUFelYLfBDKzoFfPpxh5eX185ulF+QFztx723w0wtcb8oNoBEbe9c6NCgdhwJr+NU8PJeNU3Jy8lqwUZsGcVuBUwaoiJ+x8Buxjb5gYUShnKLIjq2AXlQB/P21EX1Y2VnpUei+BwFr21gOvbyhaAi1pzstXWdJmJYeVPajQWkjO7YC9JsI3+2gTkYaKdqHxumVYcOGafsscbQBwWED0zDa46TQvyrfbSEqTfXZWlH+BoFrTUlJmcERA0pMTMzVDDoqsFq69kRC2+gzCtM/majzeC3vdzJh+tCPnZCbTffTswajRo1K8/X1fZf3NNfbGqGP6Rfq0FlhOpSO5B2F16LevcURAt28TmHt2rUDIiMj1zJt6md+P0tikh+HQQratg3oLNB256Mt+oWdH97D0r3NhT6kLgh+/16xYoW/ntRpI0aMCAgODn6VaVm67mSi0rWVqDy3dK+TCa9H+/jV0KFDC3TzONtwRkVFRT1+79D+ZioPra2vpkI7VL08kfA+PBf5sPm+++5re//xycDNV9HReoj3Mtf7ZML7qTrW3UJ9VV7jeAj19CO0PSN6DQmjonl5eXPhSO7zZNHB7QmNRlA5jIA5yl4NLisr0zZfZSZZssGSsCCzkqBh+t5Wja4pEIRX4B77VKWypIMloU5ouB/hUzh6UlwMfi3S4L5UVqel7PP39/8PCGZbA2oLkFhAx3txH0PEQuUPSMkNa9as0XadnjVrVhQa+bf4n9GyaU+i/I3G4TP4W1uzdccddzij1/YU/zdSNjsr1vpR6YzOC9+HN5w6GwG3EUCg6vQrWno631mGeQwLC3vgp59+sjqgnQiV
+lZXcpuFt+tda3/A86oLe/ue1tbWlelKdAkl1enr65STZys6TidIDn/kao+PW/aBsF6PN7HXvxTQX1d4EBAS88vTTT7eNNM6fP79/XFycoc1qu1t0vfZmZ2cv1NW2CoiTwegwfc0yaZ6mNaJ80hNiqgPLHmLGe+PHj7dpXOsytLS0XBgUFPRER5gvKyKCyqcgBG0bntoTSApBBh5AxrSaZtTJhI0HC2JERMQTaq2VrfDjjz9eFBISoj2RaW2jR+G5bCizsrLm8OXGTIvTPKg0LzAtI0Fcnc91aFddddVvXrHRGSxYsCDQ09PzTfPKcSJR/gaZP4iGo1JPivsJTeK0H23vzQ268gWn5ObOnatN1ZeUlHB/rM87Uu+6S6gbnyKdOXOmocaM+7ah3t3DPDNSLu1NqD/LHqexEhIS5unmdRoo46NATg8YIaeqzoK4Pfvkk0/a5GnzMWPGuKMt+jttNFJXqQfq5U+wY6KelPawDIj6CqbT2/Oc+uN4JDY29jbdPA1Dhw71RX1428gDBt0pyvdoV7480et3LAFtbRbK+d7enHcU6o84uV9/cM7+R8GmTp0agV7u10YqIYXnsgHhHkQI5Ha54dn69ev5ipetRm3TKyBf5D1v3bp1Nn2yEwQlydXVdRvvYa1O1IXMHvm0E73ntqfeRo4cmY+0vjRiG4VkB9cdGgboSdkMqMjjEVy0p2mtbaR4Hhs1dAS2QCXtKTP2rEGA1/F/I2nZm1Bv1hNOZ/OBANpFiYmJWYHfOjz92NWidAbxuMHo9GNpaWkceqFv0DZLafcWYb7QBg8Pj/dN611nAF/2gU9vNjrqxPzANa1xcXFte251FikpKZloU743Ov1IQf6+PWfOnLYXrldXV/tw2utUyHO2N2jDfqioqGh7WwXrbEFBQQWIp6GtZ7pLqA/zhf4HqX6KD1foqp8UtK2urm44ytfR3p5/9AGI5EHEkeVr1qzpuZdqWwM6ngu6oXiHph9h6GFu4Il0
+bLpFg60A3Wq5FsmobSQoaJh21NTUtL3qx1ZAEF4AnXYb0YmVizqFhoY+W15e7qYnxQb0Kvx3gHlhbYOg0goICHgLPbq2F5XbAjqxuAv3MTz9yHMRmG4DtD2t+GSLr6/vFv5vNP/sRWgThQHOz8/vfb6gmLa99NJLjui4bOJ/tN3StT0p1ItBBj3pXzMyMkZTZyNAh2wiAth+ljOmZeke9i7KBzyi3t2hXsDdWbCD4e/v/zLTtnRfS6LKiYuLy7d5eXltpKAz4Oak7BCQZFtbV5Ue/Iwg/xemoSfHEV1uObLzVJh+pD9AJp9+8cUX2/bXmzdvXt/Y2Ngb2RbZa3uk67U3PT29RVfbahQVFcUi5mnbs1hKt7vFXAdrhdeCJO8eMWKE4WUT3Y7m5ubzEAgeY4GzZEx7QiOZUahwn3Onaj05uwLJADf1g65HjGQoGw82jqiAz6FQGnry62RgrwSN72Os5NTJ2oaK57OhBOFavGHDBu0x+J9//rlvYGDgP4ymReE1qampf+RiYE0xGwHkydPHx+c/TJ9i6d6WhP5GcFGby2rIyckZg4q03WjZ7IjQdxT6sbPC9Ey/MyBxj6XCwsKpLfou0SNHjsxB3dF2QDfX5WRiep+uFOoG0vg6esZtoxzWQN/WQFtg3h15Zysx9SuPLJMow4fZ6bHl++SSkpIqXQ2+6Jj6sD6hzLy4cuVKm2wZw9fFREZGPmhqtzXCPEVbtBOdpWl6Uqdxzy20JwuNjOrZgyjblVB3yFFPT8+3qqur03TzNIBgeqO9/bclgmKNGPFxR4VlBGXr+6lTpxoerUXb1A9t7g1oq/aw7NMXZn7pVjESP0yFuqPj/sn8+fNturVSl2Dp0qVh3t7eX9BYowWETkKP4CG+80lPzq5wzz33uHKYnHoasY3n0h/Z2dmXP/bYY22vn7AFpk2bFuPh4fGpEX+zkWYQ52gEGoU8PanTJk2alIYei6G0KGxAUElbuXkrSaqenE1QUVEx
+0tnZ+Tv63NrgwvOoE4jbB/C5tt8a9eJu8fjP0Egaz6M/IHxh+lEOqfNojdCHrLzUhUejwut4b6TFl6sfhRzimgo0Bv8BsRzJx7w1JwEIwvNALg/wGpxv0Zb2RM9vdQ/DYo1P6D/ofhQB+o9G972aMGFCGGx+mXrifoZE2WauD3XG/yeStjWeOP836Z5MeE/cm2WAL+k+iDK8l3UrJibmeqPr306E7du3X4i8v84IUaE9LF+4hoveb7ZVnUWZTEb7+JnRESv6GddtRYCL05NinrujrDxupK4qaS/PKfj/hKLy3KggbR5VnjMt1tV9IB+fo9O+FvbEmvsZBKwY7ebhjtRZ6kkb8fk3Nlgjpj5pT3Celn5ISMjLmzdv7lBM5nZEsLMaHa+HWDbYAYZfuNXDfpD/bhXUQe3l6UaEfkYZPIp6ey9fF6ibZZ9AATsDzh7PIGG0saShaBAO4/op9jrPyiFIZGKHd4evrKy0+e7waPRmo/f4K3XivSzpYC48j5UePfGXTDdMTUlJuQz/72HeWZsWhWmhgn04ZMiQcD0pm4ANVlhY2K1sDIzoRF/wfASXdeiFaU8c3X///Z7obb6q/rN0nSXR77sfZfoZfL8Tsh5yz8kEeX4Xer2PJCYm/g8B8kMc3zUqqampHwYHB7+AevEnkMf1+G0l3/UGouzCuqY5Cfj00085cqmNPBixjedToOcn8PP9AQEBd0PusVag2z1oSLkw/h7c16IflPTt2/dPqAPrQdLbCL+1SEtLG4VAtcNoYKcg335Ao/8Q7GTeabooXWG3ZoO5XfDlXfj9fnZsmAZ9xKO1wjxAO/Ez8utJdADWoBy25OTkVCEIB/KdqLpZNkFDQ0MAAuQ/jeQ7fUhiA59uLygoMDwdbAmsqyivTbDb6nd08hzqTf/ChodbW1vbiDn8xs6g9gSdkTznuQzwaBP/jnS5dKEtzykogxbzPCgoSCv78An3vLKY9omEdqCe7ouPj38hLy/vLvji
+StT7McOHDw+39DaXjRs3Xqi/J9lQ+VLnw44f4LM/Qed1pnacTFC270FbfVw9aE/w/59wZLszUle7Q2DZ4EusObMVFxeXzCdbm5qaJk2cOHFyY2NjU1cL0Mh7Ib69xjbEqL9RlvYUFxePox26SfYJMsSEhIT70bsy3JNgjwwV7nsQgig9ObtDcnLyjSiUHdqeAZX+xbq6Ohc9KZsABeIskCgGF62gWKsT9ecRDcCqO++8U3vYYdu2beeicm5iOkbso/B89PLWc0dnTTEbAUTcFY3FK0onS/e2JPQ3gm4rGvFGVWlQgSoQHLRXR1m6xpLQB6yw0OEdNKoJaPTORRrnWSO45blofC+87777HB588EHnDRs2OBkVXsfH1JnesGHDzuOuzJYaAfyXBrLwrlHb6Cek3cp1O0wfx3MRQM4zKqZ2tydQUzsa3Umba4K4Z5ga4TFaxlE//oR26VJLeWfJForyA+p7C84z9NJvnse2jAESpKuBhGv8+PF8hU2XNN4g5MUgkj8YIaeqbUZA3sIZCz2pToFPdoMQ3Gu0DNJXIEz74PPFelJs186E75sR+AztjcXyQdtISFHvnNurr+b5TVF5jnpeh3OOGrkv7eC9YcduENorUE/PZV2FtPvEHDqr7iB9/+J9jJQt3b98cOIeU72NirlPTiRG66w1YB53o5xRVVXl6K9v02Lu1xMJ8xXl6NPp06fb5a4Mx+H6669HW+D5MZW2ZMyJhAURvfC/2+v042OPPXYJAvHrqpJbsuFEkpmZeY2td4dfsWJFsJeXl/ZyaiM6sRCiUB0qKSkp15PSnqREWp8aTUtveFpB5tpe5G0rVFZWVkBP7WlaS/e2JGykaB9s+aSwsLBtSiM2NvY6/Kc1rNY2eMoP6MneB0JkU3JpS6CHyp399xptzBm0fXx8PkcwyNKTsjuw18zOCwOPteVSlQEEjwPwzSQ9KcMYOnRomre39wdG/cryiiNfAn3clgO2xsaNG89EIL7C
+CDk10Y9E5R4GKD25TiE/Pz8eZelDI76iMF9Rxz9CgMzUk+J7dp1iYmL+arTeMy344mB0dPRKPSnDKC0t9SMxNUq6eW9IKzqxj6stfU6E3NzcHFdX191GCQHrAIjpT1zuoSclsAKIdZUoG9pr+iz51ZLQ1yjPnKbfaOuRa5sDFfl09KJHIxAYej+iiRwtLi6ezcWXepJ2hZqammI06NuN2MaKyQbJxcXlUHl5eYmelM2ASjwehepno/6mTr6+vm+ANLWxevSkZ4JIGd5clls9IK2P+ToNPSmbAT2169DYaO+jtLYxpNAGNOB/njNnjra57COPPOII8vy8+s/8fEui8o4jafDNJJZvTSk7A9dTgaD8hTrTNmv9xDJD4dTPtGnTXPXk7A6cunN3d//BaGDn+SDhb40cOTJRT8owtm7dOgCNL6djrC43FPqV5yMYvzJ37lybvGjbEhoaGryDgoKeNKKbSbnemZ6e3qQn1WmggzmOD72Q1Fu6ryVRenPk/ZVXXml7eCc1NTUBxPdzI6N6FLYTIDVf1NXVdbit5RpddLiW8L4dyXMPD4+PEaxPuNH2mjVrzk9JSbmio/dgp9v0bQGCE6OpqenC5ORkLkGw6Nf2hP5GHu3V9/+yy/a/DRx2jYyMvBsFxNATghQ2COgF/VRbW2vo6ajuAp2fkJBwNXQ1tLUGKxh7OP7+/q9lZ2db/Q4ta8AhbgTPv0AfLvw01FDxfDRyN91www3aaCPX3KG3vrEjabHR45OhkyZNanu82hZ47bXXnEEsnqe/qZOle5sL9WZZ4ohcWlpaM/JNmwJA77oUQfwLo3nHAMCFowwImlJ2iPHjxyf7+PhoD4ZYssOSmPjpCEjuHD0puwPrXWJi4lUgC1o9srZcqjKMcvknkig9uQ4B5aiOT3EZHRHRycD3IO+1elI2B9qUPARjQ+ukWAcoKNdbJk+ebJP29p577rkYHZ7b6Xdr65jyEUcl4uLiluhJaXmOjmUjOz4s
+o5autSTq3gEBAS91dlNZdCYzSPqN+JWil7tfQK5m6ElZxLBhwzzQdm+mfdamz/P0vDsaFhZ2r56UwArMmzfPFST/HeanteWT57F8enp6frV06VKbPbHcZWhsbHRAIHjXSCCg0FA6BpXwqUWLFrnMmjXrgtWrV/fpSSExQc/5AjWHv2nTpkvRmL9G21TjbskWc9ErzDFU6Btuu+22gZ21jQsZp0+f3o+bFaL3eiUaL21Hd0v3tiTUWw+8Rzkkq1g9Cxga5A870oCS7NTX1zdxLZkt7Gtubh5QXV2dwJEHpL2POlm6f3tC0oTG86uMjIy2/dZAMpayoae+RvMuNDT0AZZtPSm7Q3h4uLa1BnW11jZVDpjn6N1loZyfRULfEdm4ceNvxNJ5BqRt3QzqoTtHRzpSxuGToyBvM/WkOowxY8b4+/n5GV7krtez1piYmBtUPbMlmCZ69XNJVNh+WtLDXKiXar+4No7rPvXkOoWCgoJorq/pyIgVOt6fwcf5elJ8VdjAqKiou1X9s3SduSi7UMePoN1YrSfVYfC1bPDPBqMEiTpAWoOCgh5C/rQ7tcu9IFH3vusIwWNdr6ysrEU9sZs6i+t/Yyvtt3RudwoHFngcO3ZsMfy2z0g7wrLH89G+PmXrpUNdAgcHB1covc1IgaLQUBT0VlS6jxAMHkVlfgw9oMd7SnD/J9CwPYMA/kcVeEEOvFCpPmcFoL7W2sjzeURab4LwPJqXl/d3S/e0RqDX4yBdjyEg/QO93m+Q7mEjDQSF53LKEI3lu6YbpqLRK/D19f2KtlEsXWsuTEsPdIfRy3+pqKjo4Y7al5+fr9mXlJT0CHR7wcXFhS9x1558tHTvEwn1R+P5MJ8UpG3c2yw4OPhJ/mdtBaRtPJeLgLOzs7UXXWuOskPAX00IPL/QV9aWBb3O8cGQj+H36zMzMxfm5OQsMSLI8yXI8yUIJktGjx69BB0W7Yjg0Pa/+TWWRD/vCuiwEuVg3rBhw9qm
+xaHbUA8Pj6+NlnOejwD3gS12mmfeo23iOitD25fQx8wT1NenuX2NnpzNcNVVVzlHRkYaXiel19m9qGuz9KQ6DdR7vgbpoBFCQb3po4CAgM0I4G2vZktNTY3hWjIjafE8poV24zu0a7bYVPZ0lMt6klujeU7x9PR8f8WKFaF6Wr8BCOdQlM991hJnCtOlLiCsO9Bm3or6ssi8Lp1MEIe0I+ss66uqs1VVVdrvBussj8v5uamp6bjNxbnBbHl5+RTEq5Xm13anoO2+HMcrQMq1tynQh5Z8a0n0cw/Az/PQBrT7MIXdAIXOFQX1c3NDrBEWcDRW2pAzHdXTwp5cXFzcQw0NDYNoG/dAQUP6HBtUI5moBGl22jbz6zuiB4XXwba7Jk+efLGWccB1110XwoBl1D7V8EEfm9jH+6vvHbGP1yNQ8vU8C9RawhkzZvDVKB8xTUvXWBLaxTIAonvcSJo9IiwsrA6B4gf6y9pAYSLcD+sQiOZBCI+GxNHR8RDXN7q6uh535O+Wzj+RcPQCnZytXPhOu0h8ODWF/wy/AYFHpLXhrrvussmDE2iEc1CGPjVKCqg3COQ2EFWbvOjaFCjj6WhzP2W9MZLv1Anl+p0pU6Zob1DoLECe+sbExNzMeqd8fzJRvsGRI1bX60lpeQ4SrhEfI3aptgJt2GsgpjYhuxUVFUFo898y+o5G+gD6852W4/SkfoNRo0algWQanuKk4PzWztZZkGWtnna2zkKXwyjf22FPjW6aBpJg1JcD0POwpeu6W1A+uJ+ZRX9aEj2mcSblh3Hjxp1wPZ/dgFNH6FFrr8PoSPDkNSy8PSnUgRUOBfLnsrKyzBaT6RD0zJZBz4Mdsc3SvToivLcSS/c5mbBQsXErLCwcZTqqwyHkkJCQPzFd3sdoo2CuZ0elM/ZRZ+YdgtJPnFbTTeMTgotQCbWpTGvt4v1ZjsPDw+16gToBIp3g6+v7FvPWki0nElN/d1ROlIfWCPVQgYivZUGd
+06bFli1b5oIyyb2ctHTNdW9PmG9o+Lnhq83WtulLELgnktW60B7mCYkl7DL8GpcTgXWX2zQgkFo9/UhRuoNY/I17x+nJdQqVlZVhILtb2GExv197Qt9QF+j/FQhX2+tdrrzyyovj4+PXqP8tXWsuys/43Ao/36on1Wm89NJLF6HzdRXvocqpNaJ0QXlZZ9rGmqKmpsYN//+DZdX8emvEtP50ROhbc7F0XntCHXgN9efswn333ddHN+204cOHD0an8FmWB0vX9pSY+7A9YXni+bQtNDT0iVWrVtnlO6l/AwZx9PSmwIhe/fZzViA0breYO37GjBlB6GFpL+Hmecwo82vtXVio0Fi+mJWV9ZtXKqDXUoAG8YuONgo9LaohiYuLW48grk1p/PjjjxehgXjEpJG2SngueoTHjaTZK1jvELSuAck0NFJkT0ISARL5vxEjRqToZnGhMt8DaHjUieUX9fRjXJ+jJ2UTZGdnN6Jjpk0bWauPyg+WQZI4PalO4+qrrx4cFRXVIUKIcrIfRGWBnlSngTa/ytXV1dAbGKgzg5yPj8+LCN7OelIcdQoNCAh4oyOjTmi7vispKenUhqHmALnM9vDw+NnI2jZlG8rg2/fee6+HntRxYMc+Nze3nqNORtK2J6GdqA8/NDQ0tG1lBMJ5BsrDGI58GWlv7UmYdyzLyJudIMpttvUKrFy5sj9Y40NsBK1tGOxFWAlYGdzd3b/jayN0k44DR45Q0b9XlcxSOvYqeqH6GRVkGEz5Tc+MlSc6OnopbNPe22UpDXsU1Xj16dOHa9veq66uTtZNOm3KlCkpnp6e7xkpi0yP9qMcbEcPOFdPyq6BgMw1io+jTGokzJJd9ijK1xyxSkxMvNx0xDkhIWEefjc8FUXh1hoPPvigTR+caG5uDmHnhfXI0r3bE+qPYPxeXV1d2z5XnQWISiLLutHgTV1AKD6qr6+3SbnmOzpTU1NJ/q3u4Kg8x5Gbid6sJ6UBpGQEgvph
+I3Yxv1m/Qeb+88c//tFHT8ommDp1qjPaxEeM5jn14ROwo0ePbnc9GjdYjoiIuBbnHuptdZb2UWf6xvS1YqWlpY7obLzQW0klyxLzGu3ObrT9K9atW2eTh1S6Fajcfui5Po1MOqoKFg0zN9beRFVkNPw3IBBYfOqBow3p6enT0EhsZyNiz3Yp3VRlcXJy2p6UlDRh69atZ+vm/AaPP/54fzSoN6NB1TYI7A35puwDYXo/KytriOmwf1pa2hyQzl/5v7UNAs+j7WFhYZtmzJhh/y9f1TFx4sTgqKiov0D/g2wAe0PeUViP/Pz8XmtsbGzbEgHkaSA6chv5P/PX/BpLovKNU+x8pZaelM3ADgrqz3KONFobkKmTXvcOoF2ZrSfVaaCOcp2UoYdwVFsMErlp8+bNl+hJdQq1tbV+XBtrrT8o1JdlE23o9wUmr0Fas2ZNX5TfG/mftWVX+RefW8PDw+9ub8qvo2CHIC8vbyLaEKs7NtRJL7OH+ASsnpRFgIRxyvUanGtoQX5PC33BEcdRo0a1vVYMvj+zuLh4HKfcab+15bKnRZU12gRpBXH+orCwsPm6664z9L5auwIKrjcK311oJH6BURoRY6YoY82PPS0sLKwA6Kl+M378eO3lze0Btp2VnJxchR7oy7h2PxtBU9so/Nxdtql7qfvxSH3oc+qG3/YHBAS8OAw4EflSuPfeey/IzMycAhL9IdLSemfmeadE6dCVYn4/9Zl6QfjC3b2RkZFPTps2Ldm0AeYj9iEhIRt4rpEGgemyR88gbo2/7AmrV6++lE/toBx/BrsPmZdN5Ttzm3tCmB/UD8HtKILQQtO84z5MHLnUy2+b3icSnsfzUW6/QCCw+abHBIIx9936nG2FkfKEoHQM5OLPtlh3tWHDhgFIiy+V1/KW97DkD1NResDXR0AiV+hJdRoggtxfbxcJv7V6qPLIjaBXrFgRqCfFncqD0Ka+biTPKbQLZOAHTunpSdkUOTk5wWg/
+3zMyLUobKdz8+aGHHmp72MkSuP0OdG+EP17FtdpWOSpfldBO0+89JarMQUeucfsTByR0M7iuzTM4OPhNVRa6S8zLgyVR55ke1Wf6m/agzf+Vnb76+vpUvv5MN6v3orm5+byKiooCGLUelfRTGLgPRmtzwzScFY2f6QhrC3ZXicqUtLS05dylWDehXTBYcM+yjIyMqWg0nkUDsBONLF9zoG2dQLton2lmd5UoX6r74vsR6LLfzc1tOxqAZ0mmJk+e7Gikd8iKhfwLg31LOLQPIr0LeaS9A5P3431UPnZ13vGeypf8jN+OsCwhQH8ZFhb2YH5+fi1I82969GgQkjjdwjR4rWma7QltYXBFkN0zdOjQIXpSvQpsPNCIBCPQXgEi9gbK5m7Ydlj5kUfa2ZN1Tt2bZQj156WGhoa2R/ZRTs9ISEhYDLKgPVSh8v1kwrR4BOl++qabbrK49qaz4MhceHj4n1V5staH1AsBdis3zdWT6jBQ3uNRPt9lObXWNzyP/kHv/iuQ06F6Up0Cpx9jY2OvpX2qXJ1MqAfP5TUI1uuZ10yLbRPaqZEuLi6G85yCtuDtuXPnBmmK2Rjc3zAxMVGzk/c0kuew59u6urpCPal2QT+gvXXi7ArKyfO4bifSOEjb6C8e7aXO6nZ9N27cuLYp9S1btpyPThMfdjLko86KkfLPo4ojuj8Po43ZhxjxJdqMjUOGDKng3p+6SacOhg0bdh4KYQgXSILgrIqJiXmaayJQAXciuO9BcN8N5zBI9JigMduDQPA2AkHb3ljWgESFT+6AaKZkZ2dPT05OvgeZ+TqIz9foNe0GCdrD9LvCPqbJuWo0PnuCgoJ4/BSE5DU+RQRdpqCCpICE9DftpRgFN7JD0HAtKyvLR0Cfh4boYfjpTch2NBR7ENz3dFXeMV1U6N0oK3sCAwNZVj5Ez/9f0OMmEMPRixcvjmhpaenTHrFEWWuEfl+hsml5YI2gcnLH8z0Iss+NHj26Sxr0
+7gLzjnuhlZaWlqWkpFyLsvE8yuR3JJcoN12Wb9YIGr/d6ClrdR95Ods0D7/88ssB+G0dyvNeli/UIdajEwo6eLuR1h6Uld18Wrm9MmELcHsBEJmdIAp7aIcl+0yF5/Bc2PMN2olOv7+vqKioDPX9JwSPPbTbkj/MBQGTftyDzvDjIBQ2eSNHU1OTG9qav0IHq/KIQn3huz2oy59zsbaeFAnI+QiAVyAYGspzpsX7R0dHr+3KPC8vL8/Gfb42kudsd1Amf8rLy7N6OpxtNWLQALTb2VwTCYL7JNraL9jWoi3s8TqL+/M1g7vg7z/C323rNefPn+8ZGRn5Iur0XkvXdoVQH+S/Vg4slQ9zoQ/1OLI1Li7un7Dh2qysrDHorEYgxp3fleXHLkADETDPvvbaay+ZMGGCz8qVK7OrqqqKQMQKEfQKERR6TFBwSpEhMciIDj/xBvvOZEayJwOJnTZtWiECXxHTR8G1eN/OCH2GglWICl6EClAI9h62atUqR85dd4Z0tQdOvXKdxqhRo1znzJmTwt2FEdSLaFtX2Mc0EbQKQf5oXy7JMXS4BHKuaeVvD2i8PNCY5yOdYkvpWxJU6iI0nKVo/MI3bdpk3y9fNQDWO+4wPnfu3ER0iIrQcBX1dJ276KKLShBccpCv2l57Ch999NE5Y8aMiQLRKWX9ARkrtEbQ+SnOyckp6OptQ1DuL0Ujnk39LdllSXBuMcsySIa7nkyHwdHs/Pz8woSEhGJLfrAk9COnC1GXwvRkOg2OFoDcxyHtIZbueQIphf58+0LbK6JQn89CZyEgMzOzxEie89z09PQirjvWk+oS0FaQ+zQjeY52pwgkuaSgoKBD7wJlLOIbWZYvXx7Z2NhYBHLa43VWb0sL6urqtE2uFZCXfdBpzWE5N7+mK4SxAeS2EO20xXJhKij3mtTW1hYtWrQoG3npzaUaw4cPP9uaOCIQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgE
+AoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUBgEaed9v8Af/J3DsA2WB4AAAAASUVORK5CYII=</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="ID4">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAAmAAAACpCAYAAACME4GFAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAGaISURBVHhe7Z0HeFTF2sfpRUS6DRU7AlJDem+btum99wCpBAikkdB7QHrvhF4UKdJRAUXx86p4EdSLYkW9gliwwMw3/5Oz3picbWE3CfD+nud9Art73ilnyv/MzJlpQhAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRAEQRB3MWz/2w+xnHIb5hjoxe65x4c1aeLNWnX1Ye5h3qx40mDOeUf5pwRBEARBEERd4Wc/fYypIlzZI89ns2f6rWLP9j3JHuzxEWve9jxr0vI8a97uPHvkqfOs1/PHWJ9B85lfVDo7eLCXfDlBEARBEARhCOzLn7owdZIld/DOYPZu69gTz37E23bhvElLYU1kayusnbBWwppWfdasNWc9nr3J3Dxf5jFpSYyxbrJLgiAIgiAIoiZCLLVnYSk9mZV7oBBdFazngHd5hwf/J66kvy2EtREG8VXT8Dm+r/ot6/H0ryx12AyWPukhOQiCIAiCIAiCc96GFU/qzuLS3Jg6pIz1HXSM3dvtlyohBcEFay5MSXBps3uEtRYmRFjrNteZletifuzsg3KQBEEQBEEQdx9CdDXnUys7Me+ofiwxLYs5uu9gDz31I2/VjvOmzYRwgkGAKYkrQw1TkxgRa8JZ+/t+Z6m5C0S4HeQoEARBEARB3B2wmevaMa/gh1hcShTzClzKHnnuImvZ7g/WvAXjTTHKBcPIlbYpRmOt2khY+/t+YlPnZvEzZ1rK0SEIgiAIgrgz4Wd4S1axvDMrn6JifiEz2WPPvMVa3vMTa9X6T94cC+ox2oVF9KYUXtVNFmHNW3HWy+4LNrS0pxw1giAIgiCIOwuMNPFFayxY+ogS1svyIOvw
+0LesTdvfeEvNG4sQX/i3OURXTRNhNG3KWdv2jJVNKOGc3ytHkyAIgiAI4vaHr1z5JB9ZnMGs3Dexro9+zO/rcJW3xigU1nRpRBdGu5SEkjlNhN+8OWeqoPfYvFVuQoQ1laNMEARBEARx+8HOnWvPxs/0Z/bec1mX7qdY5y7f8PYdOW+m2RICfyG8IMRgSgLJ3CZEX9NmnHV+4gZLGTWFX7xIO+YTBEEQBHF7wTlvxba85Mm8Q8pY58f3sPsfOs86df2LN9NslIq1Xfg3phgbSnRVN8RDxKtpO848QvaxmcuekJNCEARBEATRuGGbd1uyuKFZ7KkBG9hTz7zPHnj4V94CAgeiS7O2C/9vyNEubVYlCFnXRw6zPoOekpNEEARBEATR+ODH3nicpeRH8V6Dp7Gne77OHn/6R962gxAzEF0wzfYREDmNTXRVN8StNWdNmuwVRiNgBEEQBEE0LtjZS53ZiLGezMJtDHuy13b2bO8veIeuQsBoRJdm+wiNsKkpdhqjkQAjCIIgCKKRgZ3i2ZQVtsxZncaeeX4R6zvwLH+ohxAtEFsQXZhibOjF9LdiVdOjrPszh9kgV5qCJAiCIAiiYZAW089d2Zt5hfkxa4cZzNH1bf7Ys5w3x5SiZrQLwuV2FV0akxfht+zMWfSQPXzX/sflLCAIgiAIgqgf2KQt3Zl/jD0b5DSSObu/wp5+/hpvIYsUybB1BP6vJGZuR8M2FM05e7jPH2zMxAkY7ZOzgiAIgiAIwnzwyj2dmE9SX6YOi2cuHqtZf6tveKv2QpxAcGF6sfpi+jvNWnHWogVj9l5vscmLHGkjVoIgCIIgzAY/c+YeFjjsUeYT5slcvaez3pbneOfu0qakkknCC6LrThrtUrLmnDVr+RfzDSvnW8/SUUQEQRAEQZgWznlLXji1E0vNtuLeAYWsp8VrrNPDvwkBckPanb4pRrqwrutuEF4wefqx1f3XeGCii5xNBEEQBEEQtwam1Hj56jZs
+5tzeLCk9jXkGvswefuoya9HyN95CiK2mWNMFg+i6U6cZtZlIf5u2nNn7vMOKi7vLWUYQBEEQBFE3JOG1YOuDPK8oiHkFLmNPD7zA7u30I7unHZOEl7SFxN0oujRW9WKByI/fWfnkGeybb9rJWUcQBEEQBGEcmGZki1a5MVXwFP5EnzOsfacv2b3t/+CtIDowxQjDnl0QILfz9hG3Yki3yANMP7a+/zKfMMuCFt8TBEEQBGE0fOuuASxt1HD2ZN8trNNDF9h9HX/mbSA0MNIF0aWZZtQIkJqi5G4ypL8FZ23vZcza+wjLKb9PzkaCIAiCIAjd8N2vP8ZyCuJZT7ulrHOPt9n9D33H294rxAW2jyDRpduacNa+/c98xrxCfuZMSzlLCYIgCIIgasMY68KmzvVn/RwnswceO8i6P/o5b99ZCAoILo3wuhN2qDeXIU9acd6sJWedH/ucHTjwvJy1BEEQBEEQ/4Nzfg/bsMeJuQTnsmf7bWRP9/w37/wA500htCC6sGcX/q0RGLe78DJnGuC3OWftOvzFbPx28aU0+kUQBEEQRDX4hl0DWGR6DOtluZANGHyaPfLEdYzc3NmiC1OmSB/Wrin97lZNfvuxQ6cf2IwF6bT4niAIgiAIjHa1YjMXuTFb17FskOUh9uzzP/zvWCAYphjvpDcYkQ6kB+vVILpEGjt05axNl5um3yYDYYlwWrTm7MGn32cfffaEnO0EQRAEQdytsMkzezNnIbyc3T/iXR8WYkEjujTHAmlGiZTExe1kmjQgTbLoai5EUccuv7D773+TqUJfYg/0+7ZqhA/CzFRphp+mnHXo8gdzCF4tZztBEARBEHcj0t5dYyd7Mmu7V3i76qNdphz9aWjTiEfNaJcQlVjDdl8nCK8vWOdHTzF7r/FszcZ+7MV9sazbE59VCU/sWWYqAYb8bCLC63aJTZ0fKmc/QRAEQRB3G4yx1qx4aijr1feDKtGFKcY7SXjBILogpGTh1foe
+zjp3+Y11ffBjbuG2lcUPTWQlM3sgP4QYbc58orexDp1vVI2OmXL0S+Rty7acPdjrlMj3B6QbQBAEQRDE3QUWgLOVm9RskJUQX5pF9e1kwXAnGIQkhJcQUs1F2tq156xd+/+yZ/p/wJIz5/HyiQ4iD5rJ2SHBduwexO599FKVWDPl6Bf8NOHs/of+ZOqkeXJwBEEQBEHcbbC33+vLrO0P8GYY6YHguBPEF0a7qgmvlq05a9P2d/Zgjx+YR8A+NqpkCKuoeFpp81N8xpKyy4VI+7lKkCr5r6shXkKAdXvo32zWEnc5SIIgCIIg7iYw8sNcQuawBx+/UTX1aKqRnoYyzTSjEF3NmnPWohVjrTtcZ70Hv8/ikl/gI8tdePmcjljvJmdBLXjMsE6sp+07rPU9zPSL7zEK156z+/u+IuJwrxwkQRAEQRB3E/zAUQv2TK83eDMIDc1+XrerQXg1rRJezVsw/uCTV5mL726WOCSVpec8xfa9qfesRUmQjiz2Z23v/ZE3xegXBJ1SWHUxefrxsaf/YEn5U+UgCYIgCIK422D+ySP5/d2v3r6jXxBIEI6YPsXC+vs4s7B/l4VETWYBCa6seFJ3XaNdNeHlqzuyyORNrE3bG1UvIiiFWVeT3358/In/Y/uPO8pBEgRBEARxt8EeHriW39NFCAOM9twuAgzxhOhCnIVwbNWOsyf7/Jc5um9idh7pLCqtD7/CO8pJNAqWNroPe6DXt7w5RtNgSuHXxeTpxzYdOXu47zq8dSoHSRAEQRDE3QT7+uturNOjh6rOcjTlWidzGUa7MCqF0boWnHV66CYbaPEWs7SbwjwjVXzxpscxhSgnz2iEKGrLhpfms+b3/PW/nf6V4lEXw4sNTTjr2fcXNrRsjBwkQRAEQRB3G9L6rweeeqtqJAmCo7EJMMQHphFdwtp24OzRpy6z5wZsZv1d01n2aCshnPSu7TIEllb+CHcOOMNatmSmXQ+HNGA0TQiw3n1OsffP
+DZaDJAiCIAjiboMdOOLEHu39XuMSYBrRhfVS8hSjEC+s60M32TM932DPDZzMnPxD+KKVT8rJMAnS4vu80T6s44N/Vm3HYcpNaJEekZZ2nTh7ou88Y9akEQRBEARxh8E+/aIfe+jp01Uip6GnIBF29SlGYR27cvZUz+9YX5s9zNJtJCsab38rU4y6YPte68YyspZVhQ0BphTHWzHht4/FVT5sbIYcJEEQBEEQdyNCzHRgXZ7ez5trhE99CzBNePK+XYgSDsPu/thf/JnnzrD+9stZcnYq++KLZ+Qomw0WnN2fPW//NbawMO3oFwzTmU04s7Q9xD77urccJEEQBEEQdyvMVr2CP/CYJBDqR4AhjJqjXS2qRrseefQL1v2Zg8wvbBJfv81FCMTmcjTNiginFXP0S+TNOshxMuXie1hTzu/pwNkzgybIQRIEQRAEcTfD5q5IYc/2/LZKCCmJB1OYRnTh3xgNgsgRoqRte866PvAze/DRD5iF83ZWOC6ZfffdQ3LU6g02b8sTzF29tyoPTLn1hMaacNbH4ls2dGyoHCRBEARBEHcznPMHWd+Bu/g92CbBXNOQmNKThVfzVpy1u4+x9h2+Yk/1f53FZExic5fZYBRKjlK9w7wivNgTfX6rWvRv6tGvqulV5uSxi12++rQcJEEQBEEQdzsso3go69n/5/+NgplChEHIQHxAeAlh06oNZ/e0+5k90OMzZu22hQ0ZHsuXVnaVo9BgsHPft2cq78lV4ssci++bctam203W17lADpIgCIIgCEIaBbuX9bddzFq2ulElQjAapiQmDDGMdkF4teA4X5K1av0Xa9n+R/bk82/w4OhxrLh8EF+9Wqgz3lQOvkFhY8dbM2uX96vEp6lHv2CYfhx8gSUWuMtBEgRBEARBVMH+9a/nmavHbt4CI1bG7oMF4QIToqupuLZFK85atP6ddXrke2bvvo7FJgezsORubN++RnX8DkQgs1GnsQ6PsqoRMKW03YpV
+5QdzV61mP/zaXQ6WIAiCIAiiCkmMnDljw1xVh1izZqxqOwbsDaYRVzVHhzSfQaiJ3zYVJq5hHbr+xayc/4/5BhQwryBbPqywk/Btlr27bhX22ZUnmId6U5XgRFqrp88UJkRdx0c5s1cPaax5QBAEQRBEAyOJsPnLnmX+ITNZr77XqqblMDKkMYgUGARLtc+bteHs8V4/suCIjSwmKYal5j/Nv/rqHtlto4VF5gSy3pY/mmf6Ef6acNbX+v9Y8lhrOUiCIAiCIAhl2NlLnVlwnDfz9F7FBlh+yjs8yHmL9kJQ3Ftlze7j/J6unD3z/I/M3etV5hc6ngUlqNj6fY9AxMluGjUinm2Yrftk3gbr3SAklUTUrRhGEIUAc/eexd+92FEOliAIgiAIQjfs5cPdWVi8LRvkFMOcfEvYw73L2f3PljEH73I+yC1JfObKpi3oY6rDsOsTtueANXP1lI9hMvXO9xj9EqLu0Z6c+UTT3l8EQRAEQdQNjBjx3Wfu4Ut33yP+3einF/XBvBPyWffnfq8SYKbe+wxvgTblzNH7bTZ6dh85SIIgCIIgiLsXxtj9bID9hqqRL6xnUxJRt2JVa+SYh1/x7bAWjiAIgiAIwuyw8vlq1nvAJ+ZZfC9EXdPmnD3W60+mjqW9vwiCIAiCIAB7zm4iu+9+ee8vU08/tuS8uRBgIbGn+KLKJ+UgCYIgCIIg7l7YibefYk/2Plg1+oW1WqYUYBhNw55obTgLS8q+E9bKEQRBEARB3DIsangO6/HMD+ZZfN+a8+YtOe/e9ypziOonB0kQBEEQBHH3Iu391cNiM2/dUYglLJQ3tQCTzr5kLDZ9P1uy4yE5WIIgCIIgiLsXtve4J3um51nz7f3VjLOWba/z7FFJQuy1koMlCIIgCIK4e2HquFnsocdumm3vrxatOXvo+S+Ya0gPOUiCIAiCIIi7F8ZYd/7AE8f/d8i4GaYf295zg8UP3ciXbu0gB0sQBEEQBHH3wpas
+Hsp6PPWt6ff+gpDDdGZTztu0ucpmzYvknDeXgyUIgiAIgrg7gSBiVr67WacHmOkX38NXS85bteHs0T7vsaHl98vBEgRBEARB3L2wzTv6sy4Pna2afsTeX0pCqq4GAdacs/b3XWexQxbxM2daysESBEEQBEHcvfDoYeNYxy4/V00/Komoutr/ph9Z266X2dpNas55MzlYgiAIgiCIuxN27vv2rHu/k7zVvUIoYQTM1NOPLThvfQ9njw8+wU6d7SwHSxAEQRAEcXfCOW/Klq4JYO27flt17qOp9/6CNeHsvg6/sMSciXKwBEEQBEEQdy+8iRBgXrGV7L6Of1YJMCUBdSuG9WQtOOv86GfsyBE7OViCIAiCIIi7FzZ3zVOsS4+PeQsIJVMfvA1fzTi/pyNnfVwPcTp4myAIgiCIux1sPcHHzyhk995rhsX3GmvCWZeuP7LM4gI5WIIgCIIgiLsXNn9tF+agPs3btRdCyRw737cUEq8lZw889j578XBvOViCIAiCIIi7E2wFwaa94Mmad7ryv8X3pp5+bMpZ54cYs/Z7UQ6WIAjizoYx1nbp0qVdywsKHp5cXv5cUdGofjFhYX193N37ugvD34SEhH4TSkv7FBYWPrlgwYwHX3/99U5nz55tJbsgCOIOhp34vj0bOmoVa3vPn1U73yuJqFu1Jpw99Oi3rHDKUDnY2xtPT892arVzV/H3fm9v7266DL8JDHTuKC5rWnW1aUFjnZOT023A008rhl/TwsLCuvXo0eNBX1/fB0Xn8I/FeM7Ozi38/Pw6KV1X3cKEOQwY0C1YpG3mzJnt5MvNBuIVGBjY0d/N7QGl+FQ3zT0JDw/X24mVlzdpZmdn176mD0MNYamdnbuWl5e3kV2anX375rbGPbS1tdVb9hTNwaFbRnh4B7z2LLvUiigfLVNTUzs7iGsUfVU3+Tcibm3ly82GKO/3SfdZb7wcuiHuYzIyOoh7VC+bDh47duzeadOmPTJv3jyf
+CePK8rOHDVmZlpiwOz0p6eOk+NjvQgPU3/h4enzj7eH+jbf4Gx4S/G1qQvw3yQnxH4jfbi8sKJiXn5udOnbsWEtRt+6/dOmS2fPTGLjIx8zMzHsNy/+GN7RVqCtqtbrrunXr9LZVsbGx90ntjAFp05StrVu36j1PD20E4uJZ13qrzUQc4DcnObnb3Llzu1VWVnYV5a8D2vaznJtVyIuy3iIxMbGjydNkApPaZtFHZ1hYNOrd3llY2hPsefsvcTyQNFWoKKDqahj9Ej6bNefsge6vsQ//00MO9vYFYsBfpRrm76Xa66dSHffzUh3WYUeEvernrVqCjl52YTKweG/BgnnRsZHhh2wGDjgq4qQUhypTqQ7jex8Pt0MW/fv+X1J83EtbtmyxlV1JiHQ9LX63Tu3ldVRcg7gr+grw8TpsM3jA0bCggGMVM2YMkS83GwHe3r19PT0Xqb08TyrFp7qpVapj4ncH/dzcrOTLtYIKKn5bKl1XlWZFn9pM5ep83MPRYd+kCeVpp06dMntHKe53i4UL5/kFqX0PuTk6HPNVeSrGS5uJTv+ot7vbkfi4mBcyRMchu9XK9OmTBqUlJWx1tLbWmzceLs5HQ9R+R5Li4yPly80ChGNO1rCpvp7ur7k7ORzx9/JSjA8+93J3PerqaH941PC8WYsWLeokuzA5qIdbty7tMHnyZPuyoqKZ6clJb4cFBV4TZfa6m4PDDXcnR+biYMfdHR24n6cHD/DxlsxfmLgf3NXeVpj43snxprivf6m9vX6LCgv979C0tEPjy8cWb96wwV50dh0NEc3m5sqVKx1H5AzP8VF5vKpyc9HaRjQWQ1vlZGt93M/ba9+aVat0tlW4jzFREaUi/9/0cnNV9KcxX5X7ERd7m6NCLM/ctXDho7ILRYTflpMmTfIPVvu+4inaDGPrrS4TZfxwgK/P4bioiMMjh+cdLRkzZl96cvKyEVlZJaIsphcUFDgL8Xc/xCfSJ0fJJOzYvOP5
+lPjYBe6Ojq/7iP5FKX4NZegHxN99vr6eA+ToNjpwP1hiSixr2fp61fSjKQ/ehkGANcHaL8bsA1bLwd7eYGRFiJQVai/Vn/7eXlz81WmBvj5cFIZPhXDrKrswGW+88YZPQmzsu/ZWllw8VSuGrzEhvqRG32pAfx6k9uMzpk1b+O6772Jk7m/8vb1thCD5r750wY+NxUAeFxnOZ02fvkK+3GwEenm5iHDfDUJeKsSnumni7uvl7idfrhXxVPyYWuW5p/p1hhp+r3Jx5k7WVmzMqBFvbl2w4EHZrdk4/e/TXUqLxlR4ODtxHw93xXhpM8QX1/h4uvPEuNizuampD8hutTJlygR1enLir0KAKfrUGHx7ijhFhobwpIS4SfLlZkE0Ws1yszJPoCxA0Gi7b/jc280VooaPHpH/zpIlSx6SXZiUL7/8ssuWjRsTR+blHgjw870sBNd1V3t77inKhhC83E/lyX1F3ZTyXv5/9Xji/+KhSPpO8zv89XRz4c5CmLk7O/2SFBN9ubigYMealSt9Ll++fK8cdIPw3XffPVQwYsQyxF0IsH+kpTEa2ionWxv8vbl2xYrlcjIUYexC69iYqK0hAf5cCDDRZmpvE3CPXIWoHpGX89aaNWv6yS4UwVT0hAkT8oLVfn+qXF1qlYFbMm9Rhrw8JSEvxLtIqzVTuTj9IcTHLz7u7j+F+PtfToqPfbe4cPT6jetXpRw8ePBh1CE5arfE5s2bPVITEv6Fui9EpXL8GsikdsHbi6m9vVVydBsdrHjSQ8wz5GXWvAUz/egXTBZgT/X8jE1eGCcHe3tjYWHRUgiwuaIS/QFxhRuty2QB9r5KZWPSrf9Fpe6RFBuzy9Hakrk62PMgP1/F8GFohPC9gxBqbuK3RaNHLX/llVdqPbWp3dwGiXR9ht8r+dEY0mQ7eJDocIP5rJkz58iXmw1/Hx97UanOiAZMMT7VDXFHBfTx9PSRL9eKn5tfd3+Vapvmupq+dBl+L41e
+iEY4KT7up1VLl1rKbs3GqlWLn8kZNvRVB0tLqRE3Js74bVVnLwRYbMzJERkZeh8Ipk2b7JmWmPCdk42Nok+NwbeXEByhgQE8OTGxUL7cLIjOo2ledubBABGupxBX2vIAn/vIndKo/OGvLl++XK/gNJaXXtrrNnrkyBcD1b7fOdpYcy/RuaJMwCSxJXcE1a16J6Gxmt9r7pPGl4ezA3e0troZFRr8ZfGY0Zu3VFbqHd01Fz///PP9o0YMXxjg48W93IVIqRb3xmhoq5ztbNEZ/7F2+fIX5GQowvnZVhBgKMfI9wBv7fUL98jN0Z4Pz85+ddPatb1kF4qItrr1lEmTMkUbfBPCruY9v1XTlBn4hsCDOJTKkCToPUT5ceQu9nZ/ibz4Lj056fTUieOLj+3b94gcvTqzf/82x+SEuLfxIKpU1hvSUP9FvvwpBJi7HN1GB3MKdWT3PvoLb4pjh0y98z3EF96obM5Zlx4vs0uX7oyjhyDAxJPRTFHAf5Vvsk6TOgiV6i0/PweTTYGgQo/Iz1nsam973U4IIU0npBS+pjC6OzlIo1aZGWmbTpw48ZTs6h8IYdlfpOsjbb40Bn8QYKHBgXzWjBnT5MvNhq+vr7Xay/M0RKRSfKob4i7ScMNXpfKWL9dKgIfHw/5enpWa62r60mdo5Lw93NDg/T516tQ4IQ5ayK7NwtSJE12S4+N+tRcCDI2sMXHGb3ENOpaEmOgjWVlZXWS3WqmomO6amhB/yZARMDTCQf5qnpKUNEK+3CxIAiwn+2WE6yEEmLY8wOdIKx5ORubnHVi0aNH9sotbBg8/8+bMmRkTHv4JRlfcRN1C+jX3RGNK8TLUqvuQOlZnZ2nEycHGikWGBH+0dOHCMhEPvffQ1Hx97etuQoDN9fe+fUbAZAH2y5oVK6bLyVBElK2WsdFRm40ZAcvLzDy4Zf36nrILRYTfVlMnTcoQ7ZfpR8CqmVLZQzwRJkZkPV2dpTrj7uR4JTku9vSK
+ZUtyRBm6T46m0ezevdNWCLBT8N1IR8B+CVCpXOXoNipEmejAEtInVI18QYApiahbsarRL/7gY5xZq3WW+9sKCDC1l9csYwSYWqV625QCbMr48aO8XV1+sbMcLCqzHIZC2DAURExxPN/zGZ6SGH/69WOv28huauHr6TlApOt89QqsZBoBFiYEWMXMmWa/ufLUqFkEmFrluVFzXU1f+gzXoIFzsLL8q7SoaC7eYJNdmxx0DuPKSoZg+thdPNEa24hr4gpRkhgbfdQQATZz5lS31MSEL4wRYMmJiSPly80CBFhuTpY0bWyoABuVP/ygqQTYtWvXHPJzc3d7urr8htE1GPJVMxquFJdbNVH+Jf8Q+66O9tJ6MfH/qyNHDK88duBAva5xgQATgnbe7SbA/LxUv65ZuXKGnAxF6iTAsrIOGSLAJk+cOMTcAkyboVwiH3xVHtJSAXdhbo6Oon64Xi4tGrP46vXrig/k+njllW124oHwjcYqwHDPG60ASyx6jtl4n8MC+aqd75VE1K1aE84GDPoPW7ErVA729qehBdj+/XsiwgIDvrS1GCQaQFdpalEpXBjC9hOVbkDv53hkaOj3q1esCBWNgdZRGhJgyj61Ga4RjRi3G2zBR+TknF2xYoXZ3jL54YcfHhk3tmStvRDdaPyNjS9+TwLs1ti0YYNP1rChJzxEWvHw4yUEiDmFV01DOIGiDqATd7G3FcLCRtTBgANHjx51lqNodkiAVdntJMCqG/IDL3+4OzlxtCWifvw5Kj//5XfeOf2PF7IMgQRY3RDloRlTh0XyezuL1sxci++rpjXZY/03McbujOlH0JAC7Mcff+yXnpJ8xt5qsPTkrUuQoJKJcKVKho5o1tSpGG5uLbtShASYsk9dhtFFdPIJUVF/lJeXm+2Q0507t1gNz8n6eHD/vlK4xsYXvycBVndKCgtVsRERZ1zs7aQOHf4DffXX/5qG6yQTdejvfwtT+q02qxJ9Ku4g2gEbUQ8z
+0tNOv/POO/XylEsCrMpuVwGmMZQhxAMPEsif/JycY5988om9HGWDIAFWN9i+Y4+w8NhN0hShtE5LSUTdismL7x984ndmFXRnHT3UUAJMiKcHCkYM32o5YMBfzrY2Op+88TkWKTvbWnNHGyteWlK0dOvWrXr3hCEBpuxTl6ER8xIdvZe7KysfWzxUn8itK8VjxgQmxET9ZW9dtQBfKS66DOkjAVY3Nq1f7y46ZfHgYyVN3aD8G1L3YYhH9bxHB4w4oQ5jXWbVwn1XdBaST23pqWmaaUnJlxCFQ9NS39+9e/cgOcpmQyPAbnURvlKadBne4lbyo8+QRxDN4t+3nQCrmRZtpnStIaYpx1YDBnAXW1s+ZuTIXSKuj8vR1kudBJhC/M1hUl3y8W6Ua8BYXK4n62X1o3m2noDBpxBgtvYf8hf3e8jB3hk0hAATlaJ5xfTpM51srP/ElhN/+60RFkxT+NAwY8uJrKHpBy588YVBb7yQAFP2qctwHd5Ys7W04OWlxRs///zzh2X3JkPc/3tGjxhVIsqd1IGTAKs/Afbhhx86piUlvY03iDFtg7KvLczqht9h+t/TxUkSWlgAjYcidO6hAQE8LDBA/PXn0tYqKpX4nQt3sbOV7i/8a6vf1Q2/g8DAiwD9ez13MyUxcffly5eflqNuFiDA8rKGzVeJ9GDkBJ2vUebsJP1FWTQkH6XfCMO9xPYrtfzpMQgpm0EDUT5/W7ls2Uw5GYqIstUoBBjSjN8g/vrSjFFIxAW/h+FaQ/JVYyhnaFct+/XlrvY21+bPqZiK/kaOuk6MEmCa+yjytS730VhDPou6d93T1dVNjm6jQDygt2MBEaW8WTshkiDAlATUrVozcQfbcjbQfqkIT287f1vREAJs8eIF0aIx/xXTidjHSVe4+A5P1TYWg3h8dNS7ly5dMviVdRJgyj51Ga6DALMaOIDn52R/vnLl4v6ye5Nx8eLFXgUj8vfYDh6sGAdDDPEkAWYc169f
+f7Jw1KhXscYPoygo99rC05imbkqLnaUF+qivqh9jIyPei4uIOBAfE7M+Lzd7eeHIkSsz09OXJ8bGbk6IjT0RFhBw3t/H609ci5csIAAMCQ/fwxA/O6vBfGxR0SpslionweQIgffgiLycVYibt5ubFEdjDftWoR2TlkkopKmm+SEPhAXievFXyac2Q5sBYYvrVq9atVROhiKNRYDBIGiwjQTurVK6pHxAnggBHujnI/0e5R3+sfcd4offKfmuafCBNsxePEQG+np/+frx4/5y1HVijADDPcQor5QeYVK5rZkmExrShDAM2Y6oPmEH3+jFfAL2V00/mnHvr4ef/YVZBaXIwd451LcA27t3r31CTMyFwQP6/90oK4UDQ6HDE5HVwP5CHAVdPHHihFHrQkiAKfvUZbgOjR0a+ejwsJvjxxabvMIvW7bMLT0l+UuIvFuNJwkww/jmm2/aLXjhhQWW/fvdcLK1lvzpq+/4DTpXDxcnqa6GBvp/lRATvWdi+dhRb776qtu///3vWpvBivS0OXbs2POrli0LnDCubHpcVNQp0VFddXVwkDpSiAAhzBTD0xjihXAhwFzt7diyJUtyhF+zbIkiHug6T5k4cVRqcuLJ+LjYEylJCUZZWkrS8fTkpHcjgoN+8zRAjOAe+oq/sRERXw1LS301TcGnLhNhnYgKCzmZmpR0fMeOHcPlZCjSKASY+A771wX6+V4XcT+XnpryekpCvGLaYAmx0SeCA9QnQtTq98ICAz4Tvq9o6jnqB8LSV25haFuxXAVv2Y4rKXlFxPkfx9QpYYwAQ5wg8uKiIr/IGpLxRlpS4utK6TGVpSYmnkxJEH+joxtszzwlWNhQN/bcoM+qBJiSgLpVw35iQoDZu5xkm3eYfW/Keqc+BdiXX375bHHh6GOW/fuLp2JnqYHX1uHg6RCVDWuEXJzsry54oSJbdmMwJMCUfRpiaPAwvD5+bEkxhpnlIExCfnZ2QnhwkLRuSClsQwzp
+IwFmGCKM5qtWrQoMCQy4YTvYQso3fXUd32PTS0zLiYeg6+g0t2zYkCrKglFHkB05crLHlAkTyqPCwi54Ogkh5+rKsdu5vvKJ8JFei359eWZGxlc7Nm82y3owkTfN3n///U6vv/76Y6+++uqjr776llEmru+6ceNGz+yhQ847iXKFvNV1D9G5o13LSElZIvKy23vvvfeIkl/thji++uj58+e7//jjjzqP3xJxa3ABhqOqvNyceWRIyMc7t22Lw5KGN998U2uaZy2c9WhxcXF38ZBms3jevOjSwtFFOcOGvBSs9v0Um27jVAZdeawxjEbhd9hcVpS3iyLP9O4gb4wA83Fzk9I9LD11xrfffv4kTlRQSo/prOqe77twwSxrcusKcwiJZw8+/af5ph+F35ZtOXPynmFs23NbUF8CDEeclJeUvGA9aAB3srUVjYH2RhifIxwnaytMRdwoKytbKLsxChJgyj71mRwmx70qLS7a/+EnHz4jB3HLiEp0X+6wzDnoXNEpKIUPQ/iY2lH6DoY4ooElAaafD95++6mSwsLX+vfpLeW5vnqO7yG+MA3op1L9PCI3d+6hQ4cek93ViVePHvQTIuVNRxurG5q3LrWltcrEd+J7jL4N7vs8nzpp0qKvvvrK5MefmYK5c+f2Fml738lGvwDT5H9iTIzZN3xuLALMx8OVh4UEfrB//35H2YVRiPBaLF+yxDs/L+dlb3f333BKA8LUXX6qZlCwPsvN0eHX8rFjXxB+dB5ZZKwACxbtd1xUVL58+V0Js/LL5t2eFkJJ3CZFAXWr1oSzx/v+zNxiw+Qg7yzqQ4DhlPlpU6bkiqeXm1h/Aj+6GilUHEyBCbuZHBe7V1QcvQctK0ECTIdP8RdvO6LhlRaU1vxeNEB4mygzI/3yvHnz6tRwKnH69OkBw9LTjzkIcV09zOqGxg9vpGGjRaXvYYgjCTD9CP8tVy9bliU6YOYg0q2v49K0AejkvD09rs+bPXvOmTNn
+WsrubomXtmx52t3RYa/tYAuGjhth6YyL+A732KJ/PxyPdXPFiiV+yC/ZXaOhoqKib2Z62jkccaVPgCHdqPepifE6F9CbAtz7xiDA8FZseGjw+crKtb6yizqBUaYlixYuEW3X7w4QYTryGobyBTHl5erMUxLi38IB8LIrRYwVYCFqP54YHT1O+G0ju7jrYM86DOP3PSKEkjlGwLChqxBgzh772No9Oo/Hum2pDwE2a9okr4TIiO8tRUOqrwOA+MKCX7zpE+Lvf+rzTz6xkN0YDQkwZZ+Sie/RyEiNp8Jv8bmznR2PDgvlhSNGxJqq41u4cF5IfHTUd3ijVam8yemVOimUhZrfawy/IwGmn9cOH+49trDwPWxerEscaCzAx0ea5nFxsGN5OVkrLl68aNLO5eDBg32T4+Lewuiavr3/NIYHBUcrK6zlWXjt2rVusqtGw4wZM/oZJcBEuU6Ji5slX242GpsA27hxvZ/sos5AhL0wa+ZaO8vBN9BP6CrP+M7Xw12kXeS52u/Szp07dW7wW5cRsKS4mPGXTl1qK7u462A2ftn8/qckoaQsom7FhKhr3okzt8hilGU5yDsLcwuwAwcOWGQNSXsdC+mx072uN4XgW3oDT3TOwf7+548cORIhu6kTJMCU/aHjCw8K5HmZw3hkaIg0TK/0WxwVg4XTxaNHzWYmev23pKCgNDI4iGEErGYc0ZB7u7tLcRs1PI9HhYVJb8BW/43GcC0JMP2UFhVFBKv9pNEvjZ+avjUGwYt1NoiH6IhOCLFk8i1IwOnTp2ND/NUXsQEzRjl1CQNNfC1FmxAfFfXlrInTzLY5cF0hAVZ/AgxgJDU9OflzzbYhuso0vsNvRN9zdfXSpaNF3LW+zEECzHiYW3gce6zXX6YXYPLeX70GX2HBGXr7vtsWcwowUdifLC0u2mBrMfAmphR1iS9NJcK6I9ER/HfFwoWjRKd/SwsOSYDV9oe04vDrmLDQ3+bNrvguLTnxZyzM
+rvk7zfUQwyPzck9i6lAOps6I8tA1IzV5JbYyQIdQMzx0Ak6inAxJS/1h+ZIl56NCQ6652iuXG83vSYBp54sLXzwyeuSItdhd3kd0KNp8awzfY2sY8e/P9u/ZEy+7MTkizW3mzJ41XzxsMdtBAw0aBcNDAx7OxpePLRTX632jrT4hAVa/Agzpmj1z5iLRNlzHw6Ouco3vUG+8XF1/GT1q1DRdG3iTADMeFpNtz3oPOmt6AYYd9YUAc/fZxA+duaX1p40acwkwNLJlxcUlouL/hg5en2+cCWc9cADHq9zFowtni+vrtO6rOiTAavtDWnFcR3hw8FdbNm3ak5ud+ba16ASVfguzsRjIk+Jjf5wxZYret4j0sX//ftu4yIhTeD28ZnlAfNEJWA0awIpHF5w6+Mor60UDdwlvSiqVHc3vSYBp54VZs9xTEuL+azWgnzTNrM03DHnsaGcj/SY/J2ejePgx6ZuvNXn//fefDPb1PY4HM83+UErxgmm+Q7nNGjrk0M6dOxvVehASYPUuwJquWrw40N/L8zvs3eanUg4bhnINkeZib3ujuKCgcsuWLVrFEgkw42Gvvv0Qs7JfXiXATLUPGEa/molS1oWz/i5Y/mLQRrq3JeYSYEVjRsWJBucba9GB4zpdDWyw2o9jOgIbPWYNGbJr/fr1tfYXqgskwGr7Q1oxyhGsVl86ePBgxfixY9dgKB+jC0q/R4cvhAjLF0pNDqbOzJkxIz02MvxXjHLWLGuIL+JgOWDAzYrpMxedfe+9MX4ebuddhChQKpf4PQkw7Qi/zUYNH54VItKAaUUln9UN04+YFg4JUH/80rZtIbIbs4LtKYL91X/gNAxd6/1gSD8EWHRY+C+Fo0Y1qikJEmD1K8BAeXn5s6FBAZ8jbGyCqxQ2DG0H6oyrvR2fUF5+YuvWrffKLmpBAsx4II6YlSqFd+wuRJOpFuJDyDXhzCvkfVaxqq8c1J2JOQTYpvXrXRLiYj7C7vXYSFWX
+X3yncnHimIpIS0x8VVSQOi+6rwkJsNr+kFZ0ZKGB/td27txZVFZSkoUjZrSvA3PnrkIYF4wYvooxVmdhLAmN7MyZYUEB3FkeaakVlmione3tboqGMuSDDz6I91V5/AcjJErlB9eTANPOpfPnu+dlZgpxja0kdHcm8K2ZykmKj90k7nO97Lfz0UcfOSTGRJ1x1PFGbHXDesRAHx9eMHwEFuU2mmlIEmD1L8AyMzOfjgwN+Vw6hUC0UbryHPUKNqZg1Ml169ZpHdklAVY32MyVvZlf2MmqUbBm1YSUsYZd74U1bc55u66cpWWnNqZ6bhZMLcC+++67Z7OHZLzs5iS9SaXzyRa+UPH7PvsMjwkPu7Bjy5YA2Y1JIAFW219VWi2w+J4tnjdv9Ni8POvQ4IBvsO2A0u8xdWVjYYHNMN96/fXXbeSgjOb69etPpScn70VDWHO0DXFFOcA6n2C1+rronJ4/fPhwkr+P13c0Bfm/OBkjwPZs3+40JDXl/OD+/bX61Bjy12rgQGyW+fvcadOKZBdmRwi9tkIkLhD3XNrwVV880dE72Fjx/OF5L3908eJzspsGhwRY/QuwEVlZz0YGBX0u+iKto/cwlG13UWcwuzKutPRNGgEzPSgP/IVF4ay/5W9VIgzrt5QElj6DAMO1LTizUW3iff30rjO/7TGlABMNapfRBfnznGytfrPDOVx+urcRwGas6CDEU8x/lyxalIUGWXZlEkiA1fZXlVYLHhUWyqdNmlS+Z8+eB9OSkw5gtFLpGnyGKcvYyPCrpaVFdX4r9cjB/SHxUZGfolzULGcIA+ICZ0NmDxvy0bJly57YtnFjvr+P9zUczKxULnENCTDtlJcXxcRFR/2JPNXm82/zxvoqC2wOevZf//qXl+yiXpg/d25abGTkFWw7g9EtxfjJhnKAt6nTU5LxsOYmu2hwSIDVvwBbtXSpncjHr7DNBOKuFDYMZQbiy8Xe7mZZUeG+3bt3ax1RIQFWd/ix
+s/eyoaPL2UOP/14lwppXE1U1hVZN0/wG1zXhrMdzh9nOO3Tfr5qYUoDNmzevwNPV6Xs0kmhsdDVE8ONgZcndnZxuTpk0abKo1CZXuyTAavtDWrEZbkRoMJ8wrgz53qqoYOQcCB1tDRnWT4T6+/ERw3PL0ajLwRnF+PKS0WFBgdftxD2vWc4QV2x5YWsxCNOPq65evdppw7o1pYF+vr80pAALDhACLPn2E2DCZ4uhGRljwgIDUL8U/VU3T9eq43GGZaRtFQ9B9brP1smTJ+1S4uPflI6lEkJQKX4aQx5gvVhMRPgvpUVFUbKLBocEWP0KMJTv9atX5wih9JNKlF2lcDWmqTeeri7Xhw3NEHp/rtY3640VYNiINTk2euKZM2fu7GkyA2FbTrVlHmHl7OleX/OmWA8mbtXfC/Pl6cV/GD7HWY+YthSC7b7OnD361BE2fuadd+ajNkwlwDZXVgYF+vp8jvVFOHxVmy9UCHyHKQdMe40cnrt548aND8huTAoJsNr+kFbco4hgIcDKSqW0lpeWJiEu6NyVGlM0YFgjlJeZufWbixcflwIzAoxsZg3JWIk3XRFGzbghzKpG0vnPSeXlCaKBbV65fv24hhRgaISD1H4sMTExR77cbOTnZr+IcPGkru2+4XNDBdjZs2c7pyclLZDy1UP76AAMfiF+INbyc3MnyS7qDXGvuw5LS1uDaSScfqAUx+qGQ71DgwJ4bvYQ7OnUKHbFJwFWvwLs2MVjbUoKR78o+pAbqKfa8huG77Dtjbeb67WSojFluk51qIsAi44MGyFfTghQJ1nm6HT2+JNv8IcfEVJZI7AgyGD4t8ZkkdbmXs669/iSDbTfyMqXDJZd3R3URYCJivy2SqXqLLto8tprrz2bnpj4nqudjTRaok1YoDLgeuxgjC0nkuLiTq9eXWm2tRwkwGr7Q1ohwCKFAJsyfrzUCUwsKbFLiou9iqlJpQ4E1+BQ9KTY2LPbN2/2kAIzgstfXO4v
+OpzXIeJqLpjFv/GZm+hY46IirgkBJu03Vrl27cSGFGDSSwneXjczMzJwGHl70bB0wsicKU347Ch8dx41fPhedFSSAFNIqyZOhgqwE0eO9ExPTnzRzdlROnJKyZ/G4BeL4CNDgn8ZV1aWKruoV3IzM8eGCgHoYl9bnNc0dI74OyovbynyTnbRoJAAq18BtmvXdi9/X58f3Jyq9obTV2YQvo+763crFiyIF3HXeh6kMQJMCDop3LSkpDGiHHZBXVaq47dily5d6oy/eIAV/hvdEVy6YPPWWLGg8HnsgUffYB06X2Kduv7OO9/P+X0iq+7rLKwTZx07/5fd3/0T9mS/gyxxSLpI4y1vPXXbURcBFujt9bazs7N0rpYoHN3Kiot32A0ezHAYrb5F9+hELPv1RYP/+a5t29ylSJgJEmC1/SGtmIIU+c+nTZo4G9ftf/HFnvl5Oa9jyxA0pjWvla6BaAsNvT5x3LhhUmBGsHH9+riwwIAv0EEF1CgfCAuNuIgTGz1y+L8WLFjwIK5Zt2bVJPHbBh0Bw7+HJCcfnTRuXHlJYeG0otGjhI02mZWMKZoyfuzYaalJiZ/gVXocmaLtvuFzQwXYli2VtunJSaedsYmtFn8aw/cQYPExMZ+sXbUqUHZRr4wbNy49OiLiL5RLffFFHmDdT86wYdsvXLjwlOyiQSEBZpgA27BhrVp2UWdefPHFgRPKy9/EVDTqi1LboDHkN8oL4hgdFvqfl19+ub/sRhGjRsBEfYX4S01MPDlp4vhZZcWFk5Xq+K0Y2pzCgoKphQUjYsvLy2/LaU4+dfaTLCw5gbkGzeEOfltZP5dd7Hm73czCcSXzjhzDp88LYu9/apYZsNsCYwQYCjQqm5O11TuPNMEELm+6ZfPmqfaWlj9DwOB7bY0PfKPA2gwaIJ4e3H7csGEDXjHVuiuxKSABVtsf0ooF1xBg0ydOnIPr8AQ3deLE+RiBwD2qeQ18YTsD7CmVn5e7AA27FKCB
+lJSMmeLv430DAl1JgKGRdLC2+mNCWencs2fPSm8pNaQAg2k6FYQDw2aP+kaT6mLwi41IJd8iHKXfwDT5ZIgAGzNmjFNkaMi/PF30r/9CmBh9jI2MPL5jx44GWXsxZ86coLioyC/sRblEOhXjWc2wVi4+KnL37u3bG8WbkCTADBFgQec2b66s8wseoo1qXzFtmlVaUtIebEeieUDSVV4wGIA3q2Ej8/NeO3funM7tVYwRYBpD+DDkga4NYetimrT5eqn2qtXqrnI0iTsJYwQYCjQq8jOP9ziZn5/f9r333nP3dnf/Gkfb+HjoXveFv2igHK2sfl+yZNFMUYm1vg5sKkiA1fZXJcAG84iQID514gRJgIl70XTu7Jnxwf5qhsZNqUHFE5+HsyNPT0o68PXXX/eWAjQA3OchackvIT5ujrUXmSMsCAvReF2bPXNmBOKC6zZsWDepoaYgYZp4QpB6ubmZ1XR12hrD94YKsIqKGaFx0ZE/2FgM0Ou3ahNL7P8Vt+2ll156QnZRr6xevdwlOSH+XUM2jEV6rAYO4MPS0z58+403PGUXDQoJMN0CzAcCLCTogwMH9jjJLvQiwmjxzTcH2s2fP7/LmuXL+1VUVIxLS0o45yDaLhdRTtAm6Cvb+A2WxLg7O17bVFlZomlbtFEXAYbRWOx1iXOOler2rRjOxVW5ujJPN7cNfg7K2z4RtznGjoCp3F1vik7gxcmTx9uPGTHiPUxfYL2MrqlHmLuTg3hqcfpzyoQJ27FIWA7erJAAq+0Paa0pwMDUqRP6pycnfYsXI5TWVeA6R+kNtLCPN23YZPBU1el3TttGh4W+g7cK0chX94kw0DHgCTU5NubyhlX/2/V43Zo1DToCVt2kJ1vZpJEwE5rkVyHMmob0GirAZk+fnibSyXDElLZyoDHcF6xnGVs0Zu/vv/9usLA2JW//623rzCFpJx2tLRXjWN2QHicbK56WlPjZ+vVrTLpvYF0hAaZbgHm5OvPI
+0KDPli5dnL9q1SrLOXPmWC9YsKCWLVmyxLq8uNgqPyfHee7s2fETykrL83NydwxJTf3C09XlD7QFhryoAUObgTRjXWV4kP//nT9//kk5+lqpiwCDIf1V9s+6fauGByPx9y9fL8+1fn53wZ5YdyOGCjBNByAK9V85w4Z+NSIv9yu8PYXCiu90NjriN5gOSYqLfvfYsWPSGp/6gARYbX9Iq5IA271792NFowsOYB2OUici5ZGFyKMA/xuTx48vli/Ty8YN6/LFtT9AvNUU6fCJFzKwnqO4sPDIli1b/hbmjUmANQZDeg0VYMWjRiVFR4QzJ1tbRV/VDT4huIelpy3HVLTsol6ZNGlSd1H31itNfysZ2hMh6j8pHj3aZPtK3QokwHSLFSlPfLxvxEVHXU0UD1pxUZHfKVlCdNR3MZERl4Xf7/28VVd9PN1/xf5dwqR8w9uM8Kctf6sb2gwseXB3dvzthVkzpshR10ldBZi5TE7nX6KvIAF2p2K0AHN3uyEE2M9D01Kl9VxoNHWNfuE6/AbrNkL91Z8dOHDARw7a7JAAq+0PaVUSYFeuXOk474XZU0QHfwNrNmpeB3/o/AN8vXlu1tANorO+T75UJ+XFRWv8vVQM5wzWLF/wicPXnR3sfpk3e/Z44fPvPXpIgP3TkF5DBVh6alKi6HRvSm9yKviqbug88Tp9sL/fOH1TNOaiKDf3gYiQYGmbEqyHU4pndUP5FHX149zMIb6yiwaFBJhusSLVVfEbL/FbjIZhuk7J8D36CvjzFmILewNKfY74Dp9py9eahnYV9UR6uSQ66q1z584ZtHUOCTCi3jFmChKVQOXm8kdUWPDecWWlY6Mjwn6q2lrAQ7GT1Bhercc0h3gi+Ss8KPC9N48c0fk2iqkgAVbbH9KqJMBEo9psxpQpqmB/9e8YrVTqSKT7LxqnuKiI4++/804/+VKtfPXVV12T4+KOYZoN5aS6P/wbYcgd0vfbt28PQhzkS0mA1TCk
+11ABlpQULwkw5K2Sr+qG34QHB4l7GjVBvrzemT9//sPxUZFrxf02SIDh7TdRfj/Oz80kAaaDxiLAYPgN9odEP4ByrMsQF41P5Jm2/FQyDAZg7RROgAj28/t4z5494XK09UICjKh3jF2ELyrczeeefHL/4cMvd9+8qXKBzaCBv2OIWKcAkyqRN8cCbxuLgTx7yJBXti5davY9P0iA1fanTYCBwsLCJ9OSEj/F1LJmn5vq1+L+4/SCEH/1F2tWromTL9PKoUOHPPx9VB95KuzGjnhAlKFMDE1LvXDkyJEe8mUSJMD+aUgv0mqIAIuPj00M8lcbKMBcJQGWGBtr0DSNOdi4cePDiTExa/GgZpAAE+mKCAn+OD8/lwSYDhqTAIMh/YaY0rWGWICPEPAe7txyQH8RJ4/LSxcuzKs+qq4PEmBEvWOMAMP3mIfv37vXO016N2klCvejosP+N4Z6UWj1TUXiqBHsgI8DdStmzMAxOGbd24QEWG1/SKs2AXbgwIH7x5WXv2hnaXnTS3TMNX3g/mKNWLC/343ysSUvyJdpZcWyZeUqd5eflfaHQzyw+F6I9xvlpSU7L1y48I+G8m4RYEiHtntV3fAbQwVYempqYkhggOFTkKKDDvD1LpMvr3dycnK6RYaELAtW+xk8BRkaFPhxJk1B6qSxCTBzGtoXDxcn6QHRy931uzEFWWNEPKW9Kg2lsQowP2/VahJgdyjGCDCY1BG4uZ7p1q2btI3Ezm07E0XlvuJgZSVVRF0+Ary9pd9YDxqA3/24bdu2aDQSUkTMAAmw2v6QVm0CTAjqti9UVIx0c7C/rm0dGEascMh6enLybvF7nfvqjBw+/CWpYVcYIYUvD9HQebq6/LR65cpCUQ6ay5dJNLQAk/yrPKTXzANF+BAHuF+mNPjEW2Jo8FEvtN0zGL4zVICNHDkyMSos7Cb2btPlE4YHKnTMsZGRs8U9aJDNHqdNm/ZIWJD/Os0ia12G9EBMhAcHXRiZ
+l1dv60l1QQKs4cQK2gbsoYeHPDcR/5T4uK9nzZgx4uLFi0aJL2CMAMO9xG9QZgN8vCQBiLiY0jQ+RZv+Cu0DdodirADDb0The1uzL4mojC2mTZm82tnO9g90bDVHOmoarscw8cDne/PEmJgPjh44YCFFxAyQAKvtD2nVJsDA+PHjrYMD1Fextw3uk5IPrBELCfR/++jRo9byZbU4/PLL3cODgv5PsxFjTR/e4nMvISiCAwM+O7hvn40oR/9YAN7QAkwSRL5oCL3e8/Fw3SDE2DbxuelMpdom4r7Vy919W4i/+mukUeq8FeICQ3oNFWBzZ8/CNhTSVIy+so/1VAh35PC87devXGmQfcBQjjIz0k6gE9UXX3zvKIROWkrypXXrVgfJLhoUEmD1L8CQl1gz6OZoL82oIP5JcTEHli9ZFCMeDNvJUTUKY0fAMGUuwv2vaCc/Ennwofjs36Jem8xEGs9V+fVcFBgYaLSgJG4D6iLAxN9/HMYtCnz/oWkppx2sBksdhC5hgYoDc3d25NaigxiRl7d9OR3GrdUQd5GGehNgkydPfmBIetoHmCpGo12zTEBgY5hfND7/XbViRZ58WS1e3LEjzNfd45JKiDVMPVf3AZ+YHoOgSEtKevPUqVNt5cv+pqEFGDqW0KAAlp6WMsHN3/oBV1fbHr6+vsJcTWOurj369OnzaEpMTI8xI/MPoixILyoopBWG9BoqwOa/UBGeEB35I0aa9ZV9iGxsxpqZlrL7vbfe0tnxmot9u3e7Z2akfwABphTH6ob02FgM4hlpqR8dPXiwzjurmxISYA0zAuaLg+a9va6EBgS8k5OVOX3f4X16XwzShTECDBuP4wD70KCg5R6uTgFe7i5+/j4qtb/KdObn5RXg6+7lJ/qLfuin5WgSdxJ1EmCqfwowULluXbifl8dlHCeCyqzLFxoifI8jcdABTJw4fpy+6ay60FgFmJeTk21jFWBvvvnmfdOnTFovxPRfeOOx5n3E
+/7GlBITY2KKi1fJltZg9a9YclYvLdexuruTD1d6ei+//mjxhwhr5kn/QkAIMviGGQgMD2ND09Fz5crNROHrUrgARJvLKFAJM3BfX6LCQs5gu1jaipjH4xShCXFTE4T179kgHodc38194QR0XEX4R+8FpK7fVDSOw0eEh+5YtWNBHdtGgkADTL8D8VDhuq2qJCvJByeDHEF8wiC/sS1hWUvL2GydOmGRDXmMEmLebeEATAiw5OTFLvpwgjMdUAgyUlRTN8XF3+81+sIXUQaNSKfmASZVO/B3UpxePiwz/Hgc2o8GQXZmExirArAcNshDxOoX9l5TiU93khqneBBga102VlSM8XZ1+hgCreT38erric08eHxV1WGmtxVdffXVP9tAhR9GQQQTULFf+PkLgODlAUFzeunVThnzZP2hoAYa0B4n7kxgfP1K+3CyI/G6alTl0j7hv0l552u4bPjdUgC1dutQuKSHhbUMFmKONJU+IjbmwYcOGWz4suS5MnTApLS4q8gYOg9eWfo1ppsWT42M27d669THZRYNCAky3WEG6sZ7S082Zift3U3xWy4QP6a1dxFP8X2c5kPyJ+FoPHIA36j86sGeP1qUQxmDUCJibm7iPvjwlIW4C1s7KLgjCOEwpwERB7JmZkbYPb0W62tvqnIqEoSJhb5iBvXvxIakpb548edJOdmUSIMBERTVKgM2pBwGWn51t5e/tfVopLjUNca9PAQZ27txpFRka8hV2qUenX9MXnmRxtFSQv9+5EydOqOTL/kbcx4Ex4WEXsb5IavhrXI9O1NfDDW/ffXDw4MFe8mX/oFEIMH81T05MNLsAy83K2oNwTSXAjhw50jMlMeFFVwcHRV/VDX4dbax4ZGjolXFlZamyi3pDpL/Z8Ozs4rCgQO7iaK81/RrDukFfd3eeM3ToMnFto1iYTAJMu1jBGlDU39DAgB/VPqo9ot1YIto+Yapq5r1EtNWLRfyO+7i7/4qHEX3lAIb6
+YC/assKCgtWvvfZaNzl6dcZYARYs+reEuJjxp05dIgFG1A1TCjCwe/uuoLDAgI+tB2IvFv0VCSNl2HfKwdqSi45ogymPKvL0dJYEGN5SUQpbY0gT9icLF53A/IoKswuwQ4cOJYQGBX0Ooaovf/B9fQuwmTNntsvPzjqJt4qkdUne/ywX8IG4+3mpfl63ZtU/NvBEh7ps8eJ00VF+j92tq18HQ7zchDBA2RBi/RA6CfnSf3BXCbAc0wqwq1evds4amrFQ1FPR8bop+tMY/NpbWYnyEMKLxoyZgvjIbuoF8dB2/4i8nPXYzBmnImhLv8awdQnqaebQ9LGyiwaHBJh2sYK3iP3FA1tcVOSHmzdvcJVdKHLhgw+eGpqaehwCTGnkvLohL2E2gwbyYH/19ckTJoSJeLWQXdWJugiwJCHALpEAI+qKqQUYGDV8eKGo7NcxRKzvrUgYfmPZvy8P9PHhpYWFOJLGJAU6PDBwQLDa77y+yoQ02VsN5mFBAUKUTJ4mX242jh06VBATEX4FYerLczQykgBzd683AYY9uebOnr3Mxd72T6WGEP/HIn00vGNGjdxVvdPet29f63Fjx650sbf7HeJN6VqINyHQ/phTUaF1LzESYLXjZKgAEz6bDc/OLBYdk9SRKfnTmJRW0YkiLzOHpG+GIJLd1Asfnj9vnZKUdMJB3BNsJ6AUx+qGEY+4yIgb48vHDpVdNDgkwHSPgHm5OfPIsNBzR44cqDVaXpNlS5aUCr9/4A1eHE2l5LO64bgiywH9+Njiov0XL15UHE03FBJgRL1jDgH2/fffP5yTkb4RbzW52NdehF3T0DDBBvXpIypq2Le7du1Kkl3dEqMy0wbEhIedx5O1rkYCYaOjCvb3Fw1QzlT5crOxbNGSLPEUfxmLn7U11hrD9/UtwEQD23z3jheTRaP8A/bqqtkxwjfyFJtmxkZHvi0E2yPypU22bNnSLTtz2IfIT23izd3RAQ3+xW1btkTIl9WC
+BFjtOBkqwEBpUVFMTFTETYwsK/mrbvCNBfCxUZH/evPNN91kF/XC8iULk6PCQn+wEg9rhrQTeNM6Niri/AsvzHKXXTQ4JMB0CzBsQxMeEnx+4/r1eg9Pv379+lNZQ9L3Y+9AtBP6ygS+tx1swUMD/W+OyMlJE3H7+zgzYyEBRtQ75hBg4K1Tp/wzUlMuDOjTWxRm/btb45BnDycn8YRrwRNiog7/8ccft/RKMZhQWjowJSn+E3Ra+gRY1WiNDx+akjJbvtxslIwuGibExWVUdG2NNQxxxrlmQWrfG4lRUfUmwMCBl156IiYs9GOEr7SOC1tLuEkCy/eLY8eORcuXNdm0aZNjaID/ZTTMEAzVr8O/8Rka5ajQkFOit9e67xQJsNpxMkaAbamsdB6WnnbBkL3AkL/4XURw8F+L580bLbswO0h7fnb2PLyM4mjgHmAudrY8NT521969e5+V3TQ4JMAMEGChQoBt1C/AwKJFczOC/fx+wPSiCEPRb3VD+BZ9n+fD0lNf+/zzzwfLboyGBBhR75hLgDHGWpeVlGSJjvovq4H9DZqKRGVzEp2jePr5MyMteaWo6Le0M/e2jRsHjswfLnVCWPitq2HEgmVMgeZmDt0h4n6f7MIsjCssnu7v7f2XNnGhiRMaRax5EY0oLy8t1fuGmikF2NKlS1vm5+QcVrm4KD6JSmv3RGfo4eL8++KF8+fiGjT4a1evHevq6PCrkriED6z3w9/heTnbxe+1Pq2SAKsdJ2ME2JUrVx4fmZdXiQX2ujpIGHyjnOGNyYzkpHUiTm1kN2bl0jffWCXGxZ7CPdYXRxjKFEZdR+RmT/nmm2/qtNmmOSABZloBdubMmQ5JcbHrVK7O8oOx7n4JbRHEmkjnX+Vjx5bKboyGBBhR75hLgIFdu3Z1zBk6dCmebvUd2A1DAwXDOg8vd9dfS4uLC2RXdWLR7NlPZqQkvYwGXl+FEuFJDUlMRNiRkydP/uNgaFOTl525NdDX
+V8oTXY01GkUnW1tsEXB16tSpLvLlWjGlAIMwWLxocYWni9OvWIxf897h/66O9lzl7sJHZGcfwDXHjh27d/KECa84WFszNGI1r0FDiU1c/bxU1xbOn6/z7EESYLXjZIwAE35b5OdmZ2IrDQ/nqpcelPxqDHmMaciQwICP9x/aEyi7MSuzpk8vDgv0v479nHQ9oGnyBBuwRoWH8fLy0hjZRaOABJhpBRhYs3JlQnR46A+D+z5v0CgYDC9SJcRGv3v8+GFH2Y1RkAAj6h1zCjBw+vRp25xhQ9/t1/NZaSpSW+OkMfjHq+Y49Fk0VJ/u2fNSiOzKaF7cuPHhvOzsVdhOQV8HhHg52dnwYLXvx68fPx4suzA5//nPf3rERUW+jrzQ1ygizq6ODjw+OvqDopFFvWUXWjGlAAM7duwI8PV0/xz7fmHriep+4B/xlxrX4KCzolHuWp6f3zk1Pv4iNhRFw1wzDvg/1oWFBKjPHti3T+eCXBJgteNkjAADEO3JCfHfWgvh4ieu1+YbBgGEByVflerGqJH5K2UXZoMx9kxCTPRBt6oNeXXGTfPdwOf78IKR+efefPNNG9lNo4AEmOkF2FcffdRVxGUD2m6MwGvboFhjEGnSQdxubjdKxoyZK8qX0SOkJMCIesfcAgxTkcuWLU4NCwq4YdHveel6XY0tDG+/oKOBUBAd5nFR4Z+T3RnFlStXOk4oK52qEpXYx91dNBTK4cE0wkQ0jn+IJ/P5sguTs2f37iFqb69vHG2tFYWFxpBHmDZFnEYOz3u9srLySdmFVkwtwN54440HosPD3vEV4gt7etX0KXUoorFyd3b6/D8XLjhvWLWqr7eH+/ea8wVr/VZ8jg1cRedz6LvvvntIDkYREmC142SsAPvggw8eLR4zerONuN/Y5kHJr8Y04eKUA5HfX+IoKdmNWaiYMXNyoI/3NYxaBPrqH+FAR48R49Li4qnmXiJgLCTATC/AwM5tO8OFIPq6X6/ndI6Q
+wpC3MMv+/XhsRMSXe3fvDpXdGAwJMKLeMbcAAzjepqykaCGmGtCBaCqLkn8YvkM4eCJ3sLH+o7Bg5GoIOdmdwYiGovm4cWXxoiOX1o/4emrflwyfozHB2YUJMVFvifBMvsgXaSgqKNjt4eLMkDZd+Y34oMO1HWzBcNj5t99+q/e8TFMLMIiDEcPztnq5uzK8sVkzvvi/h3g6dbSy/Hbvyy8Xbdy4Md/O2vInTOcqnf+IN/KC1X68tHDMCuFb59tKJMBqx8lYASZ8tygrKwn38/K86Wxr+7efmr41hk4OIgfr9LKGpB0V15tlp/kjBw6ohCi46CQeQtA5K91fjUnxFYZzLRNioq/OmDJF71YG9Q0JMPMIMNFedhmWljYbbY+HaJd1lV1Y1SiulRRm7rBhK43tM0iAEfVOfQgwsHfn3meHpaefwa736Ej0haX5HntGuTnY/7Zk1qwRsiujGD9+vHVyYsIv9qLz17UQH4YKjA7f3cXp2vSpU+eIhqbOrzQrsWv7llSRzz8gDF2NFgwNAKb+fDw8bs6ZNSsFjZ7sRiumFmBg1bJl5V7ubj9jwX3Np1D4kqYIHOyvl5WWvldeUvK+k431n95o7GuEj2ulNUb+6h8XL16QLbvXCgmw2nEyVoABjJyOGpH3zuB+faUyp82/xpDXLva23MnO+pfi0aMXiE7MpKNNX3zyyTN5mZlHIL5QpvSt79GkG3s9TSov33z+1KnusqtGAwkw8wgwsGTBAqe0xITPBsuzJ0phVDf8BqeaiHbws9WrV4fLbgyiTgIsQQiwSyTAiDpSXwJMVNoWe/fuDg0PCryGPX9QafWFh04bDYedxSAeGqD++vjhwzp3UlZi//79j5eVlpzCa8r6BBjig20XIBQCfX0vb9u2MR/xll3dEkeOHLFLSYg/B0GJjlZXx4N44Igm/DYpLu77WbNmDZTd6MQcAuytt94IEELkU20beqLhxr2MCgvF1hLcWzRMaHSVwndzcuBR
+4aFnTpw4oXeRLAmw2nGqiwATAqrd0qVLMyGKMbIl6q7WMGDIa6z3c7Cxwqjxr3MrKiYLHyY5KP/8+fNPjsrPWydE+nV09kr3tbppvh/cvy+PiYi4vm3TpkCRXyZ9KDIFJMDMJ8BE2etcNHr0DGmpg2NVG6TrfFP0Gc7iAQLLHbKGZuwV1+udOdBgrAALVat5Ynz0xN27d9/S2/rEXUx9CTDA+Vf3zJ41a4bt4MHcxa7qDUBdnQEMFQqvIg/u25fn5WSd+On335+R3RkEOqBF8+YVYFNYTxesQVIOR2MID6M66OjSk5OurVi2bIRocOp85py4ts32ykr/7Mwhb2DDQLzub0jHgw7TeuAANqGs7MV9+/YZdM6ZOQTYtz///EBSTMwxNNBomGr61dxDT+f/vTKu9BsIOPzNTE/fJe6J3vSQAKsdp7oIMLBi/vyHR+RmHx0kHkLQEesrf9iOBQ8ieMs12N/vj5H5+VPfeOO4UfWuJitWrLAdOXz4RlEObiANWAuoLa0aw/cezo7col9fPmXixNVnzpxpFGc/1oQEmPkEGNiwZo1Tbnbm1wP69OK+wqe+coPyjalIfx/vyytXr8yS3ejFWAGGh+iI4ODh8uUEYTz1KcDA0srKrkNSU16z6t9P6tD1hYnKhjdg0DhYDuh3Y8qECTiEt4PsziBWLl7cPyMl+QfrQYOkTkxvBySLPryJGRMW9seI3Nw5mMpk7BedC8erI0RGl/nz5w/Kz84uzUxP/QJrcLDXmJQeHQ0IvkODhk1Ovdxdf1u5clk0GjzZrU7MIcBASWHhStFhMohY5E1Nn5qw0GgphYtrbEWYYYEBN8uKCw06a5MEWO041VWAiTCabdu2SRXo6/29HbYBEfdJXx0QeS+NGGM0GMe95AwdsmPhwrn+n376qVHrwl47dOjZcWVlyWlJiWfQWbvYQXzJ7UiNMKsbvodowMh1alLil5s3b+4vu2x0kAAzrwDDKFhFxcxxEFVoF7Em
+UCksjaHseIgHQhdRVyLDQl8V1xs0bW2MAEOaVMJyhg2byPnvz/3000/Pnjt3rud//vMfs9r58+d74eUyOcrE7U59CzB0OCdfe81dNApfQuAYIoiqvveUOgMPJ6ebC+fNy4Qf2aVePv/8805LFi5cjQ1hMYytrYGsbghTegtx8GBp9CY5Nvb9CeVjl0wZNy6xoKBg0O7t259bv379I8NihnVKDEzsuHHjiod37tz5bFFR0fPlpYXqqZMmzExLTn4bPvDyAUbfcKi1vrAhVtCoWVsMZKIxPD137lyDT/k3lwCrrKws8PfxuoLXvJUEmD7DNdjbLSIk+JuVy5fEyW51QgKsdpzqKsAANi6dOXXqTHtrK4a1V/CnLSyNab53sbfhzvZ2Qggl/VRaNGZdXvawkKlTJ/TdvXXrY6JsdL16lXcS6eh0hV/puHLlym6VK1c+WVxcPignKyttRE7OnuiwMI41mIi7IeHifqNTR71xd3G8vn371tHCf6Od5iEBZl4BBkpLS3uKuvshXsaAX71lSOSxrWivVO5u1zZu2DBZdqMTo0bAPN2lezk0Pe2TubMrXpk6eeKesrEle8ePKzOPlZXtLSwYtW/WtGkHdu3aFSTuQaObiifqQH0LMICGYf3atVNcHWz/QAeLJxpDGmWIGYycJcfHXq5cu9ZZ+DFYhB0/ftwyPirqktWA/lLFMURIaOKECokRLIgorHNKiI46Xzhq1MnsoUM3hAQETAsNDJyYPSR91egRI46lxMf/Kyww4DriirRhJA0NlL70wTQdDzpIlZvLz1s2bkxEXslJ0Iu5BNh7773nGB4S/B6EqK7GVpdhb7CkuNhX33nnTQvZrU5IgNWO060IMLBu3br705ISjuFBBvcS+aotPI3he/wOe/NhCh2dtBAQfw5JS34vPzt7S/awYXOmTJgwdfnSxdPGjSubPDQtbX5u1tA9aYmJF9AJ4m1f3EOUG6X7WNM08al6G9OaiweZzdgZXU5C
+o4QEmPkFmAjznqlTJ+a4OztKa0nhW1fZRVlDu40Rs7CgoA/Onj2rd+TWGAGmqRc4Exdrde0tLTkOlDeX2VtZceyl6e+t4tOmTBwl8qO5HG3idqYhBBi4evVqp+HZma9gmwUcvGqQIJIrFaYlSgsLj1+4cEHv5qQaGGOtK9evL3ays/4Ne3DBnyHprW5ebugAHUTn5SR1LC6iwcJ2C/CDtV2O6NjEX/xbX8NU0zQVGgulMVo0vmzsoXPnzhm1+NlcAgyNX2pi4su4VrOWS8m3kuG30jXi33lZmdh+wqDOlARY7TjdqgADR48etY6NjjyL8ouHA/jVFqaSYToSeeNiZyMeFCA43KXPNSdJ4OURZztrEU/xECHqAO5RTR/aTBMXpBEnQIzIzX3t/fff17v/XUNDAsz8AgwsX7786fyc7AvY6wt1QaldqG7oU9B+ONpa/bZw/tz5It46X6gyRoBpTCrz4mHbWxj+msuQXhxEHx0ewmdNn5qHdkOONnE701ACDLz11luW/j4+/67awdhFb4XSNNBo6LBh5LRJE2f/9NNPejteDUKw3TdhXNkBZ9HQGDoNU9NQ4WBosKR/K30mTOlabYY4oLGAUEHjEuzv92/kjRxtgzGXAANlJSXzg9V+DE97hpQTjSEeuL8RwUGspLBwlOxOLyTAasfJFAIM7Ny50yfA20uqd3jhBPmrLdzqpvnN32VdGP5idEzl6iR1tFV1QGPGPYCgLuHhBW+xhQUFnHzppZf6yFFu1JAAqx8BJsJtg70GxQPwHxghRbi6yi3KNeKHB4Wo0JCL77zzjq3sSpG6CLD6MqTVWTw0xUaE85kzZ+aSALtDaEgBBrZu3lwkxNeP9kLdK4VX01DhYDh8VVTu64UjRsTKrgzi5Mljz8VGRhzHE7Z0ALHsTyksXaZ0TV39QHx5iEpvNag/3qy5+NKelyLk6BqFOQXYzm3b0kMDA77BtYaUE40hHrYWA3lKfNzFbdu2GXzGIAmw
+2nEylQATYTarmD7dNyww8Bym+dyd6lAP8Hv53+gcNIb/V/kx3Jf0e2EYCccIcFRY6OuTi4qel6Pb6CEBVj8CDOzevfux3MzMN7CVEdKkry3C92jnRf9yc9L48etF3LUeNE8CjKh3GlqAMcbuG5WXtwVnwmF0RVRqxXCrG+KABgOjRcnx8R/NmzfPXnZnENMnTOgZERJyDJ07FhejIzGq8zGhIS0Y+bIWDUp0eNjlIwcPYn7f4HVf1TGnAPvggw/6o2P0dHGSGlUl30qGhgPrv5JjY3ddunTpadmdXkiA1Y6TqQQYEOE227lpk3pYevoH6HgdRONuyFpMUxvurY8oI+hQfT3csbTg1fkVFX3laN4WkACrPwEG5s6dG+bp4vIT2k2EravMavoKTLn7qTy+OfXaa96oc7Krf0ACjKh3GlqAgSNHjvQJ8vV9y0kIMCxqNGQ9GOKBNSy2loN4bnbWti+//NKoo4NKS0v7jBo+/DAWNdoMGiB1boak31SGsKQNL60tpe0uooKDP92yaUM8BKkcRaMxpwBDY56alLg2yM9Hp1CoabhHQWo/npGSNEn4MHhTWxJgteNkSgEGRNjNNq5dOzh7SMZ21Du8degl/op8lw7vVoqHqQzp0Uy7o/4FeKl+n1hWtvL4wYO95OjdNpAAq18Bduj06S6j8vNfx0shEEv6+ouqcubArS0GsEkTxh9bvXq14jYOJMCIeqcxCDCwad26DD8v1Vd4EjZkuwYYKpadpQWmLq6XjBkzQYgXo07A37JlS8/S4qKK0MCAn/CWI56S0BAZkg91NfjGWhd0tlibUCVOUl6cOnGiExpMOWp1wpwCDEyeOH5CRHAQtxcNnyF5hDigU4+Nivhr3LiyZNmNQZAAqx0nUwswDaJDenx4dvbomIiwL5FujMZqOrYALfGpqyEd8IuOG+HgLbUhqSmfLJw/P+/zd955WI7SbQUJsPoVYKgzO3dui/ZwdbqCmROEry3PYfgO6XMR
+v1X7eP+ycuUytfBR6y1CEmBEvQMBJirmTGMEmL9K9ZapBZgoUB3LS4vX+Hlg3ywLHmjAVCQqFmzwACxcV38zcdy4eNmdwfzEWJfp06enZA0ZcihI7XvT1d5WWjQuNVjCt5RehGPEmhaNaeKnyVf4xGameAHARzQISXGx/1deUjJq+/btt7TLuAYIMH8vz0pN2NXjojHEBXub1UWAVa5eHR4eHHzRwcqwhfj4jfWA/jw1Pv7DLTu3OMtuDGL92tUThQD72TABFnPEEAFWUTHdNTUh/pIhAgyNcH0JsLyc7JcxDW6oACvIzztgSgEGRDzazJk2zWdYRsY6cY9/wUsxKCeYokfjj3uAOGiLnzbTXANDp4b1OHaDB4m64Iy1XtcyM9IWLlu0zBHhy1G57aioqOgr0vFvlFVDBVhyfPxM+XKzIfLUeAGWmXlw56ZNOmcThN9WUydNyjBWgG3eXOkru7hlRBw6TJk44Q3kOcooRm2VwtcYyi+OSbMc0I/lZg49uk6h/uzcvdM2OSHuFAkwot7w9vZurfb0XIsCGqz2kxoHXRYiOiW1SvWls7OzyY8FObxvX7/05KQzKhxCLSou1oMpxaG6IT4onE42VjwhJvqLVcuXJ8rujOLw4cP9xowakZORkrQvIjjol0A/PKU7S5u/uohKjrPF8DqwUuWobtJbkcLQoGHfMGc7O8mHZr1CaEDAzYSYmFOJiYmF8+ZNthcVyWT7uYT4+vZQqzwPIV+C1cp5F+LvJwSmyKvoKD554vi18qUG8cHbbz+VGBd7SEqrSIu++4PfIc+yhg7deP78eaMOUV63atWyMNFx4G0nxLmmb6RP07GLOF3Izc3Ve+bb9OlTAtKTExmOwarpr7rBN46CigkPEwIsfop8uVkQ979ZXlbm6VBR97xEw48DfrXFCeUHnUPBiPyzOF5IdmFSXj9z5rHZs2enjS4YuT0iLOQr1C+IJic7G+kvppTxyn31Mq9o4r7g3kNUYmQI
+21L4eLjxQJGOuKjIb0RHv37G1MlxP//8s0mFZENQMW2aVdaQ9J+x1hEjhtrqHj7HNh1RIcHYy3CDfLnZwNY7sTGRuyNEeGiPgn2111fEG8c+Dc/JeX/zunU6Tx0QZbbN5MmTR6J+4h4Hir5DyScsUPj1U7nzyLCQbysr10XJLkzCGydOROIhDXUC7YCu9gj1CvHENkG+Kg++fMmimdeuXftHH4bTIlISE86j7qM/VPLTUIa4u4m2MFG02/OnTx9jyn6DaEAyMjJa+np65gpR9aJ4Qtor/u7RZQE+Pnv9VKrlQrjVea2SLmZNnx4UHRG2xc7Scp+/t3IcqpvolPYEqf32WA0YsDtA7XO6pKho2q0cjvrWW289j6NTRCexMDo87EREcPCPoaITQgXAmi2cj4eGCjvzYypFmqYR3+EvGgG8zQjRgIYpwFtUYiEewoWgi42MODMkJWXz6FGjhldWVup8HbquBHt63q/2VpVLeaMl7/x9vPfYDB60JyosZN/UieNy5EsNQlT6lhkZaUMDfXz2uzk5aA1DY25O9nuC/X33jh45MkJca9Sh5uvWrBwmGtTdQizuRZxr+Rdhi85sj4+n+57EmKiFY8aM0bu/2LRJk6yEANvhYG1d2191E77dnZ32hIWE7ElOiDVo5/66IvKlaU5W1nTRAe4THbgIWyGtcpxUrq4iTx32jBqZ/8LyiorOsguzcPX69adnVMwIz8/NnpcUF3NMdOKXMCqtKed4oMD5n1gu8Hcd8MF3WPfnKHUWEIzoPEJFRx0ZEvR5THjo7rSkhPEL5i4IE+LgETmo254Xpk9/Jmdo+kZnGxtRJt211wvxucizPaGB/nuEADP7GYJnzpxpGRsdWRik9n0FZUcxTrL5iXrkam+3Z0Ru9px169Y9IbtQRJTZVlOmTAkQD+wvqlxc9uJaJZ8wP5Ef4sFiX1RY6IrKyrUOsguTgDYla8iQCd7ubi+5OzruFWVRMQ4w9BP4K367x9bC
+Yv+4sSUr9+3b948yuGvrhgFpifHzRfnd5+NZ9fvGYoi/k2i3okW7PW/OLNoJ/w6iqbNa3dXPw+8ZX1/fXuJmP6fLfD08eqk9PB4LDw83iwJHpRqdM/qRAb2f7q1WK8dBySKDgp61sxw42Np6YK+KLVvayu7qjIhHmxVLltjOnj49bURe3uy0+Pjd2L4iLjrqE9GRfCWevC6Jp8pLQpRd8vOEeVwSndAlIWy+jI+K/FQ0OG+kJSfsz8vLnjdtypTs1atXu/zwww9GjQIZi7OzcwtfX+cHlfLnf6Z+TjRAzwlx2Fs8xRp8zJGGxMTEjqH+/n2cbW0VfP/TEE5kkG+v6QUFRm0oC9aund/Fz8/jGdHoiDKpVvSvksz5uYSwsO7l5eV6G6SKioq2aXFxT9gaEHeVs7P0F+mVLzcbWVlZD3u7ufVWIV5q5bTCECfke0FBwcNbt26tlydgUQ9aHj161GLO9OmRWcOGTB6Wkf5ifHTUsZjw8AvhwcFfCXEslX3UAdE2XArw9b4UGRryVVxE+Ceirryakzns5cIxBdOnT5kYuWnTWqNelLld2Lq1vFVmSkoP3BuUSaV7pzGpXIl2LTojul4OFo+KinrY09PzeU151mWIf3FxcXcIN/lyRUSZaDpt2rQOAV5ePT2cnHqpnJX9aczbwaF3mL//E7fyYKyNQ4cOdfDwkNsJHXXnbxN5jzjbW1r2sbGx+Uc/sfrYsTbx8eGPuYn46ktTQxjuT1hYQO855eV0FiRx94Cnjf27dj2+aNGigZsrK8NnzZqVFB8ZGe/h7Bzv5eEaLzqeeC9X5/iwkJB4IbYSt2zZGDF37iy7vXt3PosOTHZDELc9H3/88aOLFy/uv2r58pAJ5eVJISHqeC9RD1AHUB8iRR2YMWlS0paNG8NWrV816KOPPtI5mkIQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQ
+BEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQBEEQxF1Ckyb/D+UzBKGtq/qaAAAAAElFTkSuQmCC</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="ID5">
+      <MIMEType>image/jpeg</MIMEType>
+      <ImageData>/9j/4AAQSkZJRgABAQEAeAB4AAD/2wBDAAMCAgMCAgMDAwMEAwMEBQgFBQQEBQoHBwYIDAoMDAsKCwsNDhIQDQ4RDgsLEBYQERMUFRUVDA8XGBYUGBIUFRT/2wBDAQMEBAUEBQkFBQkUDQsNFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBT/wAARCACBAmADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9U6KSjNAC0UlGaAFooooAKKKSgBaKSjNAC0UmaM0ALRSZo3D1oAWiikoAWikooAWikpaACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii
+gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigCvuBjGMGo/OSbhGUkVR1DTYr/TWtH3lZE2/Izof++lr8+/jvovxV+Bvil9QtvEmtTaC9x51leRyu6RfP8iP/B8nyJ8/364sViJYaPOo80T6jh/I1n1eWGhWjCf2eb7R+ick0aqNzU2Ni3PBFfJPgH40J+018O7rwvc6zN4U8eW6/urq1ldDK6L/AK5Pub0b+JK8Jtfiv8VP2ffiH5WvXeoXixs+7T9Qn3Q3yfwOjfP/AL+5K5p5lTp8k+X3JfaPfwvA+NxNWtg5zjDEQ+xL7X+E/S1p9xOMY7gmk3fKRndXyP8AFOx1T46eEYfHPws8Ragl9DCn2rR7a+dPO/2HTf8AI6f+PV5h+zn+1NqfgnxJPoPjjUbi40O4d0e4vd7zWU3+3/Hs/g2fwUVMfGjVhDl9yX2jHD8GYvF4KticPPmnT+On9uJ+g/2hFXlse2aUygclgf0r4M/aK8F+OfAEi+LfCHivWNT8IXT+dmG+dxZb/ufx/NF/tV2XwH/aAsfi34Ml8EeM9alsvFLQulvqjS+S9xv+46Mmz503p8v8VXHGw9r7GceWRnV4Rrf2fHMcNV9rD7XL8UP8UT7E8xOgI+lNCnawK/hmvzL8dax8W/gD44gXVdf1aeCKXfa3k0zvbXSf8D+Tfs/gr7b+Bfx60b41eH0ktXW11uNB9r015NzxH/2Zf9qihjY1p+xn7syc44RxWV4SlmFGcatGf2o/Z9T1hW+XkBRSNsji+cBB7muX+IHxC0X4b6DNq+u30VnbquF3v87v/cRf4mr8/wDXPjB8R/j98TDaeFbvVrOxuJkhtLKzbYlun8c0zp/3389ViMbDD+4vekcuR8LYrO4zr83JRh8U5fCfpWgVhuzu9xULfeOGCn3r5U8ZfFCL9lT4fxaEdWl8WeOb5PmkuJnfY/8Az2ZXd9iJ/c/jrw/4M2PxS+P/AIqnnPiz
+VrLRkl33+pw3LokX+wifc3/7H8FZTzDknGnCPNI9PC8G1sRhauY1asYYeHwyl9v/AAxP0i8wIuS341FHdQykpHIrmvh/9ov9qAeHrH/hAvAepzP9lTyL3WfNd5kdP4Ef+N/771c/Z60HxN4biHxE+JfijU9K0KzjMlvZX9w+yZGT5Jn+fd/wDbVxx8ZVPZxiZ1ODsRRy5Y/Ez5Of4Ifal/26fa+9V/iBH1prTLNwjo5+tfm18Wf2jPGHxi8ew2XhCXUrKxRntrKzsJn33fzv+++TZ99NnyfwV7zofiJ/2WfhxNqPjjX7jxB4r1BN8Ng947v/ALCIjv8Ac/vvRSx9KpOf8kftFYzgnF4OhR9tL99V+Gl9r5n1dHIY1+YAZNLHMsrED7tfml4J174r/tCeP547DxDrGn2s8rzXF1bSukNin8CfJsR/7ip9+v0Q8I+H4vC2h2unRzTT+SnzzXEzzO7/AMR3NWmHxX1r34R908nP8g/1elCjWrRnVl9mP2fU6eikpa7z5MKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAqlvLZVA/d1h+MPB+n+ONBvNE1a3S5sblCkiOOGrdhxt65FPO7dx0pz7DpTnTnGpD3ZRPzB+NXwN8Q/s6eJodX0e8nbSll32usQqFe1bfsRHf0r2Lw/4h8N/tieDY9E8QLBovjzTIv9Fu0w7/7Tp/fR9nzpX154w8H6V450G70fWbWO80+4TY6SDNfm98bvgtrv7OPiyzv9Kvroaaz79P1WFdrxP8/7l3/3P++99fMYjDzwc+eHvQl8UT+gslzqjxbRhh8TP2WOpfBP+b1M/QPFXjP9lX4kXEEsMyNE7/aNMd3SHUIfuecn/sj17J8XfhH4f/aB8IN8Sfhv
+5R1lU/4mOlWqJvnf77o//TVN/wDwKtbQPEfhb9s7wf8A2D4g8rQ/H2npvhnhI3sq/wAaf7Dt95K8J8LeMPFv7K/xKura6tWaWJPLudMml2pdw7/kmT/vj5Hrk9yjDkn79Gf/AJKfR82Ix+I9tRj7HM6PxR+zVj+tzpv2c/2jpvh3eP4U8WK954SuHe1kS6Te9q33HTZ/c/vpVn9o79m4/De5g8beCHa78I3LJcwvZ/O+nv8AfR0f+5/cf+Cu0+L3wd0T9oTwnN8SfhwiPqgTZe6bCVVJXT7/AMv8Eyf+PVxH7OP7SafD+E+DvF9ub3wlcM8DNdK7fZd3yOjo/wDB/sf7T0pRjD/Z8T8H2ZjjVlWlPOsmhy1Y+7iKH83/AAT0D4cfGLw7+0p4b/4QL4jR29trPlbLLUXZMySt8iPH/cmrxLxF4Z8Z/sr/ABItriC4mTy3/wBHv41dIb1Pkd0/9AR66r9oD9mu6+EM0PivwncT3Xh1n87zo3+ex/jR96fwf3H/AIK9H+GfxO0X9qrw2/w78e28Vr4ghi32Wpo2x5W/vp/cdPk3J/FVzjKtL2Nb3Zw+GX8xhRq4fB05Zll0fa5fP+LS/k/vcp4p4s8aeNP2qPiFY2cMM0vzolvYxO721r/A8z/3P9p69x1bWvDX7F/gsaTpDQ6z8RdSh/0mZE/75d/7iJv+RP4q8C8TaD4v/ZZ+KCRW100c6tvt7oI6Q38X9x03/wDjm+pPhn8O9a/aU+J13Lf3zJHNL9p1S+38qjfcRP8AvjYn9zZXLRq1YTnT5f30z3Mdl+FxOHpV+eMMrhHm5Y7yfaX9bk3wl+EviH9ozxnf6jqN9MbRZkbUNWlTfuf+4n+1sr0349fHXSvhvoL/AAz+GjrZWFunk6hqVs/z7/40R/7/APfej46/HbS/hv4ef4Y/DN0trC1ieLUNThb5x/fRH/if++9Zv7PvwA02DR2+I3xEkbS9F08fbIILnY6XEOz78yfPvT5/
+uVvCHL+5o/H9uZ5FfERqxhm+bw5cPD+DR/m/llKJf+A/7NelWfh1fiH8TLm2s9DhTzotP1BU8l0f7rzb/wDb2OlcD8ZPjf4g+P3iK20DRrW4TSPN8my0qF973TI/yO6f3qj+Nnxs1v48+KIdF0O1mi0RJ2g0/TbPf/pWHTY7p9x/ub0+T5K9o8M+GPDv7HvgceJtf8rV/Hl9D/o9nv8AuP8AxRJ/sJ/E9HLGtD2NH3YR+KQSliMHVhmWaQ9ri6v8Gl/J/XVknh7w34X/AGMvBH9veI/s+s/EDUIf9Ht4cK/+0if3ETf8714VoXh/xn+1j8RprqQ/O3Mt40O+3sk/gRP/AGSn6LoPjL9rH4m3VzczPhm/0i8dN8Onp/Amz/2T+Ov0G+EHwn0P4Q+EYdF0RXaJWZ5bmfb51w7Hl3Za6aVKeM9yHu0Yf+THh5xm8OFYzq1Z+1zGr8UvswX8qMPSvhzefBv4V6lYfDvStPufEcFv51vFqO9Ibu5/jaV0G8s+3r/uV+dd7/wWi8f2NxNb3Hw28PpNE7o6fa7j5WWv1xPP8XFfit/wVa/Zpt/hP8UrXx5odpb2vhvxQ2xrW3i2JDeInz/998vX00IRhHkgfz5XxE8TVnWrS5pyPtX9hX/goM/7WHijW/CuveG4NA12wtPt9v8AY5XlhmhV0R87/m3qzp/33X23X8z/AMCfi9qnwH+Knh3xrotxMl3ptwjywwvsFxDvHmwt/sumRX9I3hnxBb+KPD+l6vauj2uo28V1EUbd8roHFWYm1Xyd+3p+2lL+yD4d8NzaVpen674h1i7dU0++ldNtsifPN8n+3sT/AIFX1BqOp2+j6ddXt3KsNraxPPNM33URV3s9fz9/t0ftHT/tIfHjWdZtr77V4Y0x30/Q0RWRPs6fx/7zt89AH0vH/wAFsvHcjKq/DXw87t91Uu7iv0y+C/jzxD4u+D2g+LvHOkReFdWu7T7ZeafvdEtE/wBvf/sfPX4j/wDB
+P/8AZ5l+O3xz028vUMfhDws6arrN8zqqQqm94U/4G6f+OPXsv7f3/BRDUPi22q/DnwBefYfA0MrQXmtWVw5fWU/ufcTZD9/5P4/9ygD6h/aM/wCCs3gX4Y31zovgOyXx9qqRZGoQzeXp8T7/ALhf7z/L/cr4c+Kv/BUn46fES6mOm63D4L07dvhtdFiCOv8A22f52r465r6n+Ff/AATb+O3xWt7O7t/C0Ph7SLuETw6jrd2kKMj/AHPkTfN/45QBz2j/ALfXx+0bUEu0+KGvXJhb/U3U3nQv/vo9fT/wn/4LO+L9E+xWvj/wnY+IbZN32jUNMf7Ncv8A3Pk+5XK+Mf8Agjr8YND0f7bpWqeHvEN0sW97KC4eF9/9xN6bH/8AHK+Rvip8DfHPwJ1yDS/HXhu78PXs6edDHc7HSZf9h0Lo9AH9AP7Pf7TfgL9pfwwuseENSR50T/S9Mmfbc2j/AO2n/s9ex1/MX8NfiT4k+Eviyy8S+EtVuNI1i0fek0DlN3+w/wDfR/7lfvF+xj+1to37V3w4GopbRab4n0t0g1bSVl3mNyn+uTv5Tnfs+m2gDnP29P2xNb/ZB0PwpqGi+HdP8QtrFzNBKl9M6eVsTd8uyvlX4e/8FivGvjbx/wCG/D8nw+0G2h1bU7aweZLubfGs0yJv/wDH66L/AILbf8iZ8M/+v+6/9EpX5pfAP/kuPw6/7GTTf/SpKAP6aq4v4ofEbRfhR4J1nxVr93DZaVpdu00jzTKm7rtRd38Tt8grtK/GH/gqb+2FF8VfF0nwt8MSK3hjw/dB76+hl3pqNyqfc/3IX3p/v76AOq1b/gtd4q/tK6OmfDnRl07zX+z/AGq7m87Z/Bv2/Lv/AMK9l/ZL/wCCgvxU/am+KEPh7T/hzoNroFvsm1bV47i4/wBDh+fb/wADfZ8i1+R/gTwPq/xI8ZaL4X8P2/2rV9WuUtbeDpvd/wD2Wv1X+JnxI8N/8Ev/AIA6L8O/CNpa6r8U
+9ctGludRkVEaJ3J3XU2xdzoju6Qp/sf99gH1V+0n+2N8O/2XNFuLjxFqUd74h2q9t4cspk+2XG7+PZ/An+29fnD8Wv8AgsR8RvFS3Nr4J0PT/CNq0zmK6m/0m58n+DO/5Ff/AHK+DvEnibVfGGtXWr63qVzq+q3b77i9vZnmmlf/AG3eu9+DP7N/xI/aAa9/4QPwrd68tq6JczxvHDDDv/23dEz/ALNAHTXn7enx/vpnl/4Wr4hgLf8ALOG52JXrPwl/4KwfGb4f4h16Wy8eWITCx6suyZX/AL/mp89dfov/AARt+LuraSbzUPEXhrS7513rZebNN/32+zj/AMfrwz4xfsA/Gn4I2Op6vrvhcX3h7T/mm1nTblJYFT+/t+/s/wCAUAfpp+zX/wAFQPh38cdWh0DxDAfAPiGS3j2yahcJ9iuJsojpDL/v/c319w1/KzzX6g/8E6/+ChE1jeaP8KPiVe+da3EzJpnifUL+RplZ+Utpd+/d8/yo+9No4oA/Tb4neJ5PA/w58UeJLW3S5utH0u61CG3d9iSvFC7qjH/gNflb/wAPuPHf/ROPDv8A4GXFfp7+0J/yQf4mf9ixqX/pLNX8zvNAH9Fn7Gv7QGo/tMfA/TvHWq6VaaJdXdxcwfY7KV3RVifZ/HXvVfG3/BJ3/kzXQP8AsI3n/o6vsmgDmfHniCTwt4L1/WoIlln07T7m8SN2+R3SF32t7fLX5Sf8PuPHf/ROPDv/AIGXFfqf8YP+SSeN/wDsB3//AKIev5i+aAP6BP2Ef2sNY/a4+HviHxHrehWOgTadqf2GKCyld1dPJR97b/8Afr6ir86P+CKf/JC/HH/YfH/ohK/RegAr4b/bw/4KD6h+yf438PeGfD/hzT/EOoX1k97ffbpZk+zoz7IdhT+/sm/74r7UvtSttNsZ7u7mSG2t4nmlkf7qonLtX86P7WHxnv8A48/HbxZ4uvLyG6tZbhrWw8rfsWzifZDsDf3l+f8A4G1A
+H6A/s+f8Fbtd+LHxk8J+D9f8F6NpGl65fJZNe213Lvhd/uP8/wAn36/T2v5Z7HUrnS76G7tJ3trm3dHhmjbY6On3Hr+if9j/AONdh+0B+z/4V8T2t3JdXq26WepmVvnW8hREm3/733/+B0Ae41yHxM8SSeCPh34o8RWsKXN1o+l3WoQwO+xJnihd1Rj/AMBrr68+/aA/5IP8R/8AsWdS/wDSWSgD8v8A/h9x47/6Jx4d/wDAy4rQ0T/gtN4qvte0u31XwBoljpctxCl3NBdzb4od/wA7p/wCvzK5o5oA/qQ0fVbLxFpVlqen3C3lheRJcW80bZR0b50etavkb/gmT8Tk+JX7JXheFvJS68PM+jSqku9tsPKO4/hLI1fXNABXj37T/wAbof2efgj4l8blLW5vtPiX7Ja3suxLiZ3wkWf++/8AvivYa/JP/gs38aNP1bXvCPwz026Z7vSS+patGj/KjSonko6f39nz/wDA6AMr/h9x47/6Jx4d/wDAy4r0j9nT/gq54v8AjR8bvBvge98CaPp9prd8ttLdQ3czPEhT76hq/JLmvfv2A/8Ak8j4Uf8AYaT/ANAegD+iiiiigDx/9qT43J+zv8D/ABJ48FlDqdzpiQpbWU8uxJpnmREXd/wPd/wCvze/4fceO/8AonHh3/wMuK63/gst8dJdvhf4R20W2N9niO+n3N83+uhhT/d/1z/8ASvyt5oA/pA/ZU+OMf7R3wQ8P+OjaW9jeXyzJd2drL5yW8yTOjp/44j/APA69mr8nv8AgjP8dJ473xR8I54FeGRX8R2l1u5Vv3MMyf8Aol/+APX6w0AFFFFABRRRQAlFLSUAQ43DDCsTxZ4Q0jxppE2m6zZw39jcJteGZN6NW1DznnNPwe1EolU6k6clOD5ZH5e/Gr4IeJv2ePFp1bTpLgaMkvm6frFv8nlO7/JC/wDdb/0OvZ9B8QeHP2xvBA8Pa88OiePrFP3Fwih3fZ/Gn99H+ben8NfX
+vijwvp3jDQ7jStUs4byymTY0UyKy1+bHxl+CPij9nPxZFqmm3U8elLcIdO1iF9jxO2/903+3sRv9h6+WxGHngJc8I81KfxRP6CyTOqXFlKGHxNX2WOo/wp/zeTK/hrxN4z/ZX+JDxX1vLDKqbLjT5Jf3N3D/AH0/+Lr2H4tfCPQP2h/C/wDwsf4ZlZNT+7qGmIiI87r98Ov8M33f97itTQ/E3hn9s7wOnh3xBs0Xx7p6edDPCv3tv8aMw+dH/jSvDPC3izxh+yz8SpLG9XyWXZ9u0/zXeC4hd/vp/t/3Hrm9yEeSfv0Z/wDkp9Fz4jH4j21GPsczo/FH7NWP63Og/Z+/aSu/AN6/hbxijap4TupXtZkuvney/gffv+8n99asftDfs+t8Obq38deALhrrwncypMj2bbv7Of8AgdHT/lj/ALf8Fd58Yvgzof7QHhc/Eb4YbZtTb/kIaanyebs+/wDJ/wA9f/Q686/Zp/aGi+HLTeGfGBa58Gzo8PkzJv8Asj79jps/uff30Sjy/ucR8H2JBTqSrc2c5LDlrR92vh/5v+3T0f4X/FDwr+0F4Hi8D/Em5i/4SZY/JstSucb5Xb5EdH/57fP9yvAPiF4F8V/APxhc2y3F/Z20rvDZalbtsS9h/wCA/Jv2ffT+Cu2+PnwBuvAuo/8ACZ+DP33gu42Xlvc2Uu97R3Jff/sJ/cevRvhb8VfD3x+8DwfDPx6Eh8ReV9m0/VJl/fSvs+R0d/uy/J8/96lOMq0vY1vdrQ+GX8w8NVWWL+1cr/e4Of8AFpf8+v5vd/unm/7K/hXwXNd6r4w8c6la/YtD2TW9hM6vvf8A57On32+f7if36z/jh8ZdZ+P/AI1t9I0G1nj0qJ3ttN022377r5/kmdf72z+D+CuG+K3wj8QfB3X307XIMQTb/sl4n3LtE/jT/vtPkr2v4A+Pvhl8FvAd74ovJv7b8bXDPDDZvFsli2fwJ/cT5/neualOco/Vp+5H7R7u
+YUcPGX+sGG5sVOfu0oR+GH9dTtfCfhbwp+yD4H/4SPxKYdT8f6hF/o9n8m9X/uQ/3E+f53rwbQ9E8Z/tRfEqaWVpphLLvuLz78Onw/3E/wDZE/jqGx0fx3+1P8Qrya3P2i8d98rzS/6Np6fwJ/sf7Cfx1+jHwo+FuifCbwxBoej26RhEV7mZ0/eXD/33bu1enSpfX58kPcow/wDJj4fN81jwrSnWrT9rmNb4v+nUeyHfCv4V6N8JfDcOk6Naoi/flm2/PK/8Tv8A7RrvO59KOf73FHBX0FfTQhGEeSB/PGIxFXFVZVq0+aUiavF/2qPgHp/7SHwT13wbeyPDdTL9psblU3PFMh3p/wDE17RS1Zkfy4a94c1LwnrmoaLq9lNp+q2MzwXNrOux4nT76MK/Wf8A4JCftIR+KPBOofCXVJW/tTQ9+oadNJNv862d/nT/AIA//jr14n/wV2/Z0vfCXxSX4r6baeZ4b8R+Tb3su7/U6kibNu3+48MMf/A0evjj9n/4tXvwL+L3hXxpYvMjaVfQzXMUDsnn228edC3+y6ZoA/YD/gqf+0Hd/Bn4DQ6JomoSWHiHxdcPYo8K8/Y0T/Sfn/g++if8Davw4jjeSRFVd7t91Fr6K/bo/aMi/aU+PmreIdJvb2bwpaKlro1tdfL5UKIm90T+De+9/wAa7b/gmn+zbcfHH462Gu38Lf8ACMeEZ4dUvJNislxMj74YPn/vsnzf7CPQB7f8QH/4Yd/4J7+HvDMWlvpfxJ+KET/2pdpvhmt4fvuj/wC2kMyQ7P8AbevzNjRpG2qu5m6V9x/8FcviBe+K/wBqy68OySsmneG9OtrWKM/c3zRpO7/+RU/74rxv9hj4c/8ACzv2r/hzobmNreLU01O4hnTck0Vt/pLp/wADSGgD9Gv+Cdf7A+l/DPwfZePPiD4ettR8a6mkd1Y2WoW+/wDsmHZ8vyOP9c+/5/7lfoSvy8U+igArjPH3wu8KfFLw/Poni/QL
+PxBpcn3ra+i8z+JH+XunzIh+X+7XZ0UAfz0/tufsrz/sqfFb+xYrtr/w5qUP2zTLyZUR3X+NHRP7j/LWF+x38etT/Z2+O3h7xJaXvkaXc3CWWrpJnypbN3Tzt3+59/8A4BX6rf8ABWb4e2/i79lbUdbSwiutT8PXsNzDc/xwwu+yavw25oA/Wb/gtXeRX3gL4WXELbklvLmZH/vI8KV+avwD/wCS4/Dr/sZNN/8ASpK+zP28/iM/xa/Yz/Z08TS7PtVwk0Fzs/57Qwoj/wDoFfDXgHxN/wAIT428PeITB9p/snULfUPJ3bfN8qZH2f8AjlAH7Sf8FHv20rT4BeB7rwb4avVk8f63bvA3k3GybTLZ0f8A0n/f/uV+Ilrb3GqXkdvbxPPczPsRE+Z3dq7n45fGTWvj58UNd8ba6dl9qlx5iwJK7pbR/wAEKb/4Er7W/wCCWv7GMvjrxLZfFrxlpEcnhHTf32iQzlHS+ukkdPO2f3YXR/v/AMeP7lAH0R/wT8/Zls/2T/g34g+LPxIs/wCzvENxYPe3KzWn77SbCFN7p/e3vs3v/uJX5S/H34tal8cvi54o8balLNOdUvppreOZ94t4d58mFP8AZRNiV+0H/BUT4ln4a/sl+JYIH2X3iSVNFiPqkufOH/flHr8FuaAPrv8A4J7/ALIFz+0p8Rk1vWIof+EA8N3cMmrCfn7W330tdn9x9vzt/ClfuT4R8H6F4B0W10XQNKtdF023RYYbWziVEVETYnT/AGEFeKfsA+AI/h/+yb8PrX7BFp99d2P9oXqqvzSzTNv3v/t7NlfRtABVO6tYb6F4JokmglXY6SLvR1q5RQB+XX/BTD9g/RbPwhe/FX4caKunX1kxfXNI0+3RIZYXaR3ulQfxozJv28bPn/gr8pILiW1lSaJ2R0bejJ/C1f1HX2n2+rWc1tdQJPaTRtHLDMm9HV/vIy1/NT8cvAFx8K/jB4y8JXe0TaTqc1qPL+5tD/J/45QB
++y/wQ+Px/aM/YB8X+ILsTR63pnhzUtF1R523+bcw2X+u3/x70dH/AN93r8Kua+8f+CbvxIu7PwJ+0L4Bd2k0++8E32rwoz/6qaGB4X2f7/nJ/wB8JXwdzQB+7v8AwSd/5M10D/sI3n/o6vsmvw9/ZZ/4KZ6j+zD8JLLwHb+B7bW4LS4mnS9e8aJ2859/3Nlet/8AD7zVv+iX2P8A4Mn/APiKAP01+MH/ACSTxv8A9gO//wDRD1/MXzX6V+LP+Cymq+KvCut6I/w0tIE1Oxms/O/tF/k81HTf9z/ar81OaAP2P/4Ip/8AJC/HH/YfH/ohK/Revzo/4Ip/8kL8cf8AYfH/AKISv0XoA+Mf+Conx0tvhT+zbf6NFufWPGDtpdp5bMuyEbHmfcv+xt/77r8J+a+4/wDgq/8AHKw+Kf7QCeHNFubiey8G20ml3KucQ/bPOfztiY/h+RN3+xXjn7DvwVtfj9+0l4T8L6lbyzaCkr3+o+Wm/wDcwpv2P/sO6on/AAOgDy74lfDLxJ8JfFMugeKtLuNI1WKFJvs83VkdN6On+zX6Af8ABG748XOleNPEHwnv7uFdJ1S3fV9OSZ9jreJsSZE/vb4fn/7Y12P/AAWQ+BUlxo/hX4oWCQra6Wi6Lfp8iPtdy8L/AO3/ABpX52fs9/Fy7+Afxo8KePLOJbmbRbne8LL9+F0eOZf97Y70Af0s159+0B/yQf4j/wDYs6l/6SyV1mh6xb65o+nalasr2t9Ck0Tq38Dpvrk/2gP+SD/Ef/sWdS/9JZKAP5mua1rjQ7+HRbXVJbWWPT7qaSGK62fI7ps3p/wDen/fdZPNfV2g/Cy48cf8E8dX8UWsFxdXvhTxk8zRwv8AJFbTQQpM7p/vpDQB6T/wSN+NVn8PfjtqHhLV9WexsPFVqltZQu/7l75XTZ/wN03on+/X7X1/MH8N/Gt98O/H/hvxRp7rHe6PqEN7C8i/Iro++v6X/C3ijTPHHhrS9f0i4jvt
+K1S2ivbS6T7rwum9HoA0Lq+h0+2muriRYYIkZ5ZHb5UVepr+cT9rP4nD4wftF/EHxVDf/wBp6ffavMljc7Mb7WL9zbf+QkSv2h/4KLfGa2+Dn7L/AIpVjI2p+Jrd9C05I9/DzI4d9/8ABsi3v/wCvwMsrOW+uEt4Fea4ldUijX+J2oAvat4Y1TR7XT7q/sJrK21GH7VaTTJsS4j37d6f7NeyfsB/8nkfCj/sNJ/6A9d1/wAFBPAR+FOrfCLwjvlc6T4HtoXjm++rvJM7/wDj7vXC/sB/8nkfCj/sNJ/6A9AH9FFULy+h02znurhvLghR5Hf+6qVfr5F/4KXfHS6+DP7NupRaRqSaf4h8Ryrpdod7CbY/+ueHb/Gqf+h0AfjN+0X8WNQ+Nfxm8XeKb3UpdTS81Gf7DPNxstVdvJRF/hGzZWPY/CDxPqPwn1P4iW9jv8L6fqMemXN0H/eJM6b0+T+5/tVwnNfuf8J/2LYP+GAY/hP4kXOqapZy6ncTQKrvb3j/AL6Ip/f2fIlAH47fAP4mXfwe+MPhDxfbXtxpyaZqMM1xNa/fe23/AL6P/a3pvSv6UNM1KLVLC0voDugu4lmif/Yddwr+Xm/sbrSb66sbuJra6tZXglRvvo6fI6V+4H/BLX47RfFL9ne08P3+rf2h4n8MStZXMMjuZltv+XZ/n+98nyf8AoA+1qKKKACiiigAooooASiiigCqpChTu7dK82+PmseFNO+GurHxkscukNGUaEpveV24VEH96uh8f/EDQ/ht4dutZ1u7S1s7ePO7+Nv92vzl8aeP/GP7UvxGs9KtY1KPM/8AZ+ml3WGJP783+3s+81eXjMVGhH2a96Uj7/hHh2tmuI+uVJ+yo0velP8A+ROJ+Heh+IvEXxD0+08GRSw6v5zvZbJdjxQo/wDG/wDc2ffr6q/bK1zwxYeBdI0LXxDrHj3YjRy2aeU6J/G7ff8Ak3fwfxUmtW/h/wDYn8FSXGlCPW/HuqKs
+INy//Avn2fcRP/Hq8M+Gfw58VftOfEC91PUrqY2zMj6lrDxbEP8ABsh/g3/7FeBGEqNL6tD35z/8lP2yriKWcY2OfVpeywmH+GX2py/+ROq/Yn0vxrefECS88PzfZvD9sipqrTb3hlT+4n/TX/brG/a+1HwdqfxOnfwzF/xM4vk1WZP+PeV/4EVP76fxvXoHxx+POmfC/QT8MvhqkVlbWqNDfX9sPubvvoj/AMT/AN96xP2dP2f7T+zm+IfjyL7L4etE+02MEzGF5XR33u6ff/g+RP499Pl54fUoe/8AzS/lJpYv2OLnxVjo+yjP3aUI/FP/ABHqn7K8Wq+DvgbqOqeOrqBPA727XNpZ3UW51h/jdv8AY/upsr5B1pLXxB8S7lPAVlPBFcah/wASqCB33/f+R0/uf3/9iu5+O/xy1b46+JoNK0qOY6BFcf8AEt0+CLZLK+zZvf8A+Ir2rwP4T8M/sieA/wDhL/Eohu/Hl7E6W9kz79jfwQp/45veifLiXCEPgpfbFhp1MhlVzDEw5sXi/hox+H/t7/25m38dr/StF/Z20rTvik8WpeNmt9lpHEDvF3t+V96fwJ/E/wDFXyX8IfhHrXxi8Uw6RpCbIYtjXV/s+SBf7/8At/7ldJpFj4y/ax+K3+kv511IUe4dP9Tp9v8A7H/xH8dfoD8Hfg3onwX8OtpmiRy/vWD3FzI295X2Km9/++B92umGH/tCr7b7Ef8AyY8jEZzHgXLZ4OE+bF1fe5fsQ5v5S78KPhRpHwg8L2ujaXFkqn724dfnlb+8zetd9/E2elKc5+9xScFfQV9PCMYR5YH86YjEVcVWnXrz5pyJqKKWqMQooooA8o/aM+C+j/tAfCPxB4L1eFXS+if7JO4/49rlf9TN/wAAf/xzdX84ev6HdeHdc1HSrtdl3YzNBKn+0jlK/qTr8Jf+CrmmWmk/tia39ktobYXGmWc82xNu+Vk+d/8Ae6UAfIFjp9zqV5BaWsTz3M7p
+DEkf3nd+EWv39/YN/Zrh/Zp+BGn2F5ZNa+LNYVL3Wy0u/wDfdET/AHUTj/vuvyC/4J/+E9K8cftbfDzTNatVvbP7W9z5Lvs/ewxvNH/4+iV/QzQB+Bn/AAVM/wCT2vHn/XGw/wDSOGm/8EvL2Cx/bV8CvcP5aNFfxxl/772cyr/OvYP+CyHwgXwr8YvD/wAQbR4/I8TWn2W5Tf8AP9ptkRPuf3fKaGviH4UeOrj4W/Erwp4wtIUubrQdUt9RS2dyqzeS6Ps/4HigD+nOiuF+FvxK0X4u/D/QfFmgzJNpmq2kNyib13xb0D7HH8Lpn7td1QAUUUUAfLn/AAUo1+00D9jX4gfam2fa4YbKLH995k2V/P5zX6rf8Fiv2jWt4dL+D+kSWs0Nyianq7j55onR/wBzD/s/36/La1tJr+4S2gheaaVtiJGm92b+6tAH1r8drG403/gnt+z8t2zvJNq+qzw7v+eL/cr495r9Mv8Agp54DtfhZ+zT8AfCth5ottLieFBN9/8A1KO+/wD4HXwT8Af+S5fDr/sZNN/9KUoA4Pmv2i/4JbftaW3xW8FWnwu1eC3svEXhmwT7LLAdv262R/vbMfI6fIr/AN/71fJf/BTT9kGb4QfEi++Ieg2kK+CvEl3ueGDj7DeP87psRMIj/wAH+/XyP8J/ihrnwb+IGieMPD1z9l1fSLjz4ufkfs6P/sOny0AfrN/wWijeT9nnwq6/cXxEm7/vxNX4x81+23xQ+Ifhz9ur/gnh4u8R2+221fT9NfU7vT7X989pf2yed5P97Y+3/vh6/EnmgD+kv9lHxBb+Jv2b/hzqVqP3E2h2wT/gCbP/AGSvW6/Pj/gkn+0nF4++FU3w11JrKy1XwqiJp0KS/vru2fe7vs/2H/8AQ6/QegAooooAK/nO/bh8QW3iP9rL4oX1lL51q+szIsn97Z8lfun+038brD9nn4KeJPHN4iXL6fFstLV2/wCPm5f5Ik/77+9/sK9fzjar
+qUuq6pfX0o/f3crzP/vO++gD6p/4J1/8jX8Z/wDsl2t/+gQ18j81+kX/AATc+DcMP7NPx++J1yA89xoGpeH7T5vuIln503/fe+H/AL4r83eaAJ0tZbj5o4ndP9haPsM//PCX/viv3C/4JL6Wo/ZD06ae3hczavePG21XbbvRP/ZK+0f7NtP+fKL/AL9rQB/LX9huP+eL/wDfFQ81/TV8XtPtY/hN41ZbSH/kCXn/ACyT/ng9fzK80Afsf/wRT/5IX44/7D4/9EJX2X+0B8Uofgp8F/GfjSTyfO0fTpp7dJvuSzbP3KN/vvsT8a+NP+CKf/JC/HH/AGHx/wCiErK/4LHfHa88M+A/D3wx0/ydviLdf6k28l1hhdPJTb/Dvf5/+2NAH5P+K/FGo+NPE2sa7qkpn1DU7mW6uZP70jvvevvT/gmX+0T8F/2a/DvizVPHnidtO8Taxcw28MK6TczPDbRJ/wA9Ykfh3c/J/wBMa/PHmjmgD9n/ANpH9vL9mn44/BPxd4L/AOE3lS61OxdLSabQbxxFMnzwv88P98Cvxg5o5o5oA/cb/gkv8Wrj4jfs2DRbx5573wrevp/nTvv3wv8APD/3wnyfhX0/+0B/yQf4j/8AYs6l/wCkslfjN/wS7+OS/Cf9o6y0rU9QFl4d8URf2bcIyfJ9o/5dmd/4Pn/j96/Zn9oD/kg/xH/7FnUv/SWSgD+Zrmv16/4JN+GIvHH7JPxM8O3b+XBq2o3Nizld+3zrVE37P+B/pX5C81+zf/BF3/k33xf/ANh9v/RKUAfkr8VPh3f/AAp+IPiHwhquDqmj301nPsbdu2H71fr1/wAEi/jba+OfgHc+BZTKmreDbl/3kjO/nW1w7vC+f9/zk2f7CV8c/wDBWj4P3Hgn9o7/AISu30xbbRfFFoky3KNv865T5Jt/91/uVxn/AATl/aAm+A/x/gFzfQWvhfW7aaDVhP8A3IYXmR0/296bE/36APcP+Cynxog8Q/ET
+wt8PtOvZJE0GF73UodvyLcTf6n/gaJv/AO+68P8A+CavwPuvi9+0xoN19mS50XwzL/a2pmVN6bE/1KfV3/8AQK8M+OnxOuvjN8XPFXje7t1tZtbvnuhCv3UT+BP++Alfq5/wR9+Ctt4M+CeofEiSZ5NQ8W3DQJCfuRW9vM6L/wADZ9/5JQB8v/8ABZr/AJOS0L/sAxf+jHrwL9gP/k8j4Uf9hpP/AEB699/4LNf8nJaF/wBgGL/0Y9eBfsB/8nkfCj/sNJ/6A9AH9FFfhf8A8FVvjjF8Vv2jp/D9lE8en+DIn0ku7NiWbfvmfb2+f5P+AV+x/wAbfilpXwR+FniXxxrO6Sw0a0ado1H+tf7iJ/wN3RPxr+bPxV4kuvF3iTVdav5XmvtRuZbq4mf+N3cvQB6B+zfceBLb41eErr4mXctj4KtLz7VqDw27TO+xHdEKIrs6PKiI/H3Ca/ZGP/gqV+zVbokaeNrlEVdqomh3n/xmvwV5o5oA+h/25PFvgP4hftCa94t+HWsDWNA15Ib2WP7BLafZrjZsmTY6Jv8Auh9/+2a9P/4JS/FmH4c/tOWuj3s8Ftp/iy1bTJXmT5vO+/Cif77/ACfjXxTzVzTb6XSL+1vIG2T28qTp/vq3FAH9TVFeT/s0/GC1+P3wQ8IeObe2+w/2tbF5rWRf9VMjvHKiZ/g3o+z/AGK9YoAKKKKACkoyKMigCvJnI4rkfiH8Q9J+GPhq71vWZ1gsYEz/ALX+ztWp/iF4+0v4c+FtQ17WJfKs7VN7BF3O3+yq/wATV+c3xW+JPiX9qD4kWdnplm5hV3h02wR/uL/HNM//AAD/AIBXmYrGRw8eSHxn3fC3DM89re2re5h4fHMp+PPHHi39qD4kC2sIHnMjudN01HKJFDv++/8ABv8A7zV71qeoeGf2L/AK2Fi8Wp/EfU7fed3z4/vn/YiVl+7/ABf+g3DqHhX9i3wHHavEmq+PdVi3yiF/nZ/7/wA5+VF/8er5
+3+GXwv8AFP7SnxAvJ7q8mKTTedqWsTJ8i/7Cf7f9xP4K8D36Mv560/8AyU/aIxw+ZUOaf7nLKP8A5Vcf0/P12b8Mfhp4l/aR8f3F1fXU08Bm3anq038Cf88U/wBr+6n8Feu/Hj44aT8K/DLfCz4ZP9ihtV8nUNQT+H++iP8AxP8A32qX42/G7RvhL4dPwy+F5+zfZ/3N9qcPz7S/30R/4pX/AIn/AIK5v9nX9nW31bT1+IPjSSO08MWiPcxWszOkkro/33/2Plb5P480RjKP7mj8f25F1K9PEU4Zvm0OTCw/g0f5pfZlKJa+Af7OMenWa/EP4hn+yvDunp9vt7Z2/fPsffvmTZ9zZ/B9+uM+O3xw1T9oHxHZaLo9syaGlwiafp+zZNcO6Inz/Ps+/wDc/uVJ8evj5qnx21q10jRLeWDw+sqJZWca/vrh/ub32fwf7Feu+A/BWg/sjeEZPGXjX/T/ABZejybe0tv33lfx7E/75+d/anDkqQ9jR92EfjkKc6uCqwzbNI8+Ln/Cor7H9faY7wR4R8Ofsj+BF8YeL1Fz4w1JGht7OM71V+XVE/uN/fevBtN0vxh+1J8UJpYBvubh0eVmd/J0+H7n+f7705bPxn+1b8VJZoo1W5uFQP5m/wAnT7dfuf5++9foT8GvhBpfwZ8E22kWCRyXOxHu7zb89xN/G/8A8TWtKl9c9yHu0Yf+THk5pm8eFqU8ViZ+1zGt/wCAwiSfCP4R6N8HfDMGlaVDmTGZbh+Xlf8Avu9eik5zRuzyDx9KCV298Zr6mEIwjyQP52xGIrYytKvXnzSkS0UUtWYhRRRQAUUUUAFfhf8A8Fdv+TxtR/7Ath/6A9fuhX4X/wDBXb/k8bUf+wLYf+gPQBxn/BND/k9D4e/9dbn/ANEPX9Adfz+f8E0P+T0Ph7/11uf/AEQ9f0B0AeA/tnfACP8AaO+A+u+GoLW3n8QpF9p0aa6GzyrpOnz/AMG/7lfz2+I/DupeE9dv
+dH1mzl07VLGZ4bm1nXa8Tp1Wv6kK+Gf27v8AgnbYftHCXxh4M+yaN8QET98k3yQamv8AAj/3H/26APzl/Yu/bY179lLxLJA8X9p+B9QuUfU9N275U2A/PB86Ir/+hbK/W/4O/t+fBD40R2sOk+M7bS9UlhV20vXv9DmR/wC5vf5Hf/cd6/Bb4hfDvxD8LfEV74f8T6Vc6TqlpM8MsM8W35l4+R/416VyfNAH9NfjX4yeCPhzoj6v4k8V6TpGnKm/zrq7T5/9xf4/+AV8MftOf8FcfCHhvRptN+EDHxPr8uwpq17ZulhB853jY+x3fZ/wD5q/IO4u7i62LLM8yr90O26q/NAGv4i17UvFWsXOqarfTajqFy++W6uZWeR/+BvX2b/wTN/ZJvfjR8SrDx1rWn3KeC/DN358N5BKqedqULwvDD/f2JvDv+Fcj+yp/wAE9fiD+0fJDrU0UfhzwbHceTcXupo6TS7AjukMP32/u76/cP4d/D/Rfhf4T0zwx4bsE0zRtNiWG3gRfuqMfe5+ZuPvUAfnf/wW2/5Ez4Z/9f8Adf8AolK/NL4B/wDJcfh1/wBjJpv/AKVJX6W/8Ftv+RM+Gf8A1/3X/olK/NL4B/8AJcfh1/2Mmm/+lSUAf0cfErwDpXxY8E614T12E3WkataSWtxH/sP/ABp/tJX8+f7TX7NniD9l/wCJlz4S1/8A0qB183TtTiR/Ju4W/jTgfMp+Rl/vV/R9XzP+3J+yfbftWfCmPTLaWKx8UaTM91pN46fLuKfPC/8AsPsT/vhKAPyG/Yj/AGpLv9ln4tQ6jcKbrwjqnl2euWsis+223/65E7un/wAWv8dH7bHwPk+GfxMfxVoNqr/Dfxs51rw1qEKbYZoZkSbyUT76bPO2bHrwPxL4X1PwX4i1DQtYtZbHV9PmeC5tpF+eJ0r7j/Yp+M3h34zfDeX9mb4owwto+oh4/Ceo+T89jeO003zv/v8A3P8AvigD40+GvxA1f4We
+NNF8V6BdfZtW0e7S8t5P4N6/wPz8yN910/jWv13/AGd/+Csnw38daFY2fxJu/wDhDPE8UaRzzNbO9lczfxujpv8AKT/f/wC+6/Ob9pv9hv4j/swXCzaxarrXh+4d/s+taYjvDtTZnzl/5Y/f/j/uV84c0Af08aD8UvCHijSRquj+KtH1TS/+fq1vonj/AO+99eC/GL/gpF8DPg+Ly1l8Vf8ACSa1b/8AML8Pw/aXdv8Art/qf/H6/AuHUbq1TZFcPGn91HqrzQB73+1T+1l4v/ak8bSanrc32bQLR3TTNIhLpDDFvco7rvO+bY+x39q83+GHwx1/4xeNtM8JeFdPfUNc1CUJDCgxt/vO7fwIlafwf+BfjL48eMLPw14N0eXUdQundA7fJBFsTe++X7qV+1f7Df7Delfsr6BPqOrG11rx/ffJeatCjBIYf+eMO/p/tP8AxUAdjdfCXTPgj+xX4p8E6bDCkGl+Db6G4eFdn2mb7G/nTf8AA33Gv53ea/pi/aE/5IP8TP8AsWNS/wDSWav5neaAP3d/4JO/8ma6B/2Ebz/0dX2TXxt/wSd/5M10D/sI3n/o6vsmgDjfjB/ySTxv/wBgO/8A/RD1/MXzX9Onxg/5JJ43/wCwHf8A/oh6/mL5oA/Y/wD4Ip/8kL8cf9h8f+iEr85P20fikfjB+0x461+J7n7EL57K1huZN7RRQ/Jt/wB3ejv/AMDr6F/Zn+OUPwL/AOCfPxZuobx9P8Q63rZ0zSJYUDO0z2yb3/4Am/5/9tK+BfvUAfcf/BLz9mPQfj98Utd1TxdYf2p4e8PWiObGYN5FzNKSE3EddgTft/3K/Uj/AIYU+Af/AES3Qf8Av0//AMXXnv8AwTI+CJ+Df7Mmj3s8vm6h4u8vxBKnaJJoU8lP++Nn519fUAeB/wDDCnwD/wCiW6D/AN+n/wDi6+SP+Cl/7GfgLwX+zvJ4w8AeENL8N3ug6jDLqU1ruR5rab9zs/2/3zw/+P1+
+mdcf8TPAulfE7wPrXhTXLYXWkatbPa3EfT5X/jX/AGk+9QB/Mrp+oTabfQXUXElvKky7v7yc1+/Phn41J+0B+wjrfjh4Ut7nUPCOpfa4Y/4LmK2mSb/cG9C6f7DpX4QfEXwXqPw98ca94a1K3e1vtLvJrWWF/wCDY9feX/BOL47W/wDwz/8AG74QXcU32lvD2q+I7Sff8mz7MkMyf+gP/wB90AfnPzX7N/8ABF3/AJN98X/9h9v/AESlfjJzX7N/8EXf+TffF/8A2H2/9EpQB6D/AMFPvgx/wtr9l7V9Uguvs974PZ9cijkf5JURHWZMf7hfbX4R81/Uhrmi2/iDRtR0y6RJrS+heGVJV3q6umyv5qvjJ8MdY+C/xM8Q+CdcVf7Q0e4aFnj+5Mv8Eif7Dpsf8aAMTwP4T1Lx74u0Xwxo0SzatrF3Dp9rC7bA80r7E/8AQ6/pK+DfgFPhb8KvCPg7dFK+h6Ta2DzQx7EleKFEd/8AgWK/HL/glH8FbP4oftH/ANvatE0+neEbT+04flbY9zvRIfn/ANg/P/wCv3JoA/FT/gs1/wAnJaF/2AYv/Rj14F+wH/yeR8KP+w0n/oD177/wWa/5OS0L/sAxf+jHrwP9gdxH+2L8KXb5UXWU/wDQHoA+7/8Agsr8dbvR/C/hr4XaXdReVrO7U9Wj/wCWnkwunkp/uO+9/wDtjX5SeH9Dl8Ra5pmlW+ftV/cRWsQ/2ncIK9x/bl+N138eP2kfFWtyokNlYytpOnwxsj7IIXdPvp9/e+9/+B17P/wSb+B1x8RPj8PGN9p6XOg+E4mnE0x/5fH/ANTsH8RTDvQB+kvhH9gX4I6H4W0TT9T+HWialqNvZQw3d75Lj7RKiIrv9/8Ajf5q2v8AhhT4B/8ARLdB/wC/T/8Axde+UUAfOGu/sEfAbV9I1Czi+HGj2M13bTQJdW0TedEXTZvT5/vpX4GfELwfffD3xzr3hvUIXtb3Sb6a0lhf7ybHxX9Q
+VfjR/wAFgvgjqHhX4s6X8TYhb/2L4jiXT3SBNkiXMKfNv/v70/j/ANigDvv+CM/xquJLrxj8Lb/UGni8pNZ0m1dGcJjCXPz9EX5rb5f9+v0s8eeOtF+HXhjUNe17UF0vTLRN8s7q8n/AURPnd+PuJX88n7L/AMYLz4D/AB08K+L7S68iC0u0hvn270e2d9k3/jnzf8Br9jv23NV8M33w98JeINUs7zVtGZ7xrC8skkmgt7iXT5ktppgn8G90+d/uPQB6PpX7Uvhy6+1Xd7puoaZ4fhmtoU1qSa2uYW859kO9IZnmh3v/AM9kSvc6/LiHS/EWj6P+znceO7bT5fD114RvLXS08M280MyzTaVCiC/eb/Wu+/aiJ/y2r70/Zv03xFoPwL8D6Z4u3v4ls9KhgvtzB3V1QbVf/b2bKAPQ1kVQG+7u7AVzvjvxtpvw78M3uu6ofJsrSJ5GKn524+6v+1XQSTtb27SMm51TPlpXwP8AHDR/jT8cvEzwv4Z1K28OQ3H+hWLKiIif35v77/8AoFceLrzow/dw5pH0/DmTUs3xShiasYQj8UpS/wDSTz/4jfE7xd+0547ttHsrd3tprl/7N01VK7F/vzZ/iRPvNXuEsvhb9irwHJAqR638RNYT+P8Ag/8AiYk/8errPB/wSm/Zs+HL61oWht4v+IMy+T5sKDKM5xsT+5Ev8VeA2/7Pvxb+MXj9LvxfaXenvdn/AEjUrxMpEindsRP/AEFa+f8AZYij7/Lz1Z/+Sn7bTx2VZn/s0KsaOX0fs83vVZR/8m5fzOQ+H/w78W/tL/EK6uJLma4Esu/U9VZP3MSZ+4n+3s+4tex/Gz4zaP8ABrwr/wAKz+GEqWLw/JqGoWw3lf8Ansm//nq/8b/wf+gek/FDR/Evwh8F23gX4Q+FLpVnh8y41mFEbZ/f/wB+Z/79eX/s+/sfavrmvyaz8QdO+yadE7/8S26GXuJv77/7H3/9+n7GtR/c0vjn8UyZZxl+
+ZR/tHMJxhhKP8Kivil/elEwf2dP2ebTUrWbxv4/t1tPC9urTW8F07wvLMrn53+58n9z5vnrl/j58etT+OniCHRdDgnj8MLKn9n6aIkSa4dPuO6fg+xK9Q/aOh+LfxYvH0PS/Bmo6f4PtWWOK1ESI1wyfxv8A7H9xK7z9n/8AZyi+DPg+48YeINIfVfGawvNFp8HzvEv8EKL9zf8A7f8AtUfV5z/2aj7kPtS/mKedYSkv7ezKcZ15e7SpRknyev8A8kYHgf4X+Hv2V/Ar+OPGZhvPFzwslpb+dv2t/AkKP/H/AH3rwC2Xxv8AtVfElBMfOu2T5mjR0trKH+P/AD/HXX+NPhd8bPjh44spvE+i31sksqQws6/6PZQu/wB/Yn/j9fa3we+B/h74N6CLLSLRDfTIn2u8b787L3arpYeeJn7GEOSjD/yY4cZnmH4eoTx9atHEY6t/L70YRJ/g/wDB/Rvg34Xg0nTIt8v37i5f78r93b3r0Vuc56Ubs854oJXb3xmvpYQjCPJA/n/EYirjKs69efNKRLRRS1ZiFFFFABRRRQAUUUUAFeG/Fb9jn4OfGjxQ/inxp4Ht9e16WFIGuZry5id0T7ibUmRa9yooA8A+HP7EvwU+Fvi7T/FPhXwHa6R4isWd7e8jvLmRoSybD8jyuv3Hr3+iigAooooA85+K3wN8DfHPR00rx34as/EljE2+FZtyPC3+w6bHT/vuvlzWv+CPvwL1TUrm7trjxTo8cz7lsrXUYfJi/wBzfC7/APj9fdNFAH5/Q/8ABGH4ORv++8R+MJ0/uJd2yf8AtGvVfhb/AME2fgR8KJba9g8JP4l1S1fzobzX7j7S6/8AAMJC3/Akr6sooAjjRY12quxVqSiigDzD4vfs4/Dr4/Wen23j/wANxeJIdPZ3tlmuZovKd/vn906V57pP/BPn9n3QdXstU0/4cWVrqNlMlzazpf3bGGRH3o4zN/er6RooAKKKKAPA/iN+xT8FPi54
+lu/EvirwFa6prt3t+0Xn2m5heUqNvzeVKiZwKxtL/wCCd/7POl31tf2Xw2s7e6t5UnhmW+uzsdG3o/8Arq+laKAMrU9LtdWtJ7W+t4rq2uInhlhmTzEdH4dGT+Ja+VfiR/wS9+A/xCujdxaBfeFbmSV5pX8PXfk+az9tku9E/wCAIlfX9FAH5/Tf8EYfg5JJuh8ReMIE/uPd27/+0a6Xwj/wSJ+A3h3Vo7+9i8ReIY1/5cdU1FPIb/vyiP8A+P19uUUAcT8N/hX4U+EPhuDw/wCEfD9p4e0qLDeTZJw7/wB93++7/wC29dtRRQBj6/odj4o0LUNE1GBbrT9Qt5LW5t36PE6bHX/vlq+f/wDh27+zZ/0Syx/8Drz/AOPV9MUUAcN8L/hP4T+CXhJPDPgvRV0bQoZXmS1hllmRXf7/AN93bNdzRRQBl6xpNprmj3+mXsAmsb6B7a4hY/fR02uv/fNfPf8Aw7d/Zs/6JZY/+B15/wDHq+mKKAPnST9gr4DN4ZtfDTfDyzfQ4bt7+Kz+2XI2zOiI77/O3/dRP++Kpf8ADt39mz/ollj/AOB15/8AHq+mKKAM+x0210qxgsrS3SG2t4khijThVROEWtCiigAooooA8H+Jn7Ffwa+MHiu68T+MPAtrreuXCIkt9Jd3ELvsTYnyI6L0ql4T/YV+BHgPU5dT0DwBZ6fey281k8yX1y+6KaN4Zo/nm/jR3T8a+haKAPmf/h27+zZ/0Syx/wDA68/+PV6d8IfgT4C+AWkXmk+AvD8fhvTL64+1S28NxNNvm2bN/wA7v/An6V6VRQAV4H8SP2KPgv8AFrxdqHizxZ4FtNc8RX2z7TeSXlyjTbERE+VJUT7iJXvlFAHmXwh/Z5+HvwBttTtPAHh6Pw3DqbI92sVxLL5zJv2H967/AN969NoooA8U+LX7I/wi+OniNNa8b+DrfXtYit1tkumubiEoidF/dSJ/frmtE/4J+fs++HdTh1LTfh1a2V9b
+n91PDqN5vX+H/ntX0hRQB8z/APDt39mz/ollj/4HXn/x6vTvhD+z/wCAvgNpN/pXgLQIvD1he3H2m4hiuJpt82zZv/eu/wDBXpVFABRRRQAV5v8AF34E+B/j1odlpXj3w/F4gsLWb7VbwyTTQmGXbt3b0dG6V6RRQB8z/wDDt39mz/ollj/4HXn/AMer17R/hh4U0P4cw+BrXRIYvCkNi+mLpLu80PkMNjw/P8zJXdUUAePaP+y98OdBvdCurbRLqRtBbfpcN1qd3cwWjj7pSGWV0Gz+D5Pk7V7DRRQAlN8segp9FADKMe1PooAj2j0p9LRQAzyx6Cin0UAM8selPoooASilooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAP//Z</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="ID6">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAAmAAAACgCAYAAACrHNBNAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAGjHSURBVHhe7b0HuGVVkb99VGb+4DgqOCrjoIAoICqKIqCigpIMYEIcDIijKEkJoiKgmFDEjIIBRJSMIkgGQVAElCwSuukmQ5NTE5rM976bWvfb99y9zz3nhu5LU7/nqWentWrVSrVqr9hJJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQS8x7XdzpPv7LT2fCKTmfPyzudr9/S6fxnfEokEolEIpFITCQu6nSegdG1CUbXCVd3Otdd1+k8xvO5GGT/FU4SiUQikUgkEhOBmzC8rnrc8Dqe6823Ynjx7jHuNcD2yx6wRCKRSCQSiQnCoZ3O0zC6PoKRdRzG1i0aXrOgK6GrHze+HoF+4JBkeEkkEolEIpFIjBUYVmtDB2B4XV83vArF8OOjGGjrP4ahFt4SiUQikUgkEoNiRqfzQoyub0HTHGa8oWZ0FXLo8WqML+5PxzB7bnhNJBKJRCKRSAwKDKv1r+h0/sz10RvD0Oo2vqRrIdw9zPctHut0nhLeE4lEIpFIJBL9IlY3bnc1NthtYWA1GV6F4vtVMzqdlwSLRCKRSDxBgP5ecGan81robdM6nWXjdSKRmJtwAv3lnc5uV3U6s+31qhtaTXTN49eHMdh+eE6n82/BZsqCuD3Lnj0UzRe4viFeJxKJxJMO
+6MOloe352f49evwsrhdz/Su09WOdzlPDWSKRmGxc1On8OxXv/6iEczDERhhbTeTke653QqvAYsoOPyLfgtDGGF1/gK6e1ek8xPPel3U6/y+cJBKJxJMC/IA+D/23PbrwFK4P3oEevxlynu9dj+v0GRhgU/6HOpGYb3BNp/MK6PJ+jS8qr/So88TsWQo2Uw4zOp3VkXdvDMtbbkdmFxKEkjkpFw0kEoknE9DXK0P2eD3kivbuKSaOfPD9Sgywfw8viURiMoFR8h8YU7v4F6RhVa+QbeTwIxX1Idx/fipuPUFc/hs5d8Cg/JdKpb51xi2PX09G+SwWzhOJRGK+xsxOZ0N+RM9RzzfN7eWb5JSSP5zS6SwQ3hKJxGSCyrcCBtUsK2B3pWwjKzAV9YYZnc7Lg82UATK5b9nhGIcP+JdXNyp5/9jsx98druEZXhKJRGK+hNNL0HufRb9f060P6+SUkss7nXu43zRXtCcScwGXdjr/yZ/Rt8pxQt2Vsok01HD7CPdHTKW5Arc/Psl+u+s7nen2csUGscNkt+cOw+t+3n8lvCUSicR8Cee5ouu2Qy/ePtrCqph+chnXF4X3RCIxmeCPZ/lBe7/CsJkDfcwjioLVPMX0TmdlZNsXRXOff3ndMhdyaw0Mzr+4Aii8JhKJxHyHYnyh22/rPr2km/wxRXe6OGmv8J5IJCYTVLqFMES2GWTulxSrH6/D7zz/U1LJIMv/omT+YTyaer0KqYT4fhtyfzK8J6Y4yLdnk19TdpFHIjEVEXrxc9ei75pOMPGHO/R4RepG9OYNtAO5PU8iMTegAUWlO9e/n3rl7EXRU/YIfo+Y19s4TO90Xowcu6JkbnLIcTQj0mFW4nvA9Z3OfwWLxBTFjE7nPeTtj8nb/bn+BlojJwYnEqMDXbegPV8aX909X+p6dSXfPT7uKt85nxe97uT7A4LFXMVjuedY4skGCv0CVLgPYrQ8Mkjvl5UVf/dx70TNeVZxkPmNyOFE
++2rpdLecdcJdNfTI9XIa8lWDRWIKwsm/5OlnyLdr3Z9IcvsQni+g8VgknCUSiQbUTjKpjC91nzqwGF6h60+EduTbAT7bQ4Ze9DST1wSbSQdhLw5tBP0QOX+CHOs7Hzk+JxLzN6hwz4eOiImXfVO4vwm/82QOFWF7bMbHUDAXaHiFQThCzjrZ1Y7bO/H3xWCTmIKIYZNtoNk2CtFYlGFlh46fH04TiUQD0HEfor7cXje+Qmc/gs48mXdOyF9S4vk86xnXB3j/zWAx6aAer4E8RyDDvf5c3Qtx/y/eLx9OEon5GxT2Nal4d0BDhspoZIMY7k9zaXOwmmtASSxD2Lshw82DzFtzUj5+j3RvsGCVmGKgPC1CXu1Knt6tUV3yzvJmA2L+YaA9M5wnEokuqNOpKxc41aLUnxiCvA36OlSd82gvM/e/UIf6HX/nU89eUDGZRBju9E7nfYQ9XZ1c5qBFfb/smk7ndeE0kZh/QcF/DgV+36bJmb3IbmwawgepsN+d2wYY4a9G43y8jXG/ciNrdcQG99ci87rBKjHFMK3T+S/y6icq5KKUJQ3sML4u5/6dOQcskWiGw4fUkbNiqkVF6knqk/p613CmEfQ06paLluZoqPHN6SQbx+dJBeFsSrg3OHJh3S713GfkPYZ3S4bTRGL+BZVuVf467rR3oVSCfigax9n4X9+/mWA3qeBP6ZlUzk/TEE/TmBpEZv+sqNz34v8ryJsTPacgbBBQvLuYV/WeLxW0z+TdLTxvGM4TiUQXLut0FtOAqfd8qavRmQ+gq39d793iJ/oV1K0LNc747vzfw6yD8XlSYFuhDqc+36axVWSU1OfKOrPT2QrZFgovicT8iTMe33riG4NsvFoo5hXcAC0e7CYVhLksYf2Qijknjg8aiPRDXI9D7rkib2IwoJhdCLIV5fBOe1freRfG1wPcfy6cJxKJLmDALIzxsqcGVdHnGjWhq0/ieYlwqj51S5d9/ZHVPd+n4/a18XlS
+oPGFfPZ8NW6HEb1wx2tEhpdEYv4FhX41GrerbfAGMcB0Gz0UZ82N4ccZjx+ifWL8yaksRsjURrqNocfrkPudwTIxhaDxRf5sDd0dPatDZDkLA2yPc6bQSQuJxFSCPUbUkS9g3DxY/4GJIb0Z3K8WTqsFLhg6X1KPRy+Up4F8Nj5PCnbudJ6K8bUZst3eZHzFdhgXU/9fH14SifkXDudR8Ks/oO7KMBpZwaksD1OJf0HjOWmNIvyfRTibUCkv8+/Iv7kmeXqRjTd+q6HHqbJTf+L/h/u3kU9Dxlf9R8B7ypr7zJ1+B3/s4SWRSNSADta42ZD6c11MtK9+PDWu0JmzqUdbhtOqF4r6tC7vbtJtDD3+AaNo0s7C1fhCnk8jyx1NxpfvkP1q7t8bXhKJ+Rf2OFAhNqBxG2jlY6HokbjHim3lD7YTCpTE8tCPCeOBsRiJhWLo8Rjuh7rfE4PD3qcZ/EWTjhtDH58g2pb8PdyyZJnifljehaHvMVffhJZBSS/ttY1ohJ6nsg+RE4knBagrq1B3LlBPUg+G6g6GzUM871c3rvj2MurRmRo9GmjoxmnQpK049Ae9V8+X7Q91/xbk3CS8JBLzN6hwNmRnNVWIfsieCvzfQaV/f7CcMDikSRhvp8KepnwRVqMcvUg/oZBmoQBy6HEccMsHysyW5MmVboZ65wSR+/7YCNhYNOWhypn8e5BydgbPxwed0E18PxF3p+B+zezlTDyZQN35H8r/YfVJ95LP1IkL+Ta0oSr1Y2HeHeC2D9FTdg/PW8XnagI/9Xx93n1soojwd+E6u/TM1YlvlX4nzJ+5+tmhUeKzkJuw2kkQYiUS8w8o+AtCO4zV+JKch8X1FhrPVYLthGBGp/NC+H6JSniLxpMVtIRpY2xvlkurowdu6FsT6QYed3O/QzbKY4dKkTTcjPS8s1vJzy2yvFlem0gDLgztW3H76hA7kZjvoaGC8bIruvFR9WOpLxo7PM/mfmjRCvfq/a9Z
+hzV6qM8etv1L6lDVO0Y9Xw4/B6pz/TkqJ0+MlzT22n6wDEs9zfVAnr8G7Qp9hzjthozLVIInEvMTKOCrUyGutuBbCcZCVnAavFn+fQXbcYM/oFXhfbCV0oa1hKWhFQrF57/wfBjXm1QixU0TqWioyAdOn0AZn4wgP95K2ldz8JrSeV6Tyj3K8rYaiyF2IjFf4zF+Kmd2OhujB2+u60L1pz8l3B9FfXhuuF2An9uNqMd36TZ6o06l7rzE77x/MXSMP7htxtJkkvresCWNNnS8C8NyI9bE/AUK9SIaJRb0porQL1lhqCTXuY1FsB4z7u50nofS2AS6SMVQVwAaXfEHdSfh7WMPGe+WIg7n2utRl6mQBpvx4zoTnnma/zhAWi9MWv9mvOVlssjGJoZaTkHOPJoo8aQBdXNF9OJ53Xow6sNN0AfCqaeGvBn309SvobuvwO3b/XZ9p/N07qud8K1PdV7zgtT3yPE9F4lVwicS8wPcOZyC/WEq4v1QY+Hvl6KH6lp4LhjsxwT+4FaEz95W/PhrGyKHnezZ4Hohz9sWYw/l8WX+4ma39eD5HmVyD3HcpgokMWaQ1h/t/sOeKqShHob2JZSjSd2/KJGYSkAn/pc/0t3Gl3odPerq9N+W7YF4txR1pNqYNUYunJaxrd8ee3xF5Bro3wfH2yZMBFmnkVH53qN8icR8Awq1G5lWq1/qhX4sZEWm4s4qXdyDAh6LIssmVLiLlceKV3hrjKlYUAh34+YwwlkpvFXzFHj+l39JxX2dil/cHAjPHHocB1DOTyVNf3k/t+RDY3rPC4pGpjLQkets8nrNEDmRmO/x6ONzMndQZ3YbTdH7dRn31Z5f1I1ncf9z9bX1hR8p5339HJ1bzfuiHj0fN4f4g6XuLHzmFYX8+3O/qPIlEvMFKNBOwNyxu5dprBSN360ogDdFEH0BvwtS0d/GdV/5dMujIgiD7LKZnc5OdQOP788mzIMMu+1vTb8qIJTKquEtMUa4
+7QR5tR0G7d3Oy9CwNb9U5pJp7dU8s9dRqhvSE0XmtWEYtoZ3NBaXk897E94rQtxE4kkBdNu61IGZ1r96PbHuUR/dUPX7urP+cr8V9WdO0as8n4JefWnFCPC8svWrTZ/OTQrj6wbuhzaMTSTmC9BgvZUG8korYnfBHwvZ2FJZ7uW+76NhUBCvxM9XrGQqg3ql994KyHU234+dhpEW3irERn7bEe7tGmDFX518Txh34e7T4S0xTtzOHzQK+8vkzRmk63mk83Su13G9hqs0i3vz7EGuKv9HHRZ0ewkNNsuJedOL/PO2XGrMaWTpT9LYqq14dVjCQ7iVY29kekeI2Bcob/9B2XgJPFbA/1oS5eW/4nMi8YSAZRgD7FTrV70OSdYXyvU50Kt0y8/ruri/Ur1oveL95bhbp2IU4HkF6t7t8is/VIWsd9000YZaqfuGz/VGZPyUPXwhXiLxxIe9SBT2Q0abSG0F6/6raiMrjpURZXCGk+gjqEYQvnMQPoX780rFrvNSQRguysKu8x2piM8Jr0OgwX0r365oi4PyqGSQ55e47SlPYnCQrs+f3um8jLRenfTdkPzcgHfuF/RR3m0P7cr9N3m3O/dHkh/H8fw36CbzxjxqIsuQChh3GnEadjO5ng+dy/1pXOXza+6/BL0dGmhoAnlehP+18PcN6ERkucTyZ5jEY2cMy2eE00RiSiN+hn6qDu2uU+hO9egDlPVv6XZGp/Mayvnp6sQwvtwNf8RGp+jT/+TbZ3H7D75fBS/r4LXce8avP1UPxlXe7sdX/RRpMHmVd7csTWQ9L4Zg+cFSl3vF/xzidC519f9y76/EfAUKtN3Qn7LR6VVRrMC487ieK/qpUFIYUlbO3bq3eqAyqSzs8dqE7yfo1gpY522ljAp4B+6Owv1bw/sw8P558tBIa5PN3jPCPB+e82QytgsclJPwXyAh06LQuBYoPNFBerydtDjXslXPq0Lmf5S7S3jenusHobUwjpbh21L2
+WgWrgUF5c0PJ91Ne/gDPOSp+y1+pBxpghG2Ds0J4SSSmNCjPn6Tc3mnZrdcjSWOGcn4O9y9T91J/fleG6yn3brb6zWDTCPTwf+Pm3fjfEL8bcN0YPrtx3S2u1d5cXH8BnQidxLM/R+dCD7fpZalW/2+CpkH/lPDzD/wex/03/EkPURKJ+Qc0gq+1EfSviYLeSDZMXP3T+TaV4sNWmF4Vqk6lQYPcSO9DhPc2KuYn4fV9ni+Sd7fh5b3yGA7kCrat2w5Z9o9IuYjDfU2KR5I/3+4g3A+Ht7kG5F8IGVZBvm2Qcx/oIJ4P5nk/5Nn2jilwfiHK7ZnIo2G4cLyadHhkEfl8YpvRXMoA9+73M2xYZDwgzTX83wr/wyxfGl7Ee4QMPseQzQfy6KLEeOFGz9YvDRnLYLyeMMBzefif3jQCYDmnLqm/v+yPINddyg8HevFhnn+Gfn16sJowoFc80Pvr1KU5ytAtl2Td4+pZk4dBn6C9WBmZqmPD3Pk+WCUS8x+ogE+nguzaa1jRCsL3R6kQx2kE0Xi9gvvZUXH6IhszjSPDseJ7tfJbKf1Wd6vBFo2yf0MHayCGuI1A/nWR5Wr51vkUkj/8HkHmH/I814wdh10Jc2XC34nr9TWFV1EoyruQ/d3hZa7iok7nGYS/Aum9PleHBzWQf0SefJg0nbT9smyICGs9wrrMfObaSKYR1/ugHcLruOEQKXH7Lnlyp8ZdrzIc5UYDzIUeOeckMSZ4kDw67L2Upy0pVz/iegDl7ru8G5roPl74AwW/vZqMLyl6v06PKQIbI8MD6iLqwKPUh+OgpYPVhAGeDu37k/1Im/FlHbOe4+443OSK9MSTC1SAd1Lwb9DoaasgNkJUpkup4NXwH8rjxVSYM5uMp16k226qf7cx1Ejh/QM8/53wPu42B5WgLUDuxZTF4cVufoVCKZ2GvHNlNRxhuX3GWsizL9fqZP+SVnVSAfLdBQGfCq9zBc5pIm1XRAYPr55l2mmM
+qAi92uvDt29rnIeXCQPpYG/g/0HTDcv8aSLTKwywP3qUSngfM8iD/6AMv4t4/dN0byvvdTKPolxt19b7mkg0IX5UX0r9Wg+99mfLcvkBk9RJlMffcD/uHh5/aOC1OXWmcehRvUpdU6d+A5nehrsr1EnWP/ydyfsJPSpOaOgR98OtZ9blujyFrF+mBfcu2lk5vCYSTw7w1/RcKmDPiffRSGokfCa8VTuf8/xTK5eVqNvPoFQqosqDe7cOsKdqiQiuFdGo7oufR9squfIj5y3IvF54mzQQ3qLI4vYZ7lFT/WGq/NrSSJn5Psf4BotJB3nuWW5ONr/etFEG5auTypnvF0ATqpj9S4fn1tC9TQ1FIWVQNtJlBs/jXm7u3EN4fgWqVseaJ91hNpFyOP+QNNowWI0blNfnE69XEf/XSzMg3i0/EUbm/ILYW24J8mnFkk6k0Ur/6nReGE6mLCgrC2HkOEKwFeWn+km1zFmW6uT70J8fcUgwvI8J1CunN7Se+uFPBPKcz/32hPsnnzUGeTeTdwOtFO4HlOnV4fsn4ygVObopfoJcWLMReZ7n8CaePIg/tE2tIG0Nkt9Qfo9yfzCVfGgIJoaQNhqkMWsjK2EYebfD82gUbd97hqG8PkH4N4f/EaRsKBu3Pfii88TC24TDRhVZnFN0AGGNangV8nsYGpeeP8lDo2H8vBe5ziFPi/JvlMtvyOTw74QpZ8J3le13oLtD8bZS5Kcb7A4Z/WMBef4U4rsifP5gXEu43lu2zadesoQhOhMDblyHd9vAYmC5aGAj+O1n2tpYGk9l4J3npbo69EXhZcqC+vQM5ZzW6SxLfF5LHF5H3i5X1w9jhTzg+XLy5FOkyUnQAxoKYSw4jHUUjfvaExHWRAPZFqJcLYfMO0BXlTpGfBrrme90Q7xOJg0XDzYDg7x4Fjz2j57axnBIP1cnHgsd5M921K/b+LZFsJkQUN/cE/Bd8L7cuBn3uix1im/VtBB/pINFIvHk
+ABX3dVSCc6KRaaT4Np1KNWy/LcE7lc1NNmR1P/2S/oK/+4T9A9p8kD/BmMtwjspZJSPPblIpcT2CxmLJ8DahIP0WNm1UbITzQFE6bfI0Uch4GzzeEmwnHDaY0HeQ6x7TfDT5wii5FpnWChbjguGTLj/tx2C3XJCOKuaD7AkJFgMDXgvCw5VaF8lTMt7mUTRArsy9FTeurnUC8DA5TAPkdV+xUYfB2+BPDuG6r9jm0IXF4DMN6qRs0XtxMt8nbF7QRIE0e45GFvKtQzo5bH0SZO9kGaK9xm9jTacwlJeCz3bwuTZ6HUekU7y/mrA/qJ/wPk9Bnj4duU2bHaFrLF+lrEmmURsZJ8sD8Xn3WNLO8oXfz8PnvqizjWHg5lbur+L6sPVf9zx/KdhMCDQE4bkpcb7HNOgVd2WyLuDmOMrVYsEi0QLLBvQ0yZ8PytciLk6wXvZLuifdF9a//Mbb65oYBzwv0QbZhqitoviNCmsjtWN4G4aocLtFRWrk0UQqpzACHub5CsL4JgVkoKEFJ4/j73cqHfl1hyEZBm5mQWuHtwkDhfiZ7qED7z0I60Hkr5RKUzoon0aijUed/BP1PXGwh/Fq/K8Y7CcM8PVkg9WR8xTla1PS3RT5cx6yvy5YjRnONSPsY43zaOXE76YJ9xcS9pjn612CwoHH56DbzBv5Gv+4v5P3Z0G7c/8Jrr8jfe6vlyPTSbfc/4T3iwTbgeCwJ3Vkc8K4sJTTtjIi+d06h599uB/34fXjBTJpwC4OrYXcv+T5WmWsx0Xy3vKC3LuPZTUvdem5pMmHCed8dYn8TKOmdPKd9YZwzyG8oaPH5gVsyJBpWWTaies1JV2a5JZMK8uUaVXKpO/jZ2BvrgMf14a/1eFzUfzEjUqGBTnl4fvIMWG9TsT7f+QJtRqChYx3xP8Grq8PFk9KaAiRJgtSNhbWQOLeYfcXc7Vz4dUSafpmrh/n/adIM7dr2oar7c7ekPWyX9oLXj/lqn/1nsay
+c2JfQz4YzjLcL8l7t0Z6NvSk3h5pUkFiOzF0lhWBhB5BKgsaQnshjrZwhLcRwK2FZJZKpe6/iYqi5t4lz1dytUCMaeIlfj+HXHeosAv/OhkWSmkOBWpCu9j943Q4irB3g/cNhm9acT9CBt8bX+JoOl7BO+dUDREyenWPm19DOyHvhG72acMG3+2QrforVx7C64vCCNpXxRrsBoZ/WDSSaxLuP+TXlEbdFI2Rm0FuGWwGBobxCwn35/B5xMbAcEsekR4X8X4bnqsyzVVl9yfDLukTefoQbo+9tNN5ZcV0AJiPhPU26DjDVIbCezSyvODHkwM+GOzmOpDj2ciwHPQF7v+uXCUOknGSiszeR4N6EEb2fwebUUHjswBldAV4Omz/cPAYlh5NpJvYGmQfeMz1hRH2QtijjizbQqMaXn6z/Hvl2bm0V3O93W/60T/v3Fx6oL3mMETdHLV16LGbTF/yR937K2SZMAOfsC0rnqlb4tiTok7O4X5Ty0CwmW9hm+EPezGwiL8LM17F1S14PsH9F7juydWNpP0xtF240bQsZWuySb1L+I54eIrJEdCPoe2Ry+HkV6NPl74Iw4y6urCdNxG1xFhgw0yiHqwS49pIVmoyYwYZMGLosQ4aWc9s3IKMuUM/UbmG+HhvxVcB4cYDXu0G33s8f6/w8JiYmfaolHDqZJhhQPyWwjVhy5oJc3HisgXXSy2wpTFqCt84W7B5vh7SkBm4IR8rYq+hl0P7EfZD/TZshcJIvtaJtMFyYBBfVzp+nHCrlY79hG96Yfw4FHjQWPfcsreN/Dm88PNqPnF1qf2x3A/1MqoIeX+ysoWbKu74c+7ZPoMYE3XA5z34v9r6IN9B0l639vDg/4C5bVyQdm4QvAb0E8K/rSj/0eLgt1Lf5BHsesKGF/fvgfc06/Gg6aQf8tOGasJX7/XCxegAwv0k4boj/JBhWpetkO+jLrkz/JWk6TGQRu0qPG8B3VD0iEY/fAc6LB4+zt9t
+/Qmtk/lIHml8HUU4E7LdRAx/utK7WmjQlg510o1uuXfh13y16MT0IG0dFXIhlga6nRPvgDaD3KjWc43dBPeqkg5ex0L6tewVsgz0S5Y5yXvbBqmU46ZwkPcRyJ/Cw7j+HLc7YEMsF9FODAJ7JUjEzUoCcz+CIkMeosB8J7z1BJlhV/xmFLqroWoelI2PZAbybjbfZ5CBe/E8riEtCs3T4fO7UnjrcheyYHG9DDcTMkQBL7eU2AA6MwzJ1rCVy/CJs6cFHEs6Nu7aP1lwJR359hFkqSbBKk+3jL0IuVXUD9KQ7my+BtuB4N8efGxo7rFiy7M7nCYybXFrz+CYjFV4rAJVw30lf7z6zP3xpEc1zB2Kcg3ena5sJT9VSoR9C+93NA4V0zGAfP8MfOdEORyYNMC4/h2ZXh4sJxXE1Z5Sj2FyKPbhkn5SP3mnO9LWHg1Xt/Y1bEFa+xN4vIe391s+6mS5Rs77kPeLwXJSoWGJnO8ivDOV1/CNd5Nsvrcs6Q66HtoTGtFgwWsP66g/wtGj1/dUCcpv64ar3aQ88UN9yngXkxRE75sLJW7ut47rJurixcg0V8r2ZOGiTuffoUUoB/9D2bBH6y3Ea1Py5cfcHw1darob50I+Fyrlp1Ddnd8ky4ZUDCaN+dKu6ocwHFnROPLqXFWnVvRN+HEouuJheIW3etjw1F/mV11W5bsLws/vPPIqkmMY1K+mDWEsim5ZTMLvC+wBtP0OZ09OUEBWIhHPMpFJoBFkAvPNOUl/MuHCW18gkV9Oxrh9xF+59ygJ6QTC3JZMnJCeKHnBu/WvL5TBfbgb92738Hs28Vmbq2cDDhVE7+thFjLsUDD28n1lbv/h2WND2N+F7g0jcISMo5E9C8h+nEol2A6EkOFHUNWQ9ytD5KfDM58NVn3D3hT8qQD/ZZjmkTwNWwXGt4u4rxpA3punn+F6bXGrG6+8n8F1A/iNeeK/hht8/NEYkmNQUtHCwyH69wbbCQdxfJp1
+kjDeR1j2GD48WvluIt2ad9S3fdEbfW/ci/ul8d+XAdFGNgRc953MEwrg/2zSROP0SNLp0VJmmtLI9DPv/AbdyLvfUY/eSFo3LhbAGHIvxT9hfF3P1Z7YvnoVCOM/cP8r62qTHHVSVvMH9xfy/PZgMS7Ay3mBP4Cq+V6jyVBIt1xnk06W6ymxgKIfkH9Vz5b1hTi8lOubiftnicu+vP87dHspE5L3UqlPhcr34sbv6h7zR4OnGD+RXs6PtuNCQ2kW1+u4qhOmQ9PgcQzX30q8d1X1F7nfnOtn+qFw+y2u9sq5V+WfoEvg60Hs10K38OwUniHjT7LMebYncT6Cb8MWtmF42fv3at5vIU+ux3N1SPUseP2V68HQ10jD1S4Z4+jCExo0Dh4JsVtREiTGCIoC4ITwMe+ZpUK0EQuasIqGzE56n2lB7ZZbMk4UZoeafkahGXhCa4Fj3BQS/zCduPiAFUVqSzMrk5UIN/cT9gm8G/PQ3VhAeAsS7hrI9xflGUQp1kl/xMHz4DYI1gMBv6+EDjatpKYwmki3pJ9/YgdaZoJd3yCu74fPrd3x9pl0ud200d2MTuclhLEP3x6IuJYG0zgfzXVc3er2PsJb4/OhQeLfTcqGPK5S2z5YTyjszYG3w8NuwPlIaQzqadcvWe65ziCN++7ZDiPVScTjSicbAvONsCf8SB/i9XR4e4KFZxre2SuNzC8bKe5dsOQ8mt/jfi3K8qjzmygzS9AIv8Eeg3g1KpChmvIRad9Kyhq6chp5PiHbycBrBehI02KQvNOtaUja7KUBGeymJJB1IfLkOZQrV46vhPwaKz/j6kp9t+6w16lK31IuSvykehnx3m/F0CqGTLjxWCiNrJshe0pn8nwpdCjPGkWf551TXt4Cj5UsK/YulXa1TiH6wOji81R/oAnTdtYRn29D/pxdRLw8fP1GZL+aNHFu61vr4fLdc41/ivvKaJNKehQq77iqc06Bz6rhvSdIt//Cz5KkwUvQ
+HUtBz7UHMj4/cUACvYeIXN9WcS0oKBInH/8svEwZuKqNDPtjycwm+S3YXE8jjmNqSC1QrlzD/5fhc7OVxjTheURYhUrFIs1ugL6HjJN2fE8TLJyE6yTOSiHX00bZ29Kqm4wj6afxutugPXdlsj18ztaA7zfMQvohDucj78BDj6T/6/F7kY1gd9y5OvfmK9w7H2013J1hPHVbDDD8uNeZcxrGPOQoVArw2Z0wqp4/ZaiTsvUqR3XSP3wmfJsAhwDga4/uEVyrBQqmQS+5dGO9smx1u/MbNAfDtu8FA8X4MvzIoyEaJI2kmMN6oo1GsB83bOCQw4UZblRcGV5tcpW04bt7bNlrsDu07GT2yFHPlkeWM+2JqMvSRKGX3Ftxk/A+ZsDPFbEewn1V1JvGMJvItFMW7i9G/im3z536QT1KXroCcQ3iuTN0GHQl35w354hQFWfjXuJvvOrlwneWCduE0mukW/xXhhZ0M+41ZKZxb4+q9cDeqHUwkFfUqKANelp0YEyJHkKNMocakfNVyOlq+sV9F5+HQLw+YZk07vW06Sa/6Sbq7pHhvRGE82+4cQ7dUdBd5gXlRwPvGGhLde5USadRobAIf0hEvJFMQBL4DBJows8EGw9MZOTaiUS/28xrkt2Cz/Ue4viu8DYQNPAoHB+Ax9lUnmpXfQtLPYw6lYKE2/t59sikd9QLg/c2NjZ6yPSsiS4oMY/pdYTtfINhw33KHn/kGtM2DpUC6UUqC65OEB1ojghhuev3x/FXTbbvlWZNFHI69LhVsOwbhPVa/P3L+Ja4F+KdcXZlmV3iH+ZarVaTDJN3HsvyV65vI2/G3GC64AE+9go4x6xKe+6HqJST8twtZxMpo4qG+wkxwODjsOta8Pwj9w8pU1OaFfK9Mig3/pxnZaNxq/5K/sb9I/Dcvd/eG+sCvF3tNcxINbxi4EndadhGxQBDjhdEEOPCTY8vv98U+S7lOjTcWMIrpHzKyzfr1jWmAe+XHU85
+6geEuxDh/cperSa56hQGj72/riYel+6Jn4vtCXugIcdC+sGvsrw/WM5TmI6U7ecg0+Kk45pcvwI5pHcjz+rMR0s5VHavpnc93uV7tAFFjxlP662Guz/knjJwMvRT3G/Js0PZy0Yvlnt6TWp5mZugDXgn8ZtV0qKeboV8Z7mMUTZHi74b3huBG4+ymlN+AAv5zHtHTL5NGk794+HMbCsihaD1uJ6osLNJyK3D25QBCf1mZL8qjIQRZOYivyssv8Z1oEl+pMdC+F8V/sdwrYZE2tKokJUuGlV7T5xztWiwK5X7hfD6IO9/Dl/H1vfiOq7hrTrg6x4tLnqo/kaLvJEO3ttFfiPh7gOdi7uH/aabJtI/3zVIPh5B9AV37sff1wij2tmecCp+htUrvEKGS2UtQ48DHUNyweOHnB9uOCX+hSJsFambhbpB7uySZxLv7uCdQ4WjHnXVCxrYxPnD0HTLZj3OpoVhcbVX0S1I/ki4F0f+9KRosFzEMa4J5g6JkjavQwa3eXiwpFVb3iizYSs3z/bAuQHzlzGwXsTV5ehn+924RjoeS9xG7dFQSRLma/H/J/wP00HeS/CbDa/j4HkGbh5WluKmjcIAcwuRofo3FkQ+vhM6BRqaC1cPS1Im48+1ql/Qjzwaqans2puhLsLNhO2lRPq4p9wdpbFvI8sY8nv6xxeQbVzGF3xeDs9DuA5t6dIdXi8yLZHDurgL6TxPTi/Q4LEXx+1piMcwgwv57J2qNmFWVuNo3vtcj6vv/Gbamv665b1+7+b+Jq4uMjscctjuY3xbwfha9i0f482HqQ7jiO3wv8T9XNLDza3dXN0h+Sr9eFbPa8C76fUVuP3WaD9u8HHKyJWkvT+B1bAvV3+MLNuzeL8V4U79bUwQ1rkMZ7XNnbJwUagexd1+U22Pjxh6PFmFr5xN8lshkP1wrn0f52HPBRVkKTLZiYg3yd9K1UvBGL7uaIAsAM6fWSfYVQoX/57/ZgV0zNzK+Wg0
+uHY/j3u1loUcXm7QdzD8qtWmRVGU9OH+VtLLiZkee+O4/IVt+V4o/ih+bQ9ABDUqIu1+Q2WohpJKuqmkuKpw7+uVllLIdS7yLh9s+4LKzF43whgxjNVF1d+sMllGSI8HCMt9bt5jfgW7gRFlx72PnMB6X3fZVCbDJGz3MzsEeg0ye+yXczqqOYXFbRMpK9cbcf+xCHIg4HdBZHKS+y+Q4XbzQXnqMtbJ78Yh5NLwcpLvl3mncTH0l847d3v/C/K5h5X7g426bxU87GnwTMSrIg+6w3SI5188bxJ1aCWezx6tzEo0qvI5QkMzghsIhLUQZC/yvpYNZTMNlK07LN8rL/fO2XGe40rWx2BVwaF44wsfjU03Af4ucdkZt+NegET+OSf1jNGGHs1ndI766XsagOF9YGg8QOvCc+gUiXo4JR97kW5MM+rcmfCaq7vdG3fCfK7pRvhbIs8hkAtv/NGsDHzjVOpFd577LtKyItLT9tG64ZDu9caJe7dr+TR+X8P9s63j3WXiyQbq7TNIVxcpfJ40sefvcIn733L9MunqKNOi6tDw0grS8im0TUvgfmvS2zZNPofCZ2eeV9WwDqdTFzFU9V0LEYIPK2SF7BLk2yUkzkD70Ew2zAAS3V2mq6MtuuWW4v2NxLGaaN0PcG/PzUbwvoh0af3jrZOVMcJywuR3Loy5XsqociH9lNMx/qq3qVRs0533LhEe14Rq/vadO/Mx6Ar5KrP5WZQI9zb2x0NO6K2MC+43gW4NGRoplIsTP/vaEJf4lhWHp1E5hnoz6nHlu70SZ/UKN4yMMa16dJ4e/qq9h4jfCN6FlMk8M31w72qivg547wXi7Aq0j8LnMuJXxb/I4NWweKdRcalGog1ZeLXcrcL76ugs3bdRrAx09dBAw8HOHfEvH39fhdwSpjJQTQf5dpPylvTh2TJ6NvLtxLvGXh1Bvi2Ov3dS33rOdbSc4MbetyOhB0t9MNxII+/NfxdFOHw31EPA84/d
+nkK3baR/+LhS7GvhrW8Q1lPJuxcR9reR0d7Qykg3PephSCWNuFZ5yrvN0KnDDBsNL/g5vOru4qfh7h7uHeq1oVfGjQ0znA8M67PpRLl5tC0vJeWEHiLMH+BnzJs6w8NTJHYkzHu7y4/3vuPbUO9GGykP7uwNmZDjzHrB9NUQD93wbshVmudD/ghWskaZqa68Gyar8fKbOivkrgwu3ntEnEOJGnDbQ+9wzqEdFbatkznf74kMDSzTR/0nWYbJozEZp+at/uXD/Zj5zBNQYN4LXRcN3giysHGtjhsiYlOqm5SCb0N/jT00Rd46WZGIl0OPm/Uju5vGonDfhPvj8Tu0urHOs5tKxSScB6i0ZyDTkDKJnY1dIXMpfB5qqtzRu2R36ZhWlRov+NjrdQh85phfyiR5T1jKdQHfNtA4CG9lbtKp5nu3sikUsrrnV19Djyinp5N+/k1eo6IqaWe8JWRw09nPcf0KzzYEI8KU9Iesdknvb+MV7PuC6QFfd49uHU6Xaulj2T4X9++uG0NjAXF/Fvx+Bq+hfCjhKYtpwL2GjEuwl+suk6TzivCo9pIr/rop0tKGe5dB6iM/BAvDf0NkOxu5qrJYl69O8B7KM+7vhtxzbGMXXxDmuJWbjT88XYo+rJwYrulGuPZEunx/fetkeBsCcfiKPT26r8tdpzJfFR4D9Z7i113+3SfvXOI8tOdZnXchvyk/4djj54roYfO8vOe7CxvcD+sC+Fa9aPozzsY1yuD64WVMII7/Bw9XoDXKKRke+We5+TVhPie8DgTjQxl6JXE4FB5VGYLfsDAiL92U82zf1b/XKdw5CmA5npSeChtlZF0YOd2Hy5/TAwnzep6dhzX0I6ws3Xlcvpm/5hHvqiEy4mMPlxuQH0y6b8sPzeu5Pisa/ydOw5+Y94hJr6073lt5UGROVj6eAjalDkR16BG5WocelT0qzn7+kYS3NjyFSvR8+HydynWTFU+SRzffOhV33NvrtSvKqdrl
+28rI89vh9TdkqM4QDIUzghxKwd05fB/4PEH8LISM68PncmQf6m1RJtMEvv6973o3cqEchjXWfPMvsNppuy5PnVQ+8LMHYtShR9OYMO1yr7ZwUA7JPCAM//Ld++21vHsb95f1CrcMPcLrVcG+b5D2S+GvceJ9IdNGGXFnr9cPeDeuXi/TlnBXILwT4DtsLozXyA8VuD2Jzv9onPeD2zfw/bxeDWkYFn+FlglvPeGfOI2EfJ3DOMd06ZU2yhry38Ozy+o3Jm7PtPENluOCPXDUNZfQDzNSi1zcO4S3mz0V3WW2AL87mw5tcYh671DS53Del5GKW89EXQXZDiP+Q+kkv25S5pDdMP4Jvcc6H6wq8HfvnkcfQsbzoEoH1MuF5Dvicifvxjz/E79vRI5zeg3JGqa9Y1z/iAxj2r/PcoT/jyKvPezDfm7kH+nhz+5J0KaQc0sb88j0My3gZS/1hJ1EIuBfnZsI31eSly4MOJ3rHbxzU9GqJ1NShrps3hsn4xHlR/ksB+pQD5V3j6ptIDdzrs5BTIMrMWbYNUoB+4yVxgJJgRpBMfTo5m7vCW9TAipmZKq6wNtktxIh+z9x07MRd7gA926/cR5GwbChkDaysupO9/A/kwq+ZulqpoHxiB/Ho++Wj+5038QnZHdT2G9UwvQJ4w/vpfDn6qrZGkqGpQIpPKFhw4112Jgi39G4r1bzKEs3yZOrqx57zuNRCeFmNcjVZkOrLUvcyQe76X+psc/VOWe/69VYhNHnTswDL/ZwfgH+di3h1/kWivjaUPyFNFiP67gmQZu+5MP74XuJhpN5UMLyXiKce/m+Lz8NrzDtw+sI4M762LogIgwz9xn6RHhphfmCuyWRzTPbbjXevcqiYUYj6sq9ylCcSMMLPkND06TJkJFa5ILsiTyLn5h34rZ1/p3ywGcv53fV5S8kv/ih/F0/B3/XhmV3g689WT2HG81Pv+P2ZtLqqxqKwaqChhhurQ9H4abST038fDbN
+cXMkeTSmrWlIqzfCx3NUew49Wt9wdyayjvVcXefZ/AhZq5Mr6mGZHqFrq58ZaBni8wueWxdKWMdx50aefe/s3wumOWHa+/w2eH4PupD7uwir6nFUvm65JZ+Vv+hP/Dks7BQJV/UeD8/t+b4StIjtxKC98YlEKyhkK1PIek68p2I/QiXfs58JcXMTyLYq8l/b1otipeJ6L4q1df8hFTkV10nD+8OrUixSnU8TyVt3+LFR26X0evHt2XzbnOs0rn2tCIq0vwger6iE6gPwXgjFYK/XhaRDdY6jeWV4fHNSuQbzx50TFl5GAP9Onr1xlPRzj6yeQyMYBP+BG4ccr1aJ6c84R1qWbR7cgqIycpBtZ9xVc+p4N4KMBzI5t2L/JsOxFzS+4OvE+zt68efqaplDSr6NBxoopOU3CPOWosQNp6QBcpRer42477l4hXx0Mvqhbh5a5K2TcSK9q02EnTsR3hoRvcMOfbtz9ajDjfKG5H0D776kQTJRhpeApz0GHkM0VE4MO8K1LmmgfrvbmGkC7jQ6zm8bpg1jw13dR93s2PzD7UeJ93mkz1Bd6uYp+d7vyFrtM8S71etlNPTJUnzTCKnKoOnOcyu/CGsH3A60sImw/AFzZXZ1YkmbzJIyc72L8j7wgg3LGf7ejv+ziMuwIUevxhH+1tfLICdPuxfYJrhrXUgiD64a+Q49jtmg0eiK+rcmsnwffv+Cr8P71Up14+21nv7el3xUDvyoo+7n2bmGZ8PLFevuK7UoefuM0epZIjEmaFBR4L5HY1ftcl0KaJ2c6EuB9XiAl4W3KQEqrRNOG7cXkKxkVjCubnrauAP2CRgOuN0YPpfg9pFwP4JXnfxueKSZk2097+1t/hH5B01lfituTuLbfbppkqubwo3Kay8VaojWC0+hYXwJfn4CzVaBlLBCmah8difOS/cymENpHYe/xt4v05VGstpwtW31GO4WRJbXcz2SsKu9f/Qnxb3zzg4mrBWKLLi1l7Hn
+kGcYpG5l0PfQo40gfN9geNA9vdLefObq0NqG4X1MMM/h5SrC3xPm0GpTwyjlkvSzF3Jf0unlNs7htRXknwsiGheTyDuG3I4j/VpX8hLOv+HmjfDyjNFRy6J8DQ/3yqpR+spBDd9esFzDd1nCcZuLew3L9DHckE0D9WLC3dAGNby1wnQnXb+DIVptC1CPi2TZ4v2duNm8V5rzzd5Bd/M+gLJ+T8mzbn6S4VimuZYfim2664XGvwYO/GbC68ESzzqfborvd8F3oLNgkd2zej0e6mJ7RHuFo9xc7aXfblBjgjhoxDup/KbucmSYGtLw1Rg9CKrmM5LurlC9rqkMSyUtcff3foztbqhv/ekj/GJ0VT1d0IPKZ7heDacepvIabsTBnjm3QHA+6u/hsZXlnvtqWDGCSiQmDxS090GtPUhWLgrp3TQenwkvUwZWGKjat6lbbitbKMvGzWKjQXgZ3w/gWjV2dcXSRqUCE64V9yfRQ/CUW1EifNsdHtWO2PJThm7/TaTyhJ+7Y78vxGuF3d+4/QDkcvzqT70oHPzb63U6SuS95Nuoy8qR81O4vyP8DiNlN+9xczS0VHgZgkocN2/A7aHwuM04R3pX8njPNyfgbqWhF94sb0vg5giNiBJWN0WZu5N49LXhashiD+aPUOj23FRDR3We3WSckc39pMa8mpd4umv+xtBl8BuaC2MaGD7Pbj56KfQRG4vw1hP4eyk8TozVjcNIvvZywPccZH9zeBkBeCyG++9ADlEO5UudV53Mu6j/NkSbakQEqwmB+UNe/i+8ncw+1CNsuKYZcdEQ3ovrMmX4fjRQ75zLdn4Y6sNI/vCuFif0MiJxszDu3QLiOtz2/PlS1igz1vv9oGqTzGBVxZG4eBTN0VDf+qSkA3wPp5z0NfwYBs7z8eMpHNVpJfLo5l3IMChP/uDt2Y9eKNDIwY/7Kh6Dvzn1cuTV+BlPnq+BtjE99adBhb+jeqWnMuPmZmigoUf8+sPnz6fT
+Ts6E7iCMarpISfPuMH32e5Q1OxrcK+pyaA/u13LOqoZ0PT8TiUkHlcBVOYe2TbyXYhjkYArnmPeJmQwg06uhar+gpkpuheNqBR+xrBkF9lS+ueLzQtKgr14vKRSOf78XQRuaJlZa7v+PcC4lzAdVLPKSeinFOkUj8s9pKPUQcQRUhoS9DO5cNXeX8StKJeLqvItv0tCNmGTfBPzYSP+jLe6+53oN/N4YXirYi6WcfLOL/hri+KhujauySLx3yPIIrqvUlZqNKzJ+kTxrPddPPs5jwd3+PPf8CzUfVZ64/RbkXI2+5u1JyowfJ3kPfOiwjTp+ncNkY1uduFDiU0sDtxfYB7JHoC+jQnc0rN/AWGtMnzCSrsPNh5vymHf2iLwX2VzIUfXGjZYWfjfNkPM83L9eHsFuQgB/jZxdkemWkk6Wt7hWdUnjzGGe8DIqovfLc2pH9Nr7bB3kfl/CaFzMon++O4H6CNyO2JutTkVWvldDyIT7yXqvl/lAvnjgtGWwOgFAfvpr4tdN8safvczrN+VpNwwbfx/Cz+mENcwoaqMYmjyJdO57eoNtA36/RDg3lDgVfj6HznH18jHEYaVi6D7a6fw//HyR763zF8Ov+499q5+5VKTL05DHVdVOtziYqyvFq8UR9TJVD8PnImfcO9Tp4dGeQbgWzy/o96cokZgUUBA/S+GtVqrVC2+hqLjOW5n0vVkGgUMUyHSYFU/qltuKx/tHUTifb/qrwe8muLvanqcm/91kBY6wnLD9G2hZZeC6OnQiCrgaBizpaPgS4ai0bWRG8KxT9Ha4ymzERGGVskYVMrgJrLukP1yUjuHBv1KCvF+Fd43zR+QBLVBX8Lh3onFj3keaqLCGHbTN+0V49wVoBv6GDqmO9FYZOhw0Db+b6ja8DYF4uBr0cstVPbw6xfCa+1r1nPDPd7cI8MgO5zbdb6MbcvdFusWv+flTaNThBtLOM9cqwwtyNeisiPOQsvcZcljaVV/vahu2
+bQM87Y1u3ErFtIanWzJ8valM2+uAu2ryuG6b8rWbSnpx9bzHvjcm7geWNdJkRfiegizOrRmqF4bLe3uSfoncLzNtw1tfIA3WxX9jOYqeVVeGNg5d880Vjs7PtNer+nnQXxMpaxhzGuo/h5R1aEjfBpxw3CPw/FIG9aNfy4TX0SjS4jrS4cXBthGEay/vu4j7qYThWXdDxkUT30Ia7bi/ijD62toGPwvCc33ce8rAMOPUsAw3fgTs9dpWQy28VuCdiw7ubEtXeYTcZ8C357FQxHkBe7uQ5cuQK0xdJfqI6dwW9yKjxLNzPM27P/H+o8j0wjS6ElMCFODlKZinNQ11SFHBNR6+3s9fytyCip3K5KGk1ZE2dZklK2C83/+Shi0n+O6w2YUq6qJYelFUaNPB3p5t+NNbBONrORTCfnyrht5UCLoLt5WC4rtbJ9iLU82bqPPsplBo1+J+AxW8cTTNHd6E52f55r5BVSNm3CTD5d3V+PkC71v38kFWz2ZzbyBXI71f/vh5s+FFuMMo0s65Ip9VDnkgv+fKObH2VHjcW1eAyhHp6B5R3+d+KfyNKC80HC7F39feVv0ZVjeFsvf4idYNVwn76fh3c0/nrlW9TyFzRZEuw/i2kflCWIZXbQdhz4hxDjIfFtDQhp/5/UXoFNy5zUhlBJe4ywc3Gl5Xct3OfAtx+wZxsEfyyJhvOUxOwzCveO88pWENnsYY799P2OfAoyoj3f6bqKQT6fhHexGD3YTAFYeE4fYDM+tlxXQiXHs3Pf1hg0ENVEE6PBf/hzWlU6SRdeID4XwYYmhsDxrhqtyYBnX/dfJb5OslpNH/1XvoYmhuZehY3A31RuuvxJP7UX+8dBsy/MPtYYL9MFAGzd+3mU+EVxnXg+Qx6a8c2ysz12fjdxnLkD1Wlu8gh0/9ufJItD/xvVo4YDjyKXGKfPSn5WjScuXS61VgOeL7QZEPI+SR4ps6sXXo0TqH7G9CHoelNZQrQ7BXnvm+
+lDNIGS/n6ua51cpF4jiQkZ9ITCoo2LugiKrDdrsLsxTDkidQGafUifQ3Pb6305VtlVxFwXd7ihp3BqdC/pKKOuocoUKE4zDH3+y9we/y8HaH9GsIu/oTK+lXFAD3TuTdB7eeifdh3NhDNYxnN/kdue0tuxJyLyrnpewFOdG3MjSlogR5dz9+DoCWU1lF1IZBpYo7VwK6qstl2CqlE+BhD84pTcos+Kuwf1xWThKPVXmu5nkVOZQ3ZDatnWvzB9LnjfVGqhvw+SThVfs91cMsJD+HHnH3W56H9UgRF+fYVWcpKjt8btWPvPTnvXFRnsKvHypxIEznkRzLOycab00Y20EeBH0oz9PhPYtrNUHbPNdP8es73N2iX94t2ZYfowEZvk59rIZQ4TWMYojaXrU3hHPT5Kk2grz/PTLdrixNfptI2Y0H9/YqDLSDfi9EI78h5Gat1dxM00dSPtLJXq9fQGM+jJp0cqXtfSH/EBkG8bLsfsOyH84raCjwfh3CP5E0qqYJ1P12k7y4Wl9+R3hLW/6ClXOvlobPPrjxMOa2Mmivy6m4q87U9FsbRbpcWe8BM200TuHrXlvH4e4m+Sj3aPzqFL3Jh2h4ypd3psHZGK/2XrkLvwsi3JDU0ygcnru9hGOcJOWTuLd324nun3BlbSVoDZH3m+G32u6B+xEUusM9uDwYedjiINMYNwuiRz5EGv+Fe390HlLPF51T+BTynWGFfN47B/Yk7tUTiyPLlJo2k0hUoJC/gwI6o20oyEJPYXZOzbhWiE00qKQqUudAFUU3jEKZuYrrf8PLMFCxNaAuimGKUSkq/jT8/ArybKmreK4UeAm/pgBU/mfP4C+ScKoVlzxv27ZHUTfV4uTQn5OSHzKc0ojFN8NwPzOPt2nd14hvi+Lm11zvLDwibWxUPAx2xF5Bhk983ST1x5SP5/H9xbz7Hs9X43donpduvZo28LmGuG7J954bx+JnBei0XumO8aEMMwn7neGtmm/G
++yX5viNkr0n1Z26c6rJIysizxzvZoPzN+Ei6GY1KI0p8PNTavX9M/+p8TutCvRGQlMEwdc+ziziqw3RD7IFBGr4fHtc21cdIdxckVCc42Djz7Ca2Hp5+g/JEfR3ht410z/UW/I66h1g/UCbkc98ljYXblbmUl5JWvHerlA+QTq1boowG5HXi/blNE+/jh9F5h0MbBZsn+FEuz37VSK7ysfhpIuXlalk6pGZoPIX3r4DXLvDyqJmH62nuNeqD/k7DnYeRb8NzNU9JN22EW8ne06NJw49z7877Lia5BJ5uGjqsvOu+7r+N9IPbq7kfOoMWnq7W/cu9fAt5qykS5pVpah0s+VWu8HAYT53zadJzMfK6cVU1srt6cJrhGn43Kbc8kcFzEYfyyDIdw4z2MDuUW9Vx07ct7QqvSBN7VG+Afg29BRmfa3kM9onE1AIF167mQ2kMG7ce8J0NJW76mhszt2BFRSaXd1dd/t1yF6WB/N9HmTT2xPDNOUN3tCmJbjItUBj+sTlMVTXGRSn4zTCD141899T8xcsqrnP4++L5B9Ew9EXylL/xi7jUw3BD0q/z7aW9tpYgnQz3MPw+HEp4iL+86g1HoRIOVxv1V3Hv6siLCKsa0qrH2Xu++Td8GMpule5hiCbgfqdeva2SDQDuziG914W3w8QOYR2FDDYi9xiXenzkpSzB8wree6SRsrvB6zdq3/oi3Zruxtdrt3/D9dn33Kv0/8x7D+oe+NSCOqJRPMH4l7jVyfJDWEdCy/D9XdBh3LtitjICipz9xlV3xhEexzphOsQYE6JOOhTnD0o1J67kUUkrwtRI/Rnvh53hOChsWOF1KOk0YuJ9GHvVULJuCcdVlw5TH0+4N+pG46KfNFJ28x9eJ2EYaPA5PO0h6f6QVj1vEa/Krffx7ApSfxQWjZ3i9+C+dSJ6neRDOJYp4+AGsA+Yt4ZV9++9bstzG+lGv8T/66ZFlYCAexcffBw+N5se3Hvwv72/Go7D
+/PPezXD/gtuNSN8XNs07LLiz01kY9z8wzDb5zCO+3eGPhH4sCzy/BnJE4WrCuVv/vXj43rSONKl+RqGvk08v5zrqRruJxDwHFeXTFNaqQeM6gqIhuICKMmz127yGB1oj+/lRkYfJ7HMozTO5th6vgVsb9WqjzLr/XmRll3dU+mHvuLcxOIC0WlGDK4KpgCyL8/33vSac96ISp7g/FWW6Jkqz5wRSlNoCyOIml9WE4Dq/XmRYyHsvYZzAs+cDVpNopeLGOMdz1esF/2FzkdqA++pQactV4dVE8sedxu71QU64rRaClHSQfFeUMPduNOty9GXq6c/zen6Xir+xkuHJp6b4L+Kdw6k9JxD3A9LQkxd+QmPbOPQo+T7i+Q+uDssM9Q4oT/iz587h62pOYvHbRJYL+NgLOvBmnAWUM088cLWlPV4aJpWxb9iml7JJ3HsyhL17424cCevL8H+gqVz7w0g4yuLGmZ4vehrpUg3b9Wt41ck4cHWV3izI8/4elU89j+QZ9cEe618T/vLEuVoE43A5706UT/AalQo/42fadX8rxPO/4H1rt5s6hc45mbBHHGukjMj6Ww8wJ7yHuD8QvuvB03bBkyOcx7kp1zeSrv+t0RZeWwGPNfDbOCe3UBh8jiDYI+lcM4/z8UfiAb8Z97a08n0t/j6fAG3isO1oOjGRmDJQSVCA/9o2FBSV4B4qyFaO6Ye3eY6Yw+HxF480KR7f8c3jQNYIL40gfm4YOn08RpFhqQi4P4swN2iaDyEwhJ6Hn33bFjm0kWHI30aWZzcW/LKKMNi2wj9K3LvX0k3mY+HXL5m2XKser2ikq/d1ebg/kTK0KmG1/g13A74/pEFqPYqkTiUcSTl8Lt/0b9r7Hp7V8Ti8W9IGJYIaAv6cJ3iR7vsJt4n0Z/glv3l3ITw/S9l5sQZIBDUuyA++1fFR9bCbyHibLsoi2djh314AV8WtxdVdyqeNlveWffxdjrvXhxh9gzRxr7Ud8O8w
+0s2mjY1nSeeSXny312tn3IzrXM0Cypw7+d/Vlk6Gy3d7j5zbVM09K2lV5Or2MxrpRx6GWffvfaSxw/Wurlu/uxcUN/YIaQCNufxJRfYwbDz0+cNc7WWrtvQo7uoUeVFtMNxmPPHtc/o375BTw3093C7AT9Iz0Fcest637ieN7Jnc23LVK67xzfMyr4Kq4WDD72W0GfdCPLu59CGUBU/uWHQqtU+JRF/AKPg2hb7aKbgU8jo5X4kCfjiVc0wn5E8WkG0d6NYmpWNcrKAoke16VUr/lHD/GxTGqPMyuqkowqKweP48z6MuG8fvroPMATMM40gYDvEd4RAIDcCoE0kJyyX/H8TfdTYaoewGJsOv+/U+5HF/ox2QZ6DVffjV4L1gUCO0m5TDhhA53G37Z84ZaWtchGlPOd7GfB4krw3HNJBq5cpenC0Ns5/h1n5BWFvAu7UhrZNyFVImexPx67DrFs7LkR/v16Axm+P3Jh6FIjwniW9fCdID1id0hic72Mt4omFyXw0VdRs4phfp5PzL35JWq1nfgs24AP93Ee6MXj2ofK/CVybjV0+rUn6h6wYpC90kP/0bd+7dYNizOht7QXk/LgOsyF4ML8j9uNwD0C00jiQtWn9orGvkg4sEqk1RmwAvh1UrQ/XOx/19PT4NDMJaE3739pO2yqwO7TZqu934TX5e4e38rr25f5PD0BFsIvHEAoXbFTCtikzlRYV3d+B3h5cpgehJOlVl1F1pS0VF5oN0F15GIDYAdaPExiGMNirKwLTBr8M7PyGcFfnW19w43L0HP7fVG4UmMgzjF3E5H6X2EaivXbGNG/41vq4fj/FVJ3koi/x4dlLxW53XEkH2DeLwNRRuz7lfvaguB/cX8O59F/ZoWOog7BeRJu5BVaWvvNrI74UiD9wp26NJ3k3e9Zz/MhZQht5JXC6zLhp+Pc5NVGSMcuhxTx5B5Z5UQ3LhZsu2syO7yTThWhkRyOLO+y6SeDU8nHu3GVfr
+iotOPFPPIcZqeMnGs9vAifSqDhjn+hYPWg+Rxg3CdUVqZTgZFs+jUpEr0sqtUfbg6pzG06M8D0SFn3HneTbPuyBPz2OacOc2HEfqb1C5pcgfN1beg3K8fKl7uHGC/q0hywgKw2Y6/t5SCdIC3O7Ij2FlxN3zuJ9d49NAcFoIvPYa64hCnUr8zesoU648/hp5thzP45pnmUjMU1iAKcy/Q+H3nHhPZf8Rz1Np4r1Lm7enMo6YI6PMvkPmK1WI4aURuPesx5v6VcBFGcgffyqqPxLOmnwbaC4LCvHpMzqdbfE3NHm3m4pBSBhn0hhu5rwGe7SCxaiAx+vwf/VoQwD9UklX7u9VMdvzE0ENBPwvQdod169RUKeS/qHY7X37GvEcWA7S8lXwqrbcME71dK+T35HV3pvjubqP12toYIdWak0kCMOhwn9GYzki7nUq6aCMll3uHfrzBIdh5fCyTrUx8Tf7XfAhTwk/d/Ds4cn2bLkNgRt2OufpPr+rE+pGl36LTCXNeHa17WrEZ8IMLwFP5zLeZhkwPMNuI2UqckWZuZ408yDsalUc16+g+2aPxqebdG8+4d/Vw4dwfTN8Rt2x30UyuPfg+Wolc0m7bqrLbfmUeJ4Oebbhyrwf+tkgPu7FdzLxa9Xh5hVuPl83zLsR0zn2uiv8zX7c77fi80AgrLXhcfeg6Von5da/5clyzvPZvN+UfFuO+OT8rsQTHzbsVJZ72gwQu62p/M4leXl4mRJAtlcjd3Wga7fSsbLy7V7i1nOrDJSRvV9/tjHp5tFNRRmoCENxutnnOrwb84Rr+DjReh14uZP2adCFkKt3LkKuM7h+F+PO1W1LDjqvAUPhhfA423wdLW6jkf5NU5U49x68/l6U4Ji3DMD/h6Cb+zV6CymHac+9+6cdTPzeMh5FTN4tBS+3BHAIzXlcFfHuAq7HQj8kHOfWrEC+L0YeTNoPCGG4IOF0jQTTmudGMg1Ko4R733m00Gd4v2SwGgYX
+IOBm10GGeg1D/spSyLw37S3/hl93K/le4p3bfezD/eqTMSxEnKvhdGUy3CJHNxW5TEt7E/FzAzJ9lW+vpk5VW8FwXVVexq3bfxvJM9JeY+cErhsMapBbd/D3LXmF8TyClNtwCNOju07lui3vXlFkrwP3G/H+trZ4+B43Z+o/vDQCHh6SfXZJ2zDavxqf+4ZzxeDz7X57cbtJP6ZB1HXT+hjoU/7w5fyuxHwDDBT3Z/lb28T7ULYaMtXy4KkCZHO+g+e5VRW1LrPvrMAoE3fp79lg4tY9Zi7r1TgVZVBrYE6HNua+ml8zEUAOeyGXIJ1fqkzIvjThunHnmIwcGoRnEK/vKa/pUeIyKJW4R4MztKFoBDNmwGdXe7/kXw+vjXSnDNEgnc7z+qRRX8Owo8G/fo1V076QeWD+EtZcWb7Oj4C9IvtSD4cO7e6mel54hdxU8v1cl+o1DAo/DwUfyADrh+ryhMz+OHwNejUN54T2eBXAewnopF4/TEUuy74NOOX2fO635v1r6sa6MuJ+rzbd103ylWeUQfe++pjlJtgNDOs2ZdhVoEdBV8m3GLk829N4MvHYFVqL+8UpI43DmhrYusVoauz9Mi1479FrG482XI77HTAIq81SjStXF119Kj73DeK2HHE7I9Kqb1J+y5L+CNeh68O5rge/xXptr5NIPCFBof8OFa51mbuTMKlIB0Ij/rrmFRyCQ7b3UTFH7Pml4rACI++frbThpRW4fwF8LvZPz8pfp8IrlLibEv4B2gC+S4X3KQsUmL2D1dEk9fTpl0r8QxH67hCe3zSWuV7diKNofudS93qY3VTyQRlCkXsGpPsU9Vzg8EQEaewJBDOahgnr6WCe8E7Dy4OH+1pFaC8vbrcfLb37oSKL5SrqxRzeH83VMw+X0fCPYCcFhOWUg8ZtVJTL9Am5fP47tAW6YGmN7GAxBNxo2DSerVkn+dbKoNuMuF/gMuqhYDUukJaLYRy9At6rEMbrMepcnOK8
+uyU00sJZK5DFtG/t/bI3i+9Hj2Ysqi9xd1SZFiA/0u4S7lcPJ30DP+vcRD6ZdkWONtKNpK61NxAZ3Oz4Z9BbeFft0p9IzHeggK8NzbSbuKliWAFRDpei1Hpu3zC3wR+rZ4qdp0KsV/CifFEaV1Fx3xzOeyIapx3xe69/wkXRqghUCKYPYThRd+1yZMdUB3K70eNOyi+V9OmHTE/T0TQgzr47EnqPaR7sxw0aBCfnDin6Ohl+kcG8VA7e/x1ZPmbPVLCY70CZ9RSG8zWSjHtJB/PPdPCedHCbj74NrzpofFeD1+XW6eDVFxU5iizWC40vns/j+9fgu/p4eoEGBeEeaE9ePY2KbGGA2Oj/kev7eOdq2NZeE9Lb/a2qTUfrvAqVMijB71+824LrslNpCAzZ7P36M3Fo7P0yXXjvKk+3kui5Zxdla0vcDu3XFSu0DyUd+lrYUqBhalqN1sPtN6noW2T0CLcvU89f27Z9TyIxX4CK6YZ7B2N8tU7atFJQGXbhz2hcO2JPJKjcCyCbf6BD5zXWKzH37r+1tkogvIwKeNgj81747cnVybTu3O0+ReuQTq98oikD8ux55O1fTB8bEdOoF5l+ksraNOSd+0dVjRh8JvysT/LGLTgOvjvCrYdvPsZQmVshHEz4H4aWDq/zLRwaIr4fIv4nU/YetifMhp97D3m35/XT08Yx9AvvBanH68PrCn80LBcl3fk2rBwU0o1lSAMljJDLyCPPIn0ftCzv5/okaMLdFrnusYxYVkp5IX08ZNuJ9Wvzri+DkHr937j/HnG9x5/Qws+4xrCk9UCj95Ok3XKU2yk3BIb89n7dHsbnCIq02Ys49BzBIA3cw+3UiHeV/6FPdwonfcPeRsL7qrzkU5en8LZs2TMX5fBPyPhp6FUOpwabRGL+BYXdg1xvtRJ0VxDJBoDvJ1JBptRwDzK5381VNgzFYAjlcy6Vfnv+xse8UMAl8vZyacD4Zxmvn3AgLRZEqX2B62zT
+xnRS6XWT70sDawNE2t7Ee7v+301aTuoh68j2dtL4Av+SbSSiHHpk0zHI5J5iqz9RehwnCjZcNPRLkfarkierkx6rQStoUND4j7rj+GhwDg3p+gbqtNtU3FaMGMuApOEhWRasV+SFO+sfj/uv8f3tkBs1z9MjXZD3Oci1HrL8lKtbgezPu81Np7HIRno/l/Rek7rwZfzvB78DoR9CH+P9m1x1HE6nHJDZlY+nUFZae7+gW9Fn7wgvrYDPV8jz+/WjX8sBV48AWjec9A3LKvw2ciVlGFgVeW95i7rulh37cnUrnoFWdicST2hY4FEup7QZX6GUnQT60fAyJYCi+Q9k+oF/VvFn53E0B0Ef9Q8VmjI9dfMaGNCusnoz+flT0ucG81oqxpbENw2ev1IWduf6MRqblW3ggsWkwmEcjWXCexvySW9FDrfMWGIyVxomKkNvEdL7DdBnyHeNGOf5nAu5qvRX6IetuH6Axvh1uFlyKv6MINsi6KjF0AUOjY+78YbfQtSJReVHOsxTI7NfkDfuB3iHdRqZR5A/0dbt0ebl4VZjf1rohIpivuD+6NQxLQLC7xLU7ePko95RXyOvPF1NvyPfXo9sE7KIJpF4QgHl+m2UanWsTKlwddLA4a9p1G7ruY2/owyQ76vIvzeVeQvojSjOnKTZAw6fkk42ts5f+RJ56iRmDy13/p8HJTtxOjcyfBLCTXqdv0UZeBX1/RU0tovZKOZqs6kPDUby7ZRZLb1fGKf2fl1GvvY8sxdjaGHc7K/xVfjgz59wF1dsHs4Ghj1alKelkM8h0q/Ac0v4rU758nD5/MFKPDmh0UKFmK6RZWXrJv+mqJTTuF8tvEwZ2DDYQFCp88iJMcAhLhTjhO7ankgk5j7Q4U4h6dn7xfedHx1lVAC3W6NPh5036rQA9OxJGlDhbFyAZxpciYQVgUp54I0tx7/4DvKcwe10G94SiUQiMYWAHv9zr94vaMY1nc5K4bwRfH8zhta0mM5R
++bX3C7/38/zZcJZIJCYCVFbnDNxud3OpcHWKP5/jHYoIL4lEIpGYQuAneQ30901tc3jV43zfGWOqdc8+3C2Brj8CI6768a775f3JU3nxQSLxhAPG15JUrFOttG1/Tdc9frL8B8JLIpFIJKYQnFuFjj4Mfd04ihF6fCa6/nXhZQTkwffv8iM+pz4POHq/HqB9yN6vRGIiQQXb9fquClcnu6GplD+8tNP5z/CSSCQSiSkEjKM3YIC1nl3p3C+uX+3V+4X/T8/qGgnx6opF2oDjcgQkkZhAUMFWoGJdOsrE+wuptK1/TYlEIpF4HNGLtDS0BkaRh+W/s0bl+Y3o14EO6R4NhPdL9PSD9lZ16/HowbocN616nG/rQrNsC4rxJTkJH7qedxuE00QiMRGgUv0aI6s6YLVeYSWUhBX3kZmdztb8+eQ+WonEGEFdej91bR8awf25TjpdB1GHf0y9XjFEqOAmtnd1ua3TrMeve+ouvAxBHWA8gvcIv/2Q/qDfQDvyvB30QfTLijwPtLAH+T6In30nKz3Ricq5G7K9MoJshZs0Y7hoWH0e2gPykOjToUuhmfCZUag8c72Q68nQwdAOhPOKYDcm6B+eM9p6v8KocsuHxt4vDTO+n13fckLy3qkp8N+d/B/Tvl+JRKIBKjEq3W3dfzySzzFh83AqZ26Kl0iMA9Spva1n90AeYj/Z9CBE3XW+z5tChOpsQOT48WNdbuukP9zcokER3obA+0XheZhxcCfzJv/9UGzk+QB0D3QNdA70R4zFb9DgvyGC6wncnzAHPrNrfCeSHoWI67kYLC+JIEcAo+S9yPFzZD6eq0bVvRorxs9pG95rEDWRho761TMV8e8ZlWfi38nxY9p3D7/fgx50nheyDCN/rnl/G/I27vtFXi8PHYebR+0pK/7gVzZsPRPja7lwnkgkxgsq1fOh1on3zgeDruZ+nfCSSCTGCBqzE20cm3qaJ4M0IgjT3u2hMxkvffyorhOt893u
+C2kUcP1LU28H71+Gzrh8IuJgWqhjXGmnYRqGiOlzAd9/xLV1nyn8vRA3/9LIqfOcSNKIIv32jCCHAdlW5NteXK9UdtNMo8o41XWp6VTiWTdsukk3Gjq4f4T03Ye0H2gvQ9wvhjwXmZZN/JUNvr+E/4iDszHKPBv2QIzzR5Wz7i+GHm/g/n/DeSKRmAhQqXZAWdxrJatXukLx57NrXYEnEomxgQbySntsrFdNZCNuI427xvpYyO/W2SYehTRmNMBwv0MEXwG/a1Onr+9uaAtpPNiI42bf8DIMvF8DY+Hhph82Sdk0Oppk0lCRt9+b/ErGv7iD12FtvUGE/2G+39imuyTDKb1MTfL0Inv3CPshwtkighwCabAq387WqGn6eS1pYNjxPIvrddCd8u4Vf+NjGnC/uwewR5CjgjA2gYZtmFrI8OB5L9c1w/kQNL6gPUjv+yLNh/mTH+92wdDNxVeJxESBCvZqFMnFbX/CvqcCnkvle1V4SSQS4wD1akcauZ9y3b2Bfkx93I3r1b2MCikaRYfs9PejuHbTTy/rdL7F9dURfAWeN6VuN27QKWmYIcds7rcJL0N4rNP5d99reLT5tyeH62zkM55Fth/z7AHfznX6B/SgcWjjIclHQwRZ1nVCe4gwBPjtgX56KIyVEaTxgJs7uP8d9F2oO316EuF7mPdO0zudl0WQFUjTpXh/ogauYeB2BEUa3Iu7gyCP2vFYr7Wg9fBjOjyicaaObaIwnO/B/eIRbE94Aghu/0zeuUn2MFmkKC9HEeawCf+Uxefyfk++P2Cecj/Mn8Yi6X8EBrHnaSYSiQnCU6hg+1LpHmhSYCoWKvN9VOZPeChy+EkkEuMAdW0ht3GxR7mJ+L4IDd6ZNnzddbJO8f1z+qHxfHo3H8lwPFoqgq5wDm5pZH8YDXwjaRjgxh+zVcLbEBzmQie4x1Sr8WQvCtcLicez6rLB9xnE73/QLSvO7HQ2043u2/iogwwHPptjgD01RKhg
+bwxu/qqso8jxV8JaUcOxnjb90N8eD2PBuvFnehLedvB+pM34Up4wLo81DcLrENCrz8Hdj/l+KtdTSetTuol4/4XrMTM6nZeHt56AzyrQLRpvylCnIg/8NiAuQ2d4khev4PtvCOtB4jvM+PI+DMx/cJ8/4InERAJF6lLjW+3qr1e8euXjeqgre8JLIpGYZFAvV6AOXqxhUa+TddIoofG8AcPibeGtb1Cnnf91fC/+MTn+Txpr4W0INsbQzW3GB3J5fRg3+4WXVuBuc3TQfcanzqOQvAwHXhoOw3rA+L4K72f2ikcYqbuSphO2chsD7BkYNHuqH7vDK6TBYy8i8p0HrRVehwGDyBWTTnpfnni+spvw9yqNL/JghAHXBML9BWk14mdaWXxHOJcj0zLh3Hx8M3SihpmGKvdDfrzXkOP9TPyPWISRSCTGgfh7PD7+0oZVWEmFyLdrUQBrh5dEIjEXQCO6KY3lbdbN7npZKHorjsUAe2l46xv4Xwf+12kgdPOVNHjs3YF/28Tz9dr0hhSGx93I9vnw0grcfw5Z5vQywMKAGHFeIe+3w+/stnjoDzkfQo63h5cJAYbgAvD/6t3c1o2WbjIdlR83V3B1heS3ud8ImVdCrhGG7XgA/0UIc7rlolsO0yHS6DsasY5m8O4T0D81vEz7ejy8j/d3Ybhu3t2DmkgkxgmUw1bQPVa0UvHq5HsU1zf92wsviURiLoB6uReN38M24E11U4rel2/Q8LbuZN4GDIDNb2yZJyRpXOHmVr5vEl6GYHg00DurH9r8+w03szQ0wtsIOLzH94/gfoZ8mnj5LgyHvxPu/4TXIfD+qF5y+J4wHub+UMh5da0EH6/bI/dQD1Ev4G5t/Fzfz+pLZXSLjFhVegt+zyJ/D0C+XbjfCD274iAT7RvwFHh9lLje1WS0l3QkrE/z/A7o55St2+w5bCpjukU+583tCM++et8SiUSfoMK7Ud8lTXMFJN9T8f4GLR1eEonEXICG
+CXXztF4Nuw0qDa1DfB8Mb30D/wtSr3802vwvrv/E3Yid0glzcehIe026/RWKxv4WGvdteN4Y+riE3tmY967S+xZxOIDrLN0an+K3TsFnDvcf6u6FcR4a3y7pxwByGNLVjL0o9kq7njivEUH0BGn0DGT4BDLOkH+v9ChUDCHT1yHemOJxG9+cY7UP160J/01jGS7F/zEYqa1z0uK9G8JeUVaXdruR4FG+5ar3RGKi8Vin81Qq+S9RGI0b9YVyn4Obj3TPuUgkEpMLjR7q4bRe85psxHF3CY3pyuGtb9AQvxx/f277+ZJi/tcJTQ0wYbtq+qa2hr5GGoi3QXdyXxH39qrcrfGn8dHUWyNpBGhYoYsehL7sdIkIfgjIUG0/0WZIDEoaJVyPx0jse0hXXeoUDfy5m/+Dxss4tRmU3VQMMsMOY+xRdPL5XH8K39ZNX7uhzPC7pmn4sU4xp6tVPtPdNoG0/Q1uc8PtRGKiQeVagwp+bVtljaGN/VAkOfE+kZjLoO5tSv28tc04kcJYaNxMczTQ+L6fBvuOth4bDSt0g8OTe4SXYUC2d/dqxAsV46Kb2sL1vQZC6U3C/6nQFm29QcixJ7I2nnVYSD7qOfmORvdB8Pw9/Abefd58wO+nid9+hHut/DRiNaLNxz6M1YqK4RnG58H2skUQveDwY7X3l+nbxLcfUk5J42t6w3BvIpEYJ1Bmz6SiHoViauyqtgJTCa+gQvd1BEgikZhYUA/3piHuOf8r5hJtFl4GAvX/8xpw1PERfKVohG8l/E+FlyEg10K4+apGTZt/SUNC42O0Hpk6Iddt8LyI+z9y3c5pEhHsCMDXYdq/aei0yeF73NzOvbvpO8R3di+C5z8NdyzDfwXndzrPntHpvIf0+xJh7g39Fd7XKYtzwEx300b5epEGLv4e4v69fYxCuJXQfoTxUL+GXjeFQW0PpUbtC4JvIpGYSFDZ/Lu+t63bXuXL952alp4nEonJBfXP8xn/1mte
+kw04jeTN9mSHt75hjwr1e+/o5W4kjQR4u3XCiH2feFfN/+qjp8XG/Czo4tF6yzQacHcX99sS7pswYF4YwbUC9yvj9koNsG5+hWIId2/cvhm3K3HvHlmtdEmn8xauwzYoHQ805Aj7VfB8H7Q18fwuz+7vNUc9y7tWsudOd9x/FQNsaM+uJuDm2dD0Np3eiwijSifKlOm/A+mUE+4TickASnBJKtx5bZVfZcb306mEOfE+kZgHoJH2XMHLwnhoJHuVcHPcIHOVCmjYNQhO62W42LsG/z80rcpTPoyvGzWamvxG786D+D8ojJ51uL8whhRHuJfkxbfZxOebGBt9rQTEn1tX9Nx+ItLpA+FlwmEvnAaLG90ix3MIaxnjjOG1nN/C2TAg13K4+yLXKyPejfIXA0y3oxlg5gl+bja+3Xx6kWHHkVdX8Ly1xn+wTCQSEw0q2Y+o2PdbuesVUVJx8n42lXnEZoeJRGLugLo46vyv6L36xlgaTIyc98H/tjbDRT0A3we53zW8DAP+P2Sj3WY4hNwOJX40vBin9xLmPWGcNZLf4vtPLupjDhbujjIOvQwYjKFLuV82vIwb6MYXw28z5Pw88dkZ/r8g/F/xbi/otzyfwLPHK/2J+/eHtxGIaSDnGd9e6Yibu/n+rl762G/ItRF+7mzL0yYybHtZ8fN3y0SwSyQSkwEqmX9J1zT9+aoE/HtCaYxpUm8ikZgY0Oj+CuOhdS6PdXXW46sLx9Szg7+e878cxsLN9Rpa4WUIrkTk2/d7DSmGfrkGGjJ8MBIWgJ+HPBcjq5H8puFEGD/ppYf49gLcT4uFCI0UxshZuP0U/NaD3j0IaUARx7ci9/MiWOe/uWv8rIfg7WpHDdFCLhyw11IKuZxztp7+NZSND/fubC//H/Dd492GyVzIdIp0PBi+z4zgG2HvGO52hef9vdK2TsHbTXaPnNawzUgikZhAUNkWhA5VsTdV0lBWV/EtK2MiMY9A/XOD0zN6zf+y
+rmIcXIrb1g1O2+CwGDx+2Wv+V4R9FjTs4GmBAfFS5DtFGZqMB9+FAfcPD4UObxUwQOw9+meb30Lqp2KEtfWE4W5DqOf2ExHG/dCt0E3QzYMQvN0u4wjSemg6BrItglw/0OAyHtyPCFcq6cD1Rp73w90e0K+gU3iuhgpJjxH+jHvMx3qQcA/j3Yg86IbDxIRzILwfbeJZJ9NV/rifyfNXcZ+T7ROJyQaVbUMq9D1NcwRqyuLzYxnSSCQSEwMaxNfSkM7oNf8reld+oTEQ3vpG8D+z1/wvjTN0wR+ajp7h+yroiNvaGnoNCPg/BP0svAzBoTLcOBR5t+66/dbJ7xoL3O/eFE947ImMjXsY1kndphuNJa+DkEcMoTN/idwLRrAV4Lss7/9AGjzkNhMOFbalh+Fq0JYeMtNd3spV3BhX9bLf4/25XHcijBdFkD2hAYafQ0mTVgPMMIK/JwL8Ed7rhvdEIjGZUIFR8c7orviFYujxL1Te/BtKJOYhqI9b05DO0QiysW4itzLAzafDy0Cgnn8SPfCwRkET7/IeOXYLL0PYudN5Ku83dq8sDcRuv5IGCbLdi7uPh7dhcLiM73votk2GQhqaYTTsg8yLBQvj8Cx4nO8QYJsc4yVl03girC0j2GFQVxLH7ZHrRGS5WSPMnfSVt994mcemlzoZuhI+x8JzR2iVCKYvmKbI4+rKR9Tx+K9IY0y5NP54duTD7TB2Is0mbJVnIpEYBVS+7angc1QopXIWspJSMe/he550n0jMY9BA7gxdTJ28lOsIop5Oo85eMLPTeWN4GQjw2GQWl26+hQh3OtfToHeHlyE4fMl7e8mnI0ejf3TMZVxP4vty4W0E+LYkuudEwnIX/0Y+hYwvV4fLNoeqnqgZj+/ifzLxUNZGf+MlDJnpGF8nkNZvqoRugdtlkBcesbQrbg/gegL+HWb8VzfPoEv45vCuk/WP5Ppz3u0Mj/dhmP13sB0Y8HorfK7VONew0+hyVAP+
+t5DOJ3DVsBt1ODORSEwgUCLLQ5f7J0QFHEZU2jJfY49+Vh0lEonJBXXyNdRNt21Yq4XWxs0b7QUKLwPhsk5nKfyu28C3IgyBt8P/DU364NFOZyHlm4abJr8S/t+hcXhKp7NAeGsEMiwNrYnR0sinTqYH9A5kqnaE535RDJ/VlLXJ/UQQYbwd+VZye4lK4D5BfF5gGuN/te64+Wyckfu17jKPm2eHt3HjMdKbMDaB9/4aXOSTvWk/IrxP5o72icQ8gEqQSuiqxsa5EvaIUWlnolAnbJl2IpFIJOYdMMKehxGWP9SJxLwEf0F2S9/Y1vuFYfYI95tjqA2bZJpIJBKJRCKRGAMu73SehXF1tEYWNML4cuI9xtnRGGd52HYikUgkEonERACja2MMrMbzxq55nNzjZrVwnkgkEolEIpEYD1yZg/F1pj1f9nbVja/S+8X1+/aShZdEIpFIJBKJxFjxWKfzVAyvrez96t52QoPMPWowvs7j/sXhJZFIJBKJRCIxHrh7NcbWvhhgD7vFhBv/uSeMG/7Z84XhNZ3vq4fzRCKRSCQSicR4oQGG8XWQuy1f1ek8gLFVNhQ8hutvZ3Y6bw2niUQikUgkEomJgMeFYHitj+F1BIbYt9LgSiQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEIpFIJBKJRCKRSCQSiUQikUgkEolEYtLQ6fx/uM6PpN5jBU0AAAAASUVORK5CYII=</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="Screenshot_2">
+      <MIMEType>image/jpeg</MIMEType>
+      <ImageData>/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAMCAgMCAgMDAwMEAwMEBQgFBQQEBQoHBwYIDAoMDAsKCwsNDhIQDQ4RDgsLEBYQERMUFRUVDA8XGBYUGBIUFRT/2wBDAQMEBAUEBQkFBQkUDQsNFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBT/wAARCAB1AgsDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9UM0u6vNvjJ8RNb+GfhSXXtJ8OyeJYLb95dQQ3Jjljjx94DY24Dqe4Ga8U+E37e+g+P8AxVDouraXL4cNwwihuZrgPGZTztY7RtJ6DjrWMq1ODtJnrYbK8XjKMsRQhzRjvbp8j61yKMivDvj1+0Jf/BK1g1F/C0+saJIQj6hB
+c7EhkP8AC42kqMcg965v4F/toeHPjF4gOiXFpP4e1ORd1rFdShlnx1AIH3h/dodampqDerHTynGVcO8TCF4LdrofSdFfNPxw/a0v/gb4gSx1bwXd3FjNzbahb3imKYf3eVyrD0NdN8B/2ovDnx1tLtLESadq1v8AM2n3Eil9naRSOqE/iKn29Pm9nf3uwnlWM+r/AFpQvDue4Zpd1fJfxI/bml+Fvi+58P674F1C3uYfmDpdAxzR9nRtvKn869e8I/GBPiz8NZfEXgSS2vdTEW5bG8cgRygZMMpX7p5PzDrinGvTlLkT1CrlWLo0o16kLQls+h6tupc18Hyf8FCvEvhvxU2keJ/BMVi1tciC7jjmfzo8fe4K4Jx8wxwa+yPA/jrS/iF4etNb0S8S9sLpBIjxnOAR39CDwQaVOvTqNqL2Ncbk+My+nGrWj7stmtUdNzQ3y4zwagkZl6ZJP6e9eRftC/tC6N8CvCr3d5Ks+sXCkWWnbgXkcDJJ9EHUmtZSjBc0noebhcNWxlWNGjG8pHsm73pdwr5S/Zi+KHxc+MF1/bXiBbHS/CyHCCO0xLct3VGLEbQOrDvwKz/2nv2zv+FeaiPDHgxoL/xCkg+1XDDzIrf/AGMD7zn0HT61j9Yhye0e3TzPYhkeLqYv6nTs5Lez0XqfXm4eopdy+teA/AnxV4/uvBs3i34oX9pplg8HnRWqwCDy48582Vj93jgLXzv43/bh8ceNviMmi/C+3R7CSQQWyyWoklu2OSJMH7inBIHUAEt6KTxEKcVJ9djTDcP4zFVp0qVmobyv7q+Z+gu7d0NG76fnXl3hXX9Y8BfDdta+JGuWjXcUfn3UqxLDDAMZ8tccvjpk8kmvkq5/a/8Aif8AFf4pjRvhnAtvp0jCO3jmtUkdlH3pZGYEIO59qKmIhTtzdTLB5Jisd7R0rcsL3bdlp5n6Dbh6ijcPb868m8Q/EOP4J/DBdV8d6+t9qMce1pEiSN7ibGRHFGB2
+6DPOOSa+MdH/AGuvjL8WviB/ZXhKaGzW9mzbWa2kbGCH/bZgT8o5LZpVMRGk1F7s0wOQ4vH0516VuSG8nsfpOGB6HNL+Fct4B0/WdJ8NWdvr+qtrGr4zc3XlrGC5AJCqoACiulXOetdCd1dnzslyycU72JPwpKKKokKfTKKAF/CkoooAUU6mUUAO/D9abmiigAooooAM0ZoooAM0tJRQA78P1pPwpKKACiiigBcmkoooAKKKKACiiigApfwpKKAF/CkoooAX8KTNFFABRRRQAv4UfhSUUAFFFFAC/hSUUUAFLSUUAO/Cjim0p60m7AVprdLiFkkXerLgqec/nXwB+1l+yTP4Xub3xt4KtP8AiWnM97YRLj7PxzInH3euV/h5PTiv0G2j0qO4hSeF1ZFZSuCD3HpWNajGtG0ke3lGb4jJq/taL0e67nwN+zP+0pp/ifRf+FafEVo7mzuI/streXhDK6k8QSHsR0BP0PNeS/tLfs2ap8B/Eia5ohlk8NzSB7a8U4e0kByFc9eDghs84xXp37X37Js3hqW48a+CLUvpWfMv9NgBBg/6aRgdFz1UfdPPQ4W9+y7+0lpfxC0P/hWXxJaG+S4T7LaXd2QRcKR8sUmf4scqx+8OvOC3jSTkvYV9LbM/WsPXVGH9rZTrSl/Ep9vOxq/BH4y+Gv2ovA8nw6+IvltrjJ/o12zAG4wPlkVugmUDJHQgZHGQPnH4ifD3xl+yr8UIrm2nlj8qczWGqW6kJcLkZBHTOMBlPIJ7r97Y/aQ/Zv1n9n/xTFrGjzXEvhuWcSWd/G5ElrKOQjN1BHBVgfmA55r3v4M/F7w5+1d4Hf4e/EWONfEKJ/o90QqvMVUkSxkcCUKDkD7wyRxkCXep+6npNbPudKlDAxePwH7zB1Pjh/L3sjR0u/8ACH7cfw0awvmi0nx1p8e9WjALRyYx5qA8tC3QjqOh5wT8yeDvGnjf9kH4rTW95BLAqOI7uxZj5N3ETkMp6HjL
+BlGQflPFU/HvgXxl+yb8UIJ7eaWIxymex1SBT5d4g65A4HHDKetfVNtceEP27vhn5Fx5Gk+ONOh3748b4HI+8O7wuQOOxovKvNc2lWO3miJKnlkFJP2uAq/Pkv8A5E/xS+FXhL9sT4dxeMvB88EPiSGHZk7QTtGTbXA/hYHHPJGRyVII+aPgP8e/Ef7M/jq40vVre4/sk3HlanpNw2HhboWXP3ZB+TjHNUfAnjbxp+yT8Up7DUIJIPLkCahp5YmC4hznevp/eVuT/D0NfUvxj+D/AId/a48AQeNvA8sMfiSOAbVbCGTAybaf+647HnGR1Q8VeVf97DSUN13Oe1LLUsFi/wB7g6vwy/lueofE/wDax8H+A/hnB4qtL+PVZNQj/wCJbawsA9w56ZH8AX+LPTGDyQK+Vvgv8H/E37Vnj6Xx/wCOppE0BZSVjJK+cVbIhiB6Rp3Prx15r5u8N2Nn4f8AiDYad41gvrfTrO8Ed/bgYmRM5YYP3ScZI7jkc19mftAftbaL4M8G2Pg74XS273M1siJdWJAhs4iuQqE/x4zjPTk9aPrEa7U6+kY9O5NTJZ5Io0MrXPUra+03UY+TLn7UX7Ull8L9L/4V18PhDa6nHH9mlntPkWxjUbfLTsHwT/u59cVhfsqfsvx6bap8SPiOqxbY/tdtbX3AUcsJ5t3I45AP+81J+yX+yvFYwp8SPiIgjTZ9stbK+G0J1b7RMG745Cn/AHmrgv2oP2m9R+NOtr4J8GLNJ4c84Rj7PkvqEhOFOF58snlR3xk9BWkqmnt6yt/Kjlw9D2jllWV9P4tX80mR/tKftK6v8fPESeDvB/nt4eM4iiht1PmahIejFVwdox8qdSMk+i/R/wCz/wDAPw7+zX4Kn8XeKrm1i1v7OZbu+mw0VimMmJD/ABdgW6sxwKzf2bf2ddH/AGe/Ck/jfxzPbRa75DTPJMw8mxjHOAe74+84/wB0erfOXxz+OHiT9qbx1beFvCtrcf2D
+5/lWdlCMNO3QSTHop25IzwKjmdL9/WXvP4V0D2f9pf8ACblj9nhqf8SfSRN8ZPjH4q/ax8eweFvC8Fymg+eBa2qkjzWH/LaY9PlHY8AdK+qPBPg/wX+xf8LLjWNXuYW1OZR9pudoMlxJjKwwr97avZfTJNVfhj8O/CP7HPwwuvEXiW5hbV5kzdXG0F3dhuEEAPzFcj6nkt/s/FXxO+JHi/8Aao+JVvBBb3Esc0iwaZpURJWAEk5bsSRksxHOOOFApykqD55azl07F0qMM4f1TC/u8HS+KX81iX4jfETxl+1d8T7e2htJnM0n2ew0qMkxwITnLEcEleS34jgYr9Bf2af2ddL+BfhtY2SO71+6UG9v9ozk/NsT/pmD+ZrlvgL8H/Bv7L/huG/8Ua1pOna/qeBLqOoXUVur4AzHEXIG0ZGT1Y8ntj1uL48fDWaeOCP4geF5p5GCJGus2zM7E4AAD8kmuzC4eUE51d2fK8Q59CvD+zcuXLQh26nebV4GPpS1FHuYqSfbnv8A/XzUx6V6WvU/P0FFc14x+IXhz4f2EF/4n1/TfDtnLKIVuNSukgiLkZChnZQTgdBk1yUP7UXwiuriO2t/iX4XnuJm2RRRatC7yMeAAAxJOaNewHqVFVmuB5XmBwEPzbvUeo/T86+dvi7/AMFBvgn8HLq5sdT8WLq+qwff0/Q4zdODnGC4wgb2LCmk3sB9JU6vz6k/4LO/Cf7YscXhTxY8BODI0NuD9dvnZ/CvX/hP/wAFJPgb8WrmG0g8Ut4c1GfiO08RRi0Ln0Em4xj8Wz7VThNboD6koqtDdJdRwzQyLJC6hldTlWU9CDnoR3xj3qw33Tzt46jtWdwFp1eIfEL9s34NfCfxdfeF/Fvjuy0TxDZCM3FhLDPI8e9FdMlIyOVZT1712nwn+Nngr446Hc6z4G8QQeItLt7g2stzbo6KsuAdp3gHOGX86YHc0Uh4BOM+1eL/ABQ/bE+D3wY8TN4e8aeOLTRN
+YjiWZrVoJ5XCsSAT5cbAcjofUGgD2mivEfhn+2P8IvjH4ij8P+DPGUWu6y6s4tre1uRhVXcxLNFtCj1Neo+KvGWi+BdDuNY8RavaaLptt/rbu9mWKJe+CzHGSO3U9hSWuwG7RXxX45/4K0fAzwldy2+nXOueKpEJXfpdiqRkjr80zx8e4BFc5ov/AAWS+D2oXUcN/oXinS0brM1tBKq/XZKT+QJ9q0VOb2QH3vRXlPwh/ai+GPx1tQ/g3xdZarcBd72TEwXKD3ikCtgeoBFep7stjkc9D24qXeO4D6dXPeLvGmi+AdButd8QatbaPotptM97dyBYowSFGT2+Yj868wf9tj4FrlV+Kfhtn7Kt4GJ/AUWbA9wpMCq9rdx3kEU8Tl4pV8yNv7ynoR7YINTNnacdaXWwC06vIfH/AO1X8J/hZ4kl0HxZ4703RNYhRZXs7hm80K3KnaF6YOa2vhb8evAnxqbUF8E+JrTxF/Z3lm7NmXPk7wQgOV77W/KnZ9gPQqKKG4XPSkAUV5B4u/ax+EfgDxJd6F4j+IWi6PrFoQLqwurkLLASisAwxxwR+Le1dt4A+JXhj4q6Emt+EtdtfEGkmV4BdWT7o96Y3AnseenuKNQOpoopsjCNSzHC4zn0oAdRXmkn7R/wsgJWX4k+E4pFIDRy63bK465BUuMHirfh/wCO3w78T61baVo3j3w5rWo3BPk2dhqsM0smBn5UViSMAkmgD0CnUzPTHOeaWgAopG+6e9eUa1+1N8IvDurXWman8SfDdjqNrKYZ7afUo1eNlJDAjIwQQR+FNJvYD1iivLNI/aj+EevajaWGm/Efw1f315KkMFtb6lE0kjswVVVQ3JJIAA9a9Sz2Prjj86VmtwFopG+6evTt1rlPiD8TvC/wr0dNW8Xa/ZeHdNefyEur+YRI0hBwgJ6kgGgDrKdXk/gv9qX4TfETxHaaF4Z8f6Lrmr3e94LOzuN7yBQS23twFY/hXq+79eaAFqI7
+s1JQetRIBKO1FFWBWmgSaJ43jEkbLtKkAgjGMV+d37Xv7J7+Cb6bxx4LgJ0Uv5t5Z25ObQ54dMf8s89R/CenFfo1gelVdQ0+HULWWCeJZYpFKsrKCDkYPH04rmr4eOIjaR72T5xXyfEe2pPR/EujR8L/ALM/7Smk/Fbw/wD8Kz+JbQXM08Ygtrm6IZLpSMqjnrvGPlbOTjrmvD/2hv2f9b/Z08WRarpUtxJoEkwew1BDiS3cciJ2HAcHBBH3gODjNd3+1r+ybc/DO+k8Y+D4Wk8OF/OubaEkGxYnIIx/yzzznsa7n9m39onR/jN4Xb4X/E0xXtzcRC2tbq7IxdgDdtYj7sq9Qe+B3rxmpT/c1tLbM/WqNaOGh/bGUrnoS/iU+3nYv/CP4teFv2t/AMngLx8sMfiRY8xXKkDzmxkTRt/z0wOV6cZHGQPmTxd4T8b/ALKHxUgnhneGeN/Os7+H/U3cOMfN29Mqfr6FtD9oH4C6/wDs5+NYNS0+W5l0SSffp+qRMQ8brz5bt1Dgc54DAZHGQv0R8Lfil4a/bC8At4D8drDD4phj3QXQwGlIGRNEem/A+ZehAJAxkBKLqP2U9Ki2ZvGVLLo/XMH+8wdX44fy33sa03/CH/tzfC8uvk6V4302Pf2aS1kPt1aFsfnXzB8M/iP4x/ZJ+J11pupWssdqkgi1DTGJKyoDgSJnjPOQR24qj4j0Hxt+yP8AFeKSK5ktbiFvMtrqM4gvIP4gwPXJxlT0P+1g19U61pfhD9uL4XRX+nLb6R450qLa4YgNC3TZIBy0LH7pHIOe4NNSlWlzR0qx6dGjn5aWWw5ZfvcDVej35Cb47fA3w7+1L4FtfHvgWeBvEfkbwVIAvAB/qpB2kB+Xn6Hmvin4V61p3wz+Kun3njDQZb+00+5BubOVfmVs4B2n7zKRkDviu6+EPxe8Xfso/Ee40jV7OdbFZTFqOjzEqGAP+tjOcbsHIxwV9QQR9LfHr4C+Hv2nvB8f
+xB+H8lu+utFu+UbPtoX70bjjbKMFcn3BHQiZL2372K99bo6cNiZ5H/sGMlzYSqvcn/Lfpc8Z/ac/alvvjRfJ4L8EfaB4dLLEfKQh7+QkYyo52E9FHVgM17t+zV+zbo/wF8Nv478bvbJrvlNOXupAI9PUj5sMeC+PvP0/hFfIP7PHxA0/4H/FqO78UaG9wLVmtpvMQiexZiAzqv8AfByhU843YIK4PaftAftCa9+0t4tt/CnhSC7k0CWZUtLOJcPfOP8Alo69wOy9AMt1FTCpGSdarrNbIrMMqrR5ctwK9nhrc0qnWS9Sf9oD49a/+0940tvB3g+3um0Hz/LtbKJGD3bj7ssinoB2U8AfOelfTXwh+E/hb9kj4bXfiXxNcwHW/J33N5gMVJ/5YxA8nnH+83Jpfg/8I/Cf7JPw5vPFviy5tTriw5vL/IfYxP8AqYR3OcDA5Y9a+NfjN8ZPFP7TXj+20+0gnNn5xg0zRIcsfQM2esmDk5/hJFbKSo+/V1m9vI8mjTWbL6hgfcwdP45/zEfxa+LHiz9qD4iW1taQTPA8pt9M0mAlggJ6k9N54JY9R7Aivu/9l79mHTPgjoK317HDe+J7xc3FyoysS4B8mMnnaNoye+AKh/ZZ/Zd0/wCDGkDUdUijvPFF4mJrgjIgyM+VGTyR6t1PSvopYwv1rtwuG5W6lXVs+W4g4ghUp/2Xlvu0Y72+0eDftofAGL9oz4Ca94aijj/tiLN9pczfwXUYIQfRxujP++D2r+fK6hvNB1Sa1nVrW8tpmikjfKtG6HBB9CD/ACr+ocgKpOAO549q/Fn/AIKufs2H4X/F6Px9pVp5XhzxYzNcLCgxFfL99enHmDMvud47V7dGST5T88P0j/Yd+Pi/tC/s/eHtcuJ/M1+yA07VlLfP9ojRf3hHrIpV/wDgTV9CmvxJ/wCCUv7Qi/Cv44/8IhqVwU0TxcFtQCfkS8UZhbnoSS0ee+9P7or9Of20v2go/wBnL4A6
+/wCJY7hF1u4U2GlRseXupAVVgvcIAznt8o9aicbVLdwPzE/4KpftLL8WvjWvgzSLkyeHvB5e2do2ys143EzA9CEwIwf971NTf8EwfgHZeKPH+o/FPxSYrfwZ4LUz/aJsCJ7sKWGSflCxgeZ9dg718ZaRpOr+PvFVnY2cE2p61qt2sUcS5eSaaR9oGepYs2fxzX35+2/q0X7KH7NfgX9njw9cCPVNTtv7V8S3UJ2GfLkAEdQryK3H92JPWulrlSgByP7bH/BRnxJ8atU1Hwr4DvZtB8CwSNC0sJaK51XJwWdsjbGT/wAsx16n0X4r0XRdS8TahDY6XZ3GqXsufLtrWJpJH9cKoJIz+PpXb/s9/AvXv2iPifpng7w7ErTXTlp7iRWMdvAoy8r45wBjgck4r93f2cf2UfAP7Nfhu2sPDulx3GrSKBea7cKHurtsclm/hXPAjXgD161MpKmrLcD8O7f9j/413Vn9qi+F/iiS0I3eYukzjj6bMn8q8y17w1rXhHUZbDWtMvtJvIjzb3sEkLnHsQD+lf1BdB0zXmnxo/Z/8C/H7w3caP400K11aN49kd2U2z27f345F+ZCOuM4PeksQ38QH40fsd/t8eMf2c9btNM1O6ufEPgZpDHNpE0oZrYHH7y3P8Df7J+VsYAzX7e+AfHWi/Ezwnpfibw5qcWp6JqESz21xE3Dqeme4PUEHkEY7GvwA/a8/ZX1n9lf4ny+Hr15L7RLlPO0nU2XH2qDJGDjgSLjDL0yQejCvsH/AII+/tFXFn4n1X4S6tdeZZ30cmpaTvcny50GZo1z1Ei/P7GI+tKUIyi5x3A+bP8AgqR/yfN8Q/ddNz/4Lravu/8A4It/8m4+K+3/ABUkn/pNBXwj/wAFSv8Ak+b4iHts03/03W1fan/BJHxlpHw9/ZJ8f+ItevotN0nTtdnubi5nbCRxrawEn3+g61ygfVv7XH7TmkfstfCe88SXm281mcta6Rpu/wCa6ucE/UIo
+yzHoBgDmvwC1zWPE/wAbPiNdahePPr/ijxFf7iVUl5p5CAAq9hyFA6YA9K9L/bG/ag1f9qb4uX3iCd5IPD1r/omi2JbIt7bOQSP+ejkb2PXJ29FFfdn/AAS1/Y1g8L6Cnxp8cWgjvLmFjoVndIALeDBLXRz0LDcF/wBnJ/iFAHW+BdH8F/8ABLX9nNtc1+OLVfiXr6j/AESPiSaQAEWyntFFkF37k5/u4/M747ftKePP2jvE76r4v1Sa+Q7mtNMhJW1s1JwFijB4wO5+YnqSOK6X9tn9oS+/aK+O2uaybh20GxkNhpNuxysduhOGA6Zcgvx/eA7V7v8A8E9/+Cf0Xx7UePPHsMkXgq3nK2mnDcp1R0JDZI+YRK3ykjlmBHZq7YwjTSk92B8feCPhF42+JU23wv4W1jxA/c6dZSzKCOmSFPP1wK3/ABV+y98WvBOnm+1r4deJNPs1BZ7iTTpvLGBkksF4x78V/RV4X8I6L4I0m30nw/pdpo+mW4Cx2dnCIkRQMDCgc/U1qzRiVGDcgjkYz+lQ8RLoB/L7oevap4S1e3v9NvbjS9StH3RTW7NHLCwOQQRg5BFfrl/wT9/4KLH4nzWPw4+JV1HF4nx5OnazIyqt/gf6qUnjzcdCOHHo2A3c/tq/8E6vC/xy8PX3iPwXplr4f8fwRmZPsqbIdRwMmKRVAG70ccknDZFfiwp1TwZ4k2v9p0zWNNnwQMpNDKjYIHoVYH8RV+7Xj5gfvR/wUebd+xf8SmHG21t8kj5si7gzn9Pyr8C9LkJ1C354LjI9ea/YD4ifHr/ho3/glb4p8TXEqvrNvYxWGqheF+0xXUKsfbeNsgHo2K/H3S4y99FggYYYz35pUVo7gf09eEcN4W0c44NlAfx2CtesTwR83gvQST8x0+3J5z/yzWtuuJ7gfhb/AMFYZH/4bG1kD5dumWPT/riK+kP+CI7Z034rg9PM0zH5XdfNv/BWTj9sXWj66ZY/+iRX0h/wRFYC
+w+LQx/Hpf8ruu1/wE0B+olc14+8aWHw58Ea74l1eXyNP0eylvbhi2PkRdzY9z0A9SK6XpzjNfn5/wV9+N/8Awg/wV0zwBYXOzU/FFzuuFQ4Is4CrtkDoGk8se4Vq5I6sD8j/AImePNQ+J/j7xD4s1VwdR1i+mvp8cqGdy21R2Azx6DFfoZ/wRv8Aja2n+LvEvwz1CdjFqMJ1XTw54E0e1ZVGe7LtPHXyia/NzRtFv9ee6WytZbk21u91P5Sb/LhQAs59AOPzrt/gN8Vrv4LfF3wr4xsCxl0m/jnkVT9+LOHTP+2hYH6mvRnBONkB/SoPmAqvqXNhcD/Yb+VUfDOuWnibQ9O1fTrkXVhfQpcQSqciSNlDIR9QQ36VfvubGYf7DfyrzdgP5g/F0jr4o1hd+At5N0PT5zW58IfiNe/C/wCJ3hfxVaOftOj6hFeRpk4YBhlPYEZH0JrB8YqF8Xa1jn/Tpv8A0M1lJlSCeD1Xj9a9RawsD3P6f/CHiS08YeGdI13T5RLY6nax3du6nIKOoYf+Okfjmtk9D/Sviv8A4JR/GY/Er9m+DQLqcy6p4VuWsGDdfszZeD8ANyf8AFfav6V5rVnYDzv4+fFC0+DPwZ8WeMr5srpOnyTqmR+9l27Y0H1dlr+bzxDq19rms6hqN/M015d3MlxNIWzukZtznPuWz+Jr9Wf+Cy/xqGi+CfC/w0sJtk2qTHUr9Y2wRBEdsSnHrICf+2dfkhtdVLMGIBxnHAPp+Vb0ZKAHrH7LMn/GRvwzB5B8RaeP/I6V/SH3/wA+9fzYfsv3Jj/aO+GHfPiXThn/ALeI6/pPY/KTnHv6damtLmegDq/Hn/gsf8bv+Ei+I3h34bafcZstBgN7eqp4NzKuFBx3WPn/ALaGv1m8c+LtP8A+Eda8R6pMsOm6XZy3s5dsYSNSx/EnAxX81vxd+Il/8WPiV4l8XanJ5t7rF7LdNzkLlvlA9guAB7CsbASfCD4k6j8I/iZ4b8Za
+VlbrSb+O8SMHCyKrDchPYFdw+hNf0oeC/Flj448K6P4i0ybz9N1a0ivLZweTHIgdePocn06dq/mL1fR73Rbg21/aSWd15ccvlzIVbY6B0bB6gqynPuPWv2e/4JHfHM/EH4GXXgy+uhJqXhS42xRsfmFrKcxj3w3mD2BWiwH3pRtNFGaiSAKKKKoAoPQ0Uh6GgCre2UeoW8ttcRrPBKpR45FDKQRggg9q/OD9rL9k+5+F2oSeMPB0TSeHWkEs1tCxzYHPGMc+XnoR0r9JiuF9fY96+Tf2yP2pLH4daPc+EtFeDUfE1/EUk3BXSzjYH5nB43EH5VP1PbdxYuNJ071dD7PhXFY+lj408Gr83xLpbzOK/Zy/aI0j44+GD8M/iQiXl7NELa3ursDF4ANwViOkq4BB74Hevnz4+/ATxF+zZ42tr/T5rptGabztN1SFtroQc7WbtIODjgEDI4yFn/ZX/Zt1f4zeJYtUkafTPDljKouL9Mh2ZOfKjP8AfyeW6AdK+iv24P2g9C0XwvP8ONMjh1bVJolS6mmImWzXqBk5zNx06gfMTxXku9XC+1qaW2fVn6S5LL87+p5V78Knxw6LuRfC/wCI/hr9sr4dv4H8aCKDxfbRkwXUYAd2A4mi7bsD5k6Yz7gfMt5Z+OP2P/i1Gyube4t28yKUNi2u7foQe7BuBjOQea7r9jf9nHWPH/iax8YX0k+j+HrCcTRzIWR7hwR8qHg7Rjk9xxXWft4fHTQfFs1t4J0i2t9Su9PlEt1qpXeYJehiiPdsEbm6Y4HP3ZlKU6Ma1X3Wtn3NsOqeHzmeU4L95h6i9+PSL62ex6V4t8KeDv23vhjFruiLDpfjKxiKFJeGRxyYZscmLnKt7gjHKn5m+DPxk8U/ssfEK70fVbS4TTfOEOpaXMwDEgf6yPsWwM8cEADnqPZ/2Efgf4j8P3beP9Su7jRdKkhKwWasAbuM8h5B0KA8g9SeRgfe8z/bY+L/AIY+Knjq0svD
+Vhbyy6epim1iNSDcLnIRfWNSCd34jjNOtzeyjiHpLt3MMtpwePrZL/FwvV78nzPoD9oX9n/w9+0t4Jt/H/gGSBteaHzAISoF8mApRvSRcbQTzkFT0GPkf9n34qy/s+/FM6hq2lZXD2t9FLFieAFs8Z6MCMY6dQe1fT37Lem3/wCzb8LNU8Z+O9Xl0nRr6JZLXQ5MMd5GQ4B58xgP9X/d5b0X5G+K3ji/+OXxSvdWg0lbW5vpUht7G1TL46KrY+854JJ7cdKis0nCpFWk9z0MhU6scTlVebqYON0pPp5X8jr/AI3fGzxL+0t47tLGxguP7M87ytL0iEhiWIwGPrJgkHP3VJxX2x+yn+yrYfBvSY9V1lY7vxXdxgSyYBW3GM+UnuB1bvVH9kf9lS3+E1jDr3iGGK68U3MYyGAItBj7if7WPvN68DivqLaPQflXpYXDyu6tXVs/PeIuIKfs/wCy8r92jHdr7QnHHGT60vpTqK9U/NfUK8d/au+BNn+0V8D/ABF4QmWOO8mj8/T7hxxFdJ80LZ7DJwcdiw717FSbVUdMADH4UarVDP5hpo9V8B+KZUkM2l63o91sZWBD280T4xj1VlIPuB617t+2T+2Fqv7VUng2O6jaxstF0uNJoWcESXzKPtE4A7HaFA7Y9691/wCCun7N6+BfiRZ/FHRrXydK8SnytRWJeIr5RjecdPNQbv8AeST1r4W8A+CtV+JHjTRvC2iQfatV1a7jtLWFSRuZyFBOOgxkk16EbTSkwPvn/gkX+zUPGHjq9+Kmt2qvpnh9jaaasifLLeuuXcZHPlocY6bnB6ivBf8AgpN4un8X/tg+N1mlZoNOkh0+CM9ESOMZz77zIT9a/bX4GfCPSPgZ8KfD3gzSI1W10222PKEA8+U/6yU4/vuS3PQEDtX4Yf8ABQLSJtF/bC+JsU6svnambldw5ZZEV1P5MBWNOXtKt2B94/8ABGX4X2Vj8N/FvjuSNZNR1DUP7LSQ9Vgi
+jjdgD6M8gyO5RfQV+kOBuzjnpmvgT/gjf4usdS/Z313QI5FN/puuSTSxZ+YJLFEVP0yr/lX35WFS7mAUjDcDkZpaMBuCMjvmoA+Hv+CuHw9svFX7MMviJoo/7Q8O6jDNDcNwypI4jdfpyv8A3yK/K/8AY18Vy+EP2nvhjqFv+7Ztds4HYOeYpJVikH4qzfnX6u/8FZPGVt4b/ZL1LTpZVF3rd9a2UKk8ttkErHHoBEQfqK/JX9kbQp/E37Tnww0+3XzJG8R2LNtHO1Jld2/BUZvwrqpXUWgPS/8AgqRj/huP4hDGRs03r3xp9v1rxSL41eIrH4L3Hwwsbg2nhq61dtXu1jyJLmTy0RFkOfur5e7HTcc/wivaP+CpBP8Aw3F8RMdNumke4OnWxr5wm8L6vH4TtvEjWM39iS3kthFegfu/PRUkZAf722RWyeoyO1coH1D/AME7v2RG/aU+Kw1TXIGXwN4ddLjUDkBbqXOY7ZT/ALW1mYjoqnH3hX67/tYeJB8Mf2WPiHqGmqlm1loUttbrEuxU3KIlCAdAA/H0r8bf2B/2srr9lz4tQvfyyP4M1tltdXgU/wCrUE7Z1XplGYn/AHdw71+uf7bsUfjX9jP4jTaTINQguNFF7BJbtuWSNHSXeCO2BnHtVJagfgNoNjLq2t2NnBl5rmdYYyR1Zzwfbkiv6W/hn4D0z4Y+A/D/AIV0mFYbDSLOOzhwoGQgIJOO5JZie+TX81fgjVY9B8X6LqMqF0tLyG4KjqVVgSP0r+nHSr631ewtb61dZra4jWeKZMFXUqMMD6EEVvWburgXNowBjil69aKK5gEOMHIH41+E3/BUz4cWfgD9rLV5LCFLeHXrGDVjEp48x9ySn6l4mY+pbPev3Z/hINfhz/wVn8Y2vij9q65s7Z/MOkaVb2M4QgjzMtKRn1AkAPuK2oq0x2H/ALL+uTXX7Bn7T2jMSbe1j069hUngGSUo3HuI4/yr4qhkMc6MRnawOB9a
++1f2VdDnj/YZ/ah1VgTFNb6dbbsfKWjkZmAPsJFP418Vwp51wi+rAV107c8gtpc/SHw5/wAFlvEOg6Hp2nN8O9NlWzt44Vk/tKQb9qhckCM4PGcZq+//AAWu8SZ+T4b6X+OpSf8AxuvNNH/4JD/GTWdMtb+DU/C6QXMSzx+ZfSg7WAIyBEcHmrrf8EcfjYSCNY8Jjn/n+m/+M1D9jzCPmX9qD9oC9/aZ+K17441DSrfR557eK1FrbyNJHtiXaG3MAckfyr78/wCCI6j7H8W/+ummfzuq/Pz9or9nnxH+zP47PhHxPPYXOpGyivfM0+RpIvLkLBRllB3ZQ9u9foD/AMESDts/i2f9vTf/AG5p1OVU/dA/USZxHEzk4C8k1/P1/wAFBvjQ3xq/ae8V30M/naPo8v8AY+njPy+TASpceu9zI30Ir9k/20PjSnwG/Z18XeJlmCagbU2WnruwzXMvyRkf7uSx9lr+d+aVpLhmJMjM+fMxksTwePeuejHW4z9PP+CTP7M9p4j8B+PvG/iKx8yz1y2m8OWm8Y3Qso+0sB6ZKKD/ALBr86vip4DvPhV8SvE3hPUFH2rR7+Wzbjg7G+VvoVwc+jV97/Ar/gqx4e+CXwq8N+C7P4YXM9vo9mkLXMerKomkK5kkK+USC8m5+vG7FfH/AO1d8bdK/aG+MWpeOtN0CTw42oQwJcWbXAmzNHGI2fdtX7yqnbqK6KfNzO4WP1f/AOCU/wAaj8TP2d4vDl5dGTVvB9x/Z7LIfna1bLQEj/vpOP8AnmK+0b4Zsph/sn+VfhX/AMEvfjYPhP8AtKabpt7c+To/ihP7Kn3NhRITuhb0/wBYAuf9s+tfujdtm2lHOSrYB4xjg/zrlqK07iP5hfGmB4t1sdP9Om/9DNey/EL4Prb/ALJvwt+JNnalRcX2o6NqMiDjzFmZ4WP1QSJk/wBxa8c8aL/xWGu/9f8AP/6G1fqV+z78I0+Nf/BKHVPDqwmXUFl1C+sd
+oy32iGZpUC+5C7eOxIrqlLlSY2tbHzz/AMEnfjI/w7/aSj8NXk/l6Z4rtm09txwq3C5kh/Mqyf8AA6/bmaTy43bIXaMkk8Yr+Ynwh4k1DwH4003W7GVrO/0u8ju45BkGOSN1YfkQOK/cv9pr9qCx8OfsP33xI0q5Edz4j0iK305EflZ7qPbge6bmPsYzWFZaprqI/Iz9uL4zN8cv2lPF2vwzedpsF02m6cOgFtCSi4HTkhn/AO2lafxe+C6fDn9kn4SeIrq2Eer+KtR1HUZZWXDfZwkKQL64O13/AO2oryf4M/D+++LnxY8NeFbEM93rGopb7wPuqzDc30C7j+Ffox/wWO8O2PhT4Y/B3SNNhFvYac1zZ20S8bIkihVB/wB8qKSa2HY/PP8AZsJ/4aG+GWDgjxJp3/pRHX9LTccAZH90fQ1/NJ+zfIIv2gvhy54x4isMf+BEdf0syNhWONxwTj1rAR8D/wDBX743DwH8B9P8EWdxs1Xxbc7JlU4b7HCVeRvbc/lr7gsK/Kv9mX4OXXx4+N3hbwbEjm1vbtPtsqDPlWy/PK3/AHwrD6kV6r/wUf8AjUnxs/ac1+S0uDLouhH+xrHacqViYmRx/vStKeOoC1B+wz+1V4X/AGTfGGt+JdZ8KXniPUbu1FpavazpELZCQz/eU8sVQZ9A3rVAe7/8FhPgLb+CfF3g7xxo9ktrpeoWC6Ncqg+VJbcYhPHQGI7R/wBcq8O/4Jv/ABsj+C/7TehG9ufI0XXW/si7JbCqJWURufpIEOew3V7F+2J/wUe8F/tQfBO+8GxeB9S02+aeG7sr+4u0cQSo+MkBeQyNIuO2RX5+WN7Lp99BcQytFJDIsiup5BByDRsB/Uukm7aR0J9c+uf5VJurxv8AZH+MUHx1+APhLxWj+ZeT2i29+oPKXMeVkB+rAt9GFey1EgCiiimAUjHapP8ATNN3NzwcY7V84ftVftVWnwX0mTR9HljvfFt3FiKLgrbKePNf
+t9B3PXis6tSFGPNN2R6GBwNfMK6w+HjeTM39rb9rK1+D+ky6BoM63Xi68jIHAZbJSvEr9iT1VT1HPQfN8hfs9/s7eI/2jPF1xrOsz3C6F9oL3+oTN5ktw4OTGrHq57k8AUvwD+AOv/tKeNpdZ1m5uF0Tz/M1DVrkFpJ3DZKDP/LQngnoB6H5T9LftFftE6D+z74Vi+H3w9igh1ZYBFugXcllGQeSe8pGTg89zXiSbrJ163wLZdz9epUlk0VlGU+9iJ/HLpH5kP7RX7SGi/s+eEY/h54Ajht9YjhEPmRrlLBPfPWXGTz0+81eAfsx/sxar8d9efxL4kNwnhuOTfcXErnzL1wcsoPpnqx6dOv3Y/2bP2a9V+O3iNvEPiaW4t/Dgm8y6upH/eXkmcsoJ5OTyX6169+1P+1FZfD/AEk/DT4cFLKS3jFrc3diQq2q4x5MXq+Op/h6fe+7Ev3jWIraRWy7m9OnLBN5VlHv4ifx1Oi76jf2pP2pdN8G6O/w3+G+y1khT7JcX1phVt0A/wBRH3L9cn+Hp977vG/sk/snv46uofG/jOBo/Dqt51raS5DXhzkO2f8AlnkZ/wBrHpxVf9k39kyX4hzReMPGEbW3hdf3tvbyZzfYOQTnnywfXrW/+1p+1iupQz/D7wHOIdLhBt7y+tSAHHTyIj3TPUj73QfL96Yv/l/iNvso05HSf9i5K7zf8Wp276kH7W37Xba4s3gTwHN5OhxDybu+teFue3lw99mfT7wzj5fvM/Z5+AGi/Djwyfip8Uylnp9uPtOnadMMsxIyjuvVnJHyr6c9ap/s5/s/6R4N8Nj4r/E0RWei2ii5sLG66yd1kdTy2f4V7jrXlvx++Pmu/H/xgkMUcsGixyGDTdLC/eyeGZe8h4BHbIA4qZe6/rNXfojtw+FhU/4S8qfLRj/FqdW+quR/G741a9+0P43hEcM6aar+VpOkR5BALABiB1kPHtnCivs79kf9k+1+Fdjb+IfEsaXP
+iyZcRx8FbEEcqD/z0wfmYcdAPVof2P8A9k2D4ZWdv4p8T26S+KLgFoLeTDfYl6bfeXHDN2Hyjoc/WMe3JIUA8Cu/C4W96lbc+I4j4ipxpf2TlTtRhu11YqIFUKFAC9MCnZ6U6jHtXsH5g9dwooopAFFFFAHxf/wVsjH/AAx7qZUEH+2LDGP981+aX/BNRV/4bM+HYIBBluQVPT/j1kr9Mv8AgrIpk/Y91fnpqtif/Ipr8zf+Ca58v9sz4dZ7z3H/AKTSV1Ur8jHY/fzb6AZx6V+RX/BY74F3WmeONB+KthbFtO1a3TTNRdVzsnjz5Tt/vphcn/nkBX66n5kIPIxXD/GT4T6F8bPhzrXgzxJD5+lapC0bNwHjfO5JUJBwyNyK54S5XcR+Gn7B/wC1ZP8Asv8AxaS+u1luPDGsKtrqtvGCzYydsyqDyyE9OuGYdzX7yeDfGuj/ABA8P2GveHdUtdX0S+QSwXlrIHjkUjqrD0PBBAIPXHSv58v2nP2W/GH7MfjibRvEFpNcaZMzNpmsQxt9nvI88FWORuC4BU8jGemM5nwX/ad+JHwHvjP4O8TXelxyNvktCRJbyMO7RPlSe2QM11On7RXQH9IBxg81keKPE2l+EdBvtX1m/g07TbONpbi7uW2RxooJJJz2APSvxtT/AILBfGdNP8hrLwzJcAbTcvYOHPuV80L+SivnH41ftYfFL9oOTb4x8U3V/p+/fHpsW2G1RhypEaYUkdi2TWPspdSrHo//AAUE/a5k/ag+KCRaS8yeCdC3waYknDTsfv3LDtvwMDsoHfdn1z/gkL8C7jxV8Yrz4kXtqw0jw3C0NpMwO1ryVCgxn7wWMyc9iyHvXy1+zZ+zJ4s/aa8dW2g+HLVo7BWDahq0oItrOLP33YjGTyFTqTxX75/An4N+H/gP8OdJ8G+G4THZWEYEkjcSXEpALyv/ALTHkjsCAOBWkmox5USfih/wVK4/bm+IoHAEemgf+C62r6d/4J4/
+AHQP2kv2HfiF4M15dguvEUklreKA0lpcLbQ+XKv0z07jI6GvmL/gqR/yfN8Qz326b/6bravu7/gi5/ybf4s5A/4qSTqcD/j2grlA/Jb4sfC/Xvgt8QtZ8IeJrNrLWdLnMUqkErIMZV0PdWUqwPow71+jf/BM79qaz+I3gvUf2evHl15wuLGa30Wa4YAzWzIQ9sWPdQSU/wBksP4RXuH/AAUw/Y9g+O3w6k8aeHLL/iu/DtuzhI1G6+s1O5oSP7y53p+K/wAQx+L3hzWtS8I6/Yapp1xLp2q6fcLPDNGSkkUid19CMc571pH3tgOn+Mnwz1P4M/E/xF4R1SPbeaVePEJCCokTJKSL6hlKN9CB61+rH/BNH9tXS/HXg3S/hf4pvktPFOkxLb6XJM/F/bKBsQMT/rEBKhc8qAeoavF/iB8P7b/gpJ8DrL4k+EYoYPjJ4ZgWy1vR0AQ6gvVWXPUn5jH9XRj8q1+eMlnq3g3WpILiC40vUrGX95BIrRSwSJn5SOGVwcnHXueK6dKiSe6HY/p3WT5lycknGegz6YqR2wpGdpx19K/C34U/8FRvjP8ADHT4dPn1Oz8U2cS/KuuQGWQYGADIGR2445Y11fjD/gr/APGTxBYyW2l2fh3w7I4wLqztWeYcdR5rug/nWDpSQ+U/TH9qv9qbw5+zH8NbnWtSmW41q4iaPSdHLnzbqYcDPdUX7zM3064FfgB4x8U6p8SPF+reIdXunvtV1S7a5urgKTulkbLNjqBknAHQACrXxA+JPif4peIJtY8Vaxd67qcpy1xeSF2I7AZyAoHQDgV91/8ABOP9g+/8b+IdL+Jnj3TJIPDFi/2rSrG8jO7UJcjbIUP/ACzVgGyfvY/u5FbRtTV2No9iX4Fy/An/AIJS+MtO1C3Ntrmr2B1fUIiOY5JZYhGjehWJEBHZtwHFfkbpo26hB/vD+df0F/t/Rhv2O/ihgcDTcj1z5qV/Ppp7bb6EnkBx/OlRu2xdLH9O
+3gfnwX4fJ5P9n2/P/bNa3PvcHpWF4DIbwP4ebn/kHW//AKLWt2uV7kn4mf8ABYbcv7VVowJ+bw7Z/wDoycV7b/wRHI+yfFterb9LP6XdeL/8Fi0x+1JpvQf8U5a9f+us1em/8EdPEll4Q8M/G7WtTmFtp+n2dheTu2MLGiXTM2T3yDx711tJUbICh/wWP+OA1bxd4a+GNhP/AKPpUf8AamoqhyBNJ8sSnHcJlv8AtqK+Kfg/+zR8Sfj3HqR8B+FbjXl01kW7aOaKJYmbcVUmRlBPynoTwB61ifGr4jX/AMYvip4n8X375uNZv5LrbydiMf3aj6IFXH+xX7af8E1vgx/wqH9mDw+95b+Rq/iB21m73cMDIMQr+EQQ49XNO/s4Kw7n5W/8O1/2jMhT8ObjHqdRsuPb/X0l5/wTe/aK06xnvJfh3MLeBGmlK6jaMdqgkkKsxJOM8AE+lf0AU1lDKeO1Y+2kB/Lxpl/c+H9Vtbu2le3urSYSJIMqyOhDDjsQ2PxFf0Wfs3/F63+OnwH8M+MIGXzb6x23caY/d3KfJIuO3zA/gPevxc/4KBfANvgH+0dr9naW/l6FrX/E100quFVJGy8Q7fI4dQOwC19Wf8Edvjhz4p+F99KMOjatpitxyMJMg/Dy2x6hjWtSPPFNAj81fHP/ACOuvqPlIv7jp/11av25/wCCVMQf9jbQBtUn+0r773/XUj+VfiN4+/5HrxDxj/iY3H/oxq/bz/glQh/4Y50LjO7UL7j/ALbGpqfAh9bn5Rftw/CB/gf+0p4u0KKLydMuLj+0NP3AgC3nJdQP905Tj/nnXJ+MPj/4g8X/AAH8G/C+8b/iTeF7+7vYmLfNIZduxGHYxs9wQR1ExH8Ir9FP+CznwZOpeE/CnxMso/32nTHS76Red0UmWiY+mGDj/gVfk1CjTSLHk/MR/h/Ksr81hWP0U/4I5fBg+IPinrvxAvLfzLHQLf7Lauy8G6lBBx7qgf8A77Fep/8A
+BbS32+BvhnIOCt/eDj3SOvp3/gnn8HW+Dn7L/hWzuYfJ1XV0/ti+yNpMkwDIMeqx+Wv4Gvmr/gtrGW+HPw2fPA1O6H/kJKW89B7H5kfs9k/8L6+HHPP/AAkendf+vmOv39/a6+MyfAT9n/xb4s37b6O1a209c/euZBsi/IncfZTX4Bfs/ru+Onw8A6jxFYH/AMmI6++P+Cynxw/tHxF4a+GNjdDydPX+19RiXn964ZIVb3VCzYPTzKizuSfnBBZaj4s8SQ2lpFJfapqFyIokU5eaVmwPxJNe6j/gnt+0LMuR8MNVPHGZIBxxgj95zxXpX/BKf4Kp8Tv2k7TXL+DzdL8KQnUnDD5TPykA9CQ53/8AbImv3KVAoA9Oc0N3A/npb/gnn+0Vu5+GGrEZySZoP/jleY/FL4J+Nfgjq9tpPjnw7c+HtTuYPtMVrcFCzRliobKkg/MMYzx+Nf0zfhmvhf8A4KwfAQfFD4BDxbp1u0+teEZGu9yrlmtXCrMD3ONqN+BoTA8D/wCCNvxzFjrfiH4YX0+2K9H9p2CscfvVAEqD3ZAG/wC2R9a/WHzV9f0r+af4A/FC8+DPxj8LeMbFpBJpd9HM0asRviPysh/3lYiv6PfD+uW3ijQdO1jT9QWSx1C3juoJFAYMjqGVvxBzjtnFJpsZvUjcKcDPHQVGWyR1/Ovn/wDaY/am034M6TLplhJb3/ii5jxDbMSUgU8CSXac4J4AHJNZ1KkaS5p7HZg8HXx1ZUKEbyY39qL9qDT/AIK6FJp1hIt/4ru48QW2RthX/nrJ6DPQdz1r4k+B/wAEfE/7T3jy41fVbm4bSjcmXUdXmB/eSHgom7+Ig/RQMVP8H/gx4r/ag8eXer6xdXA0w3Pn6jq0oBd2OCY0BGN2MjjhQAD/AHT9IfHr4+eH/wBm3wdD4B+H0NvFrawGFSuCtkp5LPnlpCMtz/vNmvEnJ1061X4OnmfseFwyyVLLMqXPi6nxS6RuJ+0J8f8A
+QP2c/B9v4B8AQQprMcXkhol3LZL/AHmJ+9KRkgNz3avnv9mn9mzVvj74ik8Q+IZZovDMcvmXN5K5d7yTOWUN168lqT9nP9nDWP2gPE03iPxLLcweG1m8y7vpnzLeyE7mUN9fvN6dOa9i/ad/ac074daKfhr8NPLs5LWP7NdX1oBttVxxFFjq/qf4f977uS5qn+0YhWitl3OqFOWCbyjK1z4if8Spvy99Q/ai/ae0/wCHOjN8OPhv5dlPbILa5vbVcLaAcmKL1fGcn+H/AHvu+d/sm/smy/E24i8W+L4mtvC8LboIZMg3hBzjnnyx1yeTyKd+yp+yfL8TLqLxf4xt2tfC8bGSG1kzm9PuT83ljrnqeldB+1d+1hHdQz+AvANwsGkxr5F7qNqwUOB8vkwlf4M9WHLdF4+8STlH6xidF9lERg6DeTZNrVf8Sp276h+1r+1hFcQzeAfANyLTS4P3F7qFmcBgvymGJh/CD1I5P3RwawP2aP2c9N0zRX+KHxOKaf4Zs0+1WtjdD5LjHSSQHkqPuqn8RP4tF+zX+zfZrpP/AAsv4jsuneFbKP7Va2138i3IA4kcddmPuqPvf7v3uN/aQ/aK1P44a9Fp2mxSWHhSzcCy06P5WlYcCV17nHAXsDkc1nK6tiK+/wBlHbRoQs8pyx8sF/Fq/nqUf2h/2hNW+PHiqO3so5oNAtpjHp2nrnLc4DMveQ8AjtwBX1n+x3+yLF4Aht/Fvi21R/EcoBt7OQA/Y1xwT6uR+Q6VV/Y6/ZBTwPb2XjHxlbLJ4hkQGzsJFBW0UdGYHrJj1+706819kRt8u3bXoYbDSqT+sVtX07HxvEPEVGlQ/sfKdKUfikt5MYq+W2FACVIue4707A9KWvYPy3Vu7CiiigAooooAKRuhxyaWigDyf9pT4A6d+0p8LbvwPq2pXWlWVzcwzm6tEV5AY23AYbjBPf3r58+BP/BLzwd8BvipoHjrSvF2tX97pEryRW91FEsT7ldM
+EgZ6N+lfbRUNwRkUbR6VSlJRsO4KdqikZAQeBzTqKkRy3xB+G/hj4qeHLrQPFWi2et6TccyWt5GGAbGAw7hvRhgjsa+APi//AMEaPDeuXk9/8PvF8/h8yfMum6rD9ohXJ5CyqwYD2KtX6UUVUZOL0A/G7/hzH8VPtBB8Y+EvJU8P5lznb7qISP1r2L4S/wDBGXw3pNxb3fxC8YXGvbCC+m6RCbeN+ejSklip6cKp9xX6X9eDyKQgEYIyKt1JS3A5H4cfC/wp8JvDtvoPhLRLTQ9MhwVhtYwu9scszdXb1J5rrtox096AoGcDGetLWTuwPiz9oT/gmL4E/aK+LWt/EHWvFfiHT9S1YQebbWBgMKeVBHCNuY2PSNCcnua9l/ZT/Za0H9k3wTqPhbw5q2o6vZ3t8dQeXU9nmBiiJgbFUYxH6d69twD1HvRtA4A460ANZQqs2MHHJA57/wCJr4n+J3/BKH4R/EbxprXiY3uu6BPqkxuJbLR5okgVz94qrxt1bn0FfbdJtX0Hr0oTad0B8m/s6/8ABP8A8L/sy+Nh4k8JeL/EjvLE0F1ZXTQvBdRt2dRECMNypFdV+0X+w58L/wBpfzb3X9LOn69gBNc0oiK4Jxj5+qy/8DGR2NfRG0HqB+VLgdcU7u/N1Hc/ITxv/wAEYvG1hfSjwn410XV7IklP7RjltZcdgQqyLkeuVHtWV4d/4IzfFG8vFXVvFPhrTLTI3NBJNcP78bB/MfWv2QPzdeaD83XmtPayA+Kv2ff+CWvwt+D+oW2r6+ZfHetw4KNqMSx2cbA5yLcFgTnHLu/4V9nQ28NnbpDFGkUMYwqKOBjpip6Kzbbeojzr47fClfjh8I/E3gWXUH0mPWrf7K16kQl8kblYnaSNxyvqOvWvg+D/AIIm6PbyrIfileEg540Vf/j1fpptA7UtOMpR2Hcy/DmlNoOg6dppl8/7HBHB5hBXdtULkjLcnGcZrTPQ8ke4owOOOnSlrO2txHx3
++1h/wTr0f9qz4l23jDUPGN5oMkenx2H2W2sFnXCOzbtxcYPznt2rC+H/APwTLsPhv8MfH3gnTPiHqItvGKWsF5dnT0EkcULu5RMSc7y5BJ7A+tfcOBnOOaaI0HRVHOentj+Vac0rWA/OXTf+CL3gmzvIZ5viBrFyEkVjEbKJFfBBx1JGfav0Q02xg02wtLS2jWOC3iSKKMKFCIqgAADgYHGKt4GMY4o2jOcDNDlKW4C0jDcpHtS0VIHy/wDtufsa2f7XnhnQ7eHVIdB1/R7lpINSlt/OHkuu2SJlVgcMQjD02n1r59/Z+/4JceL/AIA/Fnw/42074i6bczabPl7b+z5V8+EgrJGTv43Kx/Hmv0hwM5xzRtAzgAd/6VopySsh3Pym1z/gjL4i1zXtR1A/EbTFS7upZ9n2CQlAzFtuQ/vjNfdv7I3wFuv2a/gtpnga61mLXZbW5nnN7bxeUriRtwAUnjGa9tx7UVPM3owueaftDfBu0+P3wb8T+Br6VbVNWtSkVyybxBMpVo5NvfDqOBz1r8/PCX/BFq60fxLpd5qnxDs7/Tbe6jkurWPTZFaaIOCyAl+CRkZ96/U3aPQflRtHXFJO2wXK1rbJbWsUEaLGsSLGFXjAA4A+lfOH7an7Hzftf+G/DelDxKvhwaTcy3W9rMz+bvRVxjem3GPU/SvpjauSdoz9KNo54pBc/MbwN/wRtu/BXjbQfEI+Jdvcf2VfQ3gh/spl3+XIr4J83jO3Ga6f4zf8EoJ/jZ8T/EXjbVvihJDeavdvctC+jh/IQk7EB85chVCp+BPev0T7570m0dcc0+Z3EfOn7Gn7IOl/si+FdZ0i21j+3r/VbtJ5r9rZYGMaJtSPaHboTI2f+mmK+jKMAYAGAKKQB14qhr+hWXiTR73Tb+BbmzvIJIJ4WAIdHUqwP1BIq/R1680AfkfrH/BGXxf/AG1dy6T4z0A2HmubdLjz1cR7jsBxGQCE2gnPJzX3H8DfhZ8X/hD8
+KPDvg6TWPDeq/wBkQtAt1mb5k8xmQcx/wqwX/gNfRu0NwRkUeWrclQT9KHNjueE/tJ/HyX4UeH2stFsZdW8UXkf+j20ELSLEP+ekhA+76Ack8V8RfB/9nzxr+0N8Q7rUPE6ahZWH2jz9S1G9hKMzMOUjz95scZHCjrX6mtaxs2WRSemSKVbaOMYVQoxjgYriqYZVZe+9Ox9ZlufPKcNKjhqSU5fb6nyx8cviYn7PXgiDwP8ADrQJn1XyNiPb2rSR2asD8xOPmkJ+baeepavmT9nz9mfxD8b/ABhc634s+2WWixzedeXN1uFxdSE7zGC3uMljX6hG1jbqinvyKcsKL91FB9hUVMHCrNSk9unQ0wnElTA4WpToU0qs96l3c+Nf2lvi1rfgPw+Ph58MfDOp28cEX2eXULDT5THbIvBiiYAAtz94dDx1wa8m/ZT/AGQr7x5qS+KPG1lNaaHav+4sbiIo12V7sG5KA9u9fpAbaNlIMakHqMU4QqMfKAP8etOWEjOopyei2XQrD8S1MHgp4XC01GU/ind3fc+Fv2qvjR4n1CzuPAfw88P6tBo8INveahZ2MmJVXjyosLygHVsjPSuR/ZX/AGRLnXLv/hLvHunTWmk2jF7bS7iJg9wyjO515OzHAUcnOO9fow1vE2cqCevShYVHAGBSeDjUqe0qO9tl0KpcTVMLgHgsLTUHL4pXfMz85P2nLz4s/GDWBpmleB/EOm+ErV91taCwlXz2HAkkAxz6L0HXrXpv7Hf7IH/CItb+MPGdlt1ot5tlp8y/8e3bzHU9HP8Ad6L1HNfZ/kpnOBml2j0prBwVX2z1fTsTU4oxP9n/ANnUIqEXu1u/mQpH5bYAAUDFSLn9afRXefGat3YUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFF
+ABRRRQAUUUUAFFFFABSbun0paQKSBj0qWrgLRRRVAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB/9k=</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="Screenshot_3">
+      <MIMEType>image/jpeg</MIMEType>
+      <ImageData>/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAMCAgMCAgMDAwMEAwMEBQgFBQQEBQoHBwYIDAoMDAsKCwsNDhIQDQ4RDgsLEBYQERMUFRUVDA8XGBYUGBIUFRT/2wBDAQMEBAUEBQkFBQkUDQsNFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBT/wAARCAFaBcEDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD4Uooor91PzQKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooo
+oAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAP6O6KKK/Cj9LP5xKKKK/dT80CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigD+jvNFJtor8KP0w/nFooor91PzMKKKKACiiigAooooAKKKKBhRS471LZ2VxqN1HbWkElzcyNtSKJCzMfQAdaHorvYLa2RDS19ifAn/gmr47+JFtbar4oZfCWky4ZI7gBrl19dgPy/wDAsGvtj4d/8E8/hP4Ghhe50ptc
+u15M162QT9K+dxOeYXD6J8z8j1aOW1qyvsj8aoNPuboZht5ZR6qhNWP+Ef1QddNvP/Ad/wDCv390b4R+DvD8Yj0/w1ptqg6BLda3v+Eb0vAA0yzxjH+oX/CvGfE+vu0zvWTvrM/nj/4R/VP+gbef9+H/AMKX/hH9U/6Bt3/34b/Cv6G/+Ec0v/oG2n/fhf8ACj/hHNL/AOgbaf8Afhf8Kn/WaX/Pr8R/2P8A3z+eT/hH9U/6Bt3/AN+G/wAKP+Ef1T/oG3n/AH4f/Cv6G/8AhHNL/wCgZaf9+F/wo/4RzS/+gbaf9+F/wo/1ml/z6/EP7H/vn88f/CP6p/0Dbz/vw/8AhR/wj+qf9A28/wC/D/4V/Q5/wjel/wDQNtP+/C/4Uf8ACN6X/wBA20/78L/hR/rNL/n1+If2P/fP54/+Ef1T/oG3n/fh/wDCj/hH9U/6Bt5/34f/AAr+hz/hG9L/AOgbaf8Afhf8KP8AhG9L/wCgbaf9+F/wo/1ml/z6/EP7H/vn88n/AAj+qf8AQNu/+/Df4Un/AAj+qf8AQNvP+/D/AOFf0Of8I5pf/QMtP+/C/wCFH/CN6X/0DbT/AL8L/hR/rNL/AJ9fiH9j/wB8/nj/AOEf1T/oG3n/AH4f/Cj/AIR/VP8AoG3n/fh/8K/oc/4RvS/+gbaf9+F/wo/4RvS/+gbaf9+F/wAKP9Zpf8+vxD+x/wC+fzx/8I/qn/QNvP8Avw/+FH/CP6p/0Dbz/vw/+Ff0Of8ACN6X/wBA20/78L/hR/wjml/9A20/78L/AIUf6zS/59fiH9j/AN8/nk/4R/VP+gbd/wDfhv8ACj/hH9U/6Bt3/wB+H/wr+hv/AIRzS/8AoGWn/fhf8KP+Eb0v/oG2n/fhf8KP9Zpf8+vxD+x/75/PH/wj+qf9A28/78P/AIUf8I/qn/QNvP8Avw/+Ff0Of8I5pf8A0DbT/vwv+FH/AAjel/8AQNtP+/C/4Uf6zS/59fiH9j/3z+eP
+/hH9U/6Bt5/34f8Awo/4R/VP+gbef9+H/wAK/oc/4RvS/wDoG2n/AH4X/Cj/AIRzS/8AoG2n/fhf8KP9Zpf8+vxD+x/75/PJ/wAI/qn/AEDbz/wHf/Cq1xY3NngXFvNAW6CWMrn86/oibw9pSrk6bacf9MF/wr8nP+ClXxS0fxd8WLfw1o1vbJDoKmGaa3UDdIeWHHXGcfhXp5fnVTHVlSVO3d3OTFZfHDU+dzPjmlpThT60nU19T0ueIJR2zXq/wU/Zl8ffHnUUh8M6LI1lnEmpXX7q3j9yx+99Bk194/Cv/glX4Z0WKG58aa1LrN3gF7e1GyIH0yeSPwrycVmuFwj5Zyu+yO+jgq1fWK0Py5VS/wB0bv8Ad5q0mj30i7ks7hl9RE3+Ffuj4Q/ZN+FfguER2HhCwcgY3Txh2/M13tr8OfDFlH5cGgafGn90QL/hXgT4mpp2jTuepHJ5PeR/Pl/Yuof8+Nz/AN+W/wAKT+xtQ/58bn/vy3+Ff0J/8IH4d/6Alj/34X/Cj/hA/Dv/AEBLH/vwv+FR/rMv+fZX9j/3z+ez+x9Q/wCfG5/78t/hR/Y+of8APjc/9+W/wr+hT/hA/Dv/AEBLH/vwv+FH/CB+Hf8AoCWP/fhf8KFxOutMP7Hf85/PX/Y+of8APjc/9+W/wo/sfUP+fG5/78t/hX9Cn/CB+Hf+gJY/9+F/wo/4QPw7/wBASx/78L/hT/1nX/Pv8Q/sf++fz1/2PqH/AD43P/flv8KP7H1D/nxuf+/Lf4V/Qn/wgfh3/oCWP/fhf8KP+ED8O/8AQDsf+/C/4Uf6zr/n3+If2P8A3z+ez+x9Q/58bn/vy3+FH9j6h/z43P8A35b/AAr+hP8A4QPw7/0BLH/vwv8AhS/8IH4d/wCgJY/9+F/wo/1nX/Pv8Q/sf++fz1/2PqH/AD43P/flv8KP7H1D/nxuf+/Lf4V/Qp/wgfh3/oCWP/fhf8KP+ED8O/8AQEsf+/C/4Uf6zr/n
+3+If2P8A3z+ev+x7/wD58bn/AL8t/hTX0u9jbDWk6t6GM5r+hb/hA/Dv/QEsf+/C/wCFU7r4X+FLyQvN4d06Rjxk26/4Uf6zr/n1+If2O/5j+e142j+8pUf7QxSfQg/jX76al+zt8NtWjKXPg3SnBGM/ZwDXmXi7/gnz8H/FUblNCOmTNn95aPtx+Fb0+JaL+ODRlPKJr4Wfixj8aK/SP4h/8EmYZVkn8HeK/KcfdttRQ7T/AMCGf5V8d/F/9k/4l/BaeRtf8OXUlgv3dQsh58G31LLnb/wLFe5hs0wmKaUJ2fZnm1cFWo6yWh4/RTmUg4xz6Udq9U4hKSl2mkpgFFLRSEJS9aNp4GCTnGMV9E/AX9h34jfHJob2LT20DQGwTqWpAxhx/sIfmb64x71zVsTSw656rsjanRnVdoK587dOtOjheZgqKzt6KM1+tvw1/wCCYnw58KQxS+IprjxHegZfd8kWfYV9AeHf2bvht4YhRLDwhpqFRgO0IZvzr5mtxHh4u1JOR7FPKakvjdj8G/7Hv+osbkj1ELf4Uf2PqH/Pjc/9+W/wr+hKP4f+G4kCLodiqjgDyF/wpf8AhA/D3/QEsf8Avwv+Fcf+sy/59m/9jv8AnP57P7H1D/nxuf8Avy3+FH9j6h/z43P/AH5b/Cv6E/8AhA/D3/QEsf8Avwv+FH/CB+Hv+gJY/wDfhf8ACn/rN/07/EP7Hf8AOfz2f2PqH/Pjc/8Aflv8KP7H1D/nxuf+/Lf4V/Qn/wAIH4e/6Alj/wB+F/wo/wCED8Pf9ASx/wC/C/4Uf6zf9O/xH/Y/98/ns/sfUP8Anxuf+/Lf4Uf2PqH/AD43P/flv8K/oT/4QPw9/wBASx/78L/hR/wgfh7/AKAlj/34X/Cj/Wb/AKd/iH9j/wB8/ns/sfUP+fG5/wC/Lf4Uf2PqH/Pjc/8Aflv8K/oT/wCED8Pf9ASx/wC/C/4Uf8IH4e/6Alj/AN+F/wAKP9Zv+nf4h/Y/
+98/ns/sfUP8Anxuf+/Lf4Uf2PqH/AD43P/flv8K/oT/4QPw9/wBASx/78L/hR/wgfh7/AKAlj/34X/Cj/Wb/AKd/iL+x/wC+fz2f2PqH/Pjc/wDflv8ACj+x9Q/58bn/AL8t/hX9Cf8Awgfh7/oCWP8A34X/AAo/4QPw6euiWP8A34X/AAo/1mX/AD7D+x/75/PQ2n3SZ3W0w+sZ/wAKhaNlJBGD6Gv6Drj4T+DroN5vhrTXDdd1uvNc1rX7Mfww16NkufBul/N1aOEKauPE0L+9TJeTy6SPwV/l65pM/wCcV+x/jD/gmz8JPEiyNZ2NxoszZw1rJwD9K+cviV/wSh1ywimufBviO31LAytnfAxOfYNyM/XFepRz7B1dG+X1OOplleGqVz8/aK7r4mfA/wAcfCLUns/Ffhy80plbAmZN8Df7si5U/nXDV71OpCrHmg7nmTg4O0lqJRR60VqQFFFFAgpaMda7L4a/B/xd8XNcTS/CuiXWq3BIDtGuI4we7OflUfU1nOpGmuabsioxlN2ijjKXaewzX6L/AAq/4JQzyR295478RpEzAM9jpoLY9i5xz9Mivp7wX+wf8IPBqxlPDkeoTL1kvDv3e+K+dr8QYSk2oXketTyuvPV6H4oQ2NxcY8qCWTJx8iE/yqwug6my5GnXbD/ZgY/0r9+9L+DngnRFC2XhfTLYDpst1rdg8KaNbJtj0qzRfRYF/wAK8x8TLpT/ABO1ZP3mfz0f8I9qv/QNvP8AwHf/AAo/4R7VP+gbef8Afh/8K/ob/wCEc0n/AKBtn/34X/Cj/hHNJ/6Btn/34X/Co/1nl/z6/Ef9j/3z+eT/AIR7VP8AoG3n/fh/8Kj/ALHv8kGxuQR/0xb/AAr+h/8A4RvSf+gbZ/8Afhf8KqN4H8PSOWOi2Jb18hf8Ka4nfWl+If2P/fP56/7Hv/8Anxuf+/Lf4Uf2Pf8A/Pjc/wDflv8ACv6FP+EF8Pf9ASx/78L/AIUf8IL4
+e/6Alj/34X/Cn/rP/wBOvxF/Y7/mP56/7Hv/APnyuP8Av03+FH9j3/8Az43P/flv8K/oT/4QPw9/0BLH/vwv+FL/AMIL4e/6Alj/AN+F/wAKX+s3/Tv8Q/sd/wA5/PX/AGPf/wDPjc/9+W/wo/se/wD+fG5/78t/hX9Cn/CC+Hv+gJY/9+F/wo/4QXw9/wBASx/78L/hT/1n/wCnX4h/Y7/mP56/7Hv/APnxuf8Avy3+FH9j3/8Az43P/flv8K/oU/4QXw9/0BLH/vwv+FH/AAgvh7/oCWP/AH4X/Cj/AFm/6dfiH9jv+Y/nrbR75V3GyuAvqYmx/KoZLOeH78Eif7yEV/QtN8PvDc0ZjfQ7BkPVTAuP5VlXnwX8Dagu248K6XKvo1utV/rNHrT/ABD+x3/Ofz8Uu0+lfud4m/Y1+EnipSLvwhZxEjH+jrs/lXi/jj/glx8PNdWV9Cv7zRLhuVH+sjX8M12UuI8NLSaaOaeU1o/DqfkyVxSdK+wfit/wTO+JvgWOa70D7N4ssY8sFtZAk4HujYyfYE18oa94b1TwzqEtjq+nXWmXkbbXgu4WicH6MAa+hoYyhilejJM8yph6lJ+8jNop2DSbTXZ0ujmEopdpo2mkAlLQe1G3jNGlxh70V7N8D/2S/iL8ebpG0LR3ttLz8+qX2YYAPYnlv+Ag191/C/8A4JX+DtChim8Xatca7djBeKAeXF9PevGxWbYXCu05a9kd9HA1q3Sx+V4Rm6DcfQc1aj0e/lAKWVy2em2Fj/Sv3S8K/smfCrwfCqWPg+wfHRriMO35mu9sfh74a0tVW10KwhVeQFgXj9K8KXE0L+5TPUjk7a1kfz6f8I/qg/5ht5/4Dv8A4VG2j368GxuQf+uLf4V/RB/wjml/9Ayz/wC/Cf4VUbwPoEjFm0WxJP8A0wX/AArJcTvrS/Ef9j/3z+er+x77/nyuf+/Lf4Uf2Rff8+Vz/wB+W/wr+hP/AIQTw9/0BLD/AMB1
+/wAKX/hBPD3/AEBLD/wHX/Cq/wBZv+nf4h/Y7/nP56/7Ivv+fK5/78t/hR/ZF9/z5XP/AH5b/Cv6E/8AhBPD3/QEsP8AwHX/AApf+EE8Pf8AQEsP/Adf8KP9Zv8Ap3+If2O/5z+ev+yL7/nyuf8Avy3+FH9kX3/Plc/9+W/wr+hT/hBPD3/QEsP/AAHX/Cj/AIQTw9/0BLD/AMB1/wAKP9Zv+nf4h/Y7/nP56/7Ivv8Anyuf+/Lf4Uf2Rff8+Vz/AN+W/wAK/oU/4QTw9/0BLD/wHX/Cj/hBPD3/AEBLD/wHX/Cj/Wb/AKd/iH9jv+c/nr/si+/58rn/AL8t/hR/ZF9/z5XP/flv8K/oU/4QTw9/0BLD/wAB1/wo/wCEE8Pf9ASw/wDAdf8ACj/Wb/p3+If2O/5z+ev+yL7/AJ8rn/vy3+FH9kX3/Plc/wDflv8ACv6FP+EE8Pf9ASw/8B1/wo/4QTw9/wBASw/8B1/wo/1m/wCnf4h/Y7/nP56/7Ivv+fK5/wC/Lf4Uf2Pf8/6FcDHX903H6V/Qp/wgnh7/AKAlh/4Dr/hSP4D8OurKdDsSrcH9wv8AhR/rMv8An3+If2O/5z+ej+z7n/n3m/74NH2C5/595f8Avg1/QV/wqrwf/wBC1pv/AIDr/hR/wqnwd/0Lem/+A6/4U/8AWeP/AD7/ABD+x/7x/Pp9huf+feX/AL4NH2G5/wCfeX/vg1/QX/wqnwd/0Lem/wDgOv8AhQfhT4O/6FrTf/Adf8KP9Z4/8+w/sf8AvH8+n2G5/wCfeb/v2abJazQqDJDJGD0LKQPzr+gxvhT4PHP/AAjem/8AgOtfC3/BTbxL4M8H+EdL8FaTo+nw67fTC7kkgjCtDEoI7epb9K68JnzxdWNKNPc58RlqoU3Ucj81+vFWLXT7m+LC2t5bgr18pC2Pyqv39K/WX/gmX8H7XQ/gnP4l1Gyhlu9cumaJpow37lBhSMjjLF/yr2cxx0cvo+0tds4M
+Lhnip8qPyq/4R3Vf+gZef9+G/wAKX/hHdV/6Bl5/34f/AAr+hr/hHdL/AOgdaf8Afhf8KX/hHdK/6B1p/wB+F/wr5b/WeX/Pr8T2P7HX85/PJ/wjuq/9Ay8/78P/AIUn/CPar/0Dbz/vw3+Ff0OHw7pX/QOtP+/C/wCFJ/wjul/9A60/78L/AIUf6zy/59fiH9jr+c/nk/4R7Vf+gbef9+G/wo/4R7Vf+gbef9+G/wAK/ob/AOEd0v8A6B1p/wB+F/wo/wCEd0v/AKB1p/34X/Cj/WeX/Pr8Q/sdfzn88n/CO6r/ANA28/78N/hS/wDCO6r/ANAy8/8AAd/8K/oa/wCEd0v/AKB1p/34X/Cl/wCEd0r/AKB1p/34X/Cj/WeX/Pr8Q/sdfzn88n/CO6r/ANAy8/8AAd/8KT/hHdV/6Bl5/wB+H/wr+hz/AIR3Sv8AoHWf/fhf8KP+Ed0v/oHWn/fhf8KP9Z5f8+vxD+x1/Ofzx/8ACPar/wBA28/78N/hR/wj2q/9A28/78N/hX9Df/CO6X/0DrT/AL8L/hR/wjul/wDQOtP+/C/4Uf6zy/59fiH9jr+c/nk/4R7Vf+gbef8Afhv8KP8AhHdV/wCgbef9+G/wr+hv/hHdL/6B1p/34X/Cj/hHdL/6B1p/34X/AAo/1nl/z6/EP7HX85/PL/wjurf9Ay8/78P/AIUn/CO6r/0Dbz/vw3+Ff0Of8I9pX/QOtP8Avwv+FJ/wjul/9A60/wC/C/4Uf6zy/wCfX4h/Y6/nP55P+Ee1X/oG3n/fhv8ACl/4R3Vf+gZef9+H/wAK/oa/4R3S/wDoHWn/AH4X/ClHh3Sv+gdaf9+F/wAKP9Z5f8+vxD+x1/OfzxSaFqUQzJp90g9WhYf0qnJE8JxIrIfRhg1/RHdeENDvE2zaTZSr6NAv+Fchr37PPw58SI4vvCGmSl+rCABvzrSPEy+1T/El5O+kj8CBz2NFfsl43/4JwfCTxXG5tNPuNFuG
+z+8tX4z9K+YPih/wSm8VaPHPd+CtbtdbReRZ3J8iU+wJ+U/iRXr4fPsHWdpPl9TiqZZXhsrnwb1pK6nx58MfFfwy1aXTfFGhXmj3SEj/AEiIhXx3VvusPcE1y/XmvfhNVFzQ1R5coSi7S0Eopdpo2mrJEooooEFFFFAH9HW2ilor8KP0w/nEooor91PzMKKKKACiiigAooooAKKK1vCvhm/8YeIbDRtMhae+vJVijRR1JP8AKk5KKu9iopydkb/wj+E/iH40eMrXw34cs3ubqU5kkx8kK92Y9hX66/sz/sT+D/gPptteXFvHrXihlDS38ygiNu4QHpj1rd/ZR/Zr0j9nn4fW9rHAkmv3iLLqN4QCzOQPkB/uj/GvdEHy81+YZrm08VN06TtD8z7DA4GNGPNNe8Iq7cDGAOlO/ipaO9fNHshijmlooATmjmlooATmjmlooATmjmlooATmjmlooATmjmlooATmjmlooATmjmlooATmjmlooATmjmlooATmkalNRySBYyzEKoGST2FAHjv7VvxvtvgP8H9X1xpF/tKVDb2EJIzJMwwMew6mvw01jVbnXtUudRvJTPd3UrSyyMeWZjkn8zX1P/wUQ+P3/C2Pi1LoOm3Pm6DoJNumw/LJKOHb88j8K+TPu1+oZJgfquH9pJe9L8j47McT7apyR2Q7aWwMe1fef7Gn/BPyXxta2XjD4h20lppMm2W10pwVlmXqC47D261h/wDBPP8AZRT4na+vjjxJaeZ4e02UG2hlX5bmVTkHHdQa/V6KJIY0SNAiKAAijGMdBXmZzm0qcnh8O7d2dOX4FSXtKhQ8P+GdN8K6VBpuk2UNhZQIEjhgQKoArTX3p1LXwTvJ3e59Pa2iG4oFOopDCiiigApKWimAUUUUAFFFFABRRRQAUUUUAFNNOopAJ+dFLRQAlVbyxgvrd4LmGOeJxho5UDKR9DVuimrrVCPjn9oz/gnX4S+KFvd6r4T8vw14gILqir+4
+lb0IH3c+tflv8Tfhb4j+EXiq50DxNp8lhexHjcPkkXsyt0Ir+gxuleKftO/s16H+0N4HubC6ijttbhQvY6gEG5JAMhSeu0ng19RludVMPJU67vD8jxsZl8aqc4KzPwvyaK2vGXhHUvAninUvD+sW7Wuo2EzQyxt6g9axttfpcZRklKL0Z8hKLjLlY2r2i6Le+ItUttN022kvL66kWKGCJdzOxPAAqltJYAAkk4AAzX6m/wDBPP8AZHtPCHh+2+IXieyEmvXqbtPgmXP2aM/x/wC8f0FedmGOhgaLqS36HXhcPLET5VsT/sj/APBPXSfAtnZeJ/H1tHqevMA8WmuN0Vv3G71avuG3tIrOBIbeNYYUG1Y0XaFHtT1+WpK/KcViquLqOpVdz7ejRhRjywQnalXpS0VxG4nNHNLRQAnNHNLRQAnNHNLRTATmjmlooATmjmlooATmjmlooATmjmlooATmk5zTqKAENIy/jTqKQGL4l8I6P4w02bT9Z0231GzlGGiuEDCvgb9p/wD4JpW11a3fiH4aN5VyimSTR5Dw/c7G/pX6J01uld+FxtbCT5qcvl0OathqddWmj+dHWtGvvD2qXGn6jaTWN9bOY5beZSrIw4IIqjX63ft5fsf6f8UPCt54z8O2aWvizT4zJKsa4F3GB3A/iFfkpJC8MjxyKUkRirKeoI6iv1HLswhjqPPHRrdHxeLw0sPOz2GUtLtr1r9mH4H3fx6+K2m+H4gy2CsJr2bH3IgefxNd9arGjBzm7JHLCEqk1Fbnpf7HP7F2q/tA6gmuaykuneELd8G4YYN0wPzKnqO2a/Wn4ffDHw38LdBg0jw3pUGm2cKhf3aDe+B1Y9zWl4O8J6Z4H8N6foWj2yWmnWEKwRRRjACgdfqe5rcr8mzDMquOm7u0eiPucLhY4eK01I8U7mnUV5R3Dce1LS0UgEopaKYCUUtFACc0c0tFACc0c0tFACc0c0tFACc0c0tFACc0lOooAQ0m
+DTqKQDGXd2rzb4tfs+eCPjRpL2fiTRYLiUj5LqNAsqH1DV6ZSZrSE502pQdmTKMZrlkro/G79q79hXxF8Bmm1vRDJrnhPPM6p+8tx/00HYe/SvlTcTjHTvmv6L9W0201vT7ixvbeO6tJ1MckUqhlZTwQRX44ft2fsvx/AP4gf2hosRXwtqzmS2Xr5DHkx/Qdq/Qcnzh4h/V6z97oz5bH4FU17SnsfMC0tItL+tfY6nz46ON5pUjjRpJGOFRRkk9hX6K/sd/8E8Ib6xs/F3xJtWIkxLa6O3cdQZP8KzP+CdP7IkPiGSH4leLrFZbOFs6XZzLkO3aUjuB298V+mkSrHGqqAqgYAHSvhM6ziSk8Ph36s+ny/Apr2lVFLSdHs9DsYbLT7WK0tIVCxxQqFUAdsCrqr+FOpa+Fb5tWfSLTRDaXmlooATmjmlooATmjmlooATmjmlooATmjmlooATmjmlooATmjmlooATmjmlooATmloooASjmlooATmilprUAYXjjxdY+A/COreINTmWCy0+3aeRmOOAOB+JwPxr8IPjt8Vr74zfEvWPE965YXEzLAjfwRA/KBX25/wVB/aJYrafDHRbvAJFzqjQt6fcjP48n6Cvzk3celfovD+A9lTeIqLWW3ofKZpiOeapReiNLwzoNx4m8SaZpFspe4vriOBAB3ZgP61+/3ws8HW/w++Hfh7w7axiKKws44Sq9N2MsfxYk/jX5Gf8E8/ht/wn37Q2l3U0fmWeixteOSMjfwqg/mfyr9nlA6dBXmcS13KrGgnokdmU07QdRi80UtFfGanviUUtFMBKKWikAlFLRQAlFLRTASilopAJRS0UAJRS0UagJRS0UAIc0YpaKAENIw46U6imBynjr4a+G/iVo82meItHt9UtZF24mQFl9wexr80/2sP+Cdl98Oba88UfD8S6roseZJ9PxmWBe5UfxAe3NfqvUEsazRukiK6MCpVhkEV6WDx9bByTg9Oxx18LDE
+RtJan85LZUkNwc0ZNfbn/BRb9lm0+GfiJPHPhu2EGi6tIftVtGuFgm7kex6/XNfEi96/VsHioYykqtPZ/mfE16MqM3CXQSkoortOYKKKKAP6O6Kb+FFfhR+mH841FFFfup+ZhRRRQAUUUUAFFFLQMSvu7/glt8FY/E/jbWPHeoQCSy0dVtrQsMhp25Y/VRj/AL6FfCaqWYADJJwPWv27/Yb+Ga/DD9nXw5aPGI73UFbUrnjq8mMf+OKlfNZ9inQwvJHeR6+WUfaVeZ7I99VaetIO1LX5cfZi0UUUwCiiigAopm6vK/i9+0z4A+CNuz+JtcjiugMrZQfvJm9to6fjitKdOdWXLBXZEpxgrydj1eivz08Xf8Fb9Is7h08OeCLrUolPD312tvu/75V65lf+CvWrBn3fDe0IzwBqzcf+Qa9aOT42SuoHF9fw6+0fpjRX5o/8PetU/wCibW3/AIN2/wDjNH/D3rVP+ibWv/g3b/4zT/sXHfyC/tDDfzH6XUV+aP8Aw961T/om1r/4N2/+M0n/AA961T/om1r/AODdv/jNH9i47+QP7Qw38x+l9Ffmj/w961T/AKJta/8Ag3b/AOM0f8PetU/6Jta/+Ddv/jNH9i47+QP7Qw38x+l1Ffmj/wAPetU/6Jtbf+Ddv/jNH/D3rVP+ibWv/g3b/wCM0/7Fx38gf2hhv5j9LqK/NH/h71qn/RNrb/wbt/8AGaT/AIe9ap/0Ta1/8G7f/GaX9i47+QP7Qw38x+l9Ffmh/wAPetU/6Jta/wDg3b/4zR/w961T/om1r/4N2/8AjNH9i47+QP7Qw38x+l9Ffmj/AMPetU/6Jtbf+Ddv/jNJ/wAPetU/6Jta/wDg3b/4zR/YuO/kD+0MN/MfpY2M189ftt/HiL4H/Bu+mgnEet6orWtig67iMFvoM18sf8PeNUP/ADTW1P8A3GG/+M18rftO/tM63+0t4zg1fUbNdKsrWIQ2unRTGVIh3O7AyScnpXoY
+HI8Q68XWjaKOXE5hS9m1TlqeP3V1LeXcs07mWaRy7yNyWYnJJrd+Hngm/wDiN440bw3psZkvdSuY7eMY4G4gZPsK53jnivtn/glv8NR4k+Lt/wCKLiHfb6LAVicjI81xj9Ac193jMR9Vw8qi6I+Zw1P21VRP00+Ffw5034U+AtH8MaVGFtNPgWINjBkYDlz7k8/jXYU3FOr8blJzbk3qz7+K5UkgoooqSgoopKAFopnIFc74y+IXh74f6a+oeIdYtdLtVGd1xIFz9B1NVGMpu0VdiclFXZ0tFfH/AI2/4Kc/CjwvLJFp39peIJV72cCquc+rMOK81vv+CuGiKHNn4IvZefk865VM/XAOK9SGU42orxps4njcOvtH6FUV+cX/AA92T/onzf8Agx/+10n/AA94T/onzf8Agw/+11r/AGNjv+fZP9oYf+Y/R6ivzh/4e8J/0T5v/Bj/APa6P+HvEf8A0T5v/Bj/APa6P7Gx3/PsX1/D/wAx+j1FfnA3/BXhdp2/D4lu2dR/+11nf8PfNTyf+La23Xvq7f8Axmj+xsd/IP6/h/5j9MKK/ND/AIe+an/0TW3/APBu3/xmk/4e+an3+G1vj/sLt/8AGaP7Fx38gfX8O/tH6YUV8tfsi/tlX/7UGp6tbv4RGgwafGrNcLd+crMTwo+Re2K+o16V5dajPDzdOorNHXTqRqx5o7DqKKKwNQooooAbSH2paTpSA/If/gp34St9B+PsWo28flnVLNZHwMAspwT9ea+P8V9l/wDBUnxBDqfx0sLCJ972NiBIv93cR/hXxoOlfsGV831Knz9j4PHWVeXL3Pdf2Mfgw/xr+OGj6dLGX0uxP2+9JHSNCMA/Vio/Gv27srKLT7WC2t0WKCFAiIvAAA4FfD3/AASr+Fv9g/DXXfGd1Hi61m5FtBuHKxR8kg+jFh/3zX3XtFfBZ7inXxbgnpHQ+ny2j7KjzdWJ/jTqSlr509UKKKKACiimscUAOorz34kf
+HjwR8JbcyeJ/EFrp74yIS26Q/RRzXzV4q/4Ko/DXRpni0vS9Y1kg8SpEkaH82z+ldtHA4nEa04NnNUxNGn8Uj7Xor87r7/grlp0a/wCi+BLiVs/8tLwIMfgpqj/w93X/AKJ83/gx/wDtdd39jY7/AJ9nP/aGG/mP0for84f+Hu6/9E+P/gw/+10q/wDBXZf+ifH/AMGP/wBro/sXHf8APsf9oYb+Y/R2ivzib/grsn/RPm/8GP8A9rqC6/4K8SLCTB8OxJL2V9SwP/RdH9i47+QP7Qw38x+klFfmj/w981L/AKJpbf8Ag4b/AOMUf8PfNS/6Jpb/APg4b/4xR/YuO/kF/aGG/mP0uor80f8Ah75qX/RNLb/wcN/8Yr7J/Zd+O19+0R8Of+ErudB/4R+F7hoYYvP83eF6tnaOORXLiMvxOFhz1o2RvSxVKtLlg7nstFNU0tecdQtFFFABSUtFAFa8t1urWaFxuSRCjfQjFfgr+0j4Yi8I/HTxlpUChIYtQkKL7Nhv61+9s0iQwu7dFBY1+Dv7UWuR+Ivj/wCN72Eq0TX7orL04wP6V9jwy5e3muljwM3t7NNnln86/Vn/AIJd/CNfDXwwvfGF1BtvdYnKwsw5ESccexO6vy08P6TceINd0/TbWMyz3UyQqo65ZsV+/vwk8Ew/Dr4a+G/DkKKn9n2McL7ehk2/OfxYk16nEeJ9nQjRT1kcWVUVKo6j6HXKMU6k9aWvzk+sCiiimAUUUmaAForn/HHjjRvh34bvNd16+jsNNtELySyfyHqa+IPF3/BWjw3pupSQaB4RvdVt0bb59xOsO73AAbiu3D4OvitaMbnPVxFKj8bsff8ARX5xH/grwnb4et/4Mf8A7XR/w93T/onrf+DH/wC112/2Njf5Dm/tDDfzH6O0V+cX/D3ZP+ifN/4Mf/tdH/D3ZP8Aonrf+DH/AO10/wCxsd/IH9oYf+Y/R2ivzi/4e7L/ANE8b/wYj/4ij/h7sn/R
+PW/8GP8A9ro/sbG/yB/aGH/mP0dor84f+Hu6f9E9Y/8AcR/+10v/AA92T/onrD/uI/8A2uj+xsd/IH9oYf8AmP0dor84v+Huyf8ARPW/8GP/ANrrv/hr/wAFR/BvjLxBY6Rqvh7UtHnvJFijmjKzRhmOADyD19qieU4ynFylDRFRx2Hk7KR9vUVErblVs9Rmpa8c7wooooAKa3UU6koAYRgV8x/8FEPBdr4o/Zt1y7ljV7nTCtzC3cEHn9K+ne1fOf7f3iK30H9mXxQszgSXSLBEpP3mJrtwPMsTT5d7o5sQk6Ukz8UVHzHsa9O/Zz+EN18bvizonhmBWNvNMr3TgfciBy5P4A15kPXp3r9IP+CTvwx/ceJ/HN1B97FhaOR1HV2B9eMfjX6pmWKeFw0qi32XqfGYOj7auovY/QTwv4bsvCPh+w0jToVt7KziWKNFGAABitagLS4Ffj8m5O7Pu0lFWQUtFFIYUUUlAC0UVXuLyK0heWeVIYl5Z5GAA/E0B5liivM/EH7SPw08MStFqPjLS4ZVODGJgxz+FY3/AA2B8If+h307P+83+FdMcNXkrqD+4xdamt5I9lorxr/hsD4Qf9Dvp3/fTf4Uf8NgfCD/AKHfTv8Avpv8Kr6piP5H9wvrFL+ZHstFeN/8NgfCD/od9O/76P8AhR/w2B8If+h307/vpv8ACl9Vr/yP7g+sUv5keyUV43/w2B8IP+h307/vo/4Uf8NgfCH/AKHfTv8Avpv8KPqtf+R/cH1il/Mj2SivGv8AhsD4Q/8AQ76d/wB9H/Cpbf8Aa4+Ed1JsXxxpg92cgfyo+q1/5H9we3pfzI9goryv/hqT4U/9D3o//f8A/wDrUv8Aw1H8KP8Aoe9H/wC//wD9ap+r1v5H9zH7an/MvvPU6K8r/wCGo/hR/wBD5o//AH+/+tS/8NSfCf8A6HzR/wDv9/8AWo+r1v5H9zD21P8AmX3nqdFeWf8ADUXwo/6HvR/+/wB/9ak/
+4aj+FH/Q+aP/AN/v/rUfV638j+5h7an/ADL7z1SuD+NvxP0/4PfDXW/FGoyqkdnAxiVjgvKeEUepJI/WsY/tR/Cnt480f/v9/wDWr86f+CjH7UFt8WfEmn+EvC+pLd+GtN/0ieaAkpczkYGPUKCf++q9DAZfVxNeMJxaXXQ5cTioU6TcZXZ8nePvGl98QvGGq+IdTkMt5fTtKzE9ATwPyrn1AqPBJ561d0yxm1TULWyt0Lz3EqwxqO7MQAPzNfrMVGnBRWyPiJNzd+rP1G/4JX/DEaL8N9a8XTxATapciCEkc7EGT+GWr7r7155+z/4Dj+Gnwf8AC3h5UCSWtkhlwMZdhubPvk4/CvQq/HMdWeIxM6j6s++w8FTpRiuw+ikpa4TpCiiigAopG6VgeNfGulfD/wANX2va3drZ6bZoXlkb0Hp704xcnyxV2KTUU5PY6Civzo8ef8FaorPVJ7fwr4LN9aI5VLq/u/KZgD12Krfzrlf+Ht/ic9PA2n/+B7f/ABuvajkuNkr8h50sww8XbmP1Bor8vv8Ah7f4o/6EbT//AAOb/wCN0f8AD3DxR/0I2n/+Bzf/ABur/sPHfyC/tLD/AMx+oNFfl9/w9v8AFH/Qjaf/AOBzf/G6P+Ht/ij/AKEbT/8AwOb/AON0f2Hjv5A/tLD/AMx+oNFfl9/w9v8AFH/Qjaf/AOBzf/G6P+Ht/ij/AKEbT/8AwOb/AON0f2Hjv5A/tHD/AMx+oNFfl7/w9v8AE/8A0I2n/wDgc3/xul/4e4eJ+/gbT/8AwPb/AON0f2Jjv5A/tLD/AMx+oNFfnb4H/wCCssWq6taWWveBZbZJpFi87T7wTHLEDOxlX16Zr9B9Nvl1LT7a7QMqTxrKoYYIDAHn35rzcTg6+EaVWNrnXRr066bg7luimq3anVxnQFFFFABTe9OpuKAPEv2yvB9r4w/Z38X290oItrVrlDjkMtfhkOpGMV+6f7Yfii18J/s7+Mbi6OFns2t1
+H+03Svwq75r9C4Z5/ZTvtc+Uze3tFbcKKKK+zPnwooooA/o7ooor8KP0s/nEooor91PzQKKKKACiiigApaSlo8x9T0H4A+BJPiR8YPDGhJGXjuLxGlwM4RTkn9K/e7SdNh0nS7SygUJDbxLEijgAKABX5cf8ErPhk+u/EnW/Fs8O610m3WGJ2H/LVyTx+C/rX6qV+acQ4j2uJVNPSJ9hldLkpc/cFooxzmivlT2haKKKACiikoA4b41eOovhr8LvEfiSZ9gsbOSVTnncFOK/BXxd4w1bxxr13q+s3s19e3EjO0krEnk5wPSv1C/4KmfE7/hHPhTpfhO2m23et3G6VAeRCnOT7Egivyj74Ffo3DuFUcO68lq3ofJZrW5qipp7BjGccZoIpTSGvsNjwhaKSlpCEoopaAEoooo1AKKWkoQBRRRRqAUUtJTuwCilpKWoC0ZPU0UUt2PyAcmv2J/4Ju/DMeCfgFaapNDsvNaka6ZiMEpn5c/hivyV8A+F7jxl400TQ7WMy3F/dRwIg6ncwFf0AeC/DNt4M8J6RodmMW2n20dunGMhVAz+lfGcSYjlpxox66n0GU0uaTqG4KdTfWnV+fH1QUUUUAFJS0lADXIVST0HWvxG/bU+NmofFb42+IFjv5pNCsJ2tbSEP8m1eC2PUnP5V+tX7THxGT4V/A7xd4gMgjnhsXitzuwfNf5FI9wWz+Ffg1eXUmoXU9xMd0srmR2buSck19pw5hVKUq0ltoj57Nq7ilTi/Ug6cDpS5pKK/QWfLBRRRQAY96Me9FFABj3ooooAKVcnp17Ulbfgnw7P4t8XaRo1tG0s17cxwqqjqSQKiUuSLk3sVGPM+VdT9Zv+CafwzPgv4Cw6vcxBLzW5mud2OfLzhf0FfXa1z/gHwrb+CfBei6DbIqQ6faRW/wAo4JVQCfxIz+NdCtfjGLrPEV51X1Z+hUafs6ah2FooorkNgooooAb3qvfXkOn2dxdXEixW8EbSSSMe
+FUDJJ+gFWM9a+f8A9uT4nj4Y/s7+JbiOTy73Uov7Ot+epl+Vv/HS1a0aTrVYwW7Mqs/Zwcn0PyG/aC+IkvxT+MHifxJITturx/KUnO1ASAPpXEaXp8+sanaWFqu65uplhjGP4mIA/U1TkYyMWJyzHJr6A/Yb+Gx+JX7Q3h2B4jJZ6e5vZz2AQZGfxxX7FUksHhb9Io+EgnXrW7s/X74D+BYvhz8JfDHh+JAn2SyQPgY+YjJ/U16BUcMYjUKv3VGAKkr8bqSdSbm+p99GPLFIKKKKgoKKKTNAC1zHxM8VQ+B/Aet67cSCOOxtZJdzeoHH610u6vkD/gpp8UP+EL+BK6HBN5d94guPICg8mJAC5/8AHlrrwlF4ivCmurMK9RU6bkz8qPiH4+1f4jeK9R1vVr6a8lup3lXznLbFJOFA7YGK5rJ5zzR+Heiv2iEFTgoR2Pz+UnOTbEoooqiNAooopgFFFFAhfrSUUtJDLGn6fNql9bWduu+e4kWKNfVmOAPzNfvb+z74Di+Gfwf8L+H402m1s038YJYjJJr8g/2Jvho/xN/aG8NWjQ+baWc3264z02xjcP1Ar9wI4hHGqLwFGBX59xJiuecaKei1PqMpopRdRjvSlWk28Dmlr4o+iFooopgFJS0UAebftDePIvhv8HPFGvSyeWbazcIe+9hgY/OvwU1DUJtV1C5vJ2LTXEjSyMe7Mcmv0+/4Kt/FA6L4B8O+DLWX9/q9w91cqrfMsUYAUEejFm/75r8uB2xX6Rw7h/Z4d1X9pnyWaVeeqqa6H03/AME9fhl/wsD9orSrqePfZaIv2+TIyNw4QH68/lX7Pj2r4T/4JW/DM6H8OtZ8W3MO2fVbnyoXIwfLQAfzLV9218tnmI9vi2ltHQ9nLqXs6CfVi0tIKWvnz1AooopgFMOafUbN1I5NHUPM/Pf/AIKtfFD7DoPh/wAF20xEt2/2m5jVsfIOmfxxX5m8EYr7J/bI+FfxW+MXx48QavZ+
+DtUudJgkNpZOEG1ol4DDnvjNeIf8Mo/Fvv4H1M/8AH+NfqeUzw+FwkYuaTep8XjVVrVW+Vnk1Fesf8Mo/Fvt4G1T/vgf40f8Mn/Fz/oRtU/74H+Nev8AXMN/z8RwfV6v8rPJqK9Z/wCGT/i3/wBCNqn/AHwP8aX/AIZQ+LeM/wDCDap/3wP8aFjMMv8Al4g+r1f5WeTUV6x/wyf8W/8AoRtU/wC+B/jR/wAMn/Fv/oRtU/74H+NH1zDf8/F94fV6v8rPJ6SvWv8Ahk/4t/8AQjan/wB8D/Gj/hk/4t/9CNqf/fA/xo+u4f8A5+IPq9X+Vnk1fRf7BPwy/wCFk/tF6EJ4vMstKzqE4YZU7eFU/ic/hXOaL+xt8Y9eult7TwRfK5OC8xRFHuSTX6U/sN/sjzfs6+H7zUtelhn8UaoFEyw5KQIBwgJ6nJOeleLmmZ0aeHnGEryasehgsJUlVTkrJH1SoxT6bTq/LkfZhRRRQAUUUhpgIR8uOlfnD/wVg+JhX/hG/Bdu/wB7N5cKG7fw5r9HJHCqSeABkmvw1/bO+JR+KH7RHi3UYpBLYW101laspyrRxnYGHscZ/GvpOH8P7bF3e0Vc8nMq3s6NluzxGNTJtRQWZuABzmv3U/ZD+G6/C74BeFdGaMR3LWwuLgDvK43MfzNfkF+y78OW+KHxy8K6J5e+BrxJZ+Mjy1OWz+Ar93bO1SztYYI12xxoEUDsBXq8SYm/JQXqcGU0vimT0tJS18MfShRRRQAh6UnpS0nvSAbJII42ZjhVGSa/Ij9uH9rrxN48+Iup+FtF1GbTvDOmSGDbauVM7j7xYg9K/Tn48eKL3wh8I/E2p6daT3t/HaMkEFtGXkZ2+VcAe5/Svw91j4X+Pr7Up7u98K60J7mRpWZ7OTLEnJ7V9dw/h6MpyrVrabXPCzOpOMVCBxVxcSXEheaV5nPVnYmo8/hXVf8ACpfGZOf+EX1b/wAA5P8ACg/CXxl/0K+rf+Acn+Ff
+oSrUl9pfgfL8k+zOU5NGPSur/wCFT+Mv+hX1b/wDk/wo/wCFTeM/+hY1b/wDk/wp+2pfzIPZ1Oxym00vNdV/wqfxn/0LGrf+Acn+FJ/wqXxn/wBCvq3/AIByf4Ue2p/zIPZ1OxyuDS811X/Cp/Gf/Qsat/4Byf4Uf8Km8Zf9Cvq3/gHJ/hS9rS/mQezqdmcpRyOldX/wqfxl/wBCvq3/AIByf4Uf8Kn8Zf8AQr6t/wCAcn+FP2tL+ZByz7HK0V1X/CpvGX/Qr6t/4Byf4UH4T+Ml5/4RfVv/AADk/wAKPbUe6Dkne1mcpS1Pf6fc6XeSWt5BJbXMZw0UyFWH1BqvWnuvZGb0ClpKKfL2Qri0fWkop2sDb6ij0r339hv4Zt8Tv2jPDVtJD5thprtqN0GHAWP7v/j7IfwrwIHHXpX6af8ABKH4ZC08PeI/GlxFiW6kWzgZl/hXJbB98j8q8bNsR9Wwk2uux34Kn7WukfoKqbVAHQcCn4ox70CvyI+7FooooAKKKKAGSdK+Ev8Agqh8Uf7B+H2j+EbecrcapKZZlU/8s19f1r7tk+7X5i/tw/s/fGf44fHC/wBS0XwXeXvh+zijtbGYTRKJFCjcwBbPLFq9jKY0vrUZVpWS1POxzl7Fxgrtn5/ls+1IBivfP+GD/jv/ANE/vP8AwIh/+Lo/4YO+O/8A0T+8/wDAiH/4uv03+0MH/wA/V958l9Tr9Is8Dor3z/hg748f9E/vP/AiH/4uj/hg748f9E/vP/AiH/4ul/aOD/5+L7w+p1/5GeB0V75/wwd8eP8Aon95/wCBEP8A8XR/wwf8eP8Aon15/wCBEP8A8XR/aOD/AOfq+8Pqdf8AkZ4HRXvn/DB3x4/6J/d/+BEP/wAXR/wwd8eP+if3n/gRD/8AF0f2jg/+fq+8X1PEfyM8Do/Gvff+GDfjx/0T+8/8CIf/AIurem/sAfHLULpIJPBUtiG/5bXFxGEH12sT+lH9o4P/AJ+L7w+q
+V/5WYn7Gvw0b4o/tEeEtOkiMlhaXH266YDO1IxuXPsXCj8a/cyGMQxqigKqjAA6AV8q/sT/sa/8ADOdhd6zrtxDe+Kr6Py38jJit485KqSASScdu1fVqrX51nWMjjMTem7xjofWZfh3Qpe8tWKtLSUteAemFFFFABTGJp9MZgBnPFAHwB/wVc+Jn9m+EvDvg+CTEt9I11OqnkIvAz7HmvzD7Cvov9vb4nf8ACyP2jPEXky+ZYaSy6bBg/wDPMfP/AOPl6+dOOgr9dyeh9XwcI21ev3nwuOqOrWfkFFFFewecFFFFAH9HdFJz6UV+FH6Wfzi0UUV+6n5oFFFFABRRRQAoo6/Skrsfg/4Jl+InxM8OeHo0aT7deRxuqj+DOW/QGs6k1Ti5PoXGLk7dz9cv+Ce/wvPw4/Zz0iWePy7/AFqR9RmDD5lDYVV+mFz/AMCr6arO8P6RDoGhadptsnlwWdvHAijsqqAP5VpV+K4iq69WVR9WfodGCp04wXQKKKKwNQpKWkoAWkLADNGa5X4neMLfwH4B1zXbmQJFY2kkpLcZIU4pxi5yUUJuyufkj/wUY+JbfED9orUrOGXzLHQoxp8KqeAy/f8A/Hs18tVr+KPEFx4q8Salq1zIZJr24kmZm6/MxP8AWsk8tmv2jB0FhqEKa6H57XqOpUlJiUUUV2HOFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAC0UUdOaAPrv/gmf8MR44+PQ1u4iD2Xh+D7Ud3/PU8RkfQ1+wAWvjH/gl/8ADU+FPgnP4gngEd3rly0qsRz5QOF/DjP419n1+TZ1iHXxk+y0PucvpeyoLzEp1N5p1eGekFFFFABSNS012CjJoA/P3/gq58TRY+FvDvgy3mxJeTm7uEU87VGAPpk/pX5ig19E/t4fEg/Eb9obXGjk8yz0w/YocHIwp5P54/Kvnav13J8OsPhIJ77nwuOq+1ryCiiivYPOCiiigAooooAKKKKACvrL
+/gmz8MR46+P8Gq3EXmWWgQ/azkceaf8AV/qDXybX6z/8Eu/hmfC3wbu/ElxDtu9cumdWYYIiQ7VH0yCfxrwc6xHsMJJLd6Hp5fR9rXV+h9qL7U4Un4Utfk59wLRRRTAKSlooAZmvzP8A+CrXxM+1a34d8GW82UtlN3cIDxuPC5/Ov0ulkWGN3Y4VRkn2FfhF+1X8Rj8Ufjr4o1pZPMtvtLQW/OR5aEgV9PkGG9tiud7RR4+aVeShyLdnkn69q/TH/gk/8NPsugeJ/G08XzXMgsbZiOwO58fiF/OvzTht5LqaOGFS8kjhFUdSScACv3f/AGXfhunwp+BvhXQRGqXCWqzXJUY3SsMs316flX0nEWI9nhlSj9o8jKqPPV530PV1GDTqaM5p1fmh9eFFFFABSUtNNACNX5B/8FMvin/wnHx2GhW8m6x8PWy23Byplb53P1wyj/gNfrF428QQ+FfCmraxO4SKztnmLH2Bx+tfgF8SPFU/jbx5r2u3D+ZLf3kk272LHH6Yr67hzD89d1ntFHhZtW5aagupzm6ikor9HPkQooooAKKKKACiiigApaBToozNIqKpZmOAPWlJ2Vx76H6T/wDBJ34aiHS/EvjW4hIaQiwtnYdRnLkfiAPxr9FK8f8A2UPhmnwn+BPhfQigS6+zLcXRHeZwCxr2CvxzMK7xGKnU6H32Ep+yoxiFFFFecdgUUUUAJSM4VSScAUpPFcT8ZvGkXw/+F/iPXZZFj+y2cjKWOMsRgVUIuclFdSZS5U2fkL+3x8TD8SP2i9caKUyWWlBdOg5yAEyW/wDHmavn3SbCTVtTtbOJd0txKsSqPUnFT+INYn8Qa9qGpXDF5rud5mY9csxNe1/sO/DFvij+0X4cs3jD2WnsdQuQRxsjPT65I/Kv1+PLgcFf+VHwmuJxFu7P1++APgGP4bfB/wALaBHGEe2sozLxg+Yw3Nn8SR+FehbaRBtUCnV+Q1JupNzluz7uMVGKSEpaSlqC
+gooopIAphWn03FMA2+36UbRS80UCE2ijaKWigLIT5aML6UYoxQPQNoowKXFGKNRWQm0UjRhhinUUBYbsHTFAUA06jbR6jClpPwpaQBRRRTAKQ0ZFI3agDy79pj4kL8Kvgn4p8QiQRXMFm62zN/z1YEJ+uK/BeSRpJXd2JdiSSTyfc1+nf/BVr4l/2b4P0HwbBKRJfy/aJwp/gHQEfUV+YIG49K/SuHcP7LCyqveX5I+SzSpz1fZ9j9Av+CUXw1OoeKPEPjOeFTDYxi0gcjnzG6/oTX6divnb9g/4Xn4Yfs6eHIZ4RHqGpR/2jcHGGzJ8wDe4BxX0R3r4nNMR9ZxU5nv4KkqVFIdRSUteWdwUUUUAI3Sk5paOc0AMZdwweabJaRTY8yNJPTcoNS4paW2wrJlb+z7X/n2h/wC+BS/2fa/8+0X/AHwKsUVXNILLsV/7Ptf+faL/AL4FH9n2v/PtF/3wKsUUc0gsuxX/ALPtf+faL/vgUf2fa/8APtF/3wKsUUc0gsuxX/s+1/59ov8AvgUf2fa/8+0X/fAqxRRzSCy7Ff8As+2/59of++B/hR/Z9r/z7Q/98CrFFHNIOVdit/Z9r/z7Q/8AfA/wqK5tbO3gkkkghSNVyxKDgflV2vG/2ufiUvwt+APi3W0mEN39ka3tTnnzpBsT9SK1pRlVqRpp7szqcsYuR+PP7T3jODx78cvFer20ccVs946RLGAFKqSAeK8sqSaZp5GkYku5LE+p71HX7RRi6dONPsj8+qS5pNhRRRXQZBRRRSuBJbwtcXEUScvIwQDHUk4r93P2Vvh4nwy+BnhbR1TbMbZbib/fcZ/livx9/ZO+G0vxU+P3hLRBHvtluxdXJxkLHGN5z7EgD8a/dq3gS2hjhiULGihVUdgBgV8FxLiLyhQXTVn0+UUbJ1WSjpRzRS18OfSBRRRQAUUUUANbp603pyTT6TbQAD2oyPSjGKXn1pAJmjNLz60UwEzRmlooATNGaWig
+BM0n60760c9qAEC/5NKowKKWgAooooAKKKSgBa4T44eOovht8KPE3iKVgPsdlIyDOMsRgAe/Nd1XxD/wVK+JH/CP/CfTPC8Eu241e48yRQ3OxP6ZJrtwVD6ziYUu7ObEVPZUpTZ+VeralNrOqXd/cuZLi6meeRyeWZiWJ/MmqZWlwd1LX7RBKKSR+fybYlFFFMkKKKKQH9HdFFFfhR+ln84lFFFfup+aBRRRQAUUUUAHWvtX/gl78MT4m+Ll/wCJ7iESWmj2+1GYcCRzx+gNfFVfsZ/wTd+GJ8DfAC21W4iCXuvTG6Jxz5Y+VAf/AB786+fzzEewwjS3loetltH2ta76H1gvSnUlLX5SfahRRRTAKQ80tFADa+Ov+CnHxK/4RH4GroUE2y712byNoPJjHLfpX2K1fkJ/wU3+KI8a/Hf/AIR+2l32fh22W3IU5UysN7n6gtt/CvcyXD/WMZBPZas83MKvsqDt10Pj4KF4ooor9aZ8MFFFFIAooooAKKKKACiiigAooooAKKKKACiiigAooopIArU8L6LN4k8Rabpduu+a6nSJV+pxWXX03/wT1+GZ+IX7RGk3EsYey0Zft025cqSPug/UiuXF1VQoTqt7I6KFP2lWMO7P12+FHguD4e/Dvw/4egQImn2ccJA/vBRuP55rraavtTq/F5Sc5OT6n6DFcqsFFFFSUFJ3xS0nqaADNcL8cfH9v8L/AIT+KPE1zKsQsLCV4y3eUqVjH4uVH413FfCP/BVT4mDR/hro3g+3mIm1a6E9wgP3oo+QD/wLafwrtwND6ziIU/M5sTU9lSlI/L7WNSl1nVLu/ncvNcytK7N1JJJ/rVOlNFfs0Y8sUl0Pz9tt3EoooqiQooooAKKKKACiilo9Rmh4c0WXxDr2n6bbqXlu50iVR3JOK/fv4Q+C4fh98NfDvh+GNYxY2UUTqB/HtG79c1+Q3/BP34at8Q/2itGaRN9lpOb6fK5U7ein6nNftSvSvz3i
+TEc1aNFdNz6rKaXuOp3FopaSvjD6AWiiigAooooA8Z/a4+KEfwl+Afi3Wg5S8ktGs7QqcMJpR5aMPoWB/CvwqlkaaV5HO53YsT6k1+kH/BWD4l7LTw34JgmyGf7dcxqe44XPtzX5tZ/Cv0vh7D+xw/tXvL8j5DNK3tKvIuh7X+yD8N2+J3x+8Kaa0PnWkFyt3ceyR/Pz+IA/Gv3Pt4VhgSNRhUAUfQV+b/8AwSf+GZNx4l8aXEXCKLK3dhzknLY/AfrX6Rjoa+Zz/Ee2xXs1tHQ9fLKXJR5u45aWkFLXzR7AUUUUAFNPWnUxh60AfLH/AAUY+Jn/AAgf7P8AeWcE3lX2sTC0jwcHbjLH+X51+NfNfbf/AAVI+KieKPi9pvhK1l322gWuZ1B48+X5iPwQR/ma+JWr9UyLD+wwcW95anxeZVfaVrdhKKKK+hPICiiigAooooAKKKKAFHNewfsl/Ddvih8fPCukGHzbSO7S6uR1HlxneQfrtxXj+cc1+h//AASf+Gv2jVPEXjWeLIgT7HAxGPmbr+gNeVmeI+r4Wc/LQ78FS9rWSZ+k9rCtvbxwqu1I1CjHtxU9N6Utfj97n3fkLRRRQMKKKQ0ANPpXxX/wVG+Ji+F/g3p/hmGQC7166IK558qMAt+rLX2o3Oa/G7/go98Uz8QP2hLzTbeXfp/h+3WxRQcqZDl3Ye53KP8AgNe7kuH+sYuOmi1Z5mY1fZ0HbrofK1fpn/wSh+GX9n+H/E3je5g/eX0q2VtIw52IMsR9S2P+A1+aNnave3UNvGMvK4RQBkkk4r93P2WPh5H8M/gV4U0ZY/Lm+yrPMMfxv8x/nX13EOI9nhlSW8jw8qo81XnfQ9bXoKWkpa/ND68KKKKACiiipAKKTIozTAWikzRmmAtFJmjNAC0UmaM0ALRSZFGRQAtFJkUZFAC0UmRRkUALRSZFGRQAtJupaaaQC1FcTJbwvLKwSNFLMxOABWd4g8T6V4XsZLzVdQt7
+C3jXczzyBQB+Nfnf+2l/wUBttZ0W98FfDm7bZcqYb3WIjg7DwVi9M+v5YrvweCrYyajCOhyV8RChG8mfNP7cPxgi+MHx21e8sZ/P0nTj9itGVsqypwWHsSDXn3wH+HTfFP4t+GvDYVnivLyNZtvUR5Bb9M1we4seRk9cV9y/8Er/AIbnXPiVq3iq4i3waXB5cbMP+Wjdx781+n4pxy7AtR6I+Qpc2KxOvVn6kaZYx6dp9vbRKEjhRUVVGAABirfWj+GjvX5E3zO7PuUrKwtLRRQMKKKKACiiigAooooAKKKKVwCiiigAooopgFFFFABRRRQAjV+cn/BWL4mtHa+GPA1vLw7G/uwp544VSPyNfoxM4jQseABk1+Gv7ZnxK/4Wh+0F4n1KOYzWcM5tbcnoET5Rj8BX0mQ4f22LUntHU8jMq3s6PKt2eH7u3btRS0lfqJ8YFFFFAgoop0cbSSKqjLEgAdzR6jR+i3/BJz4YhrrxV46uYfuounWjsPU7pMf98p+Zr9I1PNeF/sV/DkfDT9n3w5YPHsurmP7VOcYJZsYz+Fe61+O5niPrGKnP5H3uDp+yoxiOooory7naFFFFFwCiiimAUUUUAFFFJkUALRSZFGRQAtFJS0AFFFFABRRRQAUUUUAFFJRmgAbpSUMeOtYHijxxoHgzT5rzWtWtdNt4xlmnlC/p1pxjKTskTKSiryNuaZbeN5HYKigszHoAOTX4vft7fGyH4wfHC9Wwm87SdFX7DbupyrMCS5H4nH4V75+2L/wUOg1rSb3wd8N53jScGO81hThivQrH6Z9a/O5nZ2ZmJZmOSSck19/kWW1KD+s11bsfM5njI1I+ygID+VJRRX2qPnQooooEFFFFAH9HO6inUV+FH6YfziUUUV+6n5mFFFFAC0UlKKGPzOi+HvhGbx3460Lw/bhml1C8jgG0ZO0sNxx7DJ/Cv398F+Grfwf4T0jRLVVWDT7aO3UKMA7VAJ/E5P41+T3/AATM
++GLeMvjsdfuId1noNs0qsRwJXO1f03V+vgHWvzjiPE+0rxox2ifXZTS5KXO+ouadTcUtfIHuC0UUUwCkalpG6UAYfjTxHB4R8K6rrFy4SCyt3mYk+gzX8/3xA8VXPjjxtr3iC7fzbjUryW6Z/Us5P9a/W/8A4KOfEseBfgDeafFKY7zWHFqm087f4v51+OOcr0r9C4boKFOdZrfRHy2bVryVNdBKKKK+yR86FFFFMAooooAKKKKACiiigAooooAKKKKACiiigAooooAP5Cv1S/4JU/DNdD+GGt+MbiDbdazdGGGQjrBGdv8A6GGr8udJ02XWNUtLKFS8txKsahepJOK/fP4E+A4fhr8JfDHh2CMILOxiVwBjLlQWP5k18jxFiPZ4dUlvJ/ge9lNHnqe0fQ74UtNWnV+cH1oUUUUAFIaWkoAaw96/GH/goV8TD8Qf2gtSt4Zd9lpC/Y48dMj71frp8VPF9v8AD/4d+IvEVy4ji06xmuMk45VCQPxOBX4B+KdduPE3iPUtWupDLPeTvMzN7kmvsuG8PzVZV300Pns2rcsFTXUyqKKK/Qz5UKKKKACiiigAooooAKX0pKt6Tp0usapaWMCl5biVY1VevJxSk+VXeyKiuZpH6g/8Ep/hauhfDvXPGdzBtutYufs8DnvBGOo/4GX/ACr7xHSvPPgD4Di+G3wf8LeH44whtLGMScYy5G5j+ZNeh1+M46u8RiZ1H1Z9/hqfsqUYi0UUVwnUFI1LRQA1qazCMFicAckmnGvNf2jPiJH8Lfgv4s8RtKsclrYyeRu6GVhtjH4sQKunB1JqEd2yJSUY8z6H5B/tqfEg/Er9oLxJepJvtLWY2kHcBU44rwr9SeKnvryXUL2e6mdpJZnMjMxySSc16P8As0/Dd/it8bvCfh/y/Mt5r2OS4GMjyUO9x+KqR+NfssVDB4bTaKPgZXxFZ+bP16/Yv+Gf/Cr/ANn7w1p8sPk311D9suQRzvcA4Ne6DFQW
+NrHZWcNvGNscSBFX0AGBVivx2tUdapKb6s+9pwVOCiuggzS0UViaBRRRQAVl+Jtah8O6FqGp3DBYbOB5mJOB8oJxWpXzT/wUA+JQ+Hf7PesJHN5d5qjCzhAPJB5b9K6MPSdatGmurMqs1Tg5PofkN8XvGU/xC+KHifxFcMXk1C+kkBJz8ucKPwUAfhXIU/du5PJ9aa3Wv2ilT9nBQXQ/PZyc5OT6iUUUVqZhRRRQAUUUUAFLSUtHkg2Er9wv2I/hofhj+zz4aspofKv7yIXlzlcNufnB+lfkR+zj8NX+LXxo8LeHPL8y3uL1GuVxn9wp3Sf+Og1+9NjarZ2sMEYASJAgHsBgV8LxJiFaGHXqz6XKKTu6jLGOadSUtfBn0wUUUUwCkalprUAc38RPFUXgnwPreuzuI47G0km3MeNwHy/rivwD8aeIJfFfizWNYnbfNfXck7se5Zs1+sf/AAUt+Jg8G/Ak6LDLsvNbuBCAp+bYoy39K/IIfdGeK/QuG8O40pVn1PlM2q801TXQ9e/ZN+Hb/E74+eFtGCF4BcC4mOMgIhySfbOB+NfuvbwpbwxxRKEjRQqqOgAGAK/Nr/gk58LXn1LxV4+uogYowumWbkc78b5cfgYq/SrbXhZ/ifbYrkW0dD08ro+zo8z6jqKQUtfNHsBRRRQAhpKWmkjrmpA+XP22P2uNR/Zl07RE0Gw0/UtW1B2ZotQDsixgdQEZTnPvXyR/w9q+Jn/Qq+Ez/wBsbn/49XAf8FEviUPHn7QmpWcEpkstHAtIwDlQwHzH8818ujpX6Xl+TYaWGhKtC8mfJYrH1o1ZKD0PuH/h7V8TP+hU8Kf9+bn/AOPUv/D2r4m/9Cp4U/783P8A8er4dor0f7FwP/Ps5P7QxP8AMfcX/D2r4m/9Cp4U/wC/Nz/8eo/4e1fE3/oVPCn/AH5uf/j1fDtFH9i4H/n2L+0MT/MfcX/D2r4m/wDQqeFP+/Nz/wDHqT/h7V8Tf+hU8J/9
++bn/AOPV8PUUf2Lgf+fY/wC0MT/MfdNr/wAFa/iKHP2jwl4YZP8AplHcKf1mNWf+Ht3jj/oTtB/8jf8Axyvg2il/YuB/59/mL+0MT/MfeX/D23xx/wBCdoP/AJG/+OUf8PbfHH/QnaD/AORv/jlfBtFH9i4H/n3+Yf2hif5j7y/4e3eOP+hO0H/yN/8AHKP+Ht3jj/oTtA/8jf8Axyvg2ij+xsD/AM+/zD+0MT/MfeX/AA9u8cf9CdoH/kb/AOOUv/D23xx/0Jug/wDkf/45XwZRT/sXA/8APv8AMP7QxP8AMfc99/wVp+Iz5Ft4V8MwqR1dLhmH/kWvP/Fn/BSb41eJFZbPV7PQVbgiwskY/nIGr5Ypa0hlGCg7qmiXjsRJWcjrvGnxe8a/ESYyeI/E2paqSclZ52K/go+UfgK5E9evFFIB1r1IQhTVoRscUpym/eY5fvV+yv8AwTo+Gf8Awgf7PGlX08Pl3uuH7c5Yc7G+5/47ivyU+FfgW7+JHxC0Hw1ZqTPqV3HAGAyFBYAt+Ar9/wDw/otr4d0Ww0yxiWCzs4UghjXoqKAAPyFfGcSYi0IUVu9WfQZTSvKVTsadFFFfAH1AUUUUAFFJSbu9IBlxIsMLO52ooyTnoB3r8wvi1/wU28feHviRr+meHbLRpNFs7p4bZ7iF2dlXjJIcd8190ftS/EaP4X/A3xVrTS+XP9la3g553yfKP5k/hX4RXl495eS3EjZkldnYk8nJ/wDr19hkOX0sSp1a6ukeBmWKnScY03Y+xv8Ah6h8Wf8AoHeH/wDwHk/+LpP+HqXxY/6B2gf+A8n/AMcr41bpSV9h/ZGC/wCfaPE+v4h68x9l/wDD1L4s/wDQN0D/AMB5P/jlA/4KpfFk/wDMO8P/APgPJ/8AHK+NKKP7IwX/AD7RP17EfzH2V/w9S+LI/wCYd4f/APAeT/45S/8AD1L4skf8g3w//wCA8n/xyvjOlo/sjBf8+0P69X/mPsz/AIep
+fFj/AKBugf8AgPJ/8cpv/D1L4sj/AJh2gf8AgPJ/8cr41pKP7IwX/PtB9er/AMx9oW//AAVW+K0cyO+leHpVByUa3lwfriQVpj/grV8Tf+hV8J/9+br/AOP18OfyorN5PgX/AMuxrH4hfaPuT/h7V8Tf+hV8J/8Afm6/+P0f8Pa/iZ/0KvhP/vzc/wDx+vhuip/sXA/yfmV/aOJ/mPtXW/8Agqv8Tda0m8sR4d8NWZuImj8+3iuN6ZGMjMxGfwr4xvLqbULua6uG8yaVy7v/AHmJ5NQ0ZNd+FwdDCX9jG1zmrYmrX+NgaSiiu05QpaSlpgJXon7PXgOT4k/Gbwn4fRDILq9QuMZ+RfnY/kprzyvvP/glL8LjrHjzxD43uoVa20q1Fnblhz50rA7h7hUcf8CrzMwxCw2FnUe9jtwlL21aMUfp9pdjHpmm21nENscEaxKAMDAAFW6bjvSrX443dn31raDqKKKACiiigBjfpXzt+2j+0/efsz+BtO1DR7Ox1HWr+48qGDUN5j2D7zEIynuO9fRDD5hzxX5G/wDBTj4nf8Jh8bINAt5d1rodssLKp48xvmbI9eRXsZVhVi8SoSV0tzgxtd0KTktzZb/grR8Tk/5lXwn/AN+rk/8Atej/AIe1fE5v+ZU8J/8Afm5/+P18PsMGha/QlkuB/wCfZ8p/aGI/mPtC6/4KrfFWWZnTSfDsI/55pby4H5yE/rUX/D1L4sH/AJh2gf8AgPJ/8cr41YbuvNJtArRZRgulNCePxH8x9lf8PUvix/0D9A/8BpP/AI5Sj/gqn8WP+gdoH/gNJ/8AF18aYFFH9kYP/n2gWOxH8x9l/wDD1L4sH/mHaB/4Dyf/AByv0F/ZJ+PUn7QfwlsfEN4tvDq6sYbyG2yEVx6Aknmvwu6dR0r7o/4Ja/Fz/hHfiJqHg27uNlrq0ZkgVjx5qjPHvgGvGzbKaEcNKeHhZxPQwWOqSqqNR6M/VXFFNVvypa/OT6sdRRRT
+AKKKKAGtX57/ALbn7WfxZ/Z/+LX9jaJc2cWh3tolzaSSWquy8lWXJ6kYB/4FX6DyetfDX/BVD4ajxB8LtF8V28G660e6MUjqOkUgGSfxRfzr1sq9k8XGFeN4s4cbzKi3B6o+KvEX7eXxx8SK8c3jie1gYY8q1tYIsf8AAhHu/WvH/EnxB8S+Mrgz65r+oatIe95cvJ/M8Vz7Uzn1r9WpYPD09YQSPip1qlTWUh9JRRXWjAKKKKkQUUUUAFFFFAH9HdFFFfhR+ln84lFFFfup+aBRRRQAUtFFJ7XKW5+u/wDwTJ+Gv/CI/BCbXZo9t3rdz5mWHPloML+GSa+xcV47+yGqL+zh4DEYAH9ng8eu5q9jr8Yx1R1sROcu5+gYaKhSikJtopaK4jpCiiigApsjbVz2p1NblaQH5R/8FUPiWPEHxa0zwnbz74NGtVeeMHgTSDd/6CVr4h+lfs/4/wD+CfHww+JXjDVfEutrqk+p6lMZpnF7IBk9gM8ADAHsK5//AIdf/BrH/Htqn/gdJ/jX3+CzrB4WhClZ6Hy+Iy+vWquZ+P3PpRX7A/8ADr/4Nf8APtqn/gdJ/jR/w6/+Df8Az76p/wCBr/413f6xYPz+45f7Jr+R+P1FfsD/AMOv/g3/AM++qf8AgbJ/jTW/4Je/BwqQsGqA46/bX/xo/wBYsH5/cP8Asqv5H5A0V+t//DrP4U84m1Qf9vTUv/DrP4Vf8/Gqf+BTVX+sOD8/uF/ZVc/I6lr9cP8Ah1n8Kv8An41T/wACWo/4da/Cr/nvqv8A4FN/jR/rDg/P7hf2ViD8jqK/XH/h1p8Kf+e+q/8AgU1TW/8AwS3+EscmZm1WVew+1sP60f6w4Pz+4f8AZVfyPyJ/Cj8K/YD/AIdf/Bv/AJ4ar/4HSf40f8Ov/g3/AM++qf8AgbJ/jS/1jwfZ/cH9k1/I/H80mfav2A/4de/Br/n31T/wOk/xo/4de/Br/n31T/wOf/Gj/WPB9n9w/wCy
+a/kfj/n2NGfav2A/4de/Br/n31T/AMDn/wAaP+HXvwa/599U/wDA6T/Gl/rHg/P7hf2TX8j8gNuaQe9fp/8AHb9gX4K/Cv4WeIPEbyahZzWluTBJJeO2ZP4RgnmvzALfMccjPBr18Fj6WPi5Uk7I48RhZ4dqM7an0D+w18Nz8SP2hvD1s6B7Wxf7ZOCM/KvNft0qhVAxge1fkj/wS1v4LX4/XkMm0STac4jY+o7V+t6+9fB8Q1HPGcvRI+lyqKVC66i0tJ/EKWvmD2QooooAKaeDTqbjk0gPir/gqR8U/wDhFfgta+FLaXZe+ILpFkVWwRBGd7H6FlVf+BV+TH1r9w/j/wDse+Ev2itcsNT8TXN8JLKEwwx28xVFB6kD1ry3/h1p8Kenn6r/AOBTV9vlWaYTA4f2c7827Pncbg6+JqcytY/I/j1o49a/W/8A4dZfCn/n41T/AMCmo/4dZfCn/nvqn/gU1ex/rDg/P7jzv7KxB+R/HrR+Nfrh/wAOsvhT/wA99V/8Cmo/4dZfCn/nvqv/AIFNR/rBg/P7iv7Krn5H/jR+Nfrh/wAOs/hT/wA99V/8Cmo/4dZfCn/nvqv/AIFNR/rBg/P7g/squfkf+NL+Nfrf/wAOsvhT/wA/Gqf+BTVLbf8ABLf4SxTBpX1WVP7v2tx/I0/9YcHbr9wf2TXPyLVTI20DJ9K+ov2G/wBnHX/iZ8WtI1m40uaPw3pcwnnu5UIRiOQoJ6mv0W8E/sJfB7wRMk8HheK+nQ5WS+Zpf0J5r3jS9IstFsobOwtIbO0iG1IYIwiKPQAcCvGxvEKq03SoR36s7sPlbhJSqMtIgRQBwBwKdSUtfEH0YtFFFMApDS0hOKAEr4D/AOCrnxObS/BOgeCreQq2ozfa7pQesafdB/4FtP4V99setfin+3t8Sh8Rv2iNdMcvm2emt9ii5yvyccfUivoMiw6rYxSe0dTy8yq+zoNdz5xFffv/AASj+G32/wAX+IfGE8al
+bO3+ywMRnDOeSPwBr4D21+o3/BJ6/gb4deJbNSv2iO7V2A64OetfbZ7UcMDLl6nzuWpSxCufegp1NWnV+Un2wUUUUAFFFFACZr8tf+CrHxQ/tfx9oPgu3kzFpdubu4VTx5khwAfcBM/8Cr9SSp7V8vfFL/gn34A+LnjrVPFeuXepyalqDh5NlywUYUKAB24FevldejhsQqtbZHDjKU61Jwh1Pxm4zxzSGv1v/wCHWfwq/wCfjVP/AAKaj/h1n8Kj/wAvGq/+BTV9x/rBgvP7j5z+yq9j8j6K/XD/AIdZfCr/AJ+NV/8AApqP+HWfwq/5+NV/8Cm/xpf6w4Pz+4P7Krn5H0Zr9cP+HWfwq/5+NV/8Cm/xo/4dZfCr/n41b/wKaj/WDB+f3B/ZVc/I/NGa/XD/AIdZfCr/AJ+NW/8AApqP+HWXwq/5+NW/8Cmo/wBYMH5/cH9lVz8j+e1SQwyXEmyJGkY8BVGTmv1407/gl98IbOQNOmp3RByA924H6GvWvAP7Ifwq+HU0U+leErF7qP7s91H5zfX5s81jPiTDx1hFsuOU1n8TR8kf8Eyf2dNb0XXb3x/4g02SygaAwWAnXa7burgHkDGfzr9HFX3psMK26qkahEUYCqMAD0qWvhMZip4yq6s0fTYejGhDkiJilooriOgKKKKACmv92lrJ8Wa9B4X8M6rrFyyrBY20lw5bphVJx+lNJyaSE9Fdn5Sf8FPvid/wlnxvtfDdvOJLTQbUI6qfuzyHLA/8BCfnXxxHGZpEjUbmYgAD1JxXR/EzxdP4++IXiDxDcuZJtQvZJtx6lScKPwUAV0n7OvgN/iT8ZvC2hLGZEmu1eRR/dU5NfsOFpxwWDSenKtT4OrJ4rEXXU/X39i/4cL8Mf2e/DOnGJY7m5iN7ccYLPJzk++0KPwr3P0qtpunx6bYW1pCNsUEaxKPYDFWsV+RVqjrVJVH1Z9zTj7OCh2BelLSL0payNAooooASuV+J/i+38BfD
+/XtfunCQ6fZyTk5x91Sa6uvi7/gqF8UB4T+Cdv4Zt5il34guAjBTz5Kct+B5FdmDoPEYiFJdWc+IqeypSm+h+U/ifxBdeKvEGo6xfN5l1fTvPIx7liSf51l7uSKap+bk044z0r9oppRjZH5/Jtu76hSUUVRAUUUUgCiiigBaKSigApaSigBaSiigBaSiimAUUUUgClzikpRQB9m/8EvfAMXiT42XWuXEQePR7YmMkdHYYr9blFfml/wSVuIl1bxlESPMKIwHfHFfpaD7V+VZ7OUsa0+iPtssio4dWHUUUV8+eqFFFFACU1uKc1IxpAfnh/wVe+J/2bRPDngi3m+e6lN7coG/gQYUEfVv0r80ueBX7D/tCfsA6b+0H8Rp/FWqeLdRs3eFYI7aFEKRoucAZX3rzT/h0d4Y/wCh11X/AL4j/wDia++yzNMFg8NGnJ69dD5jFYLEV6vOj8xKK/Tv/h0f4Y/6HXVf++I//iaP+HR3hj/oddU/79x//E16v+sGB3u/uOP+y8QfmJR/nrX6d/8ADo7wx/0Ouqf9+4//AImj/h0b4Y/6HXVP+/cf/wATS/1gwXd/cP8AsvEH5iUlfp3/AMOjfDPbxrquf+ucf/xNUZP+CR+m7js8a3e3PG6FM/yqln2Cf2vwJeWYjsfmlRX6V/8ADpDT/wDodbn/AL8p/hR/w6PsP+h1uf8Avyn+FP8At3BfzfgT/ZmI7H5q0cV+lX/DpDT/APodbn/vyn+FJ/w6Q0//AKHW6H/bFP8ACj+3cF/N+Af2ZiOx+atHNfpzH/wSN8OeWu/xtqgfHzbY48Z/75p3/Do3w1/0O2q/9+4//iaX9v4H+Z/cX/ZeIPzEo5r9O/8Ah0f4a/6HbVf+/cf/AMTR/wAOj/DX/Q7ar/37j/8AiaP7fwPd/cL+y8R2R+Yn4UDmv07/AOHR/hr/AKHbVf8Av3H/APE0f8OjfDX/AEO2q/8AfuP/AOJo/wBYMF3f3D/svEdkfmL+
+BIzRX6UeJP8AglX4T8N6DqWq3HjnUYobK2kuGkljjCqFUsSfl6cV+buoW6Wt/cxRv5kccjIr/wB4A4Br0cHj6OOu6XQ46+Fnh2ucg7gevT3r9q/2Afht/wAK7/Z20USw+Ve6oTez5GCS3T9B+tfkN8HfBcnxD+J3hrw/Em/7dexxtx/DuBb9Aa/fnw3o8Xh/QNP0yBdsVrAkSgdsDFfNcS4i0IUV11PXyineTqGjtxSgYpaK+APqAooooAKKKTdigDH8X65F4a8NanqkzBY7S3eZiTjoCa/AP4meMZ/H/wAQPEHiC4dnfUL2SYMx/hJ+X/x3Ffrd/wAFGvih/wAK+/Z5v7G3m8vUNdlFjEucNs6uR9Pl/OvxpxtwB0xX6Dw1h+WlOu1vp9x8rm9S81SQGig0lfaHz4tJRRQIKKKKAFrpPhv42u/hz460TxJYlhcabdx3AVTjcFYFl/EZH41zVOX8ves6kFUg4PZlxk4NNdD+hvwH4ss/HHhHR9d0+UTWl/bJcRyL0IYZrfFfEH/BLn4ujxT8L73wZeT773Q5N8CsefIY9B7A4Ffb4b2r8YxlB4etKnLoz9Aw9RVaUZodRRRXKdAUUUUANavPP2gvA0fxG+DvijQnQSNcWblAf7yjcD+leiGo5VWWNkcAqwwQe4q6c3TmpLoyZx5otH86GqafJpeo3VlMNslvK0TD3UkGqte5/tpfDtvhr+0P4n08R+XbXUgvbfsCj55H4hh+FeGV+14eqq1KNRdUfnlWLp1HFhRRRXQYhRRRSAKKKKACiiigD+juiiivwo/Sz+cSiiiv3U/NAooooAWjG7ikpRRuPzP18/4JrfFy28afBZfDksy/2loUnlmMtz5TcqQPTINfX+4V+Dn7M/x71L9nv4mWXiG1ZpLCQiG+tweJISRn8R1Fft58OviBo3xO8J2HiLQ7yO7sLtA6tGwO045U+hFflmdYGWFruol7sj7TL8QqtNRvqjqM0UmadXzp6wUU
+UUAFIaWigBOec0mOOlOooATFGPelooATHvRj3paKAE20YpaKAExRj3paKAEx70Y96WigBMe9GPelooASilooAT8abuHPNOrzj4/fFex+Cvwu1vxPeyqj28RW3jJwZJSPlUe/+FVTg6klCO7InJQi5PZHwR/wVA/aAXWvEFr8N9LuN1vYYnv9jdZSMqp+i4P418AD5uTWt4s8SX3jLxPqeu6nKZ7/AFC4e4mkbqWY5x9B0HsBWTX7HgcMsHh400fBYqt7ao5npv7N/wATD8I/jH4d8Rlytvb3KrMM8GMnBzX7waHrNr4g0m01KymWe0uolmikU5DKwyD+Rr+dLJ7V+jX/AATu/bChs7O1+Gfi++8sIdul3s74G3PERJ9O1fO8QYCVVLEU1qtz1ssxSpv2Uup+kYo3VHGwdQQc5GeKePY1+eH1Q6ikOaWgApMUtFACH6UYpaKAExRilooATFGKWigBMUYpaKAE2+9H60tFACUUtFACD3paKKQBRRTT1oAWkbpQTVe/vrfTbGa6upkgt4lLvJIcKoA5JNNXbtYT0V2cJ8e/idafCL4VeIPEt3KsZtLZzECcFpCMIo9ycV+CuvatNrusXuoXD+ZPdStK7dySc819Zft+ftYL8bPEieFvD1wW8J6VKWMini6mHG4+oHavj89sDFfp+RYKWGoupUWsvyPjsyxKrVOWOyG89q+vf+Cbvxqg+GvxkGg6lMsOneIlFqHdsBZv4PzPH418h1Pb3UtnNFcW8rQTxMJI5IzhlYHIIPY5r2sXh1icPKk+p59Cs6NRTR/RqrAqMHOeaXdXyd+xD+13Y/G7wnb6Brd3HF4usIgkisQpuVAxvA7n1r6v3d81+P4jDzwtR0qi1R95SqxrRUojs0tIG7UtcxsFFFFABSY60tFACUYpaKAExRilooATFGKWigBMUYpaKAGkUYxTqKAE5paKKACkyKWkAxQAtJmim57UAKzYxnpXyb/wUY+McPw9+CNzocFw
+q6rr7fZlQNhhEOWOPwA/Gvoz4ifEDRfhn4TvvEOv3kdlp9nGXZ3IBY9lHqTX4m/tTftA6h+0N8TLnWpi0el22YdPtj0jiz1+p4r6LJcBLFYhVH8MdTycwxKo0nFPVnjy5xnk9ea+8f8AglL8MjrHxA8ReMbmIPbaXbpbQMw/5ayEklT6gL/49XwWqlsDvX7YfsEfC9fhn+znoSSReXfaqzalcZGDl8BR9Nqr+dfX5/iPY4RwW8meHltP2lZS7H0dSd6Wivy4+yEpaKKAEozRmk4HNIBWPFfj5/wUs+Jn/CbfHqXSIpN9loUItVUHjeeX/Umv1m8c+JYPB/g/VtZuXCQ2ds8zMxx0BNfgD4+8UzeOPGWs67csTJf3Uk5LdcMxI/nX1/DlDnrSrPZI8HNqvLTUO5zoXqaKWkr9HPkwooooEFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABS0lLQM+mv+Cf/AMX7f4U/Hexjv5hb6ZrA+xTSMcKrE4Un8TX7PqwYKQc+9fzkRu0bB1JVl5DDtX6q/sJ/trW/j7SrDwP4yv1j8RWsYhtry4fm8AGBknq386+Gz/Lpzf1qmr9z6TLMVGK9jM+5c0Zpqtu6HNLXwR9MLS0lLTAQ0GlooAbS0tFACUbRS0UAJtFFLRQAlBFLRQA3mjmnUUAN5o5p1FACc0nNOooAbzRzTqKAG80madWX4i16z8L6Ff6xqMy21jYwPczyseERVLMfyFNK7sJuyPjX/gpl8eD4K+HsPgnTbnZqetn/AEgKfmWAHJz7HgfjX5QsetenftF/GC8+N3xY1rxLcuxglmKWkZORHCp+UflXmTjjrzmv1zK8H9Tw0af2nqz4bGV/rFZs+1f+CXPwvHir4vah4ouIS9poNqSrMMr50nyqPrtLn8K/WVelfKP/AATf+F6+Af2fbTUpYfLv9fl+2yEjBMYGIwfplvzr6uX7vvX53m+I+s4uUui0PqcBS9lQXmOooorx
+j0QooooASkY0Gs3xDrEWg6Hf6jOwWK1heVifYE04rmdkJuyuz8r/APgqZ8Th4q+LWmeF7ebfa6HaguqnjzpDkn/vnaPwr4lzn/Cu0+M3jaT4ifFLxN4glbeLy+kZD/sg7V/QVxh61+yYCh9Xw0KfZHwOKqe0qykJRRRXoHGFFFFABRRRQAU5e9NpV60wPoL9h34vH4T/AB80W4nm2adqUn2G4ycA7/lUn/gRFftrDKs0SSKcqwBU+ua/nMt7iS1uI5oWKSxsHRl6gg5BFfuj+yP8V4/jF8C/Dmt+aHvI4vs12vcSoAGr4DiTC2ccQl5M+oymteLps9oooor4g+jCiiigBKRu/pTqRulID85v+CsfwuElr4W8eWsOGQvpt5Io7ffiB/OSvzcweK/dH9sH4dr8TP2f/FOl+Xvmjg+1Q8dHTkEe+Cfzr8L5I3hkeNxtdG2sPQjtX6bw9X9phfZt6xPjs0pclVS7jaKWkr6nqeKFFFFABRRRQAUUUUAf0dZ9qKWivwo/Sz+cSiiiv3U/NAooooAKWkoo6gKK9x/Zo/aw8V/s564TYTNfeH7hgbrSZGPltj+JR2avDaKwrUKeIh7Ooro1p1JUZc0HZn7i/A/9sj4efG61gjsdWi07WGUb9Ou3CSA+gz1/Cvd0cOMggjsRX85NteTWMyS28rwyKchkbaQfavdfhn+258W/hdHFb2Pii41Gwj4Wz1L9+gHoN2cfhXxOK4bd28NL5M+io5skrVVqfuHRX5peC/8AgrVfRrGninwfFLjhpdOlILe+GOPyr17w/wD8FSfhZqKp/aFvqemM3UNAzgfior5+plGNp70z1Y47DyXxH2fRXzXpn/BQf4L6iu4+J0tuM4mRl/mK6C3/AG2vgtcbMePNLDN0VpgDXFLB4iOjg/uOhYilLaSPdKK8b/4a7+EOf+R60n/wIX/Gl/4a8+EP/Q9aT/3/AF/xpfVa/wDI/uH7an3PY6K8b/4a9+EH/Q86T/4E
+L/jR/wANefCH/oedJ/8AAhf8aX1Wv/I/uD21P+ZHslFeN/8ADXfwh/6HnSf/AAIX/Gj/AIa8+EP/AEPWk/8AgQv+NP6rX/kf3B7an/Mj2SivG/8Ahrz4Q/8AQ9aT/wCBC/40f8NefCH/AKHvSf8AwIX/ABpfVa/8j+4PbU/5j2SivFLv9sf4OWKhpvHelKCcD9+p/rVb/htn4K/9D9pf/f0UfVa/8j+4PbU+57pRXhf/AA2z8Ff+h+0v/v6KP+G2fgr/AND9pf8A39FH1Wv/ACP7g9tT7nulFeF/8Ns/BX/oftL/AO/oo/4ba+Cv/Q/aX/39FH1Wv/I/uD21Pue6UV4Z/wANtfBX/oftL/7+ik/4ba+C3/Q+6Wf+2oo+q1/5H9we2p/zHuR4z6V+U3/BTP8AaAHjTx1b+A9MuN2m6L811tPyvO3OD9BivrX4t/t6fC/w/wDDzWrzw74qstX1oW7LaWtvIC7SEYH5dfwr8dte1m68SaxfapfzNPe3krTzSHqzMSSa+s4fy+TqvEVY6Lb1PEzLFR5PZwe5R+9zRSUV+gHyotPhmkt5kliYpIhyrA4INR0HNHk9hptao+8v2Xf+CkWpeC7Wy8N/EMS6tpcQWKHVOs0SjgB/7wHrX6MfDv4ueE/ippqX3hnW7TU4iAWWGQF19iOor+fZWK9Titrwx4y13wXqEV9oWrXmlXkR3JNazNGwPrkGvlMdkFHEXnRfLI9rD5nOl7s9Uf0Q/ep1fjt8N/8AgpX8WPBKRW+qXFt4ptEGNt+v7w/9tB8x/E19CeE/+Cs+hXSoniDwld2cuPmktHDoPwzmvlK2R4yk9I39D26eZYee7sfoLRXyXov/AAUu+D2qBfOv7ywfv9otnAH44rs7H9uz4LX3XxpYwcZ/fNt/nXnSwOJhvTZ1xxVGW0j6BorxS1/bI+Dt4paLx1pRUd/PA/rVj/hrz4Rf9DzpP/gQv+NZfVa/8j+409tT/mPY6K8c/wCGvPhF
+/wBD1pP/AIEL/jR/w138Iv8AoetK/wDAhf8AGj6rX/kf3D9tT/mPY6K8c/4a6+EP/Q86T/4EL/jR/wANd/CH/oedJ/8AAhf8aPqtf+R/cL21P+Y9jorxz/hrr4Rf9DzpX/f9f8aP+GuvhF/0POlf+BC/40fVa/8AI/uD21P+ZHsdFeOf8NefCEf8zzpX/gQv+NH/AA158Iv+h50r/wACF/xo+q1/5H9we2p/zI9jorxz/hrz4Rf9DzpP/gQv+NUrj9tT4MWshSTx7pQYdf3wNH1av/I/uH7an/Me4UV846h+398FrAfL4st7rkj9wC/T6VxGuf8ABUD4TaarfYzqOpSAcLFbsB+ZGK3jl+KqbU2ZPFUVvI+xaY2OtfnN4u/4K3RKrr4a8FtI2Plk1GbC/kpzXzl8Sf8AgoJ8X/iJ5sK67/wj9jJkeRpS+UcHtvHzH8a9GjkOMrPWNl5nJUzKhDRO5+q3xc/aO8CfBexlm8R65bQ3CjK2aOGmb2CjmvzI/ar/AG+PEXxyhuPD+gLJoXhRiVkjRiJboejn0PpXyvqWrX2sXL3N/dTXc7HLSTOWYn1yap7t1fX4HI6GFtOfvSPCxOYzre7DRCjnvn8aKSivpLHj3FpKKKe+4XNTwz4m1XwbrlnrGiX02m6laP5kNzbuVZT+Hb19q/Sj9m3/AIKZaVrdra6L8TNunakoCLqka/upDwMsOxr8w6X+vHFebjMvo46Nqi179Tsw+KqYZ+69D+iPwx4s0fxhpcWo6LqNvqVlIMrNbyB1P4itmv58PAvxb8YfDW+W68NeIdQ0eYHJFtOyKfYjPI9jX1N8Pf8AgqZ8SPDqxW/iLTrDxLEuAZmTypMevy8E+5r4fEcO16d3RfMvxPo6Wa05fGrH61UV8H+Gf+Cr3gy+VV1nw5qWmt0Zo8SL+GMmvSNG/wCCkHwa1baG1meyJwCLm3dMfmK8ieWYyn8VNnfHGUJbTR9UUV4La/tw/Ba6Td/wnGnx
+/wC/IBWlD+2F8H7iJZE8d6SVboftC/41yfVa/WD+419vT/mR7RRXjg/a9+EP/Q86T/4EL/jQ37Xvwh/6HrSf/Ahf8aPqtf8Akf3D9tT/AJkex0V41/w158If+h60n/wIX/Gl/wCGvPhD/wBD1pP/AIEL/jR9Vr/yP7g9tT/mPZKK8b/4a8+EH/Q9aT/4EL/jR/w158If+h50n/wIX/Gj6rX/AJH9we2p/wAyPZKK8b/4a8+EH/Q9aT/4EL/jR/w158If+h50n/wIX/Gj6rX/AJH9we2p/wAyPZKK8b/4a9+EP/Q9aT/4EL/jR/w178Ief+K60n/wIX/Gj6rX/kf3B7an/MeyUV4VcfttfBe3VyfHmlsV/hWUE1z2qf8ABQj4MaapI8SrdY5/cRls/kKuODxEtoP7iXiKUd5I+lqTNfFevf8ABU34Y6erf2dZ6pqrjoqwGLJx6sBXj3jb/grRq9xHJF4W8IwWZYYWbUJN7L7gDg/jXZTynGVNoW9Tnlj8PDeR+mUkixqWZgoHOT2r5++OP7a3w5+C9rMk+qw6vrAyE0+xcO+7H8WOlflr8Tv2zPix8VFlh1bxVdW1jINrWdgfs8LD0KpgH8a8TmneeRnldpHJySxya+iwnDbuniZfJf5nl1s2W1JHtf7SX7Vniv8AaN1wS6nO1noluxNppcTkRp/tMO7Y714gPmb+VC07+dfa0aMMPD2dJWR89OpKrJyludx8FfA8vxE+KnhrQIhn7VeR7j/sg5P6Cv3z0LS4tD0Ww0+FQkVrCkSKOAAoxX44f8E/fEngzwd8bG1vxhqsGlR2toxtZLkgI0hIHX6Zr9PR+138Ien/AAnOk/8Af9f8a+C4hdWvXUIxbSPpcr5KdJuT1Z7JRXjn/DXnwg/6HrSf/Ahf8aP+GvPhB/0PWk/+BC/418t9Vr/yP7j2/a0/5kex0V45/wANefCD/oetJ/8AAhf8aP8Ahrz4Qf8AQ9aT/wCBC/40fVa/8j+4
+Pa0/5kexHtTTwteP/wDDXnwg/wCh60n/AMCF/wAaRv2u/hC3/M9aT+Fwv+NL6tX/AJH9we2p31keY/8ABSL4mHwL+z/dabBL5d7r0os0AOCU/jx+Br8dvT/OK+uf+CjHx70n4w/ErSrDw5qaaloOk2gAlgbdG8zZZmH4EL+FfInOa/S8kwzw+EXMrN6nxuYVva1tNkJRRRX0R5gUUUUCCiiigAooooAKKKKACiiigAooooAKKKKACiiigApaSigY7hl9Kmtbqaxuo7mCR4biNg6yxsQysO4I6GoVpGzRa90+oJtH3n+zT/wUs1fwnDZ6D8R/M1mwQCNNWAzOi9Pn/vfU81+iHw3+Mfg/4r6Yt74Y1211NCu4xxygun+8vUV/P3Wx4Z8Waz4P1KO+0TUrnTbuNtyy20pRh+VfKYzIaOIvOl7rPaw2Zzprlnqj+iVfuilr8ffhf/wUu+KXgeOK31p7fxZZpx/pykSgeu8fMT9TX0t4N/4Ks+CdRVF8Q6FqGjydHeMeaufbGTXyNbJcZR2jf0Pcp5jh59bH3ZRXzbon/BQL4MazGjt4mSx3f8/UZTH1yK3v+G2Pgt/0P2lf9/hXnSwmIi7OD+47Y16cldSPdKK8L/4bZ+Cv/Q/aV/3+FL/w2z8Ff+h+0r/v8Kn6rX/kf3Fe1h3Pc6K8L/4ba+Cv/Q/aT/3+FH/DbXwV/wCh+0n/AL/Cj6rX/kf3C9tT7nulFeF/8NtfBX/oftJ/7/Cj/htr4K/9D9pP/f4UfVa/8j+4PbU+57pRXhf/AA218Ff+h+0n/v8ACnR/trfBaV1RfH2lFicD98KPqtf+R/cHtqfc9xzRmvHf+GuvhD/0PWk/+BC/40f8NdfCH/oetJ/8CF/xo+q1/wCR/cHtqf8AMj2LNGa8d/4a7+EP/Q9aT/4EL/jR/wANdfCH/oetJ/8AAhf8aPqtf+R/cHtqf8yPYqWvHP8Ahrv4Q/8AQ86T/wCBC/40f8Nd/CH/AKHn
+Sf8AwIX/ABo+q1/5H9we2p/zI9jorxz/AIa8+EP/AEPOk/8AgQv+NH/DXnwh/wCh50n/AMCF/wAaPqtf+R/cHtqf8x7EelfCH/BTv49t4Y8GQfD7S7jZe6wA15sbDLCDnb+OB+FfQmp/tj/CHT9PuLk+NtLl8mNn2RzqWbAzgDPWvxz+P3xWvPjR8UtZ8UXLN5dxMwt42P3IgflA/Cvocly6VbEc9aNlHXU8vMMUoUnGD1Z5zzXR/DvwjcePPHGhaBbRmWTULyOAqvXaWG4/gMn8K5yvd/2MfF3g/wAB/HLSNe8aXS2WnWSSSRTODtWXaQp/Wv0HE1HToylFXlY+VormqRTP2r8GaDD4X8KaTpVuixxWdskKqowOABW2K+eV/b0+Cu3/AJHG0/Ol/wCG9vgr/wBDjafrX5DLCYmTbcGfeRrUkrKSPoaivnn/AIb2+Cv/AEONpSf8N7fBX/ocbT9aX1PEf8+2P29L+Y+h6K+eP+G9vgr/ANDla0v/AA3p8Fv+hxtaPqeI/kYvrFL+Y+hDXzj+3x8TP+FZ/s861JDN5V7qjCwgweSWBJx+A/WrA/by+Czf8zjafrXwl/wUS/aZ0T44a94e0fwnqS3+g6ZC80k0ZwrzucEe+FVfzNenl2X1p4qCnBpbnFi8VTVGXK9WfGw70rUnsaN26v1Y+KCiiigAooooEFFFFABSrSU5e9Axpxmvvb/glZ8Xv7B8baz4EvZitrq0f2m1VzwJkGSB6ZXd+lfBJxmus+FPjq6+GvxE0HxHbSNFJp93HKxHdQw3D8s152YYZYnDzpvt+J14Sr7Gspn9CVFeGaF+2T8JtR0WyupfGem28ksSu8ckyhkJHIIzxV7/AIa++EI/5nrSv+/6/wCNfkrwtdOzg/uPuFXpNfEj2WivG1/a8+ETf8zzpR/7br/jVFv21vgtGxVvHulZBx/rhS+rV/5H9xXtqf8AMe4+lJ1rw7/htr4K/wDQ/aV/3+FH/DbXwW/6
+H7Sv+/wo+q1/5H9wvbU+57TqFmmoafcWsg3RzRtGwPoRivwX/aS8By/Df41eKtDeMxpHeNJEMYzG53A/qa/X5v22fgswx/wnulf9/hX5u/8ABQrx14H+I3xdsNd8F6pb6qk1gqXc1udymQM2Of8AdxX1HD6q0cQ4Si0pI8bNOSpSTT1R8r0UtJX6IfKBRRRQIKKKKACiiigD+jnNFOor8KP0y5/OJRRRX7qfmYUUUUAFFFFABRRRQAUu0YpKKAFoyRSUtGoxKUEr0OKSilZdQ1F3H1NLuPqabRRZdgu+47cfX9aNx9f1ptFKy7Bdjtx9TRuP9402inZdgux25vU0bm9TTaKLILvuLk+tH40lFFl2Fr3F/Gjmkoosuw7vuLzRSUUuVBr3FopKKOULsXJznvR3yOtFJT9A13CiiimIKKKKAFopKKYC0ZPrSUUALtopKKQ7sUErwDijcfU0lFKyHdi7j6mjcfU0lFFl2C77i7j6mjcfU0lFFl2DmYu4+po3H1NJRRZdg5mO3H1P50bvc/nTaKXKhXfcdu9zSHrnOaSijlQXfcWlLZpKKoQlFFFA7hRRRR8rAFFFFAgooooAKKKKYBS7uMUlFIBaSlzSUtR3FpQxHQmm0UcqHdjt7f3jRvb1NNoo5V2Fdjt7ep/Oje3qfzptFKyC7Hb2/vGje39402ijlQXY7e3940b2/vGm0UcqC7Hb29T+dG9vU/nTaKOVBd9xaOaSimkuwai5NFJRVagFFFFIApaSl+nWmAfTijcfU0fl+dJx61MUtGkO4u4+po3H1NM2mnUWiF33Hbj6mjcfU0zmlpWQXfcduPqaNx9TTOaXPtTsugXfcXJ9eaSgt7UnNVp0ELRRRS0AKKPwooEFFHNHNMYUUUuD2H9KQCUUoHGaTHOM4o9ACij9aKBBRR+NGRRcYUUduPzpaAEopcUlMAooooAWikooAKXNJ/Kil53AXJoyaKSnfzAOvWiig1Puh8wpaT8KX8yf
+pRZBr3D8aOaMeoxRRZB7wc0c0UlKyFd9xeaMmkpaLIeou5vU/nRvb+8fzpKSiyDUdvb+8fzo3t/eP50npxRjPQUWQXYu9vU/nRvb1P502inZBqO8xvU/nRvb1ptFKyD5jixIwTxSZpKKasHzClzj2pKKbsA7caTdSfhQMUrLsGotFJRRYLi5pd9No59KLIBetFIPej+VNaWC7e4UUUuKBCUUoo9Pei+thiUUvFJTEFFFFIAooooAKXNJRTAduPqaNx9abRkUlp0HqLuPrRk0mRRkVNl2HdhS0mRRmnZBqLRSZHc4o7+tNe69BasWkpf5UoUsMgUrqK1BRY2inDDYwOvrTaYeoUUUUCCiiigD+jvNFFFfhR+ln84lFFFfup+aBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRS0AJR+GaKs6bYTarqNrZW6F57mVIY1HUsxAA/M0pNRV2Uk27I+6P2Hf2I/DHxu+Gt74q8Wi62SXZtrRYX2fKqgs30JYflX0h/w7G+Ef8Ac1D/AL/Gvd/gD8Pofhh8H/C3h2GMRta2SGXjB8xhubPvk4/CvRPSvybFZpiZ15ShUaVz7ijg6Uaa5o6nyJ/w7F+En9zUP+/xpP8Ah2N8JP7mof8Af419efnS59q5f7Rxf/Pxm/1Wj/Kj5C/4dj/CP+5qH/f40f8ADsb4Sf3NQ/7/ABr6+pM0f2jjP+fjD6rR/lR8hf8ADsX4Sf3NQ/7/ABo/4di/CT+5qH/f419e9aNtH9o4z/n4w+q0P5UfIX/DsX4Sf3NQ/wC/xo/4djfCT+5qH/f4
+19e7aWj+0sZ/z8YfVaH8qPkL/h2P8JP7mof9/jSf8OxvhJ/c1D/v8a+vqSj+0cZ/z8YvqtD+VHyF/wAOxvhJ/c1D/v8AGj/h2N8JP7uof9/jX17mij+0sZ/z8YfVKH8qPkL/AIdjfCT+5qH/AH+NH/DsX4Sf3NQ/7/Gvr3PtQaP7Sxn/AD8Y/qtH+VHyF/w7F+En93UP+/xrwz9sb9jH4YfAj4N3fiDSmvE1czxwWokkyCzHJyP90Gv0uzur8yv+CrnxK+1+IfDfg22mylqjXlwqn+I8Lkfia9XK8TjMRi4U3Udupw4yjRpUHJRR8E6Ho9x4h1vT9LtVL3N7PHbxgf3nYKD+Zr9XvDX/AATH+GB8P6adQW/a/NuhnImwN5ALfrmviT9gP4Y/8LG/aG0eWeIyWOkhr+TIyNy8KPzI/Kv2nVSqjHAxXqZ/j6tOrGlSla25x5bhYzg5zW58jf8ADsb4Sf8APPUP+/xpf+HY/wAJP+eeof8Af419d4zRtr5b+0sX/wA/Ge19Vofyo+Q/+HY3wk/uah/3+NL/AMOx/hGF+5qH/f419d7ainmWCCSVyFRFLFj0AFL+0cZfSoxfVaH8qPxk/bq+Bvgr4C+NtH0Pwm1wZZbUzXSTPuxliFI/I18+eDfDdx4u8U6TotsrPNfXCQKF68nmvR/2tfiQ/wAUPj74r1cSmW1iuTZ23PASP5ePqQT+Nekf8E5fhv8A8J1+0BaX00e+10aI3TZHAbPH49a/SqdSWEy9VKj1SufJuCq4rkgtLn17pv8AwSz+GD2Fsbm91b7QYl8zbNgbsDPf1qz/AMOsfhT/AM/mrn/tuf8AGvs0fpS1+bvMsW3/ABGfWLC0f5UfGP8Aw6x+FP8Az+av/wB/z/jR/wAOsfhT/wA/mr/9/wA/419n0lL+0sZ/z8Y/qtH+VHxj/wAOsfhT/wA/mr/9/wA/406P/gln8KEYE3WrMM/dM5wa+zKPaj+0sZ/z8YvqtH+VHyH/
+AMOx/hHj7modP+exo/4dj/CP+5qH/f419d4HrRgetL+0MX/z8YfVaP8AKj5D/wCHY3wj/wCeeof9/jS/8Ox/hH/zz1D/AL/Gvryjj1o/tHF/8/GH1Wj/ACo+Q/8Ah2P8I/8AnnqH/f40f8OxvhH/AHNQ/wC/xr67wKWn/aWL/wCfjH9Vo/yo+Qx/wTH+Ef8Ac1D/AL/GsjU/+CWHwwuo2+y3+qW0hOQTLuA/WvtPrSbTTWZYxO/tGL6pQa+FH5w+LP8Agkl8kknhzxkokx8sN9CQv/fQya+aPix+wj8W/hTDLdzeHpNc0yPrd6QRcfiUXLge5FftrtprQq6lWAZT1BGa9Cjn2LpP3/eRyVMsoT2VmfzkzW8trM0U0TxSKcMjqQwPoRTK/bL9ob9inwN8ctOuJxYxaN4h2kx6hbIF3N/tgdRX5HfHD4J+IfgT44ufDuv25V1+e3uVH7u4jyQGU/0619xl+bUcf7q0l2PncVgqmH13R57RS0Y7V7Z5ofjiul8C/DXxR8TNYTS/DGh3mtXjEApaxFgme7noo9zxXsf7If7JOs/tIeJGuZUey8J2UgF3fsuA7cHy09Tgj6Zr9fPhd8HfC3wf8Pw6T4a0uGxhRQHlVR5kh9Wbua+azLOaeCvSp6z/AAR7GEy+Vdc09EfnJ8Of+CU3jTWoYrjxdrdnoCyAFra3InlX2JXK/ka9w0X/AIJS/D63jA1LWtSvH9UOz9M19xbcdKNtfFVs6xtXedvQ+hhl+Hp7RufGY/4JY/Cnvd6sP+25/wAaP+HWXwo/5+9WP/bc/wCNfZoorl/tLGf8/GbfVaH8iPjL/h1j8KP+fvVv+/5o/wCHWPwo/wCfvVv+/wCa+zc0Zo/tLGf8/GP6rR/lR8Zf8Os/hT/z96v/AN/z/jS/8OsvhT/z96v/AN/zX2ZSYFH9pYv/AJ+MPqtH+VHxn/w6x+FP/P3q/wD3/P8AjS/8OsvhT/z96t/3/wD/AK9fZeBS8U/7
+Sxf/AD8YvqtD+RHxZdf8ErvhfIoEN/qkT/3jLn+tVf8Ah1T8Of8AoL6l/wB9/wD16+3Pwop/2pjF/wAvGT9TofyI+I/+HVHw6/6C+p/99/8A16P+HVHw5/6C+pf99/8A16+26Kf9qYz/AJ+MPqdD+U+JP+HVHw5/6C+pf99//XpP+HVHw5/6C+p/99//AF6+3cUbaP7Uxn/Pxh9TofynxDJ/wSr+HKqT/bGpAf7/AP8AXr87f2jPA3hn4b/FvWfDnhTUJNS0uwZYzPIc/vMDcM98HIr9d/2y/jlB8Dfg3qGoJMF1a/BtLKMH5mcjkj6D+dfiNeX1zrOpz3MzNcXd1KXZupZ2OT/OvsMjnia969ed49DwcxjSp2hTWpWwSR616D8LPgF48+M+oLa+FPD15qAJw1wUKQJ/vSNhR+Jr7K/Y7/4J4L4g02x8Y/EaFltZgJrTSG4LL2aQds+lfo14c8K6T4T02LT9IsINPs4lCrDAgUAfhVY/PqdCThQXNJdegsLlkqlpVNEfm18P/wDgk7r15FFL4u8T2unlgC1vYgyMvsSRj8jXuHh//gl18LtMVTfXGoai/cvJtB/Cvsrbj3pehr5KrnGNqv47HuwwNCnoonzJB/wTt+C8MSodAaQr/E0hyal/4d5/Bf8A6Fz/AMiGvpYmjA9a5Pr+K/5+P7zb6rR/lR80/wDDvH4L/wDQuf8AkQ0f8O8fgv8A9C4f+/hr6X20bRR9exX/AD8f3h9Vofyo+aP+HePwX/6Fw/8Afw0f8O8fgv8A9C4f+/hr6X2ijaKf17E/8/GH1Wh/Kj5o/wCHePwX/wChcP8A38NH/DvH4L/9C4f+/hr6X2ik2il9fxX/AD8f3h9Vofyo+a4/+CevwWjkDHw1vA/haQ1c/wCGA/gl/wBChD/32a+iNtLik8diX/y8f3h9Wo/yo+dv+GA/gj/0KEP/AH0aP+GA/gj/ANChD/30a+ice9GPel9cxP8Az8f3sf1ej/Kj
+52/4YD+CP/QoQ/8AfZpD+wH8El6+D4f++zX0Sf1pG+7R9cxP/Px/eL6tRv8ACj5L+Kn7HvwG+G/w/wBd8RX3haC3hsbZpN/mY+bHyge+cV+QWpPbzahdPaJ5do0rtFGeqoSSAfwNfoT/AMFRv2gPtF5p/wAMtIufkhAu9UaNv4jxHGfoMk/UV+d/3u3NfomRU6yoOrWk25d+x8rmM6ftPZwWiPeP2evgzoOt+G9b+InjuWSDwbojrD5EfEl/cEZWJPwxX0vD4J8QXlnYHRfh74ANneWa3troNxf2/wDaUluRkHazbskV4s0L69+wvYrpeZF0nxAzamkfJUMq7GbHYYPPvX0npWr+EU+KHwy0660yYeL5fCUH9mal5n7pJPLO1SveuDF1Ks5ua1127JHXh6cOSx8rfGj4T+FfEXw9k+IngOyl0gWd01lr3h6Y5awnHGR/smvmzdu5r61+HtrqWhfCH486h4jO2Ka+a0ckfLLeB33bfcE/hmvkqvfwEpWlBu6R5mLSupWs2FFFFeqeeFFFFAH9HXHrRS0V+FH6YfziUUUV+6n5mFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFJAFFFFMAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKYBXv37Dvw1b4lftDeHYJIvMsrBjfT5HGExgfmR+VeBV7R+zH+01qH7M/iDUtW0/Q7XWZb6EQkXEpTywDng4NcGOVSWHlGkvea0OvDOMaqlPY/dBFEaKvQDgU+vy9b/AIK3eKcH/ihtP/8AA1v/AIik/wCHuHir/oR9O/8AA1v/AIivzb+w8d/IfXf2hh/5j9RPwo/Cvy8/4e4e
+Kv8AoRtO/wDA1v8A4ik/4e4eKv8AoRtP/wDA1v8A4il/YmO/kH/aGG/mP1EzSEivy8/4e4eKv+hH07/wNb/4ivoj9jn9sjxP+014l1a1vfC9rpOmafCrNdQztJlznC/dH+TWFbKsVh4OpUjZF08ZRqvlgz68WlpqU6vJO4KTNFJSAXdxmjIqlq2ow6Tpt1e3DrFBbxtK7scBQBkk1+aerf8ABWnxBb6pdxWPgqwns0lZYZJLtlZkB4JGzg4rvwuCr4y/sY3sc1bEU6FvaOx+nPFFfl5/w9w8Vf8AQjad/wCBrf8AxFA/4K3+Kv8AoR9O/wDA1v8A4iu/+xMd/Ic/9oYb+Y/UP8KRunSvy9/4e3+Kv+hH07/wNb/4ik/4e3+Kv+hG07/wNb/4ij+xcd/IH9oYb+Y/T+aVYYXkY4VFLE/Svwk/au+IrfE747+J9YEnnQLctBA3bYuQP619E+KP+Cq3i7xD4d1PTIfCNhYSXltJbi6S7ZjFuUruA2dRnNfEccdzrOohVVprq6mCgL1Z3bgfiT+tfT5JltXAynVrqx4+YYuGIjGFJ3R+nv8AwSp+Gn9k+Bde8YXEOJdSmW2gcjnYvLfqRX3r/DXmv7Ofw8j+F3wZ8LeH0QLLBZo8xA6yMMk/0/CvSuw4r4rMMR9axM6vRs+gw1P2VKMRRS0i0tcB0jWryH9q74lD4VfAbxVriuFufsxtrcMcbpHGAB74z+VevN0r88v+Cr3xMNto/hrwXbykNOzXtwoPBA+Vc/TDfnXo5fQ+sYqEOlzjxdX2VGUj81J5XuJpJHfe7ksxbqSTmv1W/wCCWPww/wCEf+FWqeLLiELcazdFIWI5MSALx/wLd+Vflnoekz65rFjp9shee6mSJQBzliBX77/BfwLD8M/hX4X8NQRiIafYxxyKP+ehG6Q/i5Y/jX2vEeIVOhGhDr+R8/lVP2lV1H0O36CnU2nV+cn1gU1qdTW+tAAKWvn/APag/a88O/s02dpH
+e20uqateDMNlCQDj+8SelfJ8n/BW7UvNby/BEXl9t11z/KvUw+WYrEw56cbo4qmMo0XabP0v/Kj8q/M7/h7hqv8A0JMP/gUf/iaP+HuGq/8AQkwf+BR/+Jrp/sTHfyGP9oYf+Y/TLijivzN/4e4apz/xQ8H/AIFH/wCJo/4e4ap/0I8H/gUf/iaP7Ex38hX9oYf+Y/TGk4+lfmf/AMPcNU/6EiD/AMCv/sans/8AgrfeGYfafBC+V38m5y36gUv7Ex3SAv7Rw/8AMfpUMU6vL/2d/jXb/H/4c2vi210y40qGWV4fIucZyuMkEE5HNeoV404OnJxluj0IyU4qS6hSetLSVBQ3rXyl/wAFFvg/Z+P/AIFX2uLAv9q6CftKTYG7yzwy/wAq+r814X+2t4ot/C37NnjKadwpuLb7NFnu7MMfoDXZgpzhiacodzmxMYypS5j8NuOMdMcV23wc+GeofF74iaN4Z06JnlvJgrsBwiZ+Zj7YrigS2TX6E/8ABJ34Z/btY8T+OJ4sx2oXTrZ2HVyNz4PsCn51+r5jivquFlU69PU+LwlH21ZRP0C+Ffw10n4T+B9J8NaNbrBaWMQQ7RgyN/Ex9STk12HrSL1pc1+PSk5ycpO7Pu4xUVyxHUUUVJQlISKGPXNeY/EL9pL4c/DC4kt/EHiqxtLyP71sr75B7ELnB+tXCnOo+WCuyJTjDWTPThRur5yH7fvwZz/yMwx/1xf/AApf+G/fgz/0Mw/78v8A4V1fUcT/AM+39xj9Zo/zI+jN1G6vnL/hv34M/wDQyj/vy/8AhR/w378Gf+hlH/fl/wDCn9RxP8j+4PrNH+dH0bupa+cf+G/vgz/0Mw/78v8A4Uv/AA358GP+hmH/AH5f/Cj6jif5H9wfWaP8yPo3n1o/GvnH/hv74Mf9DMP+/L/4Uf8ADf3wY/6GYf8Afl/8KPqOJ/kf3D+s0f5kfR340fjXzj/w398GP+hmH/fl/wDCj/hv34M/9DMP
++/L/AOFH1HE/yP7g+sUf5kfRtRXV1Fa28k0zrHFGpd3Y4CgDJJr53/4b9+DP/QzD/vy/+FeMftXft9eDb/4S6hpPgTV2vta1L/RyyRsvlRkfMcmtaOXYmrOMOR6mVTF0YQcuY+Sf26P2hJvjl8YLyC0nZvDeiFrSyjB+V2B+eT8Tx9FFbn/BPP8AZ/i+MHxZfVdUthNofh9UnmD/AHZJWJ2J7/dJP4V8pySGSRmLZZzktX7K/wDBOn4Xj4d/s82F5NFsvtdmfUJSR8wUgIg+mEB/4FX3OZVI5bgPY0tG9P8AM+dwkXi8S5y2R9Q29ulvEscahY1GFVRgADtUtIvSnV+Zn12i2ENJS0h70hiBh0zzTq+Wv2v/ANtXTv2bxBo+n2i6v4nuYxKLcthIFPRnP9K+INQ/4KefGa4uGe2l0e2hPSI2W8j8dwr3MLk+JxcPaQSS8zzq2Po0ZckmfsJRzX45f8POPjb/AM/uj/8Agv8A/s6X/h5v8bf+f3Rv/Bf/APZV2/6uYzy+85/7Ww/mfsZRX45/8POPjb/z+6N+Gn//AGVH/Dzj42/8/ujf+C//AOzo/wBXcX3X3h/a2H8z9jOaOa/HP/h5t8bv+f3Rv/Bf/wDZUf8ADzb42/8AP7o3/gu/+zo/1dxfdfeH9rYfzP2MzRzX45/8PN/jd/z/AGj/APgv/wDsqP8Ah5t8bf8An90b/wAF3/2VL/V3F9194f2th/M/Yzmivxz/AOHm/wAbf+f3Rf8AwX//AGVH/Dzb42/8/ujf+C7/AOyp/wCruL7r7w/tbD+Z+xZ964r4xfEez+FHw51vxNeuqpZQMyKxxuc8KPzr8qP+Hm3xsYf8fujf+C//AOzrgvjL+2R8Svjt4XTQPE99ZnTVlExis7byi5AONx3HI5Na0eHcR7SPtWuX1M6ma0eV8u55h8Q/Gl98RPGWseI9RkaW71Cdpm3HoCeB+ArnNxo3ZXFJX6NTjyRUI6WPlJSc5Xe56j8C
+/jtqHwZ1K+Q2cWsaBqkfk6hpVx/q5l9fZh6165dfE/4L6vr2n+JpL7xhp+o2CKLWxjKsLcLnEaSbuAM8cd6+U6N3HSuGtgaVafPqn1t1OmGJqQVrHtnx4/aQn+Klla6Do2nf2F4VtZGmS1LAyTzMctLKw+8xOa8T/DBopK6qNGFCPJBWRhUqSqO8ncKKKK2MgooooA/o7opOaK/Cj9LP5xaKKK/dT80CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiikgCiiimAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABR2xRRQAUUUUAFFFFAC/r6V+vv/AATP+GX/AAhvwJTW54fLu9duGuAx6+WPlX/0E1+TXg7w7c+LvFWkaLaRtJcX11HAiqMkksP6V/QF8PfClv4G8E6H4ftlVYdNs4rYbejFVAJ/E5P418ZxJiOWlGgt3+R9DlNLmm6nY6FfSnUlLX56fVCUnFLSdKQHzf8At+fE5vht+znr4t5hFf6uv9nQ84OH+VyPcKSa/FOvvv8A4KtfEj+1PGWheDoZcwafF9pmVT/y0bp+hr4Er9RyHD+xwqk95anxmZ1vaVuXsFFFFfSnjhRRRQAucV7v+xL8Mz8UP2ivC9nJH5lnp8v9o3ORnCx8qf8AvvZXhHTmv0s/4JQ/DUW+k+JvGdzAFe4K2VvIRztB3Nj64FeRmuIWHwk332+Z6OBpe2rpdFqfofGgjUKBgAYGKdSLS1+Qn3QUUUUAMmcRxszHCqMk1+H/AO238Sm+JX7RHiS5jmMllYuLGHByuEzkj8c/lX7A/tAePIvhr8HfFXiCVwhtLJ/LycEuw2qB75P6V+B2
+o6hNq2o3N5O26e5laZ2PdmJJ/WvtuGsPzTnWfTQ+dzarZRpn0F+wT8Nj8RP2itE8yLfZ6Wft02RkZHQH/Pav2wVQFA7V8Af8Epfhn/Z/hDxB4zuIh5l7OLSByOdqDJ/DLV+gFeVnmI9ti3FPSOh25bS9nQTe7EopaK+ePVCmSnauTwByafTXXcuMZoA/E/8Abx+J5+Jf7QuvCGXzrDSpDYQbTx8nDfqDXzo2V4wcV/QTcfB3wReXElxP4W0uWaRizu9spZiepJqM/BPwG3/MpaT/AOAq/wCFfb4fiGlQpQpRpbI+crZXOrNzcz+frB9KMex/Kv6BR8E/AY/5lLSf/AVf8Kd/wpTwJ/0KWk/+Aq/4V1f6z0/+fX4mP9jy/nP598GlUH0r+gb/AIUr4D/6FLSP/AVf8KP+FK+A/wDoUtJ/8BV/wo/1np/8+vxH/Y8v5z+fnBz0NbXhPwjrHjfXLTStG0+fUbu5lWJEhQkZJxyew96/ez/hSfgP/oUtIz/16r/hWhonw28L+G7gT6XoFhYzDpJBbqp/PFZVOJoyg1CnZ+pUcoakuaWhi/Af4ex/Cv4T+GfDCABrGzRJTjlnIySffn9K9Bpq/KcU6vhpydSTm92fRxioRUV0CkxS0jVmWIa/PX/gq98Shb6F4a8GW82JLiR7y4RT/CMBc/8Aj1foPIwVWJ4xzX4iftyfEk/Ej9orxHcRymSy09lsIMHIITO4/wDfRP5V9JkOG9vi+Z7R1PJzKr7Oi0t2eCRqZJAqglmOABX7ifsU/DOP4X/s6eFbAwrFfXsP9oXZxyzyncM+4TYPwr8fv2d/AcnxK+MvhjQliaWOa7R5do6IpBJ/Sv3u02xj06xt7aFdsUMaxIo7ADH9K9jiWv8ABRXqzgyml8VQs0tFFfCH0oUlLRQB5L+1D8VB8H/gv4i8QRyiK8SBo7Uk8+awwuPoa/CrWNYvfEGoT32oXUt3dTuZJJJnLEknOSa/oH8f/Djw58Tt
+JGl+JdMi1WwDhxBNnbu/CvOx+xr8HD18Eaf+R/xr6bKsyoZfB80W5M8jG4OpiZLllZH4W49s/SjafQ4+tful/wAMafB3/oSNP/I/41DdfsU/Bm8jCSeBrAqPTcP617/+s1D+Rnm/2TU6SPwz4o4/ya/cL/hhX4I/9CJY/wDfTf40f8MK/BH/AKESx/76b/Gl/rLR/kYv7JqfzI/Dz8f1oxX7h/8ADCvwR/6ESx/76b/Gk/4YV+CP/Qi2P/fTf40/9ZaP8jD+yanWR+HuBS8dMV+4P/DC3wR/6EWx/Nv8ayvFX7F/wM8PeG9U1O48E2MMNpbSTNJub5dqk5601xJRk0lBillM0ruR+Ke0en60u0f5NavilrGTxJqjabH5Gn/aXEEec7U3HArKIr62LvFNdTwZLlbQY/zmkxRRViOo+GXhSfxv4+0HQreMyveXccZUDtkE/pmv388HaBB4W8K6TpFugjis7aOBVHbaoFfk1/wTN+Go8afHWTWp4y9roVt52cceYxwo/IN+Vfr6K/N+IsR7SvGkvsn1uU0uWl7TuKKWkFLXyJ7ohqK6nS1t5ZnOEjUsx9ABUrVXvLOK+tZreZd8UilGX1B4Io06iZ+EX7UnxLf4sfHjxd4hMnmW0l48Fsc/8sYj5aH2yqivKGNfug/7G/wflkZ38E6ezMcsxByTnr1p3/DGfwc/6EfT/wAj/jX31HiHD0acaap7HzVTK6lSblzH4Wc+lHNful/wxn8HP+hI0/8AI/40v/DGfwc/6EjT/wAj/jXR/rPQ/kZn/ZFT+ZH4Wc0nPpX7p/8ADGfwc/6EjT/yP+NH/DGfwc/6EfT/AMj/AI0v9ZqH/Pth/ZFT+ZH4WZNLX7pf8MZfBz/oR9P/ACP+NH/DGXwc/wChI0/8j/jT/wBZqH8jF/ZFT+ZH4XZozX7o/wDDGPwc/wChI0/8j/jR/wAMY/Bz/oSNP/I/40v9ZqH/AD7Y/wCyKn8yPwtoB7V+6X/DGfwd
+/wChI0/8j/jXG+NP+CeHwa8V28kcGhS6JOw4m0+baQfXkGnDiXD3s4NEvKKlt7n4wUV9R/tUfsJ+I/2fY31rTbo+IPCpbb9qWPZLAT0Ei88e4P5V8vY619Ph8TSxMFVpSujx6tGdCXLUQyil7UldBiFFFFAgooooAKKKKACiiigD+juiiivwo/Sz+cSiiiv3U/NAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigBaKSl/CjyBH1f/wAE2/hoPHH7Qltqs8Jks9Bh+1luwlJwn8jX7GKBXxH/AMEufhj/AMIz8JtQ8T3EOy61q5Plsw58tBgfhnNfblfk+d4j2+Mk1stD7jL6XsqC8xaWkWlrwj0wqtfXSWVnLcSNtjjQux9gM1YbpXh37ZXxMX4V/s++KdVSbyb2a3NpakHnzZPlX9TW1Gm6tSMF1ZnUkqcHJ9D8g/2lfiI3xR+NXirXt/mQSXkiQHOQY1Yhf0ArzClZyzEnqTk02v2qlSVKnGC6H55Ulzzcu4UUUVqZhRRRQBJDG1xMkScs5Cge5r91f2S/hyvwx+A/hjSTH5dw9utxPxg72Gf8K/IH9lL4bSfFb4+eENCWPfbG9W5uSRlRFFmRgfqF2/jX7uW1ulrbxwxqFjjUIqjsAMAV8HxJiFeFBerPp8opWvUJlpaTpS18MfSCGmtntTjTWI2k9BSDzPg7/gq18T/7H+Hnh/wXbS4uNUuWu7hVOD5cYwoPsS5/75r8urO1kvrqC3iXdLK6xqvqScAV9H/8FAviV/wsT9ojV0ilL2ekotjE
+ucjIyWx+LVzX7Gnwz/4Wn+0J4X0ySLzbK2m+23Q7BEwf5la/VMvprAZf7Sfa58XipfWMVyo/Xz9mf4ep8Mfgj4T0IRiOeOySafAwfMf5zn3G7H4V6nUcahFCqMKBgCpK/MKk3Um5vdn2MI8sVFBRRSVmWGfejikNIpzSAXilyKT8qPyoAXNGaT8qPypALzS03JpaYBRigGlpgJiiijNABn86Q+/FN3e4rP1rxDpvh2xkvNTvrextYxlpriQIoH40JNuyE2luch8e/iBb/C74ReKfElw+z7JZv5fPJkYbVx75IP4V+B+qX82raldXty+6e5maaRs9WZiT+pr7S/b8/bIsvi7OvgjwhOZfD9pLvubwZAupBwAv+yOfzr4jZfmPOfSv07IcDLC0HUqqzl+R8hmWIVaooxex93/8Erfhn/bHxA13xbcREwaZCsELkceY5JOPwAr9S1zur5q/4J9/DE/Dr9nPRJbmLy9Q1lm1GYEcqG+VB9Nqg/8AAq+lh1618RmuJ+s4ucui0+4+hwNL2NBRY6iiivIO8SikzRuweaQBxRxR15o/KgA4peKT8qPwoAXIoyKT8qPwoAXIpDR+FFABxXzP/wAFCPigPhv+znrEcMmy+1qRNNg5wfmyzH6bUb8xX0s1flV/wVR+Jh8RfE7RfCdtcb7XRrdpZ0U8GZyOD7gA/wDfVevlOHeJxcI9FqcGOq+yoSaPhzr170jUKd2DQ3Wv161j4TzEooopgj9Qv+CSuhwQ/Dvxjqw2/abjUlt29dqRhh+sh/KvvjnFfkJ/wT8/aq0j4C6/quheKHeDQdYZHW6UbhBKMjJHoRj8q/WDw1440Hxhp8d9our2ep2sihlkt5lbg+o7H61+U5zh6sMXObjo3ufa5fUi6EY31Ru5ozTVdW6EGlz7ivAPUFoODSfjRQAvFLkUlJn3FADsijIpufcUZ9xQA7IpDSZ9xS5/GgA5pabkUm75sUhklFFFMApKWigDkvit4dsv
+FHw58R6bfwrNbTWE25WGRkISD+BAr+f7X7dbHWr+2j+5DO8YP0Yiv3X/AGo/H6fDb4G+K9ZLhZBaNBED3Z/l/kTX4O3cz3V1LPJy8jl2+pOa++4ZjLlqN7HzGb8vNFdSOkoor7c+bCiiigAooooAKKKKACiiigD+jrHvRRzRX4Ufph/OLRRRX7qfmYUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVf0PS5db1ixsIELy3E6QqB6sQKoV9H/sD/AAvb4mftFaEJo/M0/SQdRuAw+UhThVP1Jz+FcuKrLD0Z1H0RvQg6lSMEfrx8F/A8Xw7+Fvhnw9EnlmysY0kH+2Rlv/Hia7YLikVQOlOr8XnN1JOT6n6FGKjFRXQSlooqChG+6a/Nn/grD8TfMu/DPge3lBSMG+uUH948ID+GDX6RXEy28MkjHCoCSfpX4X/tffEg/FL4/eKtVWXzLWG5a1g548uP5R/KvpuH8P7bFqb2jqeTmVXko8q6ni59aSlpK/T/ADPigooooAKWiiNWZgoBLE4GKdtLj9D9E/8Agk78MxJqHijxvcRE+XEthbOw45IZyPf5QPxr9KBXgv7E3w3X4a/s++HbNl23N3H9rmOMEsw7173ivx3M8R9Yxc59Nj77B01SoxiLRRRXlnYNY1yHxc8YQ+Avhr4i12eRYls7ORwzHHzYwB+ddexr4v8A+ConxSXwn8F7HwvBLtvvEN1tK558mMAv+rJXXg6LxGIhSXU58RUVKlKbPyn8Ta3N4k8Qajqlyxa4vLh52Y/7TE81+hn/
+AASf+GOyLxP43uIsNIy2NszDoB8zEH/gQ/Kvzjhja4mjiXJZm2qPqa/c79j34cL8MvgD4X0zZtuJoPtk3HO6Tn+WK/QM/rKjhFSi/i/Q+Yy2n7XEc7PaRyOafTc8U6vzQ+vCkJpaaTzQBzXxK8ZW/wAP/Aut+Irp1jg061knZm/2RkV+Usn/AAU7+LLSu0f9mKrMSFMB4HYHnrX1l/wVA+KA8J/BO38NW8/l3uv3Gxgp58lOWyPQ5x+FfkiMemK+6yLLaVeg61aN7vQ+azHFzp1OSm7H10f+CnXxd/vaZ/34P+NJ/wAPOvi7/e0z/vwf8a+RmxSV9P8A2Vg/+fSPH+u4j+c+uv8Ah518Xv72mf8Afg//ABVNf/gpx8X2UgPpinHXyD/8VXyPRR/ZeC/59oPruI/mP2t/Yd/aIvv2hPhfLf61LE+v2M5hu1hXauP4TjPcV9IZ4r8eP+CbfxgPw7+OkOh3k/l6T4ijNmyk8CbrGfqWAX8a/YVTlfavzfN8IsJinCKsnqj63A1/b0VJvUctLSLS14x6AjdKy/Ewvf8AhHtR/s5xHfi3cwMVzhwp28fXFahpvXNNOzuJ6qx+OHjz9vb43WGvapo1xrVraS2kzwN5NttYYb3Jrwrxx8bPHPxIcnxF4m1DUoz/AMsXl2x/98jAr1z/AIKAfDcfDv8AaL1nyovLstVRb+HA4G7hh+Y/Wvm2v17A0cNKhCpTgtUfC4mrVjOUJMG56cV2Pwd8EzfET4neGvD0KGRr69jjYDn5M5b9Aa42vtT/AIJdfDX/AISf4wX/AIlnjBttGtsISP8Alo5/oB+tbY6ssNh51PIzwtN1asYn6seH9Hg0DQ7DTLVdltZwR28S+iqoUD8hWhjmheKFr8bbbdz761lYdRRSUhjc8+1fFP7eH7Y3iD4B+ItF0Pwm1q1/ND5919oQvtBJ24wR2r7SmnWGB5GOAiliT6etfhd+158Sm+KPx/8AFeqiTzLWC7eztucg
+RxnZkex25/GvoMkwcMViP3iukeVmGIdCl7u7PUx/wU6+L397TP8Avwf/AIql/wCHnXxe/vaZ/wB+D/8AFV8iijNfoP8AZeD/AOfSPmfruI/mPrr/AIecfF/+/pn/AH4P/wAVR/w84+L/APf0z/wHP/xVfIu6jdU/2Xg/+faF9cxP8x9d/wDDzj4v/wB/TP8AwHP/AMVSf8POPi//AH9N/wDAc/8AxVfIu6jdT/svB9KSD65if5j66/4ecfF/+/pv/gOf/iqT/h5x8X/7+mf+A5/+Kr5G3UZpf2Xg/wDn2g+u4n+Y+uf+HnHxe/vaX/4Dn/4qvmv4ifEDVvih4w1DxLrkqy6nfPvlZBhfwFc117UV1UcHh8O3KlBJsyqV6tVWm7ijiikzS12eRzaBRR6UUAJ6VveHvHniLwmwbR9bv9NGc7be4ZV+pAOKweKXj1qZRjNWlZjUpR2Z6vZftXfFzT49lv481VF9Nyn+a1Y/4a8+Mf8A0P8Aqv5p/wDE15Bx60cetc31TD/yL7jX6xV/mZ7B/wANefGP/of9V/NP/iaP+GvfjH/0P+qfmn/xNeP8etJx60fVcP8AyR+5B7er/Oz2H/hr34x/9D/qn5p/8TR/w178Y/8Aof8AVPzT/wCJrx6jij6rh/8An3H7kP29X+dnsP8Aw178Y/8Aof8AVPzT/wCJo/4a9+Mf/Q/6p+af/E14/wAUcUvqmH/59r7he3q/zs9g/wCGvfjH/wBD/qn5p/8AE0f8Ne/GP/oftU/NP/ia8f4pPpR9Uw//AD7X3DVer/Oz2OP9rn4ySMFXx7qxZuABsJ/9Br9jP2crHXrH4N+GP+En1CfU9cmtVmuri4I3F2GSOAOK/GH9mj4eyfE742+FNDCloZL2OWbjICIdxz7YFfvFYWqWVnBAgASJAigegGK+K4ilShKFKnFJ76I+iyrnknOT0LdFFFfFn0ImaM+1IaRvuntSEfn9/wAFWvicLDwv4d8F20+Jr+Zr
+u4jU/wACDABH1b9K/MhvmGelfQP7dnxO/wCFm/tGeIZ4JfN0/TCun27KeCE5Y/8AfRI/Cvn31r9eymh9XwkI21ev3nw2Pqe1rt9htFFFewecFFFFABRRRQAUUUUAFFFFAH9HdFFFfhR+ln84lFFFfup+aBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAC1+of8AwSl+GX9j+BvEHjKeHbPqlwttC57xRjt/wJm/KvzD0+yk1HULe1iUtJNIsaqvqSBX7zfs3+AYvhr8FfCuhxxCF4rNJJR3MjDcSfzr5PiKv7PDqkvtHu5VS56vO+h6evSlpF6Utfmx9cFITRTWPWl1A8r/AGnviJH8L/gj4p11n2yx2jpCM4zIwIGK/Bye4e6nkmlYvLI2527knqa/Tb/gq98UBp/hXw54Itp8T30hvbqId41OE/8AHga/MX3r9L4dw/s8O6r+0z5DNa3PVUF0FpKKK+rPDCiiimMK9D/Z+8AzfE34xeFfDsMZkW7vozKAM4jU7nP4KDXnvT6V96f8EpvheNY8ea942uot8WlW/wBmtWI6TScE/wDfG8fjXl5liPq2GnPy/E68JS9tWjE/TzS7GPS9PtrSFQscMaxqAOMAYq4c0i06vx56u598tFYSloopDGt71+Of/BST4nf8J3+0BNpsEvmWOg262iAHI3k7nI+vyj/gNfrZ8QPE0Xg7wbrWtTyCOKxtZJtzdMhTj9cV+AfjzxJN4x8aa1rNw2+W+upJi31bj9K+v4cw/PXda2x4ObVOWmoLqdj+zN8PJfih
+8cPCmgxx74pLtZZ+MgRodxJ9uAPxr95bS1isrWG3hUJDEgjRV6BQMAflX5n/APBJ/wCGLXXibxN44uY8xWkK6fasw43Od0h/IJ+dfpsOmKw4gxHtMX7NbRNcrpclHm7iilpKWvlz2QpjU+ue8eeJYfCPhHV9YuGCQ2ds8pJOOgqoxcmorqTJ2TbPya/4KVfE5fHHx6k0mCXfaaFAtoMdA/3n/wDHmNfI/b0+lb3jrxTceNvGWta7cuzzX93LcFm5PzMSP0NYNfs+CorD4eNNdEfAYmp7WrKQUUUV23ZyhRRRSA0fDutXPh3XLHU7SRorm0mSeN14IZSCP1Ffvd8C/iJb/FL4W+H/ABHA4f7XbIZMdnwMivwBB21+mX/BKn4wC+0XXPAN3Nma1/02zVzyUzhlH0yK+S4iwvtKEaqWsfyPdyutyVXB7M/QpaWmrTq/Nz64SkpTTe1ID4K/4Kt/Cwa14D8O+OLaPNxpNy1ncFR1ilGQT9GjA/4FX5de9fvh+0d4Ci+JPwU8WaBJH5hnsmeMY/jT5l/UV+Ct/Yyabf3FpKMSQyNGw9wcGv0nh2t7TDul1i/wPkc2pctVT6Mgr9Nv+CSM1uvhPxtHuT7R9riO3Hzbdp/SvzJr6Y/YN/aAh+CHxcji1SXy9B1lRbXDHpG2flf6cnNennFCWIwkowOTAVI0qybP2jBJpwqtYXkGoWcV1bTJPbzKHjkjbKsCOCDVjNfkdmtGfceg6kooxTGY/ivSLrXvDepafaXX2C6uoHhjutm/yyRjdtyM4+tfAzf8EjbOR2dviHOzMcsW08Ek+v8ArK/RKiu3DY3EYO/sZWuc1bD0q9vaK5+df/DoqyH/ADUKX/wXf/bKrXn/AASNVcfZvHzP677HH/s9fo5S13/21j/+fn4I5f7Nw38p+bX/AA6Nn/6Htc/9eX/2dJ/w6Nn/AOh7X/wC/wDs6/Sain/beO/n/AP7Nw38p+bP/Do2f/oek/8AAH/7Oj/h
+0bP/AND0v/gF/wDZ1+k1FP8AtzH/AM/4IP7Nw38p+bP/AA6Nm/6HpP8AwB/+zpf+HR8//Q9L/wCAX/2dfpLSUf25jnvP8A/s3Dfyn5w2v/BI3dIPP8ebE9Uscn/0Orf/AA6Jsu/xCl/8Fw/+OV+idFQ86x38/wCCH/Z2G/lPzs/4dE2P/RQpf/BcP/jlZfif/glTpHhbw7qOr3fxGaK2soHnd5LABQFBPJ8yv0mNfC//AAU6+PQ8J+A7bwBpk+3UNaPmXZRsFIF/h/Fsf98114PMMwxVeNKNTfyX+RhiMJhqNNzcT8s9QhittQuYYZfOijkZElxjeoJAbHbIr1T9mn9nzU/2i/iDH4fs52sLSNPNur7y94iXoOMjr9a8kVCzhQCztwAOpNfsd/wT0+Ag+Evwdh1jULfy9e1/FzKWHzJDj92v8z+Ir7TNcc8Fh+ZP3nov8zwcFh1iKtuh4z/w6Jsf+ihTf+C4f/HKUf8ABImy/wCigzf+C4f/AByv0TA4pa/P/wC2cd/z8/BH039n4b+U/Oz/AIdE2P8A0UKb/wAFw/8AjlH/AA6Jsv8AooU3/guH/wAcr9E6KP7Zx3/Pz8EH9n4b+U/Ov/h0TZf9FBl/8Fw/+OUN/wAEibLBx8QZc/8AYOH/AMcr9FKKP7Zx3/Pz8EH9n4b+U/Nr/h0ZKM48drjt/oP/ANnS/wDDoyX/AKHxf/AH/wCzr9JKKv8AtvHfz/gL+z8P/Kfm3/w6Ml/6Hxf/AAB/+zo/4dGS/wDQ+L/4A/8A2dfpJRT/ALbx38/4B/Z2G/lPzb/4dGS/9D4v/gD/APZ0H/gkZL/0Pi/+AP8A9nX6SUUv7bx38/4B/Z2G/lPkP9lr9gu2/Z38fS+J7nXv7cuRbtDAvkeWIy3BPU9s19cqu3tT6K8vEYirip+0qu7OylRhRjywVkFJkUc4ptcpsOJrz749fECH4Z/CLxT4ilk8trSyk8o5wfMYbUx+JB/Cu9bhSSfxr83v
++Cm37SNlqVrbfDbQrxZ2WUT6k8LZAwCFTI9ya9HL8LLF4iFNLTqcmKrKjScnufnjqmoSapqV1ezNvmuJWldvVmJJP61W3ZpKK/ZEuVWR8C3dthRRRTJCiiigAooooAKKKKACiiigD+juiiivwo/Sz+cSiiiv3U/NAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigD279jX4ct8Tv2g/DGmtGZLS3m+13BxnCJg8+2SPzr9y40WKNUUbVUYAHavw9/ZL/AGkrX9mXxdquuS+Hl1+a8tlt4z53ltCASWwcHrx27Cvq3/h7tF/0T1v/AAYD/wCJr4TOcDi8biL0o3ikfTZfiaFClaT1P0aor85P+Hu8f/RPH/8ABgP/AIik/wCHvEf/AETx/wDwPH/xFeD/AGLjv5D0/wC0MP8AzH6N0yRgqszHAUZJr85/+HvEX/RPX/8ABgP/AIiqOvf8FaW1LRry1tPArWtzNEyJM18GCEjGcbaayXHX1gJ5jh7aSPm39uz4mf8ACzP2jPEdxFL5llp0g0+32nICxjaxHsWBP418+1a1TUJtX1K6vrht89xI0rt3LE5P86q1+n4WkqNCFNdEfG1p+0m5BRRRXSYhS0lFGvQYbsnH4V+1P7AfwzHw4/Z60YSxeXe6mTez5HOW6A/SvxdsZ0tb63mkiE8cciu0THAcA5xX6L+F/wDgq5ofhvw/YaYnw3vClpCsI8vU0AOBjIHl8V8xn1GviKUaVGN9dT2ctqUqMuabsfpBRX56f8PetG/6Jvf/APg0T/41UNx/wV60
+zZiD4c3av/001RSPyEYr4lZPjn/y7Z9B/aGG/mP0Ror84/8Ah7xH/wBE8b/wYD/4il/4e7xf9E9f/wAGA/8AiK0/sXHfyB/aGH/mPaP+CknxM/4QX9n2402CUJfa5cLaIM87ACzHHpwB+NfjvGDIVVQSxIAHvmvf/wBrn9rC7/ah1vRLk6U2iWGlwukdp53mbncjcxOB2Vf1rwnSbyPTdUtLqSEXCQyrK0JOA4BBx+lfeZRg54PCuMl7zPmsdXWIrXWx+2H7DPw1/wCFafs8eH7aVAl3fBr2ZsYJL4xn8AK+ga/NbQ/+CsVvoej2NhF8PGEdtAkK7b8AfKAOBs9q0P8Ah7tF/wBE9f8A8GA/+Ir4qvlOOr1ZVeTdnv08dhqcFDm2P0aor85f+Hu0X/RPX/8ABgP/AIik/wCHvEX/AET1/wDwYD/4isP7Ex38hr/aGG/mP0br5K/4KUfEv/hB/gFPpdvMEvtdmFoq55Mf8ZH0BFeM/wDD3eL/AKJ6/wD4MB/8RXy1+1x+1ZeftQeIdIvDpZ0XTtNtzFHZ+d5m5yxLOTxyQQOnavRy/J8TDEwlWhaKOXE4+lKk403qzwI/LSUvrSV+kbe6fIhRRRQIKKKKACvUv2Z/i1c/Bf41eGfEkLYto7pYbxSeGt5Dsk474ViR7gV5bTlzwQdpBzuHWsqtJVqbpvZo1pz9nNTP6MdLvotU0+3vIGDwzosiMDkEEZFW6/L74Nf8FRIvhz8OdG8N6z4MutavdPhEBvIdQWIOo6fKUJ/Wu2P/AAV60X/om9//AODVP/jVflU8nxim1Gm2j7OOYYflV5H6FGkr89v+HvWi/wDROL//AMGqf/GqP+HvOif9E3v/APwaJ/8AGqj+yMd/z6Zf9oYb+Y/QSaNZoZI3G5GUqw9QeK/DL9sD4dt8NPj94n05U2W805uoRjA2vzx+Oa+yD/wV60T/AKJvff8Ag0T/AONV8i/tbftIad+0t4007X7Hw4/h57e2
++zyCS4EzSckgkhQO/pX0WSYPF4TEXqQai0eXmGIoYil7stUeEGgMVIIOCOlBpOlfedEj5nsfY37Jn7f2s/BlYPDfixZdd8LZ2xSlsz2n+6f4l9j6V+mnw0+O/gn4tabDfeG9etb1JBkwlwsin0KnvX4DK27itTQPE2reFb9L3R9SudNuVORLbSlD+hr5fHZDRxTc6Xuy/A9jDZlOiuWeqP6JwR2pa/GP4e/8FEPi94Ejihm1WHX7RP8AllqUIcn/AIGMN+te4eH/APgrrfRxqNb8BwXMnQmwu2i/9CDV8nWyHGU5e6rnuU8zw8ldux+ltFfnl/w980b/AKJvff8Ag2T/AONUf8PfNG/6Jvff+DZP/jVcv9kY7/n0zX+0MN/MfobRX55f8PfNG/6Jvff+DZP/AI1R/wAPfNG/6Jvff+DZP/jVH9kY7/n0x/2hhv5j9DaK/PL/AIe+aL/0Te+/8Gyf/GqP+Hvmjf8ARN77/wAGyf8Axqj+yMd/z6Yf2hhv5j9DaK/PL/h75ov/AETe+/8ABsn/AMao/wCHvmjf9E3vv/Bsn/xqj+yMd/z6Yf2hhv5j9DaK/PL/AIe+aL/0Te+/8Gyf/GqP+Hvmjf8ARN77/wAGyf8Axqj+yMd/z6Yf2hhv5j9DaK/PL/h75o3/AETe+/8ABsn/AMao/wCHvWj4z/wre+wP+osn/wAao/sfHf8APpi/tDDfzH3t4q8Q2fhPw7qOs38qw2djA88sjdAqjNfg9+0B8Vr34zfFTXPEt1IzxTTsltGTlY4gSFA+vX8a+jf2nP8Ago1c/HT4bzeEtC8O3PhiK7lU3lw94szSxDnyxhFwCcE/Svi3aK+xyPLZ4VSqVlaT2PCzLFxrNQg9D6A/Yl+B8nxs+NmmQXELSaLpbC9vWK/KQp+VM+5/lX7a2ttFZ28UEKCOKNQiIowAAMACvx8/ZH/bS0D9mPwvqNhL4Im1rUr2fzHvob1YiUAwFwUb3796+gP+HvGi
+9vhtfA/9hVP/AI1XlZxhcbjMQ3Gm+VbHVgcRh8PT1lqz9Ch0pa/PT/h71o3/AETe+/8ABqn/AMao/wCHvWjf9E3vv/Bqn/xqvD/sjHf8+men/aGG/mP0Lor88/8Ah71o3/RN77/wap/8apf+HvWjf9E3vv8Awap/8ap/2Pjv+fTD+0MN/MfoXRX56f8AD3nRv+ib33/g1T/41R/w950b/om99/4NU/8AjVL+x8d/z6Yf2hhv5j9C6K/PT/h7zo3/AETe+/8ABon/AMao/wCHvOjf9E3vv/Bqn/xqj+yMd/z6Yf2hh/5j9C6K/PT/AIe86N/0Te+/8Gqf/GqP+HvOjf8ARN77/wAGqf8Axqj+yMd/z6Yf2hh/5j9C6K/PT/h7zo3/AETe+/8ABqn/AMaoP/BXrRv+ib33/g1T/wCNUf2Rjv8An0w/tDD/AMx+hdJX513X/BXayYg2/wAO7hR3EmpKx/RBXM61/wAFb/EcqEaT4J023J4BvJpJP/QWWtI5Ljpf8uxf2hh/5j9Os9K5bxn8SPDfgDTZb7X9ZtNNtolLM00gB4Hp3r8kPG3/AAUZ+MXi5ZI7fVbfQ4HBHl2ECgj6M2T+tfPniz4geJPHd01x4h1y+1aUnO65mZlB+hOK9Shw3Wk068kkcVXNqaX7tH3H+1H/AMFK7rXre68NfDJGsbOQGObW5P8AWuOhEQ6KPfk+mK+AL6+uNTvJbm6nkubiZi7zSsWZiepJNQ/xYor7bB4Gjgo8tJfM+er4meIlzTYYxRRRXecgUUUUAFFFFABRRRQAUUUUAFFFFAH9HeaKTiivwo/TD+cWiiiv3U/MwooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK
+KKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoooo1GFLSUUwuFLSUUg3CiiigAooooEFFFFMApaSikAUUUU0wDFGKKKB3ClpKWgQlLSUUXYC4pMUUUhhRRRQFxaKSikIKKKKYBRRRQAtJz64opaO6ATnNFLSUDCiiinqAUDjpRS0tQ9QopKKb1YC0u6m0UhDiRzTdo9KKKXlYAooopgFFFFABRRRQAUUUUAFFFFABRRRQAfhS0lFHmO7ClpKKadgCiiikIKKKKYwxRRRRdgFFFFLUQUUUUAFFFFAC4opKKYDsjFAPtTaKLjFP3qSiikIKKKKACiiigAooooAKKKKACiiigAooooA/o64opNpor8KP00/nGor99v+GavhD/0SvwT/wCE7Z//ABuoJv2bPhGLmID4WeCgDnI/4R6z/wDjdfrH9qf3Px/4B8L9S/vfgfghRX76f8M1/CLeP+LV+Cen/Qu2f/xunf8ADNXwh/6JX4J/8J2z/wDjdH9qf3Px/wCAH1L+9+B+BNFfvt/wzV8If+iV+Cf/AAnbP/43UQ/Zr+EX2ph/wqzwVjaOP+Ees/X/AK50f2p/c/H/AIAfU/734H4HUV++3/DNXwh/6JX4J/8ACds//jdH/DNXwh/6JX4J/wDCds//AI3R/an9z8f+AH1L+9+B+BNFfvt/wzV8If8Aolfgn/wnbP8A+N0f8M1fCH/olfgn/wAJ2z/+N0f2p/c/H/gB9S/vfgfgTRX77f8ADNXwh/6JX4J/8J2z/wDjdH/DNXwh/wCiV+Cf/Cds/wD43R/an9z8f+AH1L+9+B+BNFfvt/wzV8If+iV+Cf8AwnbP/wCN0f8ADNXwh/6JX4J/8J2z/wDjdH9qf3Px/wCAH1L+9+B+BNFfvt/wzV8If+iV+Cf/AAnbP/43R/wzV8If+iV+Cf8AwnbP/wCN0f2p/c/H/gB9S/vfgfgTRX77
+f8M1fCH/AKJX4J/8J2z/APjdH/DNXwh/6JX4J/8ACds//jdH9qf3Px/4AfUv734H4E0V++3/AAzV8If+iV+Cf/Cds/8A43R/wzV8If8Aolfgn/wnbP8A+N0f2p/c/H/gB9S/vfgfgTRX77f8M1fCH/olfgn/AMJ2z/8AjdH/AAzV8If+iV+Cf/Cds/8A43R/an9z8f8AgB9S/vfgfgTRX77f8M1fCH/olfgn/wAJ2z/+N0f8M1fCH/olfgn/AMJ2z/8AjdH9qf3Px/4AfUv734H4E0V++3/DNXwh/wCiV+Cf/Cds/wD43R/wzV8If+iV+Cf/AAnbP/43R/an9z8f+AH1L+9+B+BNFfvt/wAM1fCH/olfgn/wnbP/AON0f8M1fCH/AKJX4J/8J2z/APjdH9qf3Px/4AfUv734H4E0V++3/DNXwh/6JX4J/wDCds//AI3R/wAM1fCH/olfgn/wnbP/AON0f2p/c/H/AIAfUv734H4E0V++3/DNXwh/6JX4J/8ACds//jdH/DNXwh/6JX4J/wDCds//AI3R/an9z8f+AH1L+9+B+BNFfvt/wzV8If8Aolfgn/wnbP8A+N0f8M1fCH/olfgn/wAJ2z/+N0f2p/c/H/gB9S/vfgfgTRX77f8ADNXwh/6JX4J/8J2z/wDjdH/DNXwh/wCiV+Cf/Cds/wD43R/an9z8f+AH1L+9+B+BNFfvt/wzV8If+iV+Cf8AwnbP/wCN0f8ADNXwh/6JX4J/8J2z/wDjdH9qf3Px/wCAH1L+9+B+BNFfvt/wzV8If+iV+Cf/AAnbP/43R/wzV8If+iV+Cf8AwnbP/wCN0f2p/c/H/gB9S/vfgfgTRX77f8M1fCH/AKJX4J/8J2z/APjdH/DNXwh/6JX4J/8ACds//jdH9qf3Px/4AfUv734H4E0V++3/AAzV8If+iV+Cf/Cds/8A43R/wzV8If8Aolfgn/wnbP8A+N0f2p/c/H/gB9S/vfgfgTRX77f8
+M1fCH/olfgn/AMJ2z/8AjdH/AAzV8If+iV+Cf/Cds/8A43R/an9z8f8AgB9S/vfgfgTRX77f8M1fCH/olfgn/wAJ2z/+N0f8M1fCH/olfgn/AMJ2z/8AjdH9qf3Px/4AfUv734H4E0V++3/DNXwh/wCiV+Cf/Cds/wD43R/wzV8If+iV+Cf/AAnbP/43R/an9z8f+AH1L+9+B+BNFfvt/wAM1fCH/olfgn/wnbP/AON0f8M1fCH/AKJX4J/8J2z/APjdH9qf3Px/4AfUv734H4E0V++3/DNXwh/6JX4J/wDCds//AI3R/wAM1fCH/olfgn/wnbP/AON0f2p/c/H/AIAfUv734H4E0V++3/DNXwh/6JX4J/8ACds//jdH/DNXwh/6JX4J/wDCds//AI3R/an9z8f+AH1L+9+B+BNFfvmv7Nfwi/6JX4K/8J2z/wDjdH/DNfwi3f8AJK/BP/hO2f8A8bo/tT+5+P8AwA+pf3vwPwMor98m/Zr+EX/RK/BX/hO2f/xul/4Zr+EX/RK/BP8A4Ttn/wDG6P7U/ufj/wAAPqX978D8DKK/fT/hmv4Rf9Er8E/+E7Z//G6T/hmv4RZ/5JX4K/8ACds//jdH9qf3Px/4AfUv734H4GUV++n/AAzX8Iv+iV+Cf/Cds/8A43R/wzX8Iv8Aolfgn/wnbP8A+N0f2p/c/H/gB9S/vfgfgXRX76f8M1/CL/olfgn/AMJ2z/8AjdH/AAzX8Iv+iV+Cf/Cds/8A43R/an9z8f8AgB9S/vfgfgXRX75j9mv4RY/5JX4J/wDCds//AI3Q37Nfwi/6JX4J/wDCds//AI3R/an9z8f+AH1L+9+B+BlFfvl/wzX8Iv8Aolfgr/wnbP8A+N0o/Zr+EWP+SV+Cf/Cds/8A43R/an9z8f8AgB9S/vfgfgZRX73Xv7NnwjWEFfhZ4KBz28PWf/xuqX/DOHwl/wCiXeC//CftP/jdP+1P7n4/8APqf978D8HqK/eH
+/hnD4S/9Eu8F/wDhP2n/AMbo/wCGcPhL/wBEu8F/+E/af/G6P7U/ufj/AMAX1P8Avfgfg9RX7w/8M4fCX/ol3gv/AMJ+0/8AjdH/AAzh8Jf+iXeC/wDwn7T/AON0f2p/c/H/AIAfU/734H4PUV+8P/DOHwl/6Jd4L/8ACftP/jdH/DOHwl/6Jd4L/wDCftP/AI3R/an9z8f+AH1P+9+B+D1FfvD/AMM4fCX/AKJd4L/8J+0/+N0f8M4fCX/ol3gv/wAJ+0/+N0f2p/c/H/gB9T/vfgfg9RX7w/8ADOHwl/6Jd4L/APCftP8A43R/wzh8Jf8Aol3gv/wn7T/43R/an9z8f+AH1P8Avfgfg9RX7w/8M4fCX/ol3gv/AMJ+0/8AjdH/AAzh8Jf+iXeC/wDwn7T/AON0f2p/c/H/AIAfU/734H4PUV+8P/DOHwl/6Jd4L/8ACftP/jdH/DOHwl/6Jd4L/wDCftP/AI3R/an9z8f+AH1P+9+B+D1FfvD/AMM4fCX/AKJd4L/8J+0/+N0f8M4fCX/ol3gv/wAJ+0/+N0f2p/c/H/gB9T/vfgfg9RX7w/8ADOHwl/6Jd4L/APCftP8A43R/wzh8Jf8Aol3gv/wn7T/43R/an9z8f+AH1P8Avfgfg9RX7w/8M4fCX/ol3gv/AMJ+0/8AjdH/AAzh8Jf+iXeC/wDwn7T/AON0f2p/c/H/AIAfU/734H4PUV+8P/DOHwl/6Jd4L/8ACftP/jdH/DOHwl/6Jd4L/wDCftP/AI3R/an9z8f+AH1P+9+B+D1FfvD/AMM4fCX/AKJd4L/8J+0/+N0f8M4fCX/ol3gv/wAJ+0/+N0f2p/c/H/gB9T/vfgfg9RX7w/8ADOHwl/6Jd4L/APCftP8A43R/wzh8Jf8Aol3gv/wn7T/43R/an9z8f+AH1P8Avfgfg9RX7w/8M4fCX/ol3gv/AMJ+0/8AjdH/AAzh8Jf+iXeC/wDwn7T/AON0f2p/c/H/AIAf
+U/734H4PUV+8P/DOHwl/6Jd4L/8ACftP/jdH/DOHwl/6Jd4L/wDCftP/AI3R/an9z8f+AH1P+9+B+D1FfvD/AMM4fCX/AKJd4L/8J+0/+N0f8M4fCX/ol3gv/wAJ+0/+N0f2p/c/H/gB9T/vfgfg9RX7w/8ADOHwl/6Jd4L/APCftP8A43R/wzh8Jf8Aol3gv/wn7T/43R/an9z8f+AH1P8Avfgfg9RX7w/8M4fCX/ol3gv/AMJ+0/8AjdH/AAzh8Jf+iXeC/wDwn7T/AON0f2p/c/H/AIAfU/734H4PUV+8P/DOHwl/6Jd4L/8ACftP/jdH/DOHwl/6Jd4L/wDCftP/AI3R/af9z8f+AH1P+9+B+D1FfvD/AMM4fCX/AKJd4L/8J+0/+N0f8M4fCX/ol3gv/wAJ+0/+N0f2p/c/H/gB9T/vfgfg9RX7w/8ADOHwl/6Jd4L/APCftP8A43R/wzh8Jf8Aol3gv/wn7T/43R/af9z8f+AH1P8Avfgfg9RX7w/8M4fCX/ol3gv/AMJ+0/8AjdH/AAzh8Jf+iXeC/wDwn7T/AON0f2p/c/H/AIAfU/734H4PUV+8P/DOHwl/6Jd4L/8ACftP/jdH/DOHwl/6Jd4L/wDCftP/AI3R/an9z8f+AH1P+9+B+D1FfvD/AMM4fCX/AKJd4L/8J+0/+N0f8M4fCX/ol3gv/wAJ+0/+N0f2p/c/H/gB9T/vfgfg9RX7w/8ADOHwl/6Jd4L/APCftP8A43R/wzh8Jf8Aol3gv/wn7T/43R/an9z8f+AH1P8Avfgfg9RX7w/8M4fCX/ol3gv/AMJ+0/8AjdH/AAzh8Jf+iXeC/wDwn7T/AON0f2p/c/H/AIAfU/734H4PUV+8P/DOHwl/6Jd4L/8ACftP/jdH/DOHwl/6Jd4L/wDCftP/AI3R/an9z8f+AH1P+9+B+D1FfvD/AMM4fCX/AKJd4L/8J+0/+N0f8M4fCX/ol3gv/wAJ+0/+N0f2p/c/
+H/gB9T/vfgfg9RX7w/8ADOHwl/6Jd4L/APCftP8A43R/wzh8Jf8Aol3gv/wn7T/43R/an9z8f+AH1P8Avfgfg9RX7w/8M4fCX/ol3gv/AMJ+0/8AjdH/AAzh8Jf+iXeC/wDwn7T/AON0f2p/c/H/AIAfU/734H4PUV+9lj+zb8I337vhZ4Kbp18PWn/xuph+zX8Iuf8Ai1fgr/wnbP8A+N0v7U/ufj/wB/Uv734H4G0V++Y/Zr+EWP8Aklfgn/wnbP8A+N0D9mv4RY/5JX4J/wDCds//AI3R/an9z8f+AH1L+9+B+BlFfvn/AMM1/CLd/wAkr8E/+E7Z/wDxugfs1/CLH/JK/BP/AITtn/8AG6P7U/ufj/wA+pf3vwPwMor99P8Ahmv4Rf8ARK/BP/hO2f8A8bo/4Zr+EX/RK/BP/hO2f/xuj+1P7n4/8APqX978D8C6K/fT/hmv4Rf9Er8E/wDhO2f/AMbo/wCGa/hF/wBEr8E/+E7Z/wDxuj+1P7n4/wDAD6l/e/A/Auiv30/4Zr+EX/RK/BP/AITtn/8AG6P+Ga/hF/0SvwT/AOE7Z/8Axuj+1P7n4/8AAD6l/e/A/Auiv30/4Zr+EX/RK/BP/hO2f/xuj/hmv4Rf9Er8E/8AhO2f/wAbo/tT+5+P/AD6l/e/A/Auiv30/wCGa/hF/wBEr8E/+E7Z/wDxuj/hmv4Rf9Er8E/+E7Z//G6P7U/ufj/wA+pf3vwPwLor99P+Ga/hF/0SvwT/AOE7Z/8AxukX9mv4Rf8ARK/BP/hO2f8A8bo/tT+5+P8AwA+pf3vwPwMor99P+Ga/hF/0SvwT/wCE7Z//ABuj/hmv4Rf9Er8E/wDhO2f/AMbo/tT+5+P/AAA+pf3vwPwLor99P+Ga/hF/0SvwT/4Ttn/8bo/4Zr+EX/RK/BP/AITtn/8AG6P7U/ufj/wA+pf3vwPwLor99P8Ahmv4Rf8ARK/BP/hO2f8A8bo/4Zr+EX/RK/BP/hO2
+f/xuj+1P7n4/8APqX978D8C6K/fT/hmv4Rf9Er8E/wDhO2f/AMbpD+zX8Isf8kr8E/8AhO2f/wAbo/tT+5+P/AD6l/e/A/Ayiv3zX9mv4Rf9Er8Ff+E7Z/8Axuj/AIZr+EW7/klfgn/wnbP/AON0f2p/c/H/AIAfUv734H4GUV++f/DNfwi3f8kr8E/+E7Z//G6G/Zr+EX/RK/BX/hO2f/xuj+1P7n4/8APqX978D8DKK/fMfs1/CLH/ACSvwT/4Ttn/APG6X/hmv4Rf9Er8E/8AhO2f/wAbo/tT+5+P/AD6l/e/A/Auiv3zP7Nfwi/6JX4K/wDCds//AI3S/wDDNfwi/wCiV+Cf/Cds/wD43R/an9z8f+AH1L+9+B+BdFfvp/wzX8Iv+iV+Cf8AwnbP/wCN0f8ADNfwi/6JX4J/8J2z/wDjdH9qf3Px/wCAH1L+9+B+BdFfvp/wzX8Iv+iV+Cf/AAnbP/43SD9mv4Rf9Er8E/8AhO2f/wAbo/tT+5+P/AD6l/e/A/Ayiv3zP7Nfwix/ySvwT/4Ttn/8bpP+Ga/hF/0SvwV/4Ttn/wDG6P7U/ufj/wAAPqX978D8DaK/fNf2a/hF/wBEr8E/+E7Z/wDxul/4Zr+EX/RK/BP/AITtn/8AG6P7U/ufj/wA+pf3vwPwLor99P8Ahmv4Rf8ARK/BP/hO2f8A8bpn/DNfwi/6JX4K/wDCds//AI3R/an9z8f+AH1L+9+B+B1FfvmP2a/hFj/klfgn/wAJ2z/+N0v/AAzX8Iv+iV+Cf/Cds/8A43R/an9z8f8AgB9S/vfgfgXRX75j9mv4Rc/8Wr8E/wDhO2f/AMbpf+Ga/hF/0SvwT/4Ttn/8bo/tT+5+P/AD6l/e/A/Auiv30/4Zr+EX/RK/BP8A4Ttn/wDG6Rv2a/hF/wBEr8E/+E7Z/wDxuj+1P7n4/wDAD6l/e/A/Ayiv30/4Zr+EX/RK/BP/AITtn/8AG6P+Ga/hF/0SvwT/AOE7
+Z/8Axuj+1P7n4/8AAD6l/e/A9Hooor8nPuD/2Q==</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="Screenshot_4">
+      <MIMEType>image/jpeg</MIMEType>
+      <ImageData>/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAMCAgMCAgMDAwMEAwMEBQgFBQQEBQoHBwYIDAoMDAsKCwsNDhIQDQ4RDgsLEBYQERMUFRUVDA8XGBYUGBIUFRT/2wBDAQMEBAUEBQkFBQkUDQsNFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBT/wAARCAC3AysDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9U6KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi
+iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigApKCcV8Ufta/th6noGvXXgrwHdizuLQmPUtYRQXWTHMUOeAV/if14HTNc2IxEMPDnme7k2TYrPMUsLhVru29ku7PpH4sftAeCfg1ab/EWrKL1hmLTbQebdS/RAflH+0xA96+a/DH7aXjH4vfGTw14b8LaNa6Po11qCCbz1+0XL265aUs33UG0HoMg45NfEt5eXGo3c11dzy3V1M2+WeZy7u3qzHkn619m/wDBOr4bie68QeObmE4i/wCJXYuRxk4aZgf++FrwYY2tjK8acPdX6ep+xYvhXKuGcprYzEr21W1lfbmeitHy31vt0PucdKWiivpz8ACiiigAoopskixozswVVGSzHAA9aAHUV4V4g/bM+G2jeM9P8NWuoz63eXV5HZvcabF5lvA7uEG6QkBvmI+5uHPWvdFOayhVhUbUHex6GKy/F4KMJYmm4Kaurq10LRRRWp54UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUVBfX1vptpNdXc8VrawoZJZpnCIijksxPAA9TXy18Q/+Cg/g7wxqslj4d0q88WCIlXvIpVtrcn/YZlJce+APTNYVa9Ogr1JWPYy7KMfm03DBUnNrfsvVuyX3n1ZRXF/B74mW3xe+HekeK7Szm0+LUEc/ZZmDNGyuyMNw4Iyp5FdpWsZKcVKOzPOr0amGqyoVVaUW012a0YUUUVRgFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU
+UUUAFFFFABRRSE45oA4H46fEqH4TfC3XvEkhBnt4PLtIyf8AWXD/ACxL/wB9EE+wJr8h7m5mvLma4uJGmuJnaSWVuruxJZj7kkn8a+s/+CgXxfXxH4ssPAmnzB7LRj9pvyh4a6ZcKh/3EJ/FyO1fJFfHZnX9rW5FtH8+p/UPAOUPLss+s1FadbX/ALd+z+r+YjZxwMntX67/ALPnw+Hwx+EHhnQmj8u7itFmusjDefJ88mfUgtt+iivzI+APg8ePPjR4O0V08yCbUI5Z1xkGKLMrg/VUI/Gv17Wu3KKfxVX6f1+B8r4m49/7PgIvvN/lH/24WiiivpD8ICikzXhH7Qn7WXhz4JwSadamPXfFbL8mmxPhIPRp2H3R/sj5j6DrWVSrCjHnm7I9DA4DE5lXWGwkHKb7fm+y82el/Ev4peG/hL4dk1nxLqKWNsMiKMfNLO4H3I06s36DuQK/Ob49ftbeKvjNNcadaSSaB4VJIXToHxJOvrO4+9/uj5frXmPxE+JPiL4qeJJdb8S6jJf3jcRr92KBM/cjToq+w69yTzWBpum3Wsaha2FjbyXV7dSrDBBGMtI7EBVA9SSK+TxWYTxD5IaR/Fn9I8OcF4TJYrE4u1Sstbv4Y+l//Sn8rHs/7IHwjn+KHxc0+4eJv7F0GSPULyTHyllbMUefVnAP0U1+pa9K8v8A2dPgva/BH4b2WigRy6tN/pOpXSj/AFtww5AP91R8o9hnua9Rr6DA4f6vSs93qz8V4uzxZ5mLnSf7qHux811fzf4WCiiivRPiAooooAKKKKACiiigAooooAKKKKACiiigAqG6u4LG2luLmaO3t4lLySysFRFAySSeAAO9Vtc1yw8N6Td6nqd3FY6faRtNPcTNtSNB1JNfmP8AtNftPar8bNcuLDTrifT/AAVbvi3sc7Dc4/5bTAdSeoU8KPfNcOKxcMLG71b2R9dw7w3ieIa7hTfLTj8Uu3ku78j9MPDvi7Q/F1tJcaHr
+FhrNvG/lvLYXKTqrehKk4Na9fMv7Cnwd1T4bfDy+1jV1a2u/EbxXUdkykGGFFIjLDszBicdhj3r6arehOVSmpzVmzyM3wlDA46rhsNU9pCLspd+/3O68wooorc8gKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArM8SeI9N8I6He6xq95FYabZxmWe5mbCoo/r2AHJJAFX7i4jtYZJpXWOKNSzuxwFAGSSewxX5oftc/tLS/GTxD/YOhzuvg/Tpf3e0n/T5hx5pH90dEHvnuMcWLxUcLDme/RH1nDnD9biDFqjDSnHWUuy/zfT79kZv7S37Umr/HDUpdMsHl0zwbBJmGyzte6I6SzevqE6D3NeNeG/D194u8QadomlQm51HUJ0toI17uxwM+w6k9gCa+1fgL+x/4Z8J+Cf8AhNvirAss6wG9OnXbFLeyhA3ZlUfffHJU8DOME12f7NfhGP4keOtS+L11pUOlaRtbTfCmmRwLElvZqSpmCAYDNyOPVq+f+p1sROMqz1l08v0P2pcTZZk2ErUMspfu6KtzdJTeyXWTerk9NE3roe+fDbwPafDfwLonhmxO63021WDzMY8xhy749WYs34101JS19ZGKiklsj+bqtWdapKrUd5SbbfdvcKKK8l/aG/aE0f4D+FvtU4W+167DLp2mBsGVh1dyPuxr3PfoOekVKkacXObskb4PB18fXjhsNHmnLRL+vxfQ9Zpa/KDSde+I/wC018X9KhOsXVxrM04lieORooNPiUgs6Kp+RVHpyTgZJNfq5GpVACdx7t6+9cuFxX1rmajZL8T6PiHh58PujTq1lOpNNtJfD216316LYfRRRXcfIBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFecfH74uWvwY+Gup+IJdsl7jyLC3Y/664YHY
+PoOWPspr0VmCqSTgV+X/AO2F8cT8XviVJZadPv8ADWhM9rZ7T8s8mcSz/iRtH+yvua8/HYn6vSbW72PtOE8jeeZjGnNfuoaz9Oi+e3pd9Dw/VNTu9a1K71G/na6vruVp55pDlndjlifxNVqKK+HP64ilFKKWiPpf/gn7o66h8dJ711DDT9JnkX2d3jQH8i/51+kdfm5/wT/8SW2i/G64sLmRIm1XTJYIC5xukRlcIPcqHP8AwGv0i3D1r7DK7fV9O7P5h8ROf+23zbckbemv63HVU1TVbPRdPuL6/uYrOzt0MktxO4RI1HUkngCvLPjJ+1B4I+DMMsOoXw1PXAPk0fT2DzZ7bz0jHu34A9K+DPiR8aviL+1L4mh0a2tZ5LSSTNp4d0sM0Y9HkP8AGR/ebAHOAK2xGOp0Pdj70uyPMyPhHG5v+/q/uqC1c5aaeSe/rt5ns/7Qv7d0t8tzoHw1keCE5SbxC64dh3Fup6D/AGzz6AcGvj7UdM1VbWDV7+1vBb6i7tFfXKPtuWHLMrt9888nJ619y/A/9hHSvC8cPiD4kTw6peRr5w0hG/0ODAzmZ/8AloR3HC8H71fOH7UvxqT4wePhFpWIfCeiq1npUEY2xsBw8wUcDdgY/wBkLXg4uFaUPa4l2b2R+y8N4nLaWJeXZHS5qcVepVfV9Enb3m36RSvY8Zr7Y/YJ+AbPMfiTrlp8oDRaLHKv1V7jB/FVP+8a+ef2c/ghefHT4hW+ljfDolptuNUu1H3Ic/cU/wB9yNo9OT2r9XtL0u10XTbWwsbdLWztYlhhgjGFjRRhVA9AAK2yzC+0l7aey29f+AeVx/xF9Uo/2Vhpe/Ne95R7esvy9S0OKWiivqj+dAoopNw9aAFopM0tABRRRQAUUUUAFFFJQB5P+0V8ftO+AnhBNQltxqOsXjmHT9P37RI4GWdz1CLxkjnkAda+Pf8Ah4h8TP8AoF+F/wDwCuP/AJIrv/20/gJ8SviL8QLfXtEs
+Br2hQ2SW9va2sgEtsckvlGI3biQdy9gAcY5+bZv2ZfitBGXPgLWWA7Rwhj+QNfMYyvi/atU00l2R+/8AC2UcOf2bTqYydOdWer5pLT+7ZtWt17vysepj/goh8TMjOl+FyP8AryuP/j9XP+Hi3j7H/IA8O5/65z//AByvCdU+CPxD0O3kuNQ8Ea7ZwRrveWayYKqjqSegHFcSDkAjpXnPF4qGkpNH3VPhvh3ErmpUISS7O/5M9k+N37VHjD45abaaZqS2ulaRCQ8llp+4JPIOjSFiSQOy9B7mvOvAPiKx8I+MNL1nUtFi8Q2tjKJjps8xijmYcruYK3AODjHOMHiovDngnxF4w806FoWoawISFkNjbtKEJ5AJA4Ndvov7L/xX16ZY7fwNqsBbo98gt0/76cgVj+/rT9pZt+lz1IxynK8M8GpQpQ1uuZR331unfzvc9/8A+HlGodvh7a/+Dl//AIxX1H8A/ifq3xg+H9v4o1Tw+nh2O8lf7JAt0Z/NhXgS5KLgFt2BjkDPcV8x/Bv/AIJ73AvbbU/iLqEJtkIf+xNOcsZP9mWXgAeoTOR/EK+3LO0g061htbaJILeFFjihjUKqKowFAHQACvqMEsXL38Q9O2h/PXFVThylFYbJaSc76zTk0l2V20799u3lYorzjxt+0V8Ofh7M8Gt+LdPgul62sL+fMP8AgEeTXT+BvHmhfEjw5ba74d1CPUtMuCwSZAVIYHDKykAqwPUEZr0lUhKXKpK58LUwOKo0ViKlKSg9pNNJ/PY6CiiitDhCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACkPFLXiX7VHx+g+CPgVvsbxyeJ9UVodNgbnZx807D+6mR9WIFZ1KkaUHOeyO7A4KvmOJhhcPG85Oy/wA/RbvyPEP25P2kjGt18NfDlxh2AGtXkbdFPP2ZSO54L+3y9zjg/wBhz4Cp4+8Vv4z1u2EmgaJK
+BaxSD5bm7HI+qxjDH/aKjsRXzr4d0LVfiF4wsdKtDJeaxq92IxJIdzNI7fM7H8Sx+lfcvxU8RTeAPDPh79n/AOFKm48VXsCwXl1AebSFhmWR2H3XfLMWPKqc9StfLU5/WarxNbaOy8+iP6Fx2EWRZbTyLLXarVTc57csV8c5Poui8tFqJ8Q/El/+1n8VR8NvDdzJF8PNEmWbxFqlucC7ZW/1St3GQVX1IZuQoq58R/24PC/wj15vCHhjw22tW2jqLN5IrgW9vEyDb5UfysWC4wTwMggZr0fR/hJd/A39n3WND8A2q33ikWMji4JCyXV2y4MmT3A+4vT5VHevzVvPhn4yspmS78La3HPuZXEljKW3A4OeOua6sTVr4ZJr45at9uyR4OQ5flOeSlSqNfVqHuwi5crlJ/FUlZp3dlbolp0Prj/h5QP+hCP/AINP/tVTW/8AwUmtfm+0eBJ19PK1FW/PKCvi+48K65aOUn0TU4mUZIaxlGP/AB2s+a3mt22zQywt6SxlD+orzf7QxS3l+C/yPuFwTw7P4aP/AJPL/wCSPuK6/wCCk1kbaX7P4GuftG0+X51+uzd2zhc4+lfHfxA8f638TvFV74h8QXbXeoXTfRIkH3Y0X+FQOgrnanjsbqcqIrW4lLdBHCzZ+mBzXPWxVbEJKo7nuZZw9leSzlUwdLlk9Lttu3bVu3yPpn9lj9oX4efAzw7cre6FrF94p1GXbc3lvFEymMH93FHlwdo6njkn6V+itrMbi2ilaJ4WdQxjk+8uRnB9xX58/sh/sq6z4g8XWHjDxbpU2m6Bprrc2lreRlHvZhyh2HkRqcMSepAHTNfoWOBX02Wqr7H31ZdD8A47ll8sy/2STnUes3e6v0ivRfdougtFFFeufmoUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFZniTxBYeFNB1DWNTuFtdPsYHuJ5m/hRRk
+/U+g7kgUm7K7KjGU5KMVds8E/bW+OA+GPw7bQtNuPL8R6+jQRbD80Fv0ll9uDtHu3tX5ojsBz+prtvjH8UL/AOMXxD1XxPfbo1uH2WtuTkW9uuRHGPoOT6szHvXs/wCxD8BT8RfGJ8X6vb7/AA9ocw8lJB8tzdgAqPcJkMfcqK+NrTlmGJ5YbdPTuf1NlWFw/BmRyrYn47c0vOT2ivTZfNnrnwm/ZOi0T9m3xSNXskbxh4k0uST94oLWShd8MS+jBgGb3wOiivgfn+JSjd1IwR7V+3O0bcV8A/tGfsS+KIfGGo6/4DsE1jR9Qla4fTopEjntZGOXChiA6E5IwcjOMd678fgXGnB0Ve2n/BPjuD+LY1cZiY5nVUXVfNFt2inty3e2lrenc+SrO8uNOu4bq0nktrqFxJFNCxV0YHIYEdCDXpeuftP/ABT8Q6Oml3njPUPsu3Y3kFYpJQeMM6gM1dZ4H/Yh+KPi68Rb7SovDFln57rVJVyB32xoSxPsdv1r7H+DP7Hvgf4TeTey23/CR6+oBOoaigZY2/6ZR/dT68ngc1w4bB4mporxT+X4H12e8UZBhLSqKNepH4UkpW/7e1S/PyPkP4HfsZ+Lvi40Ws668vhnw9M3mG6u0LXd0DyTHG3PP99+PQNX338Lfg34U+DuiDTvDempa7h+/u5PnuLg+sjnk/ToOwrtwMV578dfi7p/wX+Hl/4hvCstyB5NjalsG4uGB2IPbgknsATX0NHC0cHFz6rqz8TzTiDNeKMRHCrSMmlGEdvK/f1ei6WPn/8Abs/aDHh/ST8O9BucapqEYfVZo2wYLc8iLI6NJ39F/wB7j4T0bR73xDq1lpWm2z3moXsy29vbxjLSOxwAKk8ReIL/AMVa7f6zqty13qN9M1xcTMfvOxyfoPQdgK+4f2EP2ff7H09fiNr1ti/vEKaRDIOYYDw0+OzP0Houf71fO+/mWI8vyR+3L6pwLkeus/8A0ub/AEX4RXc98/Z7
++Ctj8EPh9aaLDsn1ObFxqN4o/wBdORzj/ZX7q+wz3r06kor7CEI04qEVoj+YsViq2NrzxFeV5yd2xaZLMkMbSSOqIoyzMcAD1JrxD41ftd+Cfg/59itz/wAJD4ij4/svT3B8tvSWT7sf05b2718G/GD9prxz8ZZJIdU1H+z9FJ+XSNPJjgx/tnrIf9449q8/EZhSw/urV9kfa5HwXmWc2qyXs6T+1Lr6Ld+ui8z7S+L/AO3J4I+HrTWGhFvF+splStk4W1ib0abkH6ID0IJFfIPjf9sb4p+NLySSPxC/h+0LZS00dRCEHoXOWb8TUnwE/ZO8VfGuWK/kR/D/AIWz82qXMR3TDuIEP3/977o98Yr6zg/4J9fC9IUWSXXpZAoDSf2ht3HucBcCvL/27GrmXux+7/gn6DH/AFS4UqfV6q9tVW7sp2/9tXote5V/YR+LWu/Ebwh4hsfEmtzazqWmXiGKS6O6byHTIy38Q3hgPTFfUdeYfBz9nXwh8DZtUm8NR3vn6isaTyXtyZjtQsVUcDAyxP416fXu4aFSnSjGpuj8fz7E4PGZlVxGAjy05WaVkuivovO4UUleLfHr9qbwp8EbWW0klXWPE7JmHR7VxuXPRpm6Rr9fmPYd62qVIUo803ZHm4LA4nMayw+Fg5zfRf1ovN6HqvibxVpHg3RbnVtb1G30vTbdd0tzcuFVf8T6AcmvjX4nf8FFDHey2ngTQI57dGwNS1gsBIPVIVwQPdj+Ar5c+K/xo8V/GbWzqHiPUGliRibewhyltbD0RPX/AGjkn1rhulfMYnNJzfLR0X4n9A5F4fYTCxVXNP3k/wCXXlX5OT/Dy6n6P/si/tQa38cNS1zRfEVjZw39jCl1Dc2SlFkjLFWVlJOCDjBHUH2r6cr5O/YF+Dl14P8AB974z1JGhvPECItrA3BS1QkqxHYuxJ+gWvrGvewbqSoRdXc/HOKqeCpZvWp5ekqcbKy2ul71vncTAPaqOs6vp/h/
+S7rUtTuoLCwtYzLNc3DBEjUdSSelY3xE+JPh74WeGbjXfEeoJYWMQwoPMkz44jjXqzH0H44HNfmn+0J+094g+O1/9lIbSfC0Em+30uN8lyOkkxH3m9B0XtzzUYrGQwq11l2OjhzhfF8QVbx92knrL9F3f5dTsv2pv2urn4qzT+GfCUs1h4QjbbPPzHLqRHcjqsXovVurdgPBfAPgbVfiV4w0zw1osPnahfy+WuQdsa9Wkb0VVyT9KwOlfpJ+xX+z+Phj4N/4SXWbbb4n1uJWKyD5rS2PKxezNwzfgO1fN0YVMwr3m/X0P3nM8VguCso5MJG0npFdZS/ml3tu/klbQ9k+Evwt0j4P+CLDw5o8f7qBd01wVw9zMfvyv7k/kMDtXZbR1xzRXk37QX7RGhfAbw6s13i/127VvsGlRvh5SP43P8MYPVu/Qc9PrpShQp3ekUfzLSpYvOMXyQTqVaj+bb3f+fRHX/Eb4neHPhT4cm1rxLqMdhZpwi/elnfskaDlmPoPxwOa/Pb48ftoeKfimbnTNDaTwt4YY7fKhkxdXC/9NJB90H+6vHqT1rj7P/hPf2t/ixb2txdm+1K4JO+TK2un24PzEKPuoPQcscDk9Pd/iLY/B/8AZT8Mto2n6XY+OfiNImDLqSicW7ED55V+7Go6iMDJ4zwc18/WxNXFRcovkprr3/rsftWV5Fl/DtelSr03icZLVRXwwXd30SX8z+SR8Y+pH8Ryfc+tfo3/AME+/Der6H8Hb681GN4bPVdSa7sFkzkwiNELgdgzK2PXr3rx39mr9iy/8ZXVt4q+INq9hojH7RBo7rsmvMnIMi/8s4/9nqR6Dr9+WlpDY2sVvbxJBBEgSOONQqooGAAB0AFXluDnCXtp6djl484mwuJo/wBlYVqbunKS2VuifV93023vaamswVSScAck0rHFfnZ+2V+0Z4g17x5q/gvRNY+y+GdPK28/9nyYa6l2gyCRwclVJ27RxkHOa9jFYmOF
+hzy1PzHIMir8QYv6tRaikrtvov1fZH1Z8RP2vfhl8N7uWyu9cOrajE22Sz0eP7SyEdQzZCAj0LZ9qtfCL9qfwF8aNSfTNFvLmy1cKXTT9ThEMsqgZJTDMrY7gHPGcYr8oQAoAAwB0ArQ0HXr3wrrdhrOmytBf2Ey3MDocEMpyB9DjB9ia+fWbVee7S5T9qqeG2XfVXCnUl7W2km1a/pbb538z9q6WsjwjrsfifwvpOrw48q+tYrlcejoG/rWvX1Sd1dH85zhKnJwlugooprOqKWYhVAySTgCmQOpM188fFv9tzwF8OWnsdLmbxbrMfymDTXHkI3o833f++d3pxXxv8TP2vviR8SXmhOrt4f0tzgWOjkxcejS/fb8xXmV8woUdL3fkff5RwTmuapVHD2UH1lp9y3f4LzP0o8U/FDwh4I2jX/E2k6MzfdS8vI42P0BOTWt4f8AEWmeLNIttV0a/t9T025XfDdWsgeNxnGQR71+LE0zzTSTzO0kznc8sjFmY+pY8n8a/UP9i/wXrHgf4FaXba1E1tcXk81/Hbv96KKU7kDDsSPmx23Vjg8dLFVXHlsj0+JuD8Pw/gIYj6w5VHJK1kk9Hey1emnU92pM0E4r8/v2xv2n/Ek/jbVvA3hrVBpuiWO2G6uNPkxNcylcuhkH3VXO0quDkHJ7V34nEQw0OeR8fkWR4jP8V9Vw7SsrtvZL+tkfWXxC/aX+HHwxuHtdb8TW39oLw1jZBrmZT6MqA7f+BYqX4W/tFeA/jFdTWnhvWRLqEK72sbqJoJtndlVh8w9Sucd6/I/qSTyScn3PrWr4V8Uah4J8Sabr+lzPBqGnTrcxMjYJKnJU+zDKn2NeAs3qc93Fcp+zVPDTBLCuNOtJ1baN25b+lr2+Z+01FZfhjW4vEvh3TNWgx5N9bR3KY9HUNj9a1K+oTuro/nqUXCTjLdBRRUc9xHawvLNIsUUalnkdgqqB1JJ6CmRuSVS1jWrDw/p89/qd7b6f
+YwKWlubqQRxoB3LE4FfMnxq/bw8MeC2n0zwbHH4r1dflN0rkWMR/3xzJ/wAB4/2q+H/iR8YvF/xc1IXPibWJ78bsw2afJbxHsEiHGfc5PvXkYjMqVH3Ye8/wP0zJOA8wzNKrif3NN917z9I/52+Z9q/FL/goL4W8OyTWXg3T5fFF2uV+2ykwWgPqMje4+gUehNeJ6T+3/wDEKPxhY3+qR6ZJoKzD7VplrahS0RPzbJCSwYDke45rC+D/AOxb47+JwhvtRg/4RPQ3+YXWoxnz5B/0zh4bn1bA7jNeyfET/gn3pmjfDW+n8K6hqeseLbUCeNLl0VLpR96JUAAViMlTnqAD1rzubMK69qtEvl/wWfcRocF5TNYCpapOXuuT9619LuXwxt5WaPsnQdbs/Emj2WqafMtxZXkKXEMq9GRhkH8jV+vFv2Q/D/inwr8EdI0nxZYS6bfWksyW9vOR5i25bMe4A8Hk8Hn6V7Qa+jpSc4Rk1ZtH4XmGHhhMXVw9OalGMmk1qmk9GY/i7xZpngfw3qOu6xcraabYQtNPK3ZR2HqScADuSK/JX4z/ABW1H4zfEHUfEuoboo5W8qztSci2t1J2IPfkk+rMTXvP7dXx8HjDxH/wgWiz7tI0ibdqEsbfLcXQ/wCWfusff/az/dr5PVWkdURWd2IVVUEkk8AAdzXy+ZYr2s/ZQ2X5n9C8B8O/2dhv7RxMf3tRaX+zH/N7vyt5nuv7PuswfCnR7/xwtmNV8Y6i7aN4U0sLvd5mwJrkr/dXcqD+8Sy9iR9sfs1/AeT4W6Vea94im/tPx5rp+0apfOd5jLHd5Kn0B6kdSPQCuC/ZC/ZZPw/sbTxj4uh83xRNFiysZuRpkTZPTtK2STj7uSOpJr6p6V6uBwrhCM6i22X6+v5I/OuMM/p4rE1sNgpXUn78u6jtCP8AdW7/AJpNvawUm0e/50tfNn7S37YWlfCRbnw/4d8nWfF+3a4zugsCR1lx95++wfjjofSq
+1oUY89R2R8HluW4rNsQsNhIc0n9yXdvoj0T44fH7wx8C9CF1rEzXWpzqxs9Jt3/fXBHf/ZTPVjx6ZPFfmH8VPiprvxg8W3Gv67LH5rfJBawLthto85CIPT1J5J5NYvijxVq/jbXLrWdd1CbU9TuW3S3Fw2WPoB2CjsBwK6D4O/CzUvjJ4/07w1pu6MTHzLq6C5W2gX78h98cAdyRXyOJxdTGTUIrToj+l8h4bwXC2Gli68k6iV5TeyXVR8vxf4HtH7Fv7OKfE7X28W+IbUSeF9Ll2wW8o+W+uRzgjuicE+pwOecfolb6RZWu0w2kERXhTHEqkfTAqh4N8I6Z4E8L6boGj24tdN0+FYIYx1wOpJ7sTkk9yTW3X0+Fw0cNTUevU/n/AIiz6tnuNlXbagtIrsv83u/u2SE2gUtFFdp8oFFFJmgBaKztZ8RaV4ctTc6tqVnpdsOs15cJCg/FiBXlfiX9r74S+GWdJfF9rfTL0j02N7nP0ZFK/wDj1ZTq06fxySO/DZfjMa7YajKf+GLf5HstFfJPiL/gox4NssjRvDutasw7z+Xaqfocsf0rzPXv+Cjniq4ZxpXhXSbCM9Hu55JnH5YFcUsxw0ftX9D6zDcEZ7idfYcq/vNL8L3/AAP0B3D1o3Dsc1+X2oftrfGDxBIEttahtAxwsem6egP0ydxNSWvjT9pLxop+yXPje8if+K3smjj/AO+ljA/Wuf8AtSnLSEWz2v8AiHmOprmxOIpwXm3/AJI/T3d7GmtIinBYA+5FfmdD8Ef2j/E0gea28UAN1a71vyB+KmYfyq9b/sd/Ha+cNNIYW/vXOvMSPxBan9eqv4aL/r5GUuEMup/xc1pJ+Vn/AO3H6S0bvr+VfnnH+xZ8cmjBPiayQ/3T4hu8/pHirFv+yz+0XoZDWXihiV6CHxJOR+TjFafXK3WizlfDGWfZzWnfzVv/AG4/QTcPWivgGbwz+1t4RIaK81jUYU/553lrdL/3yx3H8qqr
++1D+0P4Puo7PW/Dc088h2RJfaDLG8hH90qBu/Cj+0Ix+OEl8hLgutW1weLo1PSev5H6E0VwPwR8WeKvGvw9sNW8Y+Hv+EZ1qZnDWXzAlAflfY3zJkfwtzx70njn49fD74b3jWfiLxXp+n3qjLWu8yzJ6bo4wzD8RXoe1hyKbdk++h8U8BiXiZYSnDnnFtWj723a17o7+ivItF/a0+EfiC8W2tfG9gkrHA+1pLbL/AN9Soq/rXrNvcR3UKSwyJLFIoZJI2DKwPIII6inCpCp8Ek/QjE4LFYNpYmlKDf8AMmvzJKKSjNaHELRRRQAUUUUAFFFFABRRRQAlfDn7f/xv82SD4b6TccLsutYaNv8AgUUBx+Dkf7tfU3xw+K1j8GvhzqniS72yTQr5VnbMf9fcNkRp9M8n0Ck1+R+ua3feJNYvtW1O4a71C+me4uJ36u7HJP8A9bsOK8LNMT7OHsY7vf0/4J+weH2Q/XMS8zrr3Kb93zl3/wC3fza7Gl4B8Ean8SPGGl+G9Hi82/1CYRqSCVjXq0jf7KjJP096/XT4aeANM+GHgnSvDWkR7bOwi2bz96Vzy8jf7TMST9a+ef2E/gSPBvhE+N9Xt9uta5EPsiSLzb2fVT7GT73+7t9TX1dWmW4X2NP2kt5fkcXHnEH9pYz6jQf7qk/vl1fy2Xz7hSUtFeyflgmKWikoAjubiK0gkmmkWKKNS7ySMFVVAySSegAr8sf2qfjtJ8bviHI1nK3/AAjGlFrfTY+gk5+ecj1cjj0UKPXP0j+3h8fT4e0f/hXmiXO3UtRiEmqSxtzBbn7sWezSY59FH+0K+IvA3gvVPiH4s0zw5osHn6jfyiKMY+VB1Z29FUZJ9hXzOZYl1JfV6fz9ex+/8BZDDB0HneN0uny36R6y+fTyv3PVv2T/AIAyfGzx0J9RhYeFNJZZb+TGBO/VLcH1bq3oo9xX6iW9vHawRwxIsUUahERFwqqBgAAdABXE/DD4faF8Dfhv
+Z6LayxW1jYxGa7vrhgnmyHmSaRjwMn16AAdq+Yfj1+3wLWa50T4bJHM65jk8QXCbkB6HyIz97/fbj0BruoqlltG9R+8z5HM6mY8dZm44GH7qGkb6JL+Zvu97b201sfS3xa+O/g/4L6b9o8Ramkd267oNNt/3l1P/ALqDoP8AaOBx1r4L+NP7aXjP4oefp+kO/hPw++VNvZyH7TMv/TSUcj/dTA9zXhGta1qHiTVbnU9WvbjUtRuW3zXV1IZJHPuTXqfwL/Zl8T/G24W8jH9i+F42/f61dJ8hA+8IgceYw55+6O5ryKuNr4yXs6Ssuy/Vn6TlvCuT8M0PruYyU5x+1LZP+7Hq+277WPMvDfhjVvGOswaToenXOq6lcH93bWsZd29SfQepOAO5r7M+Fv7Hfhf4V6OnjH4xapYjyMSDTZZgLSJuoEjdZn4+4vHbDUmqfHz4X/ss6HceGfhfpsPiXxFjZd6q7ho2kHGZZhzJj+4nyj1Gc18m/Ef4qeKPi1rR1TxRq02ozAnyofuwwD+7HGOFH6nHJNZpUMLrL359ui/zO6c834j92jfC4Z/af8Sa8l9lPvv67H2V42/4KIeGfD8zWXhLw3c6za267VupnFrCVXsiYLYwBjgfSvrDwrrTeI/Del6q9s1m19axXJt3bLR70DbSfUZr8lfgT8PD8U/i14c8OElbe4uPOuWHUQxjzJPxIUj8a/XqCJLeFI0UIigKqrwABwBXt5fXrYjmnUenQ/J+NspyzJXQwmCi/aNNybbba2V+mrT2SJaz9c17TvDOlXGparfW+nWFuu6W5upBGiD3Jryv45ftQ+Efgnay29zONW8RFcw6PZuDJk9DKeka/Xn0Br5CtNN+LP7cPiQT3c39m+E7eXIfayWFrz0jXrNLjjJz9VHFdFfGRpy9nTXNPsv1PEynhitjaX13Gz9hhlvOXX/Cuv5drvQ7T43ftyap4svJfDHwstrmMTv5C6usJa6uD0xbxYJXPZiN
+3oBWF4X/AGN30vwjrHj34v6tc6daw20l7Lp1vNuu2baSDNMc4csR8oySTya+tfgn+zj4R+B2n/8AEptTe6xIu241i8Aa4k9QvZFz/Cv4k182f8FA/jR9ourP4caXcZSIpe6sUPVusMJ+n3yPdPevOr0nCDr4t3fRdL/1/TPt8pzKGJxcMn4bp+ypvWdR/G4rd36dl5tW5T4tbG5ioZVycBuoHYH3r2j9lX4ESfG74hRrexMPDGlFbjUpcECTn5IAfVyOfRQT6Z8v8G+D9V8feKNO8P6JbG61O+lEUUY6D1Zj2VRkk9gK/V/4R/DPQ/gP8N7XRoJoYobZDPfahMRGJpiBvldjwB2GegAFebgML9YnzS+Ff1Y+94y4i/sbCfV8O/39TRd0usv0Xn6HfW1vFZ28cMMaxQxqESONQqqoGAAB0AFeW/Hn9orw38CdFEmoSfbtbuFJs9IgcebL/tN/cT1Y/QZNeMfHr9vHSfDkNzo/w+MWs6ryj6xIM2lueh2A/wCtYf8AfIPr0Plfwc/ZL8Y/HTWx4x+It7fWWl3jiaR7pj9uvx/sg/6tMdCR0xtXFe7WxjlL2WFXNLv0R+P5ZwxDD0lmXEEvZUekX8c/K26/P0Wp5V4y8S+Ov2kNa1jxTq0o/svSYmlllkYx2Gmxfwxrnq7HAAGXc+3TysV9DftYfEzRZtQt/hp4FtodM8FeHZSssVnxHd3g4ZyerhOV3MSS24+leO/DnwDqnxO8aaX4a0dN15fS7fMIysKDl5G9lGT+Q718vWjeryp80ur7vyP6ByquoZesRUpqjSSvGO3LBdZebWrXTbV3Z7p+xR+z+PiZ4ubxVrVtv8NaJKpijkX5bu6GCq+6pwze5UeuP0iAxXOfDvwLpnw18GaV4b0iLyrGwhEanHzO3Vnb1ZmJYn1NVfiJ8VvC3wr0dtR8Taxb6bFgmONm3TTH0jjHzMfoMe9fX4WhHB0bSfqz+Zs/zbEcTZk5Uotx2hFau3p3
+e7+7oL8VPiLp3wp8B6v4n1NgYLGEskO7DTynhI192Yge3J6CvyQ8eeOtY+JXizUPEeu3JudRvX3Mc/LGv8MaDsijgD+pNeu/tSftPyfHq8sdO0u0n0zwzp8jSxxXDDzLmUjAkdRwMDOF5I3GvGPCejx+IvFeiaTLKYItQv7e0eUdUWSVULfgGz+FfPZhivrNRQpv3V+LP2/gzh7+wsHLF4yNq09+8Yrp8938l0PT/gT4y8a22l6j4O+GujN/wlGuy/6XrUHM8VsAAqKxG2FQSxMhPcY5Ar7A+An7F+h/Du4g8Q+LJE8UeKy3nbpstbW0hOdyhuZH/wBtu/QCvaPhp8KfDHwl0FdJ8MaXHYQHBml+9NcMBjfI55Y9fYZ4AFdd0r2sNgVTSdV8zW3Zf13PybPuL6mOqVYZdH2VOfxP7c+mr6K2iina33BjFVNW1iy0HTbnUNRu4bGxtkMk1xcOEjjUdSWPAFeb/GX9o/wb8FbOQavfi61gpuh0ezIe5kOOMjoi9PmbH418E+Ovip8Sv2uPF8WiWFpPPab99toOnkiCFe0kzHgkD+N+BztAzzricbCh7kfel2Rw5Hwpi82X1is/ZYdauctNPK+/rsu/Q9W/aL/bok161vfDnw8MlrYyZin198pLIp4IgXqgP988+gHWuF+Af7F/iX4rR2+teIGm8NeGpMSJJIn+lXa9cxofuqf77dc5APWvov8AZ9/Yj0L4ei01vxgsHiLxIuJEt2G6ztG6jap/1jD+83HoOhr6W1bVLPQdLu9Qv50tbK1iaaeaQ4WNFBLMfoBXHDB1MRL22LfyPp8XxPg8lovLeGob71Hq5Py7+rVuy6n5I/Hn4Xj4O/FTWvDEU73VnbsktrNJje0LqGXdjuMlT67c964O2tZ7+4itbWJp7md1iiiUZLuxwqj3JIFdt8cPiU/xc+KWveKNjRW11MEtIm6pboAsYPuQMn3Y19L/ALDP7ODXlxbfEvxFAVhjJOiWsi/f
+bobkg9hyE9eW9M+FCh9YxDhS2v8AgfsGJzZ5Hk0MXmT/AHqjFNfzTtt9+/bVn2J8NPDsvhH4feHNFnOZ9P0+C2k/3lQA/rXS5rj/AIlfFjwv8JNDOp+JtUisIeRFD96adh/DHGOWP6epr4G+OP7bfiv4lfaNL8NmXwp4ebKHyX/0y4X/AG5B9wH+6n4k9K+rr4ulhI8revY/nLKOHMy4jrOtTjywbbc3ovO3d+S+dj66+NX7W/gn4PrPZG6GveIU4Glae4Yo3/TV/ux/TlvavhL4vftTeO/jF51rf6j/AGVokhI/snTSY4mX0kb70n48e1ebeF/Cur+NtettH0LT59U1S6bEdvAuWPqxPQAd2PAr7u+CP7BOheG47bVPHsi+IdVwH/syIkWUJ9G6GUj3wvsRXh+0xWYtxhpH8P8Agn62sBw9wRTjVxT9pX3V0nL/ALdjtFeb+9nxp8NPgn4z+LV2kPhnQri7t921r6QeVax+u6UjHHoMn2r6v8G/8E5bFdEuG8U+J55dWliIhXS0CQW8nZiW5kx3HANfZljp9tpdnFaWdvFaWsKhI4IECIijoAoGAPpU9elRyujTXv8AvM+CzTxBzTGSthLUYeWsvm3+iXzPh/4B/sK6nofj6TVfHy2c+l6XNusrSCTzFvXBysjjHyoODtPJPB4HP2vqGo2mj2E95e3MNnZ26F5bidwiRqOpZjwBXDfF/wCOnhP4KaOLzxDfbbmUE22n24D3Fwf9lfT1Y4Ar4H8efFT4lftheL00HRbCcaUHDw6LZviCJc8S3MnQn3bgc7R6jqUMvj7KkryfTr8x08Fm3GdZY/MJqnQgviekUlvyp7t9Xe3d7I9T/aM/bqF/a3vhz4cu8cb7op/ERypK9CLdeo/66H8B3ryz4E/se+K/jHs1fVXl8N+HJDvF7cxk3F1nnMSN1B6724PbNfTn7Pv7Eug/DdrfW/Fv2fxL4jXDpCybrO0b/ZU/fYf3m4HYcZr6V1G/
+ttI0+4vbuZLa0tomlmmkOFjRQSzE9gACazhg6mIl7XFv5HbiOJ8FkdF5dw3DV71Hq2/JdfK+naPU/IP4zfDWb4R/EvW/Css5u0sZVMFwV2mWJ1DoxHY4bB9wa4yOGS4kSGGNpppGCRxoMs7E4VR7kkD8a7r46fEn/hbXxW8QeJ40MdpdTCO0RhgiBAEjz7kDcfdjX0H+w7+zg3iLUrf4i+IbYjS7OQnSbaQcXEynBmI7opyF9WGe3PgxofWK7p0tr/gfsuIzZ5Pk8MZmT/eKKuu87bL1f3avZH2n8LdBn8K/Djwxo91/x82Om29vL/vLGAR+ddRWB428d6F8OfD9xrXiHUoNM06EcyzNyx7Ko6sx9BzXwZ8dv26tf8cLcaP4JSfw1orZR78nF9OvsR/qgfb5vcV9bWxNLCRSk9ex/NOVZBmPEleVShG0W7yk9Iq+vzfkj6q+Nf7Vvgr4MebZ3Nyda8QKONJ09g0in/pq3SP8efavgP4zftL+NPjXO8WqXv8AZ2h5zHo9ixWADsXPWQ+7cegFcH4W8I678QNeTTNC0261nVJzuMcCl25PLO3RR/tMQK+2/gz+xP4e+HVgPFPxRu7K+uLZRMbGWQCwtfeVjjzDnsfl9jXguriswfLHSP4fN9T9hpZfkHBMFVrv2uIe3WTf92P2V5vXzex81/BP9lvxl8a5Irq0tv7H8PE/PrF8hEbDuIl6yH6fL79q+0PDnwk+Dv7KOjQ6xrVzZjU1GRq2sESXMjDH+pjAO3n+4MjPJrzb40ft8WGjwyaJ8M7SK7dF8oazcRbbeIDgeTFxux2JwvselfFfibxRrHjTWZ9W17UrnVtSmOXubqQu30HYAdgMAdhS9rhsHpSXPPv0+X9fM2+oZ7xQ+fMJPDYd/Yj8cl/e/wCD/wCA9T9OPhb+1x4K+L3jj/hGNCh1X7W0LzJcXNqI4nCDLfxEjjpnrXt1fEX/AATp+GrqviLx1cphZB/ZVlkckAq8zfTO
+xQfZhX27mvoMHUqVaKnU3Z+LcUYHBZbmc8JgL8sEk7u/vdf8vW4V8/8A7Xf7Qq/BvwZ/Z2kzqPFmrIyWijk20fR5z9Oi+rH2rX+Ov7VHhL4M6fdW/wBqi1nxOq4h0a2kBYMe8rD/AFajvnn0HNfmh8QvH+tfE7xbfeI9fuftOoXbc44SJB92NB2VR0H1PUmuLH46NKLp037z/D/gn1PB3CVXMq8cbjYWoR1Sf230/wC3e767LrbnpJGdmkkcs7Eszsckk8kk19yfsa/sovY/YviB4ys9tywE2kaXOnMQPS4kU9GI+6p6dTzgDgv2Kf2bx8QNZj8b+Ibbd4d06b/QraVflvbhT94jvGh/NuOxr9Eh8tceW4LmtXqL0/zPp+OeK3S5spwMtdpyXT+6v1+7uAGKq6pqlpoun3F9f3MNnZW6GSa4ncIkajqzMeAK4f4vfHbwn8FdIN34gv1F3Iha202Ahrm4PbavYf7RwBg1+d3xk/aG8bftIa5BpEcE0GlSTYsvD2mhn8xv4S+OZX/8dHYDk16uKxtPD+7vLsfnXD/CmMzx+1f7uit5v/23v+S6s9c/aL/bmutd+1eHvhzNJZaccxz69tKzTDuIAeUX/bPzHtjrXyTfaXqFrZ2mo3lvNHBqBeSCebrPg4Zxnlhnjd0JzzmvrX4f/sl6N8J/CV38QvjI6PbafF9oi8PwvuDP/AkrD77s2AEXjJ5JGa+YPiF481H4k+LLzXdSCRPNhILWEbYrWBeI4Y16BFXgAe57181i/aytPEPV7Lsj964b/s6i5YXJoXpQ+Op/NLsn9prdv4VoktdOeiikuJUiiRpZZGCJGgJZmJwAAOpJIGK/Ub9k/wCAMXwU8BpLfwqfFWrKs+oydTCMZSBT6LnnHViT2FfNf7CPwH/4SrxE3j/WbbdpWlyFNNjkHyzXI6yY7iMHj/aPtX6DcLXq5XheVe3mtXt/mfnfiDxE6tT+yMNL3Y6z830j8t35+gtFeafE
+79orwF8JVdNe12EX69NOs/39yT6bF+7/AMCxXyZ8Rf8Agoh4i1RprfwbodvolueFvdRP2i4+oQYRT9S30r1K2MoUNJS17I/Psr4WzXN7Sw9K0H9qWi/Hf5Jn33LMkMbSSMqIo3MzHAA9Sa8h8fftZfDH4fGSK88SwajeJ/y6aSPtUn0yvyg+xavzZ8TfEvx78WtRS21fXdY8RXMzfu7FGZlJ/wBiCMbfyWvTPAP7DvxM8ZRxz3llbeFrOTnfqkn736+UmT+ZFeY8yq1nbD07/wBf11Pv48C5dlcVVzvGqPktPubu38onrPjL/go85LxeFfCPqFudXuMfQiNP5E14f4u/bG+K3i7fG/iY6RA3Hk6RCtuMem7l/wAmFfTvgn/gnb4Q0ry5fEutajr8wwTDBi1hz3BxliPxFe+eC/gf4C+Hqp/YHhTS7CVPu3HkCSf/AL+vl/1o+r46v/Enyr+u3+YPPOEco0wGE9rJdWtPvndr5RPzC0X4R/E/4tXi3lt4f17XZJP+X+/D7CPXzpiAR9Ca9j8J/wDBPHx1qqJJresaToKHkxIXupMfhtUH8TX6JbR07UVtDKqMdZts8rF+I2Z1FyYSEaUfS7/HT/yU+TfC/wDwTr8F6dhtc13V9bcYO2Ipax/T5QSR+NeqaD+yX8J/DsiSW/guwmlX/lpeF5yfqHYj9K9forvhhKFP4YI+NxXEmcYx/vsVP0TsvuVkZujeG9J8OweTpWmWemQ9PLs7dIV/JQK0aWiupJLRHzspSm+aTuxMUUtFMkSilooATFGKWigBCK+Qfix/wT/tPGHijU9d8P8AimbTJtQna5ltdRhNwgdjlirghsE54OcV9f0Vz1qFPELlqK57OV5xjsmqurgqnK3o9E0/k7nwTpP/AATd12S8Qar4006K0z8xsrOR5CPbe2AfrmvtH4c+BbD4Z+CdI8MaY80tlpsAgjkuG3O3JJJPuSfp0rpaKihhaOHbdNanZm3EeZZ1CNPG
+1Lxi7pJJK/fRHlX7Qnw98a/ETwnBY+CvFzeFbxJi8+3cn2lNpATzU+ZMHn5evevK/gF8AfjF4E8aW2qeJviJJcaNGW+0aY15PffalIOBmXhOcHI54r6popyw0J1FVbd15meHzzFYbBSwEIw5JX3hFvXzt9zeq6WEHQUtFFdR88FFFFABRRRQAUjNtGaWvnv9sz44f8Ko+G0mm6ZceV4k14Na2pQ/NBFjEs3sQDtB/vNn+E1lVqRowdSWyPRy7AVszxdPB0F703b07t+SWrPkv9s743f8LV+I7aTptx5nhzQGe3gKn5Z7jOJZfcAjYPZSe9Yf7KvwPb41fEiGO9hZvDelFbrUm7SDPyQZ9XI5/wBkH1FePWFhc6pe21lZwPc3dxIsMMMYyzuxCqoHqSQK/Wb9nf4N2vwT+Gun6IFR9UlH2nUrhf8AlrcMPmGe6r90ewz3r5XC0pY7EOpU2Wr/AER/RXEWYUeEclhgME7TkuWPf+9P11+9+R6ZDEkMapGqoigKqqMAAdAPan0UV9efzIFFFFABXCfGn4rad8G/h9qfiS/2yPAmy1ts4NxO3EcY+p5PoATXdM20V+Yv7ZPxy/4Wz8RW0vTLjzPDWgu8FuUPyXE3SSb3HG1fYE964Mbifq1JyW72PsuFcilnuYRpSX7uOs35dvV7fe+h4j4m8Sal4y8Q6jrmr3DXep6hM1xPKe7E9AOwAwAB0AAr9Ev2Mf2df+FWeFf+El1y22+KtYiB8uQfNZW55WL2ZuGb8B2OfAv2JP2dv+Fga+vjfXrfd4f0mcfY4JFyt5crzk+qRnB92wOxr9CNU1CDRdMur64JW3tYnnkYDJCqpZj+QNeXluF/5iKny/zP0HjziBaZHgXZKynb8IL06/Jd0fEH/BRL4kah/bGg+CbWaaDTfs51C9Ckqlw7MVjRv7wUKWx0y49K+L69F+PHxq1L46ePLjXbvMGnRgw6bZZ4ggzkZ9Wb7zH1OOgrz+zs7jULqO1t
+IJbq6lOI4IULu59lHJrxsXV9vWlNO66H6pw5lzynKqOGqxUZJXl6vV3f9dtjvPhLqHw88P3U+seOLLUfEMtuw+x6BZoEhnbGd08rEfKD/AOT3yOD3HjL47/En9oq8g8IeG9NfTtGYCODw54fQqnljp5rjGVGO+1OOldp8Gv2B/EfizyNR8b3LeF9MbDfYIgHvZB6HPyxfjk/7PevuD4c/Crwv8KdEXS/DOkw6dB1kkA3TTN/ekc/Mx+pr08Lg69SHLL3Iv73/X9I/P8AP+KMmweJ9tRX1ivH4bu8IenS/mk3/eR8deF/2JrT4d/D7XfGHxDnS/vtP0+e5g0Szc/Z43WMlPNcYL4bHyrheOp6V8bKxZQWwGIycdK/abxV4btPF3hvU9Fvwxs9QtpLaXbjdtdSCR7jOR9K/Obxd+wZ8TtB1a4g0a2s/EenKx8m7iu44HZO25JCCGx1AyM9CaMdgXBR9hG6/EOEeLoYuVeWb4hRm2uW75Ypa6Lotd+r8zyj4O/FK/8Ag14/sfFOn2sN9LbpJE9rcMVSVHUqRkcg85B9R0Ne3+Lv22Pif8WruDw/4M0seH57w+WsOk7rq9lJ4IWQqNg91UEf3qm+H3/BPfxrrd5DJ4r1Cx8OafnMsdvILq5PsoX5B9Sxx6GvtD4TfAvwh8GNLNr4c00JcSAefqFyRJcz/wC8+On+yMAelGEwuLceRtwj+P8AmLiPiHhuFZYmNKOJxCVl1ivV/C/km/NHzh8Ev2DV+2L4g+KNz/al5I3mnRopmdS5Oczy5y5/2V49SelfQHxd+L3hb9nTwNBc3NtHGij7Pp2j2KrG0pA4VF6Kijq3QD1OBXS/E74iaX8KfA+qeJtXY/ZLGLcIkI3zOeEjX3ZiB7cnoK/J34pfFHXfi/4wuvEOvT755Ttht0J8q2iz8saDsB69Sck12YipSy6HJRXvP+rs+ZybA5hxxi/reZTfsKb2Wiv/ACxXTTd72trc9qX9v74it4sn
+1OSLTxpTQSxQ6LFEFiRyP3cjSEF2KnkjIDdMCvnTUtSv/E2tXN/fXEl9qd/OZJppWy0sjtyST6k1SpVjaZ1jRDI7naqKMliewHc+1fN1K9StpUlc/dsFlOAy1uWDoxg2knZdFtf/AD3fU+uPhb46+H/7Inh27nupIvGPxNv49txb6XIrwWCdRAZ+VHOC5XJJxgEAVwureKPi9+2Z4m/s+1hkfSonz9jtcw6dZj+9Kx+82P7xLegGcV1/wB/YU1jxh9l1rx35vh/Q+Hj0uP5by4X0b/nip/769hwa+9fCvhHR/BOh22j6Fp1vpem24xHb26BVHufUnuTya96hhq2Igoz9yHbq/X+vkfjmb5/leTYqdfCWxOLe85axj5RW2nRL5yZ4f8B/2M/CnwnWDVNXWPxP4mUBhdXMY+z2zf8ATGM9CP77ZPpt6Vd/bB+Np+EPwzlttNuPJ8R61utLEofmiXH7yb22qcD/AGmHpXvTdK/K39rz4kS/EX44a5iXfp2jSHSrROwEZxI31Mm78FWuvFyhgsPy0lZvT/gnzfDVDE8V50q+Yzc40/ed9tHpFLZJvouiZ4vz3JJ7k9a+v/2S/iB8K/gb4Bu/FHiHXYpPFuqSPCbG3iaa5t7dGIVAijjcRvJJwQV9K+QK7r4V/BPxf8ZNUW08N6XJPbBgs2oTZS1g92k6Z68DJ46V8zhqk6dRSpxvLofvmfYPDY7AypYys6dK6cmmldLo276N2+499+Kf/BQbxLrzy2PgbTY/D1ozbVv7tVnu37DCcohPp8x+hrjfBP7LnxW+PerjXvEUlzpttckNJq2vu7Tuv/TOI/MeOmdor65+Bf7HvhH4PtBqd4v/AAknidV/4/7uMeVAxHPkx8hf945b3HSvfNor6KGCq4j38XK/l/X9eZ+IYnizAZOnh+HMOo9HUkrt+l9f/AtP7p+OHxW8AzfC74ia74Wmma6Omz+Ulw0ewzIVDK+3JxkH1PSuWjkeGRJI3aOR
+CGV1OCpByCD2INfo1+1p+ybP8Yri38TeF5be38TQxiC4t7ltkd5EM7fmx8rrnAJ4IPUYr5Vi/Yn+MUlx5R8MQxjPMjalb7B7538/hXi4jBVadRqEW10sfquS8WZbjsBTqYnERhUSSkpNRd1u9baPfQ7XR/8Agod4803RLazudF0XUb2GMI19MJFaUgY3MqsBk98YHsK5TxR+2b8XfiBIunWWpJpH2k+WlroFoUlkJ6BWJeTP+6RXp/w//wCCc2p3UkU/jPxNDZQdWs9HQyykehlcBVP0Vq+rfhn8A/A3wjhH/COaFBb3e3a+oT/vbl/rI2SPoMD2r0qeHx1ZWqTcV+P9ep8Nj864RyubngsLGtU8l7qfrLT/AMBT+R8b/B79hbxR48vF1v4hXdxoNjM3mvas/mahc887yciPPPJyfavuD4e/C7wv8LdHGmeGNHt9Lt+PMaMZlmI/ikc/M5+prqgMUtexh8JSw691a9+p+YZzxJmGdytiJ2h0gtIr5dfV3E6V8M/t1ftFJeNN8NfD1yrxowOtXMTZG4EFbYH2OC/vgetel/tl/tKXPwl0e38NeHJfL8UarEZDdAZNlb5xvH+2xyF9ME+lfnDLK0jvLK7O7MWeSRskknJJJ7k15OZYzlToU9+v+R+i8CcLOrKOb4xe6vgXd/zPyXTz16K/ovwF8E6D4z8eQnxZqlrpPhTTU+2anNdTiISRggLEuTkl24OMkAGvqf4qft46ZpNuvh74WaX/AGlcqotoNQlgIt48DaoghHzSEADGcDp16V84fCL9lbx58YJoLi00w6RorHJ1bU0McePWNcbnP0GPUjrX338E/wBl/wAHfBO1Sezt/wC1vEJXbLrV4gMvPURjpGvsOfUmsMDSxDhy01yp7vr8v6+Z7XFuYZJTxUauNm684K0aSfup9XNrr5drLle5+Z3xK1DxdqXjC7m8cSag/iJlSSVdSyJUVlDIAvRF2kEKAABjiuXClmCqCzMQAo7k
+9BXcfHLXrjxL8ZPGeo3IcSSapOoR+qKrbVX8AoriFZkZWU7WUhlYdiDkGvEqfG9b6n6xgbvC0m4qL5VotlpsvJH6mfss/AGw+C/gW3lnt0fxTqUKS6ldMMspIyIF9FXPQdTkmvba+DPD/wDwUe1XTvD9paal4Kh1PVIYhHJfJqRhWVgMbzH5TYJ6n5uuelc14o/4KEfEPWofs+j6bpOgvIcLLHE1zNn0Xedp/wC+a+qhj8JRpqMHt5H854rg3iTNMZUr4qKvJ/E5K3ys27W2VtF0P0K1rXtO8O6fLf6pfW+n2UQy9xcyCNF+pJxXyX8bf2/NI0i1uNM+HcY1fUSSh1i6jItYu2Y1ODIfTOF+vSvFPD/wO+Nn7TOoQ6h4jur+DTD8y33iB2jiVTz+6gAye+MKBnuK+sfg5+xp4G+FUkGoXcTeKNfjwwvtRQeXE3rFFyq/U7m96PbYnFaUo8ke73+Qf2ZkHDr58yrfWKy/5dw+G/8Aef8Aw3+FnzT8Lf2VfHn7QmvHxh8RNRvtN026YSPPec312nZY0PESY4BIwOymvuz4f/DXw58L9Bi0fw1pUOmWa8tsGZJW/vSOeXb3JrpsUtduHwtPD6rWXd7nyudcR43OmoVHyUo/DCOkV29X6/Kwh4r4k/bt/aHTyZfhroFyrSPtbWriI/cHVbYH1PDN6DA7mvUf2vf2lD8GfDsWi6Gyt4u1WNjC5GVs4ehmI7tnhR65J6YP5pXV1LdTzXNzM800jGSWaVsszE5LMT1JPevMzLGcqdCnv1/yP0DgThd15xzfGL3F8C7tfa9F07vXZa+i/s//AAwtPil8Qraw1a8h07w7ZL9s1S6mmWILApA2BiRgucLx0GTX2Z8Rf23PAHww0uPRPBNqniW5tIxbwQ2R8qxt1UYC+Zj5gAMYQHp1HWvjT4Zfs6+Pvi4yf2HoUyabIcNqN+DBagZ67mHz49FBNepfGD9nnwt+zX8P7W81+9fxX411YtDY2i5h
+sbfAG+UqPnk2ZGNxAJZcrXn4eVejRlKnGy6yf6f0z7XPMPlOaZpSoY2u6klpGjDv1cmnp53cbJdTxf4q/F7xN8ZPEj6x4kvjMwJFvZxZW3tV/uxpk49yck9zXPeGbPTdQ8SaVa6xePp2kTXUcd3eRpvaCEsA7gd8DJrNFbXhHwXrvj7WY9J8O6VdavqD/wDLG1QttHqx6KPc4ry+aVSd3q2foKpUMHhvZ07U4RXSyUV37aeZ9tL+0x8GP2dfCp0b4bWH/CR3rAbpLXIWd8Y3zXLDLfRQcdgBXhV3qHxg/bP8R+VHHJNpMMmPKjzBpdl7sT99seu5vp0r2f4Lf8E/YLWS21X4j3q3kgw40Oxc+V9JZere6pgcfeI4r7G0XQdO8OabBp+l2Nvp1jAoWK2tYxHGgHoo4FfTQw1fEpKt7sP5UfgOKz3J8hqynlcXiMS96s3ez8tr/K3qz8vv2kvgXpvwDXwroyajLq+vX1vLeX90RsiUBlVI406gZLck5OB06V4pX6G/ts/s5+Ifit/Y/iXwtCuoajpsL2txp24K8sRbcHjJ4LKc5XuDx0xXxp/wzz8T/tS2/wDwgHiASscDNk2Prnpj3rx8ZhZ06zUIe70P0/hnP8Pjcsp1MViIurrzXaTvd9NNLWtbSx7n+zb+2V4f+Dvwvh8LazoOpXdxZzzywz2BjKyiRy+G3MCCCxGeRgCsH4mftu/EL4nSnRvC9sfDFpdHyUh03dNfT5PQSYyCfRAD71p/DX/gn34y8RTQXHi6+tfDGnk5e3hYXF2R2AA+Rc+pYkf3TXvHjfwn4F/Y4+Dur614c02MeIpo/sdlqN7iW7muZAQp3EcKoDOVUAYU+td0IYyVG1SXJBL52PkMXieGaOZueDorE4mrLRXbgpN73d4766J28j859WsrvTdUvLXUEdL+KVkuFkbc4kB+YMe5B4Pvmut+DPwr1D4yfELTPDNjujjmbzLu6UZFvbqR5kh98cD1YiuKmmea
+R5ZZGkldi7yOcszE5JJ7knJ/Gv0o/Yk+Cg+G/wAN01/UbfZ4g8QqtxJvHzQ2/WKP2yDvP+8PSvOweH+s1uXotz7rifO/7By11k17WXux9e9uy3+5dTe+POpa/wDAf4I2158OYbGzs/D3lLNaXMHmqbQfKSOQdwYhiepya8Gtfj3+0j8SfBsGqeFtF0q4sJi0ZvtBtklmRxwyOskjBGHBxt6EHvXun7avjC38K/AHX4JHAutWCadbLnks7AsQO+FUmvLf+CbtjeL4T8aXchJ06a/gjgU9BIsbGTHvho/yFe9W5pYpUIyaTXTofjmVqlQ4eq5tiMPCpUjU0c1fmTtfqrtNt3d9mjyzwz+xX8Vvijr0mreM71dGNw4a4vdUnNzdyDvhFJ5HoxAr7P8Ag7+zz4N+CViBoen+dqjptn1a7w9zL6jdj5F/2VwPqea9NwB0FebftFfEz/hUvwh1/wAQRFft6RC3slbobiQ7EPuFyWPsprqp4WhhE6m7XVngY3iLNuJKlPAJqMZNRUI6R10V+rXq7LsfF37c/wAcH8deNh4M0u53aDoUn+keW3yz3mMMT6iMEqPctXgXw48Gt8QvHmheG1ukshqV0sL3MhAEUeCztzxkKrEepwK56SV55HlldpZZGLvI5yzMTkknuScn8abuK8g4xzkHGK+Qq1nWqupP+vI/pjL8rhleXxwOFfK4q17faf2muuutvkfpV4n/AGpPhV+z/wCG7bwx4elGtzaXCLeDTdIIdUx/z0m+6CTkk5JJJODXyd8U/wBtD4ifEpZbS1vV8K6S+R9l0hmWR1PZ5j8x4/u7QfSuF+GHwF8b/FyZF8N6HNLZA7W1C4Hk2qf8DPB+i5NfY/wm/wCCfnhrw35N943vm8T3wwfsNvuislPof45Px2j1WvWUsZjVaC5Y/cv+Cfms8PwvwrJ1cXL22I3196V/TaPe8tfM+IvA3wx8WfFLUmt/DeiXmszM2JZ41Ploc9ZJW+Ufic19
+ZfCv/gnbuMN74/1s44Y6Vo5x+DzEfmFH0YV9o6Noen+HdOhsNLsbfT7GEbY7e1jEcajGOFAxV+vQoZXSp61Pef4HxmbeIWY4y9PBJUYeWsvv2XyV/M5XwL8LfCfw1sRaeGdBstIjxhnhjzK/u8hyzH3JNdTilor2IxUVaKsj8wq1qlebqVZOUnu27v72FFFFUYhRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFJQBS1vWLPw/pF7qeoXCWtjZwtPPNIcKiKCWJ/AV+SPx0+LN58aPiPqXiK43x2ZPkWFs3/LC3UnYMep+8fc19Vft/fHAWdjB8N9IuP9Iugtzq7IfuRcGKE/7xwxHoF/vGvkT4T/DXUvi54+0rwvpgKyXcmZp8ZFvCvMkh+g/MkDqa+XzKu61RYen0/M/oXgPJ6eWYKedYz3XJOzfSC1b+f5Jdz6V/YG+Bo1rWJfiLq9vus7B2g0lHHDz4w830QHaPck9hX3uOKx/B/hXTvA/hnTdC0mAW+nafAsEMY/ugdT7k5JPck1s17uFw6w9JQW/X1Px7iDOameZhPFy+HaK7RW3+b82FFFFdZ82FFFFAHj37UOveLLH4a3GkeCdH1DVfEOtt9hjexiLfZYmH7yVm6J8vygkjls9q+YPhL/wT317WHgvfHmoJoNkCCdMsXWa5dfRpBlI8+2489jX3/RXDVwdOvUVSprbp0Pr8u4mxmU4KWDwKUHJ3lO15P79EkvLzMrwr4X0zwX4esND0e1Sy0yxiEMECdFUe/ck5JJ5JJNaF1axX1tLbzxrLDKpR43GQykYII9CDU1FdqSSsj5OVSc5upJ3k9b9b9z5ovv8Agn/8MrzW3vY21i0s2fedOt7sCEf7KkrvA+h4r2H4e/BnwZ8LbfyvDOgWmmuRhrlV3zvxjLSNlj+ddtRWEMPRpvmhFJnsYrO8zx1NUcTiJSj2bdvn3+YmMUtFFdB4gUlL
+RQAUUUUAeKftXfBXW/jh8O4NH0LULe0u7W8W8EF3lY7jarAKWAO0/McHBHr618Dyfso/FuO/lsz4H1AyxttLq0ZiP0k3bSPoa/WOkwPSvMxGAp4mfPJtM++yPjLH5FhnhKMIyhe6undN+jV/mfnN4F/4J9+P9flik8RXmn+F7Q8urSfarjHsiHZ+b/hX1x8IP2V/AnwdaK70+wbU9bQf8hbUsSTA+qDG2P8A4CBXsVFaUcDQoO8Vd92cma8XZvm8XTrVOWD+zHRfPq/RtoQDFLRRXefGCGvg74g/8E+/FutePNX1HRNf0Y6Rf3st0v255UniEjlypVY2DYJIzuGcdq+8qK5a+Gp4lJVFsfQZPnuNyOc6mCkk5Kzur+h8nfDD/gn14V8NzR3ni/UpfFdyh3CzjQ29p9GXJZ/xIB9K+pNI0Wx0DT4bHTbOCxsoV2x29vGERB6ADirtFXSoUqCtTjYwzLOMfm0+fG1XPsui9EtF9wUUUVueMFJj2paKACiiigAooooA8R+Nn7JfhH44a9b63qd3qWl6pHEsDz6fImJY1JKhldWGRk8jmpPh3+yD8NPhzNHdW+if2vqMfK3mrv8AaGU+qqfkX8BXtVFc31ajz+05Vc9z+3MzWGWDWIkqa0snbTt6eWw1I1jUKoAAGAB2HpSmlorpPDPlv4/fsP6Z8UNfvfEvhzVF0DXLs+Zc288e+1uJO78fMjHuRkHrjOa8Eg/4J6/E2S6Ecl94dhizzN9slYY9QBFn+Vfo/RXm1Mvw9WXO1Z+R95geNs5y+gsPCopRWi5ldpev+dz4w8Hf8E4dMt2jl8UeLbm/xy1tpcAgU+xdyzEe4Cmvof4e/s7/AA++GO2TQvDVpFdgAfbbkefcHv8AffJH4V6RRW9LCUKOsInkY/iTNszTjicRJxfRaL7lZP5iBQKWiius+aCiiigD5++O37Hug/HDxVD4hm1vUNG1EQJbSiFUljkRScHa33WwSODj1FS/DP8A
+Yr+HPw6uob6Wym8S6lFylxrDLIit/eWIAID7kGvfKK5fqtHn9pyq59CuIc1WFWCjiJKmlay007XWtvK4yKFIY1RFVEUBVVRgADsB2FeR/tCfs36L+0BpunLfX1xpWqab5n2S9gUOFV9u9GQ8MCUXuCMda9forapTjVi4TV0zy8HjMRgK8cThp8s47M+SfBv/AATs8JaTdrP4i17UfECqci2hQWkR/wB4glz+DAV9LeD/AAF4e8AaaNP8O6NZ6PZ8ZjtIgm7Hdj1Y/U10FFZUsPSo/wAONjvzDPMyzX/fKzku2y+5WX4BRRRXSeGJSbR0xxTqKAEPyivzX/bo+LR8d/FQeHbObfpPhsGAhT8r3TYMrfh8q/gfU19zfHz4nxfCH4W634jYq13DH5NnEx/1lw/yxj8zk+wNfkXd3Ut5cT3VzK008ztLLK3V2Yksx9ySTXz2bV+WKorrqz9r8N8n9rWqZpVWkPdj6vd/JafM9f8A2U/g5/wuP4sWVrdwl9B0vbf6kSPldFPyRH/fYY/3Q1fqqqiNAFGAOAB0FeD/ALGnwk/4Vh8IbO5vIfK1rXNuoXe4fMikfuo/+Apg/VjXN/toftG/8Kz8Ot4T0C6A8U6tCfMljb5rG3bgvx0duQvpyewrowsY4HDe0qbvX/JHj8Q4jEcW58sDg9YwfLHsrfFJ+V/wS6nzT+2v8ak+J3xLbR9NuPN0Dw6Xt43Q5Sa46SyD1AxsB9mPQ19sfsq/Dd/hj8EvD+m3ERi1K6jOoXqtwVmlw20+6rsX/gNfCP7IfwZl+LXxStJ7qAv4f0R0vb52GVdgcxRfVmGT7KfWv1JVdqgVll8ZVpzxU+u39fgd3G+IoZbhcPw9hH7tNc0vXpfzd3J+qHV4J+2b8KvEfxa+FNtp/hiD7bqFlqUd61n5ioZkEciEKWIG4bwcE84PfFe90V7NWmq0HTlsz8uy/HVctxdPGUUnKDur7fM/MvwP+wr8T/FUynU7S08L2efm
+m1GcO+P9mOMkk/7xX619UfC39hv4f+AjDd6vFJ4u1WPDedqIAt1b1WEcdf7xY+9fRdLXFRy+hR1td+Z9ZmfGucZmnB1PZxfSGn46v8beRDa2cFjbxwW8UcEMY2pHGoVVHoAOAKmoor0j4Rtt3YUUUUCCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigArivjD8TLD4R/D3VvE1+Qy2keIYM8zzNxHGPq2PwzXaE4Ffm9+3H8bx8QvHq+FNLn36D4ekZJGQ/LPedHb3CD5B77z3FcOMxCw9Jy69D63hfJJZ5mMKDX7uOsn5Lp6vb8eh87+JvEl/4u8QalrmrXBudRv52uLiZu7McnHsOgHoK/RT9iT4F/wDCtfAh8Sarb7PEWvxrIVcfNbWvWOP2Lffb6gdq+VP2Pfgb/wALe+JC3upQeZ4a0Mpc3e4fLPLnMUP4kbj/ALK+4r9P1UKoAGBXk5Xh3JvET+X+Z+leIOeRowjkuFdlo526L7Mf1fyHUUUV9IfhAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFADZJFjQu7BVUZLMcAVW/tay/5+4P8Av6v+Nea/tPaV4j8QfBfxBo/hXTptS1fUkS1WOF1UrGzgyEliBjaCP+BV+dXiD9mf4n+FdEvdX1XwvdWWnWcZlnuHuIyqIOpOHzXmYrFzw8rRpuStv/SPveH+G8JnNB1a+MjRlzWUXZt7a2ck93ZH6v8A9rWX/P3B/wB/V/xo/tay/wCfuD/v6v8AjX4oeY3Xe3/fRr0/w7+zT8T/ABZodjrGleFry7029iE9vOJ41EiHowBYHBrhjms6jtClf5/8A+xxHh1hcHFSxOYKCf8ANFL85n6yQX1vdMRDPHKQMkI4OPyNQTa5p1vK8cl/axyKcMjTKCD6EE18
+u/sT/BnX/hBpvjHWPGGmSaTd3BijhSaRXIhjVndhgnglh/3xXwj468TS+MvG2v67LIXfUr6a53AnlWc7f/HdtdFbMJUaUJyhrK+n9I8LLODKWaY/EYWhir06XL76jdNyV7L3umut+h+ylpqlnfsy211DcFRlhFIrY+uDTptQtreQpLcRRv12u4B/U18r/wDBPHwqdN+Fus67IP3mrakyIW6+XCoQY9txY18f/tIeMG8afHLxlqSSs0Av3tYcMcBIcRDHsSjH/gVVUx/sqEKrjrLpcxwHByzDN8TltOvaNHeXLu9Fa1+9+vQ/WX+1rL/n7g/7+r/jTotRtZ5AkdxFI56KsgJ/IGvyi+EP7OPjT42aTfal4d+yLaWk4t3e8uTFufbuIXg5wMZ+tZ/xa+BPjP4IzWB8SwRRQ3pYW1zZ3XmozLgkZ4IOCDgisP7SqqHtHS93vf8A4B7K4EwEsS8FHMo+1/l5Vfa+3P2P11pssyQxl5HVEHVmIAFfmf8Ash/GDxtp3xi8OeHotZv9S0XUpjb3OnXUzTRqm0kyKGzsK4zlcdOeK+kf+CgnjA6J8GbLRo5Nk+t6hHGy5wTFEPMb/wAfEX51108dGpQlXS2PmcZwjXwecUMplUUva2aklsru7a8rN7/M+l/7Wsv+fuD/AL+r/jR/a1l/z9wf9/V/xr8YPD+jX3ifXtN0bT8yX2oXMdpbozkAySMFUE9hkivoL/hgb4qf39H/APBg3/xNclPMqtVXhSv8/wDgH0uN4Fy/LpRji8yUG9rxt/7efo7/AGtZf8/cH/f1f8asqwZQwOVPIIr837H9gP4lyX1sl7LpMdm0qrO0d+xYRlgHIG3rtzivpj9rb45XfwF+H+k6Z4c8uDW9TzbWkzKGFrDGqh5Ap4LDcijPALZ5xXZDFz5JVK0OVL8T5bFcOYeWKoYPKsUq86jeyso26t3fS7+R71rPiDS/Dtr9p1XUbTTLfOPOvJ0hT82IFczD8bvh9cSb
+E8b+HS3p/akI/m1fk7bNrfxU8ZWdrqOtfa9T1KYRfbtavCI1JPV3Y8CvYfGf7C/xB8LaDFqmnDT/ABYjuoNvo25pQp6OAwAYfQ1wrMq1S8qVK6R9fU4FyzAyhRzDH8tSe2ll97f52P0u0/UrTVrVLmyuoby2f7s1vIJEP0IOKs1+Yvwk8C/HX4PeLLPV9E8H+IooVlX7XZbB5N1Fn5kdd2DxnB6g8iv04U5FenhcQ8RFuUXFo+B4gySnktaEaOIjWhK9nFq6t0aTdt9NdR1FFU9W1GDSNMu765bZbW0TzSt6IqlmP5A12nysU5NJbnwV/wAFC/iida8YaT4HtJM2ukIL28A6G4kX5Af92M5/7aH0rxn9mP4YL8WfjLoekXEZk0u3Y39/6eTFg7T7MxRf+BVxHjzxdcePvG2ueI7pt02p3klz7BWY7QPYLium+EXxw8QfBP8At2bw3FZLqGqwR25vbqEyPbqpYnyxkDJLDrkfKvFfDSrQrYn2tT4b/gj+usPlWIy3IFgMBZVuW127e9L4nfyu2vRI/Qv9o79pPRvgP4fNvCYr/wAVXMZ+xaYp4TsJZcfdQenVsYHqPzat7fxP8afiEsambWvE2uXXLN1Zz1J7Kij8FVfas+abXviL4r3yNea/4h1WcDnMk9xI3QD/ADgAdgK/SD9lX9mK1+Ceif2rq6RXfjK+jxcTL8y2kZ58iM/lub+Ij0Fd16uaVbbQX9fefI8mA8P8ucrqeJqL73+kF+L+Vu/+Bfwd034J+AbLw/Y7Zrn/AF19eYwbmcj5n+g6KOwA969DpKWvqIxVOKjFaI/nvE4iri608RXlzTk7t+YUUUVZzBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRUdxcR2sMk00ixRRqWeRzgKoGSSewAoDc8X/ax+NS/Bv4Y3MtnME8Qarus9OUH5lYj55foinP
+1K1+XelaXe+INXtNOsYZL3Ub6ZYYYl5eWRzgD6knr9TXpf7THxkk+NXxSv8AVIJH/sOzzZ6XG3AEKnmTHYu2WPttHavev2A/gb9sup/iRrFtmGEta6Oki9X6Szj6coD67vSvka0pZhilCHwr8urP6WyujS4K4fli8Sv3s9Wu8n8MPl1/7eZ9TfAX4S2nwZ+Gul+HYNkl2q+ffXCj/X3LYLt9Bwo9Aor0Wkpa+rhFU4qMdkfzlicRVxdaeIrO8pNtvzYUUUVZzBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAJ1r5w/b08Vjw/wDAi709GUTazdw2W3uUB8xyP++F/OvpCvg//gotr11qnibwn4etoJ7iGztpb6XyoXYB5CEXJA/uq1cGPn7PDyffT7z7Pg/CLGZ3h4y2i+Z/9u6r8bHx3p+nz6vqFrYWw3XN3MlvEPV3YKv6kV+znhLw/b+FvC+kaNbIEt9PtIrSNQOiogUfyr8wP2U/Ad14q+PnhOG4s50tbOdtQmM0LKu2JSwGSP7xT8q/VZfu89a87KKdoyqProfceJmOVTEYfBxfwpyfzdl+T+88t/ad8XHwP8CfGOpRv5Vw1k1rA3/TSYiJf1evyVOI4/lHCjgfToK/Qb/gol4iuIfAHhvw7axzSvqOoNczLDGz/u4U4BwOPnkQ/wDAa+Jfh34HvvF/j7w3ohs7qNL/AFGC3eRoHUKrOMkkjgAZrizOTqYhQXT9T6nw/owwOSzxdR253KX/AG7HT80z9JvhvEnwT/ZXsLmUKsmk6A1/IGGC0pjMuD7lmC1+WEk0k7tLK5klcl3djyzHkk/jX6XftyeIJNA+AN1pdjDI8mrXUFiscCFisYPmMcAcDEaj/gVfnDp/hrVNW1C1sbfT7rz7qVII91u4G52CjPHqRRmek4UY/ZQcAx5sNiszrO0q02/k
+tfzkz0r4cfGD4ufDHwx/ZnhJtS0/RpZGu/3ehLOrs4GXEjQtkEAc5xxxXHfED4oeLPihqEFz4r1u61ea1DJEs2FWEEjdtRQACcDPGeB6V+vvh3Q4PDfh3TNItsi3sLWK0iH+yiBB+gr8nPjv5+tfGjxteWulXENtJq1wsaxWrhSquVDcDqcZPuaWMw08PSinUbT6GvC+e4TPMfWnDBwpyir86tzO7tq+VPVeZ9d/sI/D34ef2TeeKtEvLzWfFEOLW6bUbdYWsA652xoCwwwyPMDHIBHHIry3/goh4u/tb4naDoEcm+LSdPM0if3ZZmz/AOgKleqf8E6vD4074e+KtRk3R3l5qaQtC6lWWOOIFCQQOpkf8q+TP2htZvvHHxs8YautpeSwPfvbwN9nc/uov3a9v9k1rXly4CEUrc39f5HmZTh3iOMMVXqVHNUlo5dG0lborK8rWOT8B+GfFPijxDHF4PsNQv8AWrVftaf2Z/rogpA8wHIxgsvOe4r1n/hEf2l/+fbx/wD+Bb//AByvPfhr8RPG3wj1O71Dwsstjd3UIglkm0wT5QHdgb0OOfTrgV6H/wANifG//oKf+UCH/wCN151F0Yx99yT8j7nMo5nVr3wtKhKCWjqc3N57Jqx9bfsY+GfHui+EddvPiBNrf9pXV8qQWutztI8cSIPmXLHAYsfrtrd/ac/Z5tPj94bso4tQTS9e0tneyupBuiIcDfHIBztO1TkcgqOvSvPf2Mfi18SPixrHiWfxffi40qwhhjhj/s2O2PnOxOcqoJ+VTx05rxH9qz9nvx14S8fa54m0hdT1nw1qlzJeiWxlldrRnO5o5EU5ABJwwGCMd+K96VSKwa5YOUfPf16n47RwNeXE9RVcVDD142a5VeN2l7qvy/Zez31OM8W/safFXwvI4j8PLr9uDhZtInWbd77CQw/EVwS6v48+FGqCAXviDwpfRk4iMs1u3vgE4I+mRXS/Cv8AaI8ffBJruHSbnzbS
+6cSTWOrwvKm8DAYbiGU464IzgZ6U74hfEz4kftLatpyX9hcaxJZhxaWelae2xN+NxGASScDqe1eBL2PLzUrqXb/gn7HReaqs6WYqlOhb49YvbrF8y331tbXyPcv2X/2xvGOsfEDR/CPi+dNestVlFrBemNY7i3kIO3JUAOpOAcjIznPGK+8h0r4v/ZB/ZF1fwn4is/HXjWH7BeWqsdO0djmRHZSvmy44UgE4TqCcnGBX2hX1OXqsqP77fpfex/PfGc8rlmdsqSUUve5fhcrva2m1r20uLXkn7V2sT6J+z343uLdmSZrAwqy9V3sFJ/ImvW6xfGfhHTfHvhfU/D+sQmfTdRga3njVtpKnuD2IOCD7V21YudOUY7tHyWX16eGxlGvVV4xlFv0TTZ+L3C8Dgdq6r4c/C/xN8V9eTSPDOmS39xkebLjbDbr/AHpH6KP1PYV91eHv+CePw/0vVPtOo6rretWytlbOaWOJCPR2jUMfwK19HeFfBuieB9Ji0zQNKtdI0+P7tvaRBF+px1Pua+ao5TUk71XZH73mviPg6NPly2DnN9WrRX6v009TyX9nP9lfQvgXZ/b5nXWfFc8eybUnTCwqescKn7q+rdW74HFe5UtFfS06cKMVCCsj8Ex2OxOZV5YnFTcpvr+i7LyQUUUVqcAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFeAftqeJPEOj/B2bTfDlje3d3rVymnyyWULSNHCwJf7o4LAbfxNe/wBJWVWDqQcE7XPRy7FRwOLp4qUFNQadns7H5g/Df9in4k+M9WsF1XRpPC+iylXnvr50WSOPuFhzv346AgAHrX6U+FfDNh4O8O6bomlwi307T4EtoIh/CijAz6n1PrWrgUtc2GwdPCp8mrZ7mfcTY3iGUPrNoxjtGN7eru3d/wBJbhRRRXcfJBRRRQAUUUUAFFFF
+ABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABTGhRjkqpPuBT6KAGLEiHKqAfYCn0UUAMaFHbLKpPTJApPIjBB2Lkc/dFSUUDuxrRq/3gD9RTfIjHIRc/7oqSigBKYYIzyUX/vkVJRQIasap90AfQYpv2eP+4v/AHyKkooHdkf2eP8AuL/3yKPs8f8AcX/vkVJRQF2NWNY/ugD6DFKVBpaKBGfd+H9Mv5C9zp9rcOeS0sCMfzIqxaafbWEXlW0EdvH/AHIUCD8gKsUUrLctzk1yt6CYxS0UUyAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAP/Z</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="LOGOSERVECENJPG">
+      <MIMEType>image/jpeg</MIMEType>
+      <ImageData>/9j/4AAQSkZJRgABAQEAyADIAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/2wBDAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/wAARCAJsB9ADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD+/iiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo
+oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKzNb1vRvDWjat4i8R6vpmgeH9B02+1nXNd1u/tNK0bRdI0y2lvdS1XVtUv5YLLTtN0+zhmu76+vJ4bW0topZ55Y4o3cAGnX8qn/Bcv/g5a+D3/AATvt/FP7Nn7KU/hj44/tq+Tc6Trk5mTWPhb+zrdyRtE914/uLGdY/FPxGs2bNh8MdOu4xpNyjXnj6+0qO3s/DXib8ef+C6n/B1dqPi7/hMf2SP+CXHi290Xwsft3hv4mfti6S89hrviNT5lpqnh/wDZ5kZYbvQdEK+ba3HxekWHXdUZpZvh5Fo1jb6Z411v+bb/AIJh/wDBFn9uL/grJ43a6+EHhSfwn8GrXW5IfiJ+078TodTsvhtolx54m1i00e9aNtT+JfjlVkaRvC3hQX1zBeXNlJ4s1Twtpd8NZQA0f2UP+Cqf/BWHxD+3t8H/AIp+Bf2o/wBpj4wfHT4g/Gbwbp7/AA7l+InijWfDXxXbXvFFjBP8M774am5m8BjwfrUNxLpdr4etfC9toHhW2eG/0Gz0aTSLG6sv9mmvxs/4JX/8EN/2J/8AglL4Ztb/AOFPhY/Ev9oTUNKNh4z/AGmfiNp9hefETVBdQhNU0rwXaRifTfhf4NupGlT/AIRzws32/UbIWkHjDxH4uurG21Bf2ToAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACii
+igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiis3V9Z0fQLCfVdd1XTdE0u1Xfdalq99a6bYWyf3p7y8lht4V4PzSSKOOtAGlRXxB8Sf8Agpl/wTp+D/np8Tv27P2RPBV5bbvM0nXP2iPhPb6+xT76QeHl8Vya5dSJ/FHa6fNIvdRkV8AfEn/g5h/4Im/DL7RDf/tteH/FuoQ7hHp3w2+GHxr+IH2pkzlbfWfDfw5vfC65x8r3OvW0T5GyRqAP3eor+SL4k/8AB5p/wSu8I/aLfwN8Ov2u/iveLuFrc6H8M/AHhfQZmXODPfeNvitoeuW0b8bWj8MXUgz88S4r4L8ff8Hxfga1a4h+F3/BOzxXrqEstrqPj79o/SPCbRj+CW40bw78HvGglPTdBHr0PXi545AP70aK/wA2jxT/AMHuP7Zd3fxSeCf2Nf2ZPD+liYNNZ+KfEXxU8YX8kGTmOLUtJ8QeBreKbGAJ30qZAQT9nOQB90/sif8AB7F8K/E+vaZ4Y/bb/ZL174V6beTR29x8VvgL4rb4iaNp8k8ixrc6x8MPFNhoHiOw0eyUma+vdB8aeMtYeIMLHwzc
+zKsUoB/ddRX52eCv+Cu3/BLP4geE9A8aeHv+CiH7GUOieJdNg1XTYfFH7Rvwq8CeI4ba4BKQ634N8ceJ/DvjDwzqURBS60fxHoWlavZSq0V5ZQSqUH1N8Kv2l/2cPjtEJvgf+0B8EvjJCyu6y/Cr4reBPiHEUjBLuJPCOvawpVACXYHCgEkjBoA9tooooAKKK/Pv/gpx/wAFFfhH/wAEuf2TfF37Vfxg0HxR4w03StX0nwZ4N8D+ELdf7W8bfETxNBqMvhnw3Jq9zHJpnhfSbhdKv7zWvE+qrLb6TpdjdPZafretyaVoGqgH0H+0/wDtTfAL9jP4MeLf2gP2lviZ4e+FXwq8GWwl1TxFr9w/m3t9Kkraf4e8OaRapcav4o8Vay8MlvonhjQLLUNb1adWjsrKURyMn+YR/wAFdP8AgvJ+19/wWi+KFp+yV+yZ4I+Jfgz9mXxH4mh0LwL8APAdhqOu/GL9orVYboyaRqnxVtfCX9oXGro726avpXws0F77wp4emjjv9avfFur6Pp3iDT/X/DP7On/BYj/g6r/aFtPjj8Tbpvgl+x34Y1zUNO8I+K9fsdbsP2fvhLoJuxDqmg/BbwbLc2mq/Gr4mzQW/k+J/FEVwPt+qWltpnjDxv4K0aHw1olh/d9/wTH/AOCNf7E//BKvwQul/ADwIPEHxa1jS4rD4gftE/ECGw1r4ueNGby5Lyxt9WS1itPBXhCW5iieDwV4OttJ0Z1tbG51z+39ct5NbuQD+XL/AIJB/wDBoPaWH/CL/H3/AIKrTRX96PseteH/ANjzwdrwfT7V12T24+O3j/w9dldSlVstP8P/AIe6mNODR239t+OdTt5tV8KJ/d94H8DeCvhl4Q8O/D/4c+EfDXgLwJ4Q0q10Lwr4N8HaHpvhrwv4b0WxQRWelaFoOj21npelafbRjbBaWVrDBGM7UBJz1VFABRRXxL+2V/wUb/Yl/wCCf3hX/hKv2tf2ifh98JftFlJfaJ4R
+v9Rk1v4l+K4Yy6bvCPwy8Nwav478SQmdPs0t/pegT6XYzOh1O/soSZVAPtqiv5Hfg1/weKf8E+vi7+1F4R+Bdz8Ifjp8N/hd468X6X4H0H9oXx9J4GsNB0zVdb1CPSdL1zxt4Q0/xDqF94V8DzX80Bu/EX9uare6Np066nrWhadbW+oGy/rioAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAorzf4hfGT4Q/CSz/tH4rfFX4b/DLT/LM32/4heOfDHguz8lc7pftXiTVNNg8tdpy+/aMHJ4NfnX8U/+C53/AASD+Dguf+Ey/wCChn7M19Jabxc23w58e2/xlvInjyJITY/B638dXjXCMCj26wNOjgxtGHBWgD9XKK/mC+KX/B3j/wAEbvh/9pHhPxr8f/jgYN4i/wCFXfArXNJF4Vzj7O3xo1T4RBQ5Hym5+z8EFsc1+b/xS/4PgPgF
+pguU+Cn7Bnxf8bn51s7j4pfF/wAF/Cwc5CTXNn4T8L/GLO3h3tor4eZgxi6j3eaoB/c7RX+aB8Uv+D2D9vbX/tMHwh/Zb/ZU+GttPvWK48ZL8U/ilrNmhzte3u7Dxx8N9Ie5Tj95d+H7q3b5s2nI2/nJ8Tf+Dp//AILY/EZriLT/ANqTw/8AC/TbncH0r4ZfA/4MaYqK2cLb634m8E+K/FlrsBIV7fxFFIeC7uQCAD/XarM1jW9F8O6fPq3iDV9L0LSrVd1zqesX9ppmn264J3T3t7LBbQrgE5kkUYB9K/xNfiT/AMFfv+Cpvxb+0R+Ov+ChH7Xl/Z3W4XWkaP8AHf4heD/D9wHzlZ/Dvg3XPD+hSoMkKj6cyICQiqCa+E/GPxC8ffEPUP7W8f8Ajjxf451UlmOp+MfEuteJtQLPy7fbNavb25y55Y+Zlu+aAP8Abm+JP/BTf/gnL8H/ALQnxN/bv/ZD8G3ltu83SNY/aI+FEXiAlM71g8OxeKptdunTGGS206V1OAVBIB+APiT/AMHMv/BEz4Z/aIb39tjQ/F+ow7hHpvw2+Fvxs8e/amXOVt9a8P8Aw5uvCwzjCvc6/bxvkFHYZI/x6aKAP9Rf4k/8Hm3/AASy8JfaLfwL8Nf2vPiteLuFrc6P8Nvh94V0CYrnBnvvGXxX0fXbZHONpTwvcuASXjQjB+APiT/wfFeGoPtFt8IP+Cd+uanu3C11n4k/tFWGheVjOxrjw14Y+EniL7Ru4LRx+LLbZggSPnI/z56KAP7GfiT/AMHqn/BRrxB9ot/hl+zz+yH8N7ObcIrrWPD3xX+IHiC1BzsMF9L8UfDGhO65+Y3Phe4RyBiNBkH4D+JH/B0//wAFs/iCJ4LD9qfQPhpp9wGEmn/Df4GfBPTSFbOFg1nxH4F8UeJ7Upn5XtddhlP8buQDX88VFAH6P/En/gsH/wAFUfi156eOf+ChP7Xd7Z3W4XWk6H8dfH/gvQblX6pP4e8E614e
+0OaMZO2OTT2RMnYq18JeMviL8QfiNf8A9q/ELx34y8d6puZv7S8ZeJ9b8UX+5/vt9s1u+vrjc/8AEfMy3cmuNooAKKKKACva/wBnz9nP43ftV/FTw58Ff2e/hv4k+KXxL8UzeXpnhvw3aCZ4LWOSJLvWda1G4e30rw54c0wTRy6v4j1++03Q9JgYT6jf20RDHG+CvwS+K/7RfxO8K/Bn4H+BNe+JXxQ8bXN5aeFvBnhq3juNW1eXT9NvNZ1BohPLb20Fvp+k6df6lf3l3cW9pZWNncXVzPFDE7j+sr9iTxd/wVm/4I5fs4+O7jwb/wAEfvhxoWj6Vo+qeO/jv+0V8UPFWPGHiHSPDdteanJe+KNcsvidY2el+FPCum/aE0Pwvolna6XZ5ub0WmoeI9W1XVNT/nP6Q3jdifC3h2plXA1bw2zvxhzunhaXB/BfHvibwfwBh6yzCviMFhs8x1PiDO8rzTM8qpYzD1cNRwOR0quNzfMIxy2jicBF4nMMF6+U5bHG1lUxKxlPL6TbxGIwuDxGKa5EpSpRdKnOEJuLUnKq1GnB87UtIy9Z+EH/AAaz/s3fs6fCPVf2gf8AgqN+2JL4Y8K+D9Eg8R+NtB+FF1pPgjwL4TVEiMmlar8TvGmkeINc8ZTXl5NHpNnpnhfwV4W1nVdTkt9N8PT6lfX1mj/jB+1HoP7CWteJfhV4N/4J9/8ABNj4qa1o/wC0D41k+G3wA+Kv7Tfxn+LdnqXxy8Rv4h0zwgmo/DH4S+FvG3g64Tw2fEesafpWleLtf8Y3Wl3mr3Uml6no2l6poXiDRrT0/wCKP/BQr/god/wWx/aP+GlxL+yPqP7SXwu+Bdxp3iS1/ZB+Eem/EhPga3iSeO5t7Pxl8b9c0vUZtWuLbVb4PYPc+IPFnhezTQobzwz4e1DRBrHiW71r9Ada+Iv7dGtf8Fcf+CYP7R//AAUe/YKs/wBkv4SfB3xV4P8A2c/DF/4H8KatbfArQbrX9Q8U
+6V8Mrq58Sp4g8Y+EPC7+HPGnjbQbnSrNfEFhY2+l+H45rGARadcyxfwXw/j/AKR3h/nlbiH6RPi7Q488UpcDce8cVvCPhnxmyXw+4d4Tr5Fwvm+bcF8D8P8AhnwNnvD3FPiPxFxFmWFy+lmed5jh8Rw/leXVo4TCU+JswxNTiDAfUVY5Pi6ao5RgHhcD9ZwuGWPrZdUxdauqtenTxOJq4zFUqtDB0aMJScKcJRq1Jpyk6MEqUvvD9kX/AINI/wBmHw54E0fWv2z/AIn/ABG+JXxZ1TT2uNe8H/CPxDa+CPhN4RvL6IOdH0jUr7QNT8d+LbjQ5GMUHiO81jw7ZakU3T+FQgDS/An/AAV1/wCDa3R/2Pfgrr/7Xf7BvxA+KniPRPhBCviz4mfC/wAbahp+seNPDnhXTnWbUfiL8O/GXhfR/DN3Ja+CkRdY8QaHqumXGpWehQ6p4ktPExGjnSbn+/WvGf2jPHXg/wCGH7Pvxx+I/wAQZbWHwL4E+EXxG8XeMGvUgltW8N+H/CGr6prMMsFz+4uRcWFtPAtrKGW6eRbfY5lCn/Irw+/aQfTBw3jHw/xhjvEvPuMqGY8TZdSzDw4xFPCR4SzvL8dmFOhV4dy7IsPg3hspqYijXeDy/MMtpQzXDV/q+IlicTVhNVfvcXwhw/LL6uHhg6WHcKM3DGJyeIpzjC6rTqylzVEmuacJtwkuZWinp/F5/wAE0P8AgtJ/wU0/4Jwfs/8AwE/aB/alPjX9vj/gl38YhLoM3xGi1W98WfGj9mjxho3iS/8ACPiPwdqPi/xKy63a3+k6xp039geCvibq114I8beHm8On4a+OvCFzd6vpkP8AoKfsx/tRfAb9sj4LeDv2g/2bfiRoHxS+FPjmy+06N4j0Gdt9rdxLH/aPh/xDpVykGq+GvFWiTSCz17wzrtnYa1o94Db31lCxXd/mBf8ABHb/AIKgfFr9m79ir4ufsg+Av+CbPxh/4KJaL8Qfin438ZeO
+NF0SPxNrHw50H4f+KvAfgbwvrXhC/wDDfhf4OfFa6vk1T/hG9V1LWv7Uk0vSIk1eCeOyknF9Lfcx/wAEuP8Agrbf/wDBIH/go54unh+Dnxk+An7EXx48R6NZ/HP9k/4palrnijxh8H9J1J1/svx14VvtX8MeD9b8Q6z8Lbm8vpNDvNR8J6drvjL4cyXng/XDqXiJdK8XWn/TZ4UeIvibm3iF4o+HniRwjlmAwnC/EOZYjw/43ynibhHEvi3gyvjFPK6Wf8GYHiDF8V8N59luGxNHCVMwxmS4PJeII4XEZhh4ZTOeHwWM/Gcdg8HTwmBxeDxE5yr0oLF4apRrx+r4lR990sRKlGhWpTaclCNSVWjzKEudc0o/60NcV8Q/hr8Ovi94P1j4e/FjwD4K+J/gDxDHbxa/4H+IfhXQvGvg/XIrS7gv7WPWPDPiWw1PRdTjtr61tr23S9sp1hu7eC4jCzRRuup4R8W+GPH3hTwz468E6/pPivwb4z0DR/FXhPxPoN9Bqeh+IvDfiDT7fVtD1zR9RtXktr/S9V0y7tr6wvLeR4bm1nimjZkcE9DX9EnkmP4e8O+H/COhaP4W8KaHo/hjwz4d02y0Xw/4c8PaZZaLoWhaPptvHaadpOj6RpsFtp+mabYWsUVtZWFlbwWtrbxxwwRRxoqjYor+XH/goH/wdjf8E5P2RH17wT8A7vVv22/jFpbXVkNN+E+oQaJ8GdK1W3Lp5OvfG3VLK/0vVbYsFeO5+GHh74j2cuHt7i90+ZWKAH9R1fi9+3//AMF+P+CZ3/BOwa14d+Kfxysvib8Y9I+0QP8AAX4CjT/iX8SrfUoAwfTfFD2ep2fg34eXcb+WZrP4heLPDOptbyrcWGnX4wjfwk/F7/gp7/wcI/8ABdLVtX8Afs3+AvjNonwV1a6uNIu/hx+yF4S8T+Avhhb2k7G3Om/FX49X99DdahHd25jg1ew8b/EvR/Bd9OJZbbwppqStbr9Sfshf8GXX
+7ZXxK/szxD+2R8fPhf8As0aDcGG4vPBPgK3l+OXxTVQQ9zp2pXNhf+GfhnodxKCYodV0jxr49ghffNJptwqJFMAeHf8ABQD/AIO8/wBvv9pj+2/BP7JujaH+xR8K7w3Fmms+GrqDx38e9Y0+TdCXvPiTrOmWujeD2uY1juoU8AeEtF8R6LcPLBD441ONUnb+fT4Qfsw/t3f8FEfiVreq/CL4RftEftZfEjxDq3n+MvHVlo/jH4iXLarciMNqXxB+Jmsm70vSHlDQiXVvGXiSxh+eFZLsb4wf9RX9kH/g18/4JF/snf2XrGqfAy//AGofHmneTKfGH7UOsxfEXTnuE2yTCP4X6fp3h34QSWbTgPbR6x4E1rULaFI4W1W4JnluP378LeFPC3gfQNM8KeCvDWgeD/C2iWy2WjeGvC2jad4f0DSLNCSlppmj6TbWmnWFshJKwWltFEpJIQZNAH+bz/wT7/4M3P2s/H3jTwX44/4KBeOPAXwG+E1jqWmav4o+D/gbxHD8SPjT4psbS6gub3wjd654ZZvhr4HttYthJZTeKNI8aeOdS07dN5Hh0ymG7j/0o1VUVUUYVFCqB0CqAAPwAAp1FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUU
+AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUVk65r+heGNMuda8S63pHh7RrJPMvNW1zUrPSdMtE5+e5v7+a3tYE4PzSyoODzXwF8W/+Cuf/BL74G/aY/ib+31+yjoeoWe/7VoGm/GvwP4v8V2+zORL4R8Gat4h8ToSQVQHSAZGVkjDMrAAH6J0V/Nh8Wf+Dsr/AIIu/DQXUfhz41/FH43XdrvV7P4TfAv4hRmWVM5itdR+KunfC7Q7rJGEuLfVZLKThkumT5q/MT4s/wDB73+zXpH2pfgX+wz8cfiARvWym+LHxN8BfCEP1CS3Nv4Q0z43FAvDtBFcuXAMYuI8+YAD+4qiv8zn4s/8Hrn7ffiQ3Nv8G/2Y/wBlf4WWU+9YrnxdF8Tvir4hskOdj2t/b+Nfh3oL3CcZe88K3cD4P+irkbfzF+LH/Bzz/wAFrfiu1xC37X83w40i437dG+E/wp+EPgpbbfkH7P4ih8EXvjdcLhU8zxVLswGXEhZyAf7AFeUfEj48fA74N27Xfxe+M3wo+FVokXnPdfEj4ieEPA1ukON3mtN4n1jS41i2/N5hYLjnOK/xLvin/wAFHf8AgoH8bjcr8XP23P2rviFaXW8S6T4o+P8A8UtS0BEkzvitvDsvij+wrKBsnNvZ6dBAcn93ya+Nrq6ub24mvL24nu7u5kea4urqaS4uLiaQlnlmnlZ5ZZHYlnkkZmYkkkmgD/aB+Kf/AAXm/wCCO3wd+0f8Jf8A8FCv2ddTa13iZPhj4ovfjdKGTO5Y4vgvpfj+SdwQRsgSRyw2hS3Ffm98Uv8Ag8A/4I8+APtI8Ia3+0f8b2h3iBvhp8EJ9GhumGQjI/xl8TfCeWKJzglpoEkVcnyWYbD/AJTFFAH+iP8AFL/g
++D+DunC5i+Cn7AfxL8Xlt6Wd/wDFL42+FvhyI85CT3Ok+E/A/wAU/O28M9pFrUG/lBep9+vzd+KX/B6v/wAFC/Ef2m2+E37N/wCyb8MbOfeIrrxFpnxS+JfiGzU52NbX4+IfgrQWmXjc934VuonwcQJnj+NqigD+gb4pf8HQ/wDwWw+J/wBpt4/2t7f4b6Tc786T8Lfg78GvC/k7sgfZ/ENz4F1fxpBsBIXZ4nHZm3OFcfm78U/+CnH/AAUY+NpuE+K37dP7Wfjaxut3m6Jq/wAfvid/wjQD53rB4WtPEtt4ctVcHDpa6XCrgKGBCqB8N0UAXNQ1HUNWvbjUtVvrzU9RvJDNd3+oXU97e3UzfeluLq5eSeeRsDLyyMxxyap0UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRV3TY9Ol1Gwi1e5vLLSZL21j1S80+yh1K/tNOeeNb25sdOuL7TLe/vILYyy21lPqWnw3UyJBLfWiSNcRzOShGU2pNQjKTUIynNqKbajCClOcml7sYRcpOyim2kH9dvzP72/wDg0v8A2ArPwb8JfiH/AMFBfiB4ejPi34sXup/Cv4D3OoW+6bSfhn4Y1HyPiF4s0neCiP418b2P/CKLdhUvbay8AanDbyjT/EN2lz57/wAHaX/BQjxF4etPhv8A8E6fhzqzafY+MtA0j40ftBXen3TC41TQ013ULT4ZfDm8ER2xWMuseHr7x54gsZz59y9h4CuIzFZtcpfe8/Av/g6I/wCCTP7O/wAGvhf8Cfhn8Df219J8A/CPwL4a+H/hSyPwy+BxnGkeGNKttLt7q/mj/aIjF3quo/Z21DV7918/UdUury+uGee4kdvw78O/sZftAf8ABe5P+CqH/BR/QLXWP+E+8K+MfC//AAzr8OZXEqeLLTQ4Jb68+D1nNA7258TeDPgZo/grSNGWI/Zde8Z+INPM4thq1xqNr/gJwHwLxxmn00+NvppfTK4Ozbws
+8LOEc8yej4cx4+hQp4XC5xnvEmV8BeFGAp4SOJrUadHhbB46XFOfZjCNPCZXnWGlxFiIxjPEYil+p4rE4aHDmG4d4exEMdjq9Ko8Y8I25Sp0qM8VjpuTSbdeUfYUoO8qlJ+xV7Ri/wC+j9gL9jT4Z/sH/sr/AAm/Z6+HPhnQdFuvC/hHQG+I2v6TY28GofEL4ny6TZjxt458RakkSXesajrWtrdvaTX0s39maLHpmg6aLXR9L0+yt/p34g/D/wAF/FbwN4u+GnxG8N6X4w8B+PPD2q+FfF3hfW7cXWla74f1uzlsNT029hJVjFc200iCSJ454H2T28sU8ccifir/AMEhv+C0/wAAv25vgB4N8P8Axi+KfgT4Y/theB9JtPC3xh+G/jbXNI8Eaj4u1/RkGny/EPwFZa3PpkGu6P4q8hdU1fRtDE994J125vdC1OygsF0PVNZ+9P2qv+Cjn7In7IPh1774mfFzwxrPj3UpdP0vwH8DPh9rGkeNPjl8UPFGvSR2nhfwt4F+GukahLr+oX3iTU7my02y1S+g07w1Zz31rLq+t6dayrPX+QfiR4W/SHwnjxxLw3xdwzxvmPjPieMcwx+Lr4PA5vi8zznOp5lLFLiTJMxp0lUxmV4qrOlmWWZ5haqwSwNTDYyniKVBRlH7/B47KZZXRrUK2Ghlyw8IRUp04wp01BR9jUg3aM4q8J0pLm5k4tNn8pPjj/g4y/al/wCCYfx8+O37DXxt+Dfhv9rbSv2c/if4h+H/AMNvilrfxI1L4efFTW/hVYzfa/hwfiVrtr4R8b6P4x8Xp4IvfDqar4mXQtG1bULxLmbxDJretS3msXPyFN/wU+/bO/4OE/2q/gL/AME8tWuvDf7Mv7NHxa8cSX/xN8G/Ce41O513xP4E+H2lap8S/E58Y+NdflluPEV3p3h7wlqB8LaJZaR4f8Jz+LDomp69oGrXGn6fLZf0g+AP+Den9jn4u+Lvib+0v+334O139oD9
+pL9orxx4m+K/jzRm+JPj/wAHfDz4T3fjS+uNSs/hd4Dh+G3iXwdqmv6V8O9KubPwfb+KvE+p6jca9/Ykes2Ol+HIJ4NKtPzp/bX/AOCU3wk/4IsfGX4H/wDBXb9im28X2Hwf/Zw+I/heD9on9nm+1/V/F2oR/DL4lXR+EninxB8MvFvia81DW2ludJ8bz6TqPh3xpquqWyX2qWuuWviHTLCwuNOr/Vjw28YPoEZhn9XIvCvwvp5f9L/MeBcXlPAfinjeH5S8Ls5+kRU4VqYTJMbwflWL4rzHK8jxWbeIEqM+Hc1nwJkOBWNq4atTxWFU8PVqfDYzL+KY0lVx2NcsghiYzxWBjW/22nlKrqVSOIqRoRnVVPCJ+1h9Zqz5VJOMndH9cfwe+Dvwy+AHwz8G/B34OeC9D+H/AMNvAOiWXh/wr4V8PWaWen6dp9lEsSvIVzPfajeOHvNW1e/ludV1jUp7rU9UvLvULq4uZfz9/wCCtn/BN/4N/wDBRL9lT4j+FPFfgrSLr43eC/A3izX/ANn34lQW1va+LvB/j/TtKutU0XRotcUJcz+DPFmq2lpo/i7w3eyzaTe2V2dTit7bxBpei6vp32j+zZ+1D8BP2vfhXoHxn/Z0+Jvhn4oeAPEFtBLHqXh+/jlvtFvpYI7ibw/4r0SQpq/hTxPp6yqmp+HfEFlp+r2MmBPaqjxu/wCdX/Bav/gpV8Jv2A/2RfiRp95ruia7+0N8Y/BviD4ffBD4RwakJPEur6v4t0+58P3HjfU9K0+YavY+CvBdve3GsX+quLKDVdTtNP8ACun6jBrGtWkkP+Ung7lnjrH6R/B+X8E0uMsD45w8QcKksRTzWhxPg+IHmalndfiaOLnQxtPCU4SxlXiyWc1KWFllbzF5zUjg5YmR91mE8r/sjESxLw8ss+qy2cHRlS5LU1Rcbxcm+VUPZpy5+T2a5uU+bv8Agzt/b7Px7/Yl8cfsWeNtbN38Rf2O/ES3ngeO9uN9
+9qnwE+J2oalrGhRW5nZrm+HgXx5H4t0G6ZGa20Tw9rPgHSY1ghNrG39hVf5bP7B/wk+OP/BAb9ub/gkv+0x8X01/QPBn7dHgTWPhd+0p4U1KH7KfAsXxF8fxaXc+FddgiVJrSX4f+GPEvwA+LOo6TqJ/tceMvC3jHREiaHTWt4/9Sav+0/gfjvhPxJ4cw3F3BGd4LiLhvGY/PMuwecZdVVbBYvEcO55mPDuaPDVo3jWo0s1yrG0aVeDdLEU6ca9GU6VSE5fznicLXwdaWHxNOVKtGNKcqc1aUVWpQrQ5l0bhUi2nqm7PVBX4gfAX/g3K/wCCOn7PXjrWfiL4Z/Y48HeOvEmpa/ea7psPxr1jxJ8ZPC3hNLm5a7ttG8M+BfH2q6z4Jt9O0mZs6Vd6n4f1XxDbKkQk12fyITH+39FfWmBl6Joei+GtI07QPDmj6X4f0LSLSKw0nRNE0+00rSNLsbdQkFnp2m2EMFnZWkKALFb20MUMagKiKOK1KK+Tf2if28f2Lf2Sba4n/aW/an+A/wAFLmCD7QuhePvib4U0TxbfRlPNA0fwXLqTeLdcmaL94lvo2i31w8eXWIoCaAPrKiv5UP2k/wDg8H/4JT/Bz7fpvwai+Of7VWvQebFZ3Pw8+HsvgHwNJdRZDJf+J/jBdeCfEENoXBRL7RPA3iOKY4lgWW3ZZj/P1+0n/wAHqv7a/jv7fpn7L/7NHwL/AGfdJuTJFba7491PxJ8dfHdpGMrDdWF1j4beCLW6fiSSDU/A3iK2jyYFabb9ocA/0tK4m2+Jfw4vfGFx8PLP4geCbvx/aW8t1deBrbxXoU/jC2tYFR57m48MxX761DbwpJG0s0lkscaujOyhlJ/xfP2k/wDgtH/wVP8A2tP7QtvjZ+3B8dtT0HVPNW/8F+CPFA+EPgG8t5MgWl94F+Elr4I8K6nbRIdkS6ppV9IAN7yPMzyN86fsU/DT9rr4sftOfCax/Yt0X4p6v+0Zb+PvD+pe
+AvEXwut9YfxF4S8Sf2istt4sv/EFgBb+HNK0vbcajruva9e2WiWekwajca3dJpiXjUAf7olFZujW+p2mj6Va61qEWr6zbabY2+rarb2S6bBqepw2sUd/qEOnJNcJYRXt0stzHZLPOtqkqwLNKIw7aVABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRXAfEH4sfCz4SaSde+KvxL8AfDLQwrsdZ+IPjLw74M0kLGMyMdR8R6lptmFjHLnzsKOWIr8wPjH/AMF9v+COfwL+1J41/wCCgPwG1m4s96y2vwl1bW/jzcGZMg26L8EdE+IKedvHlsruixPkTvEFcqAfr9RX8k/xj/4PK/8Agln4CN1afDDwN+1J8ddQTeLO+8P/AA68L+BvClwUztNxqfxE8c6B4otI5DgoY/BF24UkyRRsArflJ8Y/+D4L4kXpurX9n79gbwR4aCb1std+Mfxo17xubnOfLmuvCngnwZ8PhZbeN9tF4zv92Dtu03DaAf6GdFf5PPxe/wCDuf8A4LKfEv7UnhD4
+g/A34Bw3O9Vj+EnwN8N6m9vE+QUgufjXd/GG5Rgh2icS+eh/eRSRyBWX8tPi/wD8Fi/+CqHx1+1R/Er9v79qfUdPvt4vdC8OfF3xV8PfC92smd0dz4T+Hd94U8NTxDJCRS6U0UYOI0UcUAf7SfxA+K3wu+E+lHXfin8SfAPw00QK7nWPiB4x8O+DdKCRjMjHUPEeo6baBYxy7edhByxFfmZ8Xv8AgvN/wR4+B/2pfG3/AAUF/Z61Oay3i4tvhZ4j1D46XaSR5DwC2+CWk/EKd7hGBR4FQypICjorAgf4yOv+I/EPivVbnXPFOvaz4l1u9bdeaxr+qX2s6rdtkndc6hqM9zdztkk5lmc5J55NY1AH+p58Xv8Ag8b/AOCTfw/+1W/w90b9qD473ib0srnwT8KNG8J6BcOpO17q++K3jbwJrlpbOBxJF4YvblSVDWY+Yr+Wfxe/4PhdQf7VZfAT/gn5Z2+N/wBi8SfF747z3u/OQn2rwT4M+Hdh5e3hn8r4gS7smMbNokb+A+igD+qX4vf8Hhn/AAV2+IhuYvAcn7NXwEt33paS/Dn4OTeJdUt4zkRvNc/GXxX8UNNurpRgvKui21s7jK2UanZX5e/Fr/gut/wV/wDjZ9pHjb/goT+0jYxXm8XNr8M/GS/BKylSTPmQtY/Bex8AWYtpASj2ywLbvGTG0RQlT+TlFAHfeP8A4rfFH4r6n/bXxS+JPj74lazveT+1vH/jHxF4x1PfJ/rH+3+ItR1G63v/ABt5uW/iJrgaKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAK/oc/4NffgtD8Wf+Cr/gDxLe2EeoaZ8CPhN8XPi5ew3MKz2YmuNBt/hNpMk6SK0TSW2sfFKxv7QMNyXdnFcIMwZX+eOv7ef+DOP4PiTU/23Pj9e2wDWlh8I/g/4bvNoLMNQuPFnjTxtbbyMoEOmeAJ
+QqkiQyEuF8tN38aftB+OX4f/AENvHrOqdZ0cTmfBr4MwrhJxqzqce5nl/BlaNFq0ueGDzzE15ONpQpUalRNcja+h4Uw31viHK6bV4wxCxEr7WwsJYhX8nKlFebaR+6X/AAcM/HC0/Zx/4JR/tI6holrp9h4n+MFp4f8A2f8Aw9PHbW0DmP4qaoumeNI0kSNZfMf4ZWnjnyRCd4mEbNiJZGH8l/8AwRu/4Jqft0f8FMPgIPAF3+0X40/Zm/4Jx+CvHHiwa9Y+DJLvTb/41/EzWIdOn8TtZ+F9Om0iw8fXWnaaug+HdR8bfEC/1TQvCtlYWHh/wxousahZ+IrOz/ZD/g8O8dT6d+yr+yP8NUunjt/F37QHijxrPZh8Lcv8Pfh3f6JBM6Dlxa/8LKlVc/KrXOSNxUj9rv8Agh7rfw71/wD4JOfsM3nwwt7O08P2nwS0vRNYgso44k/4WJ4e1bV9D+K9xPHGzYvNQ+Jun+LdRu5HxJcT3b3LqpmAr/E7w/8AErib6MH7NLhfxB4HyLKsTxp4z/SB4g+oca55k2Az6PBDyDJ8yyHBZllOGzfDYzAx4hhT4VzmhkNfEYatTwUcxz3Fwi8RCnE/R8Vg6OdcZV8JiatSOHy7KqPNhqVSdL6z7WpCrKE5U5Rl7G9em6qTTk4Uo3tqfj78R/8Ag0D/AGIdU8E3lj8J/wBor9p7wZ8RI9MeLSvEnjrUPhh8QPCEmqiPMd3rfhDRfhz8PtXubV5Rte30rxlpDRQt8rzSJmT+TDWv2XPiF/wSJ/4Kkfs6eFf2x/D1pN4d+EPx++CHxfufEvh25vrnwp8Q/hFoPxN0nVW8e+Db8W9tf3dgINB1QT6Vd2lrqdlrWkX/AIf1azgnhmVv9aiv4Yf+Dxz/AIQS68U/sFadp8K3Hxdk0n46fbobKMy38ngS61H4YQeG4b6NMzSrceJ4/EaeHo40cmZfEKjDOof7P9np9NTx/wDF7xrpfR78XuMc58R+B/Fn
+hvjfKsVjsxpYSPEHCOIwnCGd5vPNsszzBYbDYqjg8Rh8vq5bWw2NnicLhq+LwmLwMcLXpVI4rn4s4cyrAZa82y/D08HicBWw01GDk6VdSxFOmqc6UnKLkpTU1KKjKSjJTck1y/3G6PrGk+IdI0vX9B1Ow1rQ9c06x1jRtY0q7gv9M1bSdTtor3TtT06+tXltr2wv7OeG6s7u3lkgubeWOaF3jdWP5Nf8F3fjB8PPg5/wSk/bEvfiFJpkq/EH4Yah8IPBWjX89sl1rvxC+JUkfhzwsmjWtxl7/UvDdxcT+OpIbWN7i00nwnqerDyodOmuIfw4/wCCQP7MH/Bx38MPgZ4E0zS/jB8Fvg1+z8dJt7vwH8Jf2yNG13x/488KaBKjnTbHRfCvhjRE8c+CtElgMTW/gnxL8R/DA8PWvlCz8LaZLLcwS/Hv/BaD/gl1/wAF5fjhA3xr+PHxD8Cftj/Dv4cwanqmh/Dj9myTVdFi+GulyxIdU1XR/gbqfhbwxf67qM0UaR3mqaBffEvx1c6fCkd/etpdisdr+C+D30TfC3hT6WvCnD3Ev0tvALFcJcFeIGU5zRx+UcUZpTzriSXD+eUcZlvDdGrWyjD8K5Vn+ZYvB0MuzGMeL8TDLalWtLLa2bYqGGw9f1Mwz3HV8hr1qOQ5rHEYnC1KbhUoQdOj7Wk4zrNKo686UIyc4P6vFzsudU4tyX4Kf8EvP2M/2xf23/2iLb4UfsieKPFfw1vLa1g1r4mfF/SvEXivwn4T+GXhWFrkW2seLNa8KTQ3815f3KXGneE/D1qZdU17VZJo7VLbTbTWtW0z+v7R/wDg0R/Zr1XQ5dU+Lf7ZX7Tnjj4xahELvV/Huj23gLRdDvNfZAX1GXw/4m0Tx14ou4lmCkLdfEI3sqICb6JmHl8d/wAGdtt4Eg/Z4/bJms59JX4pXHxr8CW3iuxW5i/4SCPwJpvge4fwHPf2Bb7TBpLeItS+JMOm3LxrFPexavCrGS1d
+V/sdr90/aFfT0+kHwT9Jfjbw18K+I/8AiGOQ8AvI8pqY3J8kyR8R8V4uvkmWZ3WzHOc4zPLcdjp5dGrmbw2V5XhK1HLKuX4fD4vE0MRiK7dLzOE+F8pxOTYbGY6j9dq4r2tRRqVansaEVUnSUKdOE4x57Q5qk5JzU24ppRV/80H/AILR/sKf8FF/+CePwm+HXww+Kv7Tnin9q/8AYj1D4pWuvfBzxz4jXVbrxD8Jfidonh/WbbTPDd0PEl54k1/4Zzax4Z1DX5dN0Pwj45v/AAF4uGj3etXWlWHiLQ7CKw/07/2Cf2lNN/bD/Ys/Zd/ad02eGVvjV8Evh/431uK3ZGj03xhf6BZw+OtCYx/uzN4d8aW2vaFc+X8guNOlCfKBX4Sf8HDuq+BtJ/4JA/teP45i0u4jvtF+HuleFIdRtLe9mbxzqPxW8EW/hqXSIplZ49UsrlpL8XdttuLGwtb+83LBBPXsP/BqX45/4TD/AIIlfsz6S83nz/Dnxp+0D4GnYtudN/xx8deNrSGQ5JHkad40soolONtukKgbQK/04/ZieOvEvj39HjMeIeL8gyPK+IuHvEHPOGs2zvh7I8t4dy/jPGrKshz2pxLispyfB4HK8PnlanndLB5zPA4anQxeIwkMdyUamKqUKXxnGeWUcqzaFHD1ak6NXCUq1OlVqzrTw8eerSVFVKkpTdNOm5U1KTcYy5btJN/0Y18Z/wDBQrxf+1z4C/Yz+Pfi79hHwH4f+Jf7V+h+EYLv4ReDfEstoNP1PU213SIdeuLezv7iysNa1vR/CUuv6z4c8O319ZWviHX9P03Rpbjbe+VL9mUV/oufIn+bR47/AGPP+Dw3/goN54+MXi74y/C7wRrm5LnRLv49fBn9mjwW1nN93TdY+GvwV8T6D4k1Oyt4mUGPxH4P1WaQoslxPc3qvJWD8Mv+DKn9vvxhcjVPjn+1d+zD8O21KdrvUH8Kv8U/i/4lSW4cyXMuoxap4R+G2lXO
+oPKzySmDxNexTOd7XpZ22/6WtFAH8O/wn/4MhP2aNI+yt8cv25vjn8QMbGvIfhR8M/APwgD9DJHbT+L9S+N5jHVUmkt5CcBzCudg/TX4T/8ABpl/wRe+G32aTxJ8GPir8brq12Ml18WPjr8QIPNlTG2W5sPhRf8Awt0i5yw3Pbzac9nJysls0Z2V/SnRQB+cHwn/AOCPv/BLP4I/ZpPhx/wT/wD2UdMv7LYbTXNc+DHgzxz4ntWjxte38VePNM8S+JIZCQC8keqq8jANIzEAj9AvDnhfw14P0q30Lwl4d0LwtoloMWujeHNI0/RNKthgDFvp+mW9raQjCqMRwrwoHQCt2igAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK8C+NH7Vv7L/7OFm9/wDtBftGfAz4H2qQfaPM+LPxX8C/D5pYiu9Ps0PirXdKnu5JhgW8NtHNNcOyxwRySOqkA99or+fn42f8HQn/AARb+C7XlnH+1Vc/F3XbIuH0P4J/C/4keNln2ZA+x+Lbnw3ofw6uxIwKoYfGbA8OxWNlc/kd8aP+D3P9
+lbQftcP7Pn7Ffx6+J8se+O1u/i1468A/BaymcZVbjyvCcfxxvGtt37xI5I7W4mjwki2cjHywD+3eiv8AMb+NH/B6V/wUV8ZfarL4L/Ab9l34KabPv8i/1TRvHvxU8Y2WciMw6tqvjHw14SlKg5f7V4BnEjqpURpujf8AJD40f8HEH/BZr46fa4vE/wC3h8WPCNhdb1j0/wCDFp4P+BYsoHziC11X4ReGvB3iJggJCXN5rV3fd3u3IBAB/se67r+heF9Lu9c8S63pHh3RLCMzX+sa7qVnpGl2UQ4Mt3qGoTW9pbRg9XmmRfevze+NH/BZ/wD4JS/s/wD2uP4nft+/syWd/YbxfaF4P+JejfFPxRZPHndDd+FPhW/jTxLb3HB2202lJcPxsjbcuf8AGL+Jnxr+Mvxp1T+3PjH8W/ib8Wda8x5f7Y+Jnj3xV481TzZM+ZL/AGh4p1XVbvzHyd7+dubJ3E5NeZUAf6qnxo/4PCv+CRnw1+1wfDub9o79oa7j3pZT/Df4PjwpolzKM+W9xe/GnxH8L9YtLNyPmmi8O3t0gIIsXOQPyX+Mn/B8Jqsn2qy/Z9/YA0+0xv8AsXib4yfHG51HzM5EZuvA/gnwFpflbcBnEPxCm37jGpTaJH/gTooA/qR+Mf8Awd/f8FgviV9qi8Ca5+zx+z5BLvS2k+FvwWs/EOoW0RyEZrn43a78XLSe6C4Mkw06GF5MvHawKRGv5S/GP/gs/wD8FXPj19qj+JP7f/7T91Y328XuieD/AIn658LfDV4j53Q3fhf4Wy+DPDtzb5OVt5tLeBCAUjUqMfmRRQBueIvE/iTxhq11r/i3xDrnijXb1t95rXiLVr/W9Wu3yTuutR1O4ury4bJJ3SzOcknPJrDoooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr+
+oL/ggz/wVytf+Cc/wV+OfgKf9kn4+ftEt8Qvijo/i9de+ENlHdaV4eFj4Ts9G/sjVmfTb4rqE5g+2RKHQG2dTtPWv5fa/v8Av+DOzULWT9mT9sPSklBvrP47eCtQuIe8drqfw/FtZynnpNNpN8g46wHk9v4U/aQZ3wbw79E/jfN+PuAZeJfC+FzzghY7hOPFGa8HfW6lfivK8Pg8TLP8moYnH4WOCxlWjiPZ06ThipRjh6jjCo2fT8IU8RWz3DU8Lilg60qeJ5a7oQxHKlQm5R9lUlGMueKcbt3jfmWqPxf/AOC1f/BTKy/4Kj/FT9hrwnqH7Mvxn/Z58NfDjxd4407VdI+Lsb6bd+N4vir4j+Eem30uiSWlnpkyxaPYeD3tbieJzNby6yjQyQu2W+iNf/a7+N3/AAbP/tc+Pf2X/g38Xvhb+2f+yZ4w1fUvHq/APVvGZt/iD8Ir3UpLRIdL8Wavomm6m3wt+KR0yLToL4x6drvhnx1oMVp4rvPBWh6te20Ok+8/8HiN7qeifFr/AIJ9a/pk1xYXuneFvjre6VqUI2vbanpXiX4S3sM1vIQV+0Wcr2k4GG2F4mYYYZ/Xb/gid/wRz+BHwW/Zx8BftOftM+AfBv7Qn7X/AO0bpem/HLxb8RPitpOn/Ey88DQ/EO2t/Fmh6B4WuPFUWsW1t4mjsdTj1Xxt44tUfxJrvizVtbtzr15oFrpUS/wDmfi54CcDfQb+j7xhxfwFfwJ4xybxS4Yy/wCirTzGtxZW4q4ureI+aZhhuKV4k52sHnvC/wDqbWy3PMynxDllNZvDE8WYXKMNB0qGHk/qYYDNMVxLmuHw+K/4VMPUwVaeeOCw6oYdYOnB0fqdLmpVvrCnTh7Gb9m1QlUbu2fmr8Rf+DxvwifBE4+Ev7EviNfiRdWAS1f4i/FjTG8EaJqbxpm4nj8NeF017xTYWsxcCzjl8H3F9GqMb7Tmcqnxj/wQy13x3/wVs/4LOeLP2u/2ydet
+viD4n+B3ww1r41eDvC8kU6+DPDHiXTvFnhnwh8M/Dfg7wzfXGoxaH4M+Gz+MNV8V+HbRL2e+h8YaTo/iLVL3WNdvtY1W8/tD/a1/4Jn/ALE37a3w78QfD744fALwBeS6zazppvxC8L+GdA8LfFTwdqbx4ttd8JePdM0tNa06/tJlhuHsrqW/0DVxAlj4i0XWdKeewm/z7v2Vfixf/wDBvt/wWg+IvhD4orrPjT4beBNT8RfA34l6lo9qbPXtf+B3xHTwt438GfEKw0ZmeCfVbTT4fh98QLnw4k8kd61nf6BYaiks9tqKfJfRrzb6N3jF4D/Sg4Q+iN4LZv4R/SUxnhLxAqOAzTirMuOc+z3hPGVMJhMyy3g3jDOMVCtg4Y6VWjkWMwNLAZDUeOzTJcRUq5g06+C3ziGcZdmmS18/zGnmGTrH0ryhQhhqVKvFOUJ4jD042k4WdWMnKquWnUSUPhl/qA0V5t8IfjD8Lvj78OPCnxd+DHjrw58SPht430uHWPDHjDwrqMWpaTqdnMPmXzIyJrO/s5hJZ6ppN/Da6rpGowXOm6rZWd/a3FtFl/HL49/Bn9mn4beIfi98eviT4T+Ffw48L2st1q3inxhq1vpdlvjhlni03TYZGN7rmvah5LwaP4d0W21DXdavTHYaTp17eyxQP/hZT4ez+rnq4XpZHm9TiWWZPJo8Owy3Gyzx5wsQ8I8qWUxovHvMlik8M8D9X+tLEJ0XS9onE/TXWpKl7d1aao8ntPbOcVS9nbm9p7S/Jycvvc1+W2t7H8B//BWT4yfEH/gi7/wW98Z/HX9inVLLwq/xu+GvhP4w/Ev4aavpy3nw38WzfEHxBr1v8QPCWtaJbT2lxNonifxP4Ibx0t5YXmm65oHiXXL2bw9qOmwwW8dfpH4d/wCDxb4CS+DbS58W/safF6y+IIsYvt2i+HfiF4M1PwbJqYjQTi08T6nY6TrcNjJN5jRNN4RnuIYyiOs7BpD+Leo/YP8A
+g4k/4LpeVYN4v8BfADxbJFCLki0k8X+Fv2dvgh4OH2q7AkjvNP0PxH8SdbtJWs0lh1ix8I+JviTbRXCa/baTK1//AKCnwD/YI/Yz/Zi8B2fw4+CP7NXwf8FeG4NKh0jUJYvA+har4j8UW0IXM3jbxfrVnqPijxrfzOqvPf8AijV9VupCsaeYIooY4/8AcD6VOe/Rh8KPDf6NHBn0o/BPP/Fr6TGW+CvA1TimWS8Y43gXMspyOjg3l2FyjjjizKqmKlnmZ4OvgMZl2Dw9XLs2xlGOXYrELNsvw2Pw1TMfzXI6WdY7GZziMkzGlgMmnmOJVBVcPHEwqVXLndTDUKij7OEoyjOTU6cXzxXJOUWofxVQ/tD/ALSf/Bz18fo/g34u8d/DD9kX9jr4EI3xU1j4F6L8QtM174xePX07TdWV9U0Ox1Sy0zWfib4ss7M3mlN4mHhPQfhx8LdI1o6pd6NrPiK6hsvEv9G//BmzcTzf8EkfFEcsryR2n7YXxkt7ZHYlYIG8C/B26aKMH7qG5ubiYqOPMmkbqxr4c/4L2/8ABI/4c6P8FNb/AOCiX7D3hfRv2b/2m/2W45fij4xvvg9Da/Day8d/DrQYnufFWvnTvDo0rSNP+IHgix+0eKIPEdjBaah4n8PWviLw3rq+Ibu48NJpf3b/AMGcOl6hp/8AwSL1q7vLWS3t9c/a4+M2qaTK4AW90+Hwl8KNEkuoTnmNNU0fUrMk4PnWkoxgAn/R/wDZ5cd+HPiN4eZ9n/gtSwfBvhLl9PhrhbJvBJZTRw+b+GHF+URz3HcZ47OeJfruPxvHU+O6edcO5tg+KcwrU8VXoYCWCxGGoY7BY2L+Q4swuMweLpUsxcsTj5utXqZl7RunjcPU9lHDxp0eWEcN9WdOtTlQgnFSlzRk4Siz+raiisrXdPu9W0PWdK0/V73w/f6npWo6fZa9psdpNqOiXd5aTW1tq9hDqFvd2Et7ps0iXtrHe2tzaPPDGtzbzQl4
+2/0KPlDVrn9e8W+FPCsP2jxP4m8PeHLcqXE+va1pujwlBnLebqFzbptGDlt2Bg5Nf5/nxX/4NJ/+Cq3jfW9eurj/AIKneFfina32qajcQ6t8U/F/7RlprGtQ3F1NLHqGt2Jb4gQWmpXyuLi/totX1iKC5lljTUL1VE8nx3r3/Blh/wAFQHmmu7H9oz9hzXpnYvJLqnxE+P8AYX1wf7zM37OmqRtIe/m3ajH/AC0PSgD/AETPEv7bH7GngwSHxh+1v+zH4UEOfNPiX49fCvQhFt+95h1TxXa7NuDndjGOa+e/Ev8AwWG/4JSeE/MGsf8ABR39ihniz5sGi/tKfCbxPcxsuco9r4Z8U6vcLIMcxGISA8beRX+fLq3/AAZtf8Fb9O3/AGPxP+x9r23OP7J+MnjmHzMf3P7d+D2i4z237PfFeaat/wAGiv8AwWX04P8AY/h78Cde25wNJ+PPhaEyY6FP7cttGAz23lD6gUAf3yeJv+DiD/gi14S3/wBq/t//AAhu/Lzu/wCEZ0f4k+Nc7euz/hDfA2veb7eXv3fw5yK8K1P/AIOn/wDghxp99BZQftg6vq6SzrDNf6Z+zl+039hswW2tPO+o/CDT55YI+rPY294zLzEkgr+ETVv+DVD/AILgadv+x/sqeFde25x/ZP7R37OcPmY/uf278UNFxntv2e+K88u/+DY//guTZ3MdpN+wnrLyyyCJHtPjt+y7fWwY9DJeWXxuuLSGP1mmnjiX+JxQB/rd/A346fCH9pf4UeC/jl8BviB4e+KPwl+IemSav4N8c+Frl7rR9bsoL260y8EfnRW93aXunapY32larpmoW1pqek6rY3umalZ2t9aXFvH6xX4t/wDBAz/gnd8WP+CZP/BOzwT+zz8c/E1jrnxZ13x340+LnjXQ9E1T+2/DPw61LxuujWtv8PvDusKEt9Tt9I0zw/Y6jrt5YRjS5/GWs+Jn0m41LTDaarf/ALSUAFFFFABRRRQAUUUU
+AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRUVxcQWsE11dTRW1tbRST3FxcSJDBBBChklmmmkZY4ooo1Z5JHZURFLMQoJoAlor8zP2h/8Agsv/AMEsv2WPt0Pxp/bo/Z80XWNN8wah4T8I+NIfix46snjyDFeeAvhLB448ZWkrspWOO50OJpWDBA21iPwm/aH/AOD0D/gnb8Ozfad+z98Fv2iP2jtYtvN+yape6Z4d+C/w+1ErkQ+VrvijUNf8eW4kYZc3XwsiMUTKwEkm+FAD+wyiv8xr9of/AIPQ/wDgoX8Qvt+nfs9/A/8AZ3/Zz0e58z7JqmqWXiT41fEHTQciLydd8RX/AIY8B3BRTmQ3fwsmEsioyrFHvif8O/jv/wAFu/8AgrR+0ib2P4pft7/tDtp2omQX2gfDvxifgr4XvIZc7rS78L/Bm18A+H7yzwcC0u9OngyqsULqGAB/sjfFz9or9n79n/S/7b+O/wAc/g98FdH8lrgar8WfiX4L+HWntAmQ0qXni/WtHt3QFWG5JGG4FR83Ffjp8dv+Dmr/AIIwfAj7ZaXH7XOn/FrX7TzNnh/4E+BfHfxN+2+XkN9j8X6ZoFt8NX3N
+hY/O8cQCXcHjLRB5F/yCda1vWvEeqXmt+IdX1TXta1GZrjUNX1q/u9U1S/uGwGnvNQvpZ7u6mYABpZ5Xc4GW4rLoA/0a/jt/we6/s46H9ttf2av2JvjN8SZR5kNnrHxp+IHgz4O2SuMqt62j+DLT403l7bAjzI7STU9HuJ4iFlmsZCwT8X/jv/weP/8ABVH4lG8s/hD4b/Zv/Zw0uTzF0++8J/DnUPiH4ytVfO1rzV/it4h8V+Eb6aLjy3h+H+nwnB823lzgfyaUUAfpX8dv+Cx//BUz9pP7ZD8Xv28f2k9Z0vUfM+3+GvDPxG1X4ZeDL1ZM7kuvA/wubwZ4PuIgCRHFLojRxKSsSIpIr83r6+vdTvLnUdSvLrUNQvZpLm8vr64mu7y7uJWLyz3NzcPJNPNIxLSSyu7uxLMxJzVWigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACv7Rf8Agzl+Ldvp3xX/AG2PgTczxm68YfD34U/FnR7dnAkSD4c+I/E3g/xFNCmQXSZ/il4YS4bB2G3twCu87v4uq/Sz/gkh+3Hrv/BPf9uL4aftAaT4F8S/FPTpdL8W/DnxP8L/AAfcfZvE3j/SfHuh3Gl6VoOiv9kv/N1K38ax+EtfsrMWN0+oXOiRWEUazXMcsf8AL300vCjM/G36LnjJ4cZFhoYziDOOFo5lw9g518PhfrufcK5pl/FmT4CGKxdbD4TC1Mxx+SUMBDEYrEYfC0niebFV6WHVWcfa4cx0MtzvLsZVly0qdfkrSs5ctKvCdCpNxipSkoQqudoxcny+6m7H9ZX/AAeJfCW71v8AZz/Y6+OMEJktfhv8ZfiB8Mb+RE3ND/wuHwZpniWzklZclIBL8FpYd74jE9xDHuEk0av/AEBf
+8Eq/2z/hN+3D+xL8Dfih8NNe0C51zQvh74L8D/FnwVpDWtre/DX4oeGvDWm6X4o8K3+hRFZ9I077faT6h4Rllt7e21nwnc6Tq1gv2a5CR/ygf8Fa/wDgshqP/BQz9h74l/s6N/wTa/a3+F+r3WseCfHnh34j+LdC1C+8N+DL7wH4n0/W9Y1XWIIfBtjKtlc+DU8UaLJdC8t0sf7VF9cO1tbzRSflL+x38HZPhN/wTf8Aib/wU/8A2cv29PiN+yT+0D8CfiVqnwR+IPwz01riay+N2o+I7fRfEXws0bwpLoOpaVcQprmm63f299ofi7QvHmiGfwP4l8Ys+gWOhXDJ/j/gvojZ34hfQV8KPCzxlx+I8JvEnw08b8/4T8MsVHD0fELJsbT8Wsbh80y7L+I6Ph7jOIsXleVcScUY6WU4bOowrVsozTBYepjcBLK8XOuvv5Z9TwnE2Px2XQWPweMy2jXxsW3hKkfqMHCc6LxcaMZ1KNCKqSpuyqU5NRmpxSP9RnxF4i0DwjoGt+K/FWtaV4b8MeGtJ1HX/EXiHXL+10rRdC0PSLSa/wBV1fV9TvZYbPT9N02xt57y+vbqaK3tbaGWaaRI0Zh/kbf8Ffv2xvCv7eH/AAUL/aE/aM+H9nPa/DnXtZ0Dwj8O5LuF7e+1jwd8OPC2jeBdJ8UXtvKkc9rL4v8A7Cn8UxafcxR3WlWmsW2k3Qa4sZHf96fgh/wT1/4L2f8ABZD4F6D4u/an/bJ8SfCX9mjxvpGn6h4a8M/FHUNT0e9+KGgKkWo+HPFE/wAE/hhonhnR9f8ADt5cRW2oaTrvxN1DS9S1CH7B4m0Cx1jTbnT9Um8Jv/8Ag3b/AGq/2BP2n/2Tvjd8W9Y+G3xp/ZS8NftR/s9z/GLx78NjqF7e+APB8/xe8I2V9qvxC+H3jHStMul8ISmeK213WdDm8Y6Xoul3N1qPiCK2sLeQS/VfQZ4J+jf9DHxE8Sa/G30jvDPxA+kDU4dzThDK
++DeC8bnDyHBUMLiKWb5lwzgOJMzyvC5bnnGmf5zkmV5VRyqhClmGXYrCPK8PhMdjczqUKWHE2JzjiLCYNYbKMZhMpVaFepiMTGn7WTknThWnRhOU6WHpU6lSbm24TjLncoxgm/vT/glB/wAG4f7Qmn/CLwh8cvjP+25+03+yBrXxT0Sy8VL8F/2W/FWr/DHx/omiavYpPoMnxB8cyalNaWfim702a3n1Pwkvgi9n8PxSJpeo6yNWW/07TPKf+Cvv/Bul+1B4Y+F+uftJfCD9rb4+/tv/APCs9M1HWvFfw2/aE1zVfGXxe0zwfaQzX+v+IvAXiu51y9tPFk+nW1vHeap4Ot/Dug6veWVpdXei3OvaoLTQZf70KguZ7a2tri5vJoLe0t4JZ7q4uZI4raC2ijaSea4llKxRQRRKzyySMsaRqzOQoJr/AD/wP7TL6T+H8Z/+IuVM64cxirZv7WtwVLg/hank1Xh6VeaXC9PNKGSQ4npUoYGf1GlnEc4lnkuWnWxGNxL56dT6qXBmSvLvqCp1o2p2WJ+sV3UVay/fum6nsG3Jczp+z9lulGOjX+Uf/wAED/2x/A/7E3/BSr4Q/ET4p6xZ+GvhX8QtH8U/BL4g+Kb9V+x+FtL+IFtav4e8QX074Sw0fTfH+i+D5fEeqSukOleGjrOozMYrV0f/AFdIpY5445oZEmhmRJYpYnWSOWORQ8ckciEq6OpDI6kqykEEgg1/nCfB7/g2e/ao/bK+IHxT+Mvg7Xfh3+zV+yp4v+LPxJ1X4B3vxGTX9V8e+Lvg3eeMdan+G/i3w98PNB05Ra+F9Y8Ktplzo9z4s8R+E7/U9Nls9Y0vSr3Rb+x1C49o/am/Za/4L9f8EXP2fv8AhJPhV+2n4k+Jn7J3gyyj0vVL74d6u/ihfg5pep3UOj2K3ngL4s+HNY1Pwd4Wkuru1hsNS8AXupaL4fvblp79vD8k0F1ef3p9N7wy+jz9NHxp4KreFv0lfDDhHxzr
+ZJlfBGdcC8ZV84pZPm2Jp4rFYvKctpcUZPleZZZheN8uxeZYvIMbw/Gpj8Tj8RDA5fShgcfgZ0cw+X4bxubcOZdiVjsmxuIyxVZ4mnicOqbqU04xjObo1JwnLDTjCNWNW0FFOc25QleH9KH/AAcI/ti/DX9l7/gmr+0F4N17xJoS/FL9pHwJrPwP+F3gGe+gbxD4kj8erF4d8c+ILTSUkN8uieDfBWoa5q99rr240q11hdB0We6j1HXtLt7n7p/4Nu/hL/wp7/gix+w5os1t5Go+MPA3jD4tajKybJb3/hbXxP8AG3j/AEW5lGBu2eFte0CygfHzWlpbkljlj/nnftufsYx+Of2fP2LP2n9U/bp+IX7fv7X/APwUa+J/h/wD8H7PWRq1rZeFvC+jSyeF/GHhHWH8W614r8Yaj4o8MfFjxN4M8AWemWv/AAh/hjw5Pc+JbWx0HWf9A1CD/WO/Zv8Agvon7OH7PPwJ/Z78NTm78P8AwL+Dnwz+D+iXjxiKS90v4beDNF8HWN7KgztnvLfRo7qfJLNNK7MzMSx/0B/ZxeBPB/gX4HZzlXDHFGYca5jnfH/EkuLeJsZwxnXCGErcScMVafCGa5LkWScRYfB53DJ+Gs0yXMcneOzTB4bFZhnFDOMVGhQwc8Jh6PyvF+aYjM8ypzrUYYaFLC0fYUY1qeIkqNdfWIVKtWi5U3UrQqQqcsJOMKbpxu5KTftFFFFf6BHyoUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFAB
+RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFY3iDxF4f8JaNqHiPxVrujeGfD2k27Xeq674g1Oy0bRtMtUwHudQ1TUZ7axs7dCQGmuZ441yMsM0AbNFfiZ+0x/wcT/8Ee/2W21DT/Ff7ZPgP4l+KLEyxr4R/Z7ttW+Ouo3N1DkTWB8QfDyz1jwBpV7C6tFLD4i8ZaL5U6tBIyzI0a/z6ftKf8Hunwy037fpf7IX7FPjXxdIfNj0/wAa/tEePNF8C2lu6ZWO4l+HXw6i8eXWq20zYdYj8SfD9wsWPMCyO0cQB/d9XJeN/H3gT4Z+Hb3xf8SPGvhL4f8AhPTVDaj4o8b+I9H8KeHbBSGYNe63r15YabaqVR2BnuYxhWPRTj/Jm/aU/wCDqX/gsZ+0N/aFhofxx8I/s2+GNQ81JPDv7Onw70bwvcRxNkRC28deNJfH/wAT9PmiU8z6R420wyOS7INsax/hL8Xfj18cv2gPET+Lvjv8Zfip8afFTtK7eJPiv8QfFnxC1wGYhpQmqeLdW1a9jVyFykcyphVUKFVQAD/XY/aH/wCDkD/gjZ+zj9vs9b/bL8GfFPxDZGRYvDn7PukeJPjbJqEsWd8Np4s8C6XqXw3hYEbVfU/G+nwuxxHK2G2/hN+0P/we6fAzRhfaf+yp+xT8UfiDMfMhsvE/x48feF/hZYW8i5C3reEfAlt8V73VrV2GY7STxZ4bunidZJZbaVWt6/zqKKAP6fv2h/8Ag7n/AOCvXxnN9ZfDvxd8GP2YdEuvMgit/g38KdM1rXRYvlRHceJfjLefFG6jvzGcSanoNr4elWT97ZRWLbQv4WfH/wDbp/bO/aqnuZf2kP2qPj78a7a5
+l87+xviJ8VfGXiPwxaNv8wR6X4TvtXk8M6PbrJ+8S10nSbK1jkJdIVYkn5UooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACuh8I+K/EPgTxX4Y8ceEdVutC8V+DfEOi+K/DGt2LiO90fxD4d1K21fRdVs5CCEutP1Kztru3cghZYUbBxiueorKvRo4mjWw+IpU6+HxFKpRr0K0I1aNajVg6dWlVpzUoVKdSEpQqQnFxnGTjJNNoabTTTaaaaadmmtU01qmnqmtj/ZN/Ys/aW+H37fP7Gvwd/aA0iLRtX8O/Gv4ZWg8ceGV2Xun6P4rlsZPD3xQ+H+pW8xkMi6B4ot/EHhy5iuQVvbS3S6TzbW7hlk/zLvFP7Hmo/Ar/AIK56H/wTS+IGq+IF+CWpf8ABQT4H+Db/wAO3Wo3S6Z4k+HHjb4i6No/w88a3+nyyCxl128+DPxLZk1CRZJbRNf1OzW6eGSYv+p3/BrX/wAFMLX9nv4865+w38XfE8OmfCP9pLV4tX+E+oazfJb6X4R+P8Nrb6dDoqTXDx29na/F3RLSz8Pr5krNP400DwXplhbrPr9/M36Hf8HYH7A+pat4U+F3/BSX4S2F5ZeLPhPPofwy+OV9oHnWmpQ+E7rWWuPhR8STdWRgltbrwd4xv5vCN9qwkk1J4/Ffg1I5ILHw4Xi/5+fAjhjHfQl+nD4ofRkzbMK2R+G/0ksjq0vCDirE03UwmBzyrVzPE+GOPVSrKKq5rkOOxue8EVfZSoYrEcRSyrGQlh8JiMNUf6pmlaHEnDWCzmnBVcZk9Vf2hQTtKVO1OONjZLSFWMaWJV04xpe0j70oyR/ZlbW1vZ28FpaQQ2tpawxW1ra20SQW
+9tbwIsUMEEMSrHDDDGqxxRRqqRoqoihQAMnxP4a0Dxp4b8QeD/FekWGv+F/Feiar4b8SaFqlvHd6ZrWg65Yz6Zq+k6hayhormx1HT7q4tLqCRSksE0kbAqxr+Sv9gP8A4Otv2XvF3wu8O+FP29dO8WfBv4x+G9L03Stc+I/hHwjrfj34afESS1gS2k8UR6X4Wg1Xxl4R1y+aM3es+Hm0DWdHjnd7rSNdaO5XRtN4X/gpL/wdE/CLxB8L9f8AgZ/wTMtfiN4++OPxKkTwVonxn1LwHqHhzQfCdvr00emNf/Dvwr4hji8ceKfiFqIuDp3ha21bwhotjpGpXdrrBGs3dpFolz/nZgP2eX0wf+IpUfD6p4TcUZTiqGdQoVfELEUMRS8OsvwlLExlPif/AF7oxllM8vw2H/4U1DC4mrnbhB0KWWSzOP1JfXS4s4f+ovFrH0KidNtYRNPFzk1pQ+qu1TnlL3LyiqV3zOfs/ePlr9mD/g6O8c/sl6j43/Zo/am+HGq/tVeE/g3438V/Dn4cftAeD/FWnaH8T/EvgrwZ4k1Hw94fu/H9hq9td+HvHerXOi2NpLH4vs9X8Najfwxwy69F4g1e7vfEE3onjv8A4OPL/wD4KQfHn9nX9hP4MfA/VPgh8E/2k/2ivgx8I/jT8QfGfjCy134jeLvhF40+I3hvRvGvgLRNA0TT7Xw/4Ji8a6Bc3/hfxHqc3iHxncXnh/WNR06wg0u4mF8frT/gnt/waxfsjeEvg14F8Y/t56R4x+Mvx38UaHaa941+HVn4/wDEHgn4a/D291W2W7j8H2svw71Dw/4r8Qa54dWdbLX9fl8ZyaNqOsW8/wDZGmR6bFHcX3nf/BRf/g1v+EWm/D/Uvjb/AMEzNV8cfCv42/DG1bxhonwc1fxnrvinQfHV34bl/tm1tPAXjLxBfXfjbwV8R43t/M8M3eo+Ita0HVNWtdK0yZfCz3Fz4mh/0Anxz+yczLxrzDLsr4dz3JOP
+a+JxmV5R4wVsBmeG8EsL4gVIVcBgONcPw/g+LlhsLhaWeKlmmHrz4QwnB9GcoZk1hsJD+0aPyqwvHUMthOpWpVcLGMZ1MvUoPMpYRNTlhnVlh+ZydO9NpYiWIaTh7zfI/wCxiKKOGOOGGNIoYkSKKKJFjjijjUKkcaKAqIigKiKAqqAAAABXNeN/Bfhj4j+DPFnw98baNZeIvBvjnw3rnhDxXoGpQR3On614c8R6bc6RrWlXtvKrxzWt/p15cWs8bqytHKwIr+Tr/gn5/wAHVH7LniP4Q+FPBn7fY8bfCP44eEdI0vQPFPxK0TwTq3jj4f8AxLurC3Wym8Y/2b4H0+/8UeEvEOpNbm98R+Gx4UudEtr6eSbQdUe2uBo+leWf8FN/+Dp/4E3nwc8dfB3/AIJ8af438ZfEfx3omteEn+PPi7w3eeBfCHgHRtasptOu/EvgfQdce38aeIfGUdrPcHQR4h8P+FtJ0G/ay1q6GvfZJNBn/gPKv2eP0xH4r4fw9peEvFmW43C59Sw3/EQXhcRR4AwmHo4yLXE+G44iqeU18HRoxWZ0aWExUs7nGMcNSy3+1LYNfUz4t4f+ovFvH0JxlScvql08VJuP8CWG1mpN+43KPsvtOfs/eP4kfH3iTxP4J8dN4N8L/ErxHqvh74HePvGNj8I9e07XLu0GiR2fjK6vofFPhGfTrpF0S91rULG08Rm/0eaGVr4wXcU5eGGReuh/bI/a9t8fZ/2qv2kIMdPJ+OPxOix9NnihcV830V/2HYDCLA4OhhVKNSdODlXrxo0sO8Vi6spVsZjalKhGFKNfG4qpWxeIcIrnr1qk23KTb/n+cuaTlsnsrt8sVpGKb1tGKUV2SSPqSH9uT9te3x9n/bB/akgx08n9oH4sxY+mzxauK1Yv+CgH7eNv/qP22f2uYcdPK/aR+Mkf/oHjNa+RqK7CT7Ni/wCCjv8AwUMt/wDUft4/tmw46eV+1D8b4/8A0DxytasP/BTn
+/gpPb4+z/wDBQr9uKDHTyf2sfj1Fj6bPHy4r4dooA+94f+Cq3/BUK2Km3/4KRft7QFfu+V+2D+0LGBjthfiIBjHGMYI4IxXRWn/BYH/gq5ZY8n/gpL+3K+CCPtf7Unxn1Dp6/b/GVzkeoOQe+a/OaigD9QbT/gth/wAFcbLHk/8ABRr9r18EEfa/jZ4z1Dp6/b9Sucj1ByD3zXUWn/Bd/wD4LD2WPJ/4KH/tKvggj7X41GodPX7fZXOR6g5B75r8lqKAP2QtP+Dg3/gs5ZY8n/goJ8bnx/z9jwXf9PX7d4Tuc/j17109p/wcd/8ABbGyx5P7fPxHfAAH2vwP8GNQ6ev2/wCGlzk+pOSe+a/EiigD94rH/g5t/wCC5GnMrW/7duuSFcYF98Df2YNUU4/vJqfwTu0f33q2e+a7/S/+Dqn/AILiaeFF3+1r4c1vb1Oqfs3/ALNMRf8A3v7F+E2kAZ/2AvtX871FAH9MWm/8Hbn/AAWhsdv2r4t/BvWcYz/aXwB+H0W7/e/sey0rGe+3b7Yr0LS/+DxD/gr9p4UXf/DLOt7ep1T4J6rEX/3v7F+IOkAZ/wBgL7V/K3RQB/XLpv8Aweh/8FWrHb9r+En7DOsgfe/tH4TfGqEt6knSP2jdLAP0UAHsRxXoel/8HsX/AAUViC/21+zD+xXqBH3zpfh7456QG9dou/jfre38S/41/GvRQB/bXpX/AAe6ftewlf7b/Ys/Zu1ADG8aV4v+J2jlvXabvUddC57ZD475r07SP+D4r4sQ7f7e/wCCd/w81LGN/wDZH7RXiTRN3rt+2fCTxBsz2zvx71/CNRQB/oE6R/wfLac+1de/4JmXttjAefSP2v4L3d6lbW8/ZmsNnspvH/3hXqGkf8HwfwGm2/29+wH8XdNzjf8A2R8bPBut7fXb9s8EaBvx2zsz7V/nTUUAf6VGkf8AB7b+w9Nt/t79kL9qzTc43/2Rf/CLW9vrt+2eN/D+/HbOzPtXp2kf
+8Hqf/BL672pq/wAA/wBuvSJGxueL4c/AbU7RPXMsX7R9vdHHbbYtkZzg4B/zCaKAP9U/Qf8Ag8U/4JCawVGoW/7VfhUNjJ174K6HcBM92/4Rf4j+JCcd9gc+gNe3+Hv+Dr3/AIIk60Y/7S/aS8e+Et+Nx8Q/s7fHS5EWevmf8Ip4E8TE47+UJPbNf5INFAH+xf4f/wCDk/8A4Ii+JvL/ALO/b08FW3mY2/8ACQfC/wCP3hPGenmf8JT8J9G8r38zZjvivb/D/wDwXN/4JA+Jdn9nf8FE/wBlu28zG3/hIPiVpnhPGem//hKho3l+/mbMd8V/iw0UAf7h3h//AIKh/wDBNHxXsHhv/goX+xBrckmNtvpv7VnwKursE9Fezj8dm6ic/wBySFH5Hy817hoH7VX7L/izy/8AhFv2kPgJ4l83Hlf2B8YPh7rPmZ6eX/Z3iK535yMbc57V/hA0UAf782l6zo+uWwvNF1XTdYtGxtutLvrXULZsjIxPaSzRHI5GG5HIrSr/AAFLDUtR0q4W70vUL3TbtPuXVhdT2dwvIPyzW8kci8gHhhyAe1e1eG/2pv2nPBvl/wDCIftG/Hjwr5OPK/4Rv4vfEHQ/Kx08v+y/ENrsxgY24xjigD/eBor/AA/vDf8AwVU/4Kc+D/LXw3/wUR/bf0mCLGyyg/ao+N76d8v3d2mT+N5tPkA6APbMAMgcEg+++Hf+C9n/AAWN8L+X/Zn/AAUM/aKuvKxt/wCEi8TWHjDOOnmf8JbpOt+d7+dv3d80Af7QlFf4/Phr/g58/wCC4vhny0h/bdvNZtkxutvEvwI/Zn13zQvQSX198G31X6mPUI2bqxJAI9/8N/8AB3R/wWZ0Py/7T+IvwL8ZbMbv+Ek+A3hO183HXzP+EQm8K43d/K8v2xQB/rD0V/mB+FP+D0z/AIKf6R5cXij4H/sTeL7dSvmTH4e/GfQNVkA+8PtOnfHmTTE3DnjRDhjnlflr6Z8Kf8HwH7Q9
+n5f/AAnH7BfwY8RYC+d/winxg8ceDd5H3jH/AGv4W8d+UD/CG87b3LUAf6MdFfwaeE/+D434f3Xlr45/4Jy+MdCHAml8J/tNaJ4syejPHb6x8EvBmM9RG1ydudplbG8/S/hT/g9k/wCCfV75Q8b/ALLP7YvhxmwJT4Y074K+MY4mPBIbVPi14IkkRepYRK5UZWMnCkA/s0or+WTwn/weE/8ABH3xEIjrF5+074D8zG8eLPgja3hgz183/hBvG/jMHb38gzdDt3cZ+mPCf/B0X/wQ98VmGJv2zJfDF5MQBZ+LfgH+0hpQTP8Az21OL4SXuhRAE4JfVgOpGVBIAP6A6K/KLwf/AMF0f+CP/jnyv7F/4KJfsvWXnbdn/CYfEWw+HmN3Tzf+E/j8M+RjPzef5ez+Pbg19VeDv2+P2FviIIj8P/20v2TfHPn7fJ/4Q/8AaM+D/ibzd2Aoj/sXxje7yxIAC5JJwKAPrOisbQ/Efh7xPZjUPDevaN4hsGxtvtD1Sx1azbcMri5sJ7iE5AJGH5HIrZoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACivN/in8Y/hF8DfCt146+NXxS+HXwg8E2O77Z4v+J/jbw14C8MWpVGkZZ9e8U6lpWlxOI1Z9j3QYqCQDX8+n7VP/B13/wAEif2cG1LSfBXxN8dftVeMLDzYP7F/Z58E3OpeHkvVysKz/Ebx9d+BfAt9
+pzsFabUvCOs+LvKhJaK0uZgLdgD+lOiv82j9qP8A4PWv2tPG39o6N+yR+y/8IfgPpE3m21r4t+Kuta58bfHaQjIi1LTrDT4vhz4J0W/fCu1jq2ieObK3BeHzrs7bgfzg/tR/8Ff/APgpl+2Z/aNr+0L+2d8bfFnhzVfNW+8A+H/E3/CtPhlcxS5UQ3Xw0+GNv4P8C3qxRsYYpL/QLq4WJpA07NLM0gB/rcftSf8ABXj/AIJo/sYnUbT9oj9sz4JeDvEeleaL7wDonib/AIWP8TraSLI8q5+GXw0t/F/jy0aSQGKKS88P29u0qupmURSlP5z/ANpv/g9W/Y08C/2hpX7K37M3xs/aB1e382C28R/EXVfD/wAC/AVzIcrDfae0cfxI8cahaRgiV7TVfB/hO6nKm3EtsGF0n+apRQB/UV+05/wd1f8ABWj45nUdM+Fev/CH9lHwzdebbwQfCD4eWXiPxgdPkyPK1Dxp8W5/H7pqO1tp1bwpovg+ePaj2sVrKGkf+fn49ftaftRftTaz/b/7SP7Q/wAaPjpqi3D3NtN8VPiT4t8bwabI4YbNG0/X9WvtO0S2jR2jgs9ItbK0toiYbeCKL5K+e6KACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACirFtZ3d7J5Vna3F3KcYjtoJZ5DngfJErtyeBxz2rstP+F3xM1bH9lfDrx3qe4gL/Z/hHxBebiegH2bT5Mk9sdaAOFor3Kw/Zg/aV1XH9l/s8/HLUtxAX7B8JfH15knoB9n8PyZJ7Y69q7Oz/Ya/bX1HH9n/ALHv7Ut9uxt+x/s+/Fm63Z6Y8jwi+c9sdaAPlqivs6z/AOCcP/BQ3Ucf2f8AsG/tnX277v2P
+9l344XWfp5HgZ8/hXV2f/BKf/gqHqGDZf8E3v29LpTjEkP7IP7QTxDPILSj4e+WoPYs4B9aAPgaiv0atv+CPv/BVy6x5X/BNv9uRc/8APz+y58ZrP8/tfg6DH44rdt/+CLn/AAVrujiP/gnF+2Ouf+fj4CfEG0H4m70SED8TQB+ZFFfqnb/8EOv+CvdyQI/+CdX7Va5xj7R8K9ctBz6m6jhA98kY71uW/wDwQZ/4LFXJAj/4J5ftHrnGPtHhK2tBz6m61KED3yRjvQB+SFFfsXB/wb8/8FmbnHl/8E+vjmu7p58HhK1/P7V4oh2/8CxW1D/wbtf8Fp5wCn7APxZXPTzte+GFufxE/jyMj8QKAPxft7ie1nhurWaW2ubaWO4t7i3keGeCeF1khmhmjZZIpYpFV45EZXR1VlYMAa/fP/gnW/ij/gpdrXif9mf9pz/gtD+1T+zn4u8cRnw/4V8B/FLxF8RPih8HvjZourwx2d14Om8QeJP2i/B2ix+Kr24lks4vAviXw+9j4ntprWDQtT1fVp5tEt/O4v8Ag3I/4LXy42fsC/EoZ/56+M/g5D+fnfEiPH41ej/4NuP+C28p+T9gnx4P+unxH+BUP6y/FNPzr838UPD6fiFw1i8tyvPY8G8V0abqcL8dUOFuEOLMz4WzGNWhiKeKwmWcZ5LneU4jD1a2GoRx+G9hhsRiKELYTMMvxkMNjsP2YLFrCVoznS+sUG7V8K6+IoQrws04ynh6lKomk3ySvJJv3oTi5Rf0f+0N+xT8ef8Ag3j/AGrfA/xF8afDr4X/ALcP7GvxKOm6Bq998T/g54Z1T4efEmySP7Z4i+Hnifw14sj+Idt8Jfi3oqR6lq3gDxFZapqaanpqPfWlxruk/wDCf+CbL7r/AG7P2kf+Cefif40/8EQP28f2P/CPwj8HfssfDT9pWfR/jl4H8D/D7wZ8Lrz4JeKo/Gfwa8ZWVj8T/BXhqwstO0TxLp+iaP4x8R6DNKk2
+k67b+CL7V/DGvapo0serL0HwU/Z9/wCDqf4YfBO7/Zo+Jf7Dfh39r79ne90ZfD0nwj/a71n9n/4r6RDoSGM2+mW/iiy+O/hX4htb6WIbf/hHYr/xhfw+FHtLJ/DUOlGythF+VvxB/wCDdT/gs14l8U+ItV8C/wDBNnxf8L/COv38OqRfDrTPj58GvE3h/QriNJ9lnpOoeJfjFd+ILrSdPe7vI9DXxLqniHXbCyuHt73xDq1w897P/HvD30aPE7jjijhziHx9x+F/4iJwTk3F3COP8T/DfOI4Tg/xt4J4t4S4g4JdbjXw9q08lq8I+I2UZXxDLG5fmmR4LMspw+LwlbDwzCplcsuyrB/QVs5wWGoVqOVRl9UxNTD4iGCxlNyxGW4mhiKOJthsWnUVfCVJ0eWcKsoTcZJ8qqKVSX+oBbXNveW8F3aTw3VpdQxXNtc20qT29zbzossM8E0TNHNDNGyyRSxsySIyujFSCcPxf4u8MeAPCfibx34113TfC/g7wZoGseKvFfiTWbqOy0jQPDnh/T7jVda1nVLyUiO1sNM060uby7nchYoIZHPAr+Oj9gjTP+Dqn9hr4WaB8DJ/+Cfem/tD/CjwjAmn+C9N+L3xR+EjeM/BehQ7Ba+FvDvjjQPj3YXL+GdOjDw6RpfiTSvEZ0O0+zaVolxp2iWNnpcPN/8ABRLwL/wdNf8ABQj4a658CtV/4J96b8Cvgb4lubZvE/gv4VfEr4Mv4g8badZXUF/Z6J438ceI/jpqV7qOjQ39tBdzaZ4b0zwjp+qGGODWrXU7VBCf8gMH+xu+kk/FCjw1js04Nj4ZxzuEMT4k4fO6KrVOGo4uLq4rDcKTjUzmHEFTLnJ0cqrU3lcMyX1epnjwSWPn99LxCyf6k60aeI+u+zbWDdN2Vbl0i66tTdJT3qL33D3lS5vcPkj/AIJl/Gz/AIJ3/A39k79vf9tf9vn4Q/AT4seBfjJ+154uk/ZT+BXjT4SeA/iB408W
+a/oOmXviTxLa/CTwx4+0bVLzQfCssXxD8HaDrPia5XTvDfhsaALTWtQOprZ6dd/zKftW/tIan+1N8ZPEXxQl+HXwv+Dfhq5kbTvAfwc+C/gnw58P/hn8MvB1tPNJpPhfw7oHhjStGsbia3jmaXWPEV7aHWfEeqSXGpahKokt7S1/USb/AINtv+C49xFaQXH7CvjmeGwge2sYZvi58AJYrK2kubi9kt7SN/i8yW8D3l1dXbxQhI2ubm4nZTLNI7V/+Iav/gt7/wBGGeMf/Dq/s+H+Xxbr/oH8M/o88OeHfiF4geJ9XOc74k4q43xeEoYKOZ4zE/2Hwdw1lWV5dkmW5JwzkjxFXB4PGYrAZVg6/EmfOLzHPcydeq3g8JUeCf5Vjc2rYvCYTBKnSo0MNGTlyRXtcRWqTlUnUrVLKUoxlOSo0vgpQsvekuY/DKiv3Ck/4NuP+C28X3v2CfHh/wCufxG+BU3/AKJ+Kb1Rl/4NyP8AgtfFnf8AsC/Eo4/55eM/g5N+Xk/EiTP4V/QR5R+JdFftLN/wbtf8Fp4AS/7APxZbHXyde+GFwfwEHjyQn8AaxZ/+Dfn/AILM22fM/wCCfXxzbb18iDwldfl9l8UTbv8AgOaAPx0or9b7j/ggz/wWKtiRJ/wTy/aPbGc/Z/CVtdjj0NrqUwPtgnPasO4/4Idf8Fe7YkSf8E6v2q2xnP2f4V65djj0NrHMD7YJz2oA/Kyiv03uP+CLn/BWu1JEn/BOL9sdsf8APv8AAT4g3Y/O00SYH8DWFc/8Eff+Crlrnzf+Cbf7cjY/59v2XPjNefl9k8HT5/DNAH5y0V983n/BKf8A4Kh6fk3v/BN79vS1UZzJN+yD+0EkRxySsp+HvlsB3KuQPWuUvP8AgnD/AMFDdOz/AGh+wb+2dY7fvfbP2Xfjha4+vn+Bkx+NAHxjRX1LefsNftr6dn+0P2Pf2pbHbnd9s/Z9+LNrtx1z5/hFMY756VxmofswftK6Vn+1
+P2efjlpu0kN/aHwl8fWeCOoP2jw/Hgjvnp3oA8NorutQ+F3xM0nP9q/Drx3pm0kN/aHhHxBZ7SOoP2nT48Ed89K425s7uyk8q8tbi0lGcx3MEsEgxwfklVG4PB4470AV6KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA0dK1jV9CvI9Q0TVdS0e/i/1V9pV9dafeR8g/u7m0lhmTkA/K45APavpLwd+3F+2r8PPK/wCEA/bA/aj8DeRjyP8AhDv2gPix4Z8nbjb5X9i+LbLy8YGNmMYGOlfLlFAH6neD/wDgt9/wV48DeV/Yv/BRb9rC98nbs/4TD4t+I/iFnb083/hP7nxN5w4+YTeYG/izmvqvwd/wdAf8FwPB3lRp+2lL4msotubLxj8DP2dNf83bgDzdUm+E0WvnIGG26uhbJY5bDD8BqKAP6pPB3/B4h/wV98M+V/bQ/ZY+Inl7d48Y/BTVrHzsYz5v/Cv/AIheBiN3VvJMOCTt2jAH1b4O/wCD239uCx8r/hYH7IP7Knibbjz/APhDtQ+LvgbzOm7yv7a8bfETyc843+ftyM7sc/xXUUAf3++Dv+D5AfuoPiB/wTcI+752p+Dv2ps+gbytD1v4BjpyV3+IeeFOPv19WeDv+D239h2+8r/hYH7IX7VvhkHb5/8Awh198IfHPlk/e8oa144+HfnY/hLmDd3C1/mrUUAf6qvg7/g8P/4JA+JxEdbP7Uvw78zbvHjH4J6XfGDPXzf+Ff8AxA8dBtv8XkGbP8O6vqzwd/wc/f8ABD/xl5UUf7acHhq9k25svGPwO/aK8PeVu6ebqlz8Jn0AYOQ2zV324JOFKsf8f6igD/a28C/8FsP+CSHxFeGLw5/wUU/ZKtpZ9ohi8YfGTwn8OZZGfASNYviHfeF5DM5IVYdvms5CBCxAr7W8A/tLfs5fFbyf+FXfH/4J/En7Rt+z
+/wDCA/FXwJ4x8/f93yf+Ed17UfN3ZG3ZuznjNf4OdFAH+/xRX+Dr4B/aY/aQ+FIgHwu/aB+N3w2FrtNsPAPxW8eeDxblPuGD/hHte07yduBt8vbtxxivtnwD/wAFtv8Agrl8NfJHhr/gop+1jdpBtEMXjb4veJvidboqY2Ri3+JV34tgMSgBVhaMxKgCBAoAoA/2saK/yKPAP/B1J/wW38ECGLUP2p/DnxEs7faI7Px98BfgXdEovVJtU8M/D/wtr1zv/ikudWmn5+WVRjH214B/4PR/+CnXh7yLfxz8Ff2NviJZx7fPuW8B/Ffwnr8+OGxfaL8ZJNDi3DJO3ww2GwQAo2EA/wBP2iv89vwD/wAHxfjS28mH4of8E6/C+t7tqz6h4B/aR1bwv5X96SHR/EPwc8X/AGjPO2F9dtcZyZzjDfdnw0/4PYf2B9cMEPxY/Za/av8Ah5cTbVkn8HR/Cj4maVaucZee51Dx78OdUa3XnL22iXE5422pydoB/ZxRX853w0/4Osf+CKPxB+zxav8AtI+M/hTe3IUR2PxL+BPxgh2SNj91car4H8JeOfD9oVyd011rENqNpxcElQ36EfDT/gsh/wAEp/i6bePwP/wUK/ZJuLu72C10rxJ8bfBHgHXLlnxtit9B8far4Z1qebnmCKwaZedyLg4AP0pori/BfxI+HfxIsP7V+Hfj3wX490varf2l4L8U6H4psNr/AHG+2aHfX1vtf+E+ZhuxNdpQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUV+aH7XP/BY
+r/gmh+w4dT0/9ov9r34T+GvGGlCZLv4ZeFdWn+J3xVhuo8rHZ3vw5+G9r4q8WaJJczAwQXXiHTNH0wSCRri/ghguJYv5ev2tv+D2f4WaH/aegfsQfsj+K/H16nnQWHxI/aO8Q2fgbw7FPFlUvLf4ZeAbvxL4g1/TLl8SQC/+IPgXUlgCm4sYJpGhhAP7tK+Nf2pP+Chv7D37FGnT3/7U/wC1J8GvgxcxWv22Lwx4o8ZadN8QNStfL83ztC+GmitqvxC8RL5ZVsaD4Z1FsPH8v7yPd/lK/tb/APBxj/wV0/bB/tPTPFH7VHiL4N+B9SE0bfDz9mm2/wCFJaFDa3G4XFhL4k8NXL/FDW9OuIiLeew8U/EHXrWW3DRPEVmuBN+JOp6nqWtahe6vrGoX2rarqVzNe6jqep3c9/qF/eXMjS3F3e3t1JLc3VzPKzSTTzyySyyMzu7MSaAP9L39q3/g9E/Ya+Gn9p6L+yf8CvjH+09r9v50Vl4n8VyWXwI+F90xykF5Z3ut2Xiv4lXscZHnzWGpfDTwzJNH5cCX8Eksktr/ADPftW/8HZn/AAVs/aK/tLSPhz45+Hf7Jvg29823XSvgR4KtpPFkunvu8tL74jfEafxv4ntNTTKl9V8FP4Id2RfKtreNpI3/AJlaKAPUfi38cfjR8fvFU/jr46fFz4mfGbxpc+YJ/FnxT8deJ/H/AIjkSR/MeI6z4q1PVdQWEvyIFuFhXACoAoA8uoooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiu88H/Cz4n/EOVYfAHw48eeOJnYokXg/wh4h8TSu4O0osei6deszBvlKgE54xmvrXwV/wS0/4KXfEbyn8E/8ABPz9s/xDazY2alZ/szfGNNG+bG3frdz4Pg0iLdnK+bepkAsMhSQAfB1FftX4M/4N0/8AgtV48ETaH+wF8U7E
+Tbdn/CZ+JvhT8OCN3I81fiH8QfC7Qf7XniPb0bBr6r8H/wDBpZ/wWo8TCI618E/hP8PPMC7x4w/aB+F16YM9RL/wgGt+OASv8XkmYHHyluKAP5qaK/r+8H/8GWf/AAU81nypvFvxw/Yq8F2z7fNgHj/4x+I9Yhzgt/omm/AuHSZNoyPl17lhgfKd9fU/hD/gx7+OV6Y/+E+/4KAfCjw0Dt87/hEPgZ4v8blP73ljWvH/AMPvNx/DuMO7vtoA/haor/RL8If8GPHwYsvJ/wCE+/4KD/E/xLt2+f8A8Ih8A/CngjzP73k/218SviD5Gf4d/wBo2991fUvhD/gyu/4JmaT5cvi/4+ftq+MLlMb4bXxx8F/DGky9N2+1tvgZqWqLkj5fL1xNoJB3HDAA/wAw+iv9Yrwp/wAGjP8AwRk8O+X/AGv8Nfjh472BQ3/CV/HrxjZ+djqZP+EHXwbgt/F5PlAfwha+l/Cn/BtD/wAEQfB/ltp37CnhjUpY9pabxX8Xf2hfGXmuuPnkt/FPxb1ay+YjLRR2scHUCIDigD/Heor/AGtvCn/BE/8A4JHeDfL/ALI/4Jzfsh3nlY2f8JV8E/BnjsnHTzD4403xCZvfzd+e+a+l/Cn7CP7D/gQRDwP+xt+yp4NEIAhHhT9nj4ReHhEFxtEQ0jwhZ+WFwMbMYwMUAf4XdnZXmoXEdnYWlzfXczbYbWzglubiVv7scEKPLI3sqk17F4e/Zr/aM8W7P+EU+APxr8T+bgR/8I98K/HWteYW+6E/s3Qbnfu7bc57V/u3aD4U8L+Fbb7H4X8N6B4btNqr9l0HR9O0e22r91fI062t4tq/wjbgdhW/QB/hzeHv+CZX/BSHxb5Z8L/8E/f22fEKSYKS6L+yt8c9Sg2k43tcWngSWFIxn5pHkWNRyzAc17v4c/4Ibf8ABX3xUUGmf8E6/wBqi18zG3/hI/hhrHg4DPTefFy6GI/fzCu3+LFf7UVFAH+O54b/AODa
+P/gt/wCKvLOnfsIeKbJJMHf4k+Lv7O/hHy1PVpI/FHxe0iddo5KCIycYVGbCn6A8N/8ABpb/AMFqNd8v+1Pgl8KPBu/G7/hJP2gfhbdeVnr5n/CIa54rzjv5Xme2a/1o6KAP8tTQf+DM/wD4Kz6wEOoeOf2MPCu8AsNe+MHxLuDET1D/APCL/A7xICV7+WZB/dLV7RoX/Bk1/wAFBLgp/wAJN+1R+xxpAIHmf2FqPxs8RFD32DUPhH4W8wDsWMWe4Ff6YdFAH+dHoP8AwY+/H642f8JP+3z8H9IyB5n9g/Bfxp4j2Hvs/tDxl4W8wDsW8rPoK9l0L/gxqhG2TxN/wUwlkHG+00L9kRIseu3UNQ/aUm3Z6DOmLjGTnO0f370UAfw26F/wZAfs624T/hJf28vjVqxGPMOhfCLwN4dDeuwX/ibxQUz23GTHvXsWif8ABk3/AME9IFT/AISP9qT9szVWGPMOiav8EfD6v/e2Lf8Awc8SmPPbc0uO+6v7MKKAP5J9G/4Mxv8Agk9pez7d8Sf22vEe37w1j4u/CWASf73/AAj/AMAdCIz/ALBSvVtH/wCDQn/gjfpmz7b4R/aF8Q7cbv7Y+OurQeZjrv8A7A0XQ8bu/l7P9nFf1BUUAfzpaN/wam/8EQdL2fbv2WvF/iPb97+2f2jP2hoPM/3/APhHviXoWM/9M9ntXq2jf8Gz/wDwQ90LZ9i/YP8ADE+zGP7Z+Mf7SHiLO3pv/t/4x6mHz33hg3fNfuvRQB+P2j/8EBf+CNmh7PsX/BPf4BT7On9saX4g8Q5x/f8A7f8AEGp+Z/203Z716Zpf/BF7/gkro4UWn/BOL9jabYQR/anwB+HmuE4/vHWtD1AuPUPuB71+mtFAHwjpf/BLb/gmVom3+x/+Cdf7C2mMuCHsf2SfgFbSkjozSxeAFkdv9p3ZvevRtM/YW/Yk0UKNG/Y6/ZX0kJjaNM/Z7+ElgF29NotfCMW3HbGMdq+qKKAPEtP/
+AGZ/2cNJx/Zf7P3wS03aQV/s/wCFPgSzwR0I+zaDHgjsR0ruNP8Ahr8OdJx/ZXgDwTpm0gr/AGf4V0Kz2kdCPs1hHgjtjpXa0UAQwW9vaxiK2ght4h0jgiSKMfRI1VR+AqaiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAqGe3t7qMxXMENxEesc8SSxn6pIrKfxFTUUAcVqHw1+HOrZ/tXwB4J1PcSW/tDwroV5uJ6k/abCTJPfPWuH1D9mf8AZw1bP9qfs/fBLUtxJb+0PhT4EvMk9SftOgyZJ7k9a9tooA+V9T/YW/Yk1oMNZ/Y6/ZX1YPncNT/Z7+El+G3ddwuvCMu7PfOc96831X/gln/wTI1zcdY/4J1fsK6m75zLe/sk/AO4nBPdZ5PADTI3XDJIrDJwa+8KKAPzH1X/AIItf8Ek9Z3fbP8AgnH+xzDv6/2V8Bvh/oWP93+w9F07Z/wDbXmWr/8ABv8A/wDBGnXN/wBt/wCCfHwGg35z/ZFj4m8P4z/c/sDxHpuz22bcdsV+wtFAH4Tax/wbOf8ABDzXN/239hDw1BvBB/sf4zftJ+HsZ/uDQfjLpoQ88bAMduleVax/wamf8EQtT3/Yv2W/GHh7dnH9j/tGftCz+Xnun/CQfErXM47b949Qa/ouooA/l91j/g0J/wCCN+p7/sXhH9oXw9uzt/sf466tP5eemz+39F1zO3t5m/8A2s15TrP/AAZjf8EntU3/AGH4k/tteHN33Ro/xd+Es4j/AN3/AISD4A66Tj/bL1/WxRQB/Gfrf/Bk3/wT0nV/+Ec/ak/bM0pjnyzrer/BHxAqf3d62Hwc8NGTHfa0We22vHdd/wCDID9nW4D/APCNft5fGrSSc+Wdd+EXgbxEF9N4sPE3hcvjvtMefav7kqKAP4CNd/4MaoTuk8M/8FMJYxzstNd/ZESXPpu1DT/2
+lIduOhxpjZzkYxtPjWvf8GPvx+t9/wDwjH7fPwf1fAPl/wBvfBfxp4c3ntv/ALP8ZeKfLB7lfNx6Gv8ARcooA/zPNd/4Mmv+CgluX/4Rn9qj9jjVwAfL/t3UfjZ4dLntvGn/AAj8U+WD3KmXHYGvF9e/4Mz/APgrPo4c6f45/Yw8VbASo0H4wfEu3MpHQJ/wlHwO8NgFu3mGMf3itf6ldFAH+S54k/4NLf8AgtRoXmf2X8EvhR4y2Z2/8I3+0D8LbXzcdPL/AOEv1zwpjPbzfL98V8/+JP8Ag2j/AOC3/hXzDqP7CHim9SPJ3+G/i7+zv4u8xR0aOPwv8XtXnbcOQhiEnOGRWyo/2I6KAP8AFd8Sf8EN/wDgr54V3/2p/wAE6/2qLry87v8AhG/hfrHjLOOuz/hEF1zzfby9+e2a8G8R/wDBM7/go94Q8w+Kv2AP21/DiRZ3y63+yx8ctMgAH8QnvPAsULoRysiSMjD5lYg5r/cbooA/wbfEX7OP7Q3hDf8A8JZ8B/jN4X8skSf8JF8L/G+ieWV+8H/tLQ7baVwc7sYxzXkFzbXNnPJa3dvPa3MLFJre5ikgnicdUkilVZI2HdWUH2r/AH8a5vxD4N8IeLoPs3ivwr4b8T220p9n8Q6HpmtQbD1XytStbmPae67cHuKAP8Cuiv8AdJ8VfsGfsNeOvN/4Tf8AYx/ZQ8Y+fnzv+Eq/Z1+EHiHzt33vN/tfwfeeZnvvznvXzX4q/wCCJ3/BI3xl5n9r/wDBOb9kS083O7/hFfgr4O8CkZOT5Z8Ead4eMJ9DFsI6DAoA/wAUqiv9iHxX/wAG0P8AwRB8YeY2o/sKeGNNlk3FZvCnxd/aF8G+U7Z+eO38LfFvSbL5ScrFJayQdAYiOK+aPFf/AAaM/wDBGTxF5n9kfDX44eBN4YL/AMIp8evGN55Oehj/AOE4Xxlkr/D53mg/xBqAP8nWiv8ATw8X/wDBld/wTM1bzJfCHx8/bV8H3L52
+Q3Xjj4L+J9Ji67dlrc/AzTdUbBPzeZrj7gABtOWPy14v/wCDHj4MXvnf8ID/AMFB/if4a3bvI/4S/wCAfhTxv5f93zv7F+JXw+8/H8Wz7Pu7baAP87Siv7pfF/8AwY9/HKyMn/CA/wDBQD4UeJQN3k/8Jf8AAzxf4IL/AN3zBovj/wCIPlZ/i2mbb23V8seMP+DLP/gp5o3mzeEvjh+xV40tk3eVAfH/AMY/DmsTYyV/0TUvgXNpMe4YHza9wxwflG+gD+QGiv6VvGH/AAaWf8FqPDIlOi/BP4T/ABD8sNsHg/8AaB+F1kZ8dBF/wn+t+BwC38PnGEDPzFea+VPGf/Bun/wWq8BiVtc/YC+Kd8Id2/8A4QzxN8KfiOTt5PlL8PPiD4oaf/Z8gSbui5NAH4qUV94+Nf8Aglp/wUu+HPmv42/4J+ftn+HrWHO/Urz9mb4xvo3y53bNbtvB8+kS7cZbyr18AhjgMCfkrxh8LPif8PJXh8f/AA48eeB5kYI8XjDwh4h8Myo5O0I8etadZMrFvlCkA54xmgDg6KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDS0jWdY8P6hb6toOralomqWjb7XUtIvrrTdQtn4+e3vLOWG4hbgfNHIp4HNfavw0/4Kd/8FHfg59nT4Y/t4ftd+DrK1KmLRtK/aG+Kg8OnZjYJvDVz4ouPD9yq4wqXOmzKoJAABIPwxRQB+93wz/4Ocf8Agtn8Mvs8Fv8Atm6h430yDbu0v4mfCb4KeNvtO3GPtGval8PB4vPGQ3k+I4S+Sz7mCsv6EfDP/g9B/wCCnXhU21t8RPg9+yH8VLCPZ9pu5vAvxK8FeJrnbgNs1Hw58Vf+Ecty4yTjwfIA+CoCgo38hNFAH+g78Jv+D4bwpcfZrT46f8E+vEOkbQgvNf8AhN8edN8RecTjzHtvCPjD4ceF/swXkpHL42u9+QrSx43N+nHwm/4PDP8AgkP8QRax+OJf
+2l/gTPLsS7l+Ivwag8Q6daucCR0uPg74u+KF/c2qnJSQaVFcugDNZRufLH+VVRQB/tG/Cb/gvB/wR6+NP2YeC/8AgoT+znp0l5sFvB8T/Fd18D7l3kx5cRtfjVpvw/uI53JCLBJEkzSERhC5Cn9Jvh78X/hL8XNP/tb4U/FH4dfE7SvLSb+0/h7428NeNNP8qTGyX7b4b1PUrby3yNj+ZtbIwTkV/gmVpaRrOseH9RttX0HVdS0TVrKQS2eqaRfXWm6jaSjgSW17Zyw3MEgHAeKVG96AP9+aiv8AEM+E3/BWL/gpr8DfssXwv/b2/ax8N6dZbPsvh+b45eP/ABD4Th2YC7fCHifW9a8LngBTu0htyAI2UAFfpz8Jv+Drr/gtN8Mvs8Ou/H74f/GewtdixWHxZ+B3wzl3RJj91cav8OdD+HPiS934O+e81u4uzuP+kjC7QD/W6or/ADgvg/8A8Hu37U+iyWi/Hv8AYm+AXxGgXYl5L8JfHnxC+DdzIOA80K+L1+OUCyYy/klRG7fIJIVIZP1l+DH/AAem/wDBO7xj9ls/jT8Af2ovgtqU+wT32j6T4A+K3g+yJwJDPquneMPCviyRUJyhtfAVw0iKxZYn2o4B/YxRX4p/Bf8A4OKP+CMfxz+yQ+Gv27fhb4O1C5MaS6d8Z9O8afA42M74/c3esfFfwx4S8MtsyN91Z67d2AOcXbbWx+rPww+OfwT+Num/218GPjF8LPi7o5iWcat8MPiD4S8fab5LkBJvt3hTV9WtfKYsoWTzdjFhgnIoA9TooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAor8wf2xf+CzP/AATP
+/YRGq6f+0P8AtZ/DPSfG+kiZLj4UeB9Qm+KPxZW9jysVhffD/wCHsHiLXvDkt1KphgvPF1v4e0gOsjXGpQRQzSx/yj/tjf8AB7NAn9q+HP2Cf2S3mb99Dp3xW/aj1jyowRmIXFv8G/hprLSSIxzc2V3qHxdgcKIlvtABaa3QA/v26da/J79r3/guH/wS1/YhOqaZ8bv2u/hrdeONL86Kb4W/Cu8n+MXxJTUId2NJ1Twz8OIfELeEr6UqfLbxzd+FrEDa0t7Ejozf5WP7Y3/Bab/gpv8At2f2rpv7QP7WfxJvPAuredFcfCf4fX0Pwp+FD2EuVTTdR8D/AA9h8P6V4ot7eNjHDc+NB4l1UqztPqM0kkkjfltQB/f9+17/AMHtSj+1PD/7CX7IRY/votN+KH7UmvbV/ijSYfB34YauSQf+Pi3uLn4xIceXHdaRkyIP5Z/2vv8AguT/AMFTP23RqmmfGv8Aa7+JNj4G1TzoZvhb8J7yH4OfDeTTpd3/ABKdU8OfDmLw+3i6wj3Exnx3e+Kb0na0l5I0cZT8maKAAkkkkkknJJ5JJ6knuTRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFWbOyvNRurex0+0ub69upUgtbOzglurq5mc4SG3t4EeaaVzwkcaM7HgAmvtL4W/8E1P+Ch/xsFvL8J/2Gv2s/Hljc7PL1rw/wDs/fFK78OqJMbGuPEreGI9AtEfOUkutShRhkhiAcAHxJRX73/DH/g2N/4LZfE/7PPB+xpf+BdLn27tV+J3xY+C3gn7NvwR9o0DUfiC3jEYBJbyfDU2zaVfa5VW/RH4Y/8ABlz/AMFMfFP2e6+JPxq/ZF+FdjJs8+zXxl8TPHXia2zgvnTtD+Ftp4cl2DgeX4wO5wRwmJCAfx/0V/oD/Db/AIMdLFPIuvi//wAFEru4B2fatD+G37OUNnsxy/keKfFHxevvMz91DJ4Oj243
+kNu2L9//AA2/4Mv/APgmB4W+z3PxA+Lv7X/xSvU2/aLS68ffDXwd4cn28ts0/wANfCaLxDBvOQ3/ABVsuF2hCrAuwB/l80V/sCfDj/g2H/4IlfDfyJov2NLXxvqcGzdqfxH+MHxx8Xm42cjz9Du/iND4SOTkuI/DsQfO1wyBVX74+HH/AASo/wCCZnwk8iT4efsBfsfeHb232+TrKfs9fC7UvES7Mbc+JdZ8M6j4gcKRuAfUmG/L/eJJAP8AEc0Hw54h8U6hHpPhjQda8R6pNjytN0HS77V9QlyQo8uz0+C4uXySANsZ5IHU19ifD7/gmf8A8FF/isIJPhx+wf8AtheMrW42mPU9C/Zv+L17oqq/3ZJtcTwiNItomyMS3N9FESQA/Nf7fXhrwl4U8GabHo/g/wAMeHvCekRbfK0rw1oum6Fpse0bV8ux0u2tbVNq8LtiGBwOK6GgD/HG+H3/AAbff8Fr/iUYW0T9g7x/okEu1muPiD44+DvwxEEbYzJNa/EH4i+G9R+QHLQxWUt1wVSBn+WvuH4f/wDBnl/wV/8AGPkf8JHF+y98KBLtMv8Awnvxsv8AU2tgcbhKPhd4E+I6uyDORA8qkjAcjmv9ViigD/OK8Af8GQn7TupeR/wtP9ub4DeDd237T/wgHw0+IPxL8rON/kf8JFqPwn+0bedvmfZd2BnZnj7c8Cf8GP37P2niD/hZv7e/xj8XMu37SfAnwa8FfDoS4xv8geIPF/xRMG7nb5huNvGd+Of7maKAP5M/Av8AwZp/8EnfC3kyeJ/Gn7YHxLmXa1xH4o+LXgLRrCVh95YoPAnwh8JX0EDdkbU55lyf9JbjH2Z4G/4Nef8AgiH4IEMh/Y3bxjfw7f8AiY+Ofjj+0Frpl24P77SI/ijY+G33EZb/AIkYzyvCHbX9AFFAH5f+Cf8Agij/AMEkPh/5J8P/APBOj9ka6aDaYpfGHwW8HfESZGTBR/P+IOneJ5mkUgMsrO0gYBgw
+YZr688Ffskfsp/DUxH4c/syfs9+ADBt8g+Cvgv8ADjwqYduNvlHQvDdh5e3A27NuMDHSvoSigCOKKKCOOGCOOGGJFjiiiRY440UAKkaIAqIoACqoAAAAAFSUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABUcsUU8ckM8cc0MqNHLFKiyRyIwIZJEcFXRgSGVgQQSCCKkooA+e/Gv7JH7KfxKMp+I37Mn7Pfj8z7vPPjX4L/DjxUZt2d3mnXfDd/5m7J3b92cnPWvkPxt/wRR/4JIfEDzj4g/4J0fsjWrT7jLL4P8Agt4O+Hczs+S7+f8AD7TvDEyyMSWaVXWQsSxYsc1+oFFAH8//AI5/4Nef+CIfjcTSD9jdvB1/Nu/4mPgb44/tBaEYt2T+50iT4o33htNpOV/4kZxwvKDbXxn46/4M0/8Agk74p86Twx40/bA+Gkzbmt4/C/xa8BazYRMfurLB47+EPi2+ngXui6nBM2B/pK85/rMooA/hm8d/8GP37P2oCf8A4Vl+3v8AGPwizbvsx8d/BrwV8RRFnOzzx4f8X/C4z7eN3lm33c42Z4+I/H//AAZCftO6b5//AAqz9ub4DeMtu77N/wAJ/wDDT4g/DTzcZ2ef/wAI7qPxY+z7uN3l/atuTjfjn/R1ooA/yp/iB/wZ5f8ABX/wd5//AAjkX7L3xXEW4xf8IF8bL/TGuQM7REPij4E+HCozjGBO8SgnBcDmvh74g/8ABt9/wWv+GpmbW/2DvH+twRbmW4+H
+3jj4O/E4TxrnEkNr8PviL4k1H5wMrDLZRXXIV4Ff5a/2OaKAP8OT4g/8Ez/+Ci/wpE8nxH/YP/bC8G2tvuMmp67+zf8AF6y0VlT70kOuP4ROkXMS4OZba+liBBBfivjvXvDniHwtqEmk+J9B1rw5qkOfN03XtLvtI1CLBKnzLPUILe5TBBB3RjkEdRX++/XPeJfCXhTxnpsmj+MPDHh7xZpEu7zdK8S6Lpuu6bJuG1vMsdUtrq1fcvDbojkcHigD/Aoor/b8+I//AASo/wCCZnxb8+T4h/sBfsfeIr243edrL/s9fC7TfETb87seJdG8M6d4gQMTuITUlG/D/eAI+B/iP/wbD/8ABEr4kefNL+xpa+CNTn37dT+HHxg+OPhA2+/k+Rodp8RpvCQwcFBJ4dlCY2oFQsrAH+P3RX+oN8Sf+DL/AP4JgeKftFz8P/i7+1/8Lb1932e0tfH3w18Y+HIN3K79P8S/CaXxDPsOAv8AxVsWV3ByzEOvwB8Sf+DHSxf7RdfCD/gold24G/7LofxJ/ZyhvN+eU+0eKfC/xesfLx91zH4Ok3Z3gLt2MAf5/FFf2AfE7/gy5/4KY+FvtF18NvjV+yL8VLGPf5Fm3jL4meBfE1zjJTGna58Lbvw5FvHB8zxgNrkDlMyD87vid/wbG/8ABbL4YfaJ5/2NL/x1pcG7bqvwx+LHwW8bfadmSfs+gad8QV8YnIAK+d4ah37gqbnDKoB+CFFfbfxS/wCCan/BQ/4Ji4l+LH7DX7WfgOxtt/ma14g/Z++KVp4dYR53tb+JV8MSaBdomMvJa6lMijBLAEZ+LbyyvNOurix1C0ubG9tZXgurO8gltbq2mQ4eG4t50SaGVDw8ciK6nggGgCtRRRQAUUUUAFFFFABRRRQAUUUUAFaeja3rPh3U7TWvD+r6noWsWEonsdW0a/utL1OymGQJrS/spYLq2lAJAkhlRxk4NZlFAH6WfBf/AILI/wDBVL9n77JF8Lv2
++v2ntN06w2fYfD/if4pa/wDErwnZrHjbHa+EPiZP4v8AC9vEcDfDFpCRSgYkRxX62fBf/g8C/wCCvnwz+yQ/EDVP2d/2h7aLZHdy/FD4NW/hrVbmIYDtFefBLXvhPp9vdsudk8mj3dur4eSzmGUP8s9FAH+gL8F/+D4O0b7LY/tEfsBXMJGz7d4n+C/xtiud2cCT7L4E8ceBrXZjl0874jSbsiNtmDK369fAv/g7o/4I7/Fs2lv458bfG/8AZvv7kpE0Xxk+DWsarYJdNhdg1b4J3/xetIrVpDiO+1H+zYUixNeiyUOI/wDKAooA/wBxn4E/8FLv+CfH7TX2OL4Efto/s1fEnVL7y/s/hjQ/i/4Li8bAy48pbnwJqerWHjKyaQnbGt5oVuzuGRQXRwv2+CCAQQQRkEcgg9CD3Br/AAB6+vPgV/wUA/bj/ZjNmn7Pv7Xf7Rvwh0+xKeToHgb4w+OtE8KSJHjy4L3whb63/wAIvqVqhAK2mo6RdWwIB8rIBAB/ueUV/ku/Ar/g7L/4LKfBv7Hb+Kfi18K/2idKstiR6b8cPg54YaV7dMZhuPEHwlb4T+Kr6RhuJvNT1y+vCx+ed0VUH7NfAn/g+Av0+x6f+01+wZZ3APl/b/FvwJ+L81nsxgS/Y/h58QPC995u7JePzvifFswIm37jKgB/oEUV/Ml8Cv8Ag7e/4I5/F82dv40+IXxm/Zx1K7McX2X40/BrXr2zS6fC+W2tfBi7+Luk29sXJ2X2p3Wm2yxYlu2tPmVP2b+BX/BR39gX9ps2cHwD/bJ/Zs+KWq3xjEHhnwv8YfA9x4zVpcCKO58EXGs23i+xllJAjivdEt5HbKqpZWAAPtKiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKK
+KACiiigAoryL41/tAfAz9m7wVefEf9oH4wfDX4K+A7Hes/iz4oeNPD3gjQ2nSMyCytb/AMQ6hYQ32pTABbXTLFrjULyVkgtLaaaSONv5a/21/wDg8W/4J+fAr+1/DP7J3gj4hftk+ObTz7a21+0huvg98ForuPdCzSeL/GOjXXjrWRbXH7xV0P4ZzaNq1vExsfFEUU8F2QD+vGviv9rX/goz+w3+wro8mrftX/tO/Cj4OXAszf2nhTXPEKap8R9ZtNhcXHh34XeGotb+I3iOEgKDNofhe/iRpIhI6GWPd/l8ftof8HQH/BWb9r46voWjfGiz/ZX+G+pGeFfBH7MNhd+AdWNk+6OFdQ+K15qGs/FqW8NszR350Txl4d0a+kklk/sG2j8iC3/n31zXdb8T6xqXiHxLrOq+Idf1m7m1DV9c1zULvVtY1W/uXMlxe6lqd/NcXt9dzuS81zdTyzSuSzuxOaAP9Ef9tH/g9X+DHhT+1vDH7Bn7M3ib4s6vF51tZ/Fb9oO+b4f+Ao7hN3lahpfw28LXmpeOfFekz5TEet+KPhdqiYkElmuELfyS/tmf8F5f+Cp/7cz6rpnxc/ap8a+Evh9qvnQyfCP4HTP8G/hv/Z0+4vo+qaf4Mmsdf8aaaCxZYviJ4j8YzghM3JEUIj/H2igBSSSSSSSSSSckk8kknkknkk9aSiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK9M+GPwW+Mfxs1keHPg18JviZ8W/EJeOMaF8MfAfinx7rJklOIkGl+FdK1W+LyHiNRBuc/dBr9YPgx/wbr/8ABZz45fZJvDX7CXxS8H6fc+W0uo/GbUvBXwPFjDJg+fd6P8V/E/hHxMwTI321lod5fjnFoxVsAH4p0V/Yv8GP+DLP/gol4x+yXnxo+Pn7LnwW0yfy/tFjpGr+P/ir4wsQcGXztJ03wd4X8JysgOIxa+PZ1kcMGeJAsj/rD8Hf+DIj9l/Rfskn
+x9/bc+O/xIZNj3lt8JPh94B+DUEjcM0EVx4uufjlMIQcxmXy45ZUy6rbOwVAD/OHor/XR+Dv/Bq3/wAEWfhN9muNT/Zu8U/GXVrTYYtX+MXxk+Jms72XG5rnw74R8Q+CfBN75hGXjvPC88I5EccYJB/VP4Qf8E3v+CfnwCFq/wAGf2J/2WfhzfWmwxa54a+BXw3s/E7tFjy5LrxU3h2TxJezR4BSa91W4lUjIcGgD/FX+Ev7Kf7UPx9khi+Bf7N/x5+M73D7IF+FPwg+IPxC81s7SEPhLw9q6nB+8c4XBLEAEj9P/hR/wbi/8FpvjD9ml0H9hT4h+FbG42NJffFfxR8M/hB9jifH7250r4keNfDXiFtmRvt7TRrq9HP+jHa2P9jqOOOGOOGGNIookSOKKNFSOONFCpHGigKiIoCoigKqgAAAAU+gD/L1+FH/AAZi/wDBT7xkba6+JnxU/ZN+DmnSbftVne+O/HvjnxTb7sE+XpnhH4b3Hhm5KDcGz41gBcKELqxdP0y+FH/Bjz4Ptvs118cv+CgviTWd2w3ehfCj4C6X4Z8gjHmJbeLPF/xI8Wfat3ISWXwZZ7OC0UmcD+9iigD+Vr4T/wDBnl/wSI+H/wBmk8br+0z8dJ49jXUXxE+Mtr4e0+5kGDIkdv8AB7wf8Mb+2tmOQkf9qzXCIQGvJHHmH9MfhT/wQU/4I6fBoW3/AAh//BPb9nnVWtNvkyfFHw5qXxxl3Jja80vxr1f4gSXEgIDb7hpW3fNnPNfrpRQB5X8NvgV8Efg1arY/CD4OfCv4VWSxCBbP4bfD3wj4GtVgAwIVt/DGkaXCIgAAIwmzHGK9UoooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA
+ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvK/iT8Cvgj8ZbVrH4v/Bz4V/FWyaIwNZ/En4e+EfHNq0BGDC1v4n0jVITEQSDGU2Y4xXqlFAH5F/Fb/ggp/wR0+Mouv8AhMP+Ce37POlNd7vOk+F3hzUvgdLufO54Zfgpq/w/kt5CSW327RNu+bOea/M74sf8GeX/AASI+IH2mTwQv7TPwLnk3taxfDv4y2viHT7aQ5MaSW/xh8H/ABOv7m2U4Dx/2rDcOgIW8jc+YP6paKAP4J/iv/wY8+D7n7TdfA3/AIKC+JNG27zaaF8V/gLpfibzyc+Wlz4s8IfEjwn9l28B5YvBl5v5KxR4wfzN+K//AAZi/wDBT7wabm6+GfxU/ZN+MenR7vstnZeO/HvgbxTcbckebpni74b2/hm2LjaFx41nAcsHKKod/wDUKooA/wAcL4r/APBuL/wWm+D32mXXv2FPiH4qsbfe0d98KPFHwz+L/wBsiTP7220r4b+NfEviFd+Dst7vRrW9PH+jDcufzA+LX7Kf7UPwCkmi+On7N/x5+DD277J1+K3wg+IPw98ps7QHPi3w9pCjJ+6c4bIKkggn/d8pkkcc0ckM0aSxSo8csUiK8ckbqVeORGBV0dSVdGBVlJBBBIoA/wAAqiv9yT4v/wDBN7/gn58fRdP8Zv2J/wBln4jX13vMuueJfgV8N7zxOjS58yS18VL4dj8SWU0mSXmstVt5WJyXJr8rPjF/wat/8EWfiz9puNM/Zu8U/BrVrveZdX+Dvxk+JmjbGbO1rbw74u8Q+NvBNl5ZOUjs/C8EJ4EkcgAAAP8AIuor
+/R4+MX/BkR+y/rX2uT4BftufHf4bs+97O2+Lfw+8A/GWCNuWWCW48I3PwNmMJOIxL5cksSYdluXUq/5PfGf/AIMs/wDgol4O+13nwX+Pn7Lnxp0yDzPs9jq+r+P/AIVeML4DJi8nSdS8HeKPCcTOBiQXXj2BY3KhXlQtIgB/HRRX7WfGf/g3X/4LOfA37XN4l/YS+KXjDT7bzGi1H4M6l4K+OAvoY8nz7TR/hR4n8XeJlD4Oy2vdDs788ZtFLLn8n/id8FvjH8E9ZPhz4y/Cb4mfCTxCHkjOhfE7wH4p8BayJIjiVDpfirStKvg8Z4kUwbkP3gKAPM6KKKACiiigAooooAKKKKACiiigD7k/Z9/4KZ/8FCP2VvsMP7P37Zn7Rnwz0jThGLXwlo/xT8VXvgICLAiWf4ea3qGqeBrxYlGyNbzw9OI0Z40AR3Vv3H/Z9/4PCP8AgrJ8J/sNl8WP+FA/tO6TEIor64+I3wwj8EeLZrePGTY658GdU+Hug2t66qFa71LwdraMCzyWskzeaP5VKKAP9HP9n3/g9w/Zr8Qmxsf2oP2MvjJ8LbhjHBd698F/HHhD4yaSZDhWv5dG8XwfBzVNNstxMktpbXviO8t4gRC+oShUf9x/2fv+Djb/AII1/tFfYbTw/wDtq+Avhrr135azeH/j7pnib4GyafNLjbBdeJ/iLo+ifD+d+QDJpfjHUrZW+Vpw3Ff44tFAH++J4D+JHw7+KmgW/iv4YePfBfxH8LXePsniXwH4p0PxfoF1uUOv2fWfD19qOnTbkZXHl3LZVgw4INdpX+CL8Ovit8Ufg/4gi8WfCX4k+Pvhd4pg2eR4l+HXjHxF4J8QQ+W/mR+VrPhrUdM1GPy3+dNlyu1/mXB5r9k/2ff+Dkv/AILL/s8GytNJ/bJ8WfFbw/aeWJvD37QOgeFvjQNRSLARL3xf4z0i9+JaAjIkfT/HFjLNuLTSSOEZQD/Ynor/ADpv2df+D3P466NJYaf+
+1d+xZ8LviBaHy4L7xP8AAXxz4o+Fup20a4D36+EvHkfxV0/WLt1BMlnH4q8M2rzO0kU9rEq29fv1+zZ/wdl/8Ef/AI8iwsPG/wASfid+y/4kvfLhGlfHj4Z6sNIN62BIkfjT4WXHxL8KWdgG3PDqXiXU/DcTwqrXEVpO4tgAf0v0V4N8Dv2pf2aP2mtG/wCEg/Z1/aB+DHxz0dYEuJ734T/Evwd4+SyjcqNupReGNY1KfS543YRT2uoxWtzbz5guIY5lZB7zQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRXxT+17/wUa/Ye/YM0Ftd/az/aW+GHwelks2v9O8J6xrR1j4ka/aKH/f8Ahn4X+GINb+IfiSDenlPc6L4ZvbWGR41uJ4d6kgH2tVW+vrLTLK71LUry10/TrC2nvb6/vriK0srKztommubu7urh44La2t4UeWeeaRIookaSR1VSR/Bv+3D/AMHq/hTS/wC2PCP/AAT1/ZovPFN4vn2tn8aP2l55dF8PpKm6L7bonwd8E6u2u6xZzbvtOnX3iP4h+E7uLy411Lwm/myW8X8eP7an/BWj/goZ/wAFBLy9X9qP9p74h+NPCN1c/aYPhTol9D4E+D2n+XKJLNYfhh4Lh0PwjfXOnqqRWus67pmr+ImRd93rF1cSTTSgH+mx+3B/wc0f8Epf2K21fw7B8aJf2nvilpnn25+HX7MMOm/EWC21CPdEINc+Jsmp6V8KNJW3uwbfVrS28Zav4l0vyrjd4auJ4ltpf5Av21v+Dxj/AIKBfHT+1vDP7Jvgf4efsb+B7vz7e28QW0Nr8Y/jTLayboXZ/F3jLRrXwJo32m3+dV0X4ZR6zpM8jGx8USywQXY/kMooA9f+Nn7QXx0/aT8a3fxG/aD+MPxL+Nfju93rN4r+KHjXxD43
+1tIHkMgsrS+8Q6hfy2GmwsQtrpdgbbTrOJY4LS1hhjjjXyCiigAooooAKKKKACiiigAooooAKKKKACiivvD9nL/gl7/wUQ/a2+wz/s7/ALGn7QfxJ0XUvL+x+MrL4c67ofw7fztpi834leKrfQvAFt5isJF+1eJIcxBpR+6RnAB8H0V/W5+zz/wZtf8ABT74oRWep/G/xp+zx+zJpcwjN7pHiDxpqHxS8fWnmYLCLRfhhpes+BbowruEm74nW2ZAixeYjNLH+3H7P3/Bkz+yN4Tmsb/9pb9rr46fGm4t/LnuNE+F3hTwd8DvDt1MMM9neya1L8YvENzYDLRtJpusaBfTYWaOezy0IAP82uvRfhr8H/i18ZtcTwx8H/hd8Rfiv4lkMap4e+GvgnxL461x2mYrEqaT4X0zVL9jKwKxgW5LsCFyRX+xP8AP+Df7/gj1+zfFYv4I/YU+DXivVrERyf8ACQfG2w1X4+arPeR4Yajs+MWp+NNK0+88xRNH/Yul6XbWsoD2VtbbVA/Wbwj4K8G/D/Q7Twx4C8JeGfBHhqwG2x8PeEdB0rw3odmuAu200nRrSysLcbVVcQ26DCgdAKAP8fD4D/8ABuD/AMFmv2gPsd1of7FHjr4caLdeW02t/HfW/B/wT/s6OXG2W88L/ELX9F8fSAZ/eQ6d4Qv7qLnzIFxX7S/Af/gyU/a48TfYrv8AaP8A2wvgJ8IbSby5rnTfhT4T8c/G7XbeI4ZrO4PiJfgtosF6RuieWz1TWLOByJIpL5F2P/pIUUAfyD/BD/gzF/4Jp+A/sl98Zfiz+078etVh8v7Xp8vivwl8MPBN5twX26P4Q8JTeMrbzWyDs+Ir7YyFTEgMrfsd8C/+CEf/AASF/Z2+xS/Dr9gX4BX9/YbGtdY+Kvh69+O2tQ3KYIvYNU+Nup/EC7tL0OPMjuLKS2a3c4tfIQKi/rVRQBgeGPCnhbwVo1n4c8G+GtA8JeHtPTy7DQfDGj6doOjW
+KYA2Wel6VbWljbJgAbYYEGABjgVv0UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFeT/ABh+O/wZ/Z+8LyeM/jZ8T/BPwv8ADSCUQ6n4y8Qafow1CaFVd7LRrS5mW/1zUirKY9M0e1vtQmLKsNs7MoP4K/8ABSb/AIL1eDfgRqXiL4J/shQ6D8T/AIr6a1zpPiT4rXzJqnwz8A6mhkt7mx8PW1vII/H/AIo01w3nTC4i8H6RfLDFcy+J5otU0W0/j/8AjJ8cvi/+0L42v/iN8bPiJ4p+JXjPUSyy634o1OW+e1tjI8qadpFkPL07QtHt3kc2ei6LZ6fpNkrFLSyhQ7a/BuO/HfIuGq1fLMgow4gzajKVKtVjVdPKcHVi7ShUxEFKeMqwek6WF5aSd4SxcKsJU1/rL9FL9lF4qeNmXZZxx4tZlifCDw+zGlRxuWYGtgFivEDiTA1oxqUsThMnxUqWG4by/FUpc+GzDPfa46pH2eIocP4rA4ijjJf2L/Hr/g5E/ZR8BT3el/Av4bfEb496jbvIkWtXzQ/CjwNdqCVSWz1LXtP1vxnICQXMd54A08GMptm3Mwj/ACv+KP8Awcj/ALZfip5rf4ZfDr4KfCjTnZmhuZNI8QePfE0Iz8qNqet63Y+HZVC8MT4OR2b5gyL8lfzxUV/Oub+NPiJm8p/8LjyyjO9sPlGHo4KNO/SGI5amP9OfGTa6O92f7MeHX7Mj6Gvh5Qw1/CyHHOZ0FFVM58RM5zPiWvi3FK0sRk3t8Fwkm3eUvq/DmHUuZqScVGMf111v/gur/wAFPdY3rB+0Np+gxPkNDonwg+DEeAeyXGo+ANSvY8dmjulb1Y81x3/D6P8A4Kcf9HV+Iv8AwgvhF/8AO+r8u6K+Unx1xtUlzT4w4ok/+x/mqS9EsUkl5JJH7/hfoqfRgwVJUcN9HPwLpQW//GpuA5yk1pedSpkMqlSVtOacpStpc/UT/h9H/wAFOP8Ao6vxF/4QXwi/
++d9Xofhv/gvJ/wAFNdB2Lf8Axv8ADvi2OPAEXiT4RfCtcqvRZJ/DnhLw9dyZHBd7hpW6mQnmvx4op0uO+N6MlOnxfxOpLvnuZzi/WM8VKMl5NNEY76KH0XsxovD4v6OfgbUpu+sPCrgahVi3o3Tr4fI6Vek2t3TqRb7n9BHhn/g5G/bs0cxR694F/Zw8XQAr58l94J8c6TqEigjd5VxofxLsbCF2GRufSp0BOfL4xX3D8Lf+DnTwzP8AZrX41/sra7pYXYLvXfhb8QdP1/zs/wCsa28KeLNF8N/Z9vJSOXxldb84aSPG5v5FqK+hwHjD4j5fNSp8TYrExVlKnj6GDx0JJdHLE4epVjtrKnUhN/zau/49xb+zg+hdxhQnSxfgfkOS1pczpYzhLNOI+Fa+HnJW54UsjzjB4CrZfDSxeDxNBPX2N0mv9Ar4Vf8ABeL/AIJwfE17S11L4p+KPhNqd60aQ6d8VfAHiDTEjkfGUu9f8KReMfCNgqZ+e4vvEVtajBxOeM/qV8N/i98KfjFoo8R/CX4l+AviboJEZOseAfF2g+LtOjMoJSOe60G/v4bebhg0E7RzI6ujoroyj/Krro/CvjDxb4E1q18SeCPFPiPwb4isTustf8K63qfh7WrNsq2611TSLqzvrc7lU5inQ5VT1Ar9Gyb6SWf4eUYZ7kWWZlSVk6uAqV8txNus5KrLHUKkuvLCnh4va8dz+MPEn9ij4R5vSrYjwq8VuN+CsdJSqU8Dxdgsp42yXnWsMPRlgafCmbYOjKyi6+Ixub1abbqezqpKk/8AV1or/Pj/AGe/+C4v/BQX4FXulwax8VU+OfhCykiW78K/GjToPFF3e2wwkwXx5bjT/iFHemLP2e4vPE2pWkVwqTXGnXiebBN/Tb+xd/wXR/ZI/anu9I8FePrif9nD4s6l5NtB4f8AiFqtlP4E13UpSqLZ+FviUsen6ZJcTSssVrYeK9O8JX97cyR2WlQarORu/beFfGjg
+niirTwn1urkuYVXGFPCZzGlho16krJRw+Mp1auDqOUmo06dStRxFWTShQb0X+Xvj7+zN+lB4EYHF8QS4dwHibwfgqdXEYviLw2q43Oa2WYWneTrZxw5i8DgOIsJTp0Yzr4vF4PLszynBUoTnic0hFKUv2vopAQwDKQVIBBBBBBGQQRwQRyCOCKWv1k/z4CiiigAooooAKKK/Lb9qn/gr5+yR+xz8aL34FfGaP4p23i+w0DQfEc994a8GWOveHjp/iKCS4sRHeJ4ittQa4SOJxcxtpSrG2BHJKDmvLzfOspyHCxxuc5hhctwkq0MPHE4urGjRdapGcoU+eXuqUo05tXaVovU+68PfDHxB8Wc9q8MeGvCGe8b8Q0MtxOb1cm4dwNXMcxjlmDq4ahisb9Wop1JUaFbF4anUlFSalWgran6k0V+M2j/8F8/+CaGp7ftvxa8Z+Ht2M/2x8IfiNPsz/f8A7A0DXM477N/tmvUdH/4LT/8ABMXW9os/2qdBty+BjWPh98YNA2k9nbXPh7pyLjoSW29wxHNePR494Hr29lxhwzJvaLzzLYTf/bk8TGf/AJLofpOY/RM+lJlXM8d9HPxwpQjfmrQ8LONsTh4274nDZLWoL/wZqtVofqRRXwRpH/BUj/gnhrez7H+2B8EId+Mf2v4vtvD+M9N/9vR6b5fvv2474r1LSP25P2K9f2jRf2u/2Y9Td8Yhs/jx8LprgE9A9svin7RGx/uvGre1enR4j4exFvYZ7k1e+3sc0wNS/pyV5HwuYeDXi/lHN/avhT4k5Zy35v7Q4G4owXLbfm+s5XStbrfY+paK8r0j46/BHxBs/sH4x/CvW/Mxs/sj4heEdS37umz7Fq827PbGc9q9JstQsNShFxp17aX9ucYnsrmG6hOemJYHkQ57YavTpYihXV6NejWW96VSFRW73hJnw+OyjNsrly5nleY5dK9uXHYLE4SV+1sRSpu/la5booorY84KKKKACiiigAoo
+ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAoqpeX9jp0JuNQvbSxgHWe8uYbWEd+ZJ3RBxzy1eb6v8c/gn4f3f298YvhZomzl/wC1/iD4S03YOmW+26vDt545xWNXEUKCvWr0aK3vVqQpq3e85I9HA5Rm2aS5MsyvMcxle3LgcFicXK/blw9Ko7+VrnqdFfLesftx/sV+H941v9rv9mPS3TOYbz48fC6G4JHVUtm8Ui4kYf3EiZvavLNX/wCCpH/BPDRN3239sD4ITbM5/sjxfb+IM4/u/wBgx6lv9tm7PbNeZW4i4fw9/b57k1C2/tszwVK3rz14n3GXeDXi/m/L/ZPhT4k5pzW5f7O4G4oxvNfbl+rZXVvfpa9z73or8ttX/wCC1H/BMXRN4u/2qNCuCmeNI+Hvxh17cR2RtE+HmoI2TwCG29ywHNeW6x/wX1/4Jo6Zv+xfFfxt4h25x/Y/wi+IcHmY6bP7f0PQ8Z7b9nvivLrce8D0L+14w4Zi1vFZ5ls5r1hDEyn+B91l30S/pSZryvA/Ry8cKsJfDWqeFvGuGw8vTE4rJaNB+f7zS6vuj9m6KhtriO6t7e6iyYrmGK4iLDa3lzIsibl5wdrDI7Hipq+sTTSa1TV0+6Z/PsouMnGSalFuMk9GmnZprunowooopiCiiigAooqjqep6bomnX2sazqNjpOk6XaXF/qWqand29hp2nWNrE011e317dSRW1paW0KPLcXNxLHDDEjSSOqKSE2opyk0opNttpJJK7bb0SS1beiRdOnOrOFKlCdSpUnGnTp04uc6k5tRhCEIpylOUmoxjFNybSSbZeor8Ev2s/wDg4K/Z
+H+Bdxq/hT4J2Gr/tM+O9Pea0+2eFr2Lw78KbS9iyjib4g31rfT69HE5SSKbwd4d1/RtQjWSOPxBbNtkr+c79or/guH/wUB+Pz6hp+nfE+D4GeEbxplj8NfBCxk8JX0duxKwibx3cXOp/EE3KwnbcSad4m0qyuJWeVdNgXyoofyPibxs4G4clUw9PHVM9x1NyjLDZLGGJpQmtOWrj51KWCS5rqao1sRVp8r5qV7J/6H+B37L/AOlT4z0MHnGM4XwfhVwti40q1POvEuticmx+JwtRKbqYDhTC4XG8TTlKlKNTDSzPLsowGLjOLpZhyc84f3kfFP47fBX4HaX/AG18ZPi18OfhdphiaWG68e+MtA8LC7VMjZp8WsX9pPqM7spjitrGK4uJpcRQxPIQp/Kr4t/8F+v+CdXw0N3beHfG3j74z6lamSJrT4X/AA/1QWhuEJUIut/ECbwHol1blsE3ml32pW5jJeFp2Hln+CjXdf13xRqt5rvibWtW8Ra5qMpn1DWdd1K81fVb6dvvTXmo6hNcXl1Ke8k8zue5rJr8Szn6SPEeJcoZHkmV5XSd0qmMnXzPFJdJRcXgsNCT3cZ4esltd2u/9QfDb9ip4MZLToYjxR8TuOuPMfDknUwXDWGyvgbIpydnOjWp1ocT51iKcXeMa2HzjLKk7e0dOnzezj/Wd8Rf+DnhA1xa/CX9ktmXL/ZNb+IvxRCMRkiM3Hhfw14RkAJGGcReMCAcopP+sr4z8Uf8HIP7eGtSTLoPg39nTwdbMzfZzpvgbxnqt/FGfuia58QfEbUrOeVe8iaZbRt/zwXnP8/tFfneO8X/ABHx8m6vFGMoLW0MDRweAjFPong8NRnK3RznKX94/svhb9nL9C7hKlCngfAnhvNKkVHnxHFOZcScWVa047znDiLOsywtNyavKnh8PQodFSS0P2T1P/gvd/wUzv5ZJLT4x+EtERzlYNM+EHwwliiHpGdZ8MavMR/11mlPvXMp/wAF
+0P8AgqMs5mP7S0EiH/l2f4L/AABEAHoCnwuScfXz9x7k4GPySorw58f8dTfM+MuKE739zPszpr/wGGJjG3la3kfqVD6In0VMNT9lT+jZ4EyjyqF6/hRwNiqllZfxcTkdarzaaz5+dvVyvqftBov/AAX4/wCClelypJffFHwL4jRQA0GtfCPwFBFJz1c+HtI0GcE9D5cyDHQA81774Q/4OT/219IngXxd8MP2dfGOnqR9oEPhrx74a1iYDr5WoWfxDvdLgJGclvD84zggAAqf54qK68N4m+IGFadLi/PZNO6+s46rjF844t11JeUk0+qPnc5+g79ELPqc6eO+jr4V0I1IuMnk3C2C4cqJNWbhV4ejldWnLXSdOcZxesZJpH9f3wv/AODnP4f31zZ2nxn/AGWPF/hi13Kl9rnw0+IOj+NZSDjdPb+GfE+h+BBEqknMD+KbltoyJmYhB+zn7M3/AAU//Yj/AGspbPSvhX8bvD9n4zvXjhi+HPj/AH+AfHU11JjbZ6Xo/iM2lv4nuAGBf/hEL/xBDHkh5lZXVf8ANlpQSpDKSGBBBBIIIOQQRyCDyCOQa+8yP6QXHGXVYLNvqHEGGTSqQxGGpYDFOC6UsTl9OjShP+/WwmJvq3FvU/lDxT/Y/wD0WuNMFiZeH74t8Ic7cZPCYjJs7x/FmQxryv7+YZJxfjMxx+JoJu6w+W8RZK4tRUKsYJwf+svRX8AH7D//AAW3/ax/ZNvNG8LeO9bvv2hvgpa+RZzeCPH+rzz+K9A05CqbvA/xCuYr/W9Oa0hRIrPRNf8A+Eg8NRWsRs7DTNJklF/B/aX+x/8AtsfAD9t/4bx/EX4HeKhftZ/Z4PF3gjWlttO8eeAtUuEdo9N8V6BHdXZtln8qb+ztXsLnUNA1hYLhtJ1W8NtdJB/TfA3ilwxx1FUMDWngM3jBzq5PjnCGJcYq86mEqRbpY2jHVuVJqtCC56+Hoxcb/wCG30p/oG+OX0VKss14oy7D
+8WeHVbFQw2A8R+FYYjEZJCpXm4YXCcQ4OtCOP4ZzGtenCFLMITyzE4if1bK83zOpTqcv1pRRRX6QfxSFFFFABRRRQAUUUUAFFFFABRRRQAVgeJ/Cnhbxro154c8ZeGtA8W+HtQTy7/QfE+j6dr2jXyYI2Xml6rbXdjcpgkbZoHGCRjk1v0UAfkr8dP8AghH/AMEhf2iftsvxF/YF+AVhf3+9rrWPhV4evfgTrU1y+Sb2fVPglqfw/u7u9LnzJLi9kuWuHGLrz0LI344/HD/gzF/4Jp+PPtd98Gviz+078BdVm8z7Jp8Xivwl8T/BNnuyU3aP4v8ACUPjK58psAb/AIipujBV8yESr/XxRQB/m3/Hj/gyU/a48M/bbv8AZw/bC+AnxetIfMmttN+K3hPxz8EdduIhlls7c+HV+NOiz3oG2JJbzVNHs53BklksUbYn4tfHj/g3B/4LNfs//bLrXP2KPHXxH0W18xodb+BGt+D/AI2f2jHFndLZ+F/h7r+tePowcfu4dR8IWF1Lx5cDZr/Y1ooA/wAEz4lfB/4tfBnXH8MfGD4XfEX4UeJYzIr+HviV4J8S+BdcRoWCyq+k+KNM0u/UxMQsgNuCjEBsE151X++l4u8FeDfiBod34Y8e+EvDPjfw1fjbfeHvF2g6V4k0O8XDLtu9J1m0vbC4G1mXE1u4wzDoTX5M/H//AIN/v+CPX7SEV8/jf9hT4NeFNWvhJJ/wkHwSsNV+AeqwXkmWOo7Pg7qfgvStQvPMYzSf21peqW11KS97bXO5gQD/ABk6K/0lP2gf+DJn9kbxZNfX/wCzT+118dPgtcXHmT2+ifFHwp4O+OPh21mOWSzspNFl+DviG2sDhY1k1LWNfvoctNJPeYWE/iP+0N/wZtf8FPvhfFean8EPGn7PH7TelwiQ2WkeH/GmofC3x9d+XkqJdF+J+l6N4FtTMu0R7fidc4kLrL5aKssgB/JHRX3N+0r/AMEy/wDgoH+x6b2f
+9pL9j/49fCzRdPMgufGWreANZ1X4c5iJ80W/xM8NQ618Prwxgb3Fn4lnKRskrYjkjdvhmgAooooAKKKKACiiigAooooA2fD3iPxD4S1mw8R+FNe1nwz4h0qdbrS9d8PapfaLrOm3KZC3Fhqmmz219ZzqCQs1vPHIuThhmv2J/Zu/4OFv+Cwf7L/2Cz8GftrfEvx74csfKjbwp8expPx50u5socCLTl1T4o2HiTxfpFlGqrHEnhvxPoksEKLbwTRwDyj+LtFAH90X7Nn/AAe4fG/RPsGl/tb/ALGPw2+Idv8AuoL3xf8AAPxv4h+F+qQRJgNfN4K8dxfE3TNavpVGZba38X+E7JpnaSD7NCFth/QD+zb/AMHYn/BHv49/YLDxh8UviR+zH4kvvKhXSPj78M9XtdMN4xCyoPGnwxuPiX4MsbJW3PFqPiPW/D0TwhWmjtp2+zL/AJLlFAH+8R8E/wBpv9nH9pTRP+Ej/Z5+PXwc+OWhrDHPNqfwl+JXg/4g21pHIVAW/bwtrGqNp8yOwimt75be4gn3QTxRzKyD3Cv8CTw14o8TeDNbsPEvg/xFrvhTxHpUwuNL8QeGtX1DQtb024AIE9hqul3Frf2cwBIEtvPG4BIDV+2P7LH/AAcf/wDBYH9lE6dp+g/tY+JPjP4P0/ylPgj9pawtfjbp13BBgQWj+LvFDf8AC1dOs4YwYI7XQfiFpEKQFYwgEMHlAH+xVRX8EP7K/wDwe4+G7o6bo37a37GWraNJ+5TVPiH+zJ4ut9atHd9qSy2/wl+J93pN1Y28LZmJ/wCFw6xcNExjjt2kiU3H9P8A+yB/wXA/4Jcftwf2XpvwQ/a6+Gtt441XyYofhZ8U72b4P/Ex9Ql250rTPC/xFi8PyeLb2EsBK/ga68U2B5aG+lRXZQD9X6KKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK+
+X/2pP21f2Tv2J/BTfEH9qz4//DT4HeGniuJdObxt4itrXXvEbWoDXFp4O8HWYvfGHjbUolO9tK8I6FrWpbAzi0KIzD+Ob9vX/g9L+Hnh3+2fBP8AwTo+AF78RNVT7RaW3xz/AGiYb7wz4JjlXKLqHhj4R+H9RtvGXiOzmRxNZ3ni7xV8Pbu1uIdl94UvoHKkA/un1jWdI8PaVqOu6/qum6HoekWdxqOrazrF9a6ZpWl6faRNNdX2o6jeywWllZ20KPLcXVzNFBDErSSOqKSP5y/26/8Ag6Z/4Jb/ALHP9seGPAPxA1H9sX4sad59vH4Q/Z0fT9b8D2moR7liXxB8a9Qmh+HsenvIkkNzN4HvPiFq9jIoFzoKq6sf81H9tT/gqh+35/wUH1W4u/2q/wBpb4hfELw694L2w+GVlfxeD/hDokkcvmWjaV8LfCMOi+ClvLJRHDDrd9o994injhje/wBYvLjfO/590Af09ft1/wDB2H/wU4/ayOs+F/gtr2hfsT/CvUPtFtFo3wRmuL/4r3WnS7vLj1r44a7bx+JLTUoCw2ar8M9I+F8jKiJJBIPMMn80fijxV4n8b+IdX8W+NPEeveL/ABVr97LqWveJvFGsahr/AIh1vUZyDPf6vrWrXF3qWpXsxAMt1eXM08hALyHFYNFABRRRQAUUUUAFFFFABRRRQAUUVsaB4e1/xZrWm+HPC2h6x4l8Q6zdR2OkaDoGmXus61qt7LnyrPTdL06C5vr66kwfLt7WCWV8HahxQBj0V+9P7Jn/AAbTf8Fff2tP7N1Ox/ZnvfgB4K1IROPHP7UWqf8ACnbS2in2tFNJ4FvrLVPjFcwSQkzx3On/AA1vLR4gpFwDLCJP6bf2Vv8AgyX+CmgJpmtftn/teePfiPqI8m5v/AX7PnhnSfhv4bgnj2l9On8e+OIfHHiDxFpszAia5sfCHgTUTC5jge1lUXJAP86mvsv9mX/gnf8AtzftlXVtB+zB+yn8cPjJ
+YXM/2b/hKfCvgLWh4AspvM8rZq/xI1S307wDoeZAyhtZ8SWCkpJhv3cm3/XC/Zm/4IU/8Emf2S/7OvPhR+xH8HNR8Sab5Utv42+LWlXnxx8YxX8eCdVsNb+Lt74yk8P6hIwLF/C8WhwQB3itLe2gbyq/WO0tLWwtbeysba3s7KzgitrS0tIY7e1tbaBFjht7e3hVIoIIY1WOKKJFjjRVRFCgCgD/ADD/ANmH/gzL/wCCivxUTTtW/aS+K3wL/ZV0O68o3uiLqV78cfidpu7DSeZ4e8DTaZ8OLjy1JUfZ/jC7PMrKUSPEzf0Jfs4f8Ga3/BM34XCw1H4+ePf2gP2odchEX9o6Zqniqy+EPw6vmTBc2/h74bWlr4+sRMdyyK/xYvcR7ViMcitK/wDXNRQB8C/s6/8ABLH/AIJy/snfYZ/2fv2Lf2efh9rOneV9j8YRfDnQ/EvxDi8nBi3fEjxjB4h8fTbGAkHn+I5P3uZjmVi5++qKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr+aj/gu7/wAFPtS+CWiXP7G3wG1+TTvin410GG6+MXjPSLvy9Q+H/gfXLctZ+DtJuLd/OsPF/jTTpBeajebobrQvCF1ay2Sm98TWWo6P+637VXx/8O/stfs7fF74/eJxBLp/wz8Ganrlnp9xKYE1zxHKI9N8I+G1lBVo5fEvim+0fQYZAR5cmoLISFQkf5kXxP8AiT4y+MXxE8a/FT4haxPr/jf4g+JdX8WeJ9XuOGu9X1m8lvLowxAlLWygaUW2n2MAW10+xht7K1jitreKNfwHx34+r8N5RQ4cyqvKjm2fUaksTiKUuWrgspUnSqOnJNSp1sfUU8PSqR1hSpYpxcKvspr/AF1/ZP8A0SMr8afEPNfGfj/K6WZ+H/hRmGCoZJlONoqrl/EniHUp08wwcMZTnGVLFZdwpgpYbN8dgatoYnMMwyCFaOIwKx+Fq8LR
+RRX8Sn/UGFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfuX/wAEyv8AgtF8Wf2QNW0T4WfHHUfEXxb/AGaZ5LTTo7O9u5dW8b/CW1BEKah4Evb+Yy6h4ctIiv2vwHfXS2KQQpL4ZuNFuRd2+r/3I/DH4n/D/wCM3gLwx8T/AIW+LNH8b+AvGOmRat4c8TaFci50/UbOQtG4+ZUntL20uI5rLUtMvobbUtK1G3utO1K0tb61uLeP/Kjr9ef+CS//AAU08U/sJfFy08L+NNU1LV/2ZPiPq9pafEbwy8lzeJ4K1C6eKzh+KHhWyTzWt9U0iMRDxNp9jCT4p8PQNayW9xq+m+Hriw/oTwm8Y8XkGIwvDvE+JqYrIK04UMJj685TxGSyk1Cmp1JNyq5Ym0p05tywcPfoP2UHQl/jx+0G/Zt8PeLeU594yeBmS4XIfFvL8NiM1z/hLKsNSw2UeJlKhCVbFyw2DoqnRy/jecIzq4bF4eEKHEeJvhc0pf2hi4ZrS/0H6KztH1jSvEOkaXr+g6lY6zoeuadZavo2r6ZdQ32m6rpWpW0V7p+pafe2zyW93Y31pNDc2l1BI8NxBLHLE7I6sdGv7TTUkpRalGSTjJNNNNXTTWjTWqa0aP8AmRqU6lGpUpVac6VWlOVOrSqRlCpTqQk4zp1ISSlCcJJxlGSUoyTTSaaCiiimQFfwTf8ABwj/AMpG/E3/AGSb4Wf+mq+r+9mv4Jv+DhH/AJSN+Jv+yTfCz/01X1fhP0h/+SBo/wDZQZd/6jZgf6vfsbv+Ut8z/wCzP8Zf+rzg8/ECiiiv4dP+poKKKKACrNpe3lhMtxY3dzZTr92e0nlt5lxyNskLo4weeGqtRQm07ptNbNaNfMmUYzi4TjGcZJqUZJSjJPdOLTTT6pqx6hpHxv8AjR4f2f2D8Xvihonl42f2R4/8V6bsx02fYtWh247YxXqGkftu/tn+H9g0P9rj9prSUTG2LT/jv8UbWDA/haCLxSsL
+p/sPGynuK+X6K7qOaZnh7ewzHHUbbexxeIp29OSpGx8tmPAnA+b839rcG8KZnz35/wC0eHcoxvNffm+s4OrzX63ufeOk/wDBUH/goXowUWf7YPx1mC4x/a3jfUNeJx/eOuHUS/vvLZ716Hpn/BZD/gphpJU2v7V/jKXbjH9p+GPhvrQOP7w1jwXfhvfcDnvmvzLor06XF3FdC3seJ+IaNtvZZ1mVO3pyYlWPicd9HjwAzNyeZeBvg9mDlfmeO8M+CsW5X35niMkqXv1vc/XXTf8Agut/wVA08qJ/2irDVkXAEepfBv4H4IHZpNO+HOnztnuzTFzk/NXoOm/8HBP/AAUgsdv2rxn8L9Z24z/aXwp8PRb8f3v7IbSsZ77NvtivxJor0KXiFx3S+DjHiV2/5+Z1mFZfdWrzXTb/ADZ8hjfod/RQx9/b/Rv8EYOW7wfhnwjlz9b5flOFafmrPzP3103/AIOO/wBv2xKm68M/s4azjGRqXw78ZRB8f3v7H+JukkZ77SvtivQdN/4OX/2xIiv9sfBH9mm/Axv/ALN0f4o6UW9dpuvifrIXPbIfHvX85NFd9LxU8RKVuTi3Nnb/AJ+1adb7/bUql/mfJY36Av0N8ff2/wBHvw+p33+pYLG5bv2/s7HYXl+VrdD+nfTf+DnH44RFf7X/AGXvhVfAY3/2b408XaUWPfabq01nZnsCHx6mvQNN/wCDoPW49o1j9i3Srzs7ab8fbvTfxVLr4Par067S/PTcM5H8pFFehS8Z/Eyl8PFFaVv+fuXZPW+/2uXT7fn3Z8jjf2aH0H8ff2/gRllO9/8AcuMvEjLbX7f2fxlhbeVrWP6+NN/4OffA0u3+1/2PfFljnG/+zfjLo+q7fXb9q+HWjb8ds7M+1fRnwE/4OG/gT8c/jD8KPgzbfAD4teG9e+LPxF8FfDbSNUn1rwdqmkaZqvjfxFp3huwv9SMd7Y3jafaXepRT3htbWa5+zxyGGCWXbGf4e6+v
+P+Cfn/J9/wCxf/2dV+z/AP8Aq1fCte/knjb4jYjNcswmJznD4ijicwwWHrKeU5XCUqVbE06VRKVDCUXFuEmk42aeqPyPxN/ZefQwyjgLjjP8l8Nc4ynMsk4Q4lzjLqmG8QePMTTo47LcmxuNwk5Us04hzCFWEK9CnKVOopRnFOM002f6blFFFf3Sf8pwV4r+0J+0J8Kv2XPhVr/xq+NXiC58L/Drwxc6Haa1rVpomteIp7WfxFrdh4e0pV0nw/YalqtwJ9V1KzgdrazlECSNNNshjd19qr8ef+C8n/KMX46/9jB8HP8A1b/gmvB4pzPEZLw1xBnGEjSnisrybMsww8K8ZToSr4PCVsRSjWhCdOcqTnTipxhUpycW1GcXZr9Y8B+Bso8TvG3wi8OOIK2YYbIuPPErgng/OcRlNahh80oZXxHxHl2U46rl2IxWFxuGo42nhsXVnhauIweKo06yhKrh60E6cte1/wCC6P8AwS6ucCT9pO5sy3a6+DHx64PozW3wxuUH1L7feuktf+C1f/BMO8x5P7VOiJnp9q+HPxmsevr9t+HNvj3zjHev87Kiv5Hh9JDjZfHlXC8/NYPNYv8A9XLX4H/RBX/YrfRfnd4fj/x4oN9J8SeH9eC9F/xDOnP76j9T/Rxtf+CwH/BNa8x5P7WfgBM9PtWl+NrH8/tvhW3x+OK6O1/4Kr/8E6bzHk/tefB1N3T7VrtzY9fX7bY2+3/gWMd6/wA2uiuiP0k+LF8eR8Oy/wAMMyh+eYTPGr/sTvo/Sv8AVvFTxjpdvb4jgrEW9fZ8JYW/4H+lxa/8FLf+Cft5jyf2xv2eUzj/AI+vid4Zsevr9tvrfHvnGO+K6S1/4KB/sI3mPJ/bP/ZXBbos/wAfvhZaMfbZd+KYWz7Yz7V/mR0V0x+krxAvj4cyaXflxGNh+c52/E8Wv+xH8IJX+q+NHiTR7e3ynhfE29fZ4XC3/A/1ALX9tP8AY4vsfYv2s/2Z7zPI+y/H
+j4WXGR6jyfFT5/Cuktf2of2Z77H2L9on4F3m7hfsvxc8AXG4noB5PiB859q/y26K6Y/SXzVfHwrl8u/LmOJh+eHnb8Txq/7EDgGV/q3j5xhR7e34LyXEW9fZ5zhb/Kx/qj2vxx+Ct9j7F8X/AIXXmen2X4geE7jOemPK1Z810lr4/wDAl9j7D418JXm7G37L4k0a43Z6Y8m9fOe2Otf5SlFdEfpNYpfHwdh5f4c8qQ/PKpnjV/2HORSv9W+khm9Ht7fwtweIt6+z48wt/lY/1jra/sbwbrO8tLtfW2uIZx+cTuKtV/k0AlSGUlWByCCQQfUEcg/Stq18S+I7HH2LX9bs8cD7Lqt9b4HoPJnTH4V0w+k2v+XnBTXnDiJP8JZGv/Sjxa/7DSorvC/SchLtGv4NyhbtepT8Uql//Ba+Z/q+0V/lVaf8XPivpMiTaV8TviHpksZzHLp/jTxJZSIR0KPbalGykeqkV61oP7bP7ZXhbYPDn7WX7SmiRx4CwaZ8cvibaWxC9Fe1h8TrbSIP7kkTJ/s12UfpMZbJ/wC0cJ42kuro5rQru3pPBYdfK69T5vMv2H3GlKDeT/SD4Xx07O0cy4BzXKoN9E54XiXOWk+r5Hbsz/T7or/OL8Ff8Fff+CkvgJozo37WPxC1JYyCY/Gtl4S+IiyKDykjePfDniOVgwyCwkWQA5R1YBh9jeAf+Di39vzwrLar4s0/4H/E6zRlF4PEfgHUdC1G4iGN5gvPA/ibwzY2tww+5K+kXUCE5a0kHy19FgvpF8EYhxji8Fn+XyfxTqYPCYihHzU8Njp1pW6/7On2Teh+N8UfsZfpR5PGrW4e4m8JOL6MVJ0sPhOIs/yfM6rSuouhnXC+Fy2m5aKN84lG9+eUErv+66iv5h/gR/wcv/CHxHqOn6P+0R8AfFnwxhnKQXPjP4eeJLb4jaLBMxUG9v8Aw1qGleFNf03TUBcyppd34s1FAq+Ta3RkKx/0AfAL9p74AftR
++Fn8ZfAH4r+Efidodv8AZ11L/hH78jWNCmukaW2tfEvhrUIrLxJ4ZvJ41aSGz1/SdOuZUVnjiZAWr9Q4d474S4r93Ic8weNrpOTwcnUwuOSSvKX1HFwoYqUIK/NUhSlSVvjta/8ACnjL9FH6Q3gAvb+K/hZxJw1lUqkaUOI6UMJn3Cs6lSfs6NF8UcPYrNcio4mu2nRwWJx9DGzT/wB2TUkveKKKK+tP55CiivEv2j/hLqHx0+BvxM+FGi+NvFHw28Q+MfC99YeGPH3g3XtZ8NeIfCHim32X/hrXbPVtAvLDVktrHW7Sxk1axtbuEaxo/wBv0e4Y2t/MrYYmpWpYfEVcPQ+s16dGrUo4b2kaP1irCEpU6CqyUo0nVmlT9pJOMObmkmkz08kwmX4/OcpwObZosjyrG5ngMJmWdSwdXMI5RgMTiqVHGZnLAUJ06+NjgMPOpinhKNSFXEKk6NOcZzi17bRX+ZX8Rv2if26vhT4+8Z/DLx7+0p+0xoXjPwF4m1rwl4o0e5+OPxPMljreg38+nahAH/4SfZPD9ot3e2uoi0F3bNFdW7yQTRu3En9sX9rlvvftT/tHNjpn43/E04/PxPX83VPpJ5ZRqVKVXhPNKdWlOVOpTqY/DwnTqQk4zhOEsOpRlCScZRaTTTTSeh/tbgv2JvG+Y4PCZhgfpB8C4zAY/DUMZgsZhOFM4xGGxeExVKFfDYnDV6ebunWoV6NSFWjVpylCpTlGcJOMkz/UKor/AC8D+1/+1ock/tRftEknqT8bPiUc/XPibmoz+1z+1cwwf2nf2hSPQ/Gn4kEfkfEtZ/8AEy+VdOFcw/8ADjhv/mdnYv2IHH3Xx84PXpwXnT/POUf6idFf5dJ/a0/aqPX9pn9oI/X4zfEY/wA/ElRt+1f+1K2d37Snx+bPXd8Y/iIc/XPiPml/xMxlfThTH/8Ahzw//wAystfsP+O+vj9wkvTgjOX+eeo/1GqK/wAuaD9rD9qW2nguYf2k
+vj0s9tNFcQOfi98QH8uaF1kjcK/iBkYq6g4ZWU4wwIJFf6LH7BP7UGm/th/snfB747W8tr/b3iPw3Dpfj+wtdiLpHxH8NsdE8a2Itl+a0tZtbs7jVdIhlVXk0HUtKugDHcxs36H4d+LWWeIGOx+W0cur5VjMHhaeMpUsRiaeI+t4f2nscRKm4UqXI8POeHUotSco11JNKEj+Ovpkfs9eOfog8K8JcaZjxnlfH/DnEmeYvhzHY/KckxuTf6v5ssF/aGU0MXDFY3HqvTznDYbN3RqwnRjQqZXKnUU5Ymlb7Booor9aP89QooooAKKKKACiiigCteXlpp1pdahqF1bWNhY2095e315PFa2lnaWsTT3N1dXM7JDb21vCjzTzzOkUUSNJIyopI8Tu/wBqL9mewz9v/aJ+BVljJP2v4ueALbAHUnzvECYx3z0r8qf+C+v7WH/CgP2M7v4T+HtTNn8QP2nNQu/h7aJBN5d5afDjTYrW/wDidqSgNl7a/wBPutI8D3UbKfMtvGk8kZD25Zf4Mq/BvEnxpXBGfRyHAZTQzbEUsHRxGOq1sZPDxwtbEc06OG5KdCq5T+reyxE25RShXpJXfNb/AFm+hR+zIf0pPCev4s8W+IOb+H2U47iPMsn4VwWX8OYXOKme5dkyo4bMc7eJxeZ4KFHDLOXjsnoU4UqspYnKcdKo4x9lz/6fl3+2x+xnYZ+3ftb/ALMdlt+99r+PXwrttv187xWmPxrmbv8A4KFfsG2WfO/bO/Zcfb1Fr8d/hlfn8BY+Jbgn8M1/mU0V+bz+ktnb/h8M5VH/AB4zFz/9JjTP7Uw/7ETwujb61448fVu/1fhzh3DX729pVxdvne3mf6V93/wU4/4J8WRIm/bE+AT7Tg/ZPiFot+PwNjPchh7rkVzN1/wVl/4Jx2efO/a5+FD7c5+y3usX3T0+w6RcbvbbnPbNf5u1Fc0/pKcUP4MgyGPbneYT/LF0/wBD28P+xL8Co2+teLfi
+zW7/AFeHB+Gv6e04fxdvxP8ARiu/+CyX/BM6yz537V/g98ZJ+yeFviVf9PT7B4Kuc+wGSe2aZ4Z/4LIf8E4PGni3wz4D8I/tFnxL4w8ZeINH8LeF9A0X4Q/Ha/vda8Qa/qFvpWj6XaND8MWtvPvtQure2jaaeKFWkDSyxxhnH+dBX9JX/Bur+xr/AMLM+Nnir9rnxlpXn+DfgWJfDHw6+1w77XVfi34i0wi+1CHerwz/APCC+EL9riSORFkt9Y8W+G9Ts5VuNMbZ7nCPjbx7xdxJlWQYPKOGqf17ExWIrfVM1qfVcFSTq4zEv/hXhG9HDwqSgpWVSr7Ole80flv0hv2X30TPo7+C3Hni3xL4i+N2MXCuS1amUZYuIeAcGs84mx044DhvJI38O8TW5MxzjE4SjiqlHnqYXAfW8c17LC1JR/tOooor+rj/AJ/Ar87P+CgX/BSX4Sf8E7tN+GGofFLwR8RvGh+K914vtPD8PgC28MzCxk8GQ+G5tRbWJfEXiPQfIS5XxPZCyNlHfs7QXXnrbhYTN+idfynf8HQP/IufsYf9hv48/wDpB8I6+F8S8+zHhjgnPM8ympTp5hgY4B4edalGvTi8RmmBwlTmpT92d6NeolfaTUt0j+q/oR+E/Bvjj9KHwt8LfEDCYzHcIcVYjiuGcYXL8fXyzF1oZRwLxRn+DjSx2Fca9DlzHKsJOo6bTqUozpNqM2z0jUf+Dm79n2Ld/ZH7NPxjvsfc/tHxJ4J0rcf9r7Nc6xs+o3/SuC1L/g5+8HRbv7I/Y58TX2Puf2l8bNL0rd/vfZfhlrOz8N9fyG0V/H9Tx18S5/DneHo/9e8nyl2/8G4Or+J/0b4P9lN9CHC29v4XZxmNrX+ueI3iFDm9f7P4kwO/Xl5d9LaW/q01L/g6C8QS7v7I/Yv0ay4O3+0vj3e6pg9iwtfhDo+4Z5IBX0z3rgdR/wCDnH44S7v7J/Zf+FNjkHb/AGj4z8X6ptPbd9mtdH3A
+cZA2Z9Rnj+YmiuCp4z+JlW/NxTXV/wDn3l2T0f8A01l0LfLbofWYP9mj9B/AW9h4D5XPltb65xj4j5jt3/tDjHFc3nzXv1P6OdS/4OYP2wZd39kfA/8AZrscg7f7S0r4oarg9t32X4maPuA7gbc+orgdR/4OQP2+r7d9m8Jfs1aPnOP7O+HnjmXbnuv9r/FTVenbduHqDX4CUVwVPFXxEq35uLc2V/8An3UpUf8A01Shb5bdD6zBfQE+hvgLew+j34f1OW1vruDx2Y7d/wC0Mfiubz5r36n7e6j/AMHB/wDwUcvs/ZvFPwo0fOcf2d8K9Il2/T+17vVOnbdu981wOpf8F3v+Cnt9u+zfH7RtHznH9m/Bv4Lybc9lOreAtUPHYnJ9Sa/ICiuGp4h8eVfi4x4kV/8An3nOPo/+ma8LfI+rwf0N/onYC3sPo3+Ck+W1vrnhvwpmO3f+0MsxXN58179T9QdS/wCCz/8AwU31YMLr9qvxLFuzn+zfA/wn0YjPXadH8A2JT22FcdsV5nq//BUb/godrYYXn7YHxxh3Zz/ZHjG68PkZ/unQU00p7bCuO2K+CqK8+rxfxZXv7fijiKtff2ud5lUv68+JZ9fgPo6fR8ypp5X4E+DeWuNnF4Dww4Jwbi1s08PkdO1ultj6j1j9uL9tLxBuGt/tdftN6oj5Bhvfjx8UZ7cA9VW3fxSYEXk/Kkar7V5bq/xx+NXiDf8A298X/ijrfmZ3/wBr/EDxZqW/d13/AG3Vpt2e+c5715dRXl1s0zPEX9vmOPr339ti8RVv689SR9zl3AfA2Ucv9k8GcKZXy25f7O4dyjBcttuX6tg6VrdLWsWru+vdQma4v7y6vbhvvT3dxLczN/vSzO7n8WqrRRXC227ttt7t6t/M+pjGMIxhCMYQikoxilGMUtlGKSSS6JKyCiiigoKKKKAP9YTQ/wDkC6P/ANgvT/8A0khrUrL0P/kC6P8A9gvT/wD0khrUr/VWn/Dp
+/wCCP/pKP+A7Ff7ziP8Ar/W/9OSCiiirMAoor8Y/+CqP/BW/wF+wr4du/hp8OH0bx9+1F4g0wS6T4Xll+2aD8M7C/h3Wfiz4hrbSpJ9olidbvw94OSaDUdZQw6hfyadokttc6j42f5/lPDOV4nOM6xdPB4LDRvKctalWo0/Z4fD0l79fEVWuWnSppylrJ2hGUo/pPhL4R+IHjjx3kvhx4acP4riLijO6tqWHor2eEwGDpygsZm+cY6a+r5Xk+XwnGpjcwxUoUqSlClD2mJrUKFX6o/bp/wCCi37PP7A3gyHWfiprM2uePdes7ifwJ8I/DEttceNfFrxF4VvZY5XFv4b8LxXSNDfeKNZMVmhiubfSrfWtXij0mb+HD9uT/gp7+09+3Xr99F498UXHg34TJeCXw98EvBl/e2XgjToIJS9jceIcNDc+OPEEICyya54iWWOC7ad9B0zQLOYafH8XfFf4tfEj45eP/EfxS+LXjHW/Hnj7xZfNf674k166NzeXUpASG3gjVY7XT9MsIFjs9L0jToLTS9JsIYLDTbO1s4IYE87r+HPEPxdz7jatWwWFnVyjhzmcaWW0anLWxlNaRqZpXpv9/KfxfVYP6pR92PLXqU/rE/8Aqf8Aodfs7PCf6MOX5bxNnuFy/wARPGaVCnVx3GuZYRVst4cxckpVMHwHluLptZVSw7/c/wBv16f+sOYJVqntsswWKeUYcooor8jP9EAooooAKKKKACiiigAooooAKKKKACvdf2cf2kfi/wDso/Ffw58Zfgn4quvC/jDw9MFkQGSfRPEejyyRtqPhjxXpIlig1zw5qyRLHfafcMrJIkF/YXFjqtlYX9r4VRW+FxWJwWIoYvB16uGxWGqwrYfEUKkqVajWpyUqdSlUg1KE4SScZRaaaPKzzI8m4mybNOHuIsrwGeZFnWBxOWZvk+a4WjjsuzLL8ZSlQxWCxuDxEKlDEYavSnKnVpVYShKLaaP9Kf8A4J6/t5/D
+j9v34G2fxL8JxweHfHOgS22hfFj4bSXy3eoeCPFLwvJG8MjLFPf+FvEMUM2oeFtbMCJe20d3p9x5Ws6PrFlZ/eNf5mn7B/7aPxD/AGFf2gvDPxm8FPcanoZZNC+JfgY3TW+n+PfAV5cwvq2iTk5ig1S1MUeq+GtVeOQ6Vr1nZzyx3OnvqFhe/wCkN8I/ir4I+OPwx8C/F74b6xFr3gb4ieGtM8U+G9Tj2rJLp+pwLKLa9gDu1lqmnT+dp2r6dK32jTNUtLzT7pUubaVF/vXwk8R4cdZPLD4+cIcR5TCnDMacVGCxtB2hSzOjTjaKVWXuYqnBKNHE/DGnSr0In/Jb+0O+hdifoqeJFHOeEsPisR4MeIGKxeJ4MxVWdXFVOGczpr6xmHBGZ4urKdapUwFOX1rIcZipyr5nkr5alfF5hlWbV16LRRRX64f53BRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFACMqurI6hlYFWVgGVlYYKsDkEEEggggg4Nfnx+0B/wAEnf8Agmp+1H9um+Of7EH7OHjPWNS8z7d4tt/hnoHg/wAfXHm7t5b4ieBrfw146UlmZ1KeIVKSkyoVkO+v0IooA/kF/aW/4MzP+CcXxQa/1T9nb4pfHz9lzWrjzfsOjprWn/Gv4badv3GPHh/x4tn8RLvymKr+++LoDwrsYCU+fX8/n7TP/BmZ/wAFG/hbDqOr/s6/FP4DftTaPa+b9i0OPV7/AOCnxL1ILlojHoHjz7Z8ObbzFAVhcfF5SkzKgEkeZh/p+0UAf4aP7TX/AATw/bm/Y1urmD9p79lP44fBuwtZ/s3/AAlPirwFrR8AXs28R7NI+JGl2+o+AdcxIVUto3iS/UF48t+8j3fGtf7+F3aWt/a3FlfW1veWV5BLbXdpdwx3FrdW06NHNb3FvMrxTwTRs0csUqNHIjMjqVJFfk5+0z/wQp/4JM/taf2jefFf9iP4Oad4k1LzZbjxt8Jd
+KvPgd4xlv5Mkarf638Ir3wbJ4g1CNiGD+KItcgnCJFd29zAvlUAf4uVFf6K37VX/AAZL/BTX01PWv2MP2vPHvw41E+dc2HgL9oPwzpPxI8NzzybimnQePfA8PgfxB4d02FiBDc33hDx3qIhQRzvdSsbkfzJftZ/8G0//AAV9/ZL/ALS1O/8A2Z734/8AgrTvNY+Of2XdUPxjtLmKHc0k6eBbCy0v4xW1vHCBPLdah8NbO0jiLE3GYphGAfgtRWxr/h7X/Cetal4c8U6HrHhrxDo11JY6voOv6Ze6NrWlXsWPNs9S0vUYLa+sbqPI8y3uoIpUyNyDNY9ABRRRQAUUUUAFFFFABRRRQB+ov7Hv/BaL/gpv+wu+lWP7P/7W/wATrHwTpJhit/hV4/1KP4q/ChbCLCyabYeBPiJF4i0bw1b3MSiGe68HxeHNWVAjW2pW80UUsf8AWF+xn/wex2cv9leGv2+/2UJbVz5EF/8AFr9lzVBcQFjth+03vwb+JGtpPBEpxdX95pfxZvJCpmXTvDZZIbaT/P4ooA/21P2Mv+CvH/BOX9vxLCz/AGY/2qPhv4u8Z38KyD4U+Ir65+HnxeikCbrqGL4aePLbw94s1iOxcGG61Tw5p2taHv2Pb6rcQTW80v6SV/gG29xcWdxBd2k81rdWs0VxbXNvK8Fxb3EDrLDPBNEyyQzQyKskUsbK8bqrowYAj94/2IP+Dkv/AIKtfsRf2PoGm/Hib9oj4W6X5EA+F37TkOofFLT4dPh2xJZ6J47m1TTfit4dhtLQNb6Vp2meOl8OWGIC/h+7ht47egD/AGD6K/kP/YS/4PC/2Cv2gn0jwf8Atd+DvF37GHxCvDBaP4lvZLv4q/Ay/vJNsKOPGfhvRbPxj4VN5cZlaPxN4CTw9olvIv8AaHjaeOGa7r+q/wCF/wAWvhb8b/BekfEj4NfEjwL8WPh9r8XnaJ43+HHizQvGvhPVYwqsxsPEHhy+1HS7pow6CaOK
+6aSFmCSqj/LQB6DRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUV+L3/BRr/gvf/wTm/4Jqw6z4a+Knxai+J/x002KaOH9nj4Itp3jj4lQaiqsI7XxnNHqFr4U+GaLIYZLiPx54g0XW5LCU3ui6DrhQW7/AMCX/BR//g6f/wCCiH7bv9veA/gxrI/Yr+A2pfabL/hE/g5rt9L8V/EOlTbk8nxp8cDbaT4kBmheSK5sPh5p/wAPdJu7SZ7DWLXW418+QA/0Cv8AgoX/AMF1/wDgnD/wTXGpeHvjh8aYPGXxjsY5Cn7P3wVhsfiJ8W0uFjMiW3iPTrbU7Dw18PXlUxyQf8LI8TeEpLyCQTaZFfhStfxEft6/8Hh37c/x+/trwZ+xv4L8L/sbfDq7+0WcXi7dY/FD48alYvugab/hJ9e0qHwR4N+3W5Mv2fw54Ku/EOh3L50zx3NLBFeN/IRc3Nze3NxeXlxPd3d3PLc3V1cyyT3NzczyNLPcXE8rPLNPNK7SSyyM0kkjM7sWJJhoA9B+KPxa+KXxv8a6x8SfjN8R/HXxY+IXiCbz9c8b/EfxXrnjTxXq0gZmU3+v+Ir7UdUuVjLsIY5bpo4UOyJEQBR59RRQAUUUUAFFFFABRRRQAUUUUAFFfrz+xF/wQo/4Kf8A7fb6Lq3wX/Zm8V+GPhprXkTRfGv41RzfCT4UjTLgKU1rSta8T2sWueOdMUuqu/w08OeNbtSW/wBEIimMf9jv7Ev/AAZd/su/DuPR/FP7dnx28Z/tE+J41gub/wCF/wAJftfwl+EkM+F+06VqXinzLv4peL7IEMYNW0XUPhRdsHxJpy+XlwD/ADivCfhHxZ498RaT4P8AA3hjxD4z8W6/dpYaF4X8J6LqXiLxFrV/KCY7LSdE0e2vNT1K7kCsUtrO1mmcA7UODX9En7HX/Bqz/wAFZ/2qRpOu+NPhd4d/ZJ+H+oiC4bxJ+0jrcvh3xW9i
++1rgWfwk8OWfiP4k2mqxRsDDp/jTQvBNtPKRE+qW4WWSL/UD/Zf/AGE/2OP2LNC/4R79lb9mv4Q/A+1ktEstQ1TwP4O0uz8Xa9boUKL4p8dXUV3418WyL5ceLjxN4g1a4xHGDLhFA+sKAP49f2RP+DNH/gn/APCOPTNb/av+KPxb/a28VQeTLf8Ah+yu3+BfwkmcYkktzoPgzVNT+Jdz5cn7kXY+LFjDdQKXk0m3eXy4v6Zf2a/2If2QP2O9FGhfsvfs2fBr4G2r2y2l7f8Aw+8B6DoniTWoV2gHxJ4vjs38V+KJ8JGGuvEWtandMscatMQiAfUtFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfy+/wDBzF8ddR0D4V/s+fs76RfTQQfEXxT4l+JPjGCBzGLjSvAFrp2keGLC8IIM9le614q1LUxb8xi+8NWVxIPMgtyP46a/oc/4OT/FVzqv7bPww8LHeth4T/Zy8MTRIxyraj4h8f8AxGur64jAOAr2dnpEByAxe1YkldmP546/z38Zcxq5l4jcRSnNyhgq2Hy6hF3tSpYPCUac4RT2UsR7es+jnVk1oz/sM/Zq8F4Lgr6GHg1Sw2Hp0cXxNluccaZtXhGKqY7G8SZ9mWMw2IruKXPUo5Kspy+En7yw2BoU224XCiiivy8/uwKKKKAL2l6ZqOt6np2jaPY3eqavq99aaZpemWEEt1fajqN/cR2ljY2VrCrzXN3d3MsVvbwRI0s00iRxqzMAf7TP2C/+Dfv4E/DzwX4a8d/tlaVP8WfjBqdrHqmofDZddurT4X+BHuY0kttEuY9Amsb7xtr+nKzJrV/e6xN4Slu2ey07Rb62sYtc1X+d3/gjbYeA9R/4KU/st23xDtobvSE8W+IbzRYbqOKS0HjrTfAninUfh9POsnIktPGdrol3prRAyJrEGnP/AKtZCP8ARgr+nfAL
+gLIM8wmZcTZ1hcNmlTCZh/ZuBwGLhGthsPOlh8PiquMr4aalTr1KixNOlh1VjKnS9lWnySqShKl/hh+1y+lp4t+FnEHBPgh4Y59nfAeD4h4QfG3FPFuQYqvlmd5vh8dnGb5Fl/DuV51hZ0sbleGwUskxuNzmWArUcVjfr+WYd4ilhaWJoY35t8M/sa/sieDLeG28Kfsufs8+H44IliRtK+DXw7tLhlRdoae7i8Oi6uZWHMk9zNLPMxZ5ZHdmY1/Fn7Fn7H3jqyfT/F37Lf7PmvWz7sG++D/gFrqBmG1pbS/j0GO+spivHn2dzBMASBIATX01RX9UvJsndL2DyrLXQa5XReBwvsuXt7P2XJbRaWsf4Fx8SvEaGPWaR4/41jmcZqqsxjxVnqx6qJtqosWsesQppttTVTmu273Pw4/aG/4N/f2EfjBZ6jefDXSPFf7Ovi+4hkay1PwBrd7r3hL+0CpWKbVfAvjC61W2ksE+Uyab4W1jwcZSgZbuJ2laT+TH9vL/AIJu/tB/sAeLLHT/AIm2Nl4n+HfiW8ubbwN8XPCkV3J4S8RSQrJONJ1GO5jW78L+LI7JDdXHhzVC/mxxXc+h6jrun2VxqCf6SteOfH/4D/DX9pj4ReNvgn8WtBt/EHgrxzo9xpl9DJHCb3S7wqX0vxFoVzLHL/ZviHw/fiDVdE1KNC9pf20LlZIjJFJ+U8c+CvC/EmBxFbJcBhMgz2MJ1MLXwNNYbA4iqlzKhjcHRSw6p1neLxFClDEUpSVVutGMqM/7++iv+048d/BbinJsu8TOLM/8WvCqvisPhM+ynirGVM74pyfL5yjSqZpwxxJmE55vLGZdTcatPJs0x+KyjHUKM8DTp5bXr08zwn+WVRXvn7UP7PXjT9lT4+/E74A+Po93iD4c+JbnSU1FIXt7XxDoVxHFqPhnxTp8chZ007xN4evNM1yzjd2lt4r4W1xtuYJkXwOv4WxWFxGBxWJwWLpToYrCV6uGxNCo
+rTo16FSVKtSmukqdSMoyXdM/6r8hz3KOKMjybiXh/MMPm2Q8Q5Vl+d5LmmEn7TC5jlOa4Sljsux2GnZOdDF4SvRr0pNJuFSLaT0CiiisD1gooooA/tm/4N3P2x7n4t/ALxP+yx4y1CW68Yfs8mDU/BFzdSGSfU/hH4mvp/s2nq7l5pX8DeJXudLLyMkVtoOveFNLs4xFp77f6Mq/zjv+CR37Quu/s5/t9fAHXdNukh0P4k+MNH+CHjq1nkMVne+EvinrWleHmkvJB8yRaB4hfw/4tiIKqbvw9bpKTbtMrf6ONf3l4GcUVOIeCaGExVSVTG8PVv7JqTnrKpg4041cum31UMNL6or+8/qjlK7kpS/5NP2qvgVhPB76T+acQ5Fg6OD4X8YstXiBgsPh7Ro4TiKtiauB4yw0afLFwlic6oviCSjzUY/2/GlRcY0nSpFFFFfsx/mkFfwTf8HCP/KRvxN/2Sb4Wf8Apqvq/vZr+Cb/AIOEf+Ujfib/ALJN8LP/AE1X1fhP0h/+SBo/9lBl3/qNmB/q9+xu/wCUt8z/AOzP8Zf+rzg8/ECiiiv4dP8AqaCiiigAooooAKK+kfh1+xz+1f8AF/whZ+P/AIU/s3/Gz4k+CdQub6zsvFPgX4beLPFWiXd3ply9nqFtBqGiaXewSz2V1G9vcxq5eGVGRwGGK3Lv9g/9uGwz9s/Y3/aptlH8cv7PnxaWM/7sp8JeWw91YivThkuc1KVOvTynM50asI1KVaGAxUqVSnJJxnTqRpOE4STTjKLcWmmm0fD4jxO8NcJjsVleL8Q+BsLmWBxFXB47LsRxZkFHHYPF0JulXwuKwlTMI4jD4ijUjKnVoVqcKtOcXCcYyTR8pUV9D3f7If7WNhn7d+zB+0PZbev2v4K/Em3x9fO8NJj8a5q7/Z3/AGgLDP274GfGKz253fa/hl41t8Y6587RExjvnpWU8szKn/Ey7HQ/x4TER/8ASqaO+hxzwTirfVeMeFsT
+fb2HEGU1r+ns8XK/yPHaK727+FXxQsM/bvhv49stvX7X4P8AENvj6+dpyY/GuZu/D+v2Gft2h6vZbfvfa9NvbbHbnzoExzxzXNOhXp/xKNWH+OnOP/pSR7WHzXK8Xb6rmWAxN7W+r4zD1r32t7OpK9+ljIooIIJBGCOCD1B9DRWR3hRRRQAV9ef8E/P+T7/2L/8As6r9n/8A9Wr4Vr5Dr68/4J+f8n3/ALF//Z1X7P8A/wCrV8K16/D/APyPsk/7G+W/+ptE/PfFz/k1Pid/2b3jT/1m8yP9Nyiiiv8AUE/4SQr8ef8AgvJ/yjF+Ov8A2MHwc/8AVv8Agmv2Gr8ef+C8n/KMX46/9jB8HP8A1b/gmvkPED/kheMv+yYzz/1W4k/or6IX/KVn0bf+z6eFX/rbZIf59tFFFf5rH/bcFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXp/wAIPjT8V/gD440v4k/Bjx/4m+HHjfR2/wBD8QeF9Rlsbl4GdHm0/Ubf57HWNHuzGi6hour2t9pGoxL5N9ZXEJKHzCitaNethq1PEYetVw9ejONSjXo1J0q1KpB3jUp1KbjOE4tJxlGSlFq6aZw5nlmW51l+NyjOcuwObZVmWGrYLMcszPCYfH5fj8HiIOnXwmNwWKp1cNisNXpylTrUK9KpSqQbjOEoto/tf/4Jm/8ABd7wn+0Hqvhr4FftaQaL8OvjJq9xY6F4R+JemR/YPh58StYuZEtLLS9ZsmLJ4E8YapM8SWoE0nhPXb+SWCyk8N3U2laFe/0c1/k0KzIyujFWUhlZSVZWU5DKRggggEEEEEZFf3cf8EOf+Cjd7+1x8H7z4FfFrW5tS/aA+B2i2bPrOoStNqHxJ+GCT2+laR4tu7hyZLrxD4bu7iw8NeLrmbdNfvc+HteuLm81HXNT+y/194M+LmLz7Ew4U4oxEa2ZSpN5RmlRKFXHqjByqYLGNWjPGRpRdShiOWMsTCnUhWcs
+SoTr/wDOb+0t/Z4cO+E+TYnx/wDAjJ6uW8E08bTh4i8C4WVXEYLhOWY4inQwfE3DdOfPWw3DtbHVoYPNspdWpSyXEYrB4jLIUclliMPlP7v0UUV/Sp/iOfyAf8HGf7En/CP+KfCn7b3gLSNuk+MpNM+HnxvisoPktPFdjZmDwJ42uxGrME1/RbJvCOq3kvk2tvfaD4XizLf685f+Wav9Tn4/fBPwT+0f8GPiR8DfiJZ/bPCHxL8Laj4a1Qokb3Wny3KLNpeu6b5oaOPWPDmsQWGvaNO6stvqum2c5VhHtP8AmUftBfBDxt+zb8afiT8DPiJafZfF3w08U6h4b1J0jkjtdTggZZ9I1/TRKBI+j+JNGuNP1/RpnAebS9StJWVWcqP4l8fOCv7D4hhxLgqXLlvEc5yxKhG0MPnMI82JTtolj6a+uQu+addY12UYRP8AqD/ZH/Sc/wCIp+DuJ8EuJ8w9txv4M4fD0ckeIq82Jzjw1xNX2GTVIKT5qr4Txcv9XMQoRVLCZVU4Yg5TrYiozx2iiivwE/11CiiigAr+mz/g29/a0/4Qz4t/ET9kLxRqflaD8XbOf4ifDSG4mxDb/EbwlpgTxVpVnGWA+0eKvA1kmpzOchR4AhijAkuyH/mTr0n4O/FTxZ8Dvit8O/jD4FvPsXi74aeMNB8Z6DMWcQyX2g6jBfrZXqxspn03UY4ZNP1O1YmO80+6urWZWimdT9VwVxLW4S4oyjPqTk6eDxUVjKcN6+Arp0cbRS2cp4apUdLmuo1o052vBH4J9J7wTy76Q3gV4i+E+OVCGL4kyKtPh3G10uTK+LcrnDNOF8ydRJ1KdHD51hMHHHeycJ18tq43COSp4iaf+qfRXlPwM+MHhP8AaA+Dnw0+Nfgafz/CvxO8G6F4w0lWkSWeyTWLKK4utIvjHhU1TRL43Oj6rBgNb6lY3du6q8TKPVq/0poV6OJoUcTh6ka1DEUqdehVg7wq0asFUp1IPrGcJRlF
+9U0z/iRzXK8xyPNMyyTN8HXy7Nsnx+MyvNMvxUHTxOBzHL8RUwmNweIpvWnXw2Jo1aFaD1jUhKL2CiiitTgCiiigAoor89/+Cov7Vy/sd/sXfFr4oabqC2Hj7W9OHw3+FO2QR3R+IfjaC60/TNSsskB7jwnpUes+NmiY7ZYPDU0PzNIqN5+a5nhcmyzMM2xs/Z4TLcHiMbiJaX9lh6UqsoxTa5qk1HkpwWs5yjGN20j6/wAP+CM+8S+OOEfD7hfDfW+IeNOIso4ayei+b2f17OMbRwVGriJxjJ0sJh3W+sYzESXJhsLSrV6jjTpykv40v+C0H7WH/DVH7cXxBbQ9T+3/AA3+Cu/4M+APIm8yxu18K313/wAJl4ht9hNvcf2941n1trPUoQTf+HbHw8DJJHbQ7fycpzszszuzO7sWd3JZmZiSzMxJLMxJJJJJJJJzTa/zMz3OMVxBnOZ51jZXxWZ4yvi6qu3Gn7WbcKMG9fZUKfJRpL7NOnGOyP8AuK8KvDnIfCLw24I8MuGafJkfA/DWVcO4GbhGnVxf9n4WFLE5liowvF43NcX9YzLH1E37XG4uvVbbm2FFFFeUffhRRRQB0XhDwl4i8e+LPDHgbwhpV1rvivxl4g0fwt4Z0WyUPeavr+v6hb6VpGm2qkgGe9v7u3togzKu+QFmVckf6Zv7FH7MPh39jz9mT4U/AHQPstxceDvD0Uvi7WrWMoPE3j7WWbVfGniEs6LO8F/r11eLpUdyXmsdDg0vS95isYgv8qP/AAbsfsaf8LR+Ofib9rTxlpXn+CvgMH8PfD/7XDvtNW+L3iLTSJ72HerwT/8ACB+Er576WN1WW11rxT4V1O0kE2ntt/tXr+xvo8cHf2flGM4vxlK2KzhywWWc696nleHqr29aN7NfXcZT5bNfwsHSnBuNZ3/5tf2x30kP9bvELh76OvDeP9pkHhsqPEvHH1erejjeOs3wLeVZdW5XKFT/AFY4dxjqXjL3cdxJ
+j8JiIRxGXR5Siiiv6SP8UQr+U7/g6B/5Fz9jD/sN/Hn/ANIPhHX9WNfynf8AB0D/AMi5+xh/2G/jz/6QfCOvyzxr/wCTY8Uf4Mp/9XuVn96fsxf+U5fAr/sK4/8A/XV8cn8jFFFFf59H/YIFFFFABRRRQAUVZtrO7vH8uztbm7k4+S2glnfnp8sSu3Pbiussfhr8RdTCnTfAPjXUA33TY+Fdduw3+6YLCTP4ZrSFKrU/h06lT/BCU/8A0lM5MTj8Dg1fGY3CYVb3xOJo0Fbe96s4LY4qivY7H9nX9oLU8f2b8CvjHqGen2H4Y+NrvOemPs+iSZz7V19j+xp+1/qZUab+yn+0lqBb7osfgZ8T7st/uiDwvJn8M11wyrM6n8PLsfUvtyYPETv/AOA02fP4njzgbBX+ucZ8J4Tl+L6zxFk9C3r7XGQt8z5tor7Bsv8Agnt+3jqGPs/7GX7UahsYa7+BHxNsFIPQ7r/w1bLg+ucY5ziuwsv+CX3/AAULv9vkfsffHWPdjH23wRqGm4z/AHv7RFrt992Md8V1w4b4iqfw8gzqpfbkyvHSvfb4aD3PncV41+DWCv8AXPFrwywlt/rXHnCtC3r7XNYWPg6iv0fsf+CRH/BSTUMfZ/2SviPHngfbrnwnpnX1/tLxHabfctgDvXX2P/BFH/gp9qBAt/2V9Yjz0+3fEr4LaYPxOpfEi0C/8CxXXDgvjGp/D4T4lqX25MizSd//AAHCs+exX0mPo34K/wBd+kD4I4Tl+L614rcB4e3r7XPoW+Z+WNFfr5Zf8EIv+Cn91t8/9n3SNNz1+2/GX4Jybf8Ae/s74g3/AE/2d3tmuwsv+Df3/gpLdBTP8P8A4c6bnqL34seEZCv+9/Z1zfjj/ZLe2a64eHvHdT4eDuJl/jyXMKX/AKcw8D57FfTE+ihhL+1+kj4ITt/0C+JvCGN27fUs2xF/le/Q/FOiv3asf+Ddn/goZdgG4/4UXpmeovviZfyFfc/2
+b4R1Af8AfJY8dOldfY/8G2n7eV0R9o+IP7L2mA9ftnj74lylfUY0/wCDt6CfQbgP9oda7IeGHiDU+HhHOlf+fCOn9/tHC3zPnsT9Or6H2Ev7X6RHhjO2/wBWz+njfu+p06/N/wBu3P7e9D/5Auj/APYL0/8A9JIa1Kp6dbvZ6fYWkhVpLWztbeRkJKM8ECROULKrFSykqWVSRjKg8Vcr/RqCahBPRqMU15pK5/xe4iSniK8ou8ZVqkotbNOcmn807hRRXnXxd+Kngz4HfC/x78X/AIh6kdJ8E/DjwtrHi7xJfJH51wum6NZyXclvY225GvNTvnRLHS7CNhNf6jc2tnDmWdAZrVqWHpVa9epCjRoU51q1WpJQp0qVOLnUqTnJpRhCEXKUm0oxTbdkbZdl2PzfMMBlOV4PEZhmeaYzC5dl2AwdKeIxeOx+Nrww2DweFoU1KpWxGJxFWnRoUqcZTqVZxhFOUkj89P8Agqz/AMFG9A/YB+CKTaD9h1r4/fE631XSPhD4YuVS4tNNktI4YtW+IPiW3JwfD3hU3tq1tYPiTxHrs9jpESrYLrWo6V/nteL/ABf4n8f+KfEPjfxrrup+KPF3izWNQ8QeJPEWs3Ul7quta1qtzJeahqN/dSkvNc3VzLJLIxIALbUVUVVH0r+29+194/8A23/2hvGPx08d77CDUnXRPAvhJLhrmx8C+ANLnuT4d8LWchVFnlgW5uNS1q/SKBdW8Ralq+qLb2qXiWsHyPX+fXin4g4jjrP6k6FSpHIMtnUoZNhmnBThdRq5hWg7P6xjHFTSmlKhh/ZULKUakqn/AGB/QK+iBk/0U/CTB0M0wWDr+LnGmFwea+JOeQlTxM8PiXGVbA8IZbioJxWT8NwrOhUlQnOnmebyx+aOpKhWwNDCFFFFfmB/dIUUUUAFFFfRv7M37Jnx/wD2vvHkXw8+AXw71jxtrEZtpNc1SNFsfCvhHT7mR0TVvF/ie8MWkaBYERTmAXly
+L3U5IJLTR7PUdQMdpJ0YTB4vH4mjg8Dhq+MxeImqdDDYalOvXrVJbQp0qcZTnJ72inom3omeNxDxFkHCWSZlxJxTnWVcOcPZNhZ43Ns7zvH4XK8qy3CU7KeIxuPxtWjhcNRi5Rjz1asIucowTcpRT+cqK/tP/ZH/AODcv4B/D+x0/wAR/tb+LNR+OfjJokluvAvhHUta8F/CvSpmUFrZ9U0+TSvHviyS2lUPBqR1HwfYzIzwXfhudQJG/aj4Y/sS/sg/BqzWz+Gf7NPwV8KHyxDJqNp8PPDV5r11EuNsd/4l1SwvvEOoqpGVF/qdztYswwzMT+75F9Hfi7MqNPEZvjcuyGFSPN9WqOpj8fTTSa9rRw7hhYNpr3frzqRd1OEJKx/lD4r/ALZH6O/BWZ4zJ/DzhjjPxaxGDqOk85wUcJwlwnipxk4TWBzLOY4jPcQoSjJe3fC9PCVlyVMLicRSmqi/zCKK/wBVmT4UfC2W2lspfhr4Aks50Mc9pJ4O8OvbTRnrHLA2nGKRDgZV0ZTjkV8ufFr/AIJq/sG/GvSr3S/HH7K3wajlvwxl1/wZ4O0z4ceLkmIbZOni74fxeGvETNE58xYp9RmtZGG24t5oy8be5i/o0ZtCk5YHinLsTWUW1TxWXYnBU3LonWpYjHSSfWXsXb+Vn5bw9+2+8PcVj6VLirwG4xyTLJVYRq43IeMcl4mxtOi2lUqxy7MMo4Uo1JwV3Gk8ypqdre1he6/zSaK/pn/b6/4N6/GXwq0TXvir+xpr+vfFbwppEF1qusfBvxMkF18T9NsId088ngjVdLs7Ox8ex2sPmMnh+fTtK8UfZ7eODTZPFuq3Igr+ZyaGa3mlt7iKSC4gkkhngmjaKaGaJiksUsThXjkjdWSSN1DIwKsAQRX4TxRwhxBwdjlgM/wE8JUqKU8PWjKNbCYunFpOphcTTbp1VG8eeF41qTlGNanTk1E/1b8CvpFeEX0kOFJcXeEvFmG4hwWFqUsP
+nOWVaVXL+IOHcbWhKdPBZ9kmLjDGYCpUVOqsNieSrl2YKjWqZbjcZRpyqqOiiivmj9uCiiigAr+rT/g3E/bTmtNY8afsQ+Otad7HVYtS+JfwNS9nytrqlojXPxH8Fad5hZ9mo2Kx+OdN0+ARW1vLpfjbUH3XOpfN/KXXqXwR+Lfiv4C/F/4bfGfwRdSWnin4Z+MtB8Y6QySvCl1Lo1/DdT6XdsgPmabrFmtxpOqW7q8V3pt7dWs0ckMzo313AvFNfg7ijK88pObo0Kyo5hRjf/aMtxDVPGUeXaUlSftqCldRxNKjUs3BH87fSs8Bsq+kj4E8d+FePp4eOZ5plk8x4QzGvGP/AAjcaZRGeM4bzGNVrmoUZY2Ky7M5UnCpWybH5lhOdQxMz/VGorifhp8QPDnxY+HXgT4oeD7sX3hT4i+D/Dfjfw5d5XdPoninR7PWtMeQIzqk32S9iE8e4mKYPG2GQiu2r/SelVp1qdOtSnGpSqwhVpVINShOnUipQnFrRxlFqUWtGmmf8TWNwWLy3G4vLsfh62Dx+AxWIwWNwmIhKlXwuLwtWdDE4evTklKnWoVqc6VWEkpQnGUWroKKKKs5QooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigD5a/aU/Yh/ZA/bE0U6F+1D+zZ8GvjlapbNaWV/8AEHwHoOt+JNFhbcCfDfi+SzTxX4Xnw8gW68O61pl0qySKswDuD/M1+15/wZo/8E//AIuRaprf7KHxR+LX7JPiufz5bDw9fXb/ABz+EcLnMkVv/YXjPVNN+JdsJJP3Juz8WL+G1gYPHpNw8Xly/wBhVFAH+SX+2L/was/8FZ/2Vhq2u+C/hd4d/a1+H+nCe4XxJ+zdrcviLxUlkm54BefCTxHZ+HPiTd6rLGp87T/Beg+NraCUGJNTuA0Ukn87vizwh4s8BeItW8H+OvC/iLwX4t0C7ew13wv4s0TUvDni
+LRb6MAyWWraJrFtZ6np13GGUvbXlrDMoILIMiv8AfWr5F/as/YH/AGMv24fDv/CM/tX/ALNvwp+NtpFaSWWnax4t8M2y+NfD9tLv8xfCfxD0g6Z498IO5kctN4Y8SaTMxY7pDmgD/DBor/SE/bL/AODK/wDZr8cQ6z4l/Yc/aL8d/ArxHIs91p3w1+NFsnxW+GM1yd32fSNP8XaZHonxG8I6Zyhk1PWR8VdRQq+LWYSqIf49P23f+CFH/BT/APYEfWtW+NH7M3ivxP8ADTRfPml+NfwVjm+LfwpOmW4YvrWq614YtZdc8DaYxRlR/iX4c8FXbEL/AKIBLCZAD8hqKKKACiiigAooooAKKKKACvp39l79tH9q79ivxovxA/ZV+P3xN+BviZ5beTUZPA3iS7sdD8RJaktb2njDwjcm78I+NdMif510nxboetaYXCu1oWVSPmKigD+8z/gnx/weh+LtF/sTwD/wUm+B8XjLT1+z2Mv7Qf7PVjY6N4pjX5Yv7R8a/B3Vr+08M61K8jm61PVPAfiLwhHZ2kDR6V4A1O6dY2/tm/Y+/wCCgf7Gn7fHg3/hN/2Sf2g/h78ZNPt7WC71rQtD1R9O8e+EkuCixp40+HGvw6V478IO8riKFvEPh7TobtwWspbmLbI3+GbXcfDf4m/Ef4O+NNC+I/wl8feMvhj8QfDF2t/4c8b/AA/8Taz4P8WaFeLwLnSfEGgXmn6rYSlSUd7a6jLxs0b7kZlIB/vgUV/maf8ABOz/AIPFf2svgZ/YXw+/b28CWf7Wfw2tfs9i/wAUvCqaN4E/aD0SwTbH9pvkhhsPh58TmtLaNI4LTVbDwP4h1G4ea+1vx9qFw53f3X/sGf8ABWX9gn/gpJoEeofsr/Hrw34n8XQaeNR1/wCD3iYnwZ8aPCsSKpu21j4da48GsXun2EjC3ufE3hj/AISLwe85CWfiK6DKzAH6OUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUVj
+eI/Efh7wfoGteK/FuvaL4W8LeG9Lvtb8ReJfEeqWOiaBoOi6ZbyXmpavrWsanPa6dpel6faRS3V9f31zBaWlvFJPPLHEjMP4Xf8AgsB/wd5aB4JufE/wA/4JXx6P408SW/2zRfEf7XnivR11HwXot4he3uB8D/BWrwfZvGt3bS5EHj7xpZP4NaW3kfQ/CfjLSb2w8RRgH9V3/BQT/gqX+xT/AMEyfh+njf8Aas+Len+HNY1WyuLvwR8JvDSQ+JvjH8R3tzJGY/BvgO2uoLyWw+0xmzuPFOvXGg+CdKu3ht9a8TabJPCsn+dN/wAFSv8Ag6k/bd/bjPiL4Xfs2zan+xl+zhfm60+XTvAviCaT45+PdIk3wN/wnHxV09LC68O2Go24D3HhL4cxaFbxw3V5ouveJPGunlZm/m3+L3xk+K/x/wDiJ4m+Lfxu+IvjH4rfEzxjfNqPibxz481/UfEviTWLogJGLnU9TnuJ1tbSFUtNOsIWisNMsYYLDT7a2sreGCPzWgCSaaW4lluLiWSeeeR5pppnaWWaWVi8kssjlnkkkdmd3dizsSzEkk1HRRQAUUUUAFFFFABRRRQAUUV0HhXwn4q8d+JNF8HeCPDXiDxl4u8Sahb6T4d8K+FdG1HxD4k1/Vbt/LtdM0XQ9ItrzU9U1C5chLeysbWe5mc7Y42PFAHP10/gvwT4z+JHinQ/A3w88I+J/HvjbxPfxaX4b8HeC9A1XxT4p8Q6nOGMOnaH4e0O0vtW1a/mCsYrOwtLi4kCtsjODX9fn/BNj/gz5/ao/aHsPD3xQ/by8bTfsifDPUvs2oRfCbRLHT/E/wC0brulyBJRHq1tdPN4M+Ecl5bypJbt4iPjLxXptxFPY+Ifh3pU6qa/vM/YQ/4JY/sL/wDBN3wovh79lH4EeGfBuvXdglh4m+Kutx/8JZ8Y/GiDY8//AAk3xI1tbjX5LC5uUN5/wjWjzaP4OsLl3bSPDmmxsIwAf55f7Av/AAaM
+f8FDv2npdF8X/tQ3OhfsSfCe8+z3c0HjiCHxp8c9V0+QrJt0r4T6Fqlta+G5pEWW2uU+JHi3whrelTNFcf8ACLarFuhb+2v9gj/g3S/4JefsBy6L4q8KfBRPjr8Y9H8i4i+M/wC0bJp3xJ8SWOpQ7ZE1Dwp4Vl0zT/hv4JurS58yTTNV8OeDbTxTaQukFz4kv2jEzfulRQAAADAGAOAB0A9KKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigD+Jf/g5Y8GyaV+2H8HfGyIy2njD9nrStKZjkrJqvhHx/wCOjeMhPA26b4h0RGQcArvPMhr+c+v7O/8Ag5b+CR8S/s+/Av49WFqZb34V/EfVfA2tyxId8fhn4n6RHdw3t24GGtrDxH4I0nT7cOSY7nxGwjGJ5jX8Ylf59eNGWzy3xG4gUo8tPHzwuZUJf8/IYvCUXVkvTFwxNN+cGf8AYF+zL43wvG30MPCJ0qyq43hPD59wRm1K6bwuK4fz/MYYGjJpvWpw/iclxkU7OMMVGNtLsooor8sP72CiiigDo/B/i/xL8P8AxZ4Z8deDNZvfDvi7wdr2k+J/DGvabIIr/Rte0K+g1LSdTs5GVlW4sr62guIt6PGWjCyI6FlP9s/7CX/Bfb9nT4z+F/D3gz9qvWLL4DfGa0s7TT9T8Uana3CfCLxtqCAQNq+na9ardr4GuLwI17qOl+Ll0/QtNd/K0/xLfqy28H8OtFfccEeIPEHAeLrV8nq0auFxfJ9dy3GQnUweK9ndQqOMJ06tGvTUpKFajUhKz5aiq01yH8sfSi+h94P/AEs+HsuyrxHwWY4DPMg+sy4Y404bxGHwXEmR/W+SWJwkauKwuNwWY5Ti6lGjPFZZmOExFLmp+2wVTA4t/Wl/q9eGfFXhjxroen+J/BviPQfFvhrVoBc6V4h8M6xp+vaHqdsxIW40
+/VtKuLuwvYCQQJba4ljJBAat6v8ALJ+En7Q3x3+AmotqvwV+MPxJ+Fl5LOlxdf8ACDeMte8OWmoyIFUDVtO02+g07V4SqKr2+qWt3byIqrJEyqAP1r+DP/Bwj+3/APDQWll451L4a/HXSYNkUv8AwsDwXBoviA2qYAS2174d3Pg5DdhQF+3azpWuSvlnuEuJW8yv6UyT6R/DeKjTp57lGZ5TWaSnVwjpZlg09pSbvhcXCL3UI4Wu0tHKTV3/AImeKH7FnxryGrisX4U+InBPiFlsJTnh8vz+GO4I4knTd5U6FOnKGecP4irBfu516+eZXTqNKrGhSU3Spf3l0V/Mr8G/+DmL4Ea99lsvjt+z98SPhxdvshm1j4e65oXxL0NZeA93c2mrr4A1qwtD8zm3s7fxBdQgrGpuuZK/WH4Nf8FWP+CfXx0+yQeC/wBp/wCHOl6td7Ej0D4jXt38K9aN0+ALG3tviJaeGodUuwx2qmjXOpRzEE28sy/NX6vk/iNwPn3Ist4myqpVnbkw+JxH9n4qTf2Y4XHxw2Im1ezUKcj/AD+8R/oYfSm8J/rFTjbwO49wmBwvM8RnGS5T/rdkNGEb/vK+fcI1c8yjDwkleLxGMpNrSykml+Mv/BwT+wr8Y/jf8WPgD8Y/2fPgz48+KfiDU/BPirwB8R1+H/hjUNfk0u28I6vpms+CL7Wk0y3lMM2pp4w8U2MF5dENLbaHBahzHaQon8/1t/wS7/4KG3WPK/Y++OS5/wCfnwZeWf5/azBj8cV/pM2GoWGq2VtqOl3tpqWn3sS3Fnf2FzDeWV3A4yk1tdW7yQTxOOVkikdGHIY1br4PifwL4d4qz/MOIa2bZng6mZ1KVerhsFHB/V41I4ejRnUpyq0akm8RKm69Rtu9WrNrRpH9X+Bf7Vbxk8BPCXg7wfy3w/4H4lwfA2Ex+V4LOeJq/Eizerg6+cZjmOGweKo4HM8Hh4QymjjY5ThIU6cHDBYLDQmnUjOU
+v83i3/4JMf8ABR25x5f7I3xVXOMfaLTRbTr6/atYhx75xjvW5b/8Ed/+Cll1gRfsneOVzwPtGu+ALPr6m78XwAfU4A71/o10V48fo28JL4884jl/hqZZD88umfpVb9th9IWV/q/hb4M0u3tsHxvXt68nGOHv+B/nY2//AARU/wCCnl1jyv2VtcXcMj7R8Rvg1afn9r+I0G0+zYNb1v8A8ENP+Co9xgn9mNYFOPmuPjN8AEx9UX4qPKMd8pmv9DCito/Rv4JXx5txTL/DjMpivxyWT/E8ut+2q+k/K/sPD7wGpL/p5w54g1pL0a8TKMb+sWvI/wA/nRf+CFv/AAVI07UdP1aw+Cej6JqemXtrqOn3w+M/wgS5sb6xnjubS7glsfG900c9vcRxzQyISySIrDBAr++XwjN4gufCnhi48W2cWneKrjw9os3ibT4Jre4hsfEEum2z6zZw3Fo8tpPFa6k1zBHNaySW8qIHgd4mVj0NFfofA/hvkfADzF5Li83rrNFhViYZlicLXgng3X9lOlHDYLCcs7YmpGblz8y5Ukra/wAdfSm+mn4pfS7hwZHxN4f8PcqqcCVM9lkmJ4LyXPMrxM6fEUcpWYYbH1c44m4g9vh1LJsFUw9OmqDpVFVk5T9o0iiiiv0A/kIK/gm/4OEf+Ujfib/sk3ws/wDTVfV/ezX8E3/Bwj/ykb8Tf9km+Fn/AKar6vwn6Q//ACQNH/soMu/9RswP9Xv2N3/KW+Z/9mf4y/8AV5wefiBRRRX8On/U0FFFFABRRRQB/fp/wQD/AOUa3w0/7H74t/8AqcalX7SV+Lf/AAQD/wCUa3w0/wCx++Lf/qcalX7SV/pN4d/8kHwd/wBk3k//AKg0T/ic+mV/yll9I/8A7PT4i/8ArUZkFFFFfZH81BRRRQBRutL0y+BF7p1jeA5BF1aW9wCD1B86N857+tczd/Df4d3+ft/gLwXe7vvfa/C2h3O76+dYvn8a7Sis50qVT+JS
+pz/xwjL/ANKTOzD5hj8Jb6rjsZhrbfV8TWo29PZzjb5Hk118A/gVfZ+2/Bb4S3m7O77V8OfB9xuz1z52jPnPfPWuau/2UP2Wr/P279mr4A3u7r9r+Dnw7uM/XzvDj5/GvfqK5p5bl1T+JgMFP/HhaEv/AEqmz2qHGvGWFt9V4t4mw1tvYZ9mtG3p7PFxt8j5bu/2HP2Kb/P279j/APZbvN3X7V+z/wDCe4z3583wk+eefrVbQv2E/wBirwt4k0Dxj4X/AGTf2dfDHivwtrWmeI/DfiHw38HfAOg6voWvaLew6lpGsaTf6ToVncWOo6bf21veWV3bvHNb3EMcsTK6Aj6torD+w8k5oz/sfK+eElKE/wCz8JzRlFpxlGXsbxkmk00000mndHrLxT8TlQq4ZeI3Hiw1elUoV8OuL+IPYVqFWDp1aNWl/aPs6lKpTlKFSnOLhODcZRcW0FFFFeofBhX48/8ABeT/AJRi/HX/ALGD4Of+rf8ABNfsNX48/wDBeT/lGL8df+xg+Dn/AKt/wTXyHiB/yQvGX/ZMZ5/6rcSf0V9EL/lKz6Nv/Z9PCr/1tskP8+2iiiv81j/tuCiiigAooooA/aT/AIIQ/A74Q/tA/to+JPA/xr+Hfhb4neELX4C+OPENv4d8X6ZDq2lQ65YeLvh3Z2WqR2s3yLeW1rqV/BDMPmSK7nUcOa/sCP8AwS9/4J5kEH9j74F4Ixx4JsAfwIwQfcEGv5Uv+DcH/k/vxX/2bZ8Q/wD1N/hbX9z9f2p4D5JkuP4DhiMflGV42v8A2xmMPb4vAYTE1uSKw/LD2lalOfLG75Y81ld2WrP+Yr9rB4o+JnCX0ssTlPCniJx1wzlUfDrgzErLOHuLs/yXL1iazzX22IWCy3MMNhlXq8kPa1VS9pU5I88nyq358XH/AASk/wCCdF1nzP2RPhAuf+ffR720/L7JqMOPwxWDc/8ABIH/AIJsXefN/ZM+HyZ/59tR8aWXX0+x+KIM
+fh07V+ktFfsUuEOE5/Hwxw7P/FkuWy/PDM/zfo/SJ+kDh7fV/HTxjoW29j4m8a0renJncbfI/KrXP+CJX/BMXXrcwzfsw6dpr8mO60P4k/GHR7iJm43AWXxBjt5cdkubeeIdRHnBr5D+Kn/Bt9+xV4uiuLj4aeOfjT8I9UZGW1gi1/RfHXheFyp2yT6T4l0ZfEdyVbadsfjS1UpuUgMyun9CNFebjfDngPMIOniOEcgSkrOeFy3DYGt20r4GGHrKy2aqJrofccM/TQ+llwjiqeLyb6RHi3OdKXNChnnGuc8VZendP3sq4pxOc5ZOLa1hPCSjLW8Xd3/zm/8AgoD/AMErv2h/+Cf99Z634wOnfET4Oa7qQ0rw58X/AAjbXVvpP9pypcTW2g+LtEu3mvvB/iG5traW5tbWe51LRtRiSWPR/EGp3NpqFvZ/mXX+oB+2X8IPDPx6/ZV+P3wn8Wwo+keLfhb4thiuHiWd9K1vS9Kn1rw1r1vG/wArXfh/xFpul61aqSA1xYxqx2s1f5f9fx14xeH+B4EzvA/2ROq8pznD16+FoV6jq1cHXwtSnDE4ZVZfvKtCKrUKlGdW9W1SVOc6kqftJ/8ASJ+zd+l7xV9K7wv4ofiHhsAvEHw3zjK8pzzNsqwkcBgOI8szvBYnE5LnVTAUksLgM1q1ctzbC5nhMBGngObC0MZhcPg6eMWCwxRRRX5Af6MhRRRQAV+l/wDwR/8AjXcfA3/gol+zXrKxXVzpvj/xtb/BXWrK1k8s3Vt8YF/4QXSZZ/mCvbaR4q1fw94gnjYNvTR8IPM2Mv5oV9HfsdW2s3v7XX7LFn4cnS28Q3f7R3wPttBuZMiO31mf4m+GItLnchkISK+eCRsOp2qfmXqPb4axdfAcRZFjcM5LEYXOMtr0eVJtzpYyjOMeV6SUmuVxl7sk3GWjZ+YeNvD2V8W+DfitwxncKM8pz7w541yrMPbylClDC43hzMaFStKpD36LoKft4V6d
+qtCdONWk1UhFr/UKooor/T0/4Vgr+Wz/AIOM/wBiT/hI/CPhT9t3wHpG/WfBEem/D342x2UHz3ng+/vTB4G8aXSxqoaTw7rt83hTVLuTz7q4sPEHhtCYtP8AD7lP6k6474h+AfCfxU8CeMfhp470i317wZ498Na14S8UaPdD9zqOh6/YT6bqNtuHzwyPbXEhguYis9rOI7iB45oo3X5TjbhbDcY8NZnkOI5YTxNH2mCxElf6pmFG9TB4hWTkoxqpQrKNpVMPOtSulUZ+/fRh8d87+jd428EeLGT+3r4bI8xjheJspoTUP7f4QzO2E4jyeUZyjRlWr5fOeIy2dfmpYTOMLl2PcXPCQt/lMUV9P/tlfsxeLP2PP2kfif8AADxZ9ouX8Ga7KfDOuzQ+UnivwPqqjUvB3iiDYogJ1bQri0k1CC3eWPTtZj1LSHkNxp86r8wV/m5jcHicuxmKwGNoyw+LwWIrYXFUJq06VfD1JUqtOXS8ZxkrptO102mmf9r3DHEmScZcOZDxbw1mFDNuHeJsny3PsjzPDScsPmGU5thKOOwGLpNpSUK+Fr0qijJRnHm5ZxjJOKKKKK5T3AooooA/sR/4Nt/2tP8AhJfh58TP2OfFOp79W+HNzcfFT4WQ3E2ZJfBHiPUYLXxzodmhIVLbw94xvbDX0RQ8s83jrUpCRDZ4X+oev8xT9iD9pjWP2Qv2pfg98fNMa6ksPBvim2j8Y6bakmTXPAGuI+ieONGWIkRTXN14bv8AUH0vz1kjttZh02/CGW0iK/6a2g65o/ijQ9G8S+HtRtdX0DxDpWna5oerWMgmstU0fVrOG/0zUbOYcS2t7ZXEFzbyDh4pUYcGv7k8A+K/7d4ReS4mpzY/hmpDBpSledTK66nPLp69KPJXwSjFNQpYWi27zR/yu/tbfo//APEK/pDx8S8lwP1fhLxvweI4ilKjT5cPheOsreGwnGOF91NKeZPEZXxNOpUkp4nG55mSpx5MLK2r
+RRRX7of5UhRRRQAV/Ef/AMHFf7WH/C0/2lfCn7M/hnU/P8Ifs8aP9u8VR20262vfir44s7LUb+Kbyy0N0fC3hIaDp1u5Jm07VdX8Vae6xSCZT/X/APtLfHTwz+zN8A/ix8efF5RtE+GHgvV/ErWbzCBtZ1aGIWvhzw5bzMCsd74m8RXWleHrBmwovdTt9xC5I/zCPiF478T/ABR8eeNPiV411F9X8X+P/FOv+MvE+pyZDX2veJdUutY1W5Clm8tJb27maKEMVhjKRJhEUD+cPpE8VfUMjwHCuGqWxOd1VjMeovWOWYKonSpzWjSxWOjCUGtHHBVoSVpH+037GnwC/wBbPFLizx9zvBe0yXwwwM+G+E6lanenX444mwc6eYYrDzalCVTIOFauIpYinJRlCpxRluJpS5qLtx9FFFfxsf8ASkFFFFABXQeE/CviHx14p8N+CfCWlXeu+KvF+vaR4Y8NaJYJ5t7q+va9qFvpekaZaR5Ae5vr+6t7aFSQDJKuSBkjn6/pJ/4N2f2Lf+Fn/GnxL+15410nz/BPwMkl8NfDhbuDfa6x8Xdc00G81KHerwzr4B8Kah9qZJEV7fXPFXhrU7KVbjSpNn0vCHDeK4u4jyvIMLzReOxEViK0Vf6rgqSdXGYp3XL+5w8KkoRk0qlX2dJPmmj8S+kZ42ZF9HjwY478W8+9lWhwvk9WeT5ZVqezeecS46UcDw5kdNxaq2zLN8RhKOJqUYznhMD9bx0oulhajX9UH7EH7L3h/wDY5/Zg+FPwC0MWtxfeE9AiuvGetWqbV8S/EHXGOq+NNeMjos8ttda5c3VvpC3Jeay0C00nTN5isYgPq+iiv9KMBgcLlmCwmXYKlGhg8DhqOEwtGPw0qGHpxpUoLvywik29W7ttttn/ABJ8V8T55xtxPxDxjxNj6uacRcU51mfEOeZjXd6uNzbOMZWx+PxM+kfa4mvUmoRShTi1CCjCMUiiiius8AK/lO/4Ogf+Rc/Y
+w/7Dfx5/9IPhHX9WNfynf8HQP/IufsYf9hv48/8ApB8I6/LPGv8A5NjxR/gyn/1e5Wf3p+zF/wCU5fAr/sK4/wD/AF1fHJ/IxRRRX+fR/wBggUUUUAFFFFAH9kf/AAbHf8kN/ag/7Kv4N/8AUQuK/p1r+Yr/AINjv+SG/tQf9lX8G/8AqIXFf061/ob4Pf8AJteFf+wTF/8Aqzxp/wAc37SH/lNrx7/7H/D3/rDcLBRRRX6WfxAFFFFABRRRQAUUUUAFFFFABRRRQAV/M7/wciftVnwV8F/hv+yZ4b1Hytd+MuqJ4/8AiFBBLiWH4ceCdRX/AIR3TbyLIb7P4o8dwxajayruG/wBewSALMN39MVf50H/AAWK+ODfHb/gof8AtDa1bXpvNA8A+JIPg54aUSmaC1sfhfaR+GdaS0kyUe1vvGlt4p1mNov3TnVHeMurCR/xfx34jnkfA1fB4epyYriHE08oi4u044OUJ18wkujhUoUlg6i/lxmi6r/TP9lB4M4XxU+lVlPEWcYVYnIfB/JMV4h1IVafPh63EdDFYTKeEcPOX2MRhc1zCXEeEeidXh1ptq8ZfmNRRRX8Hn/WKFFFFABRRRQB9ufsCfsP/EX9vX4+aR8IfBcraF4b0+BPEfxO8fT2xubDwN4Jt7uC3vNQEJaJNQ17Uppo9M8M6IJo31PVJhLcS2mj2Or6lYf6H37NP7MfwZ/ZJ+FWhfB/4IeEbPwv4W0iOOW+utsU/iDxZrjQRQ33inxfrIiiuNc8RamYUa5vJwkNtAkGm6Xa6fpFlYafa/EP/BHf9iWy/Y0/ZG8LjXdOji+MXxptdI+JvxWvJIPLvtPm1PTln8J+BJGdRKkHgfQr37Ld2zNJEvirUvFN5bube+iVP1cr+8/B3w6wvCORYfNcdhoviTN8PCvi6tWKlVy/C1kqlHLaLavScabhPG8tpVMS5U5ynToUeX/ky/aQ/TKzz6RHitnPAXCud16fgp4eZviMpyDL
+8FWnSwPF+e5bOeFzPjTM4wko5hCri44nDcMKvz0cHksKeMw9HDY3NcydQooor9lP81AooooAK/lM/wCC+H/BMvwba+EPEP7d3wV0eHw9r2manpn/AAv/AMJaTZLHpXiS11/U7fSLf4pWVrbACw8RW2sX+n2vjQQQNa67aX3/AAlN2bPU9N1y917+rOuG+J3w78L/ABd+HHjv4WeNbIaj4R+IvhHxD4K8SWRCb5tG8S6VdaRfiB3VxDdR2928tpcBS9tdJDcRkSRKw+S424TwPGXDuPybGUaUq1SjVqZbiZx9/A5lCnL6piqc178FGo1GtGLXtsPKrRneE2j+hfovfSB4q+jV4ycI+JXDuYY6hl2EzPA4PjXJsLU/ccUcF4jGUP7fyPF4ab+r151sFGpXyyrWhN5fm1DA5jQcK+GhJf5UFFfuT4R/4N8f+Cgfivxp4j0K80X4ceAfCWjeJ9a0bS/Hvjvx1p6WPijR9K1S6sbbxJpHh/wVF418TwWmsWtumoaba63pWkTvDcQicwIxlX9PPg1/wbJ/DjT/ALLe/H/9pTxh4qkOyS58PfCbwtpHgu0idcFrceJ/FknjS61CB2GHmTwzos/lkpGIpMTD+Hsq8IfETN58tLhvGYOmpuM6+aSo5bTjZtOaji6lOvWhdXjLD0aylG0oc0Wmf9TPH37Rb6HHh5hlVzDxr4d4ixVShCvh8s4Eo5jxtjK3tKcasaE63D2ExuV5fiVGVqlHNsxy+VGopUa3s60XTX8fVekfDf4OfFz4xar/AGH8Jfhf8QvidrG9I203wB4N8Q+L7yJnxtM8GgadfyW6YIZpJxHGiZkdlQFh/oP/AAa/4I9/8E6/gkLW40P9m3wl401m22M+u/FubUfindXM8eNly2k+MrvU/ClnOpAZTpXh3To1kAkWMSANX6NaF4f0HwtpdrofhnRNI8O6JYp5Vjo+habZaRpdnH/zztdP0+G3tLdP9iGFF9q/Usn+jVmdXlnn
+/EeCwa0csPlWGrY6bT3g8RingYU5LrJUK8brTmWp/BfiR+234GwP1jDeEvgxxNxFU96nQzfj3PMu4WwsJLRV1k2RQ4oxOMoykvcpVM2yqs4NSm6U06S/gR+DX/BBv/gor8Wvst1rHw38L/BfRrrYyar8XvGmm6XOIjgu0nhnwlH4x8YWkqDgQan4f09nfC7lXdIv6x/Br/g2R8FWf2W9/aC/aZ8S6+52Pd+HPhB4T0zwvDCVwXii8YeMZfFc19HIcjzD4L0uRFztG4hl/qior9WyfwG8Psr5JYnBY3O60bP2maY2p7Pm6tYbArBUJQ3ShWhWVn7zk1zH8B+JH7WT6YHHf1jD5LxLwx4Y5dX5oPC8B8MYRYt0XpGLzniqpxNm1CulZzxOW4rLpud3TjShL2a8b/Z++Bngr9mr4OeBfgb8OZvEE3gj4d6ZcaR4dbxTrMuv64tjc6nfaq0V5qssUDTpDc6hPFZwxwQW1jYpbWFnBBaW0EKeyUUV+wYfD0MJh6GEw1KFDDYajSw+Ho04qNOjQowjTpUqcVpGFOnGMIxWiikj/OPOc4zTiHN81z/PMfic0zrPMyx2b5vmeNqyrYzMc0zLE1cbj8fi60verYnGYutVxFerL3qlWpOcndsKKKK2PNCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKCAQQRkHgg9CPQ0UUAfhb+3v/wbpf8ABLz9vyXWvFXiv4KJ8CvjHrHn3Evxn/Zyk074beJL7Upt0j6h4r8KxaZqHw38bXV3c+XJqeq+I/Bt34pu4UeC28SWDSGZf4lP2+/+DRj/AIKHfswy614v/ZeudC/bb+E9mbi7hg8D28Xgv456Vp8ZaTbqvwn13VLq18STRo0Vtbr8OPFvi/W9VmWW5/4RbSodsK/6ntFAH+Bd408E+M/hv4p1zwN8Q/CPifwF428MX8ul+JPB3jTQNV8L
+eKfD2pwBTNp2ueHtctLHVtJv4QymWzv7S3uIwy74xkVzFf7d/wC3f/wSx/YX/wCCkXhRvD37V3wI8M+MtetLCSw8M/FXRI/+ET+MfgtDveD/AIRn4kaItvr8dhbXLi8/4RrWJtY8HX9yiNq/hzUo1MZ/gz/4KTf8GfP7VH7PFh4h+KH7B3jab9rv4Z6b9p1CX4Ta1Y2Hhj9o3QtKjDymPSra1eHwZ8XJLO3ieS4bw6fB3ivUriWCx8PfDvVZ2Y0AfxuUVt+JfDPiTwZ4g1nwn4w8P634U8VeHNSu9G8Q+GfEuk3+heINB1ewma3vtK1nRtUt7XUdL1KyuEeC7sb62guraZGimiR1KjEoAKKKKACiiigAooooAK6Dwp4s8VeBPEmi+MvA/ibxB4N8X+G9Qt9X8O+KvCms6j4d8SaBqto4ktNT0XXNIubPU9K1C1kAe3vbG6guYXAaOVW5rn6KAP7CP+CbH/B31+1/+zh/YHw3/bo8OSftifCOz+zWA+Idrcad4Z/aQ8M6bHti8+TXXS28KfFf7JApK2njS30PxVq107T6p8S2A2H+/n9gz/gpp+xd/wAFKPh6/j/9k34yaL43n0y2t5vGPw61Uf8ACN/Fn4eTXBWNbfxv8PtSkXW9MtmuS9pZ+IbNNS8I61cQTjw94i1eKF5R/h/V6f8ABv41/F39nj4jeG/i78C/iT4z+EvxN8IXgvvDnjjwF4g1Hw34i0yXhZoY7/TZ4JJ7C9i3Wup6Xdefpuq2Mk1hqVpd2U80EgB/vU0V/CT/AMEgf+DvPw345n8NfAL/AIKoR6R4H8U3DWmj+HP2ufCeirp/gbXbqTZBAvxu8FaPAYPA99cTY8/x54LsR4K8y5Rta8KeCdJsL3X5/wC5vw34l8OeMvD+i+LfCGv6L4q8K+JNLstb8O+JvDeq2OueH9f0XU7eO707V9F1nTJ7rTtU0zULWWK5sr+xuZ7W6t5I5oJZI3ViAbdFFFABRRRQAUUU
+UAFfD/7e/wDwUR/ZT/4JsfBS/wDjj+1R8RrTwlozC8tPBngzTBBqvxJ+KXiK1gWZfCvw48Ifara71/VXMtuL29lmsPDvh6C5i1LxTrmh6T5l+nxn/wAFp/8AgtL8FP8AgkL8D7LWdUstO+J37S/xLtb6D4G/AlNW+wy6r9mLW178QvHtzaia+0D4Z+HLorDcXMUSan4s1gJ4Y8OvDIut674a/wAmT9tD9t79pX/goD8cvEX7Qn7UnxH1P4g+PdcZrXTbZy1j4T8DeG455p9O8FfD7wxFI+neFPCWkmaT7LplipmvLqW61nW7zVvEGpapq16AfpV/wWA/4L5fta/8FXPFep+E7zUdQ+CH7JWm6oJvBv7OPhLXLhrHWEsrnztO8SfGLXrZLGT4keLA8cF1bWt3bW3g/wAMTRQf8I1oFtqa6jr2sfhJRRQAUUUUAFFFFABRRRQAUUUUAFFen/Bn4K/Fn9on4m+EPgz8Dfh74q+KfxT8e6rHo3hLwP4N0q41jXdZvnR5ZTFbQKUtrGxtYp9Q1bVb2S20rRtLtrvVdWvbLTrS5uov9HL/AIIsf8Gpfwo/ZntvDf7RX/BSHRfCPxz/AGhEks9b8J/AUTQeJvgl8H7hAlxbyeMEZDpPxf8AHlq5VbiG7ivfhpoN0syaXZ+MbmDS/FduAfytf8Eov+Db39uH/gpZL4W+J3iLSJ/2Zf2TdVktb+X44fEjR7ga5430F2DSSfBj4dTS2Gs+NzdxlRY+KdUn8OfD542uJrPxRq19YyaLP/pTf8E7v+CQ37Cv/BMTwhBo37M3wh06Lx7daclj4t+O/jpbPxZ8bfGpMapdf2p41uLK3bQtJvGRZJfCXgmx8L+DllRbhdA+2NNdS/plDDFbxRW9vFHBBBGkMMMKLFFDFEoSOKKNAqRxxoqoiIoVFAVQAAKkoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK
+KKACiiigAooooAKKKKACiiigAooooAKKKKAPnf8Aaz/Z48OftXfs5fFz9n7xRJFa2PxJ8JXmk6fqssH2oeH/ABPaSQ6t4Q8Srb5Vp28O+KdP0jWfIR42uVsmtvMRZmYf5mHxX+Fvjf4JfErxt8JfiTolx4d8c/D7xFqXhjxLpNyrA2+o6bO0RmtZWRFvNNv4fK1DSdShBtdU0u6s9Rs5JbW6hkf/AFV6/An/AILWf8Esrn9rrwfF+0H8BvD8E/7SHw90pbPWvD9kIba4+MXgWxWSRNIXeY4bjxz4XDPN4WnlkSfWNLa78LyyXUyeGYrD8G8cPDuvxVldHP8AJ6Mq2d5JQqQqYWnFyrZjljm6s6FKKvKeJwlSVTEYelFc1aNXE0oKdadGD/1k/ZafTJyrwC46zLwk8RsypZb4X+KGZ4TE4TPMbWjQy/gzjmNCnl+HzTMKs3Glhsl4iwdLB5TnOOrP2eX1sDkuPr1MNl2HzOuv4XaKt6hp9/pN/e6Vqtld6ZqemXdzp+pabqFtNZ3+n39nM9teWV7Z3KR3Fpd2lxHJBc208cc0E0bxSojoyipX8QtNNpppptNNWaa0aaeqae6P+pKE4VIRqU5RnCcYzhOElKE4SSlGUZRbUoyTTjJNpppp2YUUUUigooooAKKKKACiiigD3X4L/tPftEfs66iNT+B3xp+JHwwmM4uLiz8JeKtV03RNSkUggaz4cW4fw/rkWQpNvrGmX0DMqloyVBH7VfAH/g48/a5+H/2LTfjp4F+Hfx/0WHy1udWitz8LfHs6jCOzav4Zsr7wY2FG8Rr8PoZHlzvuwrDZ/PBRX1GRca8V8NOP9iZ9mOApxd1ho13WwTd73lgMQq2Dm/OVBuzavZs/CvFX6MngB43U6y8UfCbgzivGV4OnLO8RlVPLuJ4Qaty0OK8nll3EmGjony4fNaUbxi2rxi1/ez8Af+C//wCwT8YDZab471vxl+z54lufLhe1+Jnh+S+8LyXj
+4LJZ+NPBr+INPhslBP8AxMPFFn4UiyrB44yY/M/Yj4f/ABL+HPxY8O2/i74XePfBvxG8K3bbLbxH4G8TaN4r0SaQIkjRJqmh3t9Z+eiOhkgMwlj3ASIpOK/ynq9V+EXxz+MfwC8TxeM/gr8TvG3ww8TRmISap4M8Q6jocl9DC5dLPVreznjs9a05mZvN0zVre90+dWZJ7aRGZT+18PfSPzzCyp0eJcoweaUFaM8Xl7eAxyXWpKlJ1sHXn2p04YKLv8cba/5heMP7FnwtzyljMw8E/ETiPgPNJKdXDcP8YQp8W8Lzqa8mEoZhh6eXcR5XQenNi8XX4mrwabWHqXtH/VDor+Qf9ir/AIOOfFGjyaP4G/bd8Hr4q0tnt7I/G/4caZaad4ks0ZljN/40+H1qLXRdaiRnM97qHgs6DdW1nAVs/COt3z/P/Vj8J/i/8MPjr4G0b4l/B/xz4c+IfgXxBF5ul+JPDGoRX9jI6qhnsrpV23OmarZM4h1LR9Tgs9V0y5DWuoWVtco8S/0nwlx7wxxrQdXI8wjPEU4KeJy3ExWHzLCp2TdXDSlLnpptRdfDzr4bmaiqzlof4mfSF+iV45/RizaGB8U+EKuFyfGYmeGybjTJass44Mz2cFKShgM7pUqf1bFThCdWOVZzhsqzpUYSrzy2NG1R+j0UUV9kfzYFFFFABX8E3/Bwj/ykb8Tf9km+Fn/pqvq/vZr+Cb/g4R/5SN+Jv+yTfCz/ANNV9X4T9If/AJIGj/2UGXf+o2YH+r37G7/lLfM/+zP8Zf8Aq84PPxAooor+HT/qaCiiigAooooA/qn/AOCVP/BYP9kH9j79jrwb8DPjA/xQj8b6F4p8e6xfN4Y8E2+uaL9j8R+JbzVtO8m/bXrKWSX7LOnnobRRFLuQM4G4/pTF/wAHDH/BOqTG/WfjHBnr5vwvuGx9fI1mb9M1/BfRX7Hk/jnxtkmV5flGDhkssJlmDw+Bw3t8BWnV9hhqUaVL2k44
+ympz5ILmkoxu7uy6f5teI/7K36MHijx3xh4i8SYnxNpcQ8b8R5vxRnf9l8WZdhcAs0zvG1sfjfqeGr8OYuVDDfWK9T2NGVaq6cLRdSVrn98MX/BwX/wTgk+/4w+KMH/XX4Va+f8A0RLNWlF/wX9/4JrSY3/Enx/Bnr5vwl8bNj6+Rp036Zr+AyivVX0iePVvhuHZeuXYz/23MkfA1P2NX0S5/DnXjLS/698YcOP/ANO8E1D/AEBIv+C9/wDwTNkxv+MXi6DP/PX4QfE049z5Phqb9Mn2rSi/4Lw/8Ew5Pv8Ax61yD/rr8G/jKf8A0R4Fmr/PporVfSN47W+A4Yl64DMv/bc4icVT9jB9FKfw8WeOVL/r3xbwY/8A074dVD/Qoi/4Lp/8EupMb/2k7qDPUy/Bb4+HH18j4XzH8ga0ov8AguF/wS4mxs/ajtxnj978Hvj/AAfn5/wqjx9TwO9f54tFaL6SHHC3yrhV/wDcjmyf4Z3b8DiqfsV/otS+Dj3x8pvt/rR4ezj90vC7m/8AJj/RLi/4LW/8EwpvuftUaMP+uvw3+NEH/o/4cR1pxf8ABZj/AIJmTY2ftW+E1z083wh8UIPz8/wNHj8cV/nQ0VovpI8Z/ayfhh+mGzVfnm8jjqfsUvo0v+F4keOcP+vmd8A1P/SfDukf6N8X/BYP/gmrN9z9rLwEM8fvdI8cwf8Ao/wpHj6niv0mikSaOOaJg8cqJJG4zhkdQyMM4OGUgjIB5r/Jqr/WI0n/AJBWmf8AYPsv/SaKv2rwh8Ss48QnxAs1wWW4P+yFlTof2fDFQ9p9feYqr7X6zisTfk+p0/Z8nJbmnzc3u2/zG/aLfQl8OvoeQ8IZ8AcUca8R/wDEQ58fRzRcYYjIsR9SXCceDHgf7PeS5Hk3K8R/rJi/rX1hV7+ww3sfZWq+00KKKK/aT/MkK/Hn/gvJ/wAoxfjr/wBjB8HP/Vv+Ca/Yavx5/wCC8n/KMX46/wDYwfBz/wBW
+/wCCa+Q8QP8AkheMv+yYzz/1W4k/or6IX/KVn0bf+z6eFX/rbZIf59tFFFf5rH/bcFFFFABRRRQB+/P/AAbg/wDJ/fiv/s2z4h/+pv8AC2v7n6/zPv2C/wBtrxj+wP8AGvUvjb4H8GeGfHWsal4B134fy6N4rudUtNMjsNd1fw5rE9/HLpE9vdfa4JvDlvFErOYTHcTF1LBCP2QT/g5t/aFH+s/Zr+DTeuzxD43T69byTH6496/qbwh8UeDuEeEI5RnmPxGHxyzLG4l06WAxeJh7KuqPs37ShSnC75JXje6truj/AAU/aJ/QP+kj9Ib6RVfxE8LeFMmznhapwVwvkscXjeLeHcmxH9oZW8x+uUngs0x+GxKhD6xS5avJyVLvkb5Xb+zGiv41l/4Ob/j0Pv8A7Mnwib/d8V+Mk/nvqO8/4Obvj+9pMmn/ALM/wetb5lxb3N54m8aX1pE/96aygl06adf9hL+3P+3X6g/Hfw2s3/a+MbSvb+yMyu/JXw6V/VpeZ/CS/ZP/AE2XKMX4d8OxTkoub8Q+CuWKbs5yUc5lNxju1GEp2Xuxk7J/2W0V/CN4z/4OKP8AgoP4m85dAj+Bnw6R9wibwn8N7/Up4V5Ctv8AHnivxlDJKBgszW4iZskQqp2D4s+KX/BV7/goj8YrS60/xj+1X8SrTTr2GW2udP8AAcmifCu1ntJlZJbO4X4ZaP4SkuraWJmhmju5J/tELNHcGVWYN4WP+kZwVh4yWCwGfZhVSfJbC4TC4eT6KVWtjXWgn3WFn6dD9Y4U/YxfSczitQnxPxb4TcH4KUo/WVPPM/z7NqMHbmdHA5Zw3HLcROCveE89w0W0kqlm5L+rz/gsl/wU3+Fv7N3wL+JP7P8A8O/Gml+Iv2lviZ4dv/A3/CP+Hr1L66+Fvh3xPYz2HiHxX4su7QS22ha1Foc9xb+GNDuLmDxBJqmpaZri2H9j2c9y38G9STTTXE0txcSyT3E8kk0880jSzTTS
+sXllllcs8kkjszySOxZ2JZiSSajr+YOP+Pcy4/ziGZY2jTweGwtF4bLsvozlVhhaEpupNzrSjB18TWk061ZU6UZKFOEaUI04o/3U+iJ9Ezgr6InhxieCeGMzxnEud59mMM74x4vzHC0cDic+zWnhaeDw9PC5fQqYiOV5Nl1CE45ZlksZj6mHnicbiK2OxNfF1ajKKKK+FP6sCiiigAr9bf8AgiV+zhdftC/8FAPhNe3FtM/hT4FXH/C+fFF2m9FguPAV9YS+BrdZgVjM918RLzwq7WrNvn0u01aRI3S2l2/k/pum6jrOo2Gj6PYXuq6tqt7a6bpel6baz32o6lqN9PHa2VhYWVrHLc3l7eXMsVva2tvFJPcTyJFEjyOqn/QE/wCCNH/BPa6/Ye/Z5udc+IumxW37QHxsbSvEfxGt2aOeXwZodhFcHwj8OUuInkha50WHUL7VPEstsdkviPVrvThPf2Oh6Vdt+q+D/B+I4q4xy+rKhKeU5JXo5pmlaUX7H/Z5+0wmEcrcsqmMxMIQdG6lLDQxNRJxpSP4E/aO/SNyfwD+jfxhgKOa0aHiD4oZTmfAvA2WU6sP7Rf9sYb6jxFxDCkpe2oYTh3JMXicRHH+zlRp51iMlwc3GpjqbX7D0UUV/oGf8gQUUUUAfzr/APBwn+xJ/wALm+Auk/tWeBtI+0fEX9nq0ltfG6WcG+81/wCC+o3jXGoTzbFaWdvh3rdy/iOEfJDZ+HtX8aX07sYLdR/EfX+sNrOjaV4i0fVfD+u6dZ6voeu6bfaNrOk6hBHdWGqaVqdrLZajp19bSq0VzZ3tnPNbXMEqtHNDK8bqVYiv82X/AIKPfsear+xD+1f8Q/g20N4/ge5uR4z+EmsXXmSHWfhn4kubuXQA91IA13f+Hp7e/wDCOt3JWP7RrXh+/uo41tri3Z/4/wDpDcFfUsww3GeApWw2Zungc4UI6UswpU7YXFSSVlHGYam6NSVlFVsNGUnKpidf+jj9
+jn9Jv/WXhDPPo0cVZhz51wPTxXFHhzUxNW9TG8H43GRln2Q0pVHepU4dznGRzHCUlKdaeW53XpUadPB5I+X4Tooor+Zz/cAKKKKACv7t/wDg39/a1/4Xv+yC/wAFfEmp/a/iB+zHqFp4PVLibfeX/wALtcW8vvh1ffMQWi0YWmueCY4oUKWem+GdFaZzLfLu/hIr9Pf+CQv7Wn/DIv7bfw18S63qf9n/AA2+Jco+EPxQM03lWNt4d8Y3tlFpXiK7Z28qCLwl4sttA8QXl4Y3nj0Sz1m0gKfbpM/pnhJxX/qlxrluJrVPZ5dmUv7IzPmlanHD4ypBUsRO75UsJi40MRObTkqMK0I29oz+Hv2hn0f/APiYT6MnGmSZZgvrfGnBVN+IXAyp0+fFVs44cw2JqY/J8Oor2lWpxBw/WzbKMNh1ONKeaYnLcRVUvqkLf6LdFFFf6GH/AB0BRRWL4k8RaJ4Q8O694s8S6lbaP4c8L6LqniLX9XvX8uz0rRNFsZ9S1XUruTB8u2sbG2nup3wdsUTtg4qZSjCMpzlGEIxcpSk1GMYxV5SlJ2Sikm220kld6GtGjWxNalh8PSqV8RiKtOjQoUYSq1q1arNU6VKlTgpTqVKk5RhCEIuU5SUYptpH8t3/AAcn/tYf2d4e+E/7G/hfUtt34ili+MXxVitpsMuh6bcXukfDrw/d+WWV4tS1mHX/ABJe2U4jlgl8PeF75VeK6jav5Eq+nf2zP2jtb/a0/ad+MXx/1o3MUfj7xdeXPhvTbt90uheCNKSLRPBGgsFZoll0nwrp2k2l48ASO51BLu92CS5kJ+Yq/wA3/ETiiXF/F+b5zGcpYOVd4TLIu9oZbhL0cK4xfwOulLF1I62rYirZ6n/al9DXwIo/Rz+jr4d+G1XD0qPEVLK1xBxxVgouWI414iUMxz2FSrD3cRHKqlSjkGDr2i6mW5Pgm4pphRRRXxJ/UIUUUUAdb4B8DeKfid448IfDnwRpNxrv
+jHx34l0Xwj4X0a1GZ9T17xBqNvpel2aE/KgnvLqFHlkKxQoWllZI0Zh/pn/scfszeFv2QP2bfhZ+z/4W+z3Mfgfw7CniPW4IfJbxR421R31Txl4nlDqJyNY8QXd9PYw3DSSafpQ0/SkkNvYQqv8ALr/wbm/sW/8ACb/Evxd+2d430nzPDXwpe88CfCRbyDMOo/EfWdMUeKfEduJF2yJ4O8K6lHpdtJteF9U8XNPbyx3/AIfYJ/ZNX9l/R74M/szJsTxbjaPLjc7Tw2W88bTo5TRqJzqxvZx+v4qnzWaalQwuGqQly1nf/mo/bD/SV/138Sck+jzwzmHteGvC6cM74zeHq81DMfEHNME1hcDU5HKnVXCeQ4t0VKElKlmmfZzgsTTVbL4cpRRRX9Gn+LwUUUUAFfynf8HQP/IufsYf9hv48/8ApB8I6/qxr+U7/g6B/wCRc/Yw/wCw38ef/SD4R1+WeNf/ACbHij/BlP8A6vcrP70/Zi/8py+BX/YVx/8A+ur45P5GKKKK/wA+j/sECiiigAooooA/pQ/4Iaf8FCf2S/2L/hT8dvDf7RfxMuvA2t+NPiD4a1zw3Y23gX4geLDqGl6d4cmsLu5Nz4P8Ma7Z2Ziu3WIQ31xbXEmfMjiaMF6/b6b/AILz/wDBMiLOz43+JLn/AK4/B34tLn6faPB1v+uK/wA/Giv2Lhzxu4u4YyTAZBl2DyCpg8up1KVCpi8Hj6mJlGpXq4iTqzp5nRpSanWkk4UYJRUU02nJ/wCb3jP+y6+jz46+KPFvi3xlxL4t4XiTjPGYPG5pgsg4j4UwWSUKuByrAZPRjgMNjeB8yx1KnLC5dQnUWIzLFSdeVWUZwhKFOH9+83/Bfn/gmpFny/ih47ucf88fhJ48XP0+0aTb/rismb/g4L/4JwRfc8YfFG5/64/CrX1/9KJIK/geor1pfSJ49e2G4cj6ZfjNP/Aszl+Nz88pfsafol07c+d+M1b/AK+8YcNq/r7H
+gil+Fj+8ub/g4c/4J2RZ8vUvjPc46eT8MHXP0+0a9b/rismb/g4t/wCCfEWdll8fbn/rj8NtEXP0+0eOLf8AXFfwlUVlL6QviA9o5FH/AA5bVf8A6VjZHoUv2Ov0Q6duet4r17f8/eNcvV9t/Y8NUfwtu/K39z03/Bx/+wJFny/Cf7Slzjp5Pw88Drn6faPinb/rismf/g5R/YRiz5fw0/aquf8Arj4C+FK5/wDAj42wV/DvRWUvpA+Ib2rZPH/Dlkf/AG6tI9Cl+yC+h1Ttz5d4j17f8/eOaqvtv7HLaP4W3flb+3Gb/g5b/YnXP2f4O/tSy+nneFfhNb5+vl/GS5x+Gaxp/wDg5i/ZIXP2b4E/tGS+nn2fwzt8+mfL+INzj8M/jX8U9FYy8ffEZ7Y3LY/4cqwz/wDSlI9Cl+yP+hlT+Phjjav/ANfePs7V/X2Do7+Vt9LaW/tBn/4Oaf2Zlz9m/Z3+Osvp5998P7fP18vxFc4/Wv33/Z++MOk/tB/BH4V/HDQtI1HQNG+K3gbw9460zRdWltptT0uy8Q6fDqEFjfy2byWsl1bxzCOZ7d2iZwSjFcV/lj1/pb/8E0P+Ufn7HP8A2b18Mv8A1GrKv2PwW8RuKuNc6zjB5/i8PiMPg8shiaEKOCw2Fca0sXSpOTlRhGUlySa5ZNrra+p/m5+02+hh4CfRk8NPDjiPwk4ezjJ834j44xeR5riMz4mznPIV8uo5BjcfClChmWKrUKE1iaNObq0qcajScHLkbR9w0UUV/Rp/i8eU/Hb4o6b8EPgp8W/jHrHlNp3wu+G/jTx9cwzNtW6HhXw9qGtRWK4Ks81/NZx2VvEh8yae4jiiBkdQf8tDWtY1LxFrOreINau5b/WNd1O/1jVr6c7pr3UtTupb2/u5iAAZbm6nlmkIAy7k4r/Qy/4LX+ND4J/4JnftL3MUpjvPEOmeBfBdmoO0zDxX8S/B2k6nFkdhoU+rSkfxrEUPDZH+d1X8d/SU
+zOdXP+HsoUv3WCyitmHKnp7XMcZUw7cl1ap5bDlurxU21pN3/wCkT9iVwRhsD4ReMXiK6NsfxN4h5bweq00ub6hwZw5hM4pqi2uaNOpi+N8Sqri+WrPD01K8qC5Siiiv5rP9tAooooAK+oP2KPgyP2hP2tf2efg3MyJp/jr4q+E9O113Xfs8MWeox6x4qdIyrLJOvhvTtVa3ifEcs4jjldI2Z1+X6/XX/ghZ4Y/4ST/gpv8As/zvH5tt4XsPit4nuVxkD7L8JfGum2MhODt8rVtV0+QH+8iqCCQa+g4TwFPNOKeG8tqw56OPz3KcJXh/NQr4+hTrJ+XspTb8rn5B9IPizF8B+A/jTxrl+I+q5lwn4U+IHEGWYhJN0s0ynhTNcblkop6Obx9HDqCejm4p6Nn+hHRRRX+nB/wzBRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB+S/wDwUo/4IqfsG/8ABUfw/dSfH34Yx+HPjFb6cLHwx+0Z8MV0/wAK/GPQfs8Ji0+21PWhY3WnePfD1kP3cPhnx7pniHTLK3lum0IaHqM66lF/nB/8FU/+Db39uv8A4JpJ4k+Jul6SP2nP2WNINxev8c/hbo16uqeDNGjYlLn4w/DXz9T13wEsMYZ7zxFp154q8AWqG3F54wsr67j0xP8AXkqOaGK4ilt7iKOeCeN4ZoZkWWKaKVSkkUsbhkkjkRmR0dSrqSrAgkUAf4BdFf6YP/Baf/g1L+FH7TFt4k/aK/4JvaL4R+Bn7QjyXmt+LPgKZoPDPwS+MFw4e4uJPB6Kg0n4QePLpwy28NpFZfDTXrpoU1Sz8HXM+qeK7j/ON+M3wV+LP7O3xN8X/Bn45fD3xV8LPin4C1WTRvFvgfxlpVxo+u6NfIiSxGW2nUJc
+2N9aywahpOq2UlzpWs6Xc2mq6Te3unXdtdSgHmFFFFABRRRQAUUUUAFFFFABX7t/8Eff+C+X7Wf/AASh8UWHhKxvbz43/sl6tqv2nxn+zn4t1u5jstHF5cebqPiX4O6/cJfSfDjxY7STXN3bW1pd+EPE8skp8SeH7nU/7O17SPwkooA/3E/2A/8Agov+yn/wUs+Cdn8cP2V/iFB4p0iBrOw8beCtXji0f4k/CzxJd2zXH/CLfETwkbm5uNF1LEVyLDUbWfUfDXiOG0uL/wALa7remxm8r7lr/DZ/YL/b8/aW/wCCcH7QHh39on9mPxtL4a8U6YY9P8UeGNR+0X3gT4neD3uYrjU/AvxE8OR3NrFr3hvU/KVlKTWmr6JqEdrr3hrVNG1/T9P1S2/1vf8Agkj/AMFgv2a/+CtnwPXx38LLyLwT8ZvB1lp8Hxv/AGfdd1S2uvGHw41m5URDU9OlEdo3i34dazdpL/wi/jixsre3u1B0zW7HQvEltqGiWgB+tNFFFABX5uf8FTv+CmnwP/4JW/sr+Jv2iPi7PHrniS6Nx4Z+DHwns7+Kz8R/F34l3FnNcaX4b052SeTTdB09U/tbxr4pe1ubXwz4egnuEt9R1q70PQ9Y+1fjV8Y/hx+zz8JPiP8AHP4veJrLwd8MPhP4N17x5458S3+9oNJ8O+HNPm1HUJo4Ile4vr2WKD7NpumWcc2oarqM1rpun29xe3VvBJ/jRf8ABXj/AIKlfF7/AIKv/tZeJPjr46k1Dw78MPDr6h4U/Z8+Eb3nm6Z8MPhml8ZbSKeKGR7O88ceKjDb658QfESb5NV1ow6daSQ+GtB8NaVpYB8nftifte/HX9uv9of4iftN/tFeLp/F3xK+Iuqvd3JUzw6D4X0O3Z49A8EeDNJlnuV0Hwb4V08x6ZoWkxTSukEb3moXWoave6jqV58x0UUAFFFFABRRRQAUUUUAFFFFABX1j+xX+xH+0h/wUD+Pfhj9nH9l7wDd
+eOviH4iWTUL6aSUab4W8E+FrO4toNY8c+PfEcsclp4a8IaGby2F7qM6zXV3eXNjomh2Gr+IdV0nSL/x34K/Bn4l/tEfFr4d/A34OeE9T8c/FH4qeLNH8FeB/CukxeZeavr2uXaWlrG0jFYLKwtg73urareyQabo+lW17qup3Vrp9nc3MX+w7/wAEW/8AgkH8KP8AgkZ+zMnw60W707x18ffiS+meJf2hfjJFp4tpPFPiW1tDHp/hHwuZ4xqNj8NfAwub2z8LafdutzqF7e614q1G2s9R8QT6fYgGZ/wRz/4Irfs4/wDBJL4OW2n+F7LTPiL+01400Szh+Nv7RGpaYq634gumMV5deDvAkd0JLjwd8L9Mv0T7BoVo8V94hms7PXPF1xqOpwWEel/s/RRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQB+FP/BUf/gi/4E/bOfVfjT8ErnRPhh+0qtr5mqPdQtZ+Bvi6beMLDD4xFjbzT6N4sSJFgsfGtna3bXcSR6d4jsL6EWOq6J/FL8d/2dvjZ+zL46vvhv8AHX4ceJfhx4tsmlMdlrtltsdXtYpPL/tTw3rlq1xonibRpH+SLWNA1DUdNkcNEtz5qSIv+phXlXxh+Bvwe/aC8IXPgL42fDbwh8TfCVyzSf2N4u0W01WOzumjaIahpFzMn27RNWijZlt9X0e6sdTtck293E3NfhviD4I5LxbXr5tk9aGRZ5WcqleSpc+W5hVerqYqhC08PiKj1qYrDX525VK2Gr1ZOZ/qd9ED9qL4mfR5yzK/D3xFy3EeKvhXlsKeEyqlVxyw3GvCGX00oU8HkObYr2mGzbJ8JTusJkGcqH1eEaOEy3OspwFCGFP8ryiv7Df2tP8Ag238AeIv7T8U/sc/E25+HuquJriH4V/FW41DxF4L
+lkO5ks9D8eWkN54u8P2yKqpFH4g07xxNPM5M2rWcIG3+cj9o7/gnZ+2b+ym17c/Gb4C+NNH8NWLOZPHvh+0j8afD4wKSY7ifxl4Tl1fRNKFxGDLDaa7c6VqQQOJrGGSKWOP+VeJ/DTjPhOVSWaZNiKmDp3f9p5fGWOy6UF9uWIoxcsMnZ2hjaeGqtJv2dtT/AH68DPpu/Rq+kJQwdLgTxJyjB8SYtU4vgbi6rR4X4zp4iaTeFoZRmNeNPOqlPmiqlfhvGZ1goykofWnO8V8U0UUV8Gf1gFFFFABRRRQAUUUUAFFFFABX2B+xv+3J+0D+w38RY/HnwT8VPb6ffTWy+M/h7rbXF/4C8fadbtkWXiPQ0ngAu4Y2kTTdf02Wx8QaQZZl0/Uobe5vLa6+P6K68BmGNyvGYfMMuxVfBY3C1FVw+Kw1SVKtSmusZxadmrxlF3jOLlCalGTT+d4t4R4Y484czbhHjPIcq4n4Yz3CVMDm+R51g6OPy7H4apZuFfD14yhzU5xhWoVoctfDYinSxGHqUq9KnUj/AKV/7An7fHwk/b9+DsfxF8AEeHfGGgyW2l/E74X6hqEN7r/gLX545HgV5kitTq/hrWkgnufDPiWGztrbVYIbq1nt7DWdM1fStP8Aumv8xj9ir9rz4j/sS/H/AMHfHD4e3NxcRaXdR6b448Im8ltdL8f+BL6eEeIPCmrBQ8P+lQRrd6NfTW9z/YniCz0rWoYJZrBYn/0lvgn8Y/AX7QXwo8B/Gj4Yawmu+BfiL4esvEegX4CJOkNyGju9N1K3SSX7FrOi6hDd6NrmnO7S6bq9he2Ex823ev7v8JPEqPHeVVMLmDpUuI8qhTWPpwUYRx2HlaFPM6FJJKCnP93i6VNclCu4SiqdLEUacf8Ak/8A2hv0Jq/0UePsHnvB0MbjfBjj7FYuXCmKxMquKxHCucUlLE4zgnNMdUc6mIeHw7eM4fx+LmsVmmVQxFKtPF47J8yxlb1Giiiv
+14/zpCv4Jv8Ag4R/5SN+Jv8Ask3ws/8ATVfV/ezX8E3/AAcI/wDKRvxN/wBkm+Fn/pqvq/CfpD/8kDR/7KDLv/UbMD/V79jd/wApb5n/ANmf4y/9XnB5+IFFFFfw6f8AU0FFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABX+sRpP8AyCtM/wCwfZf+k0Vf5O9f6xGk/wDIK0z/ALB9l/6TRV/VX0ZPj41/w8O/nnh/gR+3L/gfRh/6++M3/pHhUaFFFFf1cf8AP8Ffjz/wXk/5Ri/HX/sYPg5/6t/wTX7DV+PP/BeT/lGL8df+xg+Dn/q3/BNfIeIH/JC8Zf8AZMZ5/wCq3En9FfRC/wCUrPo2/wDZ9PCr/wBbbJD/AD7aKKK/zWP+24KKKKACiiigAooooAKKKKACiiigAooooAKK7PwB8PvF/wAUfFOm+CvAmjnXvFGsSeTpmkpfabp8t7LlR5UM+rXlhaGQ7gQjXCsRuYAqrEfsL8Hf+Df3/goX8TLm0k8YeFvh/wDBDRJxHM+qfEPx/ourXbWj4YvaaH8N38c35uyhzFaar/Yys2FnubZTvHu5NwvxFxFJxyPJMyzRRmqc6uEwlarh6U3qo18SorD0G07/AL6rBW12PyjxL8dfBrwcowreKXifwTwLOth54rC4HiHiHLsDm+Pw9OTjOrlmSSrvOM0jGScWsuwOKkpe7a+h+I9e6/s9fs0/G/8Aao+IOn/DL4E/D7XfHvii9khN1/Z1v5Wi+HrGVyjaz4r8QXJi0fw1osJVt+o6xeWsEkgW1tjcXssFtL/W/wDs9f8ABtr+zZ4Jez1b9on4p+OfjjqkRjlm8NeGoV+FngV84aWzvTp9/rfjbUkQjy477T/Ffhh5U3SPZRMypF++fwh+Cfwk+AXg2x+H3wX+HfhP4aeDtPw0Oh+EtHtdLt7i4EaxvqGpzxJ9s1nVrhUU3msavc32qXrjzLu8nkJc/t3Cn0d+IMdWpYjirFUM
+kwKcZVMHhatLG5pVV03S56XtMDheaN0q3tsXKElZ4Z7r/Lvx9/bI+EHCmX4/KfALIM08T+KJQq0cHxJn+Ax3DHAmBqOLjTxrw2OjhOK899lV1llqy3h+jiKdpQzqn8L/ACq/4Jnf8EbvhN+w/b6b8T/iTLo/xd/aXltg/wDwlr2TyeEfhobiHbdad8NNP1GFLg6gVeS1vPHWp21trt9bbrfS7Hw1Y3mpWN/+01FFf1pkHD+UcMZbRynJMFSwOCoaqFNN1K1VpKdfEVpN1MRiKnKuetVlKbSjFNQjGMf+e3xa8YPEbxy41zLxB8UOJ8fxTxNmbUHicXKNPCZfgqc5zw+VZNl1CNPBZRlOEdSf1bL8BQoYeE6lWvKM8TXr1qpRRRXsn5oFFFFABX4h/wDBdX9iT/hqH9lO6+Kng3SPtnxg/Zth1fxvoy2kG/UPEfw6kt4pfiL4VURqZbqa10+wtvF+jwhZ52vfD1zpWnQrP4gnZ/28prokqPHIiyRyKySRuodHRwVdHVgVZWUlWVgQwJBBBrxOI8hwXE2R5lkWYRvhsyws6Ep2UpUKuk8PiaabS9rhcRCliKV3bnpxUrxbT/T/AAX8V+JfA7xT4I8VuEavJnfBeeYbNaWHlUnSoZpgbSw2b5JjJwTmsBnmU18blGO5F7RYXGVZU3GooSX+TTRX6j/8Fdv2J3/Yq/a68VaF4b0trL4O/FT7X8SvhBJFEVsNP0XVb2T+3vBMLgGNJfAuvPcaVbWhlluk8Mz+GNQu2EupjP5cV/mtnWUY3IM2zDJsxp+yxuW4qrha8deWUqcvdq020uajWg41qM7WqUqkJrSSP+2/wy8ROGvFrw+4P8SuDsX9d4a40yHAZ9ldVuHtqVLGUlKtgcZCEpxo5hluKVfLsywzk5YXH4XE4afv0pIKKKK8s+6CiiigD/Rc/wCCQ37Wv/DXX7Evw18Ta3qf9ofEr4aQj4RfFAzTebfXPiPwdZWUWleIrtnIlml8
+W+E7jQPEN5dmNIJNavdZtIC/2GQj9PK/hJ/4N/f2tP8AhRH7Xz/BTxJqf2X4f/tOafaeD0S4m2Wdh8UtCN5f/Dq++YkLLrRu9c8ExwwoJLzUvE2itNJ5Viu3+7av9DPCTiv/AFt4Ky3E16ntMxy1f2Rmd3ecsRg4QVLETu7t4vCSw+InOyi6860I/Az/AI6P2hn0f/8AiXv6TfGmSZZgvqnBfGtR+IXAyp0+TC0Mm4jxOJqY/J8Oor2dKnw/n9HNsow2H551YZZhstxFW31qFyvwZ/4OB/2sP+FG/sfxfBPw5qf2Xx7+03qtx4SkS3l2Xdl8LvD32LU/iFejaSVj1h7nw/4LlhmQR3ul+Jta8qQSWTY/eav87D/gsP8AtYf8NZftwfErWtE1P+0Phx8KpT8HPhqYZvNsbnRvBt9exa94gtGQ+RcReKPGNz4g1iyvlRZbjQptEt5WdbKIjzPG3ir/AFa4JxeHw9XkzHiCUsownK7Thh6sHLMsQrWaUMJzYdTi1KnWxVCa2Puf2XvgF/xGz6T3D+c5tgvrPBvhBTpeImfurT58LiM3wGJhT4Lymo2pU3VxPEPsc2lh6sJU8XluQ5pQkvePy2ooor+Bj/reCiiigArvPhb8NfF/xk+JHgb4UeANLfWfGnxE8U6J4P8ADWnJuVbjV9dv4dPtWuZVRxa2Nu832nUL2RfIsbGG4vLhkggkdeDr+pv/AINxf2Lv7e8VeNf22vHGk7tM8GtqPw1+Cq3kHy3HirUbFE8feMbPzFVsaHoN9D4R028iM1rc3HiPxTbkx3uigp9ZwRwviOMeJsryGhzxp4msqmOrwV3hsvofvMZXu04qUaKcKPNaM8RUo027zR/P30ovHfJ/o3+B3HXixmn1etjMkyyWE4XyuvKyzzjDNW8Fw5lShGUatShVzCpTxWZOhzVcNk+EzHGqLjhZ2/p7/ZW/Z38Ifspfs+fC34A+CUjfR/h14YtNLu9TWBbebxH4juWk
+1HxX4pvI1LbLzxL4jvNT1qeLcyWxvRaQlbe3hRfoKiiv9JMJhcPgcLhsFhKUKGFweHo4XDUIK0KNDD040qNKC6RhThGK8kf8T/EGfZxxVn2dcT8Q4/EZrn3EWbZjnmdZnipc+JzHNs2xdbHZhjsROyUq2KxdetXqNJJzm7JKyCiiiug8gKKKKACv5Tv+DoH/AJFz9jD/ALDfx5/9IPhHX9WNfynf8HQP/IufsYf9hv48/wDpB8I6/LPGv/k2PFH+DKf/AFe5Wf3p+zF/5Tl8Cv8AsK4//wDXV8cn8jFFFFf59H/YIFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABX+lv/AME0P+Ufn7HP/ZvXwy/9Rqyr/NIr/S3/AOCaH/KPz9jn/s3r4Zf+o1ZV/SP0av8Ako+Iv+xJS/8AU+gf4pftt/8AkzHg3/2c/H/+spmR9w0UUV/Y5/zaH4vf8F+f+UanxP8A+x7+En/qeaTX8BFf39f8F945H/4Jp/FNkRmWHxx8I5JWVSRHGfiBo0QdyBhVMsscYZsAvIi5ywB/gFr+IfpF/wDJeYT/ALJvL/8A1OzU/wCpD9jM0/oncRWadvGvi9Pyf+qvATs+zs0/Rp9Qooor8FP9aAooooAK/fX/AINxNCg1f9v7xLqEu3zPC/7OHxE122yMnz7jxl8MvDLbfRvs3iK4yePl3Dvg/gVX76f8G4uuw6R+394k0+Xbv8Ufs4/ETQrbJwfOt/GPwz8TNt9W+z+HbjI/u7j2zX3nhfyf8RB4R9pbl/trC2vtz3l7P5+05Ledj+Tfp2fWn9D76Q/1Pm9t/wAQzz3n5N/qqjSeOv8A3fqX1jn/ALnMf3SUUUV/o4f8XIUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUU
+UUAFFFFABX4wf8FjP+CK37OP/BW34OXOn+KLLTPh1+014L0S8h+CX7RGm6Yra34fulMt5a+DvHcdqI7jxj8L9Tv3f7foV28t94emvLzXPCNxp2pz38eqfs/RQB/hcftqfsR/tIf8E/Pj34n/AGcf2ofAN14F+Ifh1Y9QsZo5RqXhbxt4WvLi5g0fxz4C8RxRx2niXwhrhs7kWWowLDdWl5bX2ia5YaR4h0rVtIsPk6v9mz/gtJ/wSD+FH/BXP9mV/h1rN3p3gX4+/DZ9T8S/s9fGOXTxcyeFvE11aCO/8I+KTbxNqN98NfHIt7K08U6faM1zp97ZaL4q062vdR8Pwadff48Xxq+DXxL/AGd/i18RPgb8Y/Cep+B/ij8KvFus+CfHHhXVovLvNI17Q7uS0uo1kUtBe2FyES90rVbKSfTdY0q5s9V0y6utPvLa5lAPMKKKKACiiigAooooAKKKKACvor9lP9q749fsT/HTwR+0Z+zb4/1b4dfFPwHfi503VtPcyafq+mzPH/a3hXxVo8jfYfEvhDxDbRix1/w7qkU9hqNqQWRLmG2uIPnWigD/AGlP+CPf/BWT4Mf8Fa/2YLD4v+B1svCPxf8ABI0nw3+0N8GGvTcal8NfHV3aTSQ3mnNM32rVPh74yFjqGqeAvEbKRe2drqOi6g0PiTw74gsLL9ZK/wAWD/gjX/wU08a/8Erv22/AH7QGmSanqvwm154fh9+0R4DsZC6+M/hDrt/aNrM9nZNJHBN4s8F3UNr4z8FytJbO+t6Omi3F7Bomu61Fc/7OXgHx54O+KXgbwd8S/h54i0zxf4C+IPhfQfGvgrxVotwLvSPEnhXxPpdrrWga5plyoAmsdU0u9tb21kKqzQzIWVWyoAP4ov8Ag9A/b51n4d/Bj4F/8E9PAuqvY3nx8lk+NvxwNrcmK6n+F/gPX10/4beFrmBSfP0fxd8SNO1jxJduyxPFf/CrS4Ynlgu72If5yNfuR/wcdftS
+zftWf8Fgv2uNdtb2S78KfBjxbB+zP4LgZ2kjsNO+BcL+EPFcdrITtez1P4pQ/EHxFbPEBE0etAxmRT50n4b0AFFFFABRRRQAUUUUAFFFFABRRXpfwX+FfiX46fGL4T/BHwYIG8YfGP4l+BPhX4UW6Mgtm8S/ELxTpXhLQhcGJJJRAdU1e1ExjR5PL3bEZsAgH+gv/wAGc/8AwTA0Lwb8IfFX/BTr4r+Fo7n4h/FG/wDEXwz/AGZpNWtd7eFfhdoVzJofxE+IOixzptt9X8f+K7bVPBFrqaIl9ZeGPCGs29jdHSfG+pRXH9y1eK/s3/A7wr+zL+z78Ef2dvA6r/wiPwO+FPgL4VaBOLSGykv9O8CeGNM8Nxard20BaNdR1g6c2qanJ5kslxqF5c3E0080skr+1UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAU1lV1ZHVXR1KujAMrKwIZWUghlYEgggggkEYp1FAbbH56fHn/glV+wN+0XJf6h49/Zz8FaX4l1AySzeMPhzFdfDPxK97JndqN7deCbjRbLXb45O6XxJYa1HJ8vnRSbE2/jf8av+DZTwHqE1zqH7PX7SfifwuhMjweGPi54W07xfAzPllhTxd4Tm8JXNlbxN8sfneE9YuGi2iWeSRGkl/qbor4fPPDbgbiFznmfDeXSr1G3PFYSnLLsXKT+3UxOAlhqtaSf/P6VRPZprQ/qbwu+mx9Kfwdhh8NwP41cZUcrwsY06GQ8QYyjxlw/QoRSj9XwmTcW0M6wGX0ZRXK/7No4OpH46dSFS01/BH8Vv+Dfb/goh8PPtM/hXw18NPjRYwb5El+HHxD0+wvmt1yQ7aX8SrXwBcvchAC9nYNqEhkzHbNdHazfmf8AFf8AZB/an+BhuX+Lv7PPxi+H9la7
+/N1rxF8P/Etp4bdY873tvE66fJ4evYkx80tnqc8S93GRX+oZQQCCCMg8EHoR6Gvy7Nfo4cLYnmllOcZxlVSV7QrrDZlhoduWnKGExDS68+Mk30a6/wB38A/tp/HrJPYUPEHw58OePcJS5VUxGVPOuCc7xKVud1cZTxXEOTRm7e68Pw7QjFt3hNWS/wAmeiv9NP46/wDBPz9jD9pK1uYvi/8As6fDTxBqN0JN/inS9Cj8HeN1eTJLr428GvoHipgsh80QS6tLatLlpbeQM6t+F/7Sv/BtN4A1Ox1jXv2UfjX4g8K62kM11pvw++MEFv4j8M311glNMtfHPh+z0zXvDtn0WG41Lw74zud2EuJ9jmeL8o4g+j5xnlcZ1sprYDiGhBOXJh5/Uce1FXk/qmLkqMnb4YUcbWqzfuxpuTipf3/4Q/thPo1ceVsLlviHlvFng7m2IqU6TxOcYVcU8JxqVZKFOCz/AIfoyzOjHnf77E5lwzluBw8GqtbFwpKrKn/H5RXu37Q37M/xx/ZU+IN58Mfj18Pdb+H/AIrt0a5s49RSK50jX9NEjRR614X8QWEt1oviPR5ZFaMahpF9dww3Cy2d0be+guLaLwmvw7E4XE4LEVsJjMPWwuKw9SVKvhsRSnRr0akXaVOrSqRjOnOL3jKKa7H+p+R57knE2UZdxBw5m+WZ/kWb4WljsqznJsdhczyrMsFXjzUcXgMfgqtbC4vD1Y6wrUKs6cltJ2CiiisD1QooooAK/rr/AODar9qSTUdB+Mn7H/iPUHkm8OuPjT8MoZ5C5TRdSudO8O/EXSLcuQIbaw1mfwprlnZwljLc+IfEd6UQJK7/AMilfq//AMESPiTL8Nv+Ck/7PjGR003x1P4x+G2rxx7s3EXizwXrsOjxnaD8kfiu18PXUm4FQluxJUgOv6F4V53VyHj3hzE06nJSxeYUcpxab9yeFzSccHP2neNKpVpYldqlCErPls/48+nx4XZf4s/RK8aM
+jxeFWIx/D3CGZeIHD1SMU8Rhs+4Ew1biTDPCSkpKFbMMJgcbktSyTqYTNMTRUoe154/6HNFFFf6LH/GUFfwTf8HCP/KRvxN/2Sb4Wf8Apqvq/vZr+Cb/AIOEf+Ujfib/ALJN8LP/AE1X1fhP0h/+SBo/9lBl3/qNmB/q9+xu/wCUt8z/AOzP8Zf+rzg8/ECiiiv4dP8AqaCiiigAooooA/rZ/wCCSH/BKP8AYl/au/Yq8E/Gf43fDbXvE3xA1rxb8QdK1DVLH4ieOvDtrLY6B4ovdL0yJdL0HXtP0+Iw2cMcbyR26yTMDJKzOSa/TZf+CDH/AATHXr8D/Ej/AO98Yvi2M/XZ4yX9MVif8EA/+Ua3w0/7H74t/wDqcalX7SV/fvAnA/BuM4L4VxmL4V4exWKxOQZVXxGJxGUYCtXr1quDpTqVatWpQlOpUnNuU5yblJttu7P+RT6V/wBKT6SnDX0mfHvh3h3x88YciyDJPFrjvK8mybJ/EXizLcsyrLcDxFj8Pg8Bl+Bwma0cPhMHhaEIUaGHoU4UqVOEYQioxSX4+r/wQe/4Jhr1+AuuP/vfGT4yjP8A3x46Tp7fjmrC/wDBCT/gl+vX9nrVX/3vjN8bhn67PiGv6Yr9eqK+t/1A4FX/ADRvC/zyHK3+eFP56l9Lr6Vct/pJ+O3/AG74scdR/wDSc8R+Ri/8EKv+CXa9f2cL1/8Ae+NHx4H4/J8TE/w9qnX/AIIYf8Et16/szTP/AL3xq/aCH/oHxVWv1soqv9QuBl/zRvCvz4fyl/nhDGX0tPpUS3+kp4+f9u+L/iBH/wBJ4gR+Ta/8EN/+CWqdP2XVPf5vjT+0M/8A6F8WSPw6e1WE/wCCIH/BLpMY/ZbtTj+/8Xvj5J+e/wCKjZ/Gv1coqlwJwQtuDeFV6cPZQv8A3TMpfSt+lHL4vpJ+Psv8XjF4iP8APiNn5Vr/AMESf+CXydP2WdNPb5vin8cn/wDQ/ia359anX/gil/wT
+CXp+yvox/wB74kfGh/8A0P4jtX6m0VS4H4KW3B/C69OH8pX/ALqGMvpTfScl8X0jPHeX+Lxe8QX+fEJ+XS/8EW/+CYydP2VfDx/3vH3xefp/v/EFv/r96/UGKKOCKOGJdkUMaRRoCSFjjUIi5JJO1QBkkk45JNSUV6mW5HkuTe2/sjKMryr6x7NYj+zcvwmB9uqPP7JVvqtGl7X2XtKns+fm5PaT5bc8r/BcaeKPiZ4kf2avETxF4649WTvFvKFxpxdxBxT/AGU8w+rLHvLf7czDHfUXjVgsGsX9V9l9Z+qYb23P7ClyFFFFeofChX48/wDBeT/lGL8df+xg+Dn/AKt/wTX7DV+PP/BeT/lGL8df+xg+Dn/q3/BNfIeIH/JC8Zf9kxnn/qtxJ/RX0Qv+UrPo2/8AZ9PCr/1tskP8+2iiiv8ANY/7bgooooAKKKKAP0V/4JifsQ+H/wBvz9orWPgh4l8e6z8OtP0z4XeJfiCmvaHo1lrl5LdaDr3hLR49Nazv7uygWC4j8SSzvOJjIj2saKjLIxX92de/4NgfCc8bHwx+2N4i02UKSq698FNN1yN3A4DNp/xM8PtGrHgsEkKA52yEbT8Ff8G4P/J/fiv/ALNs+If/AKm/wtr+5+v6x8HPDngvingpZjn2SU8fjpZpj8O8S8ZmOGn7GkqHs4JYTGYeKUeeVmo8zvq2f8+P7SL6aH0mfAb6Tlbgzwn8UMVwpwvR4F4UzaGTLhrgzOsL/aGYPMvrmIlLiLhzNq83X9hSvCdaVOHJ+7hC8r/wn/HT/g3g/bm+GNvqGrfDO8+Gvx+0a0V5YbPwj4gk8KeNZbeLJkkl8NeN4NI0dphGC8dlpPi7WrucgxW8Ms5jik/D/wAaeCfGHw48U634H8f+F9e8F+MfDV9Lpmv+GPE+lXui67o9/Dgva6hpmoQwXdtLtZJEEkSiWJ45oi8UiO3+rhX5Mf8ABVT/AIJkeB/28/hTf694Z03S9A/aa8Ca
+Lcy/DHxt+5sR4lhtTJeH4b+NLraq3nh7WJDPHo2oXbGbwhrd0uqWcy6Zc6/pmsa8cfR8y6OX4nMeC6uMhjsPCdb+xsXWWKo4unBc0qOCryjHEUcTypulHEVMRCvNRpOVFy9ocf0Wf2wnGNfjDJODvpNYDhvFcLZxiaGWvxL4ey2eR5nw9i8TOFGlmXE2VUK9TJ8wyONVx+v1sowOUYrLMPKtjo0MyjRWDf8AnnUVueJ/DPiHwX4j17wf4t0bUfDvijwvrGo+H/EWgavay2WqaLrekXc1hqel6jZzKstteWN5BNbXEMiho5Y2UjisOv5LlGUJShOMoThJxnCScZRlFtSjKLScZRaaaaTTTTVz/oVoV6GKoUcThq1LEYbEUqdfD4ihUhWoV6FaCqUq1GrTcqdWlVpyjOnUhKUJwkpRbi0woooqTUK+w/2c/wBvz9r/APZTvbOX4J/HXxv4c0W0aPd4H1TUT4q+Hl1CrDfBN4G8TLqvhqFpY90JvrDT7LVYI3Js7+2lCSL8eUV2YHMMflmIhi8txuLwGKpu9PE4PEVcNXg9/dq0Zwml3V7PZo+d4p4Q4T45yfE8PcacM5BxbkOMi4YvJeJcny/O8rxEWnF+1wGZYfE4abSb5ZSpOUb3i09T+07/AIJ+f8HA/wAP/jXrOl/Cv9sLSPDXwX8eapcW1h4e+KGgyXtr8JfEF7NsgisvEsOr3uo3/wAPdQuJypi1S91XUvClw0kzX2oeGEgt4bz+keOSOWNJYnSWKVFkjkjZXjkjdQyOjqSro6kMrKSrKQQSDX+TVX9Cn/BJz/gtH4r/AGZtR8N/s/ftPa5qni/9nK4e20bwx4xvPtOreKfgmHZYbNUkUTahr/w2t8iK70Ei61PwxZhLnwsJLKyPhu+/p3wz8dqzrUMj45rxnCrKNLB8QyjCm6U5NRhSzaMFGm6TuorHxjGVJ2eLjOEqmJpf4X/Tg/ZQ5dHLs08Uvor5TVwuKwNGtj+IvB2n
+WxGLpY7D0oOpiMd4fVMROtioZhBRnVqcJ4ivWpY6LlT4eq4bEUsJkmO/uEorJ0HXtD8VaJpHiXwzrGmeIPDuv6bZazoWu6LfW2p6RrGk6lbx3en6npmo2ck1pfWF7ayxXFrd20skE8MiSROyMCdav6ujKM4xnCSlGSUoyi1KMoyV1KLV0000002mndH/AD+1aVXD1atCvSqUa9GpOlWo1YSp1aVWnJwqUqtOajOnUpzi4ThNKUZJxkk00FFFFMzCiiigAooooA/Kz/gsB+xMv7aX7IvibTfDOlLffGX4RfbfiV8I3hhD6hqeoadZN/wk/ga3ZR5sieONAhksbOzDxQS+KrHwrd3T+TYEV/ndsrIzI6lWUlWVgVZWU4KsDgggggggEEYNf6y9fwL/APBc39iT/hlf9q+++JPg7SPsXwd/aPm1fx54cW0g8vTvDvj1bmKX4j+EUEaiG2i/tTULfxXo9siQW0OleJE0mwjePQrkp/LP0iOCvaUsJxvgKPv0VSy7PFBb0pSUMux07JawqS+o1ZtuTjUwUElGm2f72fsbfpN/VcdxB9F3ivMLUMxeYcaeFk8TV0p4+lS+scYcK4bnbdsXhaX+tOX4amoUqdTB8T4io5VsZTi/xPooor+TT/oMCiiigDW0HXdY8L65o3ibw9qN1pGv+HdW07XdD1axkMN7pesaReQ6hpmo2cw5iurK9t4Lm3kHKSxIw5Ff6av7EP7TGj/te/stfB74+aY1rHf+M/C1vH4w0y1YeXofj/Q3k0PxxoyxFjLDbWniSw1B9L89Y5brRptNvwgiu4i3+YpX9Q//AAbb/taf8I18QviZ+x14p1PZpPxFtrj4p/CyG4mxHF428OadDa+OtDs0JLPc+IfB9nYa+kahIoIfAupyEma8w37n4CcV/wBhcXf2NiavJgOJqcMGlJ2hDNKDnPLp69aznXwSSV51cVRu7QR/lT+1t+j/AP8AEVPo8R8TMlwP1ji3wQxmI4il
+KjT5sRiuBc1WGwvGOF91JuGWrD5XxNOpUk44bBZJmapR58VK/wC+H/BWD9q//hkH9ib4qePNI1Iaf8Q/GdoPhT8K2jl8q8j8a+N7W9tP7ZsWBDLdeEfDlv4g8YW7lXia60K2t5QRcqD/AJxBJJJJyTySepPqa/oO/wCDh79rD/hcH7VGhfs8eGtS+0eCv2bdGe11tLeXda33xW8Z29hqniV3aI+Vc/8ACOaBD4b8PRrKHm0vWE8VWqtGbidD/PjXB448Vf6x8a4jBYerz5dw5GWVYfld4TxcZKWZ1ktVzPFL6o2nyzp4KlJbs+u/ZZeAX/EGfoyZNxLm2C+rcY+M1eh4gZxKrT5MTh+Ha2H9jwNlcpNRk6EMjnLP4U6kVUoYziXH0JNqEbFFFFfjZ/pQFFFFAHp3wW+EfjP49fFn4efBn4e2B1Lxl8SvFekeEtBtyJPs8V1qt0kMuo38kaO1tpOkWn2jVdYvSpjsdLsry8lxFA5H+m/+zl8CfBn7MvwN+GPwH8AQeX4Y+GfhTT/DtrctCkFzrN/GHute8SahHETGNV8T69c6n4h1UxnyzqOp3JiCx7FH8yv/AAbhfsW+bceNv24PHGk/u7b+1Phf8DxeQ/euJEWL4keN7HeoP7qF4vAulX0DMjm48dWEyh4UI/rVr+1fo/8ABv8AY/D9bijGUuXMOIUo4PnVp0MmozvSavZx+v14vEy3jOhSwU4vVn/MX+17+kr/AMRI8Xcu8CuGsw9twh4PTqVeI3h6vNhs08SMxw6hjoVOVunV/wBUsqqwyWk3y1cLm2P4mwtRPlg0UUUV/QZ/j2FFFFABRRRQAV/Kd/wdA/8AIufsYf8AYb+PP/pB8I6/qxr+U7/g6B/5Fz9jD/sN/Hn/ANIPhHX5Z41/8mx4o/wZT/6vcrP70/Zi/wDKcvgV/wBhXH//AK6vjk/kYooor/Po/wCwQKKKKACiiigD+l//AIIT/sB/skfti/Cj48+Iv2j/AIRx
+fEfWfBvxC8M6J4bvX8bfEfwo2m6XqHhua/u7UQ+B/F/hq2uhNdosvnX0NzOmNkcqRkof3Uf/AIIbf8Etn/5tfCn1T40/tCpj8B8Wdv8A479K/O//AINjv+SG/tQf9lX8G/8AqIXFf061/dnhVwjwnmPh9w1jcw4Y4ex+Mr4XEyr4vGZLluKxNaUcwxkIyq16+GnVqNQjGCc5tqMYxWiSX/KR9Pz6RH0gODPpgeNnDXB/jn4xcKcO5VneRUsryDhvxN41yLJMtpVuDeG8VWpYDKsrzvC4DB06uJr1sRUhh6FONSvWq1Zp1Kk5P8j3/wCCFv8AwS5bp+zXdR+6fGn4+n/0P4oOP0qq/wDwQk/4Jfvnb+z1qkf+58Zvjecf9/PiHJ+ua/Xqivv3wDwM/wDmjeFvlkGVL8sIj+Q4/S3+lTDb6Snj0/8AF4ucfT/9Lz+R+Pb/APBBz/gmK/3fgRr0X+58Y/jEcf8AfzxxJ+tVX/4IKf8ABMps4+C3iiP/AHPjD8VDj/v54sfp75981+x1FS/D7gV/80dwx8sjy1flhkbx+l/9K2G30kvHN/4vFPjSf/pecyPxmf8A4IGf8E0G+78JPGcfX7nxe+I5/wDRniB+n/681Vf/AIICf8E1X+78MvHsX+58W/HRx/381ST9a/aOiofh3wG/+aO4b+WT4BflQRvH6ZH0sY7fSQ8a3/i8SOK5/wDpWZyPxSf/AIN/P+Cbbfd8AfEeP/c+LHiw/wDoy4kqq/8Awb6f8E4Gzjwf8UY8/wBz4q6+cfTfE/65r9t6Kl+HHAT/AOaP4d+WVYRflSRvH6aH0tY7fSO8ZH/i4+4hn/6XjpH4fP8A8G9n/BOZvu+HPi3H/ufFLUj/AOjNPev16+D/AMK/CfwO+FvgD4PeBI7+Hwb8NfCuj+DfDEWqXrajqMei6FZx2Ngl7ftHE13crBEgluGjQyNliozivR6K9XKOFeG8grVcRkmR5ZlVavTVGtVwOEpYedWk
+pKapzlTinKCmlLlel0mfA+Ivj541eLmXZflHif4o8b8e5ZlWNnmOW4HiniDH5xhsDjp0J4aeLw1LGVakaVeWHqToupG0nTnKN7NhRRRXvn5GfnB/wV38CTfEX/gm7+1loNvavdz6b8OrfxysccZkkjj+Gfinw98Rbq5UAFlW2svC9zNM4xtgSXcdhYH/ADhq/wBXbxh4W0jxz4S8U+CfENuLvQPGHhzW/C2uWpCkXOkeINMutJ1K3IYMpE1ldzxkMrKQ3IIyK/yufiH4J1n4a+P/ABx8OfEULW/iDwD4v8S+CtcgeNoXh1jwtrN7oepRNE/zxsl5YzKUf5kI2nkV/If0lsrlTzXhrOkm4YrL8XldSSWkJYHErF0lJ96izGtyLqqU+x/0W/sRePKOK4A8bvDGpUUMRkXGGQcd4WnKfvYihxXkr4fx86VPdxwdTg3LliJLRPH4ZP4kcfRRRX8xn+5YUUUUAFfrV/wQ58Z2/g3/AIKZfs9/bbgW1j4rj+JHgyeQtgPca78MvF39jW5GQGN14htdItkU/wAcysASoB/JWvdf2X/iYfgx+0j8BPi0ZzbQfDj4w/DnxlfSbtqtpfh/xbpOo6tbyn/n3u9Mgu7W5XI3QTSLkZzXu8L5jHKOJeH80m7Qy7OsrxtS7snSw2NoVqqb6RlThKMvJs/KvHXg6p4h+Cni7wJQg54njHwz454awaiuaaxudcM5nl+CnBWd6lPF16NSmrP34x0ex/qR0U1WV1V0ZXR1DI6kMrKwBVlYEhlYEEEEgggg4p1f6dn/AAubbhRRRQAUUUUAFFFFAHiXif8AaT/Z+8E/E2x+DPjT4zfDbwf8U9V0DTvE+k+BvFXi/RfDuv6vomq6hqml6fd6Raaxd2Y1WS5vtF1OFbLT3ub9FtWnltUt5IZZPbFZXVXRgysAyspDKysMhlIyCCCCCCQQciv86P8A4LG/G3Tvjt/wUR/aD8Q6DqSap4Z8Ha1pHwp8P3ML+bb+
+X8NtDsPDXiH7JMCY57O48bWvii9tbiEmC4guo5oXljdZX+ffgL+3p+2J+zK1pF8FP2hfiR4P0exKG38JTa0fE3gRQhHH/CB+LYtd8Hgso8tpF0VZvLwokAC4/mqv9IjB5bxDm+V4/Ip4nK8DmmMweFzLK8XCVerh8LiJ0I1nhMQoUazq8jqRnDG0YuEo+5rc/wBt8p/Y2cSca+D3hzx3wj4rYXI+OOKeBeG+Jc94K46yDE0cqy/N89yjC5rWy6nxDktTE5hl8cA8VHB1sPiOGsyrRr06reJtFRl/pv0V/Gj8BP8Ag5a+OHhv7Fpf7RnwP8D/ABQ0+Py4J/FHw71K++HPioR8eZfXuk6gninwxrF597Fpp0Pg+0cFQJISjNJ+237P3/BcT/gnt8eWsdNu/ipefBHxPeeUg0D45aUvg21WVsLJnxtZ3mt/DyGFZSFjbUPFlhcSxssn2SPEqRfp2Q+LXAPEPJTwuf4bB4mdksHmyeWV1N7U4zxXJha03so4bEVm3orvQ/hvxZ/Z6/S38HlisXnvhJnXEmSYVTnLiLw9lT43yyVCnf2mKq4XI3Xz3LcLBJynWzjJstjCF5ytBOS/XiisnQtf0LxRpNjr/hnWtJ8RaFqkC3Om61oWpWer6TqNsxIW4sdS0+a4s7uBiCFlt5pIyQcMcVrV+jRlGcYzhJSjJKUZRalGUZK6lFq6aaaaabTTuj+MK1Grh6tWhXpVKFejUnSrUa0JU6tKrTk4VKdWnNRnTqQmnGcJpSjJOMkmmgooopmYUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABX8JP/AAeKf8Er4vFvgrw9/wAFTvhNpyJ4i+Hll4T+E/7TuiWGnqG1vwTfavJpHw2+LM09sqtLqnhXXNY0/wCHfiOe7S6uL3w5q/gsxz2On+DbhLn+
+7avFf2kfgd4V/aa/Z9+N37O3jhV/4RH44/Cnx78KtfnNpDeyWGneO/DGp+G5dVtLacrG2o6OdRXVNMk8yKS31CztriGaCaKOVAD/AAcaK7H4ieDL/wCHHxA8dfDzVbiC71TwH4x8TeDNSurVZktbm/8AC+t32h3lxbJcxxXCQTXFjJJCs8UcyxsoljRwyjjqACiiigAooooAKKKKACiiigAr/Tj/AODNP9s3WPjV+wz8Yf2T/GfiO61vxJ+yR8S9PvPA8Oo3RludO+CvxkstR1jw9oVl5xa4ubLw/wDEHwx8SnDCSSLSrDXtD0mNLWzh0+J/8xyv6Y/+DTr9rD/hnD/grZ4A+Hmsal9h8F/tZ+AfGPwD1hbibbYReK3t7f4g/DW9aIsA+p3fi7wVbeCdKkVXeM+N7uLAjuJXUA/DP9tGHWLf9sX9rG38Q/aP7fg/aX+O8Oufa2LXX9sRfFLxUmp/aWPLXH21Z/OY8mTce9fNFfrL/wAF2PhDf/BH/gr/AP8ABQjwbqGnvpp1f9pLxx8VLC3ZNkb6P8cprf40aNcW4ACfZrjTPHtrLCsfyRI3kgKYyi/k1QAUUUUAFFFFABRRRQAUUUUAFfqP/wAESvC2i+Mf+CuX/BOvRtfjeXT4f2svhB4iSNJjCW1Pwd4ntPF+hbnHLRDXND04zQ9LiEPbniU1+XFfU37DXxi0X9nj9tX9kP49+Jbq7s/DHwW/ac+BHxU8UXFg1wt2nhjwD8UPC/ijxGsItUkuJDLoul30LQxRTNOkjQeTKJDGwB/upUVn6Rq2l6/pWma7oeo2Wr6LrWn2WraPq2m3MN7p2qaXqVtFeafqNheW7yQXdle2k0Nza3MEjwzwSxyxuyOrHQoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr88P+CgP/AAUg+FX/
+AATv0b4bav8AFD4f/E/xvF8UrzxVp+gyfD6y8LT2Om3vhODQbm6t/EN34j8UaDNZSalDr8UmkDT7LVhOmnaqbo2Zgtxd/ofX4E/8HGfwz/4TD9hDRPHVvb7rz4R/GzwXr9zdBdzQ6B4p03xB4GvoGOPkiudd1/wvIzZGZbWFOd9fIce5lmuT8H5/m2S1KdLMsuwLxtCpVoxr04ww9WnVxTlSmnGV8JGulzJqLan9k/on6JfBfAPiP9I/wj4A8TsLi8dwTxpxVT4ZzXC4HMa+U4utis6wONwGRRo4/CuNeg1xDXyqU1TalWpqdC6VVtfMXiP/AIOefhra+Z/wiP7JHjnW8Z8r/hI/iroHhbf6eZ/Zng3xh5ee+3zcds14J4j/AODnf4r3Xmf8Ij+yf8PdEznyv+Ej+JXiTxTs67fM/szw14P8zHGdvlZ5xtzx/LrRX8V4jxs8TMRdf6xuhF/Zw+WZRSt6TWAdX/yof9OeTfsv/oQZNyTXgvHNK8bfv85458RcfzW/nwsuLIZe9d7YNX2emh/Qf4j/AODkr9ufVfMj0L4e/s2eFoTny5bbwZ8QNW1BAc43z6t8ULiwkK8YI0uMZySCDgeCeI/+C93/AAUx1zzBp3xh8I+EA+cDw58IvhpP5YPaNvFXhvxM4wOAzMzjqG3YNfjXRXhYjxL4/wAVf2vF+fRvv9XzCtg/u+qSoW+Vj9Xyb6EX0Rci5PqP0dPCat7O3L/bHCGWcRPTbmfEFLM+f/t/mv1P0Y8R/wDBXD/gpD4p8z+0/wBrf4nWvmZ3f8I5/wAI34Pxnr5f/CJaDonle3lbMdsV4N4j/bb/AGyvF/mDxP8AtY/tI65FLndbaj8bviTcWQB6rHYv4k+xxIcn5IoET/Zr5gorwcRxLxHjL/W8/wA6xV9/rGa46vf19rXlc/V8m8E/Bnh3k/1f8I/DHIvZ29n/AGNwFwrlnJbbk+pZTQ5bdOW1j/Ss/wCCZHxWHxo/YE/ZT8dS
+apc61qH/AAqHw54P17U765kvNRvfEvw3SX4d+I7rUrmeSW4uL+51rwte3N1cXLtPdSTG5kZmm3H7sr+UH/g23/a+sDpnxK/Ys8Xap5Wpx3998XfhAt3MNt7ZXFvZWPxF8K2JkK7ZrCa10vxfp+nQCWS5hv8AxjqTLHFp8zP/AFfV/oN4b8QUeJeCsgzGnUVStDAUMBj1zXlTzDAU4YbFKau3F1J01iKcZaujWpTu1JN/8ff01PCDMvBH6Tfi3wZjMHPC5bieK804r4Tqez5MPi+EOLMZiM8yGphZqMadaGCw+Llk+KnRSp08zyzHYblhOhOnEooor7g/lkKKKKAPiP8Ab6/Yj+Gn7dnwD8Q/C3xpp1rb+L9Ns9U1n4SeOVjVdW8CePPsEkem30NwoEs+gapPHbWHizQ3cWusaTyPs2q2Okanp3+afqOn32k6hfaVqdrNY6lpl5dafqFlcIY7izvrKd7a7tZ4zyk1vPFJFKh5V0ZT0r/V61nWNL8PaRquv65f2ulaLoem32saxql7KsFlpul6Zay3uoX93O5CQ2tnaQTXFxKxCxxRu7HANf5YHxj8X2XxC+LvxU8fabC1vp3jj4j+OPF9hA6lXgsvEvifVNatYXVgrK0cF7GjKyqQVIIB4r+SvpK5bltHFcM5pSp0qWaY2GY4bFyhFKpisLhFgnh6la3xPDSrTpQnJc0oVVT5nGjCMf8AoX/Yj8bca5lkfjfwHj8Vj8dwHwziODc74fp4mpUqYLIM84hnxNTznBZb7S8aVPOqOWYTMMThaMo0aOJwVTFqlGvmWIq1vOKKKK/lw/3hCiiigAr9IP8AgkP4dvfFH/BSX9krTLBo0ntfiNdeIpDKcKbLwf4S8SeLdRUcj94+n6JdJCO8rIMHOD+b9f0Rf8G4f7PcfxD/AGs/Hfx61ayabSP2fPAEsGh3BUhIfiB8VE1LwxpkgdvklWHwRZfECOWJQXinvLCctHtQSfZeHmW1s2454VwV
+GPO3neAxNVXathcBXjjsZK6Ts4YXDVpLzS1W5/Nf0xuNsu8PfosePnE+Z11Qp0/C7izJcDOUYzU884ryytwpw7QlCUoqUcRn2dZbQmr35KkmlJrlf9u1FFFf6TH/ABNhX8E3/Bwj/wApG/E3/ZJvhZ/6ar6v72a/gm/4OEf+Ujfib/sk3ws/9NV9X4T9If8A5IGj/wBlBl3/AKjZgf6vfsbv+Ut8z/7M/wAZf+rzg8/ECiiiv4dP+poKKKKACiiigD+/T/ggH/yjW+Gn/Y/fFv8A9TjUq/aSv5df+CPX/BSn9iL9mb9hXwJ8LPjj8eNI8CeP9K8YfEfUtQ8N3HhP4h63d21jrPiy+1DTJ2uPDPhHWrBlu7OWOdEju3kRWCyojgqP0ouv+C43/BLm1yG/afjmYdFtfg78fbjP0eP4WGL85AK/0D4F4x4RwXBPCmGxnFPDmExOH4fyqlXw+JzvLKFejVp4KjGdKrSq4qFSnUhJOM4TipRkmmk1Y/5BPpXfRv8ApD8UfSf8f874a8BvGfiHJs28XuPswyrN8j8LuN81yvMsBi+JMwrYXHYDMMBkdfCYzB4mjOFWhisPWqUKtKUalOpKDTP1ior8e7r/AILx/wDBMW3z5Xx316+x0+y/Bz4wpu+n23wPZ/8Aj22ucuv+C/3/AATYt8+V8R/iDfY6fZfhL40TP0+22Fp198e9fSS8QuBIb8Y8Mv8Aw51l8/8A0jESPxKh9Dv6V+Jt7P6N3jdG/wDz/wDDPi7C/f8AWspo2+dj9p6K/De6/wCDhj/gnTBnytZ+MV7jp9m+F1ym76fbNYtP1xXO3X/Bxn/wT8t8+TpH7Qt9jp9l+HHhtM/T7b8QbP8AXFc8/Ezw/hvxfkT/AMGPpVP/AEhyv8j2KH0H/peYi3s/o6+K0b/8/wDhTH4X7/rMKNvmfvVRX8+V1/wcnfsHwZ8n4c/tTXuOn2bwF8L0B/8AAz40WpA+oz7Vzt1/wcvfsZJn7F8F
+v2nbj+79q8P/AAqs8/XyfizfY/DdXNLxW8O4b8WZU/8ADOtP/wBIoyPZofQC+mTiLez+j5x9G/8Az/w2XYX7/rOYUrfOx/RfRX81t1/wcz/svpn7F+z38erj0+1XPw9tM+mfK8U32Pwz+Nc9c/8ABzh8C0z9j/Zh+LM/p9p8YeD7TP18qG9x+Ga55eMHhtDfirBP/Dhsxn/6Rg5HsUP2c301sRb2fgFxNG//AD/zjg/C/f8AWeI6VvnY/pzor+Wq6/4OevhwmfsX7I3je49PtXxY0G0z6Z8rwTfY/DP41zt1/wAHQeiJn7F+xXqtx6fav2gLS0z6Z8r4NXuP1x71zy8afDKG/FFJ/wCHK87n/wCkZbI9ih+zJ+nHiLez8CcdG/8Az/468L8L9/1njalb52P6t6K8C/ZY+OX/AA0v+zv8IPj5/wAIv/whX/C1vBWl+Mf+EU/tr/hI/wCwf7TEh/s7+3f7J0H+1PI2Y+1/2Pp3m5/49Y8c++1+lYXFUMbhcNjcLP2uGxeHo4rD1OWcPaUMRTjVpT5KkYVIc9OcZcs4RnG9pRjJNL+JM/yLNeF89zrhrPcL9Rzvh3NsyyLOMF7fDYn6nmuU4ytl+YYX6zg62IwmI+r4vD1qXt8LXr4arye0oVqtKUZyK/Hn/gvJ/wAoxfjr/wBjB8HP/Vv+Ca/Yavx5/wCC8n/KMX46/wDYwfBz/wBW/wCCa+Y8QP8AkheMv+yYzz/1W4k/dPohf8pWfRt/7Pp4Vf8ArbZIf59tFFFf5rH/AG3BRRRQAUUUUAfvz/wbg/8AJ/fiv/s2z4h/+pv8La/ufr+GD/g3B/5P78V/9m2fEP8A9Tf4W1/c/X90fR8/5N7D/sdZn+WGP+VD9sD/AMphYr/s2nA/55wFFFFfuB/lsfzHf8F5P+CYf/CzPD2rfttfAnw9v+IfhDSkl+O/hTSLXM3jbwZpFqsUXxEsLaBC8/ifwZp0CQeJECs2r+ELWK/V4bvwy0Os
+/wAbFf6yzokiPHIiyRyKySRuodHRwVZHVgVZWUkMpBBBIIINfwo/8Fsv+CYr/sk/EqT9oH4NaC0f7OHxX12Y3ek6bbt9j+EXxB1EzXlz4YaKJfLs/B3iJludQ8FyqEttMlS/8KPHax2GhPqv8leO3hn7CdfjjIsP+5qyUuIsHRhZUqs5KKzanCK/h1pNRzCyvGq44tqSq4mpT/6Ff2UX04f7Vw2WfRZ8Vc3vmWAoSo+DnEWY17vH5fh6cqk/DzGYmrK7xeXUYTr8Iyqyar5fTr8P050p4HJMJi/wXooor+XD/eMKKKKACiiigD+ov/ggH/wUlj8E63Z/sMfGjXvK8K+LNVuLn9n3xFql1tg8P+LtUne51L4Xzzzt5cOl+L72SbVPCK74hB4un1DR0W7n8U6bFY/2G1/k32l3d2F3bX9hc3FlfWVxDd2d5aTSW13aXdtIs1vc21xCyTQXEEyJLDNE6SRSIroysoI/v7/4I4f8FIbT9t/4Jf8ACD/EXVrcftJ/B3S7Cw8eQzPHDc/EDwwpjsdG+KGn242iWa8fytM8axWqmLTvE5jvmh0/T/EuiWa/134DeJH1yhT4Hzqv/teFpyfD+Jqy1xGEppyqZZKUnd1sJBSqYTfmwkZ0VyLC0lU/51v2s30K3w3muN+lJ4aZU/7Az7G0oeL2TYGj7mTcQY2rDD4XjmjSprlhl/EGJnSwfETUYewz+rhszm8RLPMbUwf7K0UUV/Tp/hgFFFFABRRRQAV8E/8ABSj9jnTP23/2TviB8IUt7RfH2nQf8Jx8IdWufLj/ALL+JXhu1u5NFt3upfktdP8AE9pcah4Q1i4cOlrpevXN8sT3NnbFPvaiuDNMtwec5djsqzCkq+CzDC1sJiaTteVKvBwk4tp8lSN+enUS5qdSMZxalFM+s4E424j8N+M+F+PuEcfPLOJuD88y3iHJMbG7jSx+V4qniqMa9NSiq+ErOm6GMws37LF4SrWw1ZSpVZxf+Tvq
+2lanoWqaloetWF3pWsaNqF5pWraXqEElrf6bqenXMlnf2F7azKk1td2d1DLb3MEqLJDNG8bqrKQM+v6HP+Dg39iT/hSX7QOm/tSeB9I+z/Db9oq8uF8XpZwbLLw/8abC1NzrJlKKI4V+IWkwt4qt9zPPe+INP8bXT7IxAp/njr/Nfivh3GcJ8QZnkGNTdXAYiUKdbl5Y4nCzSqYTFQWto4jDzp1eVN8kpSpyfPCSX/bV4AeM3Dn0gfCDgbxa4YlCGB4tyajicbl6qqtVyPPcNKWDz/IcTJJN18nzfD4zBe0lCCxVGlSxlKLoYmjKRRRRXzx+xBXqXwR+L/jL4AfF34c/Gr4fXcdn4x+GXi3RvF+hNcCVrK6udJu0nm0vU4oZYJbnR9ZtPtGkazaJNEbzS728tTIgmLDy2itaFethq1HE4epOjXw9WnXoVabcalKtSmqlOpCS1jOE4xlFrVSSaOHNMsy/O8szHJs3weHzHKs3wGLyzM8vxdONbC47L8fh6mExuDxNKV41cPisNVq0K1OScZ05yi9GdN408YeIviF4x8V+PvF+pTaz4r8beJNb8W+JtXuSDcapr/iLU7nV9Y1CbHHmXeoXlxO4GFBkIUAACuZooqJznUnOpUlKdScpTnObcpznJuUpSk23KUpNuTbbbbbdzfC4bDYLDYfB4OhRwuEwlClhsLhsPThRoYfDUKcaVChQpU1GFKjRpQjTp04RUIQjGMUkkgoooqTcK9i/Z9+CPjP9pH41/DT4F/D+2+0eLPiZ4r03wzp0jxSS22mW9y5m1fxBqKxfvBpHhvRYNQ1/WJI8vDpem3cqgsgB8dr+vv8A4Nyf2J/7C8MeLv23vHekbdU8Xpqfw5+CKXsHz2vhexvBB4+8a2gkVlD65rVkng/S7yIw3VvaaD4rgPmWOuIX+08P+E63GnFOW5JBTWFlU+tZnWhdOhlmGlGWKnzL4J1U4YahJppYivRvo2fzN9Lz6QeW/Rl8BuNP
+E/ETw9TPqOF/sLgbLcQ4tZvxvnNOtQyLDOlJr2+GwMoYjPM0pRlGbybKcxdN+0UE/wCkf4GfBzwZ+z38H/hz8E/h7ZfYfB/wz8J6T4U0ZGWNbm7TT4ALzV9RaNVSbV9d1F7vWtZugoN5quoXl0/zzNXq1FFf6P0KFHC0KOGw9OFHD4elToUKNNKNOlRowVOlThFaRhThGMYpaKKSR/xX5rmuY57mmZZ3nGNxGZZvnGPxma5pmOLqSrYvH5jmGIqYvHY3FVpXlVxGKxNarXrVJNynUqSk9WwooorU4AooooAKKKKACv5Tv+DoH/kXP2MP+w38ef8A0g+Edf1Y1/Kd/wAHQP8AyLn7GH/Yb+PP/pB8I6/LPGv/AJNjxR/gyn/1e5Wf3p+zF/5Tl8Cv+wrj/wD9dXxyfyMUUUV/n0f9ggUUUUAFFFFAH9kf/Bsd/wAkN/ag/wCyr+Df/UQuK/p1r+Hb/gjH/wAFPP2bv2Cvhx8Z/B/xysfiXcan8QPHPh7xHoc/gbwvpWv2MWn6XoM2mXK6hLfeJdEnt7k3Dq0ccNtco8WWMqsNlft3af8ABw7/AME7bnHnaj8aLDPX7X8MC+36/YNfvf8Ax3dX9weFnHfBuV8BcO5dmPEuUYHHYXDYmGIwuKxdOjVoylj8XUipxm1ZunOE1rqpJn/LT9PX6KH0k+O/pZ+MvGnBngn4h8UcK55nOR4jKM9yLh3GZlgMwo4fhDh3BVqmGq4WNR1I0sXhsRh5+6mqlGcbaH7nUV+K9p/wX/8A+CbFzjzviL8QtPz1+1/Cbxm+36/YLG9/8dzXT2n/AAXg/wCCYdzjzvj3rdhnr9r+Dfxlfb9fsPgS9/8AHd1fo8PEPgSfw8Y8NL/HnWX0/wD05XifxbiPod/Svw1/afRu8bpW/wCgfwy4vxf3fVcprX+Vz9gaK/KW0/4Le/8ABLu9x5X7UdnGTji7+Evx4scH0LXnwvhTjuQxHocc109p/wAFj/8Agmhe
+48n9q/wYmSAPtfhn4j6f19ft/gu2wPUnAHfFdUON+DKnwcXcMTvtyZ/lUvyxbPDxH0XvpMYS/wBa+jv46Ya2/wBY8JOP6NvX2nD8T9M6K/PK0/4Kxf8ABOS8x5P7XXwmTdwPteoarYfn9u0q32/VsCumtP8Agpr/AME+b3Hk/tifABN3T7X8RdCsPz+33Ntt/wCBYrphxVwxU/h8R5DP/BnGXy/9JxDPExHgJ46YS/1rwX8WcNbf6x4c8YUbevtMmjY+56K+P7T/AIKEfsH3u3yP2zv2WlLdBdfHn4YWLfTbe+J7dgfYgHPGM109p+2r+xvf4+w/tafszXuen2T48fCy5znpjyfFT5zXTDPckqfw85yqf+DMMJL/ANJrM8PEeFXihhL/AFrw349w1t/rHB/ENG3r7TLo2PpmivDbT9p79mq/x9h/aG+Bt7uxt+yfFrwDcZz0x5PiB857Y69q6a0+NPwcv8fYfiz8M73OMfZPHnha5znpjydVfOe2K6YZhgKluTHYOd9uTE0ZX9LTZ4mI4Q4swl/rXC/EWGtv9YyTMqNvX2mGjY9MorM0rWtG162a90PVtM1mzWUwNd6Vf2uo2yzKiSNC09nLNEJVjljcxlw4SRGI2upOnXXGUZJSi1KL1Ti0013TWjPAq0qlGpOlWpzpVabcZ06sJU6kJLeM4SSlFrqmkwr+Bf8A4L4fs8N8E/29vE/jbTLE2vhP9oXw3o/xW0ySKIrZx+JtreGfHtksmAJL+bxBop8V365YoPFtq24CRVX++ivxc/4Lpfsh/wDDTP7GGu+OPDel/bfib+zdLqHxT8NGCHzL7UPBsdpHF8UPDsRAeQxXHhy0g8VpBDG9xeap4M0qxhx9qfd+V+MvC8+J+BswhhqftMfk8o51goqN51Hg6dRYujC3vOVXA1MR7OnFP2leFGNr8rX98/s1PHXDeBn0p+D8RnOL+p8J+I9Ct4ZcS1qlRQw+EjxHi8FU4fzKvz2o06WB
+4owOTLF4uo4fU8rxGZVfaKm6kKn8BVFFFf5+H/X4FFFFABRRRQB/oaf8EY/2vm/a1/Yq8Fv4hvorj4m/BNrb4O/EBWnV73UR4b0qxPg/xZcQsTP/AMVL4Uk0/wC23sg8q+8TaX4lNuQtu8UX6yV/mjfsBftyfEb9gn486T8WvBqTa94W1KKPQfih8O5b+Sy0zx54Plm8yW0eQJNFZa/o8zHVPC2tm3mfTNSRoZo7nSNR1jTr/wD0HP2Vv2wvgD+2X8O7X4j/AAI8c2PiSyEVsviLwzdPDYeNvA+pzoWOjeMvDLTy3uj3qOk0dvdA3Oj6ukMl5oWqapp5ju3/ALx8HvEbA8V5Fg8nxuKhDiTKcNDC4ihXqRVbMcNh4KFHMMPezruVKMY4yMeapSrxnUqRVKrSnL/k4/aP/Qx4o8AfFbiTxG4XyDEYrwT4/wA5xWe5Tm2V4SrUy7gzOc4xM8RmHB+c+y9pHKoU8fWq1OG6tf2WCx+V16GCwdWpjcvx9Ch9O0UUV+zn+ZwUUUUAFfBP/BSz9rnTf2L/ANkP4o/FePVLSz8f6jpU3gj4Q2E0sYutT+JXii3nsdEuLS1kI+2R+FoPt3jPVIMqr6T4evIvMWWaFX+wviJ8RvAvwk8FeI/iN8TPFeieCPA3hLTZtW8ReJ/EN9Fp+laXYw4XfNPKcyTzyvHa2VlbpNe6hezW9jYW9zeXEEEn+fF/wVf/AOCgt9+3v+0RNrXhi51ez+A/w2hufDXwc8P6lE9lNcWsxgbxF461TTTI/wBn1vxlf2sMqRyhLmw8Oaf4f0q5ijvbO9ef8r8WePsNwVw7iKeHrwfEGaUamFyrDxqR9vQ9rGUKuZzgnzQo4ON5UpuLjVxfsaSvF1ZQ/vn9nz9EfOfpOeM2T4vN8qxUfCHgLMcHn3H+c18JUllmavAV8Pi8FwLh8RKMaFfMeI6ns6WPoQqqrgeH3mOYScaywNHFfl7PPPdTzXV1NLc3NzLJPcXE8jzT
+zzzO0ks00sjNJLLLIzPJI7M7uzMzFiTUVFFf5977n/X8kopRikopJJJJJJKySS0SS0SWiQUUUUDPcPgt+0v+0F+zpq39tfA34x/EP4X3jzLcXUPhHxPqemaRqkibdq65oCztoWvQ/ImbbWtNv7diiFoiUXH7gfs8/wDByD+1P4C+w6V+0F8PPAXx70WHy47nXtLUfC34gSKcJJcTXmh2OpeCLwxqBLHaW/gfSGnkDxyajEsiyQfzn0V9RkPGvFfDEovI89zDA04u/wBVjWdbAyd7tzwGJVbBzb/mlQctXZq7PwjxZ+jF4AeOVKtHxT8KOEOKsbWp+yee1ctWWcU0qfKoqGH4syaeXcSYeCSi1To5pCm3CDlB8qt/pafsHft8fCj/AIKBfDXxB8R/hX4a8eeFYfCGv2/hTxRpHjrTdLtJrTxBNplvqzwaVqGi6vrFhrFklpdW8guhJZ3SpPAbrTrR5RGPuSvxl/4IMfA7UPg1/wAE8vAur6zbG01f44eL/FXxpmtpIyk8Oka7HpXhXwo7uf8AWQ6n4U8HaN4gtCp2Lb60gwJDKT+zVf6FcGY3Ncy4UyDMc79n/amPyzDY3FezpKhG+Kh7el+5i2qc/YTpe0grJVOb3YfCv+O/6S/C/APBHj94t8GeF/1r/UThLjfOeGsh+uY+ea1+TI6/9mY+2Y1IQnjKH9q4bHfVK8vaOeF9i3XxH8eoUUUV9MfhwUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFZ+r6vpegaTqeu65qNlpGi6Jp17q+satqVzDZadpel6bbS3moajf3lw8dvaWVlaQzXN1czyJDBBFJLK6ojMAD/FX/wCC1ng7w94C/wCCtP8AwUN8N+FrRLDRY/2rPi3rMFlEVMFrd+KvEt14q1aC2RFVILSPV9av1tLSNVjs7YRW
+qALCBX5f19Cftb/Fq4+Pf7VP7SnxwutX/t+X4v8Ax6+LvxM/toR3MEepxeN/H2v+JLe7gtrxUurS1lt9Ria0s5o4ns7byrUxReSI1+e6ACiiigAooooAKKKKACiiigAr67/4J9+ItW8Ift6fsS+KtBinn1vw3+1x+zfruk29s224udR0r4xeDb6ztoTlR5lxcQRwqCQrGTa3yk18iV+r3/BDH4J3f7QH/BXb/gn94AtreS5h079o7wV8VNViSMyI+g/AqW4+Nmux3PBC2txpPw/u7W4ZtuY5yisJHSgD9/v+D0/9kTU/A37Wn7PH7aGiaQU8HfHn4Vt8I/GepW0RaOH4p/CDUL290241aYKFhufEvw58U6Hp+jRs7Nc2/wAPNYZAotHz/FHX+2n/AMFZ/wDgnp4N/wCCnP7DXxf/AGW/EX9nad4v1SwTxl8FPGOoxF08BfGvwnb3lz4G8RNKkcs8Gl30tzfeEfFhtYnu5/BXifxJaWgW6uIJI/8AFj+Jnw28dfBz4h+N/hP8TvDGq+C/iL8OPFOueCvG/hPW7c2ureHvE/hvUbjStZ0m+hJIE9nfWs0ReNpIJlVZreWWCSORgDiKKKKACiiigAooooAKKKKACiiigD/XN/4NiP8AgoTZftyf8Ey/hz4L8RapbT/Gr9ju10L9nP4j2AkQX174T8M6LFb/AAW8by2+55zbeI/h9YWvh+71K5dptW8Y+CPGd4QqlVr+iuv8Vf8A4I+/8FQviZ/wSj/bC8J/H/wqmo+JPhhr6W/gn9oL4XW1yscHxE+Fd/fwT6iljFcSxWUHjXwnOi+JfAerTSW/2XWrRtJvbpfDuv8AiGzvv9kf4AfH34Q/tR/Bv4ffH74D+ONH+Ivwm+KHh618S+DvFmiTGS1vrG4LxT2l3byLHeaVrej30N1o/iDQdTgtdY0DXLHUNG1ezs9Ssbq2iAPYaKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAo
+oooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr4u/4KKfBXUv2hv2IP2l/hJodgdV8ReI/hhq+o+F9LVS0up+LPBs9p448K6dAMN/pV94h8N6ba2rEBVuJYmZlUFh9o0VxZjgaOaZfj8txN3h8xwWKwNdK13RxdCph6tr3V+SpK101fc+l4L4qzPgXjHhPjbJXCOccHcS5FxVlMqnN7NZnw9mmFzfAOfI4z5FisHScuWSly35WnZn+TOQQSCMEcEHqD6Giv0c/4Kv/ALM15+yz+3R8bfBkOkf2V4L8Z+Ibr4s/DPyYvK06bwT8Qr281iGz0pdq7bLwxrx17waIyMxy+HZAGkjMc0n5x1/mLm+WYnJc1zHKMZFxxWW43E4KsnFxTnh6sqTnFPXkqcqqU5aqUJRkm003/wB0Ph1xzkviZwFwb4h8OVo18j414aybibLJRqQqyp4XOcBQx0MNWlDSOKwjrSwuLpNRnRxVGtRqQhUpyhEooorzj7IKKKKAPRvhD8WPHXwL+J3gf4v/AAz1qbw947+HniLT/E3hvVYgXSK+sJMtbXlvuVL3StStmn0zWNNmJttU0q8vNOuke2uZUb/QN/4Jzf8ABUr4I/t6eBtOszqeh/Dv9oLS7VIPGnwc1PWLeK/vbqCDfc+JPh0L6aO88VeEboJJcMLZLjVvDTk6f4giVDp2rax/nWVc07UdQ0i/stV0m+vNL1TTbqC+07UtOup7K/sL21lWa2vLK8tniuLW6tpkSWC4gkjlhlRZI3V1BH6R4eeJWb+H2MrPDU45hlOMlGWPyqtUdKFSpFKMcThqyhUeGxUYLkc/Z1KdWnaFalNwozpfxZ9Mb6Efhz9L/hzL6ed4ytwj4hcNUa1HhPj/AC7Bwx2JweEr1HWr5JneWTxGEhnmQVq7eJhhXi8HjMvxjnictx2Gjisxw+Yf6xlFf5+3wT/4Lvf8FEfg1pFjoF78Q/Cn
+xl0jTIoLexi+NHhJfEmqx20CBBFd+LPDupeEfGOtSSAbpb3X/EGq6g7cm7xxX2vpP/Bzb+0LDbRJrn7NfwZ1G8EYE8+k+IfG+jW0kuOXitLy816WGMnkRveTsBwZT1r+ocB9IHw/xVKM8VVzXLKrinOjicuqV+WX2lGpgZ4qM4p35ZPkclZuMW+Vf4RcWfsgvpfZDj6+HyHAcAccYGNWaw+Y5HxnhMsVWhe9OpWwnFeHyCtQqyjb2tGDxEKdTmjCvWgo1Z/2ZVQ1TVdM0PTb/Wda1Gw0fR9Ks7jUNU1XVLy30/TdNsLOJ57u+v767khtbOztYEea4ubiWOGCJHkldUUsP4jPH/8Awckftr+I7eWz8EfDz4CfDlJN2zUoPDnizxXrsGeF8qfXvGDaCducnz/Dc25gCNq7kb8qf2iP2+v2w/2q47mx+Onx78deMPDtzOlxJ4Ktry28LeAPNhkElrI/gXwla6H4VuZ7MgfZby80q5voiC/2ppXkkfzc5+kVwfg6NRZPgs1zjFcr9kp0YZfg3K2nta9ec8TFXt8GCm2k9Vpf7bw2/Yz/AEjOI8xwkvEfifgHw3yJ1af1+WHzLE8YcSQouUfafUcryrDYfJK9Tk5knieJ8LGM+S0akXLl/dT/AILKf8FmPCfxX8JeJP2Sv2SfEMuteDtbkfSvjF8ZdLkkt9L8U6TBIwu/AHgGfalxqHhzUp0SPxP4qjMNh4g0+KTRdFOpeHdTvb+//lroor+T+LuLs440zirnOc1YSqygqOGw1FShhcFhYSlKGGw1OUpSUFKUpznOUqlWpKVSpJt6f9Av0d/o7+HH0ZPDnA+G/htgMRSwFPETzLOs6zKpTxGe8T57XpUaOKzrO8VSpUKVTE1KWHoYehh8NQw+CwODoUMLhMPTp03zFFFFfMH7qFFFFABX+hb/AMEWf2Srv9lL9iLwUninSG0n4nfGm7k+MHj22uYvL1HTU8Q2lrB4K8OXfmBbi3k0bwZa
+aRcX2lzrG+l+ItW8Q27RrK0zP/Md/wAET/8AgnPc/tg/HOH4vfErRJZf2dfgfrVhqWuLeQN9g+IvxBtPI1Pw/wDD2AyL5V5plnm11/xwiCdE0X+ztCuY4T4rtru3/vcr+sfo88EVqKxXG+Y0XTVejUy/IoVI2c6UppY7MIpq6jJ01g8PNP34/XLx5HTlL/n1/bGfSjy7M5ZH9F7g/MYYqplWY4Pi7xVxGEqqVLD46lhpT4V4QqzhJxqVqVPGT4jzjDyjbD1Vw3y1Pb08ZRolFFFf1Of4IhX8E3/Bwj/ykb8Tf9km+Fn/AKar6v72a/gm/wCDhH/lI34m/wCyTfCz/wBNV9X4T9If/kgaP/ZQZd/6jZgf6vfsbv8AlLfM/wDsz/GX/q84PPxAooor+HT/AKmgooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAP9J3/gll/yju/ZA/7Ip4W/9Anr77r4E/4JZf8AKO79kD/sinhb/wBAnr77r/TrhX/kmOHP+xDk/wD6r8Of8MHj5/yfTxp/7Oz4jf8ArYZyFfjz/wAF5P8AlGL8df8AsYPg5/6t/wAE1+w1fjz/AMF5P+UYvx1/7GD4Of8Aq3/BNed4gf8AJC8Zf9kxnn/qtxJ9j9EL/lKz6Nv/AGfTwq/9bbJD/Ptooor/ADWP+24KKKKACiiigD9+f+DcH/k/vxX/ANm2fEP/ANTf4W1/c/X8MH/BuD/yf34r/wCzbPiH/wCpv8La/ufr+6Po+f8AJvYf9jrM/wAsMf8AKh+2B/5TCxX/AGbTgf8APOAooor9wP8ALYK86+Lfwo8A/HP4a+M/hH8UPD1n4p8BePtDu/D/AIk0S9B2XNldBWjuLadcTWOp6ddR2+paRqlq8V7pWq2lnqVjNDd2sMqei0VnWo0sRSq0K9OFahXpzo1qNWMZ06tKpFwqU6kJJxnCcJOM4yTjKLaaaZ2ZdmOPyjMMDm2VY3FZbmmV4zDZhluY
+4HEVcLjcBj8FWhicHjcHiqEoVsNisLiKVOvh69GcKtGrCFSnKM4pr/NQ/wCChP7DXj79gn9oHW/hT4m+2az4J1b7T4g+Enj+S2EVp438ES3Jjt5ZniRbaDxNoLsmk+LdKjCNZamiXtvG2jaro15e/C1f6Wn/AAUF/Yd8Aft6fs/a58J/FItNH8ZaZ9o8QfCbx89sZbzwP44htnjtLmRolNxceG9aQLpPizSU3Lf6VKLq3SPWdM0a+sf85P4vfCXx/wDAj4meNPhD8UvD134W8e+AdcutA8R6LeLzDd25V4bq0nA8q/0rU7OS31PRtUtWkstV0m8s9SspZrS6hlf+BvFrw5q8DZz9YwVOc+HM1qVJ5bVfNP6nW1nVyuvN3fPRV54Wc25V8Kk+adWjiHH/AK4f2e300MB9Krw0/sjifF4XDeNHAWDwmE42y6PssO+I8vXLhsDx1leFgoQ+rZlNQoZ5h8NCNLKc8lKHscLgMyyeNbzeiiivyQ/0LCiiigAr3r9mX9o34lfsn/G3wN8dvhTqf2DxV4K1Rbh7Kd5f7J8S6Hcj7Pr3hPxBbxOjXeheIdNabT76IMs8HmRX9hNa6nZ2V3b+C0VvhcViMDicPjMJWqYfFYWtTxGGxFKThVo16M1UpVaclrGcJxUovo0eTn2RZPxRkmb8N8Q5bg85yHPstxuT5zlOYUYYjA5lleY4ephMdgcXQmnCrh8VhqtSjVg170JtaPU/1Cv2Tv2n/hr+2F8CfBHx4+F175mh+K7Hy9W0S4nil1jwb4rsljj8ReDfECRBfK1bQr1zEZPLjg1OwlsNb0/zdL1SxuJvo6v89r/gkN/wUZ1H9hP47Jo/jXULy4/Zz+Ld9p2j/FHSx51zH4S1EP8AZdF+KGkWcYkkF74e842/iS3s43m1rwrJdRfZr7VdK8PC1/0F9M1PTta03T9Z0e/s9V0jVrG01PStU065hvdP1LTr+CO6sb+xvLd5Le7s7y2liuLW5gkk
+hngkSWJ2R1Y/6EeGHH2G48yCGJqSp0s7y9U8NnWEhaKjXcX7PGUYXusLjVCVSmtqVWNbD3l7FTn/AMev06foj5x9E3xdxOS4WnjMd4Y8XSxmdeGnEFdTqyqZXGtB4zhvMcS1yzz3hipiKGExkm1LHYCtlmcezof2jLC4e9RRRX6SfxOFFFFABRRRQB8sftqfsueFv2yP2avif8AfFH2a1k8XaI8/hLXriIyt4T8e6Of7R8HeJoiim4WLTtaht01WG1aObUdCuNW0gyLBqEwP+Z3498DeKfhj438XfDnxxpFzoHjHwL4k1nwn4o0W7AFxpmvaBqFxpmqWUhUlJPIvLaVEmjZoZ4ws0LvE6O3+rXX8d3/Bxh+xJ/winjjwt+2z4D0jZoPxCl0/wD8aIrKDEVh4506wMXgzxhcrEp2ReKfD9g/hzU7pxDbQap4c0YyPLqPiQl/5y+kHwV/amT0OLsDS5sdkcVh8yUI+9XymrUvCq7Jyk8vxNRz0Vo4fE4mpN8tGNv8AZ/8AY+/Sc/1F8R82+jvxTmHsuFvFGvPN+Cp4mry4fLPEPA4OMMRgKbm406UOLslwkcMnKTdTOMlybBYak6+Z1XL+Xiiiiv40P+lkKKKKACiiigAooooA+k/2Qv2avF37Xf7Rfwu+AHg4TQXnjvxDBb63rUcBni8LeD9PR9S8X+KrpTiIx6F4ftb+9ggmeJdQv0s9Lif7VfQI/wDpn/DX4d+EfhH8PvBXwu8BaTDofgv4f+GNF8I+GNJhwVs9G0Gwg06xjkkwrXF08MCy3l5Lme9u5J7u4d55pHb+fP8A4N4P2Jv+FVfBXXv2u/HOkeR47+O1u2hfDlLyDZd6H8H9K1BZJtRhEipNA/xC8SWK6iyurJceH/DfhfUrObyNVnV/6Qq/uXwI4L/1d4Y/tzG0eTNeJI0sUueNqmHymKcsBR11i8SpSxtTla54VsNCceegrf8AK3+1e+k1/wARk8c/+IW8NZh7fgHw
+Uq47I5Sw9Xmwuccf15Qp8WZk3BqNaGSzoUeGMEqkZuhiMvzrE4Wq8PmruUUUV+5n+VYUUUUAFFFFABRRRQAV/Kd/wdA/8i5+xh/2G/jz/wCkHwjr+rGv5Tv+DoH/AJFz9jD/ALDfx5/9IPhHX5Z41/8AJseKP8GU/wDq9ys/vT9mL/ynL4Ff9hXH/wD66vjk/kYooor/AD6P+wQKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigD+3X/g2l/5Mi+L/AP2dT4v/APVR/Bav6I6/nc/4Npf+TIvi/wD9nU+L/wD1UfwWr+iOv9F/Cn/k3fCX/Yqh/wCnqx/xk/T/AP8AlMr6Qf8A2Xlf/wBVmWhUc0MNxDLb3EUc8E8bwzwTIssM0MqlJIpY3DJJHIjMjo6lXUlWBBIqSiv0Hfc/j5NppptNNNNOzTWqaa1TT1TWx/n1/wDBYr/gnZqX7EXx9u/FngjR5B+zj8ZdW1PXPhreWkLtY+CtalZr/XfhZfyAEWsmiNJJeeEvPbOp+Emt0hnvdR0PX2tvx7r/AFH/ANpj9nD4YftY/Bfxn8DPi5o41Xwl4wsDGl1AIk1jw1rlsGk0TxZ4bvJY5Rp/iDQL0peWFxskgmUT6dqFveaVfX9jc/5xv7Zv7IPxS/Yl+Ovif4J/E+yklfT5X1Hwb4vt7Sa30L4g+C7qaVdG8WaE8hkTy7qKNrfVdOW4uJtC1u31DRbuWSeyaST+F/Gbw0qcI5pPPMpoN8N5tiJSUacXy5Tjqjc54KaWkcNWfPUwMtIxip4VpOjTnW/6q/2aX03cL9IbgTD+FniBmkI+NPh/lNGjUr4utFVvEHhXAxp4XDcTYeVSXPXzzLoOhg+KqHv1K1eWHz2nKVPMcXh8t+UqKKK/Dz/UwKKKKACvUPg98avix+z/AOOtK+JfwX8feJPhx450Vj9i8QeGb97O4eB3R59O1G2YS2Gs6PeGNF1DRNYtL/SNRiUQ39lcQ5Q+
+X0VrRr1sNWpYjD1quHr0Zxq0a9GpOlWpVINShUpVKbjOnOEknGcZKUWk00zhzPK8szvLsblGc5dgc3ynMsNWwWY5XmeEw+Py7MMHiIOliMJjcFiqdXDYrDV6cpU61CvSqUqsJOE4Si2j+nP9nT/g5W+MHhaxtdD/AGm/gp4c+K6wrFD/AMJz8OtUX4eeJ3Rcebdav4au7LW/Cus3sp3YXRn8EWSDYBakhmf9SPBf/BxN/wAE+fEtvav4iHxt+Hl1Ki/arfxL8ObbVYrWXpIFuPBPiPxUbiENkxyrAkrx7We3ikLRL/CJRX61lPjn4h5VShQnmeGzanTSjD+1sHTxFVJfz4qhLC4qs+869erN3+K1rf56+If7Kz6HHH2PxGZ4fgfO/D/G4upKriX4ecSYvJ8BKpLrh8jzSlnmQZdTjpy4fK8rwOGVr+xu5OX9++rf8F+f+CamnW089n8T/HevSxIXjstJ+EnjyG5uWHSOB9c0nRbNXbsbm7t4/wC9ItfDnxs/4OZ/hNplnPafs8fs8ePfF+qsJIodb+LusaH4G0W0kH3LtND8J33jjU9at2I4tZtX8MTlGDtNEwMR/jrortzDx/8AELG0pUqFfKcrck4url+WqVVJ78rzCvj4xdtFJQUo7xakk18vwj+yH+h5wzj6WOzPLPELjqFGpGpHAcXcaSp4CcoaxVWnwhlfCdetT5kpSpVMRKnUtyVYTpSlTl90/tm/8FGP2pP26tYtp/jV4zht/BulXf27w78KvBdvc+H/AIcaDdhJYkv49Fe9v7zWtYjinuIotd8T6nrmsW0Fzc2lleWljM1rXwtRRX5DmWZ5jnGMrZhmmNxOYY3ENSrYrF1Z1q07K0Y8822oQVo06cbQpwShCMYpJf6L8F8D8H+HPDeXcIcB8M5LwjwxlNN0suyPIMvw+W5dhlJ89WoqGGhCNTEYio5VsViq3tMTi6854jE1qtac6kiiiiuE+pCiiigAr6O/ZG/Z28R/
+tX/tIfCP4A+GVukuPiH4u0/TtZ1O1h85/D3hC0Lan4z8TOpR49nh/wAL2Wq6qqS4See2htQfMuEB+ca/tR/4N6f2FZPhN8I9X/bB+IejfZ/Hvxx0waN8L7a+t9t54f8Ag/BeR3M2txrIqyW8/wAR9Zs7bUISUYSeF9C8PahZXBttfuo2+78OOD63GvFWX5VyS+oUprHZvVV0qWW4ecHWjzL4amKlKGEotXcateM2nCE2v5P+mn9I3LvoxeAXF3H7xFBcW4/Dz4X8O8vqOEqmP40zjD16eW11QndVsJkVGnieIsyhLljVwOV1sLGccRisPGf9E3hHwroHgXwp4Y8EeFNOh0fwv4O8PaL4V8N6Tbbhb6XoPh7TbbSdH06DcWbybLT7S3totxLbIlyScmuhoor/AEbhCFOEadOMYQhGMIQilGMIRSjGMYqyjGKSSSSSSSWh/wAXuIxFfF4ivi8VWq4nFYqtVxGJxFepOrXxFetOVStWrVZuU6tWrUlKpUqTlKc5ylKTbbYUUUVRiFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABX84P/AAc8f8FIfD37DX/BOP4ifCrw74i06H9oT9sfQvEPwM+HHh5Z0fWNO+H/AIi086V8afiI1opE9vp+g+CdUufC+l6qskM1n418Y+F7q0FwtjeiH93fj/8AH34Q/sufBv4g/H748eONH+HXwm+F/h668S+MfFmtzGO1sbG3KRQWlpbxrJearresX01ro/h/QdMgutY1/XL7T9G0izvNSvrW2l/xq/8Agr7/AMFMPHn/AAVW/bS8cftKeJbC68M+A7Czh+HnwJ+HtxLHJJ4D+D3h7UtUvPDun6k8Ek1vceKtevdW1TxZ4xvIZp4G8Ra7fWGmzf2Hp2kW9sAfl5RRRQAUUUUAFFFFABRRRQAUUUUAFf3L
+/wDBlZ+xPqHij43ftG/t9+J9J/4pX4V+Ez+zz8LL26gLQ3vxI8eNo3in4happc2P3d/4N8B6foOi3eW2y2PxVZEV2jdov4vvgX8EviX+0j8Y/hp8BPg54ZvPGHxQ+LfjLQ/Avgnw7ZKd9/rmv3sdnbvdT7Wi0/SrFHk1HWtXujHYaNo9pfatqM0FjZXE8f8AtY/8E0P2EPh//wAE2/2Lvgv+yV4Bnh1ZvAWhPf8Aj7xgkDQTfED4p+JJf7Y+IPjWaOQG4itdV1+e4g0CxupJ5tE8K2Og6B9omj0qORgD7xr+Nj/g6J/4IU/8Nb+A9a/4KDfsoeDvtP7UHwt8NrJ8b/AHhyw3aj8fvhd4bsQkfiLS7C0jMmrfFn4b6RbBLSCON9U8beBrQ+HLZ77W/DPg3RdQ/snooA/wByCCQQQQcEHggjqCOxFFf6KX/Bxf/wAG1Vr8T4vHn7fP/BO/wLHa/E+Maj4u/aD/AGZvCWnLHbfExR5l9rnxP+D2iWUYS2+IwHnaj4w8AafAsHxB/wBI1zwxbxePPtmk+O/87CSOSGSSGaN4pYneOWKRGSSORGKvHIjAMjowKujAMrAggEEUAMooooAKKKKACiiigAooooAK/pH/AODf/wD4L2+K/wDglB4+1T4QfGWz8Q/EL9ib4q6/Dq/i/wAN6KVvfFPwe8aXEdpp83xS+HthdTwQalbX2n2tpZ+PPBhuLRtestP03V9GuoNc0drDxD/NxRQB/vV/Bn4zfC39ob4W+BvjZ8E/HOgfEn4V/EnQLPxN4K8a+GbwXuj65o96GCyxMVjuLS8tLiOew1XSr+C11XRdVtb3SNXsrLU7K7tIfTa/xv8A/gjn/wAFyP2m/wDgkl8SI7TQLi/+LX7LPizV0u/in+zjrutTW2j3E0/lQ3PjX4Z6lPFex+AviLbwRxiW/tLSXRPFlrbwaX4t0y/Npoeq6B/ql/8ABPj/AIKU/sl/8FNvg1F8Zf2WPiFH4httPNnZ
++PPh7r8UGifFH4V69eQvLHoPxA8I/a7uXTZZvJuhpeuaddar4U8RpZ3k/hrX9XgtLmSEA+9aKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigD8Wv+C1f/BPW9/bS/Z/tPHXw1037X8fPgPba1r3g/TraBWvPH3hG8igufFfw/RkUTTatMun2+teDkfzlOuWlxosMduPE91fW/8AAfJHJDJJFLG8UsTtHLFIrJJHIjFXjkRgGR0YFWVgGVgQQCCK/wBZWv5O/wDgtB/wRw1XV9V8X/tifsneGpdSu9Rku/Efxv8Ag3oNmHvpr0q1xq/xJ8Aabapvvp71hJqHjPwvaxSX096914i0eO6kutRsof5l8c/DHEZq5cZ8P4aVfHUaMY57gaMXKrisPQpqFLMcPTiuapXw1GCo4mlHmlUw8KVSnFSoVfa/7jfsrPp0ZTwFGh9GrxezujlnC2Y5jVr+FXFOZ1o0cvyHN81xU6+P4OzXF1GqWDyrOcwxFTMckx1eVOhgs4xOPwWKrOjmeB+o/wAldFKQVJVgQwJBBBBBBwQQeQQeCDyDSV/IJ/0ZBRRRQAUUUUAFFFFABRRRQAUUUUAFFFb3hfwr4n8b+INJ8J+DPDmu+LfFOvXken6H4b8M6Tf67r2sX82fKs9L0jTLe6v7+6kwSkFrbyysASFwCRUITqTjCEZTnOUYQhCLlOc5NKMYxSblKTaUYpNttJK5liMRQwtCtisVWpYbDYalUr4jEYipCjQoUKMHUq1q1apKNOlSpU4ynUqTlGEIRcpNRTZg1+kf/BOn/gmp8ZP+CgPxEis9Ct73wb8FPDepW8fxL+MF7Ys+l6RCBHcTeHPC0cxii8SeN721dDa6VbyNbaRFcW+qeIJrOyltEv8A9Rv2Ef8Ag3j+Jnjy90D4i/tq6k/ww8CrJb6ivwY8
+PX8F38SvEtuMTRWXirXbGSfSfAWnXamL7Xbafcaz4sa3N3p80PhHUxFfQf16fDP4Y/D74NeB/D3w1+Fng/QvAngTwpYrp+geGPDljHYaZp9uGaWVxGmZLm8u7iSW81HUbyS41DU7+e4v9Rurq9uJ55P6H8N/AzM84r0M24xw9bK8nhKFWnlVTmo5lmVrSjCvBNVcvwktqrqezxtSKcKVOipxxMf8b/pp/tVeB/DnK818Pvo4ZvlnHniPiadfAYzjzBqnmPBPBLkpUqmIyvFSU8FxfxBST58FHB/WuG8HWlDEY7GZlPD18lq8v8AfgL8Mf2ZfhJ4N+Cfwf8Px+HPAngnTjZabaGT7Tf391PK93qmu63fsiSanr2uajNcalq2oSKnn3lxIIYre2SC2h9joor+ycPh6GEoUcLhaNPD4bDUqdDD0KMI06VGjSgoUqVKnBKMKdOEYxhGKSjFJJWR/zXZxnGa8Q5tmefZ7mONzjO86x+LzXN82zLE1cZmGZZlj69TFY3HY3F15TrYnFYrE1alevXqzlUq1ZynOTk2wooorY80K/gm/4OEf+Ujfib/sk3ws/wDTVfV/ezX8E3/Bwj/ykb8Tf9km+Fn/AKar6vwn6Q//ACQNH/soMu/9RswP9Xv2N3/KW+Z/9mf4y/8AV5wefiBRRRX8On/U0FFW7OwvtRlEGn2V3fTnpDZ201zKc9MRwI7nP+7Xomk/BH4z69s/sL4RfE/WvMxs/snwD4r1Hfnps+x6TNuz2xnNa0qFes7UaNWq72tSpzqO/a0YvU8/HZtlWWR5syzPL8vja/NjsbhsJG3e9epTVvO55hRX07pP7Ev7ZmvbP7E/ZJ/aZ1ZXxtfTvgR8UbyLB6MZYPCzxqnq7MFA5JAr03Sf+CYv/BQjWtv2P9jz4+Q78Y/tb4f6xoGM/wB7+3YdO2e+/bjvivSpcPZ/Xt7DI84rX29llmNqX9OShK+627nxWYeMHhJlPN/avil4dZZy/F/a
+HG/DOD5bb831nM6dreZ8K0V+nGk/8Eav+CmWtbPsf7KPi6HfjH9reLfhjoGM/wB/+3fHGm+X779uO+K9O0n/AIIN/wDBTnUdv2v4F+H9BDYydW+MXwhl2Z/vDQ/GusnjvtDH0zXp0uBeNq9vZcIcTTT+0sizNQ/8DeFUfxPh8w+lZ9GHKuZZh9IrwOw043vRl4q8DSxGm9sPTzydd28qb103Px5or909K/4N3v8AgohqIU3lt8EtBzjI1X4mzTFc9m/sPw1rIOO+0sPQmu/0/wD4Nr/26rra178S/wBlvS0ONyzeOPihczj/AHUs/g1NAxHfNyo9Ca9Kn4X+INWzjwjnSv8A8/MK6P3qs4NfM+Lxv06/ofYByVf6RHhlU5d/qWf08yT/AMLy6nilP/t1s/ntor+kzTv+DZn9qeUL/a3x/wD2f7In7/8AZy/EXVAvrtNz4O0jd+IT8K7nT/8Ag2K+Lku3+1f2rPhxZZxu/s/4deJtTx67ftOv6Tux2zsz7V3U/B/xJq/DwrjF/wBfMTl1L/07jYHy2L/aOfQnwV/bePnDc7b/AFTJOM8w+76hw1ieb/t29+h/L1RX9X+n/wDBr3qL7Tqv7a1lb4wWj0/9nue9z6qstz8abDb3w5hfH9w13Wn/APBsF4Ei2/2r+2D4tvcfe/s/4N6PpmfXb9p+Ier7fx34967qfgf4m1N+HI013qZxka/COZTkvmj5XGftSfoNYW6h40VsZON7wwfhz4pyu+yqV+CqFGV+6qtd2j+Qaiv7MtP/AODZL9nqLb/av7SnxmvcY3f2f4e8EaZn12/abPV9vtndj3rutO/4No/2L4sHVfjN+09fEYyLDxH8KtMVj34n+EuqMAfQPkD+LPNd1PwE8R525suy+j/18zbBO3r7KpV/C58vjP2tX0LcNf2PGXF2YW2+p+H/ABLDm9Pr+FwP/k1j+JOiv7pdP/4Nxf2ALLb9p8RftG6vjGf7Q+IvhCLd/vf2V8Nd
+Mxnvt2+2K7nT/wDg3y/4Jw2W37T4S+Kmrbev9ofFXXIt/wDvf2VBpmM/7G32xXbT+j14gTtzSyGjf/n5mVZ29fZYKr+Fz5bGftivoh4a/saHivmFtvqfBeXQ5vT6/wATYH/yblPr/wD4JZf8o7v2QP8Asinhb/0CevvuvOPhB8KPBXwL+GPgj4QfDjT7nSvAvw80Cz8M+F9OvNRvdWurPSbAMLeGfUtRmuL28kXcxae5mklcnlsAAej1/aWSYOrl2TZRl9dwlXwOWYDB1pUm5U3VwuFpUKjpylGEpQc4NwcoRbjZuMXov+ZXxP4kwHGXiX4h8X5VDFUsr4r454t4ky2njadOjjaeAzzP8wzTBwxdKjWxFKlioYfFU44inSr16cKqnGFapFKcivx5/wCC8n/KMX46/wDYwfBz/wBW/wCCa/YauG+I/wAMfh38YPCOo+Afir4I8L/ETwRq8thPqnhPxloth4h8PajNpV/b6ppsl7pOpwXFlcvY6jaWt7amWFvJubeKZMOikc/EuV1c84ezzJqNWnQrZtlOYZdSrVVJ06VTGYWrh4VKignJwhKopSUU5NJpanreCXHmC8LfGPwr8SsywOKzPLuAPEPg/jLHZdgZ0aeNx+E4az/AZxiMHhJ4iUaEMTiaWDnRoyrSjSjUnFzaimz/ACoKK/03LX/gn5+wjZ48j9jH9lfK/daf4A/Cy7ce++68LTNn3zn3rpLX9iz9jixx9i/ZM/Zns8dPsvwI+FtvjHTHk+FUxj2r+WY/Rpzt/HxPlUf8OCxc/wA5wP8Aemv+288MI3+reBvHlbt7fiXh7D39fZ4fFW+Vz/L/AKK/1JLX9l79mexx9i/Z2+Bdnt5X7L8I/AFvtI6EeT4fTGPaujtfgd8FbHH2L4QfC6zx0+y/D/wnb4x0x5WkpiumH0Zswf8AE4twcf8ABlFaf/pWPpnjV/24fCMb/Vvo88R1u3t/EPLMNf19nwpirfif5XFKAWIVQSSc
+AAEkk9AAOST6Cv8AVptfh/4DscfYvBPhGz24x9l8N6Nb4x0x5VkmMdsdK6O2sLGyGLOytLQYxi2toYBj0xEice1dEfoyVX8fGlOP+Hh6U/zzqB41f9uVgo3+q/RlxVbt7fxgpYf7/Z+GWKP4eP8Ag3G03UYP29PFV3PYXsNq37N/xCjW5ltZ47cyN42+F5VBM8YjLsEYqobcQrEDCnH9yVFFfvPh/wAGLgTh6OQrMXmlsZicY8U8IsFd4j2f7tUFicXZQ9n8XtnzX+FW1/yb+l99JWf0rvGCt4sT4MjwI6vDeScOrIYcQPiZRjkzxlsW80eSZBzPEfW9aH9nxVL2elWpze6UUUV9ufy6FFFFABX4R/8ABar/AIJg/wDDYXw4Hx1+C+gJN+0r8LdGeM6Vp8KLd/F7wHZmW6n8IyKoU3Pi3QTJc6j4JnJaa/8ANv8AwtKk51LR5tI/dyivC4k4dyzirJsbkebUva4TGU+XmjZVsNWj71DFYabUvZ4jD1EqlOVnF2dOpGdKdSEv1XwU8ZON/APxK4Z8UvD7MPqPEPDeMVX2Fb2k8uznLa1qeZ5DnOGp1KbxeUZthHPC4yip06tPmp4rB1sNjsNhcVR/zRV/4Jqf8FAX6fscftED/e+F3ihOv+/YL/8AW71YX/gmX/wUFfp+x1+0AP8Ae+HOvJ/6HbL/APX7V/pZUV+F/wDEtfDfXiHO/wDwVgF/7gZ/qvL9tt40/Z8HPC9f4sdxXL8s0if5qi/8Ewv+ChL9P2PfjyP97wHqqf8Aoca1Ov8AwS6/4KGtjH7H3xyGf73g28T897Lj8a/0pKKpfRr4Z68QZ6/SGXr/AN1mZP8Aba+OH2fCDwqXriOLpflncT/NiX/gll/wURfp+yB8ax/veFnT/wBDnWrC/wDBKn/goq/T9kL4xj/e0GBP/Q71a/0laKpfRs4X65/n79P7OX/umzKX7bPx2+z4SeEi7c0uMZflxFG/4H+biv8AwSg/4KMt
+0/ZE+Lg/3tL05P8A0PU1r+qr/gifqn7cXwu+Ht9+y5+1x8B/ib4T8JeCNPfU/gp8S/E9razWVjof2hFv/hdrN1BqF3dRRaY851PwRcTxNBBpn9qeHHubS203w1YSfvJRX1XB/g1lfBWc0s6yniDPXVjTnQxGFrvAvC43DVLc9DEwp4SE5QU4wq03GcZ061OnOMvdaf4F9I79pTx39J7w0zDwz8Q/CHwqp4Cvi8JmmT55lcOKoZ9wznWClJUM2yXEYviDFUKWIlh6uJwGKp1sPWoYrL8bi8NVp/vI1KZRRRX7Gf5tBRRRQAUUUUAFeL/tE/AvwV+0x8EfiX8CPiFbef4U+Jfha/8AD17OkUc11pF7IEutD8R6akpEY1fwzrltpviDSHkzGmpabatIrRhlb2iiscTh6GMw9fCYqlCvhsVRq4fEUai5qdahWhKnVpTi/ihUpylCS6ptHpZLnGacO5xlXEGR47EZXnWRZlgc4yfM8HUdLF5dmmWYqljcvx2FqrWniMJi6FLEUZrWFSnGXQ/zevHH/BKD/goJ4L8XeKPC0X7Lfxc8WW/hzxBrGh2/ifwn4R1HWfDniO30vULiyg13Qb61SQXej6tFCl/p05VHe0uIjLHHJvReGn/4Jsft/wBv/rP2N/2jGx/zw+FPi25/9JtNlz+Ff6X1FfzvU+jZwzKc5U8/zulGUpOEHDA1FCLbcY8zoRlLlWl3q7Xep/sngv22XjhRw+HpY3wk8L8bXp0KVOviYYjinCPE1oQjGrX9lHNatOi601Kp7OmuSm5csfdij/Mrm/4J5/t52+fM/Yx/aibHXyfgV8S7n8vs/huXP4ZrIn/YO/bits/aP2NP2rIQO8v7PHxdRfwZvCAUj3BIr/Trornl9GnIvs8S5sv8WEwcvy5T1qX7brxWVvbeCPh7U7+yz/iSjfbbnVe3Xv07a/5f037Fv7Yttn7R+yb+0vb46+d8CPilFj6+Z4VXH41lzfsk/tWW3/Hx
++zL+0HB/12+DHxHi/wDQ/Da1/qK0VlL6NGU/Z4pzFf4suw0vyrxO+n+2/wDEFW9t4C8Gz7+z4xzulfvbmymtbr3+dtf8tSb9mj9o62z9o/Z/+Ntvjr53wp8dxY+vmaCuK+nf2JP+CfXxm/ah/ac+GHwe8SfDr4i+CvBWq6yur/EbxVrnhHxB4ftdC+H+gbdR8TzQ6hqum29tFq+o2cY0Lw+rGQPr+raYJY/s/nOn+kdRWuC+jbk+HxuExGJ4jxeNwtDE0a2IwUsto0Vi6NOpGdTDSrRxc3TjWinTnONOUoxk3FJ2t5/E/wC2w8Rs44Y4gyfI/Bfh3hnPc0yXMsuyjiajxnmGYz4fzHG4OrhsJnVHLK/DtClja+WVqkcZQw1bFUqNWtRpwrSlT54yxvDnh3Q/CHh7QfCfhjS7PQ/DXhfRtL8O+HtF0+IQWGkaHotjBpuk6XYwLxDZ2FhbW9pbRDiOGJEHArZoor+lIxjCMYQjGEIxUYxilGMYxVoxjFWSikkkkkklZaH+JVatWxNariMRVq18RXq1K1evWqSq1q1arNzq1atWblOpVqTlKdSpOUpTnJyk222FFFFUZBRRRQAUUUUAFFFFABX8p3/B0D/yLn7GH/Yb+PP/AKQfCOv6sa+Qv2sf2Ff2af227HwVYftF+CNQ8Yw/DyfxBc+EH07xf4t8Jy6VN4oj0eLW3Y+GNZ0pL/7Wmg6UFXUo7tbb7MTbCEzzmT4rxE4dx3FnBuc8P5bUw1LG5hHAqhPGVKlLDReGzLB4yp7SpRo16kb0sPOMOWlO9RxT5Ytyj/Tf0N/GThb6P/0kvDTxe41wmeY7hjg+vxPUzTC8OYTBY7Oqkc64K4k4cwrwWFzDMcpwdX2eOzjC1cQquYYdwwsK9Sn7WrGnQqf5klFf3yaj/wAG+/8AwTfvd32bwX8TtHznH9nfFbxHLtz02/2sNU6dt273zXBaj/wbj/8ABP8Avd32bX/2i9H3dP7O+IvhOXZ/
+u/2t8N9Uz/wLdX8oVPo88fw+GeQ1v+veZVlf/wAG4Kl+J/0D4P8AbF/RExVvb4fxYy6+/wBc4Ly2fL6/2fxPjv8AyXmP4WKK/tr1L/g2j/Ywm3HSfjN+07YE5IF/4i+FepquegAg+E2lMQPdycdWzzXB6j/wbI/s/S7v7J/aW+Mdln7n9o+G/BWqbfTd9mt9I3fhs/CuCp4C+I8L8uXZfW/695tglf8A8G1KW/nbzPqsH+1q+hbire34z4uy69r/AFzw/wCJp8vr/Z+Ex23Xl5ttL6X/AI0KK/rz1H/g2B8GSlv7I/bF8T2IP3P7R+CmlaoV9NxtviXo+78AmfauC1H/AINfNcjDHSf20tJvD/ANR+AN5pgPoGa2+MWrY/3ghz12jpXDU8EPE6ne3DaqJdaecZHL7ovMozfyifV4P9qP9BrF2T8ap4OcrWhjPDrxTpW9atPgmrh4263rJdVdJs/lJor+nrUf+DY341xFv7J/aj+Ft6B9z+0fA/izSy3puFtf6vt/Av8AjXB6j/wbO/tcxBv7I+On7ON8R9z+0b74m6WG9Nxtvh3rG38A+PeuCp4Q+JFK/Nwrjnb/AJ918BW/9NYud/lv0Pq8H+0X+hVjrew8feF4c1rfXMq4ty7f+b+0OHsLy+fNa3U/nBor+gLUf+Dbr9vay3fZfG/7MmrgdP7P+IHxCiLfQar8JNMAPb5iBnvjmvO9V/4N7/8Ago3p+/7J4Y+E+u7c4/sr4p6TDvx02/23Z6NjPbfs98Vw1fDLxAo3c+EM8dv+fWBqV/wo+0b+R9Zgfpx/RCzBpYf6RXhXT5rW+vcUYPLFr3eZPCKPnzNW6n4g0V+uerf8EK/+Cn+mb2h/Z1sdYjTJMmk/GL4JPkDukF/8RLC6fPZUt2f/AGeteaar/wAEff8AgpTo277Z+yb4+m28H+ytW8Da7n/d/sPxXqO/6puFebV4I40oX9twjxNTS+1PIs0UflL6ryteabR9pgPpSfRn
+zTlWXfSH8D8ZKVrU6HitwLOsm9lKis99rFvtKCfkfmvRX27q3/BNX/goDo277Z+xx+0TNsyD/ZPwt8Va9nH93+w9P1Hf9U3A9q801b9jT9r/AEHd/bn7Kf7SWjbM7zqvwM+J+nhccEsbvwvCAB3J4rzauQZ7Qv7fJc2o239rl2Mp29eeirH2uA8W/CrNeX+y/E3w+zLmty/UOM+HMZzX25fq+ZVL36WufNtFekar8G/i9oW7+3PhV8SNG2Z3/wBq+BvE+nbMdd32vS4duO+cYrz+6tLuylaC8tri0nX70N1DJBKv+9HKqOPxUV51ShWou1ajVpPtUpzg/ukkfZ4LNMszGPPl+Y4HHwtfmwWLw+KjbvzUKlRW872K9FFFZHcf26/8G0v/ACZF8X/+zqfF/wD6qP4LV/RHX87n/BtL/wAmRfF//s6nxf8A+qj+C1f0R1/ov4U/8m74S/7FUP8A09WP+Mn6f/8AymV9IP8A7Lyv/wCqzLQooor9BP49Cvjv9tj9iD4K/t2fCO7+F/xc0trfULE3WoeAPiDpMFuPF3w78RzQrGNV0S5mXbc6feCKCDxB4du2/szX7KKKOcW+oWel6np32JRXHmGX4LNcFicuzHC0cZgcZSlRxOGrwU6VWnLeMovZppShOLU6c4xnCUZxjJfR8I8X8T8BcTZLxlwZnmY8N8UcO4+jmeS53lWIlhsdl+Mot8tWlUjdShOEp0cRh6samHxWGqVsLiqVbD1qtKf+Zl+2z+wx8cf2EvipcfDn4u6P9o0fUXu7vwB8R9HguG8G/EPQreVV/tDRryVT9k1SzWW3TX/DV666toVzND56XGnXml6pqPxpX+pp8eP2ffg5+018OtX+FXxx8B6J8QPBOsDzH03V4WW60y/SKWK21rw9q9q8Gq+HdeskmmWy1rRbyy1G3SWaFLjyJ54pf46P27P+Dfz48/BK81bx1+yg2q/tB/CsNcXreDQlonxm8JWqkuLU6Tbi1s/i
+NbxrtSC88KW1t4iuJHMTeDhFA+oT/wAX+IngdnPD9bEZnwvRxGdZFKUqjwtKMq2a5ZHd06lGK9pjcND7GIoRnWhBP6zSiqbxFX/pl+ht+1N8N/F/Lsp4G8dsyynw08VaVKjgo5/j6lLLOAuNq8UoQxWFzGtOOE4XznFNXxOT5rVw+W18TKP9i4+pPFU8owX88VFaOr6Pq/h/VNQ0PXtL1HRNa0m7nsNU0fV7G503VNNvrZzFc2WoafexQ3dnd28itHPbXEMc0TqUkRWBFZ1fgjTi3GScZRbUotNNNOzTT1TT0aeqZ/rbTqU61OnVpVIVaVWEalKrTlGdOpTnFShUpzi3GcJxalGUW4yi002mmFFFFIsKKKKACiiigAooooAKKKKACiiv0f8A+Cc//BNz4u/t/fFCz0vR7PVfCPwT8PahE/xP+L8+nSHSdHsoTDNceG/DM1xGtlrnjvU7eWOPT9IieaPS4rhNZ1tYdNiVbr0cpynMc9zDC5VlWEq43H4yrGlQoUo3bbes5ydoUqVNXnVrVJRpUqcZVKk4wi2vjPEHxC4M8K+D89494/4gwHDPCnDmCqY7Nc2zGryU6dOCfs8Ph6UVKvjcfi6nLhsvy7B0q+OzDF1KWEwdCtiKtOnLvv8Agk7/AME5PEn7eHx0sLzxPpOqWX7OHw11O01T4teKlWe0ttdlt/KvbD4Y6DfqY2m1/wAT5hXV5bGVZvDnhiS81eWa3v7jQLbU/wDQr0nSdL0DStM0LRNPs9I0XRdPstJ0jStOtorPT9M0vTraKzsNPsLSBEgtbOytIYra1toUSKCCJIo0VFAHmfwK+Bfwv/Zt+FvhP4N/B3wtZeEfAfg6wWz0zTbUb7m7uHPmX+tazfOPtGr69rF2ZL/WNWvGkur68mklkYLsjT1yv7/8M/D7CcAZI8M5U8VnGPdOvm+OhG0Z1YRap4TDOSU/qeE5pqk5pTq1J1a84w9pGlS/5Dfpv/TC4h+l14nQztYf
+F5F4ccJwxmV+HfCmIqqdbC4HEVoyxvEGcxpTnh3xHxA6GFqY6OHlUw+X4PC4DKqFbFrBVcwxxRRRX6QfxYFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXmXxm+M3wt/Z5+Fvjn42fGzxzoHw2+Ffw20C88T+NfGvia8Fno+h6PZBQ0srBZLi7vLu4kgsNK0qwgu9V1rVbqy0jSLK91O9tLSb5X/4KD/8FKf2S/8AgmT8GpfjL+1P8Qo/D1tfm8s/AXw80CKDW/ij8VNes4Ulk0H4f+ETd2kupSw+darqmualdaT4T8OLeWc/iXxBpEF3bSTf5Wn/AAWM/wCC5H7Tf/BW34jyWniC4v8A4S/ss+E9Xe7+Fn7OOha1NdaPbzQebDbeNfiZqUEVjH4++IlxBJIIr+7s4tE8J2lxPpfhLTLA3euapr4B9H/8HAH/AAXt8V/8FX/H2l/CD4NWfiH4e/sTfCrX5tX8IeG9aK2Xin4w+NLeO70+H4pfEKwtZ54NNtrHT7q7s/AfgwXF22g2Woalq+s3U+uawth4e/m4oooAKKKKACiiigAooooAKKKKACnxxyTSRwwxvLLK6RxRRozySSOwVI40UFnd2IVEUFmYgAEkCkjjeV0iiR5JJHWOOONS7yO5CoiIoLM7MQqqoJYkAAk1/oj/APBtv/wbgt8Mm8Bf8FC/+CgXgZk+JSnTvF/7Nf7OPizTyrfDr/V3uh/F34s6Lexgj4g/6nUfAfgbUIQfAf8Ao3ibxHb/APCcf2ZpvgkA+r/+DX7/AIIXan+w/wCAv+G5f2r/AAcumftYfF7w0LL4XeA9etM6z+z58J9etY5buTVrO4jDaJ8WfiNayIniO0K/2t4M8HrB4RuZtO1bXvHehxf2AUUUAFFFFABX8g//AAXC/wCDXb4X/tu3vjb9qb9h3/hH
+vgt+1pq0l/4l8b/Dm9dNI+D/AO0Drcu+5v7+Ro0MHw0+KOuS7pZvE9pEfCHivWG+0eMdN0rVdX1nx7H/AF8UUAf4MPxy+A/xk/Zo+KHiv4LfH34beLfhN8VPBN+2neJvBPjXSZ9I1nT5cb7e5jSUG31HSdRgKXuja7pc97ouuabNb6no+oX2n3NvcyeS1/tl/wDBSj/gk3+xx/wVO+GA8CftK+AlXxjodjdQfDX44+DlstG+L3wwu7gvLnw94lls7pNT8PT3LmfVfBPiW11jwnqkhF5LpUOsW+natY/5eP8AwVm/4IMftm/8EpfEd/4h8X6LL8Zv2Yb7U/svhD9pf4f6NfHwwi3M/labo/xR0ASahf8Awq8Wzh4IkstZu77wxq91Ibbwp4t8RT299DZAH4hUUUUAFFFFABRRRQAUUUUAFfQ/7L37WH7RX7F/xc0D46fswfFnxZ8H/id4ebZbeIPC96qQappzyxTXXh/xToV7Fd6B4v8AC+oSQQnUvDHifTNW0LUDDC91YSyQQvH88UUAf6b3/BJ3/g7c/Zx/aa/4RH4J/wDBQGw0P9lv47X32LRbP4w2k8sf7N/xA1VwsMdzq2oahcXGpfBXVNQkYb4PFN3q/gON457qXx3ov2qy0OL+xGzvLTUbS11DT7q2vrC+toLyyvbOeK5tLy0uYlntrq1uYGeG4triF0mgnhd4pYnWSNmRgT/gIV+3H/BNH/gv9/wUK/4Jkf2R4O+HPxCh+MH7PljcR+f+zt8aZNS8UeB9OsS4+0RfDzWUvIPFfwvuPLe5ltrbwpq0PhN9TuDqeu+ENflUxuAf7IFFfzwf8E1P+Dl7/gnZ/wAFB4/D/gjxJ4wi/ZO/aK1T7NZN8Hvjhrmm6foPiDWZ9iC0+GfxcePTPB3jMXNzJHZ6XpGrr4N8dardM0dl4KmiQXD/AND4IIyDkHkEdCPWgAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii
+gAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA/Cz/got/wQ9+C37Xl5rHxV+C15o/wI+Pt99pvdVu7bTH/AOFa/EjUpN0pn8Z6HpaCfQteu7j5rrxp4btZ7u5ea5u9e0DxLfSQ3Nv/AB0/tMfsP/tS/sia7eaR8dvg/wCK/Cmm294bOx8cW+nz6z8OdeJbFvLoXjrTI7jw7eNcxtHMunS3ttrNosscOpaZY3W+3T/TpqjqemabrWn3ukazp1jq2lajbS2eoaZqdpb3+n39pOhjntb2yuo5ba6tpkJSWCeKSKRCVdSCRX4vxv4I8M8WVquY4GcuHs4rOU62IwdGNXBYupLV1MVl7nRj7WT1lWw1XDzqSlOpXVeo+Zf6afRd/ajeOX0fcsy/g3irD0PGLw6y6nRw2W5PxJmeIwHFHD+CpWjDBZDxdHD5hX/s+jS/d4fLc7y/OaGEpUqGFyuplmFpulL/ACdaK/0ZPjB/wR3/AOCdHxne6u9b/Zr8J+DtXuWaQax8J7vWPhdLBNIcyTJo3g2/0vwpcPISS39oeHr1NxMgQSHfXw74s/4Ns/2IdY8yXwx8Sf2jfB9w2fLhTxX4D17So89M22p/Dkam+04xnWxlcggkhh+EZh9HfjnCzl9SxGSZnSXwSpYythqsl/fpYvDUqcJeUa9SNre/e6X+r3CP7ZH6K2eYai+Jco8UOCMc7RxNLHcN5fneApTsm5YfHZBnWNxeIoq9lOrleErNxl/s6XK5fw+0V/XX4p/4NgvC1wzv4J/bD1/SkDZjtfFPwY07xAzLn7r3+k/EfwyEYDneunOGIx5ahsrwMn/Br/4oH+q/bM0B/wDrp8C9Ri+n3fitL/n1r5yp4I+JtOTiuG/aJbTp5vkcoy81fMozXpKKflY/aMF+1D+g3jaMKsvGv6lOXxYfG+HvihSrU3a/LN0+C61CW/xUq9SF9FK6aP5UqK/qj/4hgfG29QP2xPC3
+llgHf/hS+rB1XPzFY/8AhZBV2AyQpkQE8Flzkej6B/wbAeGIQjeKf2yNe1InBki0D4I6fogHqiT6j8UPEG7HQSNbpnqYh92lS8EvE2rLl/1adNaXlVzbJIRV/wDuouUvPljKxWO/ag/QcwNH2v8AxGyOMk78tDA+H/ifXrStuteC4Uqfl7arTT6N2dv5FaK/tc8Nf8G0H7I9lJDJ4r+OH7Q3iERsrSwaPefDrw1BcbTkxv8AaPAviO4SJ8YcRXKShSQkyNhx9mfDr/ght/wTV+HvkTS/Ai68falb7dup/EXx/wCOtf8AN29fP0Oz17SfCc28gFvM8PH+6u1CVPvYH6PXH2KkliXkmWxuuaWKzCdaVuvLHA4bFqUuylKCb3klqfk3FP7Yj6I+RUZyySn4nca17NU6WR8H4fLqTl9l1q3FWdcPyp0m/inToV6kVdqjJ2T/AM9hVZ2VEUszEKqqCzMzHAVQMkkkgAAEknAr7Q+C/wDwTr/bf/aBlsT8Lv2Zvitqumai8a2vifXfDdx4I8GyJIRmVPGPjdvD3hmWONT5kvkapK6oVwhZ41b/AET/AIafst/s1fBqS2n+E3wA+DXw5vLQDydT8GfDXwf4f1fcBjzZdY03SLfVLicgANcXF5LO4A3SHFe8V9/lH0aaEZRnnvE9WrG658NlOChRduvLjMZUr76rXAq293sv5I8Qv23ma1aVbDeFXgZgMFW5Z+wzjxA4oxGZQ5ndQdXhzh3B5U0o6Sly8Uy57uCUOXnl/IH+zV/wbS+NdUm0zXf2sPjfpHhbTd8Nxe/D34NWz+IPENxbthnsrzx74ksrPQ9DvY8FJv7M8K+L7Rtx+z3/AAJD/Sh+zJ+xF+y7+x/og0j4BfCLwz4OvprVbTVvGMsD634/8QINrSDXPG+sve+Iry2lmU3I0qO+g0S0md/7O0yyiIiX6sor9u4X8OOD+EOWpk2T0VjUrPMsY3jcwbtZuGIr831ZSXxwwkcPSlu4
+Nn+XPjr9NH6R/wBItVcF4k+I2ZVeGqk3OHBXDsKfDXB8IqfPThicnypUVnMqE7vD4niGvnGNoXap4qMXYKKKK+4P5ZCiiigAooooAK+aPiV+xp+yf8ZfGk3xF+LX7O3wf+Jnje4sbDTJ/EvjvwLoHirUpdP0yNotPs3k1qzvEa3tI3ZIYzHtVWIxya+l6K5sVgsHjqao43CYbGUYzjUjSxVCliKaqRTUaihWhOKnFSkozS5kpNJ2bPbyHiXiPhXGzzLhfiDO+G8xq4apg6mPyHNcfk+NqYOtKnOthZ4rL6+Hrzw1WdGlOpQlUdKpKlTlKDcItfMuk/sVfsb6Dt/sT9kz9mjRymNraZ8CfhdYuCO++28LRuWzyWLFieSSea9O0n4K/BvQdn9hfCX4Z6L5eNn9k+A/C2nbMdNn2PSoduO2MYr0yisqWWZbh7ewy/A0bbeywmHp2ttbkpx7I7sw4541zbm/tTjDinMua/N/aHEGbYzmvvzfWMXUvfre5WtbOzsYhBZWttZwL92G1git4lxwMRwoiDA44FWaKK7UklZJJLZLRL5HzEpSnJznKU5SbcpSblKTe7cm2231bdwooopkhRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVUvLCx1GIwahZWl9AesN5bQ3MR+sc6Oh/KrdFJpNWaTT3TV0/kyoTnTlGcJShOLvGUJOMotbOMk0013TueZar8FPg1ru7+2/hJ8MtZ35D/ANq+AvCuobweSG+16VNuyeTnOe9eaat+xb+xzr2/+2/2Tv2adYL53tqnwJ+F1+zE9SWuvC0rbvRs7geQ
+c19MUVxVcsy2vf2+X4Gtff2uEw9S/rz02fT4DjnjXKuX+y+MOKct5bcv1DiDNsHy225fq+Lp2t0seY/Cr4K/CH4F6FqPhf4L/DHwJ8KfDWra1P4j1Lw/8PfC2jeEdFvdeurHT9MuNXn0vQ7Oysn1CfT9J0yyluvI817awtYWYpDGB6dRRXTRo0cPShQw9GlQo01y06NGnClSpxu3ywpwUYRV23aKSu2eJmWZ5lnOOxOaZxmGOzXM8ZU9rjMxzLF4jHY7F1eWMPaYnF4qpVxFepyxjHnq1Jy5YxV7JIKKKK1OEKKKKACiiigD4s/au/4J8fsnftoaa8Xxy+Fek6l4njt0t9M+JXhzHhj4l6RHEAsEdv4t02NbvUrK3XcING8RRa3oMbO0n9lGXbIv88/7Qn/Bs34kszfat+y3+0Hput248ySz8E/G7SpdH1FIkJZYk8f+C7C/0/UbuVP3cSXHgPQbUSqpmvY4pWeD+uuivhuJfDbgziydSvm+SYeWNqLXMcI54HHOXSdSvhpU/rMorRfW414pacuit/VXgl9Nf6S/0fqGFyzw68T83pcM4Sd6fBvEMMNxRwpCk2pTw+DyrO6WL/salVklKrLIK+U15S5pe2Upzcv82T46/wDBLn9vX9ndruf4g/s2/EC90O0Zy/iz4f2MXxN8Li2XO29utV8Bza+NGtpMfKPEMOkXCsVjmt4pGVD8EXFvPaTzWt1BNbXNvK8Nxb3EbwzwTRMUkhmhkVZIpY3BR43VXRgVYAgiv9ZKvEvip+zX+zz8conj+MfwP+FHxOd4xGt3448A+GPEepW6qu1Gs9V1PTLjU7GRF+WOazu4JY1JCOoJFfiucfRqwk5TqZBxLXoLVww2bYSGJ36PGYSWGcUtl/sU21u76v8A048N/wBtzxDhqeHwni54JZTm00oxxOeeHvEOKySSUbJzhw1xDQzuFapPWUv+MnwlOMtIwUZJQ/y1KK/0GfiR/wAEKf8Agmx8Qmmu
+LT4L6z8ONQnJaS/+G/xC8ZaQuSSQIdF1vVfEXhi1C5OFtNCgXGAwIC4+Q/Ff/BtD+yNqHmP4N+N37Q3hmV8lY9cvfh34ss4SeixxW3gXwvdmNePlm1CWQ85m5GPz3G/R74/w0pLD/wBi5jFfC8LmMqTkul447DYRRlbdczintJ7n9h8Mfthvoi55SpSzleJ3BtaVlWp57wbQx9OlLTmcavC2dcQyq0r3cJeyhVlFXlRpyfIfxRUV/WV4m/4NgH8wy+Df2yV8kvgWXib4HnzI0z946npXxR2zOBgbRpEAJGd4ztHI/wDEMH4//wCjvvB//hn9a/8Am/r5+fgp4mwk4/6szlb7UM0ySUX5prMvwaTXVI/XsL+06+g5iqEK68csNQ51rRxXAnidh69NreM6c+C91tzQc4S3hOS1P5Y6K/qeX/g2D8eFlD/tf+EVQsN7L8HdZdlXPJVD8QUDMBkhS6AngsvUex+Ev+DYb4c2nlHx1+1v411/oZo/CXwq0Lwj6Fkim1jxl426cqJHgO7hjEv3BdDwS8TK0+V8OexXWpXzXJowV/KOYTm/+3YSt1scuZ/tQ/oPZbQdaPjO8yqO/Jhcs4B8Sa9edt/ercIYfDU91b22IpKX2b2dv4/q9R+EnwS+L3x68V23gf4MfDbxl8TfFV00WNH8HaDf61Pawyv5YvdUmtIXtdH0yNsm41XVp7LTbWNXlubqGJHdf7p/gt/wQR/4J3/CU2t54g8CeMPjdrVrskXUfi34zvruxE45dv8AhGPBcHgzwxd2xOVS01nSdXRI9od5ZV84/rF8OPhV8Mfg94di8I/Cf4d+CPhn4XhfzU8PeA/C2ieEtH88qEa5k0/QrKxtZbuRVHnXUsb3MzZeWV2JY/fZD9G/PMROnU4jznA5bh7qVTDZaqmPxrj1purVhh8LRm9UqkXi4x35JbH8k+LP7arwtyjC4zBeDPhpxVxnm6jOlhc541qYPhPhqnVd+TFwwWAxWcZ9
+meHho5YTEU+Ha9V3isTRSU5fyxfsN/8ABudqUt1pXxA/bp8RwWdlE9ve2/wG+Hmtrc3l2RtdrP4g/EHTW+y2cAZWhutG8A3N7LcxOk9v43sJEktX/qs8BfD/AMEfC3whoPgD4ceFNA8EeCvDFjHpugeF/DOmWukaLpVnGS3lWtjZxxQq0sjPPczsrXF3dSzXV1LNczSyv19Ff0rwlwLw1wVhXh8iwEaVWrFRxWYV2q+Y4u1n+/xMopqF0pKhRjRw0JXlCjGTk3/iN9IT6VXjZ9J3PaeceK3FtXH4DA1qlbI+Ecqpyyrg7h11IuEnlOR06tWDxMqbdKpmuZV8xzqvRtRxOZVqUKcIFFFFfXn86hRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRQSACScAcknoB6mv53/wDgpX/wcv8A/BOz/gnxH4g8D+G/F8f7WP7RWlfabJfg/wDA/XNN1DQfD+swb0Np8TPi4kep+DvBotrmOS01TSNHXxn460q6VY77wVDE5uEAP6DtZ1rR/Dmkan4g8Q6tpug6Dolhd6rrOt6zf2ul6RpGl2ED3V9qWp6lfSwWdhYWVtFJcXd5dTRW9tBG800iRozD+O//AIKsf8Hc37Nf7ONv4o+D3/BPay0X9qf43Qx3ekzfGS9a6X9nDwFqQDwteaRe2ktpq3xp1GydS0EXhi40fwFP5ttfW/jvXEgu9El/i0/4Kaf8FzP29f8AgqPq9/pPxk+IZ+H/AMB11D7V4f8A2bfhTNqHhz4W2cdvcCXTrnxahu5ta+JniC18uGcax431DU7Sx1AXF14X0bwxbXL2C/jpQB9D/tQftYftFftofFzXvjp+0/8AFnxZ8YPid4hbZceIPFF6rwaXpySyzWvh/wALaFZx2mgeEPC+nvPMdN8MeGNM0nQtPM0z2thFJPM8nzxRRQAU
+UUUAFFFFABRRRQAUUUUAFewfAf8AZ/8AjV+0/wDFLwt8E/2fPhl4u+LnxU8Z3gs/DvgrwVpM2q6teFSpub65KbLTSdF0yEm71rxBrFzYaFoWnxzalrGo2NhBNcx/r/8A8Ejf+Df/APbG/wCCq2taX4107TZ/gR+yhbakYPEn7RvjvRLt7HW4rS4MGo6R8HfCssum3vxO8QRSR3FrPeWl5pvgrRLq2urXXfFlnq0Vro1//qB/8E6f+CWP7HH/AAS9+Fo+HX7L/wAN4NO13V7Ozi+Ifxi8U/ZNd+L/AMUr20Cst14x8XiztHXTYrgNc6b4R8P2mieDNFmlnuNJ8P2t3d311dAH4Z/8EL/+DYv4ZfsIv4W/ah/bZtPCnxp/bAtja634M8FQ+T4g+Ev7O18uyeyu9J+0wC08e/FfTn2yyeNLm3bw/wCEtSVV8B2tzf6Za+OtT/rioooAKKKKACiiigAooooAKytd0LRPFGi6r4b8S6NpXiLw7r2n3eka5oOu6daavous6VqED2t/pmq6XqENxY6jp97bSyW93ZXkE1tcwSPDNE8bsp1aKAP4yf8Agqr/AMGh37PH7Qn/AAknxi/4J2axof7L3xgufteq3nwQ1sX0v7OnjS/bfM9v4b+xQX+u/BjULuV38qLRLXxD4BiEdppuneDfCtq1zqqf57v7Wn7F/wC1F+wx8U7/AODX7VnwY8ZfBzx3afaJbG18SWKSaH4o023m8hte8D+LdNlvvC3jjw60xES674V1jVtMW432ktxFeQzW8f8AusV4H+0f+y1+zr+198NdS+EH7Tfwa8A/Gz4dapveTw5480G21ZNPvHiaFNY8O6niLWfCviG2jdhY+JPDOo6Rr2nsxex1K3f5qAP8IOiv75v+Clv/AAZoanZf2/8AFD/gl/8AEo6vbj7VqL/svfHDXYLbVIx80o0z4YfGW5S30+9G5ktdL0H4pw6a8MEb3GqfFG/uGWJv4gfj5+zn8eP2WfiR
+rHwh/aM+Enj34MfErQmzf+EPiD4c1Dw9qjWrSSRQappv22FLbW9CvjFJJpfiDRbjUND1aAC50zULu2ZJWAPF6KKKACiiigAooooAKKKKACv3Y/4J1f8ABxP/AMFKP+CdUeg+DfDHxRX49fAbR/s9onwJ+P0mp+M/D2k6RDsi+weAPF32638efDyO1tRKmk6XoWvv4Ls7qT7Ze+DdVKmJ/wAJ6KAP9Xz/AIJ+f8HXP/BNv9sL+xPBvxw1i/8A2I/jHqP2e1k0T40apZ3vwg1LUpQoePw78dLG10/w7Z2aE4Nz8TdH+GZaT9xaJfPseT+mnRda0bxJpOm6/wCHdW0zXtC1myt9R0jWtFv7XVNJ1XT7uNZrW/03UrGWezvrK5hdZbe6tZpYJo2V45GUgn/Aar9A/wBir/gqd+31/wAE99WgvP2U/wBpX4gfDzw8t79t1H4Z3l9F4v8AhDrksku+7bVvhd4th1nwW95eoZIJtcstIsfEcEc0j6frNlcbJ0AP9vWiv4N/2Ff+D1LwXrR0bwb/AMFEP2c7zwXfv9ntLr43fs3G51/ws0rYia/8RfB/xZqr+JtDsoQpuL+98LeOPGt5O8rJp3hK3SJIn/sL/ZP/AG+/2Mv25fDKeKv2T/2kPhZ8a7NbKO/1HRfC3iOCLxx4dtpdgjPi/wCHOsrpfj7wdIxkRVh8UeG9JmYsu1GBBIB9e0UUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUV/kL/APBdD9sX9rnwH/wVx/bx8H+Bv2p/2jvBnhLQPjjqNhoPhbwn8cPib4d8OaJYroOgyLZaRomj+J7PTNNtFkkkdbeztYYQ7uwQMzEgH+vRRX+dJ/wZyftI/tE/Gf8Abv8A2mdA+MPx7+NP
+xY0LS/2SNR1jTNE+JfxS8c+O9I07V1+Mfwqsl1Sx03xRruq2dpqK2d3d2i31vDHci2uriASiKaRG/wBFugAor/Gn/wCCpv7af7Y/hT/gpr/wUQ8L+Fv2s/2mPDXhnw5+3D+1ZoXh7w7oHx4+KejaFoOh6T8c/HVhpWjaLpGneKrbT9L0rTLG3gstP06xt4LSytIYra2hihjRF/pt/wCDMX9oP49/Gz4uft42fxl+N/xe+LdpoHw5+BdzoNr8TviV4z8e22iXN/4m+I8V9caRB4q1rVYtNnvYra2ju5bNYZLmO3gSZnWKMKAf310UUUAFFFFABRRX+W3/AMHS/wC1X+1D8Kf+CwXxe8G/C79pH4+fDbwhZ/Cz4FXdn4U8A/GH4h+DvDdpdX/w50q5vrm20Lw74i07S4Li9uXe4u5orVJLmdmlmZ5GLEA/1JKK/wALb/hvP9uX/o879q//AMSK+L//AM2FH/Def7cv/R537V//AIkV8X//AJsKAP8AdJor/C2/4bz/AG5f+jzv2r//ABIr4v8A/wA2Ff7T37CWrarr/wCxB+xtruu6nqGta3rX7Kn7POrazrOrXtzqWq6tqupfCLwheajqep6heSTXd/qF/dzTXV7e3U0tzdXMsk88kksjMQD6rooooAKKKKACivzl/wCCv3iXxH4N/wCCWn/BQXxX4Q1/W/Cvinw7+yP8c9Y8P+JfDeq32h6/oWr2HgHWrix1TR9Y0ye11HTNRsrhEntL6yuYLm2mRZYZUdQw/wAdD/hvP9uX/o879q//AMSK+L//AM2FAH+6TRX+Ft/w3n+3L/0ed+1f/wCJFfF//wCbCu48Cf8ABTz/AIKPfDPWrXxB4G/by/a+0DUrR96eV+0T8V7zT7gZBMWo6NqXiq80fVbVyqtJaanYXdrIyqzwsVUgA/3EaK/jR/4Nqf8Ag4W+Jv7evjC8/Yc/bZ1TR9b/AGjNO8K6p4r+DPxkstO03w9c/GfQvC1ot54q
+8HeL/D+i2VjokXxF8N6JFdeKrLXNDs9OsfFHhXTNefVNMsdb8PSan4q/suoAKKKKACiiigAoor/FF/bG/bg/bT0X9rr9qjR9H/a+/ai0nSNJ/aP+OGmaVpWmfH/4sWGm6Zpth8TfE9rY6fp9ja+LYrWzsrO1iitrS0too4LeCOOGGNI0VQAf7XVFf4dHw5/4KO/tweBfiF4E8bz/ALXf7UWtw+DvGXhjxVNo2pfH/wCK1/p2rxeHtbsdXk0y/sb3xbLZ3llfpZm1urW7iktriCWSGeN4ndT/ALgujavp3iDR9K17SLmO90nW9NsdX0u8iOYrvTtStYryyuYyeTHPbTRSoT/C4oA0qK/zAf8Ag60/br/aL8N/8FbfFXwq+Dn7Q/xr+Fvhv4NfAf4K+C9T8NfDP4r+OvA2hy+IvEOlav8AFu51W+0jwtr2l2FxrN1pXxM0aCfUbi3e+m0+z0y2kma2s7WOP+bT/hvP9uX/AKPO/av/APEivi//APNhQB/uk0V+Mf8Awb0+NvGfxG/4I2/sPeNPiF4u8T+O/GOu+CfiDPrnizxlr+q+J/E2sz23xs+Jtjbzarr2t3d9qmoywWVra2cMl3dTPFa20FuhWGGNF/ZygAooooAKKKKACo5ZYoIpJ55I4YYY3lmmldY4ooo1LySSSOQkccaAs7sQqqCzEAE18I/8FIP+Ch3wI/4Ji/steMP2ofjzdXl3pekXNr4b8CeA9EmtI/FnxT+I2sw3Unh3wJ4XW9dLeO6vI7K+1XWNUnElt4f8M6Trev3EF0mnCzuP8jn/AIKQf8Fef21/+CnfxM13xb8e/in4g074aPq1/P4B/Z78JazqGk/B74daJNcSNp+m2Xhq0ktbXxPrltaGO31Hxx4qg1PxTrDofNvrbTo7HS7EA/2e9F+Kvwv8Saz/AMI54d+JHgLXvEOyWT+wdF8YeHtU1nZAu+d/7LsdRnvtkKfNK3kYjX5nKjmu9r/AT0/UdQ0i/s9U
+0q+vNM1PTrmG90/UdPuZ7K/sby2kWW3u7O7tniuLa5glVZIZ4JElikVXR1YAj+0z/ggB/wAHMnxx+GHxk+H37IX/AAUS+Leo/FL9nvx/eWXgnwD8eviVqDaj8QPgn4s1CeK18MJ468fX0jan4t+F2q30i6Nq+q+M7nUtZ8ENe2Gt/wDCR23g/RtQ0tAD/SgopAQQCCCCAQQcgg8ggjggjoaWgAooooAKKKKACiuG+KHxH8IfBz4a/EL4ufEHVU0LwF8LfA/iz4i+NtbkjeVNI8JeCdBv/EviPU2ijBklFho+mXl0YowZJPK2ICzAV/kW/wDBYT/gvp+1l/wU6+LPi3SfC/jvx78Ef2PNPvtR0f4b/ADwt4jvvDcPiLwyJRFB4l+N58Paitt4+8Za5FDHez6Tqd1qvhTwYkx0bwtbPINX8QeIQD/XZm+Ivw+t9aXw3ceO/BsHiJiQugzeJ9Ei1piGCELpb3y3xIZgpAgOGIB5IFdlX+APX9GH/BGv/g4c/aw/4J1/GDwL4P8AjT8T/iJ8eP2KtUv9M8N+P/hX421/U/GmrfDTwzNOlt/wmXwTv9eur3UvDOpeEo5ZdTfwHp97aeDvGNkt9pN3p2n61daR4p0IA/1yKKwvC3ifw9438MeHPGfhLV7HxB4U8XaDpHifwzr2mTC403W/D2v6fb6rour6fcL8s9jqWm3dte2ky8SwTRuOGrdoAKKKKACiiigAor/KH/4OVf2tv2rPhj/wWu/bS8D/AA2/ab/aD+HvgrRD+zp/Yvg/wP8AGf4j+E/C+kf2l+yd8CdX1H+y/D+g+JLDSdP+36tf3+qXv2S0h+1aje3d7P5lzczSv9Wf8Gkf7UH7S/xf/wCCqWt+E/i1+0R8c/ij4Vj/AGVPi7qyeGviL8W/H3jbw+mq2fi34Ww2mppo3iXxBqenLqFrDd3UVtei2FzBHc3CRSKs0gYA/wBMyiiigAooooAKKK/zvP8Ag8h/aO/aG+C/7Z/7
+KeifB348fGb4T6Nq37MN5quq6R8NPij438CaZqepr8VvGdoupahYeFtc0q0vb8WkENqLy5iluBbwxQiTy40UAH+iHRX+P9/wRM/bI/a98c/8FZP2B/CPjX9qr9pDxh4T8QftFeDNN17wx4p+OPxO8QeHtb06drrzrDV9F1bxRd6bqVlNgeba3ttNBJgb4zgV/sA0AFFFFABRRRQAUUUUAFFfjf8A8HBHjTxj8O/+COn7cnjT4f8AizxN4F8Y6D8PfB1zofizwdr2qeGfEujXE/xd+HlnNPpWu6JdWOqadNNaXNxayy2d1C8ltcTQOxildW/yRv8AhvP9uX/o879q/wD8SK+L/wD82FAH+6TRX5K/8EJPF/izx9/wSJ/YQ8Y+OvFHiLxr4u1/4Lx32u+KfFut6l4j8R61enxV4lhN5q2uaxc3mp6ldGKKKL7ReXU0vlxxpv2ooH61UAFFFFABRRRQAUUUUAFVL/ULDSrO51HVL2003T7OJpru/v7mGzs7WFfvTXN1cPHBBEuRukldUGeSK/Lr/gr5/wAFTPhR/wAEmv2TNb+PnjaztfGHxI8R3kvgv4C/CMaiLC++JXxGuLOS5jju5o1lutN8FeFbNTr3jjX4oHFhpsdrpVmZPEOv+H7G/wD8kH9ub/gpJ+2R/wAFFfifrvxN/aj+M/irximp6nLfaB8NbHVtW0v4P/DyyyFs9D+Hvw4XUZ9A8PWFjbpDAb3ybvxDrEsR1TxLret63cXmp3IB/tqeHfij8M/GGpy6L4S+IvgXxRrFvDJcT6T4d8XeH9b1OG3iZUlnlsNM1C6uo4Y3dFkleJURnVWYFgD3Vf4D/h/xDr/hPW9L8S+Ftc1jw14j0O9g1LRdf8P6ne6Nrej6jauJbW/0vVdOntr/AE+9tpVWSC6tJ4Z4XAeORWANf3e/8G6n/Byp8YPEPxj8D/sKf8FGPibL8QvD/wAR59O8H/AH9o/xtPEfG+geP7mYWug/Dv4t+KJC
+k3jLRvHFzLBo/hnx1r7XPivSfFs1hpviXVtb0TXo9R8IAH+hHRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUV8d/tXf8ABQT9in9h3QJ/EP7Vv7S/wm+C6R2TahaeHvE/ii1uPH+u2qKzF/Cvw00X+1PiF4tchTiLw14Z1WXuUA5r+Pv9uv8A4PUvBeinWfBv/BO/9nO88aX6faLS1+N37SJudA8LLKu6Jb/w78H/AAnqqeJtcspgwuLC98U+OPBV5A8SpqPhK4SV4kAP7tda1rRvDek6lr/iLVtM0HQtGsrjUdX1rWr+10vSdK0+0jaa6v8AUtSvpYLOxsraFGluLq6mighjVnkkVQSP5lv+Cgf/AAdc/wDBNv8AY9/tvwb8D9Yv/wBtz4x6d9otY9E+C+qWdl8INN1KIMEj8RfHS+tdQ8O3lm5GBc/DLR/iYVk/cXaWL73j/wA4b9tX/gqd+31/wUI1a4vP2rP2lfiB8Q/DzXv23TvhnZ30XhD4Q6HLHLvtG0n4XeEodG8FpeWSCOCHXL3SL7xHPHDG+oaze3G+d/z8oA/dj/gor/wcT/8ABSj/AIKKx694N8T/ABRX4C/AbWPtFo/wJ+AMmp+DPD2raRNvi+weP/F32648efEOO6tTEmraXruvp4LvLqP7ZZeDdKLCJPwnoooAKKKKACiiigAooooAKKKKACip7a2ub25t7Ozt57u7u54ra1tbaKSe5ubmeRYoLe3giV5Zp5pXWOKKNWkkkZURWYgH+r7/AIJW/wDBqD+2J+2PL4Z+K/7Yh1v9jf8AZzvWtdTXRtd0uMftHfEDR5Nkyx+G/h/qsDwfDezv4hJCviP4mwW+q2Re11HTvh74o0y4WegD+az9nX9mf4+/
+tb/FPQPgn+zX8JvGfxl+KPiV8aZ4S8FaTJqN3FaJJFFdaxrN65h0nw34c04zxPq/ifxHf6V4e0aBxc6rqdnbgyj/AEHf+CTP/BoX8IPgx/wjXxu/4KY6lofx5+J8H2TV9K/Zr8MXdzL8DvB12NlzBD8RtdVbPUvi5rFnKIVvNBtU0j4cR3EV7p2oQ/EfR7mG7H9TX7Ef/BPn9kb/AIJ3fCyD4Sfsm/B3w78NdDmS0k8UeIkjOrfEH4hapaRMi658QvHWo+d4h8ValvluJLWG9vBpGiJcy2PhzS9G0oRWEX2fQBlaFoWieF9F0nw34Z0bSvDvh3QNNstG0LQNC0600jRdF0jTbeOz07StJ0rT4bex03TbC0hitbKxs4IbW1t4o4IIo4kVRq0UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFfOf7TP7If7MX7ZXgGf4YftSfAz4cfHHwVILhrTTPHvhyz1S80K5uY1im1Pwn4gRYPEfg3W2iVY013wnq2jazEg2RX6KSD9GUUAfwdf8FBf+DLzwTr39t+Pf8Agm38cZvAupMbi9i/Z+/aFvr/AF3whIx3SjTvBnxg0jT73xXoUMUaLbabpvjrw742mvbqcSap470y2RpF/in/AGw/+CcP7b/7A/iSfw5+1j+zd8SvhLEL5rDTfGOo6MdZ+GXiScFti+Ffij4bk1f4f+I5HjCytaaT4iub+1SSNb60tZmMQ/3HaxfEXhvw74w0PVPC/i3QdF8U+Gtcs5dO1vw74i0ux1vQ9Y0+cbZ7HVNJ1OC6sNQs5hxLbXdvNDIOHQigD/Ahor/Wt/bc/wCDVz/glX+1x/a/iPwB8OtZ/Y9+J2oefcR+KP2c7m00XwRPfuWaH+2PgxrMGo/DyPS43d3msvAun/D7ULklQ+sqqIB/H5+25/waK/8ABSz9mr+1/E37PUngr9tb4cWHn3ET/DedPAvxgt9Pg3E3Gp/CTxjqRhv7lxsWDS/h944+IOr3
+Ll9unoqZIB/KrRXc/Ef4YfEn4O+L9W+H3xb+H3jf4XePNBl8jW/BXxE8K674L8WaPNlgItT8O+I7DTdXsXJRtq3NpEW2nbkCuGoAKKKKACiiigAooooAK6Lwn4v8WeAfEek+MPAvijxF4L8W6Ddpf6F4p8J63qXhzxHot9GCI7zSdb0e5s9T067QMwS4s7qGZQxAcAmudooA/o6/Y0/4Om/+Csv7KEuk6L4x+LOkftbfDrT/ACIJvCX7SmmS+KfE32NdqXD2Pxe0W50P4oS6rJEoFve+LvEfjPTraZRM+i3IaaOb+tH9jn/g8c/4J3/G1dK0D9qXwN8Uf2O/GV0IIbzWr6xn+M/weW6lCxBYfF/gTSYPH1qJLjJd9W+FNlpljBIkl1rRjjnmj/y9KKAP94L4B/tQfs4/tT+Ek8dfs2/HT4U/HPwmUhM+tfC7x14c8ZwabLOpZLPWotD1C7utB1JcMk+la1b2GpW0qSQ3NrFLG6L7tX+B38P/AIk/ET4TeKdO8cfCvx940+GfjXSH8zSfGHw/8U654N8U6Y+5H36d4g8OX+m6tZPvjRt1tdxHciNnKgj+gn9kz/g6l/4K6/sxf2bpHir4u+GP2qvBNh5MJ8OftJ+Fk8T66LVcLcND8TvCt74P+Jt5qUsQ/c3vinxT4pt4Jwsz6dcoZ4ZwD/W7or+Lf9k//g9N/Y2+IS6don7Xn7PHxc/Zy1+YQwXXi74eXmn/ABy+GqSLhbjUL9IbbwX8RNGt5T++h03SvBvjaeBd0D6hcMizzf0pfsrf8FRv+Cen7bIsrf8AZh/a6+C3xR1/UI0ltvAlv4qi8L/FAxuu4STfCrxtF4a+I9vGOUaS48LxxrIrRF/MUqAD72ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii
+gAr/ABif+C/n/KZT/goR/wBl81P/ANR7w9X+ztX+MT/wX8/5TKf8FCP+y+an/wCo94eoA/bL/gya/wCUgv7U/wD2ZvqX/q7PhDX+mJX+Xb/wZ2/G34M/Az9uz9pfxH8bfi58Mfg74e1b9krUdE0rXfin4+8K/D7RtT1lvjF8Kr5dI0/VPFuraRY3uptY2d5eLYW08l0bW0ubgRGGCV0/0T/+Hh/7AH/R8v7Hn/iTPwV/+bagD/HS/wCCtn/KVL/gpT/2ft+15/6v7x/X9U//AAY8f8ll/wCChH/ZMvgB/wCpV8Ta/k//AOCpPiPw94w/4KZf8FDfFvhHXtG8U+FfE/7b/wC1V4h8NeJvDmqWOt+H/EOgaz8cvHOo6Prmh6zpk91puraPqun3Fvfabqdhc3FlfWc8N1azywSo7f1gf8GPH/JZf+ChH/ZMvgB/6lXxNoA/0SaKKKACiiigAr/Jg/4O1f8AlNN8Z/8Askn7P/8A6rPSK/1n6/yYP+DtX/lNN8Z/+ySfs/8A/qs9IoA/Bv8AZy/Zm+PP7XPxR0z4K/s2/DHxF8XfiprOm6zrGl+CfCy2T6xe6Z4fsZNS1m8hXULyxtvK0+xikuZ91wrCNTsVm4r9Ff8AiH6/4LMf9I+fjp/4D+E//mnr7T/4NJ/+U0nwd/7JB8f/AP1XGpV/rN0Af4yP/EP1/wAFmP8ApHz8dP8AwH8J/wDzT1/rr/sXeEPE3w9/Y6/ZN8A+NNHu/D3jHwP+zR8CPCHizQL8Ri+0PxN4a+FvhXRdd0e9EMksQu9M1SyurK4EUskYmgfZI64Y/S9FABRRRQAUUUUAfmV/wWh/5RKf8FHf+zNvj9/6rvXK/wATyv8AbD/4LQ/8olP+Cjv/AGZt8fv/AFXeuV/ieUAftl+yD/wb3f8ABUD9uj9nnwJ+1H+zl8IvA/ir4PfEiTxXF4S1vWPjH8N/CmpX0ngrxl4g8Ba+s+g+INfsdVsfs/iXwxrFpCbu3iF1
+DBHeQlraeKRvhH9tT9gP9rj/AIJ5fEzT/hJ+198G9a+EXjHW9HfxF4aF3qnh3xN4d8WaAl7Np76v4X8X+D9Y1/wvrdvBdwtBfQWWrSahpUskEOrWdjNPFG/+pP8A8Gs3/KDD9i7/AK//ANpX/wBaw+OFfiL/AMHxaeF/+Fdf8E7JJxp3/Caf8Jr+0emlFtg1c+FzoXwfbXxCB8504asPDRuN2UW5Nr5eC0mQD+LP/gmZ+0B4j/Za/wCCg37HHx58Lm4a/wDh/wDtCfDS41GztZfIn1jwnr3iKz8K+O/DqTFlEQ8TeCdc8QeH5JGJRI9TdnV0DKf9xOv8Ef4TaZq2t/FT4aaNoOrSaBrmr/EDwbpmja7CN0ui6tf+I9NtdO1aJcHMmm3ksN4gwctCBg9K/wB7ZQVVVLM5VQC7BQzkDBZgiogZjyQiKuSdqqMAADqKKKACiiigAr/Cj/bZ/wCTzP2uP+znPj3/AOrV8V1/uuV/hR/ts/8AJ5n7XH/Zznx7/wDVq+K6APmOv9vX/glD8WP+F4f8EzP2CfihJc/bNQ8S/sm/AtNfud/meb4r0H4e6F4a8XncSSdvijR9XXDEuu3a5LhjX+M18ePhd/wr/wADfsm+K/s3kD44fs4XHxREm3aLs6V+0T+0F8GGuAcAPhvhEbYtzzbkE5Ff6j3/AAa0fHHTfFP/AAQ8+CFxr+pIsH7P3iP9oDwD4m1GV9xstN0H4j+KPiZafaOfkTS/B3jjRoIkAXFnawEgklmAP867/guf8WP+F0/8Fe/+ChXjYXP2yKy/aW8dfDe1ug/mJNY/BeW1+DenvDICVktvsXgO3Fs6Eo9uImjJQqT+UVe4ahc+JP2nv2k768Akbxf+0N8cLm5AbNxMfEnxa8evLhsHM0h1TxBg4OZG6H5qzP2gtC03wv8AHr43eGdGtxa6P4d+L3xK0LSrVcbbbTdI8Z61p9jbrgKMQ2tvFGMADC8ADigD/XY/4Nt/+UJH7BP/
+AGInxI/9Xt8VK/cOvw8/4Nt/+UJH7BP/AGInxI/9Xt8VK/cOgAooooAKKKRmVFZ3YKqgszMQqqqjJZicAAAEkkgADJoA/wAvX/g8M/bo8T/HH/goHo/7GGnuLL4Y/sX+F9Fe4t7e5aVfE3xa+NPgzwf8QfEfiC98vZA8WgeDdR8F+E9Is5knuNI1C28YzJdKNeuLO2/kg0vS9T1vUtP0XRdOvtX1jV7600zSdJ0u0uL/AFLU9Sv547Wx0/T7G0jlur2+vbqWK2tLS2iluLmeSOGGN5HVT9e/8FEv2h3/AGsv27f2uv2jlvTf6Z8Xf2gvih4s8LzFzIIvA0/irUbTwBYJISTJFpfgm00DTIX4DRWiMFUEKP6nP+DMD9hzwJ8W/wBob9oj9tj4haNYa9efsx6T4O8A/Bmx1O1gvbbS/iN8VIPEt14k8eWySZNtrvhLwd4bTQdFneOSNU+IOqXsHlahpdlcQgH8rHx8/wCCff7cX7LHgrw78R/2j/2TP2gPgj4C8V3EFloni74l/C7xZ4T0CfUbqA3NrpF3qOq6Zb2+ka3dW6yT2uiaw9hq1xFBcvDZutrcGL4/r/es+Mvwc+Gf7Qfwr8efBT4yeDdD8f8Aww+JfhvUfCnjLwj4isLfUdL1fR9ThMcivBcxyrDe2koiv9K1GAR32k6pa2eqadPbX9nbXEf+HF+2D+zp4h/ZF/ap/aG/Zh8UyyXes/An4v8Aj34ZSanJGIhrth4V8Q32m6J4khjUAJaeJtEi07X7IbUP2TUoCyRtlFAP9Tv/AINev27/ABX+2/8A8EuvBVn8S9Yudf8Air+y34u1H9m3xTruoSPNqniXw34U0Hw9r3wx8R6jPJJLNeXf/CBeItH8Kahql1K99rOs+ENW1e+Z7q9lll/our/Oc/4MjP2g9W0r9oX9tD9la4uvN0Hx18HPCXx+0qzlY4sNa+FnjTT/AIe65NYrwofW9P8Ai9oS6iDueRPDumtGFSCYt/ox
+0AFFFFABRRRQB/MN/wAHcH7SWofAn/gkV4r8B6Fq9zpWvftQfGP4bfA0tp11Ja6i/hSBtZ+KvjJN8LpN/ZOp6T8Nk8Ka6gJgvNP8TvpV2sltqUkb/wCV78Kvhp4u+M/xP+HPwf8Ah/pp1jx38VfHXhL4c+C9KBdf7S8VeNtesPDfh+xLxxzOi3Wq6laQvIsUhjR2fY23B/0af+D2zQ9Xuv2Iv2QvEVvp9zNoej/tTanpOqanHGWtbHUde+E/i650e0uZB/q5dRg0DWJLbI2uLCcbgwUN/nV/A34u+K/2fvjT8Ivjv4Ekhj8bfBf4m+BPir4Sa5e7jtT4k+H3ifS/FeipdtYXNne/Y5dQ0m3ju1tLu2uHtnlSKeJ2DqAf2TftSf8ABmL8UPgt+yR4x+Mfwn/a9sPjL8evhl8PtW8e+Jfg5J8H7jwv4Y8cP4e0ybXPEXhf4ceMY/HOt6ymuW+n2l7Z+Ex4g8KLD411aKxgvv8AhB49Sc6f/EPX+uD+wJ/wc/8A/BML9tjTfDfhf4gfEiH9kX42azbW9rqnw2/aCurbQ/BlxrEuILm08K/Glkh+HOsadPcPHBpSeKb/AMEeJdWM6RxeFVlEka/mhoP/AAZT/sc674k1nxb4l/bO+OWr+DvE2uap4i8OaF8L/Bvw38H2el+Gdav59T0TSdN1/XW+JsGp22n6Xc2tnbaumnxw6hFCl6lnAkwgQA/Ub/g1p/aM1j9ob/gjd+z9a+JNYm13xH8AfEfxC/Z01C+uJPMuIdI8Ba2mtfD3R5OcRxeHfhZ4u8C+H7GPAI03S7NmyzFm/ogr88P+CZv/AATM/Z+/4JTfs/a9+zh+zfr3xS8SeCfE3xR134vaxq3xe8ReHPEviu48XeIfCvgnwdqHl3vhXwf4H0e30saR4B0I29lDoSPFdtfTNcSLcJFD+h9ABRRRQAUUUUAf5An/AAdG/wDKdf8Abm+v7M//AKx7+z9X15/wZvf8pcte/wCzRPjN
+/wCpj8Ja+Q/+Do3/AJTr/tzfX9mf/wBY9/Z+r68/4M3v+UuWvf8AZonxm/8AUx+EtAH+p/RRRQAUUUUAFf5q3/B7b/yfF+yF/wBmpX3/AKt7xxX+lTX+at/we2/8nxfshf8AZqV9/wCre8cUAfgv/wAEI/8AlMN/wTw/7OX8D/8AoV3X+0jX+Ld/wQj/AOUw3/BPD/s5fwP/AOhXdf7SNABRRRQAUUUUAFFFFAH4k/8ABxz/AMoT/wBvr/sm/gn/ANXL8Na/xva/2Qv+Djn/AJQn/t9f9k38E/8Aq5fhrX+N7QB/s2f8G+//AChl/wCCfX/ZDYv/AFLvFNfsZX45/wDBvv8A8oZf+CfX/ZDYv/Uu8U1+xlABRRRQAUUUUAFFFcB8WPHlp8LPhZ8SvidqCRyWHw58AeMvHl7HM5jie08IeHdS8QXKSyAgpG0OnuruCCqksCCKAP8AJp/4Oe/26da/bJ/4KofGLwbp/iG41H4P/sjX13+zn8M9Hiut+lWniDwnNFF8Z9fit4j9kbVdc+KUGuaRc6pHvn1Dw74T8J200zxaZaxw/wA/Phjwv4m8b+ItE8H+DPDuu+LvFvibU7PRPDnhfwxpGoa/4i8QazqM6W2n6RomiaVb3ep6rqd9cyR29nYWFrcXV1O6RQRPIyqZfF/ivXfHfi3xR448UX0mp+JvGXiLW/FfiLUpf9bqOu+ItTudX1e+l5P7y71C8uLh+T80h5Nf3qf8GV37CngzWbL9o/8A4KHeNdAtdY8VeGfFcf7N3wRvNSsY5o/Cc6+GtF8Z/FzxLo7XKyBNb1bS/FXgXwvZaxZJb3em6QfGGjrdTW3iLUbaMA/i6/aO/YQ/bO/ZB0zwvrf7UP7L3xw+A2ieNJZLXwrrXxP+HfiPwpo2t38Nv9rn0my1XU7GHT21u3tAbq40SS4TV7e2Vp5rJIlZx8oxSyQyRzQyPFNE6SxSxO0ckUkbBkkjdSGR0YBkdSGVgCCCAa/3Vv2y
+v2Rvg1+3P+zb8Uv2Yfjv4Y07xL4C+Jvhy80zzLy1We/8K+I44ZJPC/jrw1cB4Z9N8UeDta+y63ot/a3EEgubU2tw0thdXltP/hyfFb4ceIvg78UfiT8I/F6W8fiz4WePvGHw48UR2kouLSPxF4I8Q6j4Z1tLWcACa3TUtMuVhlAAkjCuAN2KAP8AZl/4Inftpv8At8/8Eyv2WP2gdZ1X+1viI3gSH4a/GGeWbzb9/ix8Kp5PA3jDVdTXc5guvGM2j2vj6CAuxXTPFmnsSN+0fqrX8Pn/AAZD/FyTWv2Yv24fgVJePIvw5+Onw3+KltZPIWFvH8YvAWo+FJ5YI2OFSaX4Ip5vlgKJFVnw0gLf3B0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFfBP7VP/BUb/gnp+xML23/ae/a6+C3wu1/T43lufAlx4qi8UfFARou4yQ/CrwTF4l+I9xGeEWS38LyRtIyxB/MYKf5rf2sP+D039jb4erqOifsh/s8fFz9o3X4RNBa+LviHeaf8Dfhq8jZW31CwSa28afETWbeI/vptN1Xwb4JnnXbAmoW7O08IB/aRXhPx8/ah/Zx/ZX8JP46/aS+Onwp+BnhMLMYNa+KPjrw54Mt9SlgUM9nosWuahZ3Wvak+VSDStFgv9SupXjhtrWWaREb/ACuv2s/+DqX/AIK6/tO/2lpHhX4u+GP2VfBN/wCdCPDn7NnhZPDGum1bctu03xO8VXvjD4m2epRRH99e+FvFPha3nnLTJp1sgghg/n2+IHxJ+InxZ8U6j44+Knj7xp8TPGurv5mreMPiB4p1zxl4p1N9zvv1HxB4jv8AUtWvX3yO265u5Tud2zliSAf6a/7Y3/B45/wTv+CS6roH7LXgb4o/tieMrUTw2etW
+NjP8GPg811EGiKzeL/Hekz+ProR3GCj6T8Kb3TL6CN5LXWhHJBNJ/JH+2v8A8HR3/BV79r7+1/D/AIX+LOnfsl/DTUfPgTwd+zNaXvg7xJLYvujg/tT4vajfat8UjqCwM0d5N4W8SeD9Ivnd5DoMKrBFD/OhRQBr6/4g17xXrWpeI/FGt6v4k8Q6zdy3+sa9r+pXusa1q19Od017qWqajNc319dzNzLc3U8s0h5dyayKKKACiiigAooooAKKKKACiiigAoor9Zv+CdP/AARO/wCCgv8AwU31SxvP2fvg9d6F8IpL42mr/tD/ABVN94I+C+lLDMYL3+zvEVxp93qfjvUbCQeVeaH8OdF8W6vYSvEdUtNOtXa6QA/Jmv20/wCCY/8AwQK/b+/4Ke3+j+Jvh94Bf4O/s73VxEdT/aR+MNhqegeBbmwDj7Sfh1o/kL4j+K2peWlxHar4TtH8Lw6jCun+I/F/hozJcD+77/gmn/wap/sB/sUf2B8Q/wBoGyj/AG1/j7p32a/XWPihoFra/BXwpqsW2UN4P+DElzquk6vJay/LHq/xK1HxpM81vBquj6X4XuiYI/6f7W1trK2t7Kyt4LSztIIrW0tLWKO3trW2t41igt7eCJUihghiRI4oo0WOONVRFVVAAB+G/wDwS9/4N8/2Bf8AgmHbaJ4y8K+Dv+F7ftKWMEUl7+0d8X9M07VPEulalsxPJ8LfCmLrw38KLIO9wlpc6Cl742awuJNN1vxzr1sFA/c+iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAPnj9or9kn9mH9rnwmfA/7TnwD+FHx08MrHNHZWPxK8E6F4nudFe4GJbvw1q9/Zyaz4X1I/war4d1DS9ShPzQ3aHmv5ZP2zv+DM39h34uf2t4k/Y5+LfxJ/ZN8VXHn3Fn4L8QtcfHD4OiQbpIbK0tPEmraX8UNDW5lJhm1K4+I/iqCyhMcl
+r4emMDQXP9kVFAH+QZ+2b/wbKf8ABWr9jv8AtbW4fgQn7TPw503z5v8AhPv2Xb68+Jsos48yiW++Gj6bo3xes3itQZtQnh8B3+iWJjnX+3LiKNbiT8C9X0fVvD+qahoevaXqOia1pN3PYapo+r2NzpuqabfW0hiubLUNPvYobuzu7eVWjntrmGOaKRSkiKwIr/fnr4u/ar/4J0/sM/tv6dNY/tV/st/B74y3clqLKHxX4i8KWtj8RdMtBH5Qt9C+KHh1tG+Ivh6IIFGzQ/FGnqfLiJBMURQA/wANiiv9Jn9r3/gyw/ZS8fHVPEP7GH7RnxK/Z71ubzrm08A/FTT7b40fDYzfN5Gl6XrcNz4T+InhqxbKiTUta1j4k3sZVmW0mDhE/lk/a/8A+DZb/grt+yN/amr/APDPX/DSPgPTfOk/4Tn9lrVJvit5sEW5/Mb4c/2dofxjh2W4865m/wCFdSabb4df7RlCbyAfgDRWvr3h/XvCus6l4c8UaJq/hvxDo11JY6voOvabeaPrOlX0JxNZ6lpeow299Y3UR4kt7qCKaM8MgNZFABRRRQAUUUUAFFFFABUkUstvLFPBLJDPDIksM0TtHLFLGweOWKRCrxyRuodHQhlYBlIIBqOigD9XP2Z/+C4v/BV/9koadZ/CD9t740y+HNL8mK08E/E/W7b42eCLexiCqdL07wz8XrLxrp2g2EkYKGPw3Ho00JdprWe3uSJx/RZ+y7/wey/tE+F007Rv2wP2R/hj8XbKMRW1142+CHinXPhF4nSFcB9SvvCvimL4keGfEGpOA3mWmmal4D052cNEtqsZjk/h3ooA/wBaj9mf/g69/wCCPv7QX9n6d4v+K3xB/Zg8T3xihXRP2gvhzqmn6WbtsLKo8dfDe4+I3gWwsUbc0WoeJfEHhxZIdrSw207G2T96vgz+0Z+z9+0ZoI8Ufs//ABx+Efxu8OmKOdta+E3xG8IfELTYY5cBPtV14U1fVYrSTcfL
+eG5aKaKUNDIiSqyD/BtroPC/izxV4H1yx8T+CvE3iDwh4l0uXztM8Q+F9Z1Hw/rmnTDpNY6tpNzaX9pKP+elvcRv70Af77FFf43/AOzP/wAHFn/BYb9lz7BY+GP2yPHXxQ8L2RjV/CP7Q9rpXx1sLy2hx5Vk3iP4gWmq/EPTLONQI44vD3jXRikIWFHESIi/0Afs5f8AB7t8VtM+wab+1p+xL4D8ZRt5cWoeMP2ffiBr3w+urdUwJLqHwB8Q7b4i22qTygEtb/8ACwtAgWQlkdY8RKAf6IFFfzUfs8f8HZH/AAR0+OMdlbeMPir8Tf2adfvPLiXRvjt8KPECWn2psCSP/hK/hS/xS8IWdqrbmjvtd1zRInhCtKtvM32df2z+BP7cH7Gv7TyW/wDwzt+1T+z58a7q5jEi6T8Nfi74F8W+IIMrvMV/4b0jXLnX9MuVT55LTUdNtbqNcNJCoINAH1JRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFf4xP8AwX8/5TKf8FCP+y+an/6j3h6v9nav8Yn/AIL+f8plP+ChH/ZfNT/9R7w9QB+PtFe0fBH9m/8AaH/aZ8Q6r4R/Zw+A/wAZfj/4r0LRm8R654Z+Cnwx8a/FPxBo3h5L6z0x9d1XRvA2ia7qOn6MmpahYae2p3dtDZLe31namcT3MMb/AE3/AMOmf+Cp/wD0jU/b7/8AEPP2hf8A53lAH5+V/df/AMGPH/JZf+ChH/ZMvgB/6lXxNr+HHxd4R8V/D/xX4m8CePPDHiHwV448F6/rHhTxj4N8W6NqPhzxV4T8U+HtQuNJ1/w34l8P6xbWeraHr2h6raXWmavo+p2lrqGm6hbXFneW8NxDJGv9x3/Bjx/yWX/goR/2TL4Af+pV8TaAP9EmiiigAooooAK/yYP+DtX/AJTTfGf/
+ALJJ+z//AOqz0iv9Z+v8mD/g7V/5TTfGf/skn7P/AP6rPSKAP51PBHxA8efDLxBB4s+G/jbxd8PvFVrBdWtr4m8EeJNZ8J+ILa1vYjBe20Gs6De2GowwXcDNDdQx3Kx3ETGOVXQla9t/4bX/AGy/+jtv2m//AA/XxU/+aur37Gn7F/7QX7fXx10T9m/9mLwnpvjT4teItE8SeIdK0HVfFPhzwdZz6V4T0uXWdbnfXPFWpaVo8D21hDJLHDNeJNcsBFAkkhCn9kf+IUL/AILb/wDRtvgP/wASJ+BX/wA3dAHwb+wf+2H+1xrn7cX7Gmi61+1N+0bq+j6v+1b+zvperaTqnxv+JmoaZqmmah8XvB9pf6dqNhd+J5rW9sb21lltru0uYpbe5t5ZIZo3jdlP+1hX+WR+yJ/wbBf8Fj/hN+1h+zB8VPHH7PXgjTPBXwz/AGh/gr8QPF+pW/x8+Cuoz6f4X8GfEnw14j8QXsGn2Hja4vr+a00nTbueOysoJru6eNYLeGSaREb/AFN6ACiiigAooooA/Mr/AILQ/wDKJT/go7/2Zt8fv/Vd65X+J5X+2H/wWh/5RKf8FHf+zNvj9/6rvXK/xPKAP6AP2IP+Dk7/AIKLf8E/f2X/AId/skfASw/Z5f4WfDB/Gsnhe68cfDLXvEXi0SePPHXif4ia0+oava+PdHsbsx+IfFmqfYANIiSCxW0tpluGheaX8vv21v28/wBqz/gob8X3+N/7W3xY1X4o+OINLj8P6AktjpOgeGPBvhmC5nu7fw14N8I+HbHTPD3h3SY7m5mubgWNgt9q19LLqmuXuqatcXF9N45rvwA+Ofhj4SeCfj94i+DnxP0T4F/EnUNW0j4f/GTVPAviWy+F3jPWNB1TVtE1vR/DXj2fTU8L6xq+latoOtafqGl2OqTX9rc6VfxzW6fZZSvl1gljJfWUep3N1Z6bJd2yaheWNlFqN7a2LzIt3c2enz32lwX91BbmSW3sptT0
+6K6mVIJL60SRriMA/YD/AIIKfsWa9+3L/wAFSv2WvhvBpV/eeAvh3480n49/GHVLexku9O0b4c/BzULPxlc2utzLHJHZWfjfxJYeHPhtaXMoAXVfGVgF5yy/7Ntfz6/8G6P7EX/BPb9mX9ibR/jH+wr8S9R/aGb9ou30zUfij+0L4r0ePw14y8Q674Pe/wBOk+H1x4GzNL8L9L8B6xe63APAk99rN/HqF7capqPifxTBc6Rqp/oKoAKKKKACiiigAr/Cj/bZ/wCTzP2uP+znPj3/AOrV8V1/uuV/hR/ts/8AJ5n7XH/Zznx7/wDVq+K6AP0R/wCChPwu/sv/AIJb/wDBCT41Lbf8jz8Bv22PhdNdqmc/8Kp/bg+J/iy2tpXAyu3/AIXLdywI5G7dcGMHZLj92P8Ag31/av8A+FVf8ECP+C5Hh1dS+z6p8F/DPxC+Inh7dLh7DxD+0P8As73/AMLvB0q5YMkM3i/4W2bJGhXzJluPKImkZj8ift3/AAu/t3/g1J/4IzfGGK2864+HH7SX7Q3gaaZU3SWml/FX4rftR6tczO2PktpNT+Fui20jEgG4ns0OSy4/FT9kz9q7/hTH7Ev/AAVD/Z2XUjp9z+1f8Kf2a7DTE83yje3vwk/ab8E+I9RtIASFluJ/B/iLxZA8IDOdMm1ORVCRyOgBs/8ABF34Xf8AC4/+CsX/AAT28DPbfbLVv2rPhF4w1O0Kb0utF+Gfiiz+JeuW8y4ObebR/CN9Hc9MW7SHK43D48/ai/5OZ/aK/wCy6/Fz/wBT/wAQV+8P/Bpf8Lv+Fh/8Fovgz4ka2+0wfBb4T/Hj4ozhl3xw/a/h5qPwotLmRSCv7nUfijZPAzD93dfZ5EIkRCPwe/ai/wCTmf2iv+y6/Fz/ANT/AMQUAf64H/Btv/yhI/YJ/wCxE+JH/q9vipX7h1+Hn/Btv/yhI/YJ/wCxE+JH/q9vipX7h0AFFFFABXJePv8AkRPGv/YpeI//AEz3
+tdbXN+M7S51Dwf4rsLOJp7u98N67aWsCYLzXNzpd1DBEgJALSSuqLkgZYc0Af4Fdf6Y//Bk34c0e1/4J7ftS+LoLNE8Qa5+2Xq3hzU78E77nR/CvwR+D2p6HZsudoSxvfGPiGZCBknUJAxIVcf5nJBBIIIIJBBGCCOCCDyCDwQelf6av/Bk/qFnL/wAE4v2mdKSdG1Cy/ba8Uahc2w/1kVnqfwJ+BFtYzsP7lxPpGoxp6m2k9KAP7Iq/yBP+DoLwNL4H/wCC3P7Y5a4t7i38Yn4KeObLyIvJaCLXvgJ8M0ure5jA2faI9UstQJlRn+0QtDcyFJppYo/9fuv8fL/g5z8Tah4m/wCC4P7b0l82I9E1P4JeGdOhDFkt9P0T9nL4RWqKmQCPtNz9q1CVeQtxeTBTtxQB9yf8GZviKw0T/grN490y8bbceMP2LvjB4d0obgN9/a/E74F+LZFweWxpfhfUn2rz8m77qmv9Smv8oz/g0H0e/wBT/wCCx3hS9s4TLb+Hv2ePjprGquM4t7CfTNC0COZsAjDaprmm2/JA3TjnOAf9XOgAooooAKKKKAPyh/4LbfsKap/wUV/4JrftF/s4eELS0uvipNoml/Ej4Li7eKISfFP4Z6rb+K9A0WC6nxb2MvjexstX+Hj6hcFYLG18XXF1NJFHE0if4uep6ZqWi6lqGjazp97pOr6TfXemarpepWs9jqOm6lYXElrfaff2VykVzZ3tndRS211a3Ecc9vPHJFKiSIyj/fqr+SX/AILaf8Gu/wAJf2+Nc8W/tO/sb6p4X/Z//a28QXdzr3jrw1rSXdj8E/jtrNwTLqGs69Ho9hqN98PPiPqkhN3e+MdC0vUdF8Van51x4t8PDW9Y1LxtAAf5cNf0A/8ABGb/AIL+/tQf8EufiP4V8H+MPE3jP43/ALFd7cppXjX4A61rsmqSeCNKvbqJp/GHwNudbnkj8G+JdEbz78+E7a807wT40SfUNP1u107V7zTP
+F/h/8x/2xv8Agn1+2V+wF42/4QX9rb9n/wAffB+/ub26stA8Q6zpg1H4f+M2sxvml8DfEfQ5dT8D+MY44Sk9wnh/Xr66sElRNSt7KctCvxtQB/vWfBj4w/Dv9oL4S/Df44/CTxJaeL/hl8WfBfh3x/4F8SWQdIdW8NeJ9Mt9V0u4kt5lS5sbxbe5WHUdMvYoL/S7+K507ULe3vbWeCP0yv45P+DL79pvW/ij+wN8d/2cPEviS81y7/Zh+OsF94P028d5P+EU+F/xu0B/EOjaFYsVCjTZviP4T+LWuwxF5JIrvWb9SUt/ssa/2N0AFFFFABRRRQB/kCf8HRv/ACnX/bm+v7M//rHv7P1fXn/Bm9/yly17/s0T4zf+pj8Ja+Q/+Do3/lOv+3N9f2Z//WPf2fq+vP8Agze/5S5a9/2aJ8Zv/Ux+EtAH+p/RRRQAUUUUAFf5q3/B7b/yfF+yF/2alff+re8cV/pU1/mrf8Htv/J8X7IX/ZqV9/6t7xxQB+C//BCP/lMN/wAE8P8As5fwP/6Fd1/tI1/i3f8ABCP/AJTDf8E8P+zl/A//AKFd1/tI0AFFFFABRRRQAUUUUAfiT/wcc/8AKE/9vr/sm/gn/wBXL8Na/wAb2v8AZC/4OOf+UJ/7fX/ZN/BP/q5fhrX+N7QB/s2f8G+//KGX/gn1/wBkNi/9S7xTX7GV+Of/AAb7/wDKGX/gn1/2Q2L/ANS7xTX7GUAFFFFABRRRQAV+eP8AwVx8T3/g3/gln/wUV8RaUSmpWX7FP7S8NlMGKNa3OpfCHxZpUV5Gw/5a2TXou4geGkhRW+Umv0Or81f+CylndX3/AASb/wCCkEFpC88qfsV/tG3jRxjLC20/4W+Jb+9mI/uW9nbT3Eh7RxMecUAf4mNf61f/AAaZ+BYfCX/BFP4Ea/Fd/aX+KHxP/aD8dXEPkrF9gm0/4ueJfhotpvXm432/w7gvvOf5l+2/Zx8kCV/kqV/ruf8ABq1qFne/
+8EOP2Q7a1nSWfSNe/aR0/UY1+9a3kv7Tnxf1VIJPR20/U7G5GM/u7hD1JFAH9Dlf4k3/AAWF8L6P4N/4Krf8FE/D2gwG10m0/bJ/aEurS1Lb1tv7X+JniLWZ7eEkArbQXOoTRWsZ3NFbJFGzuULt/ts1/ij/APBa7/lLh/wUa/7O++N3/qa6nQB/Sf8A8GQOu39v+0d+3f4ajkxper/BL4Ta7eQ8/Pf+HfHfiHT9Nk64/dW/ijVV5BP77ggE5/0aa/zfv+DIf/k679tz/s3rwF/6sgV/pA0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUV8t/Hb9uD9jX9mFLj/hon9qn9nz4KXVtGZG0n4lfF3wL4S8QT4XeIrDw3q+uW2v6ncsnzx2mnabdXUi5aOFgCa/E39ob/g7H/wCCOfwPjvbbwf8AFf4mftK6/Z+bE2i/An4UeIZLX7UuRGg8V/FZvhb4PvLVm2s99oeu61EkRZolnmXyGAP6VqK/ztf2l/8Ag9x+MOsC/wBK/ZC/Yw+H/gOH95DZeNP2g/G2u/EfUZ4nyq3Y8BeAE+HenaNewqd0UU/jrxTZ+cFeZJ4Q1u/8/f7R3/Bw9/wWH/ab/tCz8Xftq/Ej4feHb7zI08L/AADi0X4D6faWk2fMsF1r4Y6d4d8a6naSAtHIviDxXrM0sLtBNNJAfLoA/wBdj44ftR/s1/sy6KPEP7RXx/8Agz8DNGeB7i3v/iz8S/B/gCK+SMsCump4n1jTJtUnd1MUNrp0d1c3E+IIIpJmVD+D/wC0l/wdif8ABHv4CpqFl4N+KXxI/ad8S2PmQnRfgJ8MtZn037YMiJW8a/E+X4a+DL2xZtrTah4d1vxCkcJZoYbqdPszf5PPiXxR4l8Z63qHibxh4i13xX4j1ac3Oq+IPEurX+u63qdy
+wAa41DVdUuLq/vJyAAZbm4kkIABbisOgD+4j9qL/AIPZf2ifFCajo37H/wCyP8MfhFZSCW2tfG3xv8U658XfE7wtkJqVj4V8LRfDfwz4f1JAV8u01PUvHmnIyFpVulkEcf8AOn+0x/wXF/4Kv/tajUbP4v8A7b3xpi8Oap50V34J+GGt23wT8EXFjKGUaXqPhn4Q2XgrTtesI4yEEfiSPWZpiizXU9xcgzn8o6KAJJZZbiWWeeWSaeaR5ZppXaSWWWRi8kssjlnkkkdi7u5LMxLMSSTUdFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFdL4P8GeMPiH4m0fwX4A8KeJfHPjHxFeJp3h/wAJ+D9C1TxN4m13UJQTFY6PoOi2t7qmp3kgViltZWs87hSVQ4Nf04fsJ/8ABpT/AMFLP2qP7G8VfH208OfsR/C3UPIuZbz4tQyeI/jHd6dNt3TaR8FfD19b3+m3sXzpPpfxM8UfDXUYiodbWdGQuAfy1V+z3/BPH/ggf/wUj/4KQyaL4j+FPwaufhn8E9VaCZv2g/jkNR+H3wyuNNlKk33hFbjTbzxb8SUeMSpBP8P/AA14h0lLyP7Lqur6QGM6f6In7AH/AAbLf8Ewv2FLnRPGl/8ADa8/an+NGkfZ7qH4mftHJpPi7S9I1WIrKb3wd8K7ewtfhzoBt7tI7rR9Q1bRfFPi7RJYYns/F3nB5pP6FERIkSONFjjjVUjjRQiIiAKiIqgKqqoCqqgBQAAABQB/LN/wTt/4NN/+Cen7IX9heOf2joLn9t/40aeba9a4+J+jwaP8DdD1KLa5GhfBW2vtTsPEUUbGSCVvihrnjrT71UivbXQNEuB5af1F6TpOlaDpenaHoWmafoui6PY2umaTo+k2Vtp2l6XptjCltZafp2n2ccNpZWNnbxx29raW0MUFvDGkUUaIqqNCigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA
+KKKKACiiigAooooAKKKKACiiigAooooA+WP2kv2Hv2Pf2wtJbR/2oP2aPgv8cYRamztNS+IPgDw/rfifR4CGH/FO+MZLJPFnhmYKzqtz4f1rTLlFd1SZVdgf5tf2rP8AgzY/4JyfF/8AtLWP2aPiH8aP2R/Elz5rWOkWmqj43fCuzeTLK0nhb4g39v8AESbZJgKsPxgtbdId0a2+djp/XjRQB/lYftWf8Ggn/BU34E/2lrHwQ/4VH+154StfOntl+G3i+DwF8RfsMOS82peBPim3hrSzeFAXi0vwn448ZXtxxFbJNcMsLfznfHf9lv8AaT/Ze8RN4T/aO+Anxf8AgZ4h86SCDTfir8PPFXgeTUGiyTLpE3iHS7C11m0kRTLb32kz3llcwFbi2uJYWWQ/7wFc74s8H+EvHugaj4U8c+FvDnjPwtq8Jt9W8N+LNE0zxFoGp255MGo6PrFreadewk8mK5tpUP8AdoA/wKaK/wBh79p7/g2x/wCCO/7UX9oX+q/snaD8FPFd/wCaU8X/ALNWr6h8FrixknyZZrbwV4daT4TTzNIRKJdU+HeourqdpVJJkl/nU/af/wCDIq7T+0NW/Yx/bWt5x+9Ol+Av2nPBMlsy43NCL74tfCyC5WQt8sTiD4LwhSDMHIbyUAP4DKK/c79pb/g27/4LF/sxvqF3rP7IXir4w+GLHzWi8Wfs4anpXxttdQihz5k9r4Q8I3E/xRtolUCQHV/AGmMyHKIxSUJ+LXjLwN41+HPiC98J/ELwf4p8CeKtNbZqPhrxl4f1bwx4g098suy90bW7Sx1G1bcrLtntozlWGMg4AOWooooAKKKKACiiigAooooAKkhmlt5Yri3lkgngkSaGaF2ilhliYPHLFIhV45I3VXR0YMjAMpBANR0UAfpB+z7/AMFgP+Cn/wCy4bKL4J/tz/tF+GtJ03y/sHhTXviBqXxI8B2YixtW3+HvxO/4THwPEpAVZVTw+FmRUjmEiIqj
+9wvgL/weWf8ABTz4cLY6f8aPAH7Nn7RmlQiMX+p6x4J1z4Y+O77ZgMYdZ+HXiLTfBFk0o3GQ/wDCtLlQ+0xJEitG/wDI7RQB/pE/Af8A4Pbf2UPEn2O1/aR/Y5+O/wAJbqXy4bnU/hL4w8D/ABt0aGQ4VryeLxMPgpq9tZk5leC0stZvLdD5cS3zqGf9pfgP/wAHIv8AwRk+P32K10b9tPwX8NdbuvLE2h/Hjw/4y+C/9nPJjbHe+KvHegaV8PXxnEkth4xvreLB8yZRgn/HRooA/wB6v4Y/Gv4N/GzRx4h+DXxa+GXxb0Aokg1z4Y+PPCvj3RzHLzFINT8K6rqtkUkBBRvP2v8Awk16bX+BH4c8T+JPB+sWniHwj4h1zwtr+nv5lhrnhzVr/RNYspOPntNT0y4tb22fgfNDOjcDniv05+CX/BcT/grh+z39kj+G37f37Rj2Vh5YstH+I/jL/hdmgWkUWAlta+H/AI02fj/RbazUDAs4LGO2AJxECxJAP9qOiv8ALf8Agl/weU/8FSfh79ks/ix4J/Zj/aA0yPyxfX3iD4feIPh94xugmAxttW+G/i/QfCVnJKNxkaTwBeoGKmKKJVKN+uvwY/4PfvgrqX2S3/aH/YQ+KPgrYY0vtX+DHxZ8J/E/zxgebc2nh3xx4e+EX2Qk58uxm8UXuAAG1A5JAB/dXRX83/wY/wCDrr/gi/8AFr7JBr3x2+IXwL1O98tYdL+M/wAFvHtpslfGYrvXvhtp3xL8IWHl8+ZcX/iO2shtIW6YlQ361/Bj/gpF/wAE/f2iPssfwR/bT/Zg+JOo3mzyfD/hr42/D258WK0mPLS68Hza9B4psZZMgJFe6RbyMchUJBAAPtWikVldVdGV0ZQyspDKysMqysMgqQQQQSCDkcUtABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFf4xP/Bfz/lMp/wU
+I/7L5qf/AKj3h6v9nav8Yn/gv5/ymU/4KEf9l81P/wBR7w9QB+2X/Bk1/wApBf2p/wDszfUv/V2fCGv9MSv8zv8A4Mmv+Ugv7U//AGZvqX/q7PhDX+mJQB/iH/8ABWz/AJSpf8FKf+z9v2vP/V/eP6/qn/4MeP8Aksv/AAUI/wCyZfAD/wBSr4m1/Kx/wVs/5Spf8FKf+z9v2vP/AFf3j+v6p/8Agx4/5LL/AMFCP+yZfAD/ANSr4m0Af6JNFFFABRRRQAV/kwf8Hav/ACmm+M//AGST9n//ANVnpFf6z9f5MH/B2r/ymm+M/wD2ST9n/wD9VnpFAEn/AAaT/wDKaT4O/wDZIPj/AP8AquNSr/Wbr/DD/Yd/bf8Ajx/wTz/aD0H9pv8AZv1Hw1pXxT8N6D4o8OaZeeLPDlr4r0VNM8X6TNouspNo15LDBNNJYzyLbzM4aCQiRQSMV+33/EXf/wAFlP8AoevgH/4Yjw9/8sKAP9X6iv8AKB/4i7/+Cyn/AEPXwD/8MR4e/wDlhX+lP/wTd+Ofj79pv9gT9jv9ob4p3OmXnxI+NP7O/wALPiT44utF02LRtJuPE/i3wnpusaxNp2lQM8OnWb3t1K1vZxOyQRlY1Yhc0Afa9FFFABRRRQB+ZX/BaH/lEp/wUd/7M2+P3/qu9cr/ABPK/wBsP/gtD/yiU/4KO/8AZm3x+/8AVd65X+J5QB/qhf8ABEX9lXwL+27/AMGvfwr/AGVviJY2t34d+M/gf9rXwpb3Vyis3h7xS37U/wAcdQ8EeMLJmjmEWqeDPGVloXinS5jDMiX+kQGWCeEyQSf5bnizwtr/AIG8U+JfBPizS7nRPFPg/wAQaz4W8S6LeoEvNI1/w/qNzpOs6XdoCQlzp+o2lzaToCQssTgE4zX+uZ/wazf8oMP2Lv8Ar/8A2lf/AFrD44V/BV/wdA/sh/8ADJ//AAV2+O+paRpf9neBP2nrLRf2ovBxjh2QSX3xHk1Cx+Jy
+mVFEBupPjB4d8fao9ugWW30/VtMaZCJ4ppwD9eP+DLL9trxj4f8Aj/8AH/8AYD8Ra1Ld/DP4i/D3Uv2hPhzpd7eRCHw78UPA+p+FPDHjK10K3lkjlZ/HXgjWrHU9YhgFx5f/AArSyuoreBZdTuZP9Gqv8Rn/AIJMftav+w5/wUc/ZF/aYudRbTPDHgP4v6DpvxGuhIURfhR49W4+HvxTeRMiOdrbwD4p8Q3trFP+6F/a2kpaN4klj/25EdJEWSNldHVXR0YMjowDKyspIZWBBVgSCCCDg0AOooooAKKKKACv8KP9tn/k8z9rj/s5z49/+rV8V1/uuV/hR/ts/wDJ5n7XH/Zznx7/APVq+K6AP7S/GHwu/wCFk/8ABkL8LdThtvtWpfCjVb74o6bEF3Ov9n/8FCPiJ4R1u5Q4Oz7H4V8ZeILuVuP3EEq5y2D/AAMV/qC/8E8Phd/wuf8A4M+NR+G8dt9rv9e/Y0/b1udCttm/zvE/h34y/tIeKPCibcE8+JNF0r5lBdMb0BdVB/y+qAP7c/8AgyJ+F39r/tZ/tsfGk2+8fD79njwN8MRdFMiB/i98SI/FIhD4+RrlPglIwAILLbv1ANfyA/tRf8nM/tFf9l1+Ln/qf+IK/wBBv/gyN+F39j/sf/tn/Ghrby2+IX7R/hL4aLclNrXEPwi+Gen+JkQMQC8dvL8abjaRlFklmUHcHA/z5P2ov+Tmf2iv+y6/Fz/1P/EFAH+uB/wbb/8AKEj9gn/sRPiR/wCr2+KlfuHX4ef8G2//AChI/YJ/7ET4kf8Aq9vipX7h0AFFFFABRRRQB/hNftl/C6T4IftfftU/BiWFrd/hL+0d8bvhr5LLs2J4H+Jfibw1GFXAHlmPTFaNl+R4yrISjKT/AGt/8GRH7RfhSzv/ANt79k7U7sWvjTXIfhx8f/Btq9yMaz4f8P8A9p/D74gmG1cr5c+h3uu/Dt2eHznu4NakMqwppqtN+MH/AAdX/sd3n7L3
+/BWT4m/ELTNInsvh1+114d0L9oTwrepbyf2c3ivUIf8AhFvi3pS3xUQz6wPH+gaj4y1K0U+dY6f470Jpl8u7t5Zfwx/Zc/aj+Of7GPx08BftH/s4+PNQ+HXxb+HGozX/AId8Q2MNpe28sF7aT6dq+ia3pGow3Wl694d1/Srq70rXNE1W1ubDUbC6liliDiOSMA/3c5ZYoIpJ55I4YYY3lmmldY4ooo1LySSSOQkccaAs7sQqqCzEAE1/iDf8FUfj+n7Uf/BSD9tv472muWHiTQvHn7SXxTfwXrul3RvdN1P4c+HPE974R+Glzp97hReWR+H+geG1tbpUjS4gVJo4okdY1/WD9sv/AIOrf+Cmn7ZX7OXiT9mrVbD4EfBHwz8QPDp8K/E7xl8D/CnjvQfiH418P3cUlr4g8PLrnir4k+L7Hwx4f8V2T/YvEdp4b0mw1S+spb/S49bt9E1O90qX+aSgD+1b/gyT+FN7rX7a37X/AMbBYtNpXw5/Zh0f4aTX5TdDZav8Xvil4a8SabCCQQlzd6f8GNd8pgQ/kQXSA7JHB/0oq/lR/wCDQn9ju4/Z5/4Ji3Px58SaXLp/jX9sr4l6v8SITdQvbXifCnwEbn4ffDS0ngkUOYL3ULHx3410m6J2Xui+NtOuYQYHjkl/quoAKKKKACiiigD+Vj/g4I/4L5ftGf8ABIP4wfBP4XfB34AfCL4l6X8YfhTqnjuDxp8T9V8aFNN1/RfF2peH9V0GHw/4V1Lw/wDa7W10/wDsDUftTa9DO8uqSwtDGkUUkn5C/wDBLr/g6h/b4/bN/wCCln7KP7PXx88Nfs0eCfgf8ZviDqngDxLpHws+HfjHR9Zn1LxB4L8UWngFLTxF40+Jnju+tZE+ILeFHufIEYv7dbix2RJdfJ9Cf8Huf7PPiLxL8D/2Jf2n9F0i4utB+E/xB+Kvwi8d6naw+cLCP4v6P4M8ReCLjUymZLbTotQ+F3iXT4bt0W0XUtetLKWZ
+brULCKf/AD3vhh8SvG3wa+JPw/8Ai98NdeuvC/xD+FvjXwv8Q/AviSyETXeg+L/But2XiHw5rFukySQSS6dq+nWl2sU8UsEpi8uaKSJnRgD/AHaPjb8DPg7+0j8M/FHwb+PXw18H/Fn4X+MrCXT/ABH4K8caJZ67ol/E6OkVzHBdxtJp+q2Dv9q0jW9Nls9Z0W/SDUtIv7K/t4LmP/EM/bv+A+ifsuftr/tafs4eGL641Lwx8DP2i/jH8K/DN/ds73l14c8EePtd0DQZb15CzyXx0mxsxeyFm33QlcMykMf7+/AX/B6N+x1J+ygnjD4jfAr4vw/thaT4USzv/gx4a0/Sl+Ffi74gRW0cC6poHxSu9au7vw58PdTvSNSvBrfhq+8W+G7RrvSrPSfGM9jaaprP+dt+0J8bvGf7S3x4+M37Q/xFaxbx58cfih46+LHi8aXb/Y9Li8RePvEupeJ9VttLtNzm10y1vNTlttPt2kkeGzihjeSRlLsAf20f8GOVp4sf4h/8FGL61u5k8DW/gz9mm01yxzi3ufFl5rnxom8K3e0qczWWj2PjKHKMNqahiRW3RFf9C+v4sv8Agyn/AGaPEfw8/Y3/AGpP2oNdW6s9N/aV+MXhLwX4NsbiMLDf+GP2etH8T2tx4qsXC/vLbUfGXxT8XeGHzISl54Kul8uMYeb+02gAooooAKKKKAP8gT/g6N/5Tr/tzfX9mf8A9Y9/Z+r68/4M3v8AlLlr3/Zonxm/9TH4S18h/wDB0b/ynX/bm+v7M/8A6x7+z9X15/wZvf8AKXLXv+zRPjN/6mPwloA/1P6KKKACiiigAr/NW/4Pbf8Ak+L9kL/s1K+/9W944r/Spr/NW/4Pbf8Ak+L9kL/s1K+/9W944oA/Bf8A4IR/8phv+CeH/Zy/gf8A9Cu6/wBpGv8AA5+HnxF8ffCTxv4Z+Jfwt8Z+J/h38Q/Beq2+u+EPHHgvXNR8N+K/DGtWm77Lq2g69pFxaalp
+Wo2+5vJvLK5hnj3HY4ya+7f+Hw//AAVf/wCkkf7b/wD4k58YP/mtoA/22aK/xJv+Hw//AAVf/wCkkf7b/wD4k58YP/mtr/an+HV3dX/w+8CX99cTXl7e+DfDF3eXdzK81xdXVzoljNcXFxNIWklmnld5ZZXZnkkZmYliTQB2VFFFABRRRQB+JP8Awcc/8oT/ANvr/sm/gn/1cvw1r/G9r/ZC/wCDjn/lCf8At9f9k38E/wDq5fhrX+N7QB/s2f8ABvv/AMoZf+CfX/ZDYv8A1LvFNfsZX+Hd8Nv+Cnf/AAUa+DfgXw18MPhN+3X+1p8Nfhz4N08aT4S8C+Bvj98TvC/hLw1pYnmuRp+haBo3iWz0zS7IXFxPOLaztoYvNmkk2bnYnuP+Hw//AAVf/wCkkf7b/wD4k58YP/mtoA/22aK/mv8A+DVT9oT47ftMf8EvdQ+JH7RHxi+Jfxx+IEf7TXxZ8Op41+K/jXxD498UpoGl+Hvh1Ppuirrvia/1LUl0uwnv76a0sRcC2t5Ly5eKNWmkLf0oUAFFFFABXhv7T3wtf44/s1ftDfBWONJZPjB8Dfi18LUikaNI5H+IHgHX/Caxu8pWJEdtXCs0jCNVJLkKCa9yooA/wE9R06/0jUL7SdUs7nT9T0y8utO1GwvIXt7uxv7Kd7a7s7q3lVZILm2uIpIZ4ZFV4pUZHUMpFf6SX/Blh+1xpvjr9kr9on9jPWb63Xxb8A/ipD8WfCVpI6RXN/8ADP4x2ENnqEVlBnfdx+GPH/hHWLrV7sDFsfHmg20mBLAW/kh/4OK/2PpP2NP+Ctn7UXhTTtKOmeAvjN4ij/aX+GeyE29nP4b+Nc174i8Q22mwBRFBpnh34nx/EDwhYQQEwxWvh2FYxEuIY/zt/Yt/bY/aN/4J+/H3wz+0l+y947l8CfEvw5a3+kTvPZW+seHPFfhbWPIGueDfGfh2+DWHiHwvrH2W0mubC5VJ7PUbHTNd0e70zxBpGk6r
+YgH+4x8RfiB4Q+E3w+8c/FL4ga1aeG/Anw28H+JfHnjTxDfuI7LQvCnhHRrzX/EOr3bn7tvp2k6fd3cxHOyFgATgV/hYftSfHHWP2mv2lv2gP2i9fSaHWPjr8Z/iZ8W761ndXksJPiD4x1jxSmmDYzRpDpcWpx6dbxQsYILe2ihgxFGgH7bf8FDv+DnT/goj/wAFEvgDrX7M/i/Sfgl8DvhT4zi023+JNr8DfDnjbSfEvxF0+yeK6uPDWv8AiPxp4/8AGk1l4O1HUoLa9vdD8PWuj3WowW66PrWr6votzf6fefzpUAf6D/8AwZAfBC2t/CP7eX7SN4hkvNV8R/CH4IeHpMMq2lt4f0zxP488ZIW+5KdRl8TeBGA4a3GlsTkXIx/ezX873/Brp+yBefsmf8EjfgxqPiLT7jTfHP7UOv8AiH9qPxTaXcciTW2nfEG10bQvhpFGJgsqW978JPCHgTxAYDHEsF/ruoBVcs0839ENABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFIzKis7sqIqlmZiFVVUZZmY4AUAEkkgADJ4oAWivir40f8FIv+Cfv7O/2qP43ftp/swfDbUbPf53h/xL8bfh7beLGaPPmJa+D4den8U30seCHistIuJFOAyAkA/kp8Z/8Ag66/4Iv/AAl+1waD8dviF8dNTsvMWbS/gx8FvHt3vlTOIrTXviTp3w08IX/mceXcWHiO5sjuAa6UhgoB/SBRX8Knxn/4Pfvgrpv2u3/Z4/YQ+KPjXeZEsdX+M/xZ8J/DDyBg+Vc3fh3wP4e+Lv2sg48yxh8UWWQSF1AYBP5FfG3/AIPKf+CpPxC+12fwn8E/sx/s/wCmSeYLG+8P/D7xB8QfGNqHyFNzq3xI8X694SvJIhtMbR+ALJCwYyxSqwRQD/UgrzL4nfGv4N/BPRz4h+Mvxa+GXwk0AJJIdc+J3jzw
+r4C0cRxcyyHU/FWq6VZBIwCZG8/an8RFf41Pxu/4Lif8FcP2hPtkfxJ/b+/aLjsr/wAwXuj/AA48Zf8ACk9Au4pch7W68P8AwXtPAGi3NmwODZz2MlsQBmIlQR+Y3iPxP4k8Yaxd+IfF3iHXPFOv6g/mX+ueI9Wv9b1i9k5+e71PU7i6vbl+T8007tyeeaAP9hL48f8AByL/AMEZPgD9ttdZ/bT8F/ErW7XzBDofwH8P+MvjR/aLx53R2XirwJoGq/D1M4xHLf8AjGxt5cjy5mGSPxa+PH/B7b+yh4b+2Wv7N37HPx3+LV1F5kNtqfxa8YeB/glo00gyq3kEXhkfGvV7mzBxKkF3ZaNeXCDy5VsXYsn+btRQB/XF8ev+Dyz/AIKefEdb7T/gv4A/Zs/Zz0qYSCw1PR/BOufE7x3Y78hTNrPxF8Ral4IvWiG0xn/hWlspfcZUlRljT8Pf2gv+CwH/AAU//ajN7F8bP25/2i/Euk6l5n2/wpoPxA1L4b+A7wS53LcfD34Y/wDCHeB5VALLEr+HysKM8cIjR2U/m/RQBJNNLcSy3FxLJPPPI8000ztLLNLKxeSWWRyzySSOzO7uxZ2JZiSSajoooAKKKKACiiigAooooAKKKKACiiigAooooAKKK+//ANkr/glh/wAFDP25p7F/2Xv2S/i/8SvD+oSrDF8QW8Pf8If8KY2L7WW4+K/jqfw18OopYxuke1PiY3hjRmjtpCACAfAFFf3Hfsif8GUXx88V/wBl+If22/2pfAnwg0qTyrm7+HPwI0a8+KHjeSBtok03UvHHiaPwp4M8MapH85a60fRviVpvyoqSS+Y7Q/1R/sZf8G6H/BJr9iefStf8Ifs2aZ8Z/iNpPkSQfE/9pa8h+MniNLu2w1vqWn+GtXsLP4W+HNWt5g1xbat4V+HuhapBMVZLweTbiIA/zAP2Kv8Agjx/wUd/4KBTadefs0/su/EDxB4G1CVFPxe8X2kPw4+D0EG4
+C4uYPiL43l0Tw/4gaxQiW60vwjceItfEbRiDSJ5JoY5P6/f2JP8Agym8FaONI8V/8FBf2m9R8Y36eRc3nwc/ZotpPD/hlJo9shs9X+L/AI40eTxHrlhcEm3vbXQfh54KvohGzWHiQmVJYf7xYYYbaGK3t4ooLeCKOGCCGNYoYYYlCRRRRIFSOKNFVI40VVRVCqAABUlAHxl+yF/wTy/Yp/YM8Mjwv+yX+zh8NPg3FLZx2Gq+JND0X+0/iH4ltoyjLH4t+JviKbWPiD4rRZEEscXiDxLqEFvIWNtFArFa+zaKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACvJfi98A/gX+0D4fbwn8ePgx8KfjV4XZJUPh34r/D3wl8Q9EVZgBLs0zxbpGr2cbOAMvHCr5VWDBlUj1qigD+dT9pD/g1f/wCCN/7Qn9oX2j/AbxV+zn4l1DzGk8R/s6/EXXfCcUMj5MZtPA3jAePfhdp8cLEkRaZ4FsVdTskLKsfl/gR+0V/wZC+MbaS+1L9kv9uLw1rMT+adN8HftE/DnVPDUtttyYUvfiT8NbvxUl8ZMhZJIPhVpohKl1jm37I/9CKigD/IP/aB/wCDX7/gs18Avtt5F+zDa/HDw7ZeZu8R/s/fEDwh8QftPl5I+xeC7vUfDvxSuvMRS8fl+AjniNtszLEfxV+Lv7Pvx6/Z+1r/AIRz48fBL4t/BXxB5kkI0T4s/Djxh8OtWeWLPmJHp/i7R9IupCgBJ2RN8vzfd5r/AHmqwvEnhfw14y0W+8OeL/DuheK/D2pxGHUtB8SaRp+uaLqEJ6w32l6pb3VjdxHvHPBIh9KAP8CSiv8AZ3+Pv/BAn/gj5+0g93d/ED9g/wCCuhateeZJJrfwcsda+Aepm8kyTqE7fBTWPAdnqV6ZCZpZNYs9
+RjupcteRXIZw34z/ABx/4MtP+CeXjX7ZffA74+ftNfAzVLjf9n0/WdR8D/F3wVYE5MXkaPqnhnwn4xlVCcSC7+Ilw0iKoVon3SOAf5kFFf2qfHD/AIMmf20PC32y5/Z8/a2/Z2+MVnb+ZJBZ/EjQPH/wQ8Q30a52Q2lnpFl8ZNBF4/ACX/ibT7T7xa9TAU/jr8bv+Dbj/gs/8Cmup9Y/Yo8afEPR7cv5GtfBHxN4E+MS6gkecy2vhzwL4m1bxzEDj5I9R8KWFxJxshbNAH4a0V7t8V/2W/2mvgPJNF8cP2dfjr8Gpbd/LuE+Kvwj8f8Aw9aGQNt2Sjxb4f0go27gBsEngV4TQAUUUUAFFFFABRRRQAUUUUAFFFFAH0v8Gv20P2v/ANnVrY/AP9qb9of4LxWhUw2nwv8AjN8Q/A+nbUIIhm0zw54h07T7m2YDbLaXNtLbTJmOWJ0JU/q38IP+DnH/AILVfB/7LbQ/tg3nxJ0a22btF+L/AMM/hV4++1bMAfavE194Nt/Hj5UFX8vxbEXyWbMgVx+BtFAH9oHwg/4PYf26vDf2W3+N37K/7MPxXs7fYs1z4HuviV8INevo1xve5vtQ8TfFLQ0un5/e2Xhi0tlyMWRwd36ifCj/AIPdv2T9Z+zL8cP2J/2hPh0zhBdv8LfHPw5+MUVuxwGaL/hK2+B8s8akk5McUhUcRlvlP+b3RQB/ra/Cj/g6/wD+CLXxK+zRa/8AHn4i/Be9utixWXxX+BnxLGyV/wDllc6r8NdE+JPh+z2877i71iCzXBzc8rn9MvhR/wAFcP8Agl/8bvs0Xw0/b8/ZO1zUL3Z9k0HUPjf4D8KeKrjfjAi8JeMNZ0DxM5BIVwNJzGzKkgVmAP8AiMUUAf78GheIdA8U6Zb634Z1zR/EWjXi7rTVtC1Oy1fTLpcA7re/0+e4tZ1wQcxSsMEHPIrYr/BA8C/E/wCJXwv1Ma18M/iH45+HesBkcat4F8W6/wCEdTDx
+nMbC/wBA1DT7rch5RvNyp5Uiv0Y+FX/BcH/grp8GRbJ4J/4KFftPXMFntFrZfEH4jaj8YNOgjTASCLTPi4vjjT1tkACpai2+zIg2LEF4oA/2p6K/yg/hV/wd4f8ABZH4eC2Hi3xt8AvjotvtEn/C0/gXoWktdhcA/aH+Cup/CAhmA5a38g5JPWv0l+GH/B8D8dtMS3T4z/sD/CTxtJ8i3Vz8MPjN4x+Fyc8SS29j4r8H/GBuDl0gk1H5seW1yufNUA/0V6K/it+G3/B7X+xHq/2dfi3+yF+1H4DeTas7+ANU+FPxRtrd2wC3ma94r+E9xNChOWdLQTFASlu74jP6AfDb/g7O/wCCLXjw26eIvjZ8VPhBLcbF8r4k/AT4l3YgkfAWO4uPhdpHxLsosMQrzG5NtHy8k6xhnAB/SlRX5c/DH/gtp/wSR+Lxt08G/wDBQ39leGe72C1svHPxU0H4VajcPJjZDFpnxSm8G6g9y5IVbZbY3DN8oiLcV+gngL4ufCn4q2f9o/C/4nfD34kaf5Yl+3+AvGnhvxhZ+U2Nsv2rw9qWoweW2Rh9+05GDyKAPQqKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr/GJ/4L+f8AKZT/AIKEf9l81P8A9R7w9X+ztXxb8Qf+Cbn/AATv+LPjPxF8R/ip+wb+xn8SviF4u1BtW8V+O/H/AOzD8E/GPjLxPqjxxwvqXiHxP4h8EajrWs37wwxRNeaje3Nw0cUaGQqigAH8Bv8AwZNf8pBf2p/+zN9S/wDV2fCGv9MSvmT4I/sU/sbfszeIdV8Xfs4fsmfs0/ADxXrujN4c1zxN8FPgV8MPhZ4g1nw899Z6m+harrPgbwvoWo6hoz6lp9hqDaZd3M1k17Y2d0YDPbQyJ9N0Af4h/wDwVs/5Spf8FKf+z9v2vP8A1f3j+v6p/wDgx4/5LL/wUI/7Jl8AP/Uq+Jtf20eLv+CY/wDwTb+IHivxN478
+ef8ABPv9iTxr448aa/rHivxj4y8W/sq/AvxH4q8WeKfEOoXGra/4k8S+INY8CXmra5r2uard3Wp6vrGp3d1qGpahc3F5eXE1xNJI3q3wM/Y+/ZL/AGYL3xFqX7Nf7L37PH7Peo+LrXT7HxXf/BD4LfDj4U3niey0mW6n0q08Q3XgTw3oM+s2umT317Np8GovcxWct3dSW6RvPKXAPouiiigAooooAK/yYP8Ag7V/5TTfGf8A7JJ+z/8A+qz0iv8AWfr5I+Ln7AX7CXx/8bXvxK+O/wCxZ+yd8aviLqVnp+n6j4++LP7O3wh+IvjS/sNItUsdKsr3xR4v8Iaxrl1aaZZRx2mn20988NnbIkFukcShAAf4X1Ff7ev/AA6Z/wCCWH/SNT9gT/xDz9nr/wCd5R/w6Z/4JYf9I1P2BP8AxDz9nr/53lAH+IVX+2B/wRa/5RJ/8E4/+zOfgN/6r/Ra7X/h0z/wSw/6RqfsCf8AiHn7PX/zvK+2/BXgjwZ8NfCPhv4f/Drwj4Z8A+A/BujWHhzwh4K8F6Dpfhfwl4V8PaVbpaaXoXhzw5olrY6Pomj6baxR21hpmmWdtZWdvGkNvBHGiqADqKKKKACiiigD8yv+C0P/ACiU/wCCjv8A2Zt8fv8A1XeuV/ieV/vo+NfBPgz4k+EfEnw/+IvhLwz498B+MtF1Dw54v8FeM9B0vxR4S8VeHtWtpLPVdB8R+HNbtb7R9b0bUrSWW11DTNTs7myvLeSSC4gkidlPxH/w6Z/4JYf9I1P2BP8AxDz9nr/53lAH56/8Gs3/ACgw/Yu/6/8A9pX/ANaw+OFfl/8A8HpX7If/AAsT9j/9n39snw/pfna9+zf8ULv4c+Obu3hxIvww+N0FnBZalqdwoPmWugfEnwr4T0fTIZCBDc/EDUHiIM8of+wr4V/CP4U/ArwJonwu+CXwy+H3we+GfhptTfw78O/hb4N8O/D/AMDaA+tatfa/rLaL4T8KadpOg6W2
+ra7qmp61qTWNhAb7VtQvtRujLd3c80k/xO+Fnwx+NfgbX/hh8ZPh14F+LXw18VRWUPif4e/EvwloHjvwP4jh03U7LWtOi17wp4o0/VNB1eOw1jTdO1ayTULC4W11Kwsr6AR3VrBKgB/gh1/tB/8ABCP9rj/htP8A4JT/ALIHxd1LU/7U8baF8N7T4N/E2WabztRbx/8ABWaT4cavqernLBdR8XWOgaV46cAgNbeKbWUJEJPJj9y/4dM/8EsP+kan7An/AIh5+z1/87yvqb4K/s/fAb9m3wnd+Av2dvgn8JPgL4Gv9du/E994M+DPw58H/DDwpeeJdQstO06/8Q3Xh7wTo+iaRca5e6fo+k2N3qstm9/c2el6fbTTvDZWyRgHrtFFFABRRRQAV/hR/ts/8nmftcf9nOfHv/1aviuv91yvhDW/+CWn/BMnxNrWr+JPEn/BOv8AYX8QeIvEGqahreva9rf7JfwE1XWdb1rVrua/1TV9X1S+8Az3upanqV9cT3l/f3k811eXc0txcSyTSO5APzq/4NrfD+meLP8Aggh+xn4V1uAXWjeJfCP7SXh/V7Y4xcaZrP7Tfx606/gOQwxNa3MsZypHzcgjiv8AI5+IPg3U/h1498b/AA+1pSus+BfF/iXwbqylDGV1PwxrN7ol+pRsshF1YygoSSvQ8iv94z4X/Cn4XfBDwJoPwu+C/wAN/Afwj+GfhZNQj8MfDz4Y+EPD/gPwN4dTVtWv9e1VNC8J+FtP0rQdITUtc1TU9Zv1sLC3F5quo32oXAku7ueaT5R8Qf8ABLj/AIJm+LNe1vxV4p/4J3/sNeJfE/iXV9S8QeI/Eev/ALJvwG1jXdf17Wb2bUdX1vWtX1DwFcX+qatquoXNxfalqN9cT3l9eTzXNzNLNK7sAflB/wAGnHwu/wCFd/8ABFr4GeIZLb7NdfGb4m/Hj4o3SMmyWTyfiXrPwvsLmUYBP2nSPhnp00Dn79m9s6koy1/lj/tR
+f8nM/tFf9l1+Ln/qf+IK/wB034c/DT4c/B7wT4f+Gnwk8A+Cvhd8OfCVpLYeFfAPw78LaH4K8F+GrGa7uL+az0Dwt4bsdN0PR7WW+u7u9lt9PsbeKS7ubi4dDNNI7fIOq/8ABK3/AIJh67qepa3rf/BOX9hLWNZ1i/vNV1fVtU/ZH+AWoanqmp6hcSXd/qOo3934Alur2+vrqaW5u7u5lluLm4lkmmkeR2YgHxh/wbb/APKEj9gn/sRPiR/6vb4qV+4dcN8Nfhh8Nfgx4H0D4ZfB/wCHvgf4U/Dfwpb3Nr4X+H/w38KaF4H8E+G7W9v7vVby20Hwr4ZsNM0LR4LvU7++1G5h0+wt457+8uruVWuLiaR+5oAKKKKACiiigD8WP+C6/wDwSg0D/grD+xhrHw10RdJ0j9o74T3OofEX9mrxlqjR21tbeM1sVg1r4f67qJAktPB3xQ0u1g0LWJt/2bSdds/Cni65t78eFk0+6/x/vjP8Ffiz+zt8TfF/wZ+OXw+8UfC74peAtWuNE8W+CfGOlz6TrekX9u3BeGYGK8sLyIx3mlavp813pOs6bPa6ppN9e6dd211L/vUV8h/tS/sCfsXfts2GnWP7Vv7M3wh+OMujQfZdE1zxt4RsLnxhoNmZZJ5LHw/44sVsfGWhafNPNJNc2Gka7ZWdzM3m3EErqrAA/wAMOv2z/wCCHn/BHv4n/wDBWH9qTQdAu9G8Q6B+yj8NNZ03Xf2kPi1b209nYWugW8iXsfwy8J6zIgtbj4kePkQaXpkFs9zP4Y0i51Dxpf2dxaaRDYan/pBeFf8Ag24/4Ik+DvEM/ibSf2C/Al5qM8qzNa+KviL8cvHPh6Nl52weE/GnxR1/wvBEx5aGLR1iP3SmzCj9h/hl8LPhl8FvBOifDX4PfDzwR8K/h54at2tfD3gX4deFtE8GeEdEt3dpZItK8O+HbHTtJsVlmd5pvs1pGZpneaUvK7OQDX8F+DfCvw68H+FPh94F
+0HTfCvgnwN4b0Pwf4P8ADGjWyWekeHfC/hrTLXRtA0PS7RPkttO0nSrK0sLKBflhtoI4xwtdLRRQAUUUUAFFFFAHw3/wUm/Yk8Jf8FFP2Jfj7+yD4u1FdBT4seEo4vCvipopJx4O+IvhfVdP8X/DnxVLDBtubnT9G8aaFotxrun2skE2seH/AO1tGE8Sai7j/GE/a6/Y+/aH/YX+OXi39nf9pv4c6x8OPiV4SuGLWl/E82ieJ9Dknnh0zxj4J1+NBpvivwbrq20sukeINJlmtZjFcWVyLXVLK/sLT/dfr5q/aX/Y2/ZU/bI8KR+Cf2pf2ffhT8dfD9rHdR6VH8RPB2k67qvhxr0It3deEvEktuviTwfqE6xosmpeF9W0jUGVQv2rbxQB/hOV9kfsKfsH/tH/APBRP9oLwj+zt+zX4G1HxR4m1+/sm8TeJnsr4eCfhf4Sluo4NU8f/EfX7a2uLbw54W0aFnleafdfaxei20Dw9Zat4h1LTNLu/wDVLtv+DZD/AIIcWutJrsX7CujNdx8i1ufjn+05eaKX3AhpNAvPjVPosmANvlvYNCVJzETgj9ePgH+zX+z9+yx4Ds/hj+zh8Gfhv8EfAVl5br4Y+GvhHRvCmn3d1HH5R1LVzpVpb3GuazOuWvNb1qe/1e+lZ5729nmkeRgDi/2Kv2U/AP7D37KXwI/ZN+GUs134P+B3w+0nwba6xdW0FlfeJ9YQzan4t8Z6naWrNbW2reNfFuo654s1aC2ZreHUtZuo4CYlQ19Q0UUAFFFFABRRRQB/kCf8HRv/ACnX/bm+v7M//rHv7P1fXn/Bm9/yly17/s0T4zf+pj8Ja/0ffin/AME8v2A/jn48134p/Gv9h/8AZD+MHxN8Uf2Z/wAJN8Rfih+zb8G/H3jrxF/Ymjaf4d0b+3PFvivwZq2v6t/ZPh/SNK0PTPt+oXH2DR9M0/TLXyrKzt4Y9j4M/sJ/sRfs5eL5PiD+z3+x1+y18CvHsuj3
+vh6Xxt8HP2f/AIUfDLxdJoGpTWlzqOiSeI/BfhPRdYfSL+40+wnvdNa8NndTWVpLPC720LIAfVVFFFABRRRQAV/mrf8AB7b/AMnxfshf9mpX3/q3vHFf6VNfNHxv/Yt/Y7/aa13R/FH7SH7KH7Nn7QHiXw9pLaDoHiH42fA34Y/FTXND0JryfUG0bSNW8c+GNdv9N0pr+6ub5tOs54bQ3lxPcmEzSyOwB/hPUV/t6/8ADpn/AIJYf9I1P2BP/EPP2ev/AJ3lH/Dpn/glh/0jU/YE/wDEPP2ev/neUAf4hVf733wu/wCSZ/Dv/sRfCP8A6j+n18bf8Omf+CWH/SNT9gT/AMQ8/Z6/+d5X35a2trY2ttZWVtBZ2VnBDa2lpawx29ta2tvGsNvbW8ESpFBBBEiRQwxosccaqiKqqAACeiiigAooooA/En/g45/5Qn/t9f8AZN/BP/q5fhrX+N7X++B8SPhl8N/jJ4I8QfDP4vfD/wAE/FP4ceLLaCy8U+APiN4V0Lxt4K8S2dte22pW1pr/AIW8S2Op6HrFtb6jZWd/BBqFjcRRXtpbXUarPBE6/Gn/AA6Z/wCCWH/SNT9gT/xDz9nr/wCd5QB/iFUV/t6/8Omf+CWH/SNT9gT/AMQ8/Z6/+d5R/wAOmf8Aglh/0jU/YE/8Q8/Z6/8AneUAfij/AMGcv/KInU/+zs/jR/6jHwur+rGvKPg18Bvgd+zn4Pb4e/s+fBr4VfAvwC+r3viB/BHwd+HvhL4Z+EX13UorWDUdabw34L0jRdHbVr+Gxsob3UTZm8uorO1jnmkS3iCer0AFFFFABRRRQB/OR/wcVf8ABFjT/wDgqb+zlb/Ej4RWEVr+2f8As7+H9avfg/IbqGxs/ir4Tll/tbxD8FNfnupIrKG41eeKXU/h5rN7JBb6J4xdrG9vdO0DxR4gv7f/ACXvFfhPxR4E8S654M8beHNd8H+L/DGp3ei+JPC3ifSb/QvEOgaxp8zW99pW
+s6NqkFrqOmajZzo8NzZ3lvDcQSKUkjVgRX++xXxJ+1P/AME2/wBg79tqe21D9qj9lP4NfGXX7KBLSz8Y+JPCdtZ+P7WxijaKPTbf4h6A2j+OIdLjVsppcfiBdPWRY5hbCaKJ0AP8OKv6NP8Ag33/AOCH3xI/4Kb/ALQvhP4r/FvwRr+ifsIfCvxCmtfE3xxqNtcaVpfxg1nw7dQT2/wR8CXrmC51qfXb4RW/xB1nRC1t4Q8KJqkE+raZ4q1Twva33+gZ4E/4NxP+CJ/w71yXxBoP7BHw51K+lu1vDb+O/G3xk+J+hxyIVYRReGviT8SPFnhyO0LKWazXSvsrhmjeIxERj9kvBngrwb8OPCuheBfh74S8M+A/BPhfT4dJ8M+DvBmg6V4X8LeHdKt8/Z9M0Lw/olpY6TpGnwbm8mzsLS3totx2Rrk0AbdhYWOlWNlpel2VppumabaW1hp2nWFvDZ2NhY2cKW9pZWVpbpHb2tpa28ccFvbwRpDBDGkUSKiqot0UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUV5749+Lnwp+FVn/aPxQ+J3w9+G+n+WZft/j3xp4b8H2flLndL9q8Q6lp0Hlrg5fftGDk8Gvz7+J3/BbT/gkj8ITcJ4y/4KG/srzT2m8XVl4G+Kmg/FXUbd4874ZdM+Fs3jLUEuUIKtbNbC4VvlMQbigD9RqK/mt+JP/B2d/wAEWvAZuE8O/Gz4qfF+W33r5Xw2+AnxLtBPImQ0dvcfFHSPhpZS5YFUmFyLaTh452jKufz/APiT/wAHtf7EekfaF+En7IX7Ufjx49ywP4/1T4U/C62uHXIDeZoPiv4sXEMLkZV3tDMEIL26PmMAH9qVFf51HxP/AOD4H47amlwnwY/YH+EngmT51tbn4n/Gbxj8UU4yI5bix8KeD/g+3Jw7wR6j8uTGty2PNb82vir/AMHeH/BZH4hi5HhLxt8AvgWtxuEf/CrPgXoW
+rNaBsgfZ3+NWp/F8llB4a4885APWgD/V8rH13xDoHhbTLjW/E2uaP4d0azXdd6trup2WkaZargndcX+oT29rAuATmWVRgE54Nf4uHxV/4Lg/8FdPjMLlPG3/AAUK/aetoLzcLqy+H3xG1H4P6dPG+Q8EumfCNfA+ntbOCVe1Nt9mdDsaIrxX5z+Ovif8SvihqZ1r4mfEPxz8RNYLO51bx14t1/xdqZeQ5kY3+v6hqF1uc8u3m5Y8sTQB/tXfFf8A4K4f8Ev/AII/aoviX+35+ydoeoWW/wC16Dp/xv8AAfivxVb7M5EvhLwfrOv+JkJIKoDpOZGVkjDMpA/M34r/APB1/wD8EWvhr9pi0D48/EX40XtrvWWy+FHwM+JZ3ypn91bar8StE+G3h+83cbLi01iezbPFzw2P8kqigD/SE+K//B7t+yfo32lfgf8AsT/tCfEVkDi0f4peOfhz8HYrhhkK0v8AwijfHCWCNiAciOWQKeYw3yj8u/i//wAHsP7dXiT7Vb/BH9lf9mH4UWdxvWG58cXXxK+L+vWMbZ2PbX2n+Jvhbob3Scfvb3wxd2zYbNkMjb/F/RQB++Xxf/4Ocf8AgtV8YPtVtN+2DefDbRrnft0X4QfDP4VeAfsu/IP2XxNY+Dbjx4mFIVPM8WylMBlxIWc/lJ8Zf20P2v8A9oprk/Hz9qb9of40RXZYzWnxQ+M3xD8cadtckmGHTPEfiHUdPtrZQdsVpbW0VtCmI4okQBR80UUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFfT37NH7Ff7Wv7ZHiT/hFP2W/2dfi58c9WiuY7XUJvh94L1jWdB0GSYKY5PFXitbaPwr4StCHjzfeJtZ0myUyRhrhTIgYA+YaK/s1/Y3/4Mw/21Pil/ZXiP9sr41fDT9lnw1P5FxeeB/Byx/HH4uKi4e406+Oianovwu0KWZSIYNV03x943FtL5ks2izpFHFc/
+1e/sb/8ABsj/AMEkf2QP7K1qb4CyftMfEPTfJl/4Tv8Aaj1G1+J8Ruo8SNJa/DWPTdE+D9skdyBNYzT+AL7WLJUhX+2Z5EeaUA/y3v2Tv+CdX7cf7curR6V+yj+zB8W/jLA139guvFXh/wANTad8OtIu94T7P4h+KHiOTRfhz4cl3bsR674o052CSlFYRSbf6s/2Nf8Agyr/AGg/Gf8AZPib9ub9pXwX8FNFlMN1efDH4G2DfFH4iSW7bRNpmq+ONcTQvAHhPVEO9heaJp/xT00qsYBdpX8j/Rh0XRdG8OaTp2g+HtJ0zQdD0i0hsNJ0XRbC10vSdLsbZBHb2WnadYxQWdlaQRgJDbW0MUMSAKiKoArToA/FH9jX/g3p/wCCT37Ev9lat4C/Zg8OfFX4h6V5MkfxV/aNeH40eMje24Hkapp+m+JLJPh54U1WFgXj1DwN4F8LXKu7EScJt/amCCG2hhtraGK3t7eKOC3t4I0ihghiQRxQwxRhY4ookVUjjRVREUKoAAFS0UAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAySOOaOSKWNJYpUaOWKRVeOSN1KvHIjAq6OpKsrAqykgggkV8a/F3/gnN+wF8e/tMnxm/Yq/ZZ+JN9d7/N1rxX8CPhpqfiRGkyZJbXxPJ4bHiGxnfJ3T2Wp28xycycmvs2igD+fH4t/8GuX/BFP4r/abm3/AGU9Q+FesXW/frHwk+L/AMWvDHlbskfZvDep+MPEHga28tiWQQ+FEByFcPGqIv5ffFz/AIMl/wBiXxAbqb4I/tb/ALTPwvnn3vBB8QtI+Gnxg0qykbJVILbRtB+EOqSWkZwFiutbnuiow987HcP7T6KAP82/4t/8GR37
+X2h/an+Bv7Z37OnxKji3tbR/E/wh8SPg1d3SLkhPL8M2nxutYLh1GER70weYQslzHHmVfy++Ln/Bq1/wWp+Fhup9M/Zr8LfGDSrPeZdW+Efxp+FeqiRFzte18P8Ai/xN4K8Z3vmY+SO08MzTjjzIkNf66NFAH+Hd8W/+CYn/AAUY+BH2mT4ufsM/tW+B9PtN/na/qvwI+JEvhXEefMMPi6w8PXnhi6VANzta6tMqqVZiFZSfh+6tbqxuZ7O9trizvLWV4Lm1uoZLe5t542KyQzwTKksMsbAq8ciK6MCGAIxX+/jXjnxR/Z2/Z++OFu9n8avgX8HPi/aSReRJa/FH4Y+CfiBbvDt2+S8HizRNWiaLb8vlspTbxjFAH+DVRX+y78W/+Den/gjJ8aBdN4p/YF+Dnh24ud7C4+Ek3jL4HG2lbJWW1tPg74o8D6bH5TEMlu9jJZnASW2kiLRn8vvi1/wZn/8ABLPxubm6+G/xA/at+Ct85c2lloXxG8G+NPDEBbJAn07x78O9c8SXKR8BAnjK1cgESSSEhlAP8uOiv7+fih/wY7SD7Rd/Bb/goajff+yaB8UP2eWTB6x/aPF3hT4rPnPCv5fgkY++u7Plj85vih/wZl/8FTPB32i5+H/xH/ZJ+L9khf7LaaL8R/HfhDxHOq52+fp/jb4YaP4etncY2rH4tulByHdAAzAH8j9FfuR8UP8Ag22/4LV/Cg3MusfsNeNvFVjBvaO/+F/jj4S/FIXkSZ/eW2k+BPHuu+I13YOyC70W1u24P2fDKT+c3xQ/YN/bg+CX2g/GH9jr9qP4XQ228zXfj74B/FPwnYBEzmaPUNb8K2VjPbkAslzBcSW8ifOkjIQ1AHyhRTnR43eORGjkjZkkjdSjo6EqyOrAMrKwIZSAQQQQCKbQAUUUUAFFFFABRRRQAUUUUAFXNP1HUNJvbfUdKv7zTNQtJBLa3+n3U9le20q/dlt7q2eKeGQZOHjkVhng1TooA+0f
+hx/wUf8A+Cg/wgFunwu/bk/a48BWtsV8vTfC/wC0V8W9J0ZlT7sVxolt4tTSLuBeMQXVlNDwD5eQMffHw5/4OS/+C2Hwx8iPR/26fGviK0i2iSz+I3gD4N/Ez7VGuP3c+o+Ofh1rutruwN01rqttcnn9/wAtn8NqKAP6vvh7/wAHkX/BWvwesEXirw9+yX8V402rcTeM/hB4t0a/nUYDuk3w3+KPgWwgnYZKv/ZkkCscm2dfkr7l+H//AAfB/HTTvIHxU/YC+E3jDG0XL/D/AON3jD4cb+m9oI/Efgb4qeV3KpJLNjhTIfvV/C5RQB/pDfD/AP4Pdv2StS8j/haf7E/7RXg3dt+0/wDCv/G3w0+Jfkk43+R/wkdx8JvtG3naZPsu7AyEzx9seA/+Dwj/AII+eL/J/wCEgvf2nPhZ5u3f/wAJ58EbbUfs+7r53/CsfG3xG3bP4vs/n5/g31/lQ0UAf7GHgP8A4OTP+CJnxE8hNI/bt8E6LcTbQ1v48+Hfxs+HX2eQ9Y57zxx8NNA0z5Tw0sV9LbHqkzLzX2h4E/4Kp/8ABMz4meSngb/goH+xpr93Pt8vSoP2k/hFaa4d/Cb9A1DxbZ61FuPyr5tgmWBUfMCB/h/0UAf74vhD4j/Dz4g2323wF488GeN7PYJPtfhDxRofiW28s4w/n6NfXsWw5GG37TkYPNdnX+AfaXl3p9zDe2F1c2V5bOJbe7tJ5ba5gkGcSQzwsksTjJw6OrDJwa+mvAv7cP7anwv8n/hWn7X/AO1F8PPs20W//CDfH/4seEhAFxtEI0Dxbp/lBcDATbjHFAH+6tRX+Lt4F/4Lzf8ABYr4d+T/AGB/wUN/aP1D7Pt8v/hOvFtt8UN23p53/CzNN8Xfac/xfaPN3/x7q+zfAn/B17/wWx8H+SutftF+AfiXFDtAh8d/s+/BeDzEXACTXHgDwd4EvZeBhpXujcPyzzM5LEA/1vKK/wAwjwV/wemf8FONEMUPjL4G
+fsXeOLVAvmzx+BPjD4X1qYjhibzTvjdd6Om4c/J4eGGJI+XCj638F/8AB8T8WLLyR8RP+CeXw78TY2i4fwX+0N4l8D7v7zwxa58KfiFtxyVjeZ8/dMq53AA/0QKK/h38Gf8AB75+zRfLEfiH+wr8dPC7Njzx4M+KPgDx4sf97ym1zSPhwZsc43rb7u+3t9W+Dv8Ag84/4JTeIfKj8RfDb9s7wDMdqzS658Kvhfq+nxsQNzRT+Evjdr9/NEvTc+lwSnBxB0yAf1t0V/Ob4O/4Otf+CI/ijyhq37TXjTwDJLtAi8Y/s8/Heby3YgBJZ/BfgDxhaR4Jw0jXHkKMs0oUFq+qPCH/AAcDf8EZvG5iGjf8FBvgXZedjZ/wl8/iz4fAZ6eafHvhjw0IPfzjHt74oA/Yqivhnwh/wU9/4Jt+P/LHgv8A4KAfsW+JZ5doWy0n9p/4K3OpKzfdSXTF8ajUYJGyMRz2sbnstfUfhH4u/Cfx+sb+A/if8PPGyyjMTeEfGvhvxIsgPIMZ0bU70OCP7pNAHodFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRXnni74u/CfwAsj+PPif8PPBKxDMreLvGvhvw2sYHJMh1nU7IIAP7xFfLni//gp7/wAE2/AHmDxp/wAFAP2LfDU8W4NZat+0/wDBW21JmX7yRaY3jU6jPIuDmOC1kcd1oA+5qK/HXxf/AMHA3/BGbwQZRrP/AAUG+Bd75Od//CIT+LPiCDjr5R8BeGPEon9vJMm7tmvlfxj/AMHWv/BEfwv5o0n9prxp4+ki3Axe
+Dv2efjvD5jqSCkU/jTwB4PtJMkYWRbjyGGGWUqQ1AH9GVFfySeMf+Dzj/glN4e82Pw78Nv2zvH0w3LDLofwq+F+kafIwB2tLP4t+N2gX8MTdNyaXPKMjMHXHyl4z/wCD3z9mixWU/Dz9hX46eKGXPkDxn8UfAHgNZP7vmtoekfEcw54zsW429t3cA/uIor/O/wDGn/B8T8WL3zh8O/8Agnl8O/DOdwt38aftDeJfHG3rteaLQ/hT8Pd2eC0aTJjlRK2Nx+SPGv8Awemf8FONbMsPg34GfsXeB7Vw3lTyeBPjD4o1qEnhSLzUfjdaaO+0c/P4eOWAJ+XKkA/096K/yQ/Hf/B17/wWx8Yecui/tF+AfhpFNuBh8Cfs+/Befy0bIKQ3Hj/wd47vYuDhZUuhcJwyTK4DD4y8df8ABeb/AILFfETzv7f/AOChv7R+n/aN3mf8IL4ttvhft3dfJ/4VnpvhH7Nj+H7P5Wz+DbQB/tE1xni/4j/Dz4fW323x7488GeCLPYZPtfi/xRofhq28sZy/n6zfWUWwYOW37Rg5PFf4bnjr9uH9tT4oed/wsv8Aa/8A2oviH9p3C4/4Tn4//FjxaJw2dwmGv+LdQ80Nk5D7s5Oa+Zbu8u9QuZr2/urm9vLlzLcXd3PLc3M8h6yTTzM8srnAy7uzHHJoA/2+PHf/AAVT/wCCZnwz85PHP/BQP9jTQLuDd5mlT/tJ/CK71wbOH2aBp/i281qXaflbyrB8MQp+YgH4v8ef8HJn/BEz4eCZdX/bt8E61cRbgtv4D+HXxt+IhuJB0jhu/A/wz17TfmPCyzX0NsOrTKvNf459FAH+q948/wCDwj/gj54Q87/hH739pz4p+Vu2f8IH8EbbTvtG3p5P/CzvG3w527/4ftHkY/j2V8T/ABA/4Pdv2StN8/8A4VZ+xP8AtFeMtu77N/wsDxt8NPhp5xGdnn/8I5cfFn7Pu43GP7VtycB8c/5vNFAH90fxA/4Pg/jp
+qPnj4V/sBfCbwfncLZ/iB8bvGHxH2ddjTx+HPA3wr83sWSOWHPKiQfer4a+IX/B5F/wVr8YLcReFfD37JfwojfctvN4M+EHi3Wb+BTkI7zfEj4o+OrCedRgs/wDZkcDMMi2Rfkr+UGigD9yfiN/wcl/8FsPid58esft0+NfDtpLuEdn8OfAHwb+Gf2WNs/u4NR8DfDrQtbbbk7ZrrVbm5HH7/hcfA/xH/wCCj/8AwUH+L4uE+KP7cn7XHj21uS3mab4o/aK+LeraMqv96K30S58WvpFpA3OYLWyhh5J8vJOfi6igC5qGo6hq17cajqt/eanqF3IZbq/1C6nvb25lb70txdXLyzzSHAy8kjMccmqdFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRX23+yv/wAE2/28v22ru2h/Za/ZS+M/xf026uPsn/CYaH4RvNL+G1nc+YYvI1X4peJjonw40WTeHGzV/FNk2IpmxthlKAHxJRX9pX7Jf/Bln+2N8Qzpmu/tgftDfCf9nDQZ/JuLvwb8PLK9+OPxMjjXa1xpuozwXfg74c6JdSjMMOp6R4w8dW1u2Z3sLlUEEv8AUX+yD/wa6f8ABIz9lIaXrGt/BHU/2pfHmn+TK3i39p/W4/H2lPcrtknWL4WaVp/hv4RzWLzqGt4dd8Ea/qFtAiQPqtyWuJbgA/yw/wBm79jH9rL9sHxD/wAIx+y/+zr8YPjpqkdzHa38nw58C694h0XQ5JQpSTxP4mtrP/hGvCtph49194k1bS7KPzI/MuF8xN39O37IX/Bmf+318XP7K179rH4rfCb9krwxc+TLfeGdPnX46fF23T5ZJLeXRPB+q6V8M7QyxnyUu4vivqk1rMXebSJliEc/+mN4S8H+EvAPh7S/CPgXwt4c8FeE9Dtls9F8MeEtE0zw54e0i0Qkpa6Xouj2tnpun2ykkrBaW0MSkkhRk10d
+AH83X7HP/Bqz/wAEmf2VTpeu+Nfhf4i/a3+IFh5M7+I/2ktZh8ReFI7xdrTrZfCTw5ZeHPhtdaXK6jybHxpoXja7t4h5bapOXlkk/of8HeCvBvw78N6V4N+H/hLwz4F8IaFbLZ6J4U8HaDpXhnw3o1opJW10rQ9EtLHS9PtlJJWC0tYYgSSFGa6aigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigDxP4m/s1fs5fGpJ4/jJ8APgn8Wo7lSlxH8TfhV4F8eJcIRtKTr4q0HVVlUr8pWQMCOMYr86vih/wAEBP8AgjZ8XjcHxX/wT4+AekG6D+YfhhpfiD4JbN+cm3HwZ1/wEtqRnK/Zli2cbQMV+wNFAH8svxP/AODPj/gj948+0N4RsP2lvgm8pdoF+G/xsTWYLZjkoip8YPCPxTmlhQ4DLLcmZ0yPtCuRIPzn+KH/AAY9/B7UBcy/Bb9v74leESN72dj8UPgh4X+IokxkpBc6r4U8d/C7yd3CvdxaNPs5cWT/AHK/uyooA/zNfih/wZR/8FAvD/2if4S/tNfsnfEq0gDtHb+Krz4qfDLXbxRnYltZW/w+8faIs78ZS78S2kCjP+ksQA35z/E//g1o/wCC2Pw2M81n+yro/wATdMtywfVPhh8a/gzrQcLna0Gha5438N+LrgSAEqIPDkjLgCRY2ZVP+vFRQB/iPfEX/gkL/wAFS/hR57+OP+Ce37YGn2dru+06tpXwD+I3izQIAmctN4h8I6BruhxoQCVd9QCuAShYAmvhvxl8OPiH8Ob3+zfiF4C8aeBNR3tH/Z/jLwtrnhe98xM7k+y6
+3Y2M+9cHcvl7lwcgYr/fFqhqelaZrVjPpms6bYatpt0nl3Wn6nZ29/Y3Kddk9pdRywTJn+GSNh7UAf4C1Ff7lfxF/wCCcn/BPv4u+e/xQ/Yd/ZH8e3Nxu8zUPFX7Onwj1jVlZ87pYNYvPCMuqWs5yf39teQzDJxIMnPwZ8Rf+Db3/gij8TRO+t/sIeAdBuZtzJc/Drxv8X/hgbaRs4kgsvh98Q/Dml/ITlYJ7Ca14Aa3ZQFoA/xx6K/1RviL/wAGc3/BI3xn9ofwrqP7Vfwjkk3Nbp4G+Mnh/WbS3c5KK0XxP+HPxCupoFOA6NfJM6ZC3MbkSD4N+Iv/AAY+fAzUfPb4S/t+fFjwdncbaL4i/BLwh8Ssd0jnn8NeOPhRuz91po7dcZ3iFsbCAf51dFf2w/EX/gyO/bK0vzz8Jf2yv2ZvG4Tf9mHxD8OfFL4XvMB9zzR4c0L4urbs46hXnVTxvYc18GfEX/g0Z/4LNeCftH/CNfDX4H/F/wAnd5f/AArr49eD9M+17c4Nv/wtpfhdt34yv2r7MeRvCnIAB/MjRX6+fEX/AIIFf8Fkfhd5/wDwkv8AwT2/aC1P7Nu8z/hXWiaL8X923OfI/wCFS6542+1Zx8v2bzt/GzdkZ+DfiJ+x/wDta/CHz/8AhbP7Ln7RXwv+zFhc/wDCxPgl8S/BP2crncJ/+El8M6Z5RXB3CTbjBz0oA+daKVlZGZHUqykqysCrKynBVgcEEEEEEAgjBpKACiiigAooooAKKKKACiiigAooooAKKKKACgEg5BwRyCOoPrRRQB6v4U+PPxy8CeX/AMIP8Z/iv4N8kKIv+EU+Ivi/w75QX7oj/sjWLPYFwNu3GMcYr6W8Kf8ABUf/AIKXeBvLXwj/AMFB/wBtfQIItu2ysP2ovjZHpp242iTS28bPp0yrjAWa1dQOAME18JUUAfr/AOGP+C/P/BZPwiIxpX/BQn4/3flY2/8ACT6voPjYnb08w+M9B18zdOfO
+L7v4s5NfRHhn/g6Q/wCC4nhvZHJ+2XbeJLaPGLbxN+z7+zTf5x1D31r8IbDVpNw4YvqLHupUkk/z8UUAf1HeGf8Ag7//AOCxOg+X/auvfs3+NdgUN/wk3wNgtPNx1Mn/AAhvifwlgt/F5Xlj+6Fr6F8M/wDB6x/wUqsPLj8Vfs7fsS+JIkwHl0zwb8cPDd9Mo+8ZJn+PGuWQkPOGh02KMcfujg5/jsooA/uY8M/8HwP7QVqY/wDhMf2Cfg3rwGPNHhn4yeNvCZf18s6p4R8aCLPONwlx3zjn6D8Of8HyPhadY18Xf8E2df0xhgSzeHP2q9O1xW9XjttT/Z+8PGPPURNdyY6GZutf58lFAH+kf4f/AOD3T9j+58v/AISr9i79pPRs483/AIR/xZ8L/E2z18v+0dU8JeZjtu8rPfFe5eH/APg9M/4Jcal5ceufBL9uLw1MceZLL8NfglqunoT12z6d+0M984U9T/ZaZGCATkD/AC/qKAP9XTw9/wAHe/8AwRw1ry/7S8WftDeEd+N3/CQ/AvVLnyveT/hFNb8T5x38rzD6A17t4d/4Ol/+CHOvCNbj9sfUPDdxIBtt/EX7O/7TUBUnqsl3pvwf1TTYyO7SXyp6Ma/yFaKAP9mHw9/wcK/8EX/E4Q6b/wAFAvgxbeZgr/wkNp498Ikbum8eK/B2imP3Emwr/FivaND/AOCzf/BJjxCUFh/wUf8A2MLfzMbf7c/aF+GnhgDPTefEviDSRF7+YUx3xX+JtRQB/uWaH/wUb/4J6+Jtn/CN/t4fsZ+IfMx5f9h/tQfBHVvM3dNn2Dxxcb89tuc9q9i0X9pP9nTxGEPh74+/BXXhJjyzovxT8DaoH3fd2Gx12fdntjOe1f4ONFAH+/FpevaHrcfm6LrWk6vFjPmaXqNnfx49d9pNKuORznHNa1f4BcUssEiTQSSQyxsGjlido5EYdGR0IZWHYqQa9B0b4v8Axa8ObP8AhHvij8RdC8v/AFf9
+jeNvEul7MdNn2HU4Nv8AwHFAH+9nRX+FFo37a/7ZXh3b/wAI/wDtbftN6FswE/sb49fFTTNgHQL9i8VwbcdsYx2r1bRv+Cp3/BTjw9tGif8ABRX9ufS40IIgs/2s/jzDanHQPar49+zSKOyyRMvtQB/uD0V/in6N/wAFuP8AgrroQQWX/BRj9rafZ0/tn4x+K/ERP++fEF7qZk/4Hur0vS/+DhD/AILPaRj7J/wUD+Ncu3GP7Uh8D6309f7a8I6hu992c980Af7MtFf48Gl/8HMX/BcPR9n2T9vDxLN5eNv9qfBn9mzXM4/v/wBtfBrUPM9/M3Z75r0TTP8Ag6m/4LjWAUXX7XWga1jGTqf7N37MsRbHXd/Y/wAItJAz32hfbFAH+u3RX+TBp/8Awdrf8FprPH2n4z/CPVsAZ/tD9n/4Zx7sdz/ZWk6Zye+3aPQCu40//g8B/wCCxFkQbnWv2bNXxjI1D4HJEG9z/ZXivTDz32lR6AUAf6s9Ff5aGn/8Hl3/AAVpstv2nwV+xnq20c/2h8HviPFv92/sr426Zg/7m0e1dzp3/B6r/wAFQ7fauo/AL9g/UUXG54/ht8frG4cd8uv7S08APoVtVA9D2AP9Paiv80HT/wDg9n/b9i2/2r+yl+x7e4Pz/wBn2nxp0zcP9n7T8VdW2n3O/wCldpZ/8Huv7XKY/tD9ir9nG6/vfY/GfxNsc+uPPvNRx+O7HvQB/pFUV/nPWf8AwfAftCJj+0P2Cvg1df3vsfxi8b2Ofp5/hPUcfjurq7P/AIPjPiYmP7Q/4J0eBbrpu+x/tKeILHPrjz/gxqO3PbO7HvQB/obUV/n1W/8AwfK+IV/4+/8Agmdo0/r9n/a8vrX/ANG/s1XmP1rctv8Ag+ajOBd/8EwXX1e2/bQV8/SKX9lJMf8Af00Af380V/BDb/8AB8p4XYf6X/wTS16E9xb/ALWun3Q/OT9nG0z+Qrct/wDg+M+GbAfav+CdHjqE8ZFv
++0roFyB64MnwXtM+2QM+1AH94VFfwsQf8HwvwQbH2r/gn78VYf73kfHXwjc4+nmfD213fjtrah/4Pfv2bmA8/wDYS+N8Z7iH4reA5wPoX0G3z+IFAH9xtFfxAx/8HvX7LZx5v7Dvx+T18v4i/DuX8t1rDn9Kux/8Hu37JJ/137FH7Raf9c/Gvw0l/wDQrmGgD+3Giv4mf+I3P9jvv+xh+0t/4VPwu/8AlwKP+I3P9jv/AKMw/aW/8Kn4Xf8Ay4oA/tmor+Jn/iNz/Y7/AOjMP2lv/Cp+F3/y4o/4jc/2O/8AozD9pb/wqfhd/wDLigD+2aiv4mf+I3P9jv8A6Mw/aW/8Kn4Xf/Lij/iNz/Y77fsYftLf+FT8Lv8A5cGgD+2aiv4jpP8Ag92/ZJH+p/Yo/aLf/rp41+GkX/oNzNVKT/g96/ZbGfK/Yd+Pz+nmfEX4dxfnttZsfrQB/b9RX8OU3/B79+zcoPkfsJfG+Q9hN8VvAcAP1KaDcY/AGsWf/g+F+CC5+y/8E/firN/d8/46+EbbP18v4e3W38N1AH909Ffwe3H/AAfGfDNQfsv/AATo8dTHnAuP2ldAtgfTJj+C93j3wDj3rDuP+D5TwuoP2T/gmlr0x7C4/a10+1H4mP8AZxu8fkaAP73qK/gGuf8Ag+ajGRaf8EwXb0e5/bQVMfWKL9lJ8/8Af0Vh3H/B8r4hb/j0/wCCZ2jQen2j9ry+uv8A0V+zVZ5/SgD/AEFaK/zybz/g+M+Jj5/s/wD4J0eBbXrt+2ftKeIL7HpnyPgxp27HfG3PtXKXn/B8B+0I+f7P/YK+DVr/AHftnxi8b32Pr5HhPTs/htoA/wBGGiv83W8/4Pdf2uXz/Z/7FX7ONr/d+2eM/ibfY9M+Readn8NufauL1D/g9n/b9l3f2V+yl+x7ZZPyf2hafGnU9o/2vs3xV0ncfcbPpQB/pfUV/mE6j/weq/8ABUO43Lp3wC/YP05GzteX4bfH6+uEHbDt
++0tBAT6lrVgfQd+G1D/g8u/4K03u77N4K/Yz0ncOP7P+D3xHl2e6/wBq/G3U8n/f3D2oA/1L6K/ymNQ/4PAf+CxF6SbbWv2bNIznA0/4HJKF9x/avivUzx23Fh6g1w+of8Ha3/Baa8z9m+M/wj0nIOP7P/Z/+Gcm3Pcf2rpOp8jtu3D1BoA/1n6K/wAiTU/+Dqb/AILjX4YWv7XWgaLnODpn7N37MspXPTb/AGx8ItWBx23BvfNec6p/wcwf8FwtY3fa/wBvDxPDuzn+y/g3+zdofX+7/Yvwb0/b7bcY7YoA/wBiGiv8ZfVP+Dg3/gs5q+77X/wUE+N0O8kn+yx4L0TGf7v9i+E9P2D0CbQO2K8z1j/gtn/wVy1zd9t/4KM/tdQb85/sf40+MPD2M/3f7A1DTNnts247YwKAP9rSiv8AD31j/gqZ/wAFNvEG/wDtv/gop+3PqiPnMV7+1n8ep7cA9VW2fx8YEX/ZSNV9q8q1j9tj9svxDu/t/wDa3/ac1zfnf/bHx6+Kmp789d323xXPuz3znNAH+67WVqmvaHocfna1rOlaREQSJdU1Gz0+MgdTvu5oVwO5ziv8GLWfjD8XPERc+IPil8RtdMhJkOs+N/E2plyepf7bqc+4nvuzmvPZZZZ5HmnkkmlkYtJLK7SSOx6s7uSzMe5Yk0Af7xWtftJ/s6eHA58Q/H34K6CI8+Yda+KfgbSwm372832uwbcd84x3rx3XP+Cjf/BPXwzv/wCEk/bw/Yz8PeXnzP7c/ag+COk+Xt67/t/ji32Y77sY71/hp0UAf7ZOuf8ABZv/AIJMeHi4v/8Ago/+xhceXnd/Yf7Qvw08Tg467D4a8QasJfbyy+e2a8X8Q/8ABwr/AMEX/DAc6l/wUC+DFz5eS3/CPWnj3xcTt67B4U8Ha0ZPYR7y38Oa/wAZ6igD/Xq8Rf8AB0v/AMEOdBEi2/7Y+oeJLiMHdb+Hf2d/2mpyxHRY7vUvg/pemyE9mjvm
+T1YV4T4h/wCDvf8A4I4aL5n9m+LP2hvF2zO3/hHvgXqlt5vvH/wlet+GMZ7eb5Z9QK/yi6KAP9QHxB/wemf8EuNN8yPQ/gl+3F4lmGfLli+GvwS0rT3I6bp9R/aGS+QMeh/st8DJIBwD4b4g/wCD3T9j+28z/hFf2Lv2k9Zxnyv+Eg8WfC/wzv8ATzP7O1Txb5ee+3zcds1/m4UUAf6DfiT/AIPkvC8AdfCP/BNnX9TY5Ec3iT9qvTtDCejvbaZ+z94iMmOMxLdxZ7TDHPz14n/4PgP2hrvzP+EN/YL+DOg53eV/wk/xh8b+Ldmfu+Z/ZXhXwV5uP4tvk7u22v4aaKAP7DfE/wDweq/8FMdREkXhX9nz9iTwzC4IWa+8EfG/xHqMP90xzt8etJ08sO/naVKrdlXpXzz4m/4O+f8Agsbr3mf2V4o/Z28F787f+EZ+BenXXlZ6bP8AhMdf8WZ29vN8z/a3V/LxRQB/QH4m/wCDoz/guL4l3xp+2fF4dtX3ZtfDP7P/AOzRpu3PTZfzfB+81dNoyF26kOuTlgCPnrxP/wAF+P8Agsl4uEg1X/goT+0BaeaCG/4RjWNC8EkZ6+WfBmg6CYT6GLYV/hxX5A0UAfdviv8A4Kj/APBS7xz5i+Lv+Cg/7a+vwS7t1lf/ALUXxsk00bs7hHpa+Nk06FWzgrDaopHBGAK+afFfx5+OXjvzP+E4+M/xX8ZecGEv/CV/EXxf4i80NncJP7X1i83hsnduznJzmvKKKAAkkkk5J5JPUn1NFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUV7t8Cf2Xf2kv2ofEX/CJfs4/AX4v/AB08RLLFDcaX8Kfh54q8dTaf52Cs2ryeHdL1C30azRD5s9/qs1nZW0Aa4uLiKFHkX+ib9lf/AINDP+Cq/wAd/wCz
+dX+Mln8I/wBkfwpdeVPcH4p+Nbbxj4+NhLgrNp3gX4VL4utVvgrB30rxb4s8GXcIDJc+ROBCQD+WOrNlZXmpXlrp+nWlzf399cQ2llY2UEt1eXl1cSLFBbWttAkk1xcTSsscMMSPJJIyoisxAP8Apxfsrf8ABmR/wT6+Ff8AZ2r/ALUPxd+NX7VniC28pr3QbG6t/gR8Lr8jDzRy6F4Nvtb+JS5YeWktr8XrMeSW3W4lZXi/pF/Zk/4J5/sOfsZ2lvb/ALL/AOyr8EfgzewW/wBlbxP4T8CaMPHt9BsMXl6z8RtTg1Dx7ro8ssm7WvEl+215Bu/ePuAP8l79lf8A4IB/8Fbv2vP7N1D4c/sb/EjwZ4Q1HypV8f8Ax1htPgZ4UXT5seXq1kPiXP4f8R+JtNfcpjn8GeHvEskqkyQwyRpI6f0qfso/8GSGvXD6brX7b37ZGm6XB+6fU/h1+y/4Xn1W8lR9ryRwfFz4o6dp1rYzxKDC6D4OavA8jGSO7McS+f8A6CtFAH4t/sl/8G9//BJL9jr+zNT8BfskeCfiP420wxSr8Rf2gzN8cPFMl9BjydVs7DxyNQ8EeGtThKh4bvwX4P8ADTRSjzo1SUl6/Zyzs7TT7S2sLC1trGxsreG1s7KzgitrS0tbeNYoLa2t4VSGC3giRY4YYkSOONVRFVQALFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAeX+OPgh8Fvicsi/En4Q/C/wCISzAiVfHHgDwp4sWUHgiQ
+a9pOoBwRwQ2Qe9fGvjr/AIJAf8ErfiR5zeLf+Cd37G9zc3G43Go6P+z18MvCmsTs3V5ta8J+HdD1aV+eJHvWdf4WFfo1RQB+DPjr/g2T/wCCIvj0zS3n7Eej+G76XcUvvAvxf+Pvg0W5bqYdK0P4pWvh4/7Kz6PMiY+RFFfGnjr/AIM5f+CRXizzj4e1L9rD4YNJuMQ8FfGbw3qUduTkqFX4j/DPx9JJGpwCsszOyjHmqx31/VjRQB/EF46/4Mhv2WdQ87/hWn7cPx/8Jbs/Z/8AhOvh58OviJ5XXb539gT/AAv+0Y4z5f2bdg4254+M/HX/AAY8/GSw84/DP/goN8MvFQG4wJ46+AfinwBu6lEmk0D4lfEvbzhWkSJ88sIh9yv9EmigD/Lr8df8GYn/AAVP8N+dN4R+KP7G3xGtl3GCDSfib8TvD2sShc4E1p4q+DGk6TA78BQmv3CZPzyIBmvjTx1/waxf8FuvBfnS2X7J2iePbKDcXvfAvx7+AV7uVejQ6Xr/AMSPDuv3G/8AhSDSJJf70a1/rv0UAf4qnjr/AIIhf8Fdvh15x8Q/8E6/2rr1bfd5r+CfhN4h+JiAJ95kf4b2/ixJUABPmRM6bQWDY5r408dfsl/tVfC/zv8AhZf7M37QXw7+zFhcf8J18GfiN4S8gr94Tf2/4b0/yiv8W/bjviv93aigD/AKkjkhkeKaN4pY2ZJIpEZJI3UkMjowDIykEMrAEEEEA0yv98DxZ8Mfht49RovHXw98D+NI2XY0fizwnoPiNGTG3ayaxp94pXbxtIIxxjFfLPjH/gmb/wAE4/iD5reOP2Bv2MfFU027fea5+zF8FtQ1BWbO6SLUp/BTX8Epyf3sFzHLyfn5NAH+HLRX+zl4w/4N/v8AgjR4583+2v8Agnx8B7Lzs7/+EPs/E/w8xnOfK/4QDxJ4Z8jrx5Hl44xjAr5V8Yf8Gpn/AARG8UeadK/Zi8ZeAZZdxMvg/wDaG+PMux26
+vFB4z+IPi+0jwTuWNLYQr91YggC0Af5G9Ff6j/jD/gzJ/wCCUfiHzZPD3xG/bN8BTNkwR6D8V/hjqthGxztEsHi74I+Ir2aId0XU4ZDgfvhzn5X8Yf8ABkJ+y/emX/hAP25Pj34ZBLeR/wAJh8Nvh744MY/h806LffD3ziONxQQbuwXPAB/nEUV/eb4x/wCDHLx7a+a/w/8A+CjPhDXc7mgt/GP7M+s+E9ufuxS3mi/GvxpvxwGnSxj3feFuudo+V/GH/BlD/wAFFNO81/A37TH7GniuKPJSPxDr3xp8G3s6joscNn8HPF9msp4ws2oxxdczDAyAfxtUV/T34w/4ND/+Cyfhrzf7F8D/AAC+IXl7tn/CH/Hfw/Zeftzjyv8AhPtO8D434+Xz/JxkbtvOPlbxh/wbT/8ABbrwT5ran+wn4s1WGPJWbwf8VPgF4485BnDxW3hH4razffMBkRy2kcw4DRKeKAPwtor9QPE3/BFH/grh4TMg1T/gnL+19deVnd/wjXwQ8a+NAcdfLPg7S9dE3t5Jfd/Dmvn3xN/wT4/b48FCQ+Mv2IP2vvCQiz5p8Tfs1fGfQRFjr5h1XwXabMd92Md6APkGiu88S/Cz4neDPM/4TD4cePPCnlZ83/hJfCHiHQvK2/e8z+1NOtdmO+7GO9cHQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFfZn7B/hv8Atn9oTw1rMn7G/wAUP27rfwWh8UL+zt8NIvFMkXizUrK5tl0mTx8PBvgT4g+ILvwDZXji41zQrLSLEeJWS10S81qx0y8vkuPC4nzynwzw9nPEFTCyx0coy7E45YGGOyjK6mNqUKcpUsHTzHP8xyjI8DUxVXkoQxWbZpl+X0J1FUxeLoUYzqR1o0nWq06Sly+0nGHM41JqKbs5OFKFSrJRV2404Tm7WjFuyKE37EPx60T9ky5/bW8feF7j
+4c/APVPF2g/D34X+IfF0M2m6n8avHGuxapqH9m/DPRJljv8AWdA0XQfD/iLW9c8bSpbeFYU0e50nTNS1bXxLpcH9cn/BLf8A4NbPgz46+AXgT46ft+638Sbvx38T9A0zxhofwN8Ea7B4I0jwH4W1yCLUdDtvHesx6de+J9X8Z3+lS2d/qWmaXf8Ahm08KyXs+g3sOr6laSXtv+ev/BYn/gpl8Yv2ovCX7JHwj/a3/wCCavxV/Yq0L4JfG/Q/G+p6T4vTxbB4X8eeA4tJg0m98KeF9B8T/Cz4bpp/keH47q2tbbT9T1m0FqslvG1kEaOL/Rh8Pa3oniXQND8R+GtQstW8OeINH0zW/D+q6bIkunalomq2UF/pWoWEsf7uWyvLCe3ubWRPkeCSNl+Uiv8ACP6dn0yvpVcG+C3hTWo08L4O594t8X+JmPxuM4A4kyHih5JwfwZieH8v4T4byjxA4bzHOMBjsZnWHzWpxJn2cZbiMux063sMvwlDLcDDHZcfpvDHD2R4jMscm5ZhSwGHwcYxxVKrQ9riMTGrOvWqYSrCnOEabgqNKnNTilecnOThM/kR/bj/AODT/wDZ01TwLrfjv9g/X/F/g/4reG4Trek/BX4reLrvxZ8JPiRFpqG5k8Fx+JWXSviH4K1bXghtbTxDdeMtY00TtDZXEGgw3MviPS/wK/YYi/4Jr+LfC/ifXv29/wDgmXr/AIP+FXgL4g6N8Jfif+0r+zf8Z/2nb6z+Bfi3X1ntdAu/jn8HfE3xe8deIdA0HXLyz1aC18Y6NqL2dxrfh/WNA0jwXqmppHpo/wBPa4uILWCa6upora2topLi4uLiRIYIIIUaSaaaaRljiiijVnkkdlREVmZgoJr/AD0P2U/FH/BUDTPj1/wU1+MP/BPP/gnJ4M/aP/ZX/b6+Ovj69W6/aD+H+rN8JfF3wusfiL8YrzQIvBr6h8UPg94a8T+HvEej/EnVYNdW2u/Euho0Vrpdq9s1pcx3
+H5n9D76T3jT4w+EnjRwx4o+KGdY6XAj8Psbwdx5n3jhmHglnGCnxJxHVy/iLIK/iZTznK8DmGby4cwWa8ScKR4wwfE+HWYZFi8Dj8DmGWY1YXD9uf5Ll2X4/Lq2CwVOP1r61HEYWllscypyVGip0qqwTpznCn7aVOjXeHlQfLVjKMoVI80vrL9pj/g1W+AXxf+Elr8dP+CX/AO03e+JLTxF4dfxX4K8HfErxF4a8ffDj4j2U8Tz2Np4H+L3hLT9En8NrcLG1rZv4l0zxlbTam32fVtd0G3juLi2/jE+NPwR+Lf7OnxK8T/B745fD7xP8MPiZ4NvmsPEXg/xZp0mnapZSY3wXUJJe11PSdQgKXmka5pVze6NrWnywalpN/e2FxBcyftz8C/8Agpj/AMFK/wDgiN8UPir8L1/Z1g+DXgT4oape+M9J/ZW/aI8NfFTUfhn4J1K7vY1m8U/BjVL7xjoniqbRyIZtA/tS18b+KNL1vTILGPxLqHiTxBolnrsP6Ff8FAPg5/wXD/4K1fDX4fal8Vv+CUv7NsepadYaV4h+Fv7QHwb+IPgqy8cJ4N12OLWY9L0zxJqX7VnijQPE3gPxNZ3cepQafqularYwS3S614fl06+uJ7u4/v7wf8R/pCeAHF2XZN4/eMnhD4n/AEc+M5Ot4c+MXGvih4dcF+IOEwf1ahiKkK8MTm+HyvjunlNbF0sHn7y7Nc5xUHOGa5RneMwssNkdX5XMMJlOa4edTKsvx+CzfD6YzL8NgsZicJKXM0mmqbnhXNRcqXPTpxdnTqUoyvVX8dNFd78U/hd8QPgn8R/G3wj+KvhXU/BHxI+HPiXVfCHjTwnrCwjUNC8QaLdSWeoWM0ltNcWd1GssZktdQ0+6u9N1K0eC/wBNvLuxube5l4Kv9PsHjMJmOEwuYZfisNjsBjsNQxmCx2Dr0sVhMZhMVSjXw2KwuJoSnRxGGxFGcK1CvRnOlVpTjUpylCSb+LlGUJShOLjK
+LcZRknGUZRdnGSdmmmmmmk01ZhRRRXSIKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKACTgDJPAA6k+lfpD+zN/wSA/4Kb/tfjT7n4A/sU/HfxXoGq+UdP8b694Sk+Gvw3u0mwRJa/En4nz+DvAl0iIVklFt4gmeONkdkAkj3gH5vUV/Z7+zL/wAGV/7bnj/+z9V/ak/aN+B/7OujXPlS3Ph/wPY698dviFaIMNNaX1nbyfD7wFaXDjMUV1pnj/xHBESZnhlCLBN/Q5+zN/waDf8ABKD4KDT9T+L9n8aP2rvEdv5U90Pih8QrrwZ4JN9FgrJp/hH4QweBdQWx3qJG0zxJ4s8VwTEvFdPcWzm3AB/lcaPo2seIdUsdD0DStS1zWtUuY7PTNI0exutT1TUbuU4itbHT7KKe7u7mU8RwW8MkrnhVJr9h/wBmb/g31/4K9/tVDTr7wJ+xZ8TfBHhjUPKlHjL47ppvwH0KGxmwY9Ugs/ije+G/FOu6fIrJJDL4W8Oa9JcQsJ7aGaENIP8AXK/Z8/Y0/ZL/AGUNLXSP2af2bPgl8DLb7MLW5uPhl8NfCfhLWNTiAALa5r+laXb67r9xIFUTXmt6lf3c21fOnfauPpWgD/O+/Zi/4Mj/AIq6q2m6v+2N+2Z4I8FWo8qbUfA37Ovg3WPHuqXEUmGezX4i/ENfA2m6Jewqdss0Xw78V2ZmDJC08IW4k/pC/ZX/AODY7/gjz+y3/Z2on9m0/tEeL9O8o/8ACX/tQ+Ibj4r/AGtotrZu/h6LXQPg1LvkXzCx+GolH+r83ysof3/ooA5fwb4I8F/Drw7p3g/4feEPC/gTwlo8
+XkaT4X8G6BpPhjw7pcHH7nTtE0S0sdMsouB+7trWJOBxXUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABXnHib4OfCLxoZD4x+Ffw48WGbPnHxN4H8Ma6Zd33vMOqaXdb8992c969HooA+N/E3/BOn/gn140Eg8Y/sKfsceK/NyZf+Ek/Zj+CmuGQnqXOp+CLose+Sc55zmvnzxJ/wRE/4JE+K/M/tT/gnR+yZa+Znd/wjfwg8MeDcZ6+X/wiFpoXle3lbMdsV+pdFAH4ZeJf+Dav/giH4sMh1P8AYN8HWbS5JPhr4qftA+DQhPeNPCXxa0SKPB5CogTsVIyK+ffEv/Bpl/wRT10SDS/gT8UfBe/O0+Gv2g/i1dGHPTy/+Ex8R+LAdvbzhL75r+k+igD+S7xL/wAGZn/BJvXPMOk+Pv20PBzNkoPD/wAXvhjeRxnqBt8WfA3xLI6DoQ0u8rkCQH5h8+eJv+DJH9iO6Mn/AAh37YH7VGgg58oeJtM+Eniwp6eYdL8G+CxLjvtEWe2K/tUooA/g71v/AIMcvhtcb/8AhG/+CjPjjSs58v8Atv8AZo0HxBt9N/2D41eGd+O+3y8+1eP63/wY3eNIN/8Awjf/AAUl8L6rjPljW/2VtW0Dd6BzYftAeJdnuVD49DX+hJRQB/m+a3/wZEftYwb/APhHP22v
+2eNVxny/7b8C/Enw/u9N/wBgj8S7M99vmY7Zrx/W/wDgyk/4KWWu9vD37Rv7D2sIuSq6n40+PGhTyAdAqQfs/a5CHPYPcqmesgHNf6cdFAH+V5rf/BnF/wAFdNJ3/YNY/ZI8Tbc7f7E+M/iy38zHTZ/wknwq8P4z28zZ74ryDW/+DSz/AILUaVv+wfBP4T+Jtudv9iftA/C+38zH9z/hJNb8P4z28zZ74r/WiooA/wAf3W/+DX7/AILlaHvaT9iG41OBc4n0T9oD9lzVfMx12Wtt8a21D6B7NCegBOQPH9b/AODev/gs/wCH9/2//gn78aLjZnd/Ylz4D8TZx12f8I54x1XzPby92e2a/wBmKigD/E+1v/gi3/wVs8P7/t//AATj/bHuNmd39ifAT4g+Js467P8AhG9F1bzPby92e2a8f1v/AIJq/wDBRnwzv/4SP9gP9tbQPLzvOtfsr/HTSwmOpY33gSAAD1JxX+5DRQB/hH3/AOyH+1jpRYap+y/+0RppTO8X/wAFPiVZldvXcLjwzHtx3zjHeuKv/gZ8bNK3f2p8Hvinpu3732/4feLbPb/vfaNIjx+Nf70tFAH+BJqHhfxNpIY6p4d13TQgyx1DSNQswoHUt9ot48Ae+Kwq/wB/isa/8OeHtV3f2poOjalu5b7fpdjebj6t9ogkz+OaAP8AAgor/epv/gl8GNV3f2p8IvhhqW7732/wD4UvN3+99o0mTP41xV/+yR+ylqu7+1P2ZP2e9S3Elvt/wX+HF5uJ6lvtHhuTJPfPWgD/AAi6K/3Pr/8A4J+/sGaru/tT9iX9kXUt33vt/wCzb8Grzd/vfaPBkmfxrir/AP4Jaf8ABMjVd39p/wDBOj9hLUC2ctefsjfAC5fJ6kPL8PncN33BgwPIOaAP8Paiv9tK/wD+COH/AASd1Ld9o/4JvfsTx7uv2D9mz4UaV/3z/Zfhez2/8BxXB6z/AMEO/wDgjvJbXV7qv/BPT9laws7W
+Ce6vLqH4d6Vodva20EbS3FxNNp8ljHbwwRI8kkrMiRRqzllUEgA/xeNJ06bWNU03SbZo0uNU1Cz06B5iywpNe3EdtE0rIruI1eVS5VHYKCVVjgH/AGOf2F/2GfgL/wAE/fgF4S+A/wACfCem6RaaVpmmv438ZGyt18XfFHxnFaJHrHjfxtrCp9r1TVNTvGuZbO1llOm+HtOlg0HQLTTtFsbOyh/zsk/YBvv2+/An/BTr/gov+xp8J7H4ffCz9nX9oHRLj9nH4E/D/SmGm6p8KvD0+rax4y06z0mYy3d34j8D/Cxvht491S2tZje+I9T1PxJHYWUl9d2Onzf3o/8ABL7/AIKo/s9/8FKvgb4T8XeDfF/hbQ/jrYeH9Nj+M/wJl1WK18XeB/F8NpGmt3OkaLqMqarr3gDUL1J7zwt4s0+O+sLjTZYrDU7mz8RWGsaVYf4KftieKeJOPeEeGss8OM1zPPOBvCbjniDh3x3yzIqtatguH+Mcz4d4I4h8P8RxXg8PeX9nxyvMs9w+WZtiYPKcNnc8wyqWIhm9ONBfqPh9Qo4XEVp4ynClicfhqVXLJ1UlKth4VsRSxaoSf2+eFJzpxftJU1GfK6ep9p/tJfs6fCX9rL4JfEL9n743+FrPxb8OPiT4fvdC1qwuYoDeafLPE407xF4fvJoZm0fxR4dvvI1jw5rdsgutK1a0tbyA7oyrf5+nwg/4LWft1f8ABFH4v/GD/gn742Twd+1r8Hv2bvid4j+Gfg+z+Id5rWg+K9C8JeFtSuLLQYPAfjfSrnU59D8M6zoH9m6jZeFPFOi+NLbwiklvo2gf2TY2k9ncf3jftlftvfs5/sI/B3xP8Y/2hPiJ4f8ACun6Nomqah4c8IS6vpkXjr4k6zZWsktl4R+H3hq5uodQ8Ra/q12sVlCtrCbDTRM2pa3eabo9pfahbfzLf8Eyv+CIPwj/AG/NN+IH/BTf/gpV4O1bxz4p/bS8feKPjt8MPgZY+OvF
+3hjw34N+HXj3XdQ8R+G9a8Sa14J1Twv4j1u81zT76yl8I6Nb6vZaJpPgW30OXUrK91LWLjTPD38T/Qs4l8N+APBbxlz76V3COO4w+jTm+Z8M4Hg/hOrlMsbmfEXjHz4z2uL8NK9fMsjll2aZZwlh8wjxfnWWZ5k9GlgZ5NgcyzGVarl+BxH0fEdHGYrMcupZFXjh85pwrSxFdT5YUcv920cYlCqpwnXcHQpTp1G5KpKELKcl4z+zX/wW4/aZ/wCC1X7YnwT/AGDn+GngX9nT9mr4oah4r1b9oew8KeINY8WeP/iN8JfA/hHW/GfiH4XXPjjUrbQk0Twr8Q4tDh8E+Kx4V8NaX4k1HRtfvbaPxBp+lyajbXP9u+l6Xpuiabp2i6Np9jpGj6RY2ml6TpWmWkFhpumabYW8dpY6fp9jaxxW1nY2VrFFbWlpbRRwW8EUcMMaRoqj8BviL/wQx+AP7N3xH+G/7aH/AATN8Ex/Av8Aac/Z21G/8V6X8NX8V+MfEHwt/aF8MyeHtV0Hxh8HvEkfjDX/ABFd+BdX8f8AhTUtT8M6J478PyfZNC1TUYtV1nw7q84i1LTf0P8A2X/+CnX7Dn7W3w+0jx38LP2i/hdbX1zosWqeJ/hx408a+GvB3xT+Hd2kQ/tfRfHfgPXtUs9d0S70O9S50661H7LceHr+W0lvND1jVdLe3vpvzD6VGJ8L/FbBcGcVfRJ8Os+4Z8EuEsijk/FXBsMkx9fO+D/EjNs2zjEV8641xVDMuJ/rr4w4fweS4XhviDFZ/joY3C8MY3Jqf1TE5LicKu3I443AyxFDPsZSr5lXq+0oYh1IqniMHCnTiqWGi4UeX6vVlUlWpRpR5ZVo1PeVRSPI/wDgs/8AsgfDX9sL/gnj+0l4c8aeG9E1Dxj8MvhT4++L/wAH/Fd9aQnWPBfxC+Hvhm+8WafNo+r7Dd6XZ+Jo9Ebwr4mSBmgvtB1S6juba4eG28r8Uv8Ag1L/AOCjuqfG
+H4R+Mv2Aviprh1Dxj+z/AKKvjb4GahqF20upav8ABa+1aOw8Q+Di07NLOvwx8TarpR0YmWV08L+L7HRbS2tdL8IRbvpj/gtf/wAFmPgL4Q+APjr9jP8AZB+Jeh/H/wDbD/ac0qL4J+FdD+DF/ovxE0nwNZ/Eu/tPCWuv4j8Q6ReXmh2/i/XfD+q6r4e8HeF9Nu7/AMT2/iPVdJ1jUdO03S4Yru5/nf8Ail+y146/4Nx/2uf+CWn7U+tSav4ztfEfw81aT9pGy8L3EN2mpeNzqmsaV8ePAPhZ7y8tNFvLfRvhX8UfB2k+BX1K50yw1/xN4Tk8USPpzyTTaf8A1X9HHwWzTjv6GnGH0fvFWjjck468XOKOJOP/AKIvCHEdDEYLiDE8SeG/BNXiDibOsnweZqg8p4Y4rpU6fC6xk+TD5hVx+cY7C4apKDxz8POMyhheIcPmuBcamFwFCjhc/wARRalSVHGYmNKjSqSg2qleg26/KruChTjKS+E/QL/g7B/4Jsrt8L/8FKPhVoABB8P/AAw/agttOtgMhjBonwr+Kt95ajkMbP4X+Ir2aQlt3w2t7eDC6jcV/DtX98v7Uv8AwcufsAftVfs4fG39nPxn+yp+2qPDnxn+GnizwDdXreBfhLcNo91r+k3Fto3iO0jPxd2tqHhnWTp3iHS358vUdMtZRkoK/gdlikgkkhmjeGaF3ililRo5IpI2KSRyRuAyOjAq6MAysCCAQRX+rP7NePjzw74D/wDEL/H3gvPOFs48NMxp5PwZjs6q4KtUzfgXGUHiMrwKq4PG43nq8MYqnjcpgpulHD5M8iwtOD9hOcvhuMP7Lq5p9dyrEUq9PGQ9piI01OKp4mLSnK0ox0rxcaml26ntZPewyiiiv9Dj5MKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiig
+AooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAortPAnw3+InxS12Dwt8MvAXjT4jeJrnb9m8O+BPC2ueL9duN7BE8jSPD9jqGoS7nIRfLt23MQoyTiv2K/Z3/wCDcn/gsh+0j9hvPD37F/jv4Y+H7zy2l8R/tBaj4f8AgZDYQy48u4ufDHxC1PR/iHcxEEMV0jwZqc4T52hCkEgH4g0V/c5+zv8A8GRnx41v7DqH7Vf7afwt+HcH7ue98MfAnwH4o+K2ozRtgtY/8JZ45uPhRp+kXiKcS3cPhjxNaRzIyQx3cRW4P7vfs7/8GjP/AASF+C32C9+InhH4y/tP65a+XPJcfGX4q6no+gm+TDGS38M/Buz+F1pLYBxmPTNfufEULRnyr2S+XJIB/lGW1tc3txBZ2dvPd3d1NHb2trbRST3FzcTOI4YIIIleWaaWRlSOKNWeR2CqpYgV+nH7O/8AwRa/4Kq/tT/YZ/g1+wt8f9R0bU/Law8WeN/CLfB/wPewyYP2mx8b/F+58C+FL+2QHMktjq9yq428uQh/2E/gB+w7+xv+yrbQQfs3fst/AT4JTQQ+QdW+HHwr8G+GPEd4pQxs+q+KdO0iLxJrNw8Z8uS61bVb26kjwkkzKAB9TUAf5kn7O/8AwZb/APBQH4g/YdQ/aJ+PX7PX7OmjXPlm60vQ5vE3xv8AiBpwODMLnQ9FtPBvgSZkU4i+xfFG6WWRXV2hQJJJ+737O/8AwZkf8E3/AIbfYdR+P3xY/aH/AGlNZt/K+26V/buifBz4eahswZP+JD4K0++8fWvmsCv7n4rHZEdq/vQJ6/r9ooA+BP2Zf+CWH/BOn9jr7Bcfs4fsb/Af4ca7pflfYfGyeCLDxV8S4fJx5e74o+N/+El+IswRlEgE/ieUGXMxBlJc/fdFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQA
+UUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRX4ffHv8A4OOP+COn7Nvxc8X/AAQ+Jn7XVmfiD8P9avfDXja08EfCv4y/EnQvDniLTJmtdU0K58W+Avh/4g8L3+q6TeRzWGr2ei6tqkmk6nbXel6kLXUrS5tIuU0n/g54/wCCGms7Vt/259NtZGxlNW+Af7UujbCezTan8ELW347skzJ/tUAfvZRX4v6T/wAHEH/BFrWtv2P9v/4Qw78Ef2to/wASdBxn+9/bvgfTtnuH2kd8V6XpP/Bcf/gkHrWz7H/wUU/ZWh34x/a3xR0bQcZ/v/26+neX779uO+KAP1Vor89tJ/4K2/8ABLDW9g07/gpD+wrJI+NkFz+1f8DNPuXJ6BbXUfHNrcM3qoiLDuBXpmk/8FB/2CNe2f2F+2/+yFrXmY2f2T+0r8GdR356bPsfjSbdntjOaAPr2vyU/wCC637Tn/DJH/BJv9tn4sWeof2b4m1H4Par8JPA88Uvl38XjP44Xdn8I9E1DSgCGk1Dw6/jGbxUgUOIbfQri6lR4LeUH9S/Cvi3wp460DTvFfgjxN4e8Y+F9Xjkm0nxJ4V1rTfEOgapDFNJbSy6drGkXN5p17HHcQzQSPbXMqpNFJExDoyj+UX/AIPOvEOo6L/wSf8AhpptjcCG28Xf
+tt/CPw/rEWSDd6ba/CT4/wDiuOAAMM7NX8M6TcnIYD7PnAOGUA/lz/4I5f8ABJb9tb/gpD+zlaaN44/aL8e/s2/8E4bHxx4v1iy8MeEGEGqfHX4gXj6bofjLU9N8MWk2l6X4gs9Lj0Cz8M3HxC+IzeJbLRLrRz4Y8IeHtUNr4lGkftT4/wD+DRT9kCLw2t3+z/8AtRftSfDD4r6VFHc+HfGXjPUvh3470C31i2VXgvbrQfCfgb4WeIYJGnTK3GkeM7CSz3+bFDO0Qjk/cH/gkZrvgnxH/wAEwP2CNR+H6adHoEP7K3wa0W7TS7a3tLZfGHhrwbpnhz4iCWK1AibUf+Fg6V4n/ti5bM95q3227uma6nmY/opX/Jf4/ftC/pO4fxy8RqfAnFX/ABCTh3IOPuKcuwfBHDeQcO0MDUrZZnWMwGLxvGFLHZPiJcVZ/mtTDSxGfYjPY4qjWxdWvRw+EwuFUcPH92yrhPJXlmDeKofX61XC0JyxNatWckp04yjHDuNRKhSgmlSVLlaik3Jy1P8AHX/4KJfsTftH/sD/ALSviP4G/tMznXfFx0608UeGPiDaarqeu6B8TPA+qXV/aaR4x8P6trCRarLaXF5pup6bf2OpwW+paRrWm6lpt3CTbpPP/qf/APBMv43/AA8/aG/YD/ZJ+J3wyuNK/wCEcvfgR8N/Dl1o+kT281v4Q8UeCvC2meEfF3giZLbaltc+EfEejaloTwNFAfLsop44Ugnhz/J1/wAHicHgzWPib+wHoPhz7DqvxnufDfxxtta8P6RuvvF0/g7V9f8AhXafDZbnSrVZbx7LVfFMHxEs/DCrCX1DUrfxBb2izSW8yx9H/wAEd/8AglF/wXd/Zn8Cp42+HP7Snw1/Y8+H3xLNr4t1P9n/AOMmh33xX1HULy5sbdLXWvFHwsfw7c6P8PPEN/p0GmW+pT6T418O/EFLaytNG8VWVo2lR6ZF/a30ocx4d+l79Ar6OPi34o+Jvh/4
+KeJlLFcRYvKMBxXLNMryDjGpl2ZZhwfxJHKskyLAZ9ntGOYx4fyriLLsXl2S5ngMuhioZfWWEweZ0sZh/nMlhVyDinN8BgsFi8ywTjRjUnQUKlXD88KeIoupUqypUnye1qUZxnUhOfK5rmlBxf8AaV8WPin4E+CHwy8e/GD4neIbHwr8Pfhp4U1vxp4w8Q6jKkVrpmg+H7CbUb+f5mUz3DxQGGys4d9zf3stvZWkUt1cQxP/AJSX7EH/AAT9+Ov/AAWR/bH+Kth8H7HRvhv4P1Lxl4i+LHxb8f6xbzXXhH4PeFfHni/VtT0/ToLCza3n8Q+I7+SW/wBN8GeErO4sZdbfSb+5utQ0bQtJ1nWtM/oe/wCC1X7Dn/BwR8W/g1dXfxH+NPw+/ak/Z78Hpc+J/Ffwo/Zc0a9+G+rPHpDrqa6/4v8AhXc6Vp2r/FC10NrK0vdH0vT/ABP4/wBQ0i+hfVNP8MWc1vNqr/QX/BndqHw/f9mD9r/SdOSFfitZ/HrwhqHjJgFF03w/1H4e29t8NUlOfMMMXiPSviwYQyhUkluNpLO4X4D6O9On9Cz6Ff0gvpEeFnid4eeLXilxPmHAfCiqcF4jGZ5w54ZYSrnlbLMuxuf4DOcDkua/2vXef43HUcPneRYXATx1DI8PSp5hgamYPE9WbN8R8R5VlONwWLwGBowxVe2JUaVbGyVKM5xpSpyqU/Zx9lGDdKrKai6rbhNQ5fa9H/4NGP8AgnNbeELfR9c+Lv7WmreLjYxpfeMrHxv8MdHifVPKQT3Wm+GpPhHqtjY6Y1wGeDTL671i8htn+zy6zdTKLyv5sv8AgtH/AME6/wBtv/gm54H8DfCPxp8efF/7SH7B/iT4if2/8FPEniM3t0fht8RdN8PazZf8Ibqel6rda0/w51vU/C+oarL9j8I61b+DPiXZaINfuNJh1vwnHpvhv/Twr8Dv+DmHxT8PvDv/AASE+P8ApvjiG0udW8Z+LPg14X+GkE/l
+i6PxAj+KPhnxQk+myuyyQ3Vj4N8NeMb+5MGZJ9KttRspFNtdTg/iP0Pfp4/SRzv6SXhPwv4icU43xi4b448QeH+HsXkXFmXZTmeIyLF8QZjSyqlxXwnjfqEMVw5mHDv12eZTjl1bDZfiMuoYvB4mhCE6OKwnpcQcL5PSyfHVsJQjl9bDYWrVjVoTqQVWNKLm6FePO41o1uXkXOpSU5Rkm7OMvsf/AII8/tDXn7Un/BM39jr4watdm+8RX3wi03wP4svZJfNub/xb8I9S1P4T+JNVvc/Ml3rer+CrvW5kIUf8TFXiHkvGT/n8/wDByP8As82fwA/4KwfHC70i0FjoHx60Pwb+0NpFssXlj7Z46sbrRfG93vACznU/iZ4R8b6q8oVdr3zQOXkheWT+rz/g008czeKf+CYPibw3cXLyn4a/tTfFPwpZ28j5Nrp2reD/AIYePYxEp+5bzal4x1aVccNc/aj13V+Rv/B4z4It7D49/sU/EhbeNbrxX8Ifil4ImuwoEs9v8PvGfh7Xra3d+rR2snxMupY1PCNdykcua/c/oYr/AIgr+1X8ZPCnKv8AZMg4rzTxi4aweXQ9yhSyvDYmr4kcOwjSfuurl+WZJDC0asUpKjVxCjy061SL8ziJf2jwPl2On71XD08vrSn1c5RWDra9pzqczTvql1SP41aKKK/6ND8jCiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACivRPhz8IPiz8YdXGgfCP4X/ABE+KWvFo0GifDnwT4l8b6uXlOIkGm+GdM1O83SHiNfJy54UGv1U+C3/AAb2/wDBZX47/ZJfCX7BXxj8L2V1sZr/AOMv/CLfAZLWB8E3NxY/GXxF4H1lkRDvMNppl1eOoxBayuQhAPxn
+or+wn4Lf8GXX/BR7xqLS9+Mvxu/Zd+CGmT7PtOn2niDxz8UfGdlnBk8zSdB8G6N4Qm2KcJ9n+IMm9wVJjTbI364/Bb/gyK/Ze0P7JN+0L+2x8dviZImyS7s/hD4B8BfBi0dxhmtlufF8/wAcbqS3DZjedEtJ548vGtnIw8sA/wA4WtTRND1vxLqtlofhzR9V1/W9SmW307R9E0+71XVb+4bJWCy0+xhnu7qZgDtighkc4OFOK/16/gP/AMGxf/BGH4EfY7xP2UIvjDr9psz4g+PHj/xz8R/tflkEC88Hz65pnwzl3MN0hXwNGXBMbExYjH7KfCD9nP8AZ8/Z80v+w/gL8Cvg78E9GMKW7aX8Jfhn4L+HWnvAm0rFJaeENF0eCVAVVsSI2WAY5bmgD/HD+A3/AAQ7/wCCtn7SX2Kb4X/sEftBrpuo7Gstf+JPhSL4I+GruB8Yu7PxJ8ab7wBol9Z4JP2myvriJirJGzyKUr9p/gN/wZh/8FJPiALO/wDjh8Xv2av2fNJn8v7Xpo8R+Kfix47sd2DJnRfCXh2x8EXPlqSP3PxL+eUbRiMiav8AT6ooA/it+A3/AAZO/sX+EvsV5+0X+1h+0J8ar+28uSfT/hxoXgb4HeGL6UY8yC9tNTtvi/4kazb5lxp/irSbw4VxdR/NGf2o+A3/AAbuf8EbP2evsVx4X/Yb+F/jrV7TY8utfHS58TfHiW+uI8YubjRPivrnirwhbyHap8nS/DenWYYb1tVcszftVRQBxPgH4Z/Dj4U6DD4W+F3w/wDBHw28MW+37P4c8A+FNB8HaDBsXYnk6R4esNO0+LYnyLst12r8owOK7aiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKA
+CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAqjqlidT0zUdNF3eWB1Cxu7EX2nzfZ7+yN3byW/2uxuNreReW3medbTbW8qZEfaduKvUUAf5IP7QX/BrP8A8Fjvhv8AGjxp4L+HX7Ob/tBeB4fEmtDwV8YvCnxS+DulaV448Of2ndLpOvatpvjb4jeHtf8ACut6jYi3u9X0bxBZwvZX81xDa3+q2sceo3Ffw1/wak/8FuteEZ1P9mLwX4NEmCT4l/aK+ANwYge8i+EviJ4pYY/iCK7DpjPFf641FAH+V14Z/wCDOP8A4K668U/tXVf2SvBW/G4+JvjP4puxFnrv/wCEN+Fni0nb38sSf7Oa+gvDf/Bk1/wUEuvL/wCEv/ao/Y40LOPN/wCEb1H41+Kynrs/tP4R+DRIR23GIH1Ff6YdFAH+d/4a/wCDHX4s3Xl/8Jh/wUP+HehZx5v/AAjX7O3iXxXs/veX/anxZ8GebjnG7yd3fb2+gvDP/Bjp8LrQp/wmX/BRTx9rwGPM/wCEZ/Zv8O+Ei/8Ae2HVfjF418vPbcJcd91f3fUUAfmv/wAEq/8AgmX8Lf8AglD+zBN+zH8KPiD8Q/ibpGp/EfxR8Udd8VfEW50/7fceJPE+n+H9GnttF0bR7a20nw7oVrpPhfR0j020WeS41M6nq93dzXGpOkP85v8Awe2avfxfsZfsaeHUnZdJ1X9qLW9XvrUfdmv9E+FXiWx02c8/etrbxFq8a8Hi6bBHOf7W
+q/is/wCD23Qb+f8AYk/Y+8VRL/xLtF/ap1LQbp8H5b/xJ8JPGWpacu7oN0HhPUzg8tsyOFNJ7O3YD8MNO/bb/aM/4Nqv2rviP+yD4Y+Ifwo/bR/ZN1fxRc+M9J+FZ+I0svjz4V6Xf6jdvHpd9c6VFdr8F/izf6ZPYXPjHw9qPhjxF4S8TmOy8T6Zpdlc6pc3MP218Vf+DxfwYvg2/i+CX7FvilviFdaaU0u9+KnxL0mLwbouqyouy7v9L8JaNNrfifTrZiWNhb6t4Rub9AqjUtOLl1/UT/giX/wSD+E37NvwE8G/tM/tFeDvDXxo/bW/aD09PjF46+J3xCtbbx7rPgSP4jW0XiOy8JeGdR146pb22vJZ6kb7x54ysA2u+JfFWr69bSa9qPhy10eKP9Zv2qP2FP2Tf20fAOr/AA8/aL+B/gTx9p2paS+k6f4iuNB06x8e+EQIylnqHgjx1ZW0XibwpqOnOVktJdJ1GC3kVWs761vNNnurKf8A5evFf6RX0Hcy8YsDh/FjwAzXxz4g4ZxGEyDxN8euGOK8b4b0vEriLI5Usvzjiuj4X5DiaGTZ3h8TiMLVqUsdi+Islxmf0kq+NSo16UIftWByjiWGXyeAzWGWUqylVweV1qEcY8HSqpzp0HjaqlUpNKSTjGjUjSekdUz+Mj/g3t8TeI/+Cmv/AAVt+PP7cH7XupR/ET4w/Cr4UQeM/h9afYobTwd4P17WNY0/wHoJ8N+H3a5g0zS/AnhObVrHwnYLJNJa6rqj+Kry8vPFMJ1ib++2v8yT9kr4x3P/AAb8f8Fqvip8NPiRf6zr3wR0PX9Y+BvxR1Yae0ut6j8DfHzeG/Hfw2+KCaPZRyrLruhWD+AvG+qWGlW9zdXemDxP4c0QNNqsTH/Sd+GPxU+Gvxq8D6D8S/hF498JfEv4f+KLNL7w/wCMvBGvab4k8O6rbOASbTVNKuLm1aWFiYrq2aRbmzuFktruGG4jkiX4z9qbwbmlDxW8
+PPEjhjL5y8AOMPCDw9w/grj8owVXDcI5Pw5gsljVp8LZZQhRpYTKKsViP9YKWVxhRc8FnVGvTjOUcTCh0cEYmEsDi8JXmv7Vw+YYt5jCpNSxFStKpZ15u7lUWnsXO79+m0+jffV/mzf8FNfib8TP+CKP/Bbj4t/FT9ibW7DwZYfEPRPDnxc1L4bajbXl98N9e0/4qWM97458CeLvC9he6PHqPhW58dWGu+JdAsbC70658Jm80n/hG7/TLrSLW4j/ANBH9p/9q/8AZ+/Y1+E+u/Gr9pD4meH/AIZ+AtDhci81adptX1/UAoNvoHhHw7ZJca54s8RXrFVtNF0Gwvr5lL3MsUNnBcXMP+c7YvL/AMHEv/Bb9U1m+1n4ZfBjx3fagLJIotMj8Y+Fv2cfgt4bvLrT9OhXOo6fF4+8bxWQa9nkk1/TfDfirxtfXUK6zoOhQWc/0v7LThbHZbmXj14oeJORVqn0X8t8FOLcu8U8TnmV18dwnxHPAYnKs4pZPh8BUoVaGf51lmXYTNsWqOCjVxeW0sT7D2lCvnGDpYzHjavCcMrwWDqpZ1PMsPPAxpTjGvR51Om6kppp0ac5ypxvK0ZtXs1Tk4/rP4a/4PJIo/BkS+L/ANgmW++IdvYKk0nhr9oBdM8GarqSRjzLyKDVPhPq+ueH7CSTdIunPceJZ4I1EbapcMxmX4r+Fvxb+JP/AAca/tSa5qn7ZHx/+F/wc+B37OnhLxf8Qfht+xb4S8S6hoXif4i3emeFdZ1d7XwPaagUvPF98IdGSb4p+P59Wn8UaP4aF1p/gvw54a0vVZ9R8P8A94P7OH7HP7MH7JHgDSfhn+zv8EvAHwx8LaTZfYyND0GzfXtbZ4Ft7rUPFfiu+S78TeLdYv4kVL/V/EeranqF3GqQzXDQRRRJ+Av/AAX9/wCCSHw48Z/s8eJ/25f2SPBfh/4HftS/svWOpfFrxDrvwp0228A3PxJ+HHhq0m1bxtNqg8LQ6bHL488G
+aVa3Hi7w74qEZ1q9sNK1fwrdzXyapo76P9H4J/SK+hlPxUzHhPwU8C81+jTxd4g4itwh4d/SEzfi7GeJGYcGZlxBWeAwVepwhxPWx2B4GoZ0q39iYzPOGs/x+Z5Hh82rVKWYU8FhpYillmWU8RLAwr5lmdPOcPhFHEYvKaeHjg4YmFJc0l9YoqMsU6dvaRpVqUIVXBJx5mk/wB/4INf8FYfiT+wH8FPjl8NPCP7Dvx4/a20jxj8UtI8dSaz8IBrTWHgzUpfCdnoFzpmtLpfgDxlGt3qtrolhdWpluLJ2htJAIZVXevkP/Bfn/gpD42/4KFah+ytc+Mv2NfjV+yK3wms/jTBp0PxiXV1fx8PG8/wrkupfD39q+CPBhK+GD4Tt01XyF1EA6/p/mG1yguP3F/4M54Jl+AH7aly0biCX4w/DGCOYqRG81v4L12SeNW6F4kubdnUcqs0ZPDCvnz/g8q1K0l8W/wDBPrSEkzf2Ph39pjUrmHvHaarqfwMtbKTOc/vZtG1BRwP9ScE5OP7A4c4y8JJftbsx4OwXgVgsP4kU8z4iqV/GGl4h8ZVcS60vArGZli8RPgWVV8KU3isvqz4eqL2ajTdf+0oWzBRZ8/Ww+P8A9Q4YiWZyeDcKKWXvCYdKyzOMIpYq3t3yzSrLXW3I/cP4maKKK/2xPzgKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKK9g+FX7PXx9+O18NL+CHwP8Ai/8AGTUzMLYad8Kvhp40+Id8bhsbYBaeEdF1e4845GIvL3nIwvIr9Xfgv/wbi/8ABaD44/ZJ9B/Yc+IPgjS7nY02qfGjxB4C+C/2CKTGJbvQPiT4q8O+MH25HmW9j4bvb1OS1rhWIAPxCor+xj4R/wDBlh/wUV8Vi1u/i9+0D+yn8IrC4EZnsdI1
+r4kfE3xVYg4Mi3Gm2PgLwv4YkdAcILTxtcpIysDJGu12/T34Tf8ABj/8C9MNrL8df28/iz43B2PeWPwm+EHg/wCFpTODJBa6r4w8U/GHzdvKJdy6NDvwJGso8+WAD/Oqor/WQ+E3/Bo//wAEZvhubV/FXwy+NXx1mtgh834s/HXxbYC4kjwRLc23waT4RWUuWAZ4Psy2snKPbtEWjP6d/Cb/AII1/wDBKj4Im1k+Hn/BPz9lWzvrHZ9i1rxP8IfCvxG8R2jpjbLbeJviNZeLPEEE/HzXEWpLO/O+RsnIB/ixeDPh/wCPPiNqyaD8PfBPi7x5rsm3y9F8GeG9Z8Uas+87U2adodlfXjb2BVdsJ3EYGTX6N/Cb/giT/wAFbfjYLV/An/BPf9p9LW+2Gz1Hx58NdV+Eej3UcmNk8GtfFkeCdJltWzlbtLw2pGT52Acf7R/hnwl4U8FaTBoPg3wz4e8JaHajFtovhnRdN0HSbcYC4g07Sra0s4htUL+7hXgAdAK6CgD/ACi/hN/waFf8FjPiL9lbxj4T/Z9+AyT7DMPin8cdJ1mazRsFvNj+Cej/ABfV5FBOI4ZZAWG0uoyw/Uz4Mf8ABj745uza3n7Q/wC3z4T0EIUN74d+DHwX1jxabkHHmR2vjPxx4y8FCyK87JpfAd+HyC0MeMH/AEKKKAP5Rvgt/wAGdH/BJv4ci0ufiXqf7S37Qd8mx7+18c/FWw8GeG7mRcb0tNO+EXhXwD4hsrWQDmKbxdf3KksVvQNoX9cfgt/wRL/4JL/s/wD2ST4bf8E//wBmpL2w2Gx1nx74As/jF4ispI8bLi18S/GCXx3r9vdjH/H5FqSXTAsGmIZs/qRRQBh+HPDHhrwdpFp4f8I+HtD8LaDYLssdE8OaTYaHpFmnA2Wmm6Zb2tlbrgAbYYUHA44FblFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRR
+RQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRX84v/AAWZ/wCDjj4F/wDBI74m+F/gDD8D/F37Rvx68QeCLP4ian4W03xhZfDPwX4O8L6zqGp6X4dfxB44vPDPjS8uNb1q40bVLqDRNG8JagLXTLaG71LULFtQ0+G4/mC+LH/B7H+3V4hFzB8GP2VP2XfhhbT70iuPHFz8T/izrNkjZ2vb3em+LPhdo73ScYku/D91bNg7rM5G0A/0t6K/yFPix/wdG/8ABa34qfabeD9q6w+F+kXW7dpHwn+D3wh8M+VuyB9m8R6j4M17xvb7ASF8rxSpOQz73VGX538H+Pv+C6//AAUou2svA/jz/gpH+1ZpeozPb3A8P+L/AI8eKPhjp5dzHKuoXNpqUXwz8L2hlJilkvpdKshIRHI4cqtAH+wh8T/2if2fvgjA918aPjp8HPhFbRR+dJcfE/4neCfAMEcJXeJXm8V63pMaRlPm3swXb82cc1+aPxY/4ODP+CM3wa+0r4r/AOCgHwS12W13AxfCh/FvxxM7rkCO2n+DPhnx5aTF2G1ZVuPs4yHeZIsuP4SP2dP+DQb/AIKyfHC4tdc+Ns3wV/Zf0rUZFvNUf4ofEhPiB4/eG5bzGubbw58J
+Lbx3pN1qLhxNNZeIPG3hy4Ql0upYbpWgr9/v2bP+DKf9i/wP9g1P9qL9pz45fH7VrfyprjQfh5pPhn4FeBrqQ4aay1CCU/E3xre2iZaNLnS/Gfhm6lKicrb7jbIAf0Af8E9v+CyP7Bn/AAU+8UfFHwX+yT8SvEHijxT8I7HStb8S6H4t8C+JfAmoX3hfWLp9PtPFfh238RWdtJquhxaoq6XqLbbfUtKvbjT11PTrSDVdLnvPz7/4OxvgcfjF/wAEZvjH4kt7Q3up/s+fFD4M/HDTYEQvMqweLB8Kdeu4uPlGn+Eviv4i1C6ckBbG1ujknCt+sn7Ev/BNH9h7/gnToniXRP2OvgD4b+Dx8bQaJb+NddttW8V+LfF/i6Pw62oyaPH4g8YeOde8S+JL22sJ9X1S5tbD+049Ntp7+4e2s4QUVPSP23P2eLX9rX9j39p39mW5kgt5Pjp8C/ib8M9Lvrnb5Ok+IfFXhLVNM8Ma429WQNoXiKbS9YjLqyrLYoWVlBBAPx3/AOCPf7aPw1/bZ/YK/Z/8ceDvEuh6h448DfDTwR8NPjT4Rsbu3GseCPiX4M8PWfhzWrfVtGWRrzSdN8STaRJ4n8JyXCeTqPhzUrKa3nmkiulh/STxT4p8N+B/DWv+MvGWu6T4X8J+FdH1HxB4l8Sa9f22l6LoWh6RaS32qatquo3kkVrY6fYWcE1zdXVxIkUMMbu7BQTX+YP+zn+zp4Q+C/8AwTk+In/BQ34Y/t2fG79iX9rT9nf4s+Lf2cfij8LPCzaq2o/Fv4iT3jeJ/hp4K0RvC3ifwR4g8JQ63ob3mn+JIvEY8deFZR8O/F2sz6ZZpo+pwP8ApF8D/wDglR/wW5/4K8fAjwl8RP2wf24vFHw4+AHxBsdI8X+CfAvxS8QeKvE2q+LtHuEhvfD3jW6+C/g9vDXg600y9s2TUvDl54s1qy8RSxSw6lbaNb6fqFtqdz/y9+Nv0B/BzJvEPxD46x30leH/AAp8
+Hcu8W8/4TzvBcecE8YYfjPJc9jWhnWM4Z4JwGGwNTL/EnD0Mox9DMcrzfI8byUsnxeXzzehRxcMVA/act4pzCphMJhYZNVx2YSwFKvSlhsTh3h6lK3s41sTKUlPBt1IuFSnVjd1Iz9m3FxZ/Pp/wVI/aksf28v8Agoj+0f8AtC+ArXUtT8M/Ez4h6b4f+GFqulXEGsa14L8FaBoHwy+H9yNFSN76LVfEmg+F9J1STTGje/S/1N7SRDcApX9U3/BMH/g2T+MXg7wBpnxT/aa/a/8A2jv2YvHXjbT7DVJfg/8Asj/EAfDrxZ4VsriAyR6f8RPiRLba/p1/4lNtcfZtS8P6H4auLDQZVmt18T6xJNLFZ/Ed5/wbqftUf8E8P2v/ANjb9oW78XeAP2iv2YPAP7X/AOzVr3xY8ceHNOvvC+u/DfwFpXxp8EXfiLxn8S/h/wCIJtStLDwFpulpc3PiHXtC8VeLLHw/pdvf6r4pTRdCtZtSr/Q1r9v+nJ9OLA8D+EPgX4V/Q7484fxnhhjODpZHj+KcFgcJm+d4fLuBKGSZFkvCGJwPEeVqpw9jaOBWGzLNljsnwmd4mniMrq4d4HBVaqzDzeGeGpYrH5njuIMNWjjY4hVI0JTlTpueJdSrUxClRn+9i5XhT5akqSampc0kuT+Cb/gsZ/wbhfEf4XfCbxz+1n+z7+0l8c/2n4Phlpmo+JviB8PP2h9aPjz4sWngCwT7brniTwl4/sYtOh8St4YtEuNX1vw7eeGdJup9CtL7UdP1K+1Gyj0jUfxD/wCCFv7X3wz/AGJv+CkvwS+L3xjmOm/DTWrfxP8ACvxX4pNxHBa+B7X4kaU2g2HjTVRIhWTw/oOsPp1x4kYSRS2Ph99T1WAXU+nx6fef6xGpT6da6dqFzq8tnBpNvZXc+qTag0KWEOnQwSSXst89wRAlnHbLK9y05EKwhzIdgav8479mf/g2k/aY/bml8Y/tE23irwX+yV+zt8S/HvjH
+xN8CvD/jzw14l1v4map8KtX8S6hf+CdeX4d2Z0W38PeG73w1cWDeH/7e8V2Gs6naRxX8ejR6LeaXq2oeh9Dz6a+ReK30b/Hjwr+mZx9gMm4LweTYHg3LOPp4ahludY/LPEPK+I8vq8NYTK+G8qdfNs6yWGT4jOMtxOByjHYqeFqYl5xGph8FTnXniDhyrgc4yvHcPYWdTEyqSxM8Km504TwlSjNVpTrTtTp1HUjTmpVIxul7Ozk7f6O9rdWt9a217ZXMF5Z3kEN1aXdrNHcWt1a3EazQXNtcQs8U8E8TpLDNE7RyxsrozKwJ/Ez/AIL6ft3fDD9jv/gnz8cvB+seKtKi+NH7SXw18Z/Bb4QeAklt7nxHrQ8eaXJ4R8ZeLU0suZrXw74J8L65qWqXmvXcQ02PWhomiB5dS1ixtZ/5tP2tf+Cfn/BcX/gjz+zt4j8dfs+ft9fEL4rfsqeBLKC18QaV8PPFPjLSdd+FXhX7TBAniK2+FPjCXxVpXg/wta3E8C6rqHwy8VXtzo0Lz6nrVpZaFbX2qw/lp/wUb+APw70L9jP9j79tLxb+2x8Wv22v2mf229Q1rW18R+Pby9Wx+GHw8+GGkmw+Ivw51Oy1/wAReNvFN94s8M/FDxbo3hmLUZvEej+GbaLQ/EdvoHhJ4LmHVo/xb6NP0CfCbMfFXwj49/4mL4b8XPDLNvE5ZXwhgPD3g7i5Z3xJxJwnllfjmXD3HUM2wFLLvDelSyPKK+d5vhc5x1bMcyyPC4uhkcKtfEU8XhvRzninHwwOPwv9kVsBjaeC9piJ4vEUPZUaNepHDe1w3JNzxjdWoqVOVOKjCrKLq2ScZf1of8Gmfwku/Av/AATV8W/EXUIWST43ftIfEDxNo8xTYJvDHg7w/wCDvhzbBWIzL5fijwx4xBcHYC3lBQ8cjP8Agt/wdw/FuHxj/wAFB/hR8K7GZJbT4Ofs3eGxqaBgZLfxV8QvGHi/xJfwsoyFRvC1t4KuE3Yc
+meQkbPLLffX7Af8AwWO/aI/Yd/Y7+Av7K2k/8EYf20PF0Pwg8HSaRf8Aiuz034haHa+J/EGta5q/izxR4ht9Ib4Aao+nQ6z4k1/VdQitJNRvpIY7hVkup3DSN/KH/wAFJ/2v9W/bx/bX+OX7Uur+DNQ+HM3xH1fw5bWnw/1TVjrV94N0zwR4L8N+ANP0K61H+y9EE93Bb+GEnviuk6eft9zdGS3Epkd/7F+iz4B+K2bftFPG/wCkhx1w7luX8FVH4iYjgnN8FxjwRxFVxTzjN8v4Z4Rp18u4a4jzfMsuliuBKeZYmc8xweEhCpQlhpNV5Kmvn87zXAQ4Sy3J8LWnPE/7IsTTlh8TRUfZ05V8Q1OtRpwny4lwVoSk2pcy01Phqiiiv9qT85CiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKs2dleajdW9jp9pc317dypBa2dnBLdXVzNIcJDb28CPNNK54SONGdjwATQBWor7g+FX/BM3/gol8cPs8nwm/Ya/ax8dWN1s8rW9E+AXxOk8NKJMbGuPFFx4ag8O2iPnKvdapCjAFgxCsR+lnwp/4Ncv8Agtd8UhbXM/7J9j8MdJutm3Vvit8Yvg/4aMQbBJufDun+Ndd8bW3lgguJvC6nkqgd1dVAP586K/s4+FP/AAZQft6+Ifs0/wAYv2o/2V/hjaT7Glt/Bp+KPxV1yzRsb0ubK98FfDbRXuU5/d2fiS7t2+XF2Mnb+lnwq/4Mgf2d9K+zN8b/ANu340ePPuNdwfCr4U+BvhNkHBkitrrxdr3xpxt5RLiWzO7Aka2TPlAA/wA5uiv9ZD4Vf8Gj/wDwRl+HRtm8U/DD41fHGS22EyfFX47+MNPFzInIkuYPg4PhJaSZYBniW3S2flHgMZZD+m3wh/4Izf8ABKb4FtbT/Dj/AIJ/fst2l/ZbDZa14r+FPh34l+I7N48bZbTx
+L8S7bxfr9rPxhriDUo53BIeRtzZAP8XPwF8LviZ8VdWGg/C/4deOviRrrFAui+AvCPiDxhqxMh2xgad4e0/UbwmRuEAhyx4XJr9NPg//AMEHP+CwvxyNqfA//BPr9obTYb3Yba6+Kfhqx+BdlJHJgpP9s+N2qfD22W3dSHS4MoikjIeN2VlJ/wBm3w54X8M+DtJttB8I+HdC8LaFZjbaaL4c0jT9D0m1XAG2207TLe1s4BhVGIoVGFA6AVu0Af5Y3wf/AODOL/grF8QDa3HxF1z9mD4D2T7Gvbbxp8VdZ8XeIbdGxuS1sPhV4K8c6DeXMeeY5vFVjbMFbbeE7Q36pfB3/gx70SI2l7+0B/wUA1W/BKG+8N/B34GWmkmMDBkFp428a+P9a84vkqjTfD+Dy9odll3GNP756KAP5e/gx/waGf8ABHj4YfZJfHHhT4+ftDXNvseY/Fn41arollcTrhmP2L4I6V8ICttvHyW0txcDysRXEtz87P8ArX8GP+CQ3/BL39n37JN8KP2C/wBl3QdTsNn2LxHq/wAI/CvjjxhamPG0weNPHtj4n8WRsSFaRl1kNK6q8pdlUj9GaKAKOm6ZpujWFrpWj6fY6TpljCtvZabptpb2NhZwJ9yC1s7WOK3t4U/hjhjRF7KKvUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFF
+FABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAfylf8Fvv+DZrR/+Cpf7QGkftXfBn496f8CfjLqXhnw/4L+KekeNfC2peL/A/jrTfCtv/ZvhrxTps+k6pY6x4Y8VaVoQg0DULRbfVdD8QadpmiSRQ+HdSstV1DxB8n/s2f8ABk9+yX4Q/s/U/wBqn9q/40/G7UoTHcXPhz4UeHfDHwR8ISy5VpNOv7rWG+KvivVLBAWjN3peseEL64ISdVsfmt6/tlooA/J/9mz/AIIaf8Em/wBlEWFz8Jf2Hfgnc6/p3lSW3jH4p6HdfHDxlBex4LalYeIvjFe+N7/Q76RwXL+HX0iGEO8NrBb2xEI/Vizs7TT7S2sLC1trGxs4IrWzs7OCK2tLS2gRYoLe2t4VSGCCGNVjihiRI40VURQoAqxRQAUV538Ufi98J/gf4SvvH3xo+J3w++EfgXTB/wATHxl8TfGXh3wJ4WsTseQLd6/4o1HS9KgcpG7Kkl0rsEYqpwa/nJ/a/wD+DtL/AIJTfs2/2poXwo8UePv2wPHdj51vHpvwR8Nyad4Bh1GPJSPU/il4+bw1od1pkgAxq/gHT/iFDmRFSCQibyQD+nqiv84LXv8Ag5R/4Lhf8FQPHd/8GP8Agl3+ylYfCw3jrDJdfDDwbJ8dPiN4YsNQd7eK88b/ABd+JOlaf8GvA2kSoPKj8Rax4A8Hx2V0zPD4hjn+zGH+1T/gkv8AD3/goB8MP2KfAHhP/gpf8RdF+Jv7UdtrXie91fXdK1XSvEGoad4P1C/S68KeG/FfiPQtF0XRfEHivQrd7q11LVdLGr2ksBsoF8Qa1JbyXsgB/n0f8FaP2Dbf4Bf8HDPhf4EeN7m60L9kr9u/9r/9
+nn9o+PS2uJbfwZr2nfFT4lXGg/EGG/sGddDt9T8M+OfE/wAY/C+mmZXfw/4V8U2t0Y7XTdcNtL/opwww20MVvbwxW9vbxRwwQQxpFDDDEgjihiijCpHFGiqkcaKqIihVAAAr8nP+Dnn/AIJlX37eX7CFz8X/AIUaJcXn7Tn7GL638X/hq2jRyDxD4q+H62tpc/Fz4fadJbf6ZPqNzoui6d458LWtpHPqd34r8D6boOkLDL4ku2k/Dj/gnV/wdZfAIfBrwJ8NP+CgGj/E3w58YfCGjWvh3Wfjh4P8M2/jfwV8RbbSYVtrLxZ4m0jSb+Dxh4c8ZanapAPENno/hrxFoupavHe67Z3mi2+pReHtM/xX/a3/AEWvGbxopeGHH3hPw9mfHOD4Pw/EOU8RcGZBh44nO8LXzmeWYijxRl+W05LE5y8VRyrD5RmlLB06+YYaGByaVLD18I8VUwP6LwHneXZc8bhcfVhhZYh0alHEVXanJU+eLoTm9KfK6jqQcrQfNUvJS5VL+xjxDoGi+K9A1zwt4j0201nw94l0fU9A17R7+IT2Oq6LrFlPp2qabeQt8s1pfWNzPa3ETcSQyuh4Nfwcfsw/8HTXxA/ZPtNV/Zp/aQ+CN5+0noHwX8Q+KPht4L+N/h34ixeHviZr3g7wXq99oPhJvHunaxoOuaH448QHTLG0tb7xlZ634ZutTt4oNQ1TT9a1qS/1XUfoj/gox/wdH/Dr4k/DHX/2d/8AgnH8PPiR4w+J3xj0i/8Ahynxb8Z6BceGF8Lf8JpFN4ajHwv8GabqF54u8T/EK7TUDH4au9Uj8PWOhaxNpl9Hp3imZZNLj+rP2BP+DWX9jD4V/C7w7rv7buj6t+0j8ctc0zTtU8TaBF4z8Y+CPhV8P9TngS5l8OeGbLwFrnhfXvFculyyvp+p6/4q1q803XJLZbrT/C+hws0M38IeD/g54R/Rj8G+L87/AGhPhxxE8L4qZ1kS8IfCvL6eIw/ihLE8
+G0M3hxLxfh3guIuHanCeAUeJsqy7FYXPM4yx5qqNGWKy3GwoZVGp9PmGYY/Osww9PhPF0ubA06v1/HTaeC5cRKm6OHfNRrKvJ+xnNSpU58nvKM4tzt+d+uf8HGnjn/gpb+0l+yv+xh4Q+FVt+yz+z38cf2jvhJ8Pvjvr2oePbfx344+KHw18SeM9K0nW/ha1/wD8In4W0jwR4Y+INveHwx4oWwXWdW1Swvzpo1u20e81fS9U/u4REjRI40WOONVRERQqIigKqIqgKqqoAVQAAAAAAK/j8/4Klf8ABsr+z3F8F/GPx2/4Jw+HfGXwl+PPwutLrx9pvwi0nxj4q8WeGfiRbaEq6tqGjeDpPFGqa34u8KfEKCO0l1DwOdI8QSaPfavDF4b/ALGsn1Ow1nRMv/gn5/wda/s8XPwg8FfD39v3Q/iZ4M+NfhLRrfQPEnxf8IeEoPGXgL4iNpEC2sHivWNH0S9h8XeFvF+sxxxtr+j6b4V1nw/Jq4vNU0/UdJsr6HQdKz8c/BDw6+kt4UcA8d/s/fDvPcTwl4b4nPOHvEzwijha+M8T+H+IeIpYTM8v4xzPD4nO+Is04sw+fYLLv7KhjMvzjOIYWlkuCwWX0o0sJmeGyl5ZmWLybHYrC8VYulHEYxUquCx/Mo4KrRpc0J4eElSowoOlKfO4zp0+Z1JSm7yhKp/YD4i8PaF4u8P674U8U6Pp3iHwz4n0fU/D3iLQNYtINQ0nW9C1myn07VtI1SwuUktr3TtSsLm4s720uI3hubaaWGVGR2U/5O//AATh/ZC8Tftuf8FK/hN+ytokmpXvwa8A/Gzxd8QvFemXF5fat4a8F/BzwR4sstW8eTW0Fzc3ENk/jKy0Hw54Ht74B/7R8R634aGpPcLlx/Rn/wAFKf8Ag60+Hmt/CzxL8Jf+Cd/hXxxJ418a6HqWg6l+0B8R9Ij8JWvgCx1W3msLi/8Ahx4Sj1C91vV/GKWssk2la94k/sDTfDN+LS+T
+RvE0gaC0+1f+DWb/AIJ/P+zr+yNrX7XnxA0NrP4r/tcGzvPCg1C2Meo+H/gF4euZ/wDhEUiEy+bbH4ja21/45uXhf7NrHhqP4eXbL5tnx+i+A+VeLf7Pv6J30h/FbxSyfEcEcX+MUuE+BfBXgvOqtOHEVLiingOMcLj+Msbk6qVJZN/Y+UZ3jMww1PG06OYYqOT1MJjaGGwmYZdPHcmaVMBxXnuU4HA1FicPl/t8VmOIppui6DlhpRw8all7T2lSlGEnFuEfaKUXKUJ8v6vf8Fh/2z7X9hH/AIJ8fH/412esR6T8RNT8NT/C/wCCwEwivrn4t/EW2u9C8MXmmISv2i58IWrat8Qrq33oX0jwfqRVt6qrf5FTMzszuxZmJZmYlmZmOSzE5JJJJJJJJOTX9KX/AAcn/wDBUHRf23/2nNJ/Z9+Dmsyal+z9+ypqnibQV1u0uQ+kfEr4x3c6aV408X6f5JEN/wCHfDEGnJ4O8G6i3npdhfFWv6TdS6N4ptGb+ayv9Lv2XP0bcw8Avo70c74ry2plniB4vY7D8Z5/gsVSVHH5TkFLDSw3BmRYyDSqU61DLq+KzzEYavGGJwOO4jxmX4mnCthJxXx3GucQzXNnSoTU8Jl8ZYelKLvGpVbTxNWPRpzUaSkvdnGjGabUkwooor/Sg+OCiiigAooooAKKKKACiiigAooooAKKKKACiiigAoorV0XQtb8Sajb6P4d0bVdf1a6bba6XounXeqajctkDbb2VjDPczNkgYjiY5I9RQBlUV99/C3/glV/wUu+NP2eT4ZfsE/tb+J7C72+RrqfAP4k6V4XffjZu8Wa54e0zw1HuB3DzdVT5Mv8AcBYfo78L/wDg1m/4LYfEr7NPefsr6L8MNLutpj1X4ofGv4NaL5YbGTc6BoPjbxN4wtdgILLceG4nPIRXYMAAfzz0V/Zr8Lf+DKH9vrxB9nn+Lv7UH7Kfw0tZ9jSW/hCX4p/FDW7NDjetzZ3ngX4d
+aM1wnP7u08RXVu2FxdDJC/o38Lv+DH34I6b9nk+NX7fPxU8Z52Nd2nwu+C/hH4Zbc4LwW+o+LPGfxa37eVS6l0uPfgSGzjz5YAP86+iv9W34X/8ABoJ/wR18Ai2/4S3w5+0V8bmh2Gb/AIWb8cb7R0uyuCwmX4NeH/hK8aOcgi2khdVOFkDDdX6O/C3/AIINf8Ed/g/9mPhH/gnp+znqbWmzyX+JvhW7+NkoKY2vLL8ZtT8fSXEgIB8y4aV9w3Fi3NAH+L3bW1xeTw2tpBNdXVxIkNvbW0TzzzzSMFjihhiVpJZHYhURFZmYgKCTX2L8Lf8AgnR+398bfsz/AAj/AGJf2rviLaXWwxap4T/Z/wDinq+hqkmNk1zr9t4XbRbO3bIxcXd/BByP3nIz/tqfDf4CfAv4OQpbfCH4L/Cb4V28cXkpb/Df4c+D/A8KQ7dvkpF4Y0bS41i2/L5YUJt4xivWaAP8fH4W/wDBsn/wWw+Kn2ae1/Yx1TwLpU+3fq3xS+KPwb8B/ZQ+MG58P6v4+HjLgZLCDwzOybSrhXKq36O/C/8A4Mtv+ClPij7NdfE344/sjfCuwm2+fZ23iz4m+PvE9pnBcPpukfDDS/Dcu0HA8nxk4ZwQSq4c/wCnjRQB/Bf8Kv8Agx58C2n2a5+N/wDwUF8Wa9u2teaL8KvgNo/hLyMY3xW3ifxd8R/Gv2rdztnl8I2e3Izbvg5/Sz4U/wDBnl/wSG8AfZpPGqftNfHKaPY9zF8RfjNa6BYXLjBkRIPg94O+GF9b2zHISManLcImA13I4Mh/qkooA/If4Vf8ED/+COXwb+zf8Ih/wT3/AGfNVa02GF/ijoOrfHGQsmNrTP8AGrWviA1ywIB3XBlJbk881+kfw2+BPwQ+DVqtj8IPg38KvhTZJF5C2fw2+HnhHwNarDgDyVt/DGkaXCIsADywgTAAxxXqtFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFF
+FFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAV5h8X/jb8HP2ffBGo/Ev47fFX4d/Bv4eaSyRaj42+J/jLw/4G8L2txKsj29pJrfiXUNN08310IpFs7FJ3vLyRTFawTS4Q+n1/nNf8HjX7Kn7cHjb9rf4J/G7Q/CfxT+LP7Kc/wd03wX4ItPAvh/xN4r8MfCn4l6brmvXvjjTvEekaBp95Z6BrvjizvdC1nTPEmppHdeK9O02XQ7a7ng8D/ZbIA/cL9r7/g7w/4Jc/s+DVND+BkvxM/bG8b2fnW8Efwx8PT+B/hnHqEG4Nb6n8SviRbaNczWbsAsWr+CPBfjzT5tweGWSMFx/LJ+17/weAf8FOPj2dU0P9n3Tvhb+xv4LvPOhtpfAuhwfEz4qCynyr22ofET4kWN9oKTrFhIdU8JfDjwbqls5ee3u45vJeD5u/YB/wCDYX/gp7+2+2j+KfFPw4j/AGRfgzqBguJPiL+0bZar4Z8S6jpshVnn8IfByO3HxF1qeS3eO60y58R6d4K8KavBIr2fi0jJH9wf
+/BP/AP4NaP8AgmX+xX/Yni/4j+Dbv9sv4zab9nuX8a/tAafp1/8AD/TdTi2s8/hP4H2puPA1paGWOK5tP+E6f4ka7pl0hm0/xDbhtigH+fz+z3/wT1/4LHf8FsvHlr8RbDQvjv8AHjTb+7lt7z9pb9pXxx4ot/hVolu9xsvYtN+IvxDu7yPV7bTZFiS58J/DCy8Tavp0At0g8Nx20cYT+xX/AIJ/f8GbX7J/wb/sTxz+3p8TdZ/ap8eW32e8n+FfgaXWPhr8B9Nu02u9nqOo2lxa/E74hxW88aSW98+q/DrS72F5rPV/B17Ax3f2ZWFhY6VY2emaXZWmm6bp1rb2On6fYW0NnY2NlaRJBa2dnaW6R29ra20EaQ29vBGkMMSJHGiooAt0AeX/AAe+CXwd/Z78CaR8L/gV8LvAHwe+HWhIV0nwV8NvCeieDfDVm7JGk1ymk6DZWNpJfXXlI99qE0Ul9fzAz3lxPOzSH1Civz1/4KFf8FRP2Nf+CY3wxPxF/ao+KNnoOp6pZ3c3gL4T+GxbeIPjB8T7u0DK1n4I8EJd21zPaLcBLS+8U63c6J4L0S4mt4td8Saa9zbLMAfoUQCCCMg8EHoR6Gv8/wB/4Knf8EwPFH/BFz9ry5/4Kofsj/s6fD79pn9gPxzrc0v7X/7IHxE8DeHfH/gv4d2HiPWYbzX5LLQvEeh+Ibfw/wDD7UNUlGs/Dvx1p2lXMvwW8YbfD+qQ3Hw61aHQNT/XH/giV/wXc/ay/wCCun7Vnx30Kb9ivRvhn+xZ4I8MX194T+Mumar4m1DXfCPjG31DRYtC8B/EHxXqksPgvxx4p8Y6Nf3+uLofgfw/4dv/AAfaWSS6gNd0uaPV5P6gdX0jSvEGlanoOvaZp+t6Hren3ukazo2r2VtqWlavpWpW0tnqOmanp15FNZ3+n39nNNa3tldQy211bSywTxSRSOhAP83L/grJ+1F+wJ8TviB/wRH/AOCkn7C2l/DHwd+yv8Hf
+2mtNHx2+EHw88A+DvhT4q+CvxH0L4mfB34u3GjfE7wB4Rs7W00rxR4r8I+CvFsOmaukOoaL4hs/ANxqnhnXvEOjSQ3g/ursr2y1OytNR067tdQ0/ULW3vbC/sriK7sr2yu4kntbu0uoHkgubW5gkjmt7iGR4ponSSN2Rgx/nG/4KZ/8ABoF+zl+0RqniL4ofsB+PtO/ZH8ea1NLq2qfBTX9O1TXP2b/EWuKLg28+hR6VJP4p+D++S9vDLFoWneN/Cun20i6f4Z8DeHbVpvM+Av2avhn/AMHU/wDwS08MaV8CtN/ZQ8Kftk/Avw2kujeA4NQ8beD/AImw+GNJtYpI7PTfBfiXw58TvB/xS0DwzabLcaVonxA8O3OkaXpqrpPh7TdGiCxW3+U/7S76DfH30q8PwBxj4VZhkv8ArhwJg86ybG8OZ/jp5Zh8/wAlzXEYPG4apleZulVwmEzPLcZh8Qp4fMFh8Lj8NjnN5hhauX0qGO+44N4lwuRyxWHx0Kn1fFSp1I1qUed0qlNSi1OF1KUJxa1heUZRtySU24f2NeNfGXhf4deDvFfxA8b63YeGvBvgfw5rfi7xZ4h1WdLXTNC8OeHNNudX1vV9QuZCscFnp2m2lzd3ErkKkUTselfxA/8ABIT9u3/gn5+xl+wd+39+1p+3B8Nfh18QdM/ak/bH8Xa5+zH+yZ4k8E+CvHvjb4jN4V0RtYuZPDXhvxRpup6ToXgHRdX8e23hXW/iTqdnaeFdG1Dw3qmlWU2r+JoLHw1e+Pf8FR/Hn/BzL+1R+z/410P9oD9iHxz8Df2Z9LtrfWviX4U+AXw8vpI9f0TTL6C4gl8c3a+PfiX8Q9a8PaVciHVNZsdKl07wtHDZjWvEGlCy0kXVl/KL8I/H/h/4b/ELwt428ZfC7wj8b9I8IXP223+F/wAStQ8YWvw98QXME0tzaaf4vt/A3iPwf4tv/DUd9NLe3+haF4t8Mvqk5MN5qJsZ7+zvfV/Zp/Qm
+44+idkXiHn3ifmOT1eNfESrw/g4ZHkGOq5lgMgyPhxZrVo/W8wdHDYfF5tmWNzivKvTw1PE4XBYXA4T6vjqtXGYylRjjHiTDZ7VwlLBQqLDYRVZe1qxUJVatb2afLC7cYQjTSTbUpSlK8Uoxb/pt/ZD/AOCZH7WP/Bx9+0t8Rv2wvi1o/hH9iD9irRbDVtG8N+K/AXwx0bQfhp4Y0bwz9sTQPhN8CfBaz+D9O8WpoN1Nd6l8SviLeXUOlW2orr93rF+fEV9p/huL88/+ClnifwN+x/8AFaz/AGfv2Jf+Cq37V/7YNh4Ls5tG+IXxAsfGfiXwZ8F9Eu7OOKx0/wAFfDLUfD/xN8SQePYdNto5Y9X1zSUsvBlkiWWm+Hr/AMRM2ovo/I/tnf8ABdP/AIKGfts/C7Tv2fvFvxC8I/BL9mfSdG0/w9Y/s2fsweCbH4K/CD/hH9Kt1s9P8O6jpukXV/4o17wrZ2sdtFaeDvEPivVfCFo1nZ3NroUF3bpcD8e6/wBMMyyXJs5jRjnGU5ZmscPKUsPHMsBhcdGhKfKpyorFUqqpSmoQUnDlcuWN2+VW+NhUqU7+zqThe1+SUo3ttflavbpcKKK7Dwn8PfH/AI9uPsngbwP4w8Z3e8R/ZfCfhnWvEVxvOMJ5Oj2V5JvORhduTkcc16ZBx9Ffcfgj/gmP/wAFH/iT5LeA/wBgX9svxVbz7dmoaP8Asz/GW60lVb7rzauvg0aXbxtkYkuLyKM5GGr688E/8G8X/BaTx+YRoX/BP/4v2Hn7dn/Cbar8OPhoF3dPOPxG8b+FRb/7Xn+Xt/ixQB+MFFf0teCv+DSn/gtL4qMX9u/Bn4R/DXzNu8+Nv2gPhpfi3z183/hXOrePy2z+LyBNnB27uM/YPgX/AIMp/wDgo7rDwy/ED9oz9jbwRaS7TJFoniX4yeNtYtwfviWyf4O+FtKaRf4Vg1+aNu8q0AfxyUV/fd4B/wCDHLUn8i4+KP8AwUasbXBX
+7TpHgH9mae+3g/eEHiPxD8bNO8ojkKZPC027O4hcbW+2fAX/AAZPf8E+9J8mT4k/tQ/te+NpoirPF4Uv/g98P9PuGXG5JoNQ+F/j2+WB+QUg1SCYAjbcAjJAP8ziiv8AWf8AAP8AwaVf8EWvB3knxB8Gfi58VDFt3Hx98f8A4laf55XGTMPhjqvw4X5sfMIREvJACjivtfwF/wAEA/8AgjX8N/J/4R7/AIJ7/APUfIChP+E90zxD8VN23GPO/wCFoeIfGH2knHzG480vzv3ZOQD/ABia7bwb8M/iP8Rbr7F8Pvh/438dXm/y/sng3wpr3ie68w4wnkaJYX0u85Hy7N3I45r/AHGPAX7Cn7EXwq8j/hWH7HP7LHw5NsF+zt4F/Z8+EvhJ4duNpjfQfCNg6sCM7g24t8xJPNfUNnZWenWsNlp9pbWNlbIIre0s4Ira1t41+7HDbwIkUSDskaKo7CgD/Ea+Hn/BJX/gqD8VWgPgX/gnz+2Hq9pc7TBq93+z38T/AA/4fl3/AHdviTxJ4b0jQTwQx/4mQ2qQ7YUg197fDj/g18/4LbfEX7POf2PV8B6Zcbf+Jp8R/jP8DfDPkbsf8fGgr8RdQ8XRbQdzZ8OHGCvLjZX+vxRQB/l//Dj/AIMvP+CnXicQXPxA+Mn7H3wwspCvn2kvjr4neMvEcAPLFbDw/wDCUeH5tgyDjxYm58AfKS4++vhx/wAGOl6/2e6+Lv8AwUTtYMbftWifDj9nCa73Z5cW/inxP8YbPZjlVMng+TdncQu3Y3+gNRQB/Hj8OP8Agyw/4JteHRBcfEj4+ftgfEm9iKmW1sPFXwp8CeHrnGC4lsLL4Ua3r6BiML5HiuIopYEu211++fhx/wAGtH/BEv4emCe7/ZQ1f4jajb7dmo/Ef44fG/Vw5X7zT6Jovj7w94Wud5ALLcaBIg5EaopYH+hWigD84/hx/wAEfv8Aglh8J/s7+B/+Cev7INleWhU2ura18B/h74y1
++2ZOjweIvGeh+INdikOBukTUFdyMuzGvunwZ8Ofh78OLA6V8PPAfgzwHphCqdO8GeF9D8L2BVOEU2eh2NjbkIOFBjwvbFdnRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFZ2r6vpPh/StT17XtU07RND0WwvNV1jWdXvbbTdK0nS9Pt5Lu/wBS1PUb2WGzsLCxtYpbm8vLqaK3treKSaaRI0Zh+a//AAUn/wCCun7Ff/BLP4ff8JT+0n8RI5vH2s6bcXvw8+A3ghrLXvjH8RZIzLFFLpPhlry1i0Lw59phlgu/Gvi680Lwnaywy2Ueq3WsNaaVd/5lX/BU7/gvZ+3V/wAFcPFT/C2OXVPhH+znrPiCz07wR+yt8I7zVtS/4S69udQii8PxfErXLC1s9f8AjH4sub5rFbDSptOsPCVtqsVjP4b8EadrHm394Af1P/8A
+BXz/AIO5/hd8F/8AhKPgL/wTIj8P/Gv4pwfbNG1z9p/XLQan8FfBF2u+1nf4X6LN5Z+LuvWcnmvaeJb4W3wxt7iGyvbBfiVpV3cWsH40/wDBKn/ghP8Atnf8Fs/iyP29P+Cj3xI+K+j/ALPHi/VINfvfH/jjUbyX40/tKW8Eu630X4Ww6zDJB4N+FVtAPsEHjZdNh8OWOmLB4f8Ahf4f1CKK81Hwr+ln/BCz/g1QtNB/4Q79rf8A4KleEbbUdb/0DxL8Mv2NtXSO60zSCPLu9L1/9ouIF4NU1IHyruD4NxtJpliFht/iTNqNzNrHgPTP70bSztNPtLWwsLW3sbGyt4LOysrSCK2tLS0tolhtrW1toVSG3t7eFEiggiRIookWONVVQAAeT/AT4AfBj9l34TeDvgZ+z98OfDHwp+E/gHTE0rwt4L8J2IstNsYQTJc3l1K7zX2r61ql00uoa74h1m71DXdf1W4utV1rUb/Ubq4upfYKKKACiiigAr8yf2kP+CMv/BLT9rXXNS8VfHj9h/4F+J/F+tXNzfa7408N+H7z4W+N/EF/eO0lzqHiLxn8J9S8D+KNf1GV3Zmv9Y1a9vAxys6kDH6bUUAfgVon/Br/AP8ABDXQr5dQt/2ILa/mjIMcWt/tAftR61Ypg5+bTtS+NdxYTg8Ai6t5xgYAGW3fUvgr/gh9/wAEhvAIhGhf8E6v2Ur7yNuw+NPhR4f+JDHb0MrfESHxS054+YzGTceWzX6oUUAfNfgr9jH9j34aiIfDn9lH9mvwAINvkDwV8C/hf4VEO37vlDQvC1gI9uBt2bcY4xX0ZaWlpYW0NnY2tvZWlugjgtbSGO3toIx0SGCFUijQdlRVUdhViigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigA
+ooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAr+Qr/g5F/wCDg/4rf8E1vFWg/sb/ALJnhjSbb9ofx98L7D4j+Jfjf4usIda0n4T+FvE2seIvD/h+28EeEL+3k0jxN4/vpfDWqao2q+JVv/CnhqyGmxy+HvFF/qlwnh3+vWv5r/8Agvp/wRm/Y4/bp8P+Hv2pviinxN8G/HD4e2nhT4ZR+MPhX4o0LRD4u8DX/iqd9P0LxlpPinwj400i/wD+Eau/EGuXmg6rpNlomto+py2eq6lquk2mm6dYgH+Yl8Pfh1+2P/wU1/alh8MeEbL4o/tTftQ/GvXZb/UtS1bVb/xP4o1ecmFL/wASeLvFWvXZtNA8LaBaGE6l4g1/UtM8M+GNHghSa60/T7eCNP8ATh/4Ihf8G5fwG/4Jh6ToPxy+Nv8Awjnx5/bfvNPWWbx5JYvd+Afgg19bFL7w/wDBbTtVtorhtXEcsun6t8UtWsrXxNq1r51noFh4Q0bUNY0zVv0c/wCCWv8AwS2/Y9/4JmfA3TfDH7Mv
+gK6tvEfj7RdC1r4k/F3xxdaf4k+LvxEvJrKG9tbbxN4rtNJ0W2h0LSHuHXRvCvhvR/D/AIV06RrjUYdF/tnUdV1O/wD1AoAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigD//2Q==</ImageData>
+    </EmbeddedImage>
+  </EmbeddedImages>
+  <Language>es-MX</Language>
+  <ConsumeContainerWhitespace>true</ConsumeContainerWhitespace>
+  <rd:ReportUnitType>Cm</rd:ReportUnitType>
+  <rd:ReportID>ce050101-4530-4332-90ec-6ac094336e40</rd:ReportID>
+</Report>
\ No newline at end of file
diff --git a/Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc b/Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc
index 0a0262614..06e9c660e 100644
--- a/Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc
+++ b/Empresas/Grales/Formatos/RepSolicitudAnticipo.rdlc
@@ -1,884 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
-  <Body>
-    <ReportItems>
-      <Tablix Name="Tablix2">
-        <TablixCorner>
-          <TablixCornerRows>
-            <TablixCornerRow>
-              <TablixCornerCell>
-                <CellContents>
-                  <Textbox Name="Textbox28">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>OC</Value>
-                            <Style>
-                              <FontSize>8pt</FontSize>
-                              <FontWeight>Bold</FontWeight>
-                              <Color>White</Color>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Center</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Textbox28</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>None</Style>
-                      </Border>
-                      <BackgroundColor>Gray</BackgroundColor>
-                      <PaddingLeft>2pt</PaddingLeft>
-                      <PaddingRight>2pt</PaddingRight>
-                      <PaddingTop>2pt</PaddingTop>
-                      <PaddingBottom>2pt</PaddingBottom>
-                    </Style>
-                  </Textbox>
-                </CellContents>
-              </TablixCornerCell>
-            </TablixCornerRow>
-          </TablixCornerRows>
-        </TablixCorner>
-        <TablixBody>
-          <TablixColumns>
-            <TablixColumn>
-              <Width>7.36287cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>3.6966cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>2.91394cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>1.65333cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>2.5cm</Width>
-            </TablixColumn>
-          </TablixColumns>
-          <TablixRows>
-            <TablixRow>
-              <Height>0.46771cm</Height>
-              <TablixCells>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="RazonSocial">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!RazonSocial.Value</Value>
-                              <Style>
-                                <FontSize>7pt</FontSize>
-                                <Format>#,0.00</Format>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Left</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>RazonSocial</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="Nombre">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!Nombre.Value</Value>
-                              <Style>
-                                <FontSize>7pt</FontSize>
-                                <Format>#,0.00</Format>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Left</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Nombre</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="ImporteSol">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!ImporteSol.Value</Value>
-                              <Style>
-                                <FontSize>7pt</FontSize>
-                                <Format>'$'#,0.00</Format>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Right</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>ImporteSol</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                        <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="FolioMov">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!FolioMov.Value</Value>
-                              <Style>
-                                <FontSize>7pt</FontSize>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Left</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>FolioMov</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="Importe">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Fields!Importe.Value</Value>
-                              <Style>
-                                <FontSize>7pt</FontSize>
-                                <Format>#,0.00</Format>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Right</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Importe</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                    <rd:Selected>true</rd:Selected>
-                  </CellContents>
-                </TablixCell>
-              </TablixCells>
-            </TablixRow>
-          </TablixRows>
-        </TablixBody>
-        <TablixColumnHierarchy>
-          <TablixMembers>
-            <TablixMember>
-              <TablixHeader>
-                <Size>0.46771cm</Size>
-                <CellContents>
-                  <Textbox Name="Textbox6">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>Proveedor</Value>
-                            <Style>
-                              <FontSize>8pt</FontSize>
-                              <FontWeight>Bold</FontWeight>
-                              <Color>White</Color>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Center</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Textbox6</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>None</Style>
-                      </Border>
-                      <BackgroundColor>Gray</BackgroundColor>
-                      <PaddingLeft>2pt</PaddingLeft>
-                      <PaddingRight>2pt</PaddingRight>
-                      <PaddingTop>2pt</PaddingTop>
-                      <PaddingBottom>2pt</PaddingBottom>
-                    </Style>
-                  </Textbox>
-                </CellContents>
-              </TablixHeader>
-            </TablixMember>
-            <TablixMember>
-              <TablixHeader>
-                <Size>0.46771cm</Size>
-                <CellContents>
-                  <Textbox Name="Textbox4">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>Usuario Solicitó</Value>
-                            <Style>
-                              <FontSize>8pt</FontSize>
-                              <FontWeight>Bold</FontWeight>
-                              <Color>White</Color>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Center</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Textbox4</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>None</Style>
-                      </Border>
-                      <BackgroundColor>Gray</BackgroundColor>
-                      <PaddingLeft>2pt</PaddingLeft>
-                      <PaddingRight>2pt</PaddingRight>
-                      <PaddingTop>2pt</PaddingTop>
-                      <PaddingBottom>2pt</PaddingBottom>
-                    </Style>
-                  </Textbox>
-                </CellContents>
-              </TablixHeader>
-            </TablixMember>
-            <TablixMember>
-              <TablixHeader>
-                <Size>0.46771cm</Size>
-                <CellContents>
-                  <Textbox Name="Textbox40">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>Importe Solicitud</Value>
-                            <Style>
-                              <FontSize>8pt</FontSize>
-                              <FontWeight>Bold</FontWeight>
-                              <Color>White</Color>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Center</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Textbox40</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>None</Style>
-                      </Border>
-                      <BackgroundColor>Gray</BackgroundColor>
-                      <PaddingLeft>2pt</PaddingLeft>
-                      <PaddingRight>2pt</PaddingRight>
-                      <PaddingTop>2pt</PaddingTop>
-                      <PaddingBottom>2pt</PaddingBottom>
-                    </Style>
-                  </Textbox>
-                </CellContents>
-              </TablixHeader>
-            </TablixMember>
-            <TablixMember>
-              <TablixHeader>
-                <Size>0.46771cm</Size>
-                <CellContents>
-                  <Textbox Name="Textbox5">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>Mov. Banc.</Value>
-                            <Style>
-                              <FontSize>8pt</FontSize>
-                              <FontWeight>Bold</FontWeight>
-                              <Color>White</Color>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Center</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Textbox5</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>None</Style>
-                      </Border>
-                      <BackgroundColor>Gray</BackgroundColor>
-                      <PaddingLeft>2pt</PaddingLeft>
-                      <PaddingRight>2pt</PaddingRight>
-                      <PaddingTop>2pt</PaddingTop>
-                      <PaddingBottom>2pt</PaddingBottom>
-                    </Style>
-                  </Textbox>
-                </CellContents>
-              </TablixHeader>
-              <Visibility>
-                <Hidden>=IIf(Parameters!Estatus.Value = "3",False,True)</Hidden>
-              </Visibility>
-            </TablixMember>
-            <TablixMember>
-              <TablixHeader>
-                <Size>0.46771cm</Size>
-                <CellContents>
-                  <Textbox Name="Textbox18">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>Importe</Value>
-                            <Style>
-                              <FontSize>8pt</FontSize>
-                              <FontWeight>Bold</FontWeight>
-                              <Color>White</Color>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Center</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Textbox18</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>None</Style>
-                      </Border>
-                      <BackgroundColor>Gray</BackgroundColor>
-                      <PaddingLeft>2pt</PaddingLeft>
-                      <PaddingRight>2pt</PaddingRight>
-                      <PaddingTop>2pt</PaddingTop>
-                      <PaddingBottom>2pt</PaddingBottom>
-                    </Style>
-                  </Textbox>
-                </CellContents>
-              </TablixHeader>
-              <Visibility>
-                <Hidden>=IIf(Parameters!Estatus.Value = "3",False,True)</Hidden>
-              </Visibility>
-            </TablixMember>
-          </TablixMembers>
-        </TablixColumnHierarchy>
-        <TablixRowHierarchy>
-          <TablixMembers>
-            <TablixMember>
-              <Group Name="GPO" />
-              <TablixHeader>
-                <Size>1.60042cm</Size>
-                <CellContents>
-                  <Textbox Name="Folio">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>=Fields!Folio.Value</Value>
-                            <Style>
-                              <FontSize>7pt</FontSize>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Left</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Folio</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>None</Style>
-                      </Border>
-                      <PaddingLeft>2pt</PaddingLeft>
-                      <PaddingRight>2pt</PaddingRight>
-                      <PaddingTop>2pt</PaddingTop>
-                      <PaddingBottom>2pt</PaddingBottom>
-                    </Style>
-                  </Textbox>
-                </CellContents>
-              </TablixHeader>
-            </TablixMember>
-          </TablixMembers>
-        </TablixRowHierarchy>
-        <RepeatColumnHeaders>true</RepeatColumnHeaders>
-        <FixedColumnHeaders>true</FixedColumnHeaders>
-        <DataSetName>DataSet1</DataSetName>
-        <Top>0.82931cm</Top>
-        <Left>0.06614cm</Left>
-        <Height>0.93542cm</Height>
-        <Width>19.72716cm</Width>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Tablix>
-      <Textbox Name="Textbox3">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>=Parameters!AgrupadoPor.Value</Value>
-                <MarkupType>HTML</MarkupType>
-                <Style>
-                  <FontSize>9pt</FontSize>
-                  <FontWeight>Normal</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>0.07056cm</Top>
-        <Left>0.06614cm</Left>
-        <Height>0.58236cm</Height>
-        <Width>19.58715cm</Width>
-        <ZIndex>1</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-    </ReportItems>
-    <Height>0.79506in</Height>
-    <Style />
-  </Body>
-  <Width>7.79264in</Width>
-  <Page>
-    <PageHeader>
-      <Height>2.22362cm</Height>
-      <PrintOnFirstPage>true</PrintOnFirstPage>
-      <ReportItems>
-        <Textbox Name="Textbox1">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>=Parameters!NombreEmpresa.Value</Value>
-                  <Style>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Center</TextAlign>
-              </Style>
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox1</rd:DefaultName>
-          <Left>2.43857cm</Left>
-          <Height>0.6cm</Height>
-          <Width>14.68354cm</Width>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox2">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>REPORTE  DE SOLICITUDES DE ANTICIPO</Value>
-                  <Style>
-                    <FontSize>10.5pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Center</TextAlign>
-              </Style>
-            </Paragraph>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value />
-                  <Style>
-                    <FontSize>10.5pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Center</TextAlign>
-              </Style>
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox2</rd:DefaultName>
-          <Top>0.63528cm</Top>
-          <Left>2.40329cm</Left>
-          <Height>0.52945cm</Height>
-          <Width>14.68354cm</Width>
-          <ZIndex>1</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Image Name="Logo">
-          <Source>External</Source>
-          <Value>=Parameters!LogoPath.Value</Value>
-          <Sizing>FitProportional</Sizing>
-          <Left>0.06614cm</Left>
-          <Height>2.22362cm</Height>
-          <Width>2.33715cm</Width>
-          <ZIndex>2</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-          </Style>
-        </Image>
-      </ReportItems>
-      <Style>
-        <Border>
-          <Style>None</Style>
-        </Border>
-      </Style>
-    </PageHeader>
-    <PageFooter>
-      <Height>1.61043cm</Height>
-      <PrintOnFirstPage>true</PrintOnFirstPage>
-      <PrintOnLastPage>true</PrintOnLastPage>
-      <ReportItems>
-        <Textbox Name="Textbox7">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>="Página " &amp; Globals.PageNumber &amp; " de " &amp; Globals.TotalPages</Value>
-                  <Style>
-                    <FontStyle>Italic</FontStyle>
-                    <FontSize>8pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Right</TextAlign>
-              </Style>
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>0.40041cm</Top>
-          <Left>16.97887cm</Left>
-          <Height>0.68085cm</Height>
-          <Width>2.06587cm</Width>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox8">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value EvaluationMode="Constant">Usuario:</Value>
-                  <Style>
-                    <FontSize>9pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox8</rd:DefaultName>
-          <Top>0.40041cm</Top>
-          <Left>0.06614cm</Left>
-          <Height>0.68085cm</Height>
-          <Width>1.60042cm</Width>
-          <ZIndex>1</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox9">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>=Parameters!UsuarioImprimio.Value</Value>
-                  <Style>
-                    <FontSize>9pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox9</rd:DefaultName>
-          <Top>0.40041cm</Top>
-          <Left>1.61047cm</Left>
-          <Height>0.68085cm</Height>
-          <Width>5.14936cm</Width>
-          <ZIndex>2</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox10">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value EvaluationMode="Constant">Fecha Impresión:</Value>
-                  <Style>
-                    <FontSize>9pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox10</rd:DefaultName>
-          <Top>0.40041cm</Top>
-          <Left>6.93622cm</Left>
-          <Height>0.68085cm</Height>
-          <Width>2.92333cm</Width>
-          <ZIndex>3</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox11">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>=Globals!ExecutionTime</Value>
-                  <Style>
-                    <FontSize>9pt</FontSize>
-                    <Format>g</Format>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox11</rd:DefaultName>
-          <Top>0.40041cm</Top>
-          <Left>9.84544cm</Left>
-          <Height>0.68085cm</Height>
-          <Width>4.32745cm</Width>
-          <ZIndex>4</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox12">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>IMPRESO EN SIG, Rep. Solicitudes Anticipo</Value>
-                  <Style>
-                    <FontSize>9pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox9</rd:DefaultName>
-          <Top>0.92958cm</Top>
-          <Left>0.06614cm</Left>
-          <Height>0.68085cm</Height>
-          <Width>6.87008cm</Width>
-          <ZIndex>5</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
-        <Line Name="Line1">
-          <Top>0.40041cm</Top>
-          <Left>0.06614cm</Left>
-          <Height>0cm</Height>
-          <Width>19.58715cm</Width>
-          <ZIndex>6</ZIndex>
-          <Style>
-            <Border>
-              <Style>Solid</Style>
-            </Border>
-          </Style>
-        </Line>
-      </ReportItems>
-      <Style>
-        <Border>
-          <Style>None</Style>
-        </Border>
-      </Style>
-    </PageFooter>
-    <PageHeight>29.7cm</PageHeight>
-    <PageWidth>21cm</PageWidth>
-    <LeftMargin>0.5cm</LeftMargin>
-    <RightMargin>0.5cm</RightMargin>
-    <TopMargin>1cm</TopMargin>
-    <BottomMargin>1cm</BottomMargin>
-    <ColumnSpacing>0.13cm</ColumnSpacing>
-    <Style />
-  </Page>
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet">
@@ -896,28 +17,48 @@
         <CommandText>/* Local Query */</CommandText>
       </Query>
       <Fields>
+        <Field Name="CveOrdenCompra">
+          <DataField>CveOrdenCompra</DataField>
+          <rd:TypeName>System.Int32</rd:TypeName>
+        </Field>
         <Field Name="Folio">
           <DataField>Folio</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
+          <rd:TypeName>System.Int32</rd:TypeName>
         </Field>
         <Field Name="RazonSocial">
           <DataField>RazonSocial</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="Nombre">
-          <DataField>Nombre</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="ImporteSol">
-          <DataField>ImporteSol</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
         <Field Name="FolioMov">
           <DataField>FolioMov</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
         <Field Name="Importe">
           <DataField>Importe</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="CveIE">
+          <DataField>CveIE</DataField>
+          <rd:TypeName>System.Int32</rd:TypeName>
+        </Field>
+        <Field Name="Nombre">
+          <DataField>Nombre</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Descripcion">
+          <DataField>Descripcion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="ImporteSol">
+          <DataField>ImporteSol</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Abreviatura">
+          <DataField>Abreviatura</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SubProyecto">
+          <DataField>SubProyecto</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>
@@ -931,6 +72,1038 @@
       </rd:DataSetInfo>
     </DataSet>
   </DataSets>
+  <ReportSections>
+    <ReportSection>
+      <Body>
+        <ReportItems>
+          <Tablix Name="Tablix2">
+            <TablixCorner>
+              <TablixCornerRows>
+                <TablixCornerRow>
+                  <TablixCornerCell>
+                    <CellContents>
+                      <Textbox Name="Textbox28">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>OC</Value>
+                                <Style>
+                                  <FontSize>8pt</FontSize>
+                                  <FontWeight>Bold</FontWeight>
+                                  <Color>White</Color>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style>
+                              <TextAlign>Center</TextAlign>
+                            </Style>
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>Textbox28</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <BackgroundColor>Gray</BackgroundColor>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixCornerCell>
+                </TablixCornerRow>
+              </TablixCornerRows>
+            </TablixCorner>
+            <TablixBody>
+              <TablixColumns>
+                <TablixColumn>
+                  <Width>5.26966cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>3.98929cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.5cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>3.6966cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.91394cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>1.25645cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.23542cm</Width>
+                </TablixColumn>
+              </TablixColumns>
+              <TablixRows>
+                <TablixRow>
+                  <Height>0.46771cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="RazonSocial">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!RazonSocial.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <Format>#,0.00</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>RazonSocial</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="Descripcion">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Descripcion.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Descripcion</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="SubProyecto">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!SubProyecto.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>SubProyecto</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="Nombre">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Nombre.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <Format>#,0.00</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Nombre</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="ImporteSol">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!ImporteSol.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <Format>'$'#,0.00</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>ImporteSol</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                            <rd:FormatSymbolCulture>es-MX</rd:FormatSymbolCulture>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="FolioMov">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!FolioMov.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>FolioMov</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="Importe">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Importe.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <Format>#,0.00</Format>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Importe</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
+              </TablixRows>
+            </TablixBody>
+            <TablixColumnHierarchy>
+              <TablixMembers>
+                <TablixMember>
+                  <TablixHeader>
+                    <Size>0.46771cm</Size>
+                    <CellContents>
+                      <Textbox Name="Textbox6">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>Proveedor</Value>
+                                <Style>
+                                  <FontSize>8pt</FontSize>
+                                  <FontWeight>Bold</FontWeight>
+                                  <Color>White</Color>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style>
+                              <TextAlign>Center</TextAlign>
+                            </Style>
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>Textbox6</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <BackgroundColor>Gray</BackgroundColor>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixHeader>
+                </TablixMember>
+                <TablixMember>
+                  <TablixHeader>
+                    <Size>0.46771cm</Size>
+                    <CellContents>
+                      <Textbox Name="Textbox13">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>Descripcion</Value>
+                                <Style>
+                                  <FontSize>8pt</FontSize>
+                                  <FontWeight>Bold</FontWeight>
+                                  <Color>White</Color>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style>
+                              <TextAlign>Center</TextAlign>
+                            </Style>
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>Textbox13</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <BackgroundColor>Gray</BackgroundColor>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixHeader>
+                </TablixMember>
+                <TablixMember>
+                  <TablixHeader>
+                    <Size>0.46771cm</Size>
+                    <CellContents>
+                      <Textbox Name="Textbox15">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>Sub Proyecto</Value>
+                                <Style>
+                                  <FontSize>8pt</FontSize>
+                                  <FontWeight>Bold</FontWeight>
+                                  <Color>White</Color>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style>
+                              <TextAlign>Center</TextAlign>
+                            </Style>
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>Textbox15</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <BackgroundColor>Gray</BackgroundColor>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixHeader>
+                </TablixMember>
+                <TablixMember>
+                  <TablixHeader>
+                    <Size>0.46771cm</Size>
+                    <CellContents>
+                      <Textbox Name="Textbox4">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>Usuario Solicitó</Value>
+                                <Style>
+                                  <FontSize>8pt</FontSize>
+                                  <FontWeight>Bold</FontWeight>
+                                  <Color>White</Color>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style>
+                              <TextAlign>Center</TextAlign>
+                            </Style>
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>Textbox4</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <BackgroundColor>Gray</BackgroundColor>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixHeader>
+                </TablixMember>
+                <TablixMember>
+                  <TablixHeader>
+                    <Size>0.46771cm</Size>
+                    <CellContents>
+                      <Textbox Name="Textbox40">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>Importe Solicitud</Value>
+                                <Style>
+                                  <FontSize>8pt</FontSize>
+                                  <FontWeight>Bold</FontWeight>
+                                  <Color>White</Color>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style>
+                              <TextAlign>Center</TextAlign>
+                            </Style>
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>Textbox40</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <BackgroundColor>Gray</BackgroundColor>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixHeader>
+                </TablixMember>
+                <TablixMember>
+                  <TablixHeader>
+                    <Size>0.46771cm</Size>
+                    <CellContents>
+                      <Textbox Name="Textbox5">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>Mov. Banc.</Value>
+                                <Style>
+                                  <FontSize>8pt</FontSize>
+                                  <FontWeight>Bold</FontWeight>
+                                  <Color>White</Color>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style>
+                              <TextAlign>Center</TextAlign>
+                            </Style>
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>Textbox5</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <BackgroundColor>Gray</BackgroundColor>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixHeader>
+                  <Visibility>
+                    <Hidden>=IIf(Parameters!Estatus.Value = "3",False,True)</Hidden>
+                  </Visibility>
+                </TablixMember>
+                <TablixMember>
+                  <TablixHeader>
+                    <Size>0.46771cm</Size>
+                    <CellContents>
+                      <Textbox Name="Textbox18">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>Importe</Value>
+                                <Style>
+                                  <FontSize>8pt</FontSize>
+                                  <FontWeight>Bold</FontWeight>
+                                  <Color>White</Color>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style>
+                              <TextAlign>Center</TextAlign>
+                            </Style>
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>Textbox18</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <BackgroundColor>Gray</BackgroundColor>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixHeader>
+                  <Visibility>
+                    <Hidden>=IIf(Parameters!Estatus.Value = "3",False,True)</Hidden>
+                  </Visibility>
+                </TablixMember>
+              </TablixMembers>
+            </TablixColumnHierarchy>
+            <TablixRowHierarchy>
+              <TablixMembers>
+                <TablixMember>
+                  <Group Name="GPO" />
+                  <TablixHeader>
+                    <Size>1.42403cm</Size>
+                    <CellContents>
+                      <Textbox Name="Folio">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>=Fields!Folio.Value</Value>
+                                <Style>
+                                  <FontSize>7pt</FontSize>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style>
+                              <TextAlign>Left</TextAlign>
+                            </Style>
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>Folio</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixHeader>
+                </TablixMember>
+              </TablixMembers>
+            </TablixRowHierarchy>
+            <RepeatColumnHeaders>true</RepeatColumnHeaders>
+            <FixedColumnHeaders>true</FixedColumnHeaders>
+            <DataSetName>DataSet1</DataSetName>
+            <Top>0.82931cm</Top>
+            <Left>0.06614cm</Left>
+            <Height>0.93542cm</Height>
+            <Width>23.28539cm</Width>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Tablix>
+          <Textbox Name="Textbox3">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>=Parameters!AgrupadoPor.Value</Value>
+                    <MarkupType>HTML</MarkupType>
+                    <Style>
+                      <FontSize>9pt</FontSize>
+                      <FontWeight>Normal</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style>
+                  <TextAlign>Left</TextAlign>
+                </Style>
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox1</rd:DefaultName>
+            <Top>0.07056cm</Top>
+            <Left>0.06614cm</Left>
+            <Height>0.58236cm</Height>
+            <Width>19.58715cm</Width>
+            <ZIndex>1</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
+        </ReportItems>
+        <Height>0.79506in</Height>
+        <Style />
+      </Body>
+      <Width>9.19352in</Width>
+      <Page>
+        <PageHeader>
+          <Height>2.22362cm</Height>
+          <PrintOnFirstPage>true</PrintOnFirstPage>
+          <ReportItems>
+            <Textbox Name="Textbox1">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>=Parameters!NombreEmpresa.Value</Value>
+                      <Style>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Center</TextAlign>
+                  </Style>
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox1</rd:DefaultName>
+              <Left>2.43857cm</Left>
+              <Height>0.6cm</Height>
+              <Width>14.68354cm</Width>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Textbox Name="Textbox2">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>REPORTE  DE SOLICITUDES DE ANTICIPO</Value>
+                      <Style>
+                        <FontSize>10.5pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Center</TextAlign>
+                  </Style>
+                </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value />
+                      <Style>
+                        <FontSize>10.5pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Center</TextAlign>
+                  </Style>
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox2</rd:DefaultName>
+              <Top>0.63528cm</Top>
+              <Left>2.40329cm</Left>
+              <Height>0.52945cm</Height>
+              <Width>14.68354cm</Width>
+              <ZIndex>1</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Image Name="Logo">
+              <Source>External</Source>
+              <Value>=Parameters!LogoPath.Value</Value>
+              <Sizing>FitProportional</Sizing>
+              <Left>0.06614cm</Left>
+              <Height>2.22362cm</Height>
+              <Width>2.33715cm</Width>
+              <ZIndex>2</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+              </Style>
+            </Image>
+          </ReportItems>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+          </Style>
+        </PageHeader>
+        <PageFooter>
+          <Height>1.61043cm</Height>
+          <PrintOnFirstPage>true</PrintOnFirstPage>
+          <PrintOnLastPage>true</PrintOnLastPage>
+          <ReportItems>
+            <Textbox Name="Textbox7">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>="Página " &amp; Globals.PageNumber &amp; " de " &amp; Globals.TotalPages</Value>
+                      <Style>
+                        <FontStyle>Italic</FontStyle>
+                        <FontSize>8pt</FontSize>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Right</TextAlign>
+                  </Style>
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox3</rd:DefaultName>
+              <Top>0.40041cm</Top>
+              <Left>16.97887cm</Left>
+              <Height>0.68085cm</Height>
+              <Width>2.06587cm</Width>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Textbox Name="Textbox8">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value EvaluationMode="Constant">Usuario:</Value>
+                      <Style>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox8</rd:DefaultName>
+              <Top>0.40041cm</Top>
+              <Left>0.06614cm</Left>
+              <Height>0.68085cm</Height>
+              <Width>1.60042cm</Width>
+              <ZIndex>1</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Textbox Name="Textbox9">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>=Parameters!UsuarioImprimio.Value</Value>
+                      <Style>
+                        <FontSize>9pt</FontSize>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox9</rd:DefaultName>
+              <Top>0.40041cm</Top>
+              <Left>1.61047cm</Left>
+              <Height>0.68085cm</Height>
+              <Width>5.14936cm</Width>
+              <ZIndex>2</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Textbox Name="Textbox10">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value EvaluationMode="Constant">Fecha Impresión:</Value>
+                      <Style>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox10</rd:DefaultName>
+              <Top>0.40041cm</Top>
+              <Left>6.93622cm</Left>
+              <Height>0.68085cm</Height>
+              <Width>2.92333cm</Width>
+              <ZIndex>3</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Textbox Name="Textbox11">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>=Globals!ExecutionTime</Value>
+                      <Style>
+                        <FontSize>9pt</FontSize>
+                        <Format>g</Format>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox11</rd:DefaultName>
+              <Top>0.40041cm</Top>
+              <Left>9.84544cm</Left>
+              <Height>0.68085cm</Height>
+              <Width>4.32745cm</Width>
+              <ZIndex>4</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Textbox Name="Textbox12">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>IMPRESO EN SIG, Rep. Solicitudes Anticipo</Value>
+                      <Style>
+                        <FontSize>9pt</FontSize>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox9</rd:DefaultName>
+              <Top>0.92958cm</Top>
+              <Left>0.06614cm</Left>
+              <Height>0.68085cm</Height>
+              <Width>6.87008cm</Width>
+              <ZIndex>5</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Line Name="Line1">
+              <Top>0.40041cm</Top>
+              <Left>0.06614cm</Left>
+              <Height>0cm</Height>
+              <Width>19.58715cm</Width>
+              <ZIndex>6</ZIndex>
+              <Style>
+                <Border>
+                  <Style>Solid</Style>
+                </Border>
+              </Style>
+            </Line>
+          </ReportItems>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+          </Style>
+        </PageFooter>
+        <PageHeight>29.7cm</PageHeight>
+        <PageWidth>21cm</PageWidth>
+        <LeftMargin>0.5cm</LeftMargin>
+        <RightMargin>0.5cm</RightMargin>
+        <TopMargin>1cm</TopMargin>
+        <BottomMargin>1cm</BottomMargin>
+        <ColumnSpacing>0.13cm</ColumnSpacing>
+        <Style />
+      </Page>
+    </ReportSection>
+  </ReportSections>
   <ReportParameters>
     <ReportParameter Name="NombreEmpresa">
       <DataType>String</DataType>
diff --git a/GPS/WizardDispositivos.aspx.cs b/GPS/WizardDispositivos.aspx.cs
index d82f32cbb..d5d2dcbf0 100644
--- a/GPS/WizardDispositivos.aspx.cs
+++ b/GPS/WizardDispositivos.aspx.cs
@@ -153,7 +153,7 @@ public partial class GPS_WizardDispositivos : ClsPaginas
         if (CveDispositivo < 0)
         {
             TabContainer.ActiveTabIndex = 0;
-            Alert("Debe guardar el dispositivo primero");
+            Alert("Debe guardar el dispositivo primero",ModExtensiones.TipoMensaje.MsgAdvertencia );
         }
     }
 
@@ -376,7 +376,13 @@ public partial class GPS_WizardDispositivos : ClsPaginas
                 CargaDatos(CveDispositivo);
                 Updatos.Update();
                 string script = "";
-                if (GPSNEW == 1) { TabContainer.ActiveTabIndex = 1; script = $"RegresaValor({CveDispositivo})"; }
+                if (GPSNEW == 1) { 
+                    TabContainer.ActiveTabIndex = 1; script = $"RegresaValor({CveDispositivo})";
+                    ClsSisMail correo = new ClsSisMail();
+                    Correo.SendMail(UsuarioActual.EmpresaNotificaciones, "paola@adssistemas.mx;Caudillo.90d@gmail.com", "Alta nuevo dispositivo", 
+                        $"se le informa la alta de un nuevo dispositivo en la empresa \"{UsuarioActual.Empresa.Empresa}\"\r\nIMEI : \"{IMEI}\"\r\nSerie : \"{Serie}\"\r\nModelo : \"{modelo}\"");
+
+                }
 
                 Alert("El dispositivo y sus configuraciones, se han guardado correctamente", ModExtensiones.TipoMensaje.MsgInformacion, script);
                 if (TipoDispositivo == 2)
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index 9fc766030..3ba282c5d 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
     End Sub
 
     Private Sub CargaCombos()
-        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,14,16)")
+        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,12,14,16)")
 
         DdlAlmacen.DataSource = DtAlmacenes
         DdlAlmacen.DataBind()
@@ -174,9 +174,9 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         If Lista.ContainsKey(CvePS) Then
                             ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
                         End If
-                        'If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
-                        '    ErrorMovInv = True
-                        'End If
+                        If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
+                            ErrorMovInv = True
+                        End If
 
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                             ErrorMovInv = True
@@ -447,9 +447,9 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
                                             'ACTUALIZAMOS EL PS, PARA QUE TENGA EL APLICA SECCION
                                             ErrorMovInv = Not ObjPS.UpdateAplicaSeccionAlmacen(CvePS, UsuarioActual.CveEmpresa, True)
-                                            'If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
-                                            '    ErrorMovInv = True
-                                            'End If
+                                            If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
+                                                ErrorMovInv = True
+                                            End If
 
                                             If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, CantidadEntrada, CveUMEntrada, CvePSEntrada, PUEntrada, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                                 ErrorMovInv = True
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 8bdefd9e1..48be46fa4 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -952,7 +952,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 ElseIf CveTipoCompra = 10 Then
                     CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra)
                 ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor
-                    CargaAlmacenes(-1, "21,2", CveTipoCompra)
+                    CargaAlmacenes(-1, "21,2,27", CveTipoCompra)
                 Else
                     CargaAlmacenes(-1)
                 End If
@@ -1021,6 +1021,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
                         DivDocumentos.Visible = True
+                        UpDocumentos.Update()
                     End If
 
                     DtDatosDetalle = Nothing
@@ -1184,6 +1185,11 @@ Partial Class Inventarios_RecepcionAlmacen
                     DivCodigoSeriePS.Visible = False
                 End If
 
+                If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+                    DivDocumentos.Visible = True
+                    UpDocumentos.Update()
+                End If
+
             End If
         Else
             BtnGuardar.Visible = False
@@ -1235,6 +1241,11 @@ Partial Class Inventarios_RecepcionAlmacen
                     DivCodigoSeriePS.Visible = False
                 End If
 
+                If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+                    DivDocumentos.Visible = True
+                    UpDocumentos.Update()
+                End If
+
             End If
         Else
             BtnGuardar.Visible = False
@@ -4072,6 +4083,13 @@ Partial Class Inventarios_RecepcionAlmacen
                     Else
                         DivCodigoSeriePS.Visible = False
                     End If
+
+                    If UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
+                        DivDocumentos.Visible = True
+                        UpDocumentos.Update()
+                    End If
+
+
                     CargaGVInv()
 
                 Else
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 6f5438acc..35736ad6d 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -882,7 +882,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 dtvirtual = ObjInventario.DtResultados
 
                 If dtvirtual.Rows.Count > 0 Then
-                    CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
+                    CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida, CveAlmacenDestino:=CveAlmacenVirtualEntrada)
                     FolioVirtualSalida = ObjInventario.Folio
 
                     For Each RowVirtual As DataRow In dtvirtual.Rows
@@ -1747,11 +1747,11 @@ Partial Class Inventarios_TraspasoAlmacen
                         TextoError = "Ocurrió un error al cancelar el traspaso"
                     End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
-                                                     CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImporteDecimal) Then
-                        ErrorMovInv = True
-                        TextoError = "Ocurrió un error al cancelar el traspaso"
-                    End If
+                    'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
+                    '                                 CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImporteDecimal) Then
+                    '    ErrorMovInv = True
+                    '    TextoError = "Ocurrió un erro al cancelar el traspaso"
+                    'End If
                 End If
 
             End If
@@ -1842,7 +1842,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             Dim RealizarMovimientoVirtual As Boolean = False
 
-            If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
+            If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
                 RealizarMovimientoVirtual = True
             End If
 
@@ -1926,10 +1926,10 @@ Partial Class Inventarios_TraspasoAlmacen
                         End If
 
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then
-                                ErrorMovInv = True
-                            End If
+                            ErrorMovInv = True
                         End If
                     End If
+                End If
             End If
 
 
@@ -2858,7 +2858,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
     Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
+        Dim excelFile As ExcelFile = excelFile.Load(flatFilePath)
 
         Dim unnamed As Integer = 0
         Dim cols As Integer
diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index 24098a9de..e82ce6868 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -198,13 +198,13 @@ Partial Class LogIn
             Dim Usuario As Usuario = Nothing
             'Dim UsuarioAsignaciones As Usuario = Nothing
 
-            Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI)
+            Dim isgps = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper())
+            Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI, CvePlataforma:=If(isgps, 3, 1))
             'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa)
 
             ADSSessionConfig.sessionUser = Usuario
             ADSSessionConfig.sessionDpage = False
             ObjUsuario.Dispose()
-
             If Usuario IsNot Nothing Then
                 If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then
 
@@ -265,7 +265,6 @@ Partial Class LogIn
             End If
         End If
     End Sub
-
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
 
         Dim ObjEmpresa As New ClsSisEmpresas()
diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs
index 936840f8f..1b4a6e3b2 100644
--- a/Nomina/Nomina2.aspx.cs
+++ b/Nomina/Nomina2.aspx.cs
@@ -319,6 +319,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
     protected void DdlTipoPeriodo_SelectedIndexChanged(object sender, EventArgs e)
     {
         cargaPeriodos();
+        DdlEjercicios.AutoPostBack = true;
     }
 
     protected void DdlPeriodo_SelectedIndexChanged(object sender, EventArgs e)
@@ -3974,7 +3975,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
     {
 
         bool continuar = true;
-        DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", FiltroCvePersonal), "", new string[] { "CvePersonal", "CveMetodoPago" });
+        string[] getcolumnas = new string[] { "CvePersonal", "CveMetodoPago", "SumaPercepciones", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" };
+   
+        DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", FiltroCvePersonal), "", getcolumnas);
         DataTable dtconp = null;
         int CvePeriodoSeleccionado = DdlPeriodo.SelectedValue.ToEntero();//cambiar reparar
         #region PropNomina
@@ -4003,7 +4006,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 Total = rtemp["Total"].ToString().ToDouble();
                 if (CvePersonal > 0)
                 {
-
                     if (continuar)
                     {
                         if (objNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodoSeleccionado, -1, UsuarioActual.CveEmpresa))
diff --git a/OC/RepSolicitudesAnticipo.aspx b/OC/RepSolicitudesAnticipo.aspx
index c5dff3a24..940525eab 100644
--- a/OC/RepSolicitudesAnticipo.aspx
+++ b/OC/RepSolicitudesAnticipo.aspx
@@ -117,7 +117,9 @@
                             <asp:HyperLink ID="HplNum" runat="server" CssClass="Texto"  Target="_blank" NavigateUrl='<%# Eval("CveOrdenCompra", "/OC/OC.aspx?OC={0}")%>' Text='<%# Eval("Folio") %>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField> 
-                    <asp:BoundField DataField="RazonSocial" HeaderText="Proveedor" ItemStyle-Width="50%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="RazonSocial" HeaderText="Proveedor" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Nombre" HeaderText="Usuario Solicitó" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="ImporteSol" HeaderText="Importe Solicitud" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Right" /> 
                     <asp:TemplateField HeaderText="Folio Mov. Banc." ItemStyle-Width="10%" Visible="false">
@@ -125,12 +127,12 @@
                             <asp:HyperLink ID="HplNum" runat="server" CssClass="Texto"  Target="_blank" NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>' Text='<%# Eval("FolioMov") %>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField> 
-                    <asp:TemplateField HeaderText="Importe" ItemStyle-Width="20%" Visible="false" ItemStyle-HorizontalAlign="Right">
+                    <asp:TemplateField HeaderText="Importe" ItemStyle-Width="10%" Visible="false" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Label runat="server" CssClass="Texto"  Text='<%# Eval("Importe", "${0:N2}") %>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                     <asp:TemplateField HeaderText="Moneda" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left">
+                     <asp:TemplateField HeaderText="Moneda" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:Label runat="server" CssClass="Texto"  Text='<%# Eval("Abreviatura") %>'></asp:Label>
                         </ItemTemplate>
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index bdcf23ec5..f98389e8e 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -3923,12 +3923,21 @@
                                 </div>
                             </div>
                             <br />
+                            <div runat="server" id="divSerie" class="row" style="width: 100%;" visible="false">
+                                <div class="col-md-1" style="width: 30%; text-align: right">
+                                    <asp:Label Text="Serie: " runat="server" />
+                                </div>
+                                <div class="col-md-1" style="width: 70%">
+                                    <asp:TextBox runat="server" ID="TxtLiberarSerie" CssClass="form-control input-sm " Width="100%"></asp:TextBox>
+                                </div>
+                            </div>
+                            <br />
                             <div class="row" style="width: 100%;">
                                 <div class="col-md-1" style="width: 30%; text-align: right">
                                     <asp:Label runat="server" ID="LblCantidadResguardo">Cantidad:</asp:Label>
                                 </div>
                                 <div class="col-md-1" style="width: 70%">
-                                    <asp:TextBox runat="server" ID="TxtCantidadResguardo" CssClass="form-control " Width="100%"></asp:TextBox>
+                                    <asp:TextBox runat="server" ID="TxtCantidadResguardo" CssClass="form-control input-sm " Width="100%"></asp:TextBox>
                                     <asp:RangeValidator ID="RvTxtCantidadResguardo" Display="Dynamic" ControlToValidate="TxtCantidadResguardo" runat="server" MinimumValue="0" MaximumValue="1" Type="Integer" ErrorMessage="Se supera la cantidad maxima disponibled" ValidationGroup="GpoResguardo"></asp:RangeValidator>
                                 </div>
                             </div>
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 2b7ec2eb7..0224875e2 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1,1095 +1,1104 @@
-Option Explicit On
-Option Strict On
-
-Imports Extensiones
-'Imports System.Runtime.InteropServices
-Imports System.IO
-'Imports Word = Microsoft.Office.Interop.Word
-Imports System.Data
-Imports Microsoft.Reporting.WebForms
-Imports System.Globalization
-Imports System.Xml
-Imports System.Web.Script.Services
-
-Partial Class RH_Personal
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+'Imports System.Runtime.InteropServices
+Imports System.IO
+'Imports Word = Microsoft.Office.Interop.Word
+Imports System.Data
+Imports Microsoft.Reporting.WebForms
+Imports System.Globalization
+Imports System.Xml
+Imports System.Web.Script.Services
+
+Partial Class RH_Personal
     Inherits ClsPaginas
 
-#Region "P R O P I E D A D E S"
-    Private Property DTCuentasBancos As DataTable
-        Get
-            Return CType(ViewState("DTCuentasBancos"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DTCuentasBancos") = value
-        End Set
-    End Property
-    Private Property DTLicencias As DataTable
-        Get
-            Return CType(ViewState("DTLicencias"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DTLicencias") = value
-        End Set
-    End Property
-    Private Property TempDTCuentasBancos As DataTable
-        Get
-            Return CType(ViewState("TempDTCuentasBancos"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("TempDTCuentasBancos") = value
-        End Set
-    End Property
-    Private Property DTDocumentacion As DataTable
-        Get
-            If ViewState("DTDocumentacion") Is Nothing Then
-                Return New DataTable
-            Else
-                Return DirectCast(ViewState("DTDocumentacion"), DataTable)
-            End If
-        End Get
-        Set(value As DataTable)
-            ViewState("DTDocumentacion") = value
-        End Set
-    End Property
-    Property NombreCompleto As String
-        Get
-            If ViewState("NombreCompleto") Is Nothing Then
-                Return ""
-            Else
-                Return ViewState("NombreCompleto").ToString()
-            End If
-        End Get
-        Set(value As String)
-            ViewState("NombreCompleto") = value
-        End Set
-    End Property
-    Property CredencialElector As String
-        Get
-            If ViewState("CredencialElector") Is Nothing Then
-                Return "-1"
-            Else
-                Return ViewState("CredencialElector").ToString()
-            End If
-        End Get
-        Set(value As String)
-            ViewState("CredencialElector") = value
-        End Set
-    End Property
-    Property Documentacion As String
-        Get
-            If ViewState("Documentacion") Is Nothing Then
-                Return "-1"
-            Else
-                Return ViewState("Documentacion").ToString()
-            End If
-        End Get
-        Set(value As String)
-            ViewState("Documentacion") = value
-        End Set
-    End Property
-    Property CveDocumentacion As Integer
-        Get
-            If ViewState("CveDocumentacion") Is Nothing Then
-                Return -1
-            Else
-                Return DirectCast(ViewState("CveDocumentacion"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("CveDocumentacion") = value
-        End Set
-    End Property
-    Property CveDocumentacionElectronica As Integer
-        Get
-            If ViewState("CvePersonalClienteDocumentacion") Is Nothing Then
-                Return -1
-            Else
-                Return DirectCast(ViewState("CvePersonalClienteDocumentacion"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("CvePersonalClienteDocumentacion") = value
-        End Set
-    End Property
-    Property ActualizarDocumentacion As Boolean
-        Get
-            If ViewState("ActualizarDocumentacion") Is Nothing Then
-                Return True
-            Else
-                Return DirectCast(ViewState("ActualizarDocumentacion"), Boolean)
-            End If
-        End Get
-        Set(value As Boolean)
-            ViewState("ActualizarDocumentacion") = value
-        End Set
-    End Property
-    Private Property FechaLimite As Date
-        Get
-            If ViewState("FechaLimite") Is Nothing Then
-                Return Date.Now.AddDays(15)
-            Else
-                Return ViewState("FechaLimite").ToString().ToDate
-            End If
-        End Get
-        Set(value As Date)
-            ViewState("FechaLimite") = value
-        End Set
-
-    End Property
-    Property Estatus As Integer
-        Get
-            If ViewState("Estatus") Is Nothing Then
-                Return 0
-            Else
-                Return DirectCast(ViewState("Estatus"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("Estatus") = value
-        End Set
-    End Property
-    Property ObservacionDocumentacion As String
-        Get
-            If ViewState("ObservacionDocumentacion") Is Nothing Then
-                Return ""
-            Else
-                Return ViewState("ObservacionDocumentacion").ToString()
-            End If
-        End Get
-        Set(value As String)
-            ViewState("ObservacionDocumentacion") = value
-        End Set
-    End Property
-    Property AdjuntoDocumentacion As String
-        Get
-            If ViewState("AdjuntoDocumentacion") Is Nothing Then
-                Return ""
-            Else
-                Return ViewState("AdjuntoDocumentacion").ToString()
-            End If
-        End Get
-        Set(value As String)
-            ViewState("AdjuntoDocumentacion") = value
-        End Set
-    End Property
-    Private ReadOnly Property CvePersonal As Integer
-        Get
-            If ViewState("CvePersonal") Is Nothing Then
-                Return -1
-            Else
-                Return ViewState("CvePersonal").ToString().ToEntero
-            End If
-        End Get
-    End Property
-    Private Property DtCuentasContables As Data.DataTable
-        Get
-            Return CType(ViewState("DtCuentasContables"), DataTable)
-        End Get
-        Set(value As Data.DataTable)
-            ViewState("DtCuentasContables") = value
-        End Set
-    End Property
-    Private ReadOnly Property SendMail As String
-        Get
-            Return ViewState("SendMail").ToString()
-        End Get
-    End Property
-    Private ReadOnly Property SendMailPassword As String
-        Get
-            Return ViewState("SendMailPassword").ToString()
-        End Get
-    End Property
-
-    Private ReadOnly Property CveUniforme As Integer
-        Get
-            If ViewState("CveUniforme") Is Nothing Then
-                Return -1
-            Else
-                Return ViewState("CveUniforme").ToString().ToEntero
-            End If
-        End Get
-    End Property
-    Private Property DTConsumos As DataTable
-        Get
-            Return CType(ViewState("DTConsumos"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DTConsumos") = value
-        End Set
-    End Property
-    Private Property DTViaticosDetalle As DataTable
-        Get
-            Return CType(ViewState("DTViaticosDetalle"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DTViaticosDetalle") = value
-        End Set
-    End Property
-    Private Property DTGastosSinComp As DataTable
-        Get
-            Return CType(ViewState("DTGastosSinComp"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DTGastosSinComp") = value
-        End Set
-    End Property
-    Private Property DTGastosPorCheque As DataTable
-        Get
-            Return CType(ViewState("DTGastosPorCheque"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DTGastosPorCheque") = value
-        End Set
-    End Property
-
-    Private Property CvePersonalEstatusInicial As Integer
-        Get
-            If ViewState("CvePersonalEstatusInicial") Is Nothing Then
-                Return -1
-            Else
-                Return ViewState("CvePersonalEstatusInicial").ToString().ToEntero
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("CvePersonalEstatusInicial") = value
-        End Set
-    End Property
-
-    Private Property UniformesInfo As DataTable
-        Get
-            Return CType(ViewState("UniformesInfo"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("UniformesInfo") = value
-        End Set
-    End Property
-
-    Private Property CveAlmacenUniforme As Integer
-        Get
-            Return CInt(ViewState("CveAlmacenUniforme"))
-        End Get
-        Set(value As Integer)
-            ViewState("CveAlmacenUniforme") = value
-        End Set
+#Region "P R O P I E D A D E S"
+    Private Property DTCuentasBancos As DataTable
+        Get
+            Return CType(ViewState("DTCuentasBancos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTCuentasBancos") = value
+        End Set
     End Property
-    Private Property CveSeccionAlmacenUniforme As Integer
-        Get
-            Return CInt(ViewState("CveSeccionAlmacenUniforme"))
-        End Get
-        Set(value As Integer)
-            ViewState("CveSeccionAlmacenUniforme") = value
-        End Set
-    End Property
-
-    Private Property DescripcionUniforme As String
-        Get
-            Return CStr(ViewState("DescripcionUniforme"))
-        End Get
-        Set(value As String)
-            ViewState("DescripcionUniforme") = value
-        End Set
-    End Property
-
-    Private Property CveUM As Integer
-        Get
-            Return CInt(ViewState("CveUM"))
-        End Get
-        Set(value As Integer)
-            ViewState("CveUM") = value
-        End Set
-    End Property
-
-    Private Property CvePS As Integer
-        Get
-            Return CInt(ViewState("CvePS"))
-        End Get
-        Set(value As Integer)
-            ViewState("CvePS") = value
-        End Set
-    End Property
-
-    Private Property PU As Decimal
-        Get
-            Return ViewState("PU").ToString.ToDecimal
-        End Get
-        Set(value As Decimal)
-            ViewState("PU") = value
-        End Set
-    End Property
-    Private Property CveMovimientoUniforme As Integer
-        Get
-            Return CInt(ViewState("CveMovimientoUniforme"))
-        End Get
-        Set(value As Integer)
-            ViewState("CveMovimientoUniforme") = value
-        End Set
-    End Property
-    Private Property CveMovimientoDetalleUniforme As Integer
-        Get
-            Return CInt(ViewState("CveMovimientoDetalleUniforme"))
-        End Get
-        Set(value As Integer)
-            ViewState("CveMovimientoDetalleUniforme") = value
-        End Set
+    Private Property DTLicencias As DataTable
+        Get
+            Return CType(ViewState("DTLicencias"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTLicencias") = value
+        End Set
+    End Property
+    Private Property TempDTCuentasBancos As DataTable
+        Get
+            Return CType(ViewState("TempDTCuentasBancos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("TempDTCuentasBancos") = value
+        End Set
+    End Property
+    Private Property DTDocumentacion As DataTable
+        Get
+            If ViewState("DTDocumentacion") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTDocumentacion"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTDocumentacion") = value
+        End Set
+    End Property
+    Property NombreCompleto As String
+        Get
+            If ViewState("NombreCompleto") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("NombreCompleto").ToString()
+            End If
+        End Get
+        Set(value As String)
+            ViewState("NombreCompleto") = value
+        End Set
+    End Property
+    Property CredencialElector As String
+        Get
+            If ViewState("CredencialElector") Is Nothing Then
+                Return "-1"
+            Else
+                Return ViewState("CredencialElector").ToString()
+            End If
+        End Get
+        Set(value As String)
+            ViewState("CredencialElector") = value
+        End Set
+    End Property
+    Property Documentacion As String
+        Get
+            If ViewState("Documentacion") Is Nothing Then
+                Return "-1"
+            Else
+                Return ViewState("Documentacion").ToString()
+            End If
+        End Get
+        Set(value As String)
+            ViewState("Documentacion") = value
+        End Set
+    End Property
+    Property CveDocumentacion As Integer
+        Get
+            If ViewState("CveDocumentacion") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveDocumentacion"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveDocumentacion") = value
+        End Set
+    End Property
+    Property CveDocumentacionElectronica As Integer
+        Get
+            If ViewState("CvePersonalClienteDocumentacion") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CvePersonalClienteDocumentacion"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CvePersonalClienteDocumentacion") = value
+        End Set
+    End Property
+    Property ActualizarDocumentacion As Boolean
+        Get
+            If ViewState("ActualizarDocumentacion") Is Nothing Then
+                Return True
+            Else
+                Return DirectCast(ViewState("ActualizarDocumentacion"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("ActualizarDocumentacion") = value
+        End Set
+    End Property
+    Private Property FechaLimite As Date
+        Get
+            If ViewState("FechaLimite") Is Nothing Then
+                Return Date.Now.AddDays(15)
+            Else
+                Return ViewState("FechaLimite").ToString().ToDate
+            End If
+        End Get
+        Set(value As Date)
+            ViewState("FechaLimite") = value
+        End Set
+
+    End Property
+    Property Estatus As Integer
+        Get
+            If ViewState("Estatus") Is Nothing Then
+                Return 0
+            Else
+                Return DirectCast(ViewState("Estatus"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("Estatus") = value
+        End Set
+    End Property
+    Property ObservacionDocumentacion As String
+        Get
+            If ViewState("ObservacionDocumentacion") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("ObservacionDocumentacion").ToString()
+            End If
+        End Get
+        Set(value As String)
+            ViewState("ObservacionDocumentacion") = value
+        End Set
+    End Property
+    Property AdjuntoDocumentacion As String
+        Get
+            If ViewState("AdjuntoDocumentacion") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("AdjuntoDocumentacion").ToString()
+            End If
+        End Get
+        Set(value As String)
+            ViewState("AdjuntoDocumentacion") = value
+        End Set
+    End Property
+    Private ReadOnly Property CvePersonal As Integer
+        Get
+            If ViewState("CvePersonal") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CvePersonal").ToString().ToEntero
+            End If
+        End Get
+    End Property
+    Private Property DtCuentasContables As Data.DataTable
+        Get
+            Return CType(ViewState("DtCuentasContables"), DataTable)
+        End Get
+        Set(value As Data.DataTable)
+            ViewState("DtCuentasContables") = value
+        End Set
+    End Property
+    Private ReadOnly Property SendMail As String
+        Get
+            Return ViewState("SendMail").ToString()
+        End Get
+    End Property
+    Private ReadOnly Property SendMailPassword As String
+        Get
+            Return ViewState("SendMailPassword").ToString()
+        End Get
+    End Property
+
+    Private ReadOnly Property CveUniforme As Integer
+        Get
+            If ViewState("CveUniforme") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveUniforme").ToString().ToEntero
+            End If
+        End Get
+    End Property
+    Private Property DTConsumos As DataTable
+        Get
+            Return CType(ViewState("DTConsumos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTConsumos") = value
+        End Set
+    End Property
+    Private Property DTViaticosDetalle As DataTable
+        Get
+            Return CType(ViewState("DTViaticosDetalle"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTViaticosDetalle") = value
+        End Set
+    End Property
+    Private Property DTGastosSinComp As DataTable
+        Get
+            Return CType(ViewState("DTGastosSinComp"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTGastosSinComp") = value
+        End Set
+    End Property
+    Private Property DTGastosPorCheque As DataTable
+        Get
+            Return CType(ViewState("DTGastosPorCheque"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTGastosPorCheque") = value
+        End Set
+    End Property
+
+    Private Property CvePersonalEstatusInicial As Integer
+        Get
+            If ViewState("CvePersonalEstatusInicial") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CvePersonalEstatusInicial").ToString().ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CvePersonalEstatusInicial") = value
+        End Set
+    End Property
+
+    Private Property UniformesInfo As DataTable
+        Get
+            Return CType(ViewState("UniformesInfo"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("UniformesInfo") = value
+        End Set
+    End Property
+
+    Private Property CveAlmacenUniforme As Integer
+        Get
+            Return CInt(ViewState("CveAlmacenUniforme"))
+        End Get
+        Set(value As Integer)
+            ViewState("CveAlmacenUniforme") = value
+        End Set
+    End Property
+    Private Property CveSeccionAlmacenUniforme As Integer
+        Get
+            Return CInt(ViewState("CveSeccionAlmacenUniforme"))
+        End Get
+        Set(value As Integer)
+            ViewState("CveSeccionAlmacenUniforme") = value
+        End Set
+    End Property
+
+    Private Property DescripcionUniforme As String
+        Get
+            Return CStr(ViewState("DescripcionUniforme"))
+        End Get
+        Set(value As String)
+            ViewState("DescripcionUniforme") = value
+        End Set
+    End Property
+
+    Private Property CveUM As Integer
+        Get
+            Return CInt(ViewState("CveUM"))
+        End Get
+        Set(value As Integer)
+            ViewState("CveUM") = value
+        End Set
+    End Property
+
+    Private Property CvePS As Integer
+        Get
+            Return CInt(ViewState("CvePS"))
+        End Get
+        Set(value As Integer)
+            ViewState("CvePS") = value
+        End Set
+    End Property
+
+    Private Property PU As Decimal
+        Get
+            Return ViewState("PU").ToString.ToDecimal
+        End Get
+        Set(value As Decimal)
+            ViewState("PU") = value
+        End Set
+    End Property
+    Private Property CveMovimientoUniforme As Integer
+        Get
+            Return CInt(ViewState("CveMovimientoUniforme"))
+        End Get
+        Set(value As Integer)
+            ViewState("CveMovimientoUniforme") = value
+        End Set
+    End Property
+    Private Property CveMovimientoDetalleUniforme As Integer
+        Get
+            Return CInt(ViewState("CveMovimientoDetalleUniforme"))
+        End Get
+        Set(value As Integer)
+            ViewState("CveMovimientoDetalleUniforme") = value
+        End Set
     End Property
 
 
 
-#End Region
+#End Region
 
-#Region "V A C A C I O N E S - P E R M I S O S"
+#Region "V A C A C I O N E S - P E R M I S O S"
 
-    Private Property VacInicioPeriodo As Date
-        Get
-            If ViewState("VacInicioPeriodo") Is Nothing Then
-                Return Now
-            Else
-                Return DirectCast(ViewState("VacInicioPeriodo"), Date)
-            End If
-        End Get
-        Set(value As Date)
-            ViewState("VacInicioPeriodo") = value
-        End Set
-    End Property
-    Private Property VacFinPeriodo As Date
-        Get
-            If ViewState("VacFinPeriodo") Is Nothing Then
-                Return Now
-            Else
-                Return DirectCast(ViewState("VacFinPeriodo"), Date)
-            End If
-        End Get
-        Set(value As Date)
-            ViewState("VacFinPeriodo") = value
-        End Set
-    End Property
-
-    Private Property VacAnios As Integer
-        Get
-            If ViewState("VacAnios") Is Nothing Then
-                Return -1
-            Else
-                Return DirectCast(ViewState("VacAnios"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("VacAnios") = value
-        End Set
-    End Property
-
-
-    Private Property VacDias As Integer
-        Get
-            If ViewState("VacDias") Is Nothing Then
-                Return -1
-            Else
-                Return DirectCast(ViewState("VacDias"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("VacDias") = value
-        End Set
-    End Property
-
-    Private Property VacDiasUsados As Integer
-        Get
-            If ViewState("VacDiasUsados") Is Nothing Then
-                Return -1
-            Else
-                Return DirectCast(ViewState("VacDiasUsados"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("VacDiasUsados") = value
-        End Set
-    End Property
-
-    Private Property VacDiasCancelados As Integer
-        Get
-            If ViewState("VacDiasCancelados") Is Nothing Then
-                Return -1
-            Else
-                Return DirectCast(ViewState("VacDiasCancelados"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("VacDiasCancelados") = value
-        End Set
-    End Property
-
-    Private Property VacDiasDisponibles As Integer
-        Get
-            If ViewState("VacDiasDisponibles") Is Nothing Then
-                Return -1
-            Else
-                Return DirectCast(ViewState("VacDiasDisponibles"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("VacDiasDisponibles") = value
-        End Set
-    End Property
-
-
-    Private Property VacSupervisorNombre As String
-        Get
-            If ViewState("VacSupervisorNombre") Is Nothing Then
-                Return ""
-            Else
-                Return ViewState("VacSupervisorNombre").ToString()
-            End If
-        End Get
-        Set(value As String)
-            ViewState("VacSupervisorNombre") = value
-        End Set
-    End Property
-
-    Private Property VacSupervisorCorreo As String
-        Get
-            If ViewState("VacSupervisorCorreo") Is Nothing Then
-                Return ""
-            Else
-                Return ViewState("VacSupervisorCorreo").ToString()
-            End If
-        End Get
-        Set(value As String)
-            ViewState("VacSupervisorCorreo") = value
-        End Set
-    End Property
-
-    Private Property VacCveSupervisor As Integer
-        Get
-            If ViewState("VacCveSupervisor") Is Nothing Then
-                Return -1
-            Else
-                Return ViewState("VacCveSupervisor").ToString().ToEntero
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("VacCveSupervisor") = value
-        End Set
-    End Property
-
-
-    Private Property VacFolioActual As Integer
-        Get
-            If ViewState("VacFolioActual") Is Nothing Then
-                Return 0
-            Else
-                Return DirectCast(ViewState("VacFolioActual"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("VacFolioActual") = value
-        End Set
-    End Property
-
-    Private Property CvePersonalVacaciones As Integer
-        Get
-            If ViewState("CvePersonalVacaciones") Is Nothing Then
-                Return -1
-            Else
-                Return DirectCast(ViewState("CvePersonalVacaciones"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("CvePersonalVacaciones") = value
-        End Set
-    End Property
-
-
-    Private Property VacDiaActivo As Boolean
-        Get
-            If ViewState("VacDiaActivo") Is Nothing Then
-                Return False
-            Else
-                Return DirectCast(ViewState("VacDiaActivo"), Boolean)
-            End If
-        End Get
-        Set(value As Boolean)
-            ViewState("VacDiaActivo") = value
-        End Set
-    End Property
-
-
-    Private Property VacFolio As Integer
-        Get
-            If ViewState("VacFolio") Is Nothing Then
-                Return -1
-            Else
-                Return DirectCast(ViewState("VacFolio"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("VacFolio") = value
-        End Set
-    End Property
-
-
-
-    Private Property CvePermiso As Integer
-        Get
-            If ViewState("CvePermiso") Is Nothing Then
-                Return -1
-            Else
-                Return ViewState("CvePermiso").ToString().ToEntero
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("CvePermiso") = value
-        End Set
+    Private Property VacInicioPeriodo As Date
+        Get
+            If ViewState("VacInicioPeriodo") Is Nothing Then
+                Return Now
+            Else
+                Return DirectCast(ViewState("VacInicioPeriodo"), Date)
+            End If
+        End Get
+        Set(value As Date)
+            ViewState("VacInicioPeriodo") = value
+        End Set
+    End Property
+    Private Property VacFinPeriodo As Date
+        Get
+            If ViewState("VacFinPeriodo") Is Nothing Then
+                Return Now
+            Else
+                Return DirectCast(ViewState("VacFinPeriodo"), Date)
+            End If
+        End Get
+        Set(value As Date)
+            ViewState("VacFinPeriodo") = value
+        End Set
     End Property
 
-#End Region
-
-
-#Region "PROPIEDADES FAMILIARES"
-
-    Private Property ActualizarFamiliar As Boolean
-        Get
-            If ViewState("ActualizarFamiliar") Is Nothing Then
-                Return True
-            Else
-                Return DirectCast(ViewState("ActualizarFamiliar"), Boolean)
-
-            End If
-        End Get
-        Set(value As Boolean)
-            ViewState("ActualizarFamiliar") = value
-        End Set
-    End Property
-    Private Property CveFamiliar As Integer
-        Get
-            If ViewState("CveFamiliar") Is Nothing Then
-                Return -1
-            Else
-                Return DirectCast(ViewState("CveFamiliar"), Integer)
-            End If
-
-        End Get
-        Set(value As Integer)
-            ViewState("CveFamiliar") = value
-        End Set
-    End Property
-
-    Private Property IndexActual As Integer
-        Get
-            If ViewState("IndexActual") Is Nothing Then
-                Return -1
-            Else
-                Return DirectCast(ViewState("IndexActual"), Integer)
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("IndexActual") = value
-        End Set
-    End Property
-
-    Property DTFamiliares As DataTable
-        Get
-            Return DirectCast(ViewState("DTFamiliares"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DTFamiliares") = value
-        End Set
-    End Property
-
-
-    Private Property ValPadre As Boolean
-        Get
-            If ViewState("ValPadre") Is Nothing Then
-                Return False
-            Else
-                Return DirectCast(ViewState("ValPadre"), Boolean)
-            End If
-        End Get
-        Set(value As Boolean)
-            ViewState("ValPadre") = value
-        End Set
-    End Property
-
-    Private Property ValMadre As Boolean
-        Get
-            If ViewState("ValMadre") Is Nothing Then
-                Return False
-            Else
-                Return DirectCast(ViewState("ValMadre"), Boolean)
-            End If
-        End Get
-        Set(value As Boolean)
-            ViewState("ValMadre") = value
-        End Set
+    Private Property VacAnios As Integer
+        Get
+            If ViewState("VacAnios") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("VacAnios"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("VacAnios") = value
+        End Set
     End Property
 
 
-    Private Property DocumentoParametros As String
-        Get
-            If ViewState("DocumentoParametros") Is Nothing Then
-                Return ""
-            Else
+    Private Property VacDias As Integer
+        Get
+            If ViewState("VacDias") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("VacDias"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("VacDias") = value
+        End Set
+    End Property
+
+    Private Property VacDiasUsados As Integer
+        Get
+            If ViewState("VacDiasUsados") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("VacDiasUsados"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("VacDiasUsados") = value
+        End Set
+    End Property
+
+    Private Property VacDiasCancelados As Integer
+        Get
+            If ViewState("VacDiasCancelados") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("VacDiasCancelados"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("VacDiasCancelados") = value
+        End Set
+    End Property
+
+    Private Property VacDiasDisponibles As Integer
+        Get
+            If ViewState("VacDiasDisponibles") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("VacDiasDisponibles"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("VacDiasDisponibles") = value
+        End Set
+    End Property
+
+
+    Private Property VacSupervisorNombre As String
+        Get
+            If ViewState("VacSupervisorNombre") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("VacSupervisorNombre").ToString()
+            End If
+        End Get
+        Set(value As String)
+            ViewState("VacSupervisorNombre") = value
+        End Set
+    End Property
+
+    Private Property VacSupervisorCorreo As String
+        Get
+            If ViewState("VacSupervisorCorreo") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("VacSupervisorCorreo").ToString()
+            End If
+        End Get
+        Set(value As String)
+            ViewState("VacSupervisorCorreo") = value
+        End Set
+    End Property
+
+    Private Property VacCveSupervisor As Integer
+        Get
+            If ViewState("VacCveSupervisor") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("VacCveSupervisor").ToString().ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("VacCveSupervisor") = value
+        End Set
+    End Property
+
+
+    Private Property VacFolioActual As Integer
+        Get
+            If ViewState("VacFolioActual") Is Nothing Then
+                Return 0
+            Else
+                Return DirectCast(ViewState("VacFolioActual"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("VacFolioActual") = value
+        End Set
+    End Property
+
+    Private Property CvePersonalVacaciones As Integer
+        Get
+            If ViewState("CvePersonalVacaciones") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CvePersonalVacaciones"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CvePersonalVacaciones") = value
+        End Set
+    End Property
+
+
+    Private Property VacDiaActivo As Boolean
+        Get
+            If ViewState("VacDiaActivo") Is Nothing Then
+                Return False
+            Else
+                Return DirectCast(ViewState("VacDiaActivo"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("VacDiaActivo") = value
+        End Set
+    End Property
+
+
+    Private Property VacFolio As Integer
+        Get
+            If ViewState("VacFolio") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("VacFolio"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("VacFolio") = value
+        End Set
+    End Property
+
+
+
+    Private Property CvePermiso As Integer
+        Get
+            If ViewState("CvePermiso") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CvePermiso").ToString().ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CvePermiso") = value
+        End Set
+    End Property
+
+#End Region
+
+
+#Region "PROPIEDADES FAMILIARES"
+
+    Private Property ActualizarFamiliar As Boolean
+        Get
+            If ViewState("ActualizarFamiliar") Is Nothing Then
+                Return True
+            Else
+                Return DirectCast(ViewState("ActualizarFamiliar"), Boolean)
+
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("ActualizarFamiliar") = value
+        End Set
+    End Property
+    Private Property CveFamiliar As Integer
+        Get
+            If ViewState("CveFamiliar") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveFamiliar"), Integer)
+            End If
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveFamiliar") = value
+        End Set
+    End Property
+
+    Private Property IndexActual As Integer
+        Get
+            If ViewState("IndexActual") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("IndexActual"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("IndexActual") = value
+        End Set
+    End Property
+
+    Property DTFamiliares As DataTable
+        Get
+            Return DirectCast(ViewState("DTFamiliares"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTFamiliares") = value
+        End Set
+    End Property
+
+
+    Private Property ValPadre As Boolean
+        Get
+            If ViewState("ValPadre") Is Nothing Then
+                Return False
+            Else
+                Return DirectCast(ViewState("ValPadre"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("ValPadre") = value
+        End Set
+    End Property
+
+    Private Property ValMadre As Boolean
+        Get
+            If ViewState("ValMadre") Is Nothing Then
+                Return False
+            Else
+                Return DirectCast(ViewState("ValMadre"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("ValMadre") = value
+        End Set
+    End Property
+
+
+    Private Property DocumentoParametros As String
+        Get
+            If ViewState("DocumentoParametros") Is Nothing Then
+                Return ""
+            Else
                 Return ViewState("DocumentoParametros").ToString
-            End If
-        End Get
-        Set(value As String)
-            ViewState("DocumentoParametros") = value
-        End Set
+            End If
+        End Get
+        Set(value As String)
+            ViewState("DocumentoParametros") = value
+        End Set
     End Property
 
 
 
 
 
-#End Region
+#End Region
 
 
-    Private Shared Function sendURL(ByVal URL As String, Optional Methodo As String = "POST", Optional Cookie As String = "", Optional maxTimeMilliseconds As Integer = 120000) As String
-        Dim resultado As String = ""
-
-        Try
-            Dim request As Net.HttpWebRequest = CType(Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
-            request.Timeout = maxTimeMilliseconds
-            request.Method = Methodo
-            request.ContentType = "text/html; charset=utf-8" '"text/xml; charset=utf-8"
-
-            If Not String.IsNullOrEmpty(Cookie) Then
-                request.Headers.Add("Cookie", Cookie)
-            End If
-
-            'Using stream As IO.Stream = request.GetRequestStream()
-
-            '    Using stmw As IO.StreamWriter = New IO.StreamWriter(stream)
-            '        stmw.Write("")
-            '    End Using
-            'End Using
-
-            Dim response As Net.WebResponse = CType(request.GetResponse(), Net.WebResponse)
-            Dim sr As IO.StreamReader = New IO.StreamReader(response.GetResponseStream())
-            resultado = sr.ReadToEnd()
-            sr.Close()
-        Catch ex As Exception
-            ex.ToString().GuardaLog()
-            'Extenciones.ApplicationParameter.GuardaLogEx(ex, $"SOAPAction : {SOAPAction} XML : {xml}")
-        End Try
-
-        Return resultado
-    End Function
-    '<ScriptMethod(UseHttpGet:=True, ResponseFormat:=ResponseFormat.Json)>
-    <System.Web.Services.WebMethod()>
-    Public Shared Function gettingCURP(ByVal Curp As String, year As Integer) As String
-        Dim abc As String() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
-        Dim numeric01 As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
-        Dim rule1 As String() = If(year < 2000, numeric01, abc)
-        Dim curpresult As String = ""
-        Dim i As Integer = 0
-        While Curp.Length = 0 AndAlso i < rule1.Length
-            Dim z As Integer = 0
-            While Curp.Length = 0 AndAlso z < numeric01.Length
-                curpresult = String.Format("{0}{1}{2}", Curp, rule1(i), numeric01(z))
-                Dim respuesta As String = sendURL(String.Format("http://www.renapo.sep.gob.mx/wsrenapo/MainControllerParam?curp={0}", curpresult), "GET")
-
-                Dim trlines As New List(Of String)
-                Dim keydict As New System.Collections.Concurrent.ConcurrentDictionary(Of String, String)
-
-                Dim indexttr As Integer = 0
-                Dim indexttrB As Integer = 0
-                Dim indexttd As Integer = 0
-                Dim indextdiv As Integer = 0
-                Dim indexinittext As Integer = 0
-                While Not IsNothing(respuesta) AndAlso respuesta.Length > 0
-                    indexttr = respuesta.IndexOf("<tr")
-                    If indexttr >= 0 Then
-                        indexttrB = respuesta.Substring(indexttr + 3).IndexOf("<tr")
-                        If indexttrB >= 0 Then
-                            trlines.Add(respuesta.Substring(indexttr, indexttrB))
-                        Else
-                            trlines.Add(respuesta.Substring(indexttr))
-
-                        End If
-                        respuesta = respuesta.Substring(indexttr + 3)
-                    Else
-                        respuesta = ""
-                    End If
-
-                End While
-
-                Dim key As String = ""
-                Dim keyvalue As String = ""
-                For Each item As String In trlines
-                    key = ""
-                    keyvalue = ""
-                    indexttd = item.IndexOf("<td")
-                    indextdiv = item.IndexOf("<div")
-                    If indextdiv >= 0 Then
-                        indexttr = indextdiv
-                        indexttrB = item.IndexOf("</div")
-                    Else
-                        indexttr = indexttd
-                        indexttrB = item.IndexOf("</td")
-                    End If
-                    If indexttr >= 0 Then
-                        indexinittext = item.Substring(indexttr + 3).IndexOf(">")
-                        key = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))
-
-                        item = item.Substring(indexttrB + 3)
-                    Else
-                        item = ""
-                    End If
-
-                    If item.Length > 0 Then
-
-                        indexttd = item.IndexOf("<td")
-                        indextdiv = item.IndexOf("<div")
-                        If indextdiv >= 0 Then
-                            indexttr = indextdiv
-                            indexttrB = item.IndexOf("</div")
-                        Else
-                            indexttr = indexttd
-                            indexttrB = item.IndexOf("</td")
-                        End If
-                        If indexttr >= 0 Then
-                            indexinittext = item.Substring(indexttr + 3).IndexOf(">")
-                            keyvalue = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))
-
-                            item = item.Substring(indexttr + 3)
-                        Else
-                            item = ""
-                        End If
-
-                    End If
-                    If key.Length > 0 Then
-                        keydict.TryAdd(key.Replace(":", "").Trim(), keyvalue.Trim().ToLower())
-                    End If
-                Next
-                Dim Apellido1 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
-                Dim Apellido2 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
-                Dim Nombres As String = "" : keydict.TryGetValue("Nombres", Nombres)
-                If Nombres Is Nothing OrElse Nombres.Length = 0 Then
-                    curpresult = ""
-                End If
-                z = z + 1
-            End While
-            i = i + 1
-        End While
-        Return curpresult
-    End Function
-
-    Const wdPageBreak As Integer = 7
+    Private Shared Function sendURL(ByVal URL As String, Optional Methodo As String = "POST", Optional Cookie As String = "", Optional maxTimeMilliseconds As Integer = 120000) As String
+        Dim resultado As String = ""
+
+        Try
+            Dim request As Net.HttpWebRequest = CType(Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
+            request.Timeout = maxTimeMilliseconds
+            request.Method = Methodo
+            request.ContentType = "text/html; charset=utf-8" '"text/xml; charset=utf-8"
+
+            If Not String.IsNullOrEmpty(Cookie) Then
+                request.Headers.Add("Cookie", Cookie)
+            End If
+
+            'Using stream As IO.Stream = request.GetRequestStream()
+
+            '    Using stmw As IO.StreamWriter = New IO.StreamWriter(stream)
+            '        stmw.Write("")
+            '    End Using
+            'End Using
+
+            Dim response As Net.WebResponse = CType(request.GetResponse(), Net.WebResponse)
+            Dim sr As IO.StreamReader = New IO.StreamReader(response.GetResponseStream())
+            resultado = sr.ReadToEnd()
+            sr.Close()
+        Catch ex As Exception
+            ex.ToString().GuardaLog()
+            'Extenciones.ApplicationParameter.GuardaLogEx(ex, $"SOAPAction : {SOAPAction} XML : {xml}")
+        End Try
+
+        Return resultado
+    End Function
+    '<ScriptMethod(UseHttpGet:=True, ResponseFormat:=ResponseFormat.Json)>
+    <System.Web.Services.WebMethod()>
+    Public Shared Function gettingCURP(ByVal Curp As String, year As Integer) As String
+        Dim abc As String() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
+        Dim numeric01 As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
+        Dim rule1 As String() = If(year < 2000, numeric01, abc)
+        Dim curpresult As String = ""
+        Dim i As Integer = 0
+        While Curp.Length = 0 AndAlso i < rule1.Length
+            Dim z As Integer = 0
+            While Curp.Length = 0 AndAlso z < numeric01.Length
+                curpresult = String.Format("{0}{1}{2}", Curp, rule1(i), numeric01(z))
+                Dim respuesta As String = sendURL(String.Format("http://www.renapo.sep.gob.mx/wsrenapo/MainControllerParam?curp={0}", curpresult), "GET")
+
+                Dim trlines As New List(Of String)
+                Dim keydict As New System.Collections.Concurrent.ConcurrentDictionary(Of String, String)
+
+                Dim indexttr As Integer = 0
+                Dim indexttrB As Integer = 0
+                Dim indexttd As Integer = 0
+                Dim indextdiv As Integer = 0
+                Dim indexinittext As Integer = 0
+                While Not IsNothing(respuesta) AndAlso respuesta.Length > 0
+                    indexttr = respuesta.IndexOf("<tr")
+                    If indexttr >= 0 Then
+                        indexttrB = respuesta.Substring(indexttr + 3).IndexOf("<tr")
+                        If indexttrB >= 0 Then
+                            trlines.Add(respuesta.Substring(indexttr, indexttrB))
+                        Else
+                            trlines.Add(respuesta.Substring(indexttr))
+
+                        End If
+                        respuesta = respuesta.Substring(indexttr + 3)
+                    Else
+                        respuesta = ""
+                    End If
+
+                End While
+
+                Dim key As String = ""
+                Dim keyvalue As String = ""
+                For Each item As String In trlines
+                    key = ""
+                    keyvalue = ""
+                    indexttd = item.IndexOf("<td")
+                    indextdiv = item.IndexOf("<div")
+                    If indextdiv >= 0 Then
+                        indexttr = indextdiv
+                        indexttrB = item.IndexOf("</div")
+                    Else
+                        indexttr = indexttd
+                        indexttrB = item.IndexOf("</td")
+                    End If
+                    If indexttr >= 0 Then
+                        indexinittext = item.Substring(indexttr + 3).IndexOf(">")
+                        key = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))
+
+                        item = item.Substring(indexttrB + 3)
+                    Else
+                        item = ""
+                    End If
+
+                    If item.Length > 0 Then
+
+                        indexttd = item.IndexOf("<td")
+                        indextdiv = item.IndexOf("<div")
+                        If indextdiv >= 0 Then
+                            indexttr = indextdiv
+                            indexttrB = item.IndexOf("</div")
+                        Else
+                            indexttr = indexttd
+                            indexttrB = item.IndexOf("</td")
+                        End If
+                        If indexttr >= 0 Then
+                            indexinittext = item.Substring(indexttr + 3).IndexOf(">")
+                            keyvalue = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))
+
+                            item = item.Substring(indexttr + 3)
+                        Else
+                            item = ""
+                        End If
+
+                    End If
+                    If key.Length > 0 Then
+                        keydict.TryAdd(key.Replace(":", "").Trim(), keyvalue.Trim().ToLower())
+                    End If
+                Next
+                Dim Apellido1 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
+                Dim Apellido2 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
+                Dim Nombres As String = "" : keydict.TryGetValue("Nombres", Nombres)
+                If Nombres Is Nothing OrElse Nombres.Length = 0 Then
+                    curpresult = ""
+                End If
+                z = z + 1
+            End While
+            i = i + 1
+        End While
+        Return curpresult
+    End Function
+
+    Const wdPageBreak As Integer = 7
     Const wdCharacter As Integer = 1
 
-    Public ReadOnly Property showsalarios As Boolean
+    Public ReadOnly Property showsalarios As Boolean
         Get
             Return UsuarioActual.Empresa.Funcionalidad(701) = "1"
         End Get
-    End Property
-    'Configuración
-    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-            If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
-                pnlSalarioIMSS.Visible = False
-            End If
-            ' 
-            PnlSalarios.Visible = showsalarios
-
-            ViewState("Orden") = ""
-            ViewState("Orden1") = ""
-            Session("FileUpload") = ""
-            ViewState("Archivo") = ""
-            DTConsumos = Nothing
-
-            If UsuarioActual.CveRol = 1 Or UsuarioActual.CveEmpresa = 74 Then
-                TabGES.Visible = True
-            End If
-
-            SetValues()
-            'SetPermisos() 
-
-            CargaEscolaridad()
-            CargaEstadoCivil()
-            CargaDepartamento()
-            CargaPuestos()
-            CargaEstatusPersonal()
-            CargaGenero()
-            CargaMotivoBaja()
-            CargaRuta()
-            CargaTiposContrato()
-            CargaTipoPeriodo()
-            CargaTurno()
-            CargaJornadas()
-            CargaProyecto()
-            CargaTiposAsistencia()
-            'CargaMotivoHoraExtra()
-            CargaMotivosHorasExtras()
-            CargaSupervisores()
-            CargaMetodosPago()
-            CargaTipoRegimen()
-            CargaRiesgoPuesto()
-            CargaBancos()
-            CargaSubProyectosZona()
-            CargaEstados(1)
-            CargaMonedas()
-            CargaSuperioresOrganigrama()
-            CargaUsuariosNomina()
-            CargaComboUniformes()
-            CargaPermisos()
-            CargaCombosBuzon()
-            CargaPermisosReemplazos()
-
-
-            If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then
-                ViewState("CvePersonal") = Request("CvePersonal")
-                'CvePersonal = ViewState("CvePersonal").ToString().ToEntero
-                CargaDatos()
-                CargaDocumentacionFirmaDecontratos()
-                'LnkAddLicencias.Visible = True
-                'TabLicencias.Visible = True
-                'Configuración de Modalidad Update
-                BtnGuardar.Text = "Guardar Cambios"
-                LtlTitulo.Text = "Consulta de Personal:"
-                If UsuarioActual.CveRol = 1 Then
-                    'ImgImprimir.Visible = True
-                    ImgImprimirExpediente.Visible = True
-                End If
-
-                'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ")
-                If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero - 1
-
-                'Inicia Permisos
-                If UsuarioActual.TienePermisoProceso(228) Then
-                    GVAsistencia.Columns(10).Visible = True
-                End If
-                'Fin Permisos
-                HlEvento.Visible = True
-                HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CvePersonal=" & CvePersonal & "&TB_iframe=true&height=370&width=600;"
-
-                CargaViaticosPersonal()
-
-                divBitacora.Visible = True
-                CargaGvBitacora()
-            Else
-
-                'Configuración de Modalidad Insert
-
-                ImgAddObs.Visible = False
-                LblFechaCaptura.Text = Now.ToShortDateString()
-                LblUsuarioCapturo.Text = UsuarioActual.Usuario
-                ViewState("CvePersonal") = -1
-                BtnEliminar.Visible = False
-                CarcaConceptosNomina()
-                For Each Gvr As GridViewRow In GVConceptos.Rows
-                    If CBool(Gvr.DataKey("Obligatorio")) Then
-                        Gvr.FCCheckBox("ChkAplica").Checked = True
-                    Else
-                        Gvr.Visible = False
-                    End If
-                Next
-                'Inicia Permisos
-                'Fin Permisos
-            End If
-            CargaCuentasBancarias()
-
-            If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
-
-                CrearEstructuraFamiliares()
-                CargaFamiliares()
-
-                LIFamiliaresAcciones.Visible = True
-                DivFamiliares.Visible = True
-                DivPadres.Visible = False
-
-
-            End If
-
-
-
-
-            'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago
-            '    HplAbonarMasivo.Visible = True
-            '    GvGxC.Columns(7).Visible = True
-            'End If
-
-
-            If Not CvePersonal > 0 Then
-                DivSuperiorInmediato.Visible = False
-            End If
-
-            '09/05/2018 - Si el Personal tiene consumos, muestra boton para generar reporte
-            If DTConsumos IsNot Nothing Then
-                If DTConsumos.Rows.Count > 0 Then
-                    UpDescargaConsumos.Visible = True
-                End If
-            End If
-            CargaLicencias()
-            LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CvePersonal:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CvePersonal)
-
-        End If
-        AgregarEventosAsincronosGvVacaciones()
-    End Sub
-
-    Private Sub CargaCuentasContables()
-        Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
-        If ObjContabilidad.GetCuentas(-1, "-1", -1) Then
-            DtCuentasContables = ObjContabilidad.DtResultados
-
-        Else
-            DtCuentasContables = Nothing
-
-        End If
-        ObjContabilidad.Dispose()
-
-    End Sub
-    Private Sub SetValues()
-        ViewState("Orden") = String.Empty
-        DdlClienteAsignado.Attributes.Add("onclick", "CargaClientes();")
-        DdlClienteAsistenciaC.Attributes.Add("onclick", "CargaClientes();")
-        DdlClienteAsistenciaA.Attributes.Add("onclick", "CargaClientes();")
-        CargaClientes()
-
-        If Request("FechaI") IsNot Nothing AndAlso IsDate(Request("FechaI")) Then
-            txtFechaI.Text = Request("FechaI")
-        Else
-            txtFechaI.Text = Now.ToShortDateString
-        End If
-
-        If Request("FechaF") IsNot Nothing AndAlso IsDate(Request("FechaF")) Then
-            txtFechaF.Text = Request("FechaF")
-        Else
-            txtFechaF.Text = Now.ToShortDateString
-        End If
-
-        If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
-            Dim DTSub As DataTable = GlobalDTSubProyectos(-1, Request("CveSubProyecto").ToEntero) 'Cambiame
-            If DTSub.Rows.Count > 0 Then
-                Dim DTProy As DataTable = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("CveProyecto = " & DTSub.Rows(0)("CveProyecto").ToString())
-                If DTProy.Rows.Count > 0 Then
-                    DdlProyectoAsistenciaC.SelectedValue = DTProy.Rows(0)("CveProyecto").ToString()
-                    DdlProyectoAsistenciaA_SelectedIndexChanged(Me, New EventArgs)
-                    DdlSubProyectoAsistenciasC.SelectedValue = Request("CveSubProyecto")
-                End If
-            End If
-            'DdlProyectoAsistenciaC
-            'DdlSubProyectoAsistenciasC
-        End If
-
-        TxtFechaICredito.Text = $"01/01/{Now.Year}"
-        TxtFechaFCredito.Text = Now.ToShortDateString
-    End Sub
-    Private Sub SetPermisos()
-        'Permisos
-
+    End Property
+    'Configuración
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
+                pnlSalarioIMSS.Visible = False
+            End If
+            ' 
+            PnlSalarios.Visible = showsalarios
+
+            ViewState("Orden") = ""
+            ViewState("Orden1") = ""
+            Session("FileUpload") = ""
+            ViewState("Archivo") = ""
+            DTConsumos = Nothing
+
+            If UsuarioActual.CveRol = 1 Or UsuarioActual.CveEmpresa = 74 Then
+                TabGES.Visible = True
+            End If
+
+            SetValues()
+            'SetPermisos() 
+
+            CargaEscolaridad()
+            CargaEstadoCivil()
+            CargaDepartamento()
+            CargaPuestos()
+            CargaEstatusPersonal()
+            CargaGenero()
+            CargaMotivoBaja()
+            CargaRuta()
+            CargaTiposContrato()
+            CargaTipoPeriodo()
+            CargaTurno()
+            CargaJornadas()
+            CargaProyecto()
+            CargaTiposAsistencia()
+            'CargaMotivoHoraExtra()
+            CargaMotivosHorasExtras()
+            CargaSupervisores()
+            CargaMetodosPago()
+            CargaTipoRegimen()
+            CargaRiesgoPuesto()
+            CargaBancos()
+            CargaSubProyectosZona()
+            CargaEstados(1)
+            CargaMonedas()
+            CargaSuperioresOrganigrama()
+            CargaUsuariosNomina()
+            CargaComboUniformes()
+            CargaPermisos()
+            CargaCombosBuzon()
+            CargaPermisosReemplazos()
+
+
+            If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then
+                ViewState("CvePersonal") = Request("CvePersonal")
+                'CvePersonal = ViewState("CvePersonal").ToString().ToEntero
+                CargaDatos()
+                CargaDocumentacionFirmaDecontratos()
+                'LnkAddLicencias.Visible = True
+                'TabLicencias.Visible = True
+                'Configuración de Modalidad Update
+                BtnGuardar.Text = "Guardar Cambios"
+                LtlTitulo.Text = "Consulta de Personal:"
+                If UsuarioActual.CveRol = 1 Then
+                    'ImgImprimir.Visible = True
+                    ImgImprimirExpediente.Visible = True
+                End If
+
+                'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ")
+                If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero - 1
+
+                'Inicia Permisos
+                If UsuarioActual.TienePermisoProceso(228) Then
+                    GVAsistencia.Columns(10).Visible = True
+                End If
+                'Fin Permisos
+                HlEvento.Visible = True
+                HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CvePersonal=" & CvePersonal & "&TB_iframe=true&height=370&width=600;"
+
+                CargaViaticosPersonal()
+
+                divBitacora.Visible = True
+                CargaGvBitacora()
+            Else
+
+                'Configuración de Modalidad Insert
+
+                ImgAddObs.Visible = False
+                LblFechaCaptura.Text = Now.ToShortDateString()
+                LblUsuarioCapturo.Text = UsuarioActual.Usuario
+                ViewState("CvePersonal") = -1
+                BtnEliminar.Visible = False
+                CarcaConceptosNomina()
+                For Each Gvr As GridViewRow In GVConceptos.Rows
+                    If CBool(Gvr.DataKey("Obligatorio")) Then
+                        Gvr.FCCheckBox("ChkAplica").Checked = True
+                    Else
+                        Gvr.Visible = False
+                    End If
+                Next
+                'Inicia Permisos
+                'Fin Permisos
+            End If
+            CargaCuentasBancarias()
+
+            If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
+
+                CrearEstructuraFamiliares()
+                CargaFamiliares()
+
+                LIFamiliaresAcciones.Visible = True
+                DivFamiliares.Visible = True
+                DivPadres.Visible = False
+
+
+            End If
+
+
+
+
+            'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago
+            '    HplAbonarMasivo.Visible = True
+            '    GvGxC.Columns(7).Visible = True
+            'End If
+
+
+            If Not CvePersonal > 0 Then
+                DivSuperiorInmediato.Visible = False
+            End If
+
+            '09/05/2018 - Si el Personal tiene consumos, muestra boton para generar reporte
+            If DTConsumos IsNot Nothing Then
+                If DTConsumos.Rows.Count > 0 Then
+                    UpDescargaConsumos.Visible = True
+                End If
+            End If
+            CargaLicencias()
+            LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CvePersonal:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CvePersonal)
+
+        End If
+        AgregarEventosAsincronosGvVacaciones()
     End Sub
 
-#Region "Carga Combos"
+    Private Sub CargaCuentasContables()
+        Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
+        If ObjContabilidad.GetCuentas(-1, "-1", -1) Then
+            DtCuentasContables = ObjContabilidad.DtResultados
+
+        Else
+            DtCuentasContables = Nothing
+
+        End If
+        ObjContabilidad.Dispose()
+
+    End Sub
+    Private Sub SetValues()
+        ViewState("Orden") = String.Empty
+        DdlClienteAsignado.Attributes.Add("onclick", "CargaClientes();")
+        DdlClienteAsistenciaC.Attributes.Add("onclick", "CargaClientes();")
+        DdlClienteAsistenciaA.Attributes.Add("onclick", "CargaClientes();")
+        CargaClientes()
+        Dim fechainicioasistencia As String
+        Dim fechaFinasistencia As String
+        If Now.Day >= 15 Then
+            fechainicioasistencia = String.Format("{0:01/MM/yyyy}", Now)
+            fechaFinasistencia = String.Format("{0:15/MM/yyyy}", Now)
+        Else
+            Dim dateendasis As DateTime = String.Format("{0:01/MM/yyyy}", Now).ToDateTime().AddDays(-1)
+            fechainicioasistencia = String.Format("{0:16/MM/yyyy}", dateendasis)
+            fechaFinasistencia = String.Format("{0:dd/MM/yyyy}", dateendasis)
+        End If
+        If Request("FechaI") IsNot Nothing AndAlso IsDate(Request("FechaI")) Then
+            txtFechaI.Text = Request("FechaI")
+        Else
+            txtFechaI.Text = fechainicioasistencia
+        End If
+
+        If Request("FechaF") IsNot Nothing AndAlso IsDate(Request("FechaF")) Then
+            txtFechaF.Text = Request("FechaF")
+        Else
+            txtFechaF.Text = fechaFinasistencia
+        End If
+
+        If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
+            Dim DTSub As DataTable = GlobalDTSubProyectos(-1, Request("CveSubProyecto").ToEntero) 'Cambiame
+            If DTSub.Rows.Count > 0 Then
+                Dim DTProy As DataTable = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("CveProyecto = " & DTSub.Rows(0)("CveProyecto").ToString())
+                If DTProy.Rows.Count > 0 Then
+                    DdlProyectoAsistenciaC.SelectedValue = DTProy.Rows(0)("CveProyecto").ToString()
+                    DdlProyectoAsistenciaA_SelectedIndexChanged(Me, New EventArgs)
+                    DdlSubProyectoAsistenciasC.SelectedValue = Request("CveSubProyecto")
+                End If
+            End If
+            'DdlProyectoAsistenciaC
+            'DdlSubProyectoAsistenciasC
+        End If
+
+        TxtFechaICredito.Text = $"01/01/{Now.Year}"
+        TxtFechaFCredito.Text = Now.ToShortDateString
+    End Sub
+    Private Sub SetPermisos()
+        'Permisos
+
+    End Sub
+
+#Region "Carga Combos"
+
+    Private Sub CargaEscolaridad()
+        DdlEscolaridad.DataSource = GlobalDTEscolaridad
+        DdlEscolaridad.DataBind()
+    End Sub
+
+    Private Sub CargaGenero()
+        DdlGenero.DataSource = GlobalDTGenero
+        DdlGenero.DataBind()
+    End Sub
+
+    Private Sub CargaEstadoCivil()
+        DdlEstadoCivil.DataSource = GlobalDTEstadoCivil
+        DdlEstadoCivil.DataBind()
+    End Sub
+
+    Private Sub CargaTipoPeriodo()
+        DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
+        DdlTipoPeriodo.DataBind()
+    End Sub
 
-    Private Sub CargaEscolaridad()
-        DdlEscolaridad.DataSource = GlobalDTEscolaridad
-        DdlEscolaridad.DataBind()
-    End Sub
-
-    Private Sub CargaGenero()
-        DdlGenero.DataSource = GlobalDTGenero
-        DdlGenero.DataBind()
-    End Sub
-
-    Private Sub CargaEstadoCivil()
-        DdlEstadoCivil.DataSource = GlobalDTEstadoCivil
-        DdlEstadoCivil.DataBind()
-    End Sub
-
-    Private Sub CargaTipoPeriodo()
-        DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
-        DdlTipoPeriodo.DataBind()
-    End Sub
-
     Private Sub CargaTiposContrato()
-        Dim dt As DataTable = GlobalDTTiposContrato
-        DdlTipoContrato.DataSource = dt
-        DdlTipoContrato.DataBind()
-    End Sub
-
-    Private Sub CargaTurno()
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlTurno.DataBind()
-    End Sub
-
-    Private Sub CargaJornadas()
-        DdlJornada.DataSource = GlobalDTJornadas
-        DdlJornada.DataBind()
-    End Sub
-
-    'Private Sub CargaMotivoHoraExtra()
-    '    DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-    '    DdlMotivoHoraExtra.DataBind()
-    'End Sub
-
-    Private Sub CargaDepartamento()
-        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlDepartamento.DataBind()
-    End Sub
-
-    Private Sub CargaPuestos()
-        DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
-        DdlPuesto.DataBind()
-    End Sub
-
-    Private Sub CargaRuta()
-        DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlRuta.DataBind()
-    End Sub
-
-    Private Sub CargaMotivoBaja()
-        DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlMotivoBaja.DataBind()
-    End Sub
-
-    Private Sub CargaEstatusPersonal()
-        DdlEstatusPersonal.DataSource = GlobalDTEstatusPersonal
-        DdlEstatusPersonal.DataBind()
-    End Sub
-
-    Private Sub CargaUsuariosNomina()
-
-        DDLUsuarioNomina.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
-        DDLUsuarioNomina.DataBind()
-
-        DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
-
-    End Sub
-    Private Sub CargaClientes()
-        Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            DdlClienteAsignado.DataSource = ObjClientes.DtResultados
-            DdlClienteAsistenciaC.DataSource = ObjClientes.DtResultados
-            DdlClienteAsistenciaA.DataSource = ObjClientes.DtResultados
-        Else
-            DdlClienteAsignado.DataSource = Nothing
-            DdlClienteAsistenciaC.DataSource = Nothing
-            DdlClienteAsistenciaA.DataSource = Nothing
-        End If
-        ObjClientes.Dispose()
-        DdlClienteAsignado.DataBind()
-        DdlClienteAsistenciaC.DataBind()
-        DdlClienteAsistenciaA.DataBind()
-    End Sub
-
-    Private Sub CargaProyecto()
-
-        CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyectoAsignado, LblSubProyectoAsignado)
-        DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
-        'DdlProyectoAsignado.Items.Clear()
-        'DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 1)
-        'DdlProyectoAsignado.DataBind()
-
-        'DdlProyectoAsignado.Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
-
-        DdlProyectoAsistenciaC.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
-        DdlProyectoAsistenciaC.DataBind()
-
-        DdlProyectoAsistenciaA.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
-        DdlProyectoAsistenciaA.DataBind()
-
-    End Sub
-
-    Private Sub CargaSubProyectoAsignado()
+        Dim dt As DataTable = GlobalDTTiposContrato
+        DdlTipoContrato.DataSource = dt
+        DdlTipoContrato.DataBind()
+    End Sub
+
+    Private Sub CargaTurno()
+        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataBind()
+    End Sub
+
+    Private Sub CargaJornadas()
+        DdlJornada.DataSource = GlobalDTJornadas
+        DdlJornada.DataBind()
+    End Sub
+
+    'Private Sub CargaMotivoHoraExtra()
+    '    DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+    '    DdlMotivoHoraExtra.DataBind()
+    'End Sub
+
+    Private Sub CargaDepartamento()
+        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlDepartamento.DataBind()
+    End Sub
+
+    Private Sub CargaPuestos()
+        DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
+        DdlPuesto.DataBind()
+    End Sub
+
+    Private Sub CargaRuta()
+        DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlRuta.DataBind()
+    End Sub
+
+    Private Sub CargaMotivoBaja()
+        DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlMotivoBaja.DataBind()
+    End Sub
+
+    Private Sub CargaEstatusPersonal()
+        DdlEstatusPersonal.DataSource = GlobalDTEstatusPersonal
+        DdlEstatusPersonal.DataBind()
+    End Sub
+
+    Private Sub CargaUsuariosNomina()
+
+        DDLUsuarioNomina.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        DDLUsuarioNomina.DataBind()
+
+        DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+    End Sub
+    Private Sub CargaClientes()
+        Dim ObjClientes As New ClsClientes
+        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+            DdlClienteAsignado.DataSource = ObjClientes.DtResultados
+            DdlClienteAsistenciaC.DataSource = ObjClientes.DtResultados
+            DdlClienteAsistenciaA.DataSource = ObjClientes.DtResultados
+        Else
+            DdlClienteAsignado.DataSource = Nothing
+            DdlClienteAsistenciaC.DataSource = Nothing
+            DdlClienteAsistenciaA.DataSource = Nothing
+        End If
+        ObjClientes.Dispose()
+        DdlClienteAsignado.DataBind()
+        DdlClienteAsistenciaC.DataBind()
+        DdlClienteAsistenciaA.DataBind()
+    End Sub
+
+    Private Sub CargaProyecto()
+
+        CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyectoAsignado, LblSubProyectoAsignado)
+        DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
+        'DdlProyectoAsignado.Items.Clear()
+        'DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 1)
+        'DdlProyectoAsignado.DataBind()
+
+        'DdlProyectoAsignado.Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
+
+        DdlProyectoAsistenciaC.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
+        DdlProyectoAsistenciaC.DataBind()
+
+        DdlProyectoAsistenciaA.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
+        DdlProyectoAsistenciaA.DataBind()
+
+    End Sub
+
+    Private Sub CargaSubProyectoAsignado()
         If DivProyectosAsignado.Visible Then
 
             DdlSubProyectoAsignado.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
@@ -1100,2729 +1109,2730 @@ Partial Class RH_Personal
             'DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(DdlProyectoAsignado.SelectedValue.ToEntero)
             'DdlSubProyectoAsignado.DataBind()
 
-            'DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
-        End If
-    End Sub
-
-    Private Sub CargaSubProyectoAsistenciaC()
-        DdlSubProyectoAsistenciasC.Items.Clear()
-        DdlSubProyectoAsistenciasC.DataSource = GlobalDTSubProyectos(DdlProyectoAsistenciaC.SelectedValue.ToEntero)
-        DdlSubProyectoAsistenciasC.DataBind()
-
-        DdlSubProyectoAsistenciasC.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    End Sub
-
-    Private Sub CargaSubProyectoAsistenciaA()
-        DdlSubProyectoAsistenciasA.Items.Clear()
-        DdlSubProyectoAsistenciasA.DataSource = GlobalDTSubProyectos(DdlProyectoAsistenciaA.SelectedValue.ToEntero)
-        DdlSubProyectoAsistenciasA.DataBind()
-
-        DdlSubProyectoAsistenciasA.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    End Sub
-
-    Private Sub CargaTiposAsistencia()
-        DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlTipoAsistencias.DataBind()
-    End Sub
-
-    Private Sub CargaMotivosHorasExtras()
-        DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlMotivoHoraExtra.DataBind()
-    End Sub
-
-    Private Sub CargaSupervisores()
-        DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
-        DdlSupervisor.DataBind()
-    End Sub
-
-
-
-    Private Sub CargaPermisosReemplazos()
-
-        Dim ObjRH As New ClsRH
-
-        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-            DdlPermisosReemplazo.DataSource = ObjRH.DtResultados
-        Else
-            DdlPermisosReemplazo.DataSource = Nothing
-            ' Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
-        End If
-        ObjRH.Dispose()
-
-
-        DdlPermisosReemplazo.DataBind()
-
-
-
-
-        ' DdlPermisosReemplazo.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        'DdlPermisosReemplazo.DataBind()
-    End Sub
-    Private Sub CargaMetodosPago()
-        DdlMetodoPago.DataSource = GlobalDTMetodosPago
-        DdlMetodoPago.DataBind()
-    End Sub
-
-    Private Sub CargaTipoRegimen()
-        DdlRegimenContratacion.DataSource = GlobalDTNomSatRegimenContratacion
-        DdlRegimenContratacion.DataBind()
-    End Sub
-
-    Private Sub CargaRiesgoPuesto()
-        DdlRiesgoPuesto.DataSource = GlobalDTNomSatRiesgoPuesto
-        DdlRiesgoPuesto.DataBind()
-    End Sub
-
-    Private Sub CargaBancos()
-        DdlBanco.DataSource = GlobalDTNomSatBancos
-        DdlBanco.DataBind()
-    End Sub
-
-    Private Sub CargaEstados(pCvePais As Integer)
-        DdlEstados.DataSource = GlobalDTGralEstados(pCvePais)
-        DdlEstados.DataBind()
-    End Sub
-
-    'Private Sub CargaSucursales()
-    '    DdlSucursal.DataSource = GlobalDTSucursales.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-    '    DdlSucursal.DataBind()
-
-    '    If UsuarioActual.CveSucursal = -1 Then
-    '        DdlSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    '    Else
-    '        DdlSucursal.SelectedValue = UsuarioActual.CveSucursal.ToString()
-    '    End If
-    'End Sub
-
-    Private Sub CargaSubProyectosZona()
-        Dim objRH As New ClsRH
-
-        If objRH.SubproyectoZonaGet(-1, -1, UsuarioActual.Empresa.CveEmpresa) Then
-            DdlSubproyectoZona.DataSource = objRH.DtResultados.FiltraParametros("Estatus=1")
-        Else
-            DdlSubproyectoZona.DataSource = Nothing
-        End If
-
-        objRH.Dispose()
-        DdlSubproyectoZona.DataBind()
-
-    End Sub
-    Private Sub CargaNominas()
-        Dim Nom As New ClsRH
-
-        If Nom.GetNominas(CvePersonal, UsuarioActual.CveEmpresa) Then
-            GvNominas.DataSource = Nom.DtResultados
-        End If
-        If UsuarioActual.CveRol = 1 Then GvNominas.Columns(10).Visible = True
-
-        Nom.Dispose()
-        GvNominas.DataBind()
-
+            'DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
+        End If
+    End Sub
+
+    Private Sub CargaSubProyectoAsistenciaC()
+        DdlSubProyectoAsistenciasC.Items.Clear()
+        DdlSubProyectoAsistenciasC.DataSource = GlobalDTSubProyectos(DdlProyectoAsistenciaC.SelectedValue.ToEntero)
+        DdlSubProyectoAsistenciasC.DataBind()
+
+        DdlSubProyectoAsistenciasC.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+
+    Private Sub CargaSubProyectoAsistenciaA()
+        DdlSubProyectoAsistenciasA.Items.Clear()
+        DdlSubProyectoAsistenciasA.DataSource = GlobalDTSubProyectos(DdlProyectoAsistenciaA.SelectedValue.ToEntero)
+        DdlSubProyectoAsistenciasA.DataBind()
+
+        DdlSubProyectoAsistenciasA.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+
+    Private Sub CargaTiposAsistencia()
+        DdlTipoAsistencias.DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTipoAsistencias.DataBind()
+    End Sub
+
+    Private Sub CargaMotivosHorasExtras()
+        DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlMotivoHoraExtra.DataBind()
+    End Sub
+
+    Private Sub CargaSupervisores()
+        DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
+        DdlSupervisor.DataBind()
+    End Sub
+
+
+
+    Private Sub CargaPermisosReemplazos()
+
+        Dim ObjRH As New ClsRH
+
+        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+            DdlPermisosReemplazo.DataSource = ObjRH.DtResultados
+        Else
+            DdlPermisosReemplazo.DataSource = Nothing
+            ' Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
+        End If
+        ObjRH.Dispose()
+
+
+        DdlPermisosReemplazo.DataBind()
+
+
+
+
+        ' DdlPermisosReemplazo.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        'DdlPermisosReemplazo.DataBind()
+    End Sub
+    Private Sub CargaMetodosPago()
+        DdlMetodoPago.DataSource = GlobalDTMetodosPago
+        DdlMetodoPago.DataBind()
+    End Sub
+
+    Private Sub CargaTipoRegimen()
+        DdlRegimenContratacion.DataSource = GlobalDTNomSatRegimenContratacion
+        DdlRegimenContratacion.DataBind()
+    End Sub
+
+    Private Sub CargaRiesgoPuesto()
+        DdlRiesgoPuesto.DataSource = GlobalDTNomSatRiesgoPuesto
+        DdlRiesgoPuesto.DataBind()
+    End Sub
+
+    Private Sub CargaBancos()
+        DdlBanco.DataSource = GlobalDTNomSatBancos
+        DdlBanco.DataBind()
+    End Sub
+
+    Private Sub CargaEstados(pCvePais As Integer)
+        DdlEstados.DataSource = GlobalDTGralEstados(pCvePais)
+        DdlEstados.DataBind()
+    End Sub
+
+    'Private Sub CargaSucursales()
+    '    DdlSucursal.DataSource = GlobalDTSucursales.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+    '    DdlSucursal.DataBind()
+
+    '    If UsuarioActual.CveSucursal = -1 Then
+    '        DdlSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '    Else
+    '        DdlSucursal.SelectedValue = UsuarioActual.CveSucursal.ToString()
+    '    End If
+    'End Sub
+
+    Private Sub CargaSubProyectosZona()
+        Dim objRH As New ClsRH
+
+        If objRH.SubproyectoZonaGet(-1, -1, UsuarioActual.Empresa.CveEmpresa) Then
+            DdlSubproyectoZona.DataSource = objRH.DtResultados.FiltraParametros("Estatus=1")
+        Else
+            DdlSubproyectoZona.DataSource = Nothing
+        End If
+
+        objRH.Dispose()
+        DdlSubproyectoZona.DataBind()
+
+    End Sub
+    Private Sub CargaNominas()
+        Dim Nom As New ClsRH
+
+        If Nom.GetNominas(CvePersonal, UsuarioActual.CveEmpresa) Then
+            GvNominas.DataSource = Nom.DtResultados
+        End If
+        If UsuarioActual.CveRol = 1 Then GvNominas.Columns(10).Visible = True
+
+        Nom.Dispose()
+        GvNominas.DataBind()
+
     End Sub
 
 
 
 
-#End Region
+#End Region
 
-#Region "Asistencias"
+#Region "Asistencias"
 
 
-    Protected Sub LnkEliminarAsistencia_Click(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-        Dim ObjRH As New ClsRH
-        If ObjRH.RemovePersonalAsistencias(GvRow.DataKey("CveAsistencia").ToEntero) Then
-            Alert("La asistencia ha sido eliminada correctamente.")
-            CargaGvAsistencias()
-        End If
-        ObjRH.Dispose()
-    End Sub
-    Protected Sub BtnConsultarAsistencia_Click(sender As Object, e As System.EventArgs) Handles BtnConsultarAsistencia.Click
-        CargaGvAsistencias()
-        'Dim FechaI, FechaF As Date
-        'Dim CveTurno, CveSubProyecto As Integer
-    End Sub
-
-    Protected Sub CargaGvAsistencias(Optional Orden As String = "")
-        Dim objpersonal As New ClsRH
-        If objpersonal.GetAsistencias(CvePersonal, DdlClienteAsistenciaC.SelectedValue.ToEntero, -1, DdlSubProyectoAsistenciasC.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, -1, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
-            GVAsistencia.DataSource = objpersonal.DtResultados.FiltraParametros("Fecha IS NOT NULL")
-        Else
-            GVAsistencia.DataSource = Nothing
-        End If
-        objpersonal.Dispose()
-        GVAsistencia.DataBind()
-        UpDatos.Update()
-    End Sub
-    Protected Sub LbGuardarAsistencia_Click(sender As Object, e As System.EventArgs) Handles LbGuardarAsistencia.Click
-        Dim ObjPersonal As New ClsRH()
-        If ObjPersonal.AddAsistencia(CvePersonal, DdlClienteAsistenciaA.SelectedValue.ToEntero, DdlSubProyectoAsistenciasA.SelectedValue.ToEntero, TxtFechaAsistencia.Text.Trim.ToDate,
-            DdlTipoAsistencias.SelectedValue.ToEntero, TxtPorPago.Text.Trim.ToDouble, TxtHorasDobles.Text.Trim.ToDouble,
-          TxtHorasTriples.Text.Trim.ToDouble, DdlMotivoHoraExtra.SelectedValue.ToEntero, TxtObservaciones.Text.Trim,
-          UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-
-            Alert("Las Asistencias se guardaron correctamente.", TipoMensaje.MsgInformacion)
-            BtnConsultarAsistencia_Click(sender, e)
-        End If
-
-        ObjPersonal.Dispose()
-    End Sub
-
-    Protected Sub GVAsistencia_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAsistencia.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-
-            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
-
-            If IsDate(e.Row.DBCampo("Fecha")) Then e.Row.FCLiteral("LtlFecha").Text = e.Row.DBCampo("Fecha").ToDate.ToShortDateString
-            If e.Row.FCLiteral("LtlCliente").Text <> "N/A" Then e.Row.FCLiteral("LtlCliente").Text = "<a class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente=" & e.Row.DBCampo("CveCliente") & """>" & e.Row.DBCampo("Cliente") & "</a>"
-            e.Row.FCTextBox("TxtPorPago").Text = e.Row.DBCampo("PorcentajePago")
-            e.Row.FCTextBox("TxtHorasDobles").Text = e.Row.DBCampo("HorasDobles")
-            e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples")
-
-            'Carga Tipos de Asistencia
-            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            e.Row.FCDropDownList("DdlTipoAsistencias").DataBind()
-            If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")
-
-            'Carga Motivos Horas Extras
-            e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind()
-            If e.Row.DBCampo("CveMotivoHoraExtra") <> "-1" Then e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra")
-
-            e.Row.FCTextBox("TxtObservaciones").Text = e.Row.DBCampo("Observacion")
-
-            If e.Row.DBCampo("SeModifico") = "0" Then
-                e.Row.Cells(0).BackColor = Drawing.Color.LightBlue
-                e.Row.Cells(1).BackColor = Drawing.Color.LightBlue
-                e.Row.Cells(2).BackColor = Drawing.Color.LightBlue
-                e.Row.Cells(3).BackColor = Drawing.Color.LightBlue
-            ElseIf e.Row.DBCampo("SeModifico") = "1" Then
-                e.Row.Cells(0).ForeColor = Drawing.Color.Red
-                e.Row.Cells(1).ForeColor = Drawing.Color.Red
-                e.Row.Cells(2).ForeColor = Drawing.Color.Red
-                e.Row.Cells(3).ForeColor = Drawing.Color.Red
-            End If
-
-        End If
-    End Sub
-
-    Protected Sub BtnGuardarAsistenciaCambios_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarAsistenciaCambios.Click
-        Dim ObjPersonal As New ClsRH()
-        ObjPersonal.IniciaTransacSQL()
-        Dim OcurrioError As Boolean = False
-
-        For Each Row As GridViewRow In GVAsistencia.Rows
-            If Not ObjPersonal.AddAsistencia(Row.DataKey("CvePersonal").ToEntero, DdlClienteAsistenciaC.SelectedValue.ToEntero, DdlSubProyectoAsistenciasC.SelectedValue.ToEntero, Row.FCLiteral("LtlFecha").Text.Trim.ToDate,
-              Row.FCDropDownList("DdlTipoAsistencias").SelectedValue.ToEntero, Row.FCTextBox("TxtPorPago").Text.Trim.ToDouble, Row.FCTextBox("TxtHorasDobles").Text.Trim.ToDouble,
-              Row.FCTextBox("TxtHorasTriples").Text.Trim.ToDouble, Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue.ToEntero, Row.FCTextBox("TxtObservaciones").Text.Trim,
-              UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-                OcurrioError = True
-                Exit For
-            End If
-        Next
-
-        If OcurrioError Then
-            ObjPersonal.RollBack()
-            Alert("Ocurrió un error al guardar las Asistencias.", TipoMensaje.MsgError)
-        Else
-            ObjPersonal.Commit()
-            Alert("Las Asistencias se guardaron correctamente.", TipoMensaje.MsgInformacion)
-        End If
-
-        ObjPersonal.Dispose()
-
-        BtnConsultarAsistencia_Click(sender, e)
+    Protected Sub LnkEliminarAsistencia_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        Dim ObjRH As New ClsRH
+        If ObjRH.RemovePersonalAsistencias(GvRow.DataKey("CveAsistencia").ToEntero) Then
+            Alert("La asistencia ha sido eliminada correctamente.")
+            CargaGvAsistencias()
+        End If
+        ObjRH.Dispose()
     End Sub
-#End Region
-    Private Sub CargaConsignacion()
-
-        Dim ObjInventario As New ClsInventarios
-
-        If ObjInventario.GetConsignaciones(UsuarioActual.CveEmpresa, CvePersonal) Then
-            GvConsignacion.DataSource = ObjInventario.DtResultados
-            GvConsignacion.DataBind()
-        End If
-        ObjInventario.Dispose()
-    End Sub
-    Private Sub CargaDatos()
-        Dim ObjPersonal As New ClsRH()
-        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
-            If ObjPersonal.DtResultados.Rows.Count > 0 Then
-                Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0)
-                ChkEstemporal.Checked = drow("esTemporal").ToString() = "1"
-                CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1"
+    Protected Sub BtnConsultarAsistencia_Click(sender As Object, e As System.EventArgs) Handles BtnConsultarAsistencia.Click
+        CargaGvAsistencias()
+        'Dim FechaI, FechaF As Date
+        'Dim CveTurno, CveSubProyecto As Integer
+    End Sub
+
+    Protected Sub CargaGvAsistencias(Optional Orden As String = "")
+        Dim objpersonal As New ClsRH
+        If objpersonal.GetAsistencias(CvePersonal, DdlClienteAsistenciaC.SelectedValue.ToEntero, -1, DdlSubProyectoAsistenciasC.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, -1, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, UsuarioActual.CveEmpresa) Then
+            GVAsistencia.DataSource = objpersonal.DtResultados.FiltraParametros("Fecha IS NOT NULL")
+        Else
+            GVAsistencia.DataSource = Nothing
+        End If
+        objpersonal.Dispose()
+        GVAsistencia.DataBind()
+        UpDatos.Update()
+    End Sub
+    Protected Sub LbGuardarAsistencia_Click(sender As Object, e As System.EventArgs) Handles LbGuardarAsistencia.Click
+        Dim ObjPersonal As New ClsRH()
+        If ObjPersonal.AddAsistencia(CvePersonal, DdlClienteAsistenciaA.SelectedValue.ToEntero, DdlSubProyectoAsistenciasA.SelectedValue.ToEntero, TxtFechaAsistencia.Text.Trim.ToDate,
+            DdlTipoAsistencias.SelectedValue.ToEntero, TxtPorPago.Text.Trim.ToDouble, TxtHorasDobles.Text.Trim.ToDouble,
+          TxtHorasTriples.Text.Trim.ToDouble, DdlMotivoHoraExtra.SelectedValue.ToEntero, TxtObservaciones.Text.Trim,
+          UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+
+            Alert("Las Asistencias se guardaron correctamente.", TipoMensaje.MsgInformacion)
+            BtnConsultarAsistencia_Click(sender, e)
+        End If
+
+        ObjPersonal.Dispose()
+    End Sub
+
+    Protected Sub GVAsistencia_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAsistencia.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+
+            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
+
+            If IsDate(e.Row.DBCampo("Fecha")) Then e.Row.FCLiteral("LtlFecha").Text = e.Row.DBCampo("Fecha").ToDate.ToShortDateString
+            If e.Row.FCLiteral("LtlCliente").Text <> "N/A" Then e.Row.FCLiteral("LtlCliente").Text = "<a class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente=" & e.Row.DBCampo("CveCliente") & """>" & e.Row.DBCampo("Cliente") & "</a>"
+            e.Row.FCTextBox("TxtPorPago").Text = e.Row.DBCampo("PorcentajePago")
+            e.Row.FCTextBox("TxtHorasDobles").Text = e.Row.DBCampo("HorasDobles")
+            e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples")
+
+            'Carga Tipos de Asistencia
+            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("DdlTipoAsistencias").DataBind()
+            If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")
+
+            'Carga Motivos Horas Extras
+            e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind()
+            If e.Row.DBCampo("CveMotivoHoraExtra") <> "-1" Then e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra")
+
+            e.Row.FCTextBox("TxtObservaciones").Text = e.Row.DBCampo("Observacion")
+
+            If e.Row.DBCampo("SeModifico") = "0" Then
+                e.Row.Cells(0).BackColor = Drawing.Color.LightBlue
+                e.Row.Cells(1).BackColor = Drawing.Color.LightBlue
+                e.Row.Cells(2).BackColor = Drawing.Color.LightBlue
+                e.Row.Cells(3).BackColor = Drawing.Color.LightBlue
+            ElseIf e.Row.DBCampo("SeModifico") = "1" Then
+                e.Row.Cells(0).ForeColor = Drawing.Color.Red
+                e.Row.Cells(1).ForeColor = Drawing.Color.Red
+                e.Row.Cells(2).ForeColor = Drawing.Color.Red
+                e.Row.Cells(3).ForeColor = Drawing.Color.Red
+            End If
+
+        End If
+    End Sub
+
+    Protected Sub BtnGuardarAsistenciaCambios_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarAsistenciaCambios.Click
+        Dim ObjPersonal As New ClsRH()
+        ObjPersonal.IniciaTransacSQL()
+        Dim OcurrioError As Boolean = False
+
+        For Each Row As GridViewRow In GVAsistencia.Rows
+            If Not ObjPersonal.AddAsistencia(Row.DataKey("CvePersonal").ToEntero, DdlClienteAsistenciaC.SelectedValue.ToEntero, DdlSubProyectoAsistenciasC.SelectedValue.ToEntero, Row.FCLiteral("LtlFecha").Text.Trim.ToDate,
+              Row.FCDropDownList("DdlTipoAsistencias").SelectedValue.ToEntero, Row.FCTextBox("TxtPorPago").Text.Trim.ToDouble, Row.FCTextBox("TxtHorasDobles").Text.Trim.ToDouble,
+              Row.FCTextBox("TxtHorasTriples").Text.Trim.ToDouble, Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue.ToEntero, Row.FCTextBox("TxtObservaciones").Text.Trim,
+              UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                OcurrioError = True
+                Exit For
+            End If
+        Next
+
+        If OcurrioError Then
+            ObjPersonal.RollBack()
+            Alert("Ocurrió un error al guardar las Asistencias.", TipoMensaje.MsgError)
+        Else
+            ObjPersonal.Commit()
+            Alert("Las Asistencias se guardaron correctamente.", TipoMensaje.MsgInformacion)
+        End If
+
+        ObjPersonal.Dispose()
+
+        BtnConsultarAsistencia_Click(sender, e)
+    End Sub
+#End Region
+    Private Sub CargaConsignacion()
+
+        Dim ObjInventario As New ClsInventarios
+
+        If ObjInventario.GetConsignaciones(UsuarioActual.CveEmpresa, CvePersonal) Then
+            GvConsignacion.DataSource = ObjInventario.DtResultados
+            GvConsignacion.DataBind()
+        End If
+        ObjInventario.Dispose()
+    End Sub
+    Private Sub CargaDatos()
+        Dim ObjPersonal As New ClsRH()
+        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
+            If ObjPersonal.DtResultados.Rows.Count > 0 Then
+                Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0)
+                ChkEstemporal.Checked = drow("esTemporal").ToString() = "1"
+                CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1"
                 TxtMailrecibonomina.Text = drow("MaiReciboNomina").ToString()
                 'Carga Datos Personales
-                LtlPersonal.Text = ObjPersonal.NombreCompleto
-                NombreCompleto = ObjPersonal.NombreCompleto
-                'TxtNombre.Text = ObjPersonal.Nombre
-                TxtAPaterno.Text = ObjPersonal.APaterno
-                TxtAMaterno.Text = ObjPersonal.AMaterno
-                TxtNombres.Text = ObjPersonal.Nombres
-                TxtCorreo.Text = ObjPersonal.Correo
-                TxtCodigo.Text = ObjPersonal.Codigo
-                DdlEscolaridad.SelectedValue = ObjPersonal.CveEscolaridad.ToString()
-                DdlEstadoCivil.SelectedValueExist(ObjPersonal.CveEstadoCivil.ToString())
-                DdlGenero.SelectedValue = ObjPersonal.CveGenero.ToString()
-                TxtFechaNacimiento.Text = ObjPersonal.FechaNacimiento.ToShortDateString
-                TxtRFC.Text = ObjPersonal.RFC
-                TxtCURP.Text = ObjPersonal.CURP
-                'Localización 
-                'TxtDireccion.Text = ObjPersonal.Direccion
-                TxtCalle.Text = ObjPersonal.Calle
-                TxtNumExt.Text = ObjPersonal.NumExt
-                TxtNumInt.Text = ObjPersonal.NumInt
-                TxtColonia.Text = ObjPersonal.Colonia
-                DdlEstados.SelectedValueExist(ObjPersonal.CveEstado.ToString())
-                TxtCP.Text = ObjPersonal.CP
-                TxtColonia.Text = ObjPersonal.Colonia
-                TxtCiudad.Text = ObjPersonal.Ciudad
-                TxtEstado.Text = ObjPersonal.Estado
-                TxtTelefono.Text = ObjPersonal.Telefono
-                TxtCelular.Text = ObjPersonal.Celular
-                TxtLugarNacimiento.Text = ObjPersonal.LugarNacimiento.ToString()
-                TxtNombrePadre.Text = ObjPersonal.NombrePadre
-                TxtNombreMadre.Text = ObjPersonal.NombreMadre
-                Session("FileUpload") = ObjPersonal.URL
-                ViewState("Archivo") = ObjPersonal.URL
-                TxtTelefonoExtension.Text = ObjPersonal.TelefonoExtension
-                TxtCelularPersonal.Text = ObjPersonal.CelularPersonal
-                TxtTelefonoMarcadoRapido.Text = ObjPersonal.TelefonoMarcadoRapido
-                'TxtContactoAlterno.Text = ObjPersonal.ContactoAlterno
-
-
-                If ObjPersonal.CveUniforme > 0 Then
-                    LnkSurtir.Visible = True
-                    ViewState("CveUniforme") = ObjPersonal.CveUniforme
-                    DdlUniforme.SelectedValueExist(CveUniforme)
-                    LnkSurtir.PostBackUrl = $"../Inventarios/ResguardoMaterial.aspx?CvePersonal={CvePersonal}"
-                    CargaUniformesPersonal()
-                End If
-
-                If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
-
-                    LnkSurtir.Visible = True
-                    DdlUniforme.Visible = False
-                    LnkSurtir.PostBackUrl = $"../Inventarios/ResguardoMaterial.aspx?CvePersonal={CvePersonal}&EsSurtidoUniforme=1"
-                    CargaUniformesPersonal()
-
-                End If
-
-                If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".jpg") Then
-                    Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.jpg", UsuarioActual.CveEmpresa, CvePersonal)
-                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
-
-                    ImgPersonal.ImageUrl = logouri
-                ElseIf File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".png") Then
-                    Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal)
-                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
-
-                    ImgPersonal.ImageUrl = logouri
-                ElseIf File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".bmp") Then
-                    Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.bmp", UsuarioActual.CveEmpresa, CvePersonal)
-                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
-
-                    ImgPersonal.ImageUrl = logouri
-                End If
-                'BtnCargarArchivo_Click(Me, New EventArgs)
-
-
-                'Carga RH
-                TxtFechaInicioContrato.Text = ObjPersonal.FechaInicioContrato.ToShortDateString
-                TxtFechaFinContrato.Text = If(ObjPersonal.FechaFinContrato.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaFinContrato.ToShortDateString)
-                DDlTipoSalario.SelectedValue = drow("CveTipodeSalario").ToString()
-                DdlTipoContrato.SelectedValue = ObjPersonal.CveTipoContrato.ToString()
-                DdlTurno.SelectedValue = ObjPersonal.CveTurno.ToString()
-                DdlJornada.SelectedValue = ObjPersonal.CveJornada.ToString()
-                DdlDepartamento.SelectedValue = ObjPersonal.CveDepartamento.ToString()
-                DdlSubproyectoZona.SelectedValueExist(ObjPersonal.CveSubproyectoZona)
-                DDLUsuarioNomina.SelectedValueExist(ObjPersonal.CveUsuarioNomina)
-                'DdlViaticos.SelectedValue = ObjPersonal.IdCtaContViaticos.ToString()
-
-                'For i As Integer = DdlDepartamento.Items.Count - 1 To 1 Step -1
-                '    If DdlDepartamento.Items(i).Value.Contains(ObjPersonal.CveDepartamento.ToString()) Then
-                '        DdlDepartamento.Items(i).Selected = True
-                '        Exit For
-                '    End If
-                'Next
-
-                DdlPuesto.SelectedValue = ObjPersonal.CvePuesto.ToString()
-                DdlRuta.SelectedValue = ObjPersonal.CveRuta.ToString()
-                DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString()
-
-                TxtFechaBaja.Text = If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)
-
-                If ObjPersonal.DtResultados IsNot Nothing AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
-                    TxtFechaActivo.Text = If(drow("FechaActivo").ToString().Length > 0, drow("FechaActivo").ToString().ToDate.ToString("dd/MM/yyyy"), drow("FechaIng").ToString().ToDate.ToString("dd/MM/yyyy"))
-                    TxtFechaReingreso.Text = If(drow("FechaReingreso").ToString().Length > 0, drow("FechaReingreso").ToString().ToDate.ToString("dd/MM/yyyy"), "")
-                End If
-
-                DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString()
-
-                MostrarOcultarFechasEstatus()
-
-                CvePersonalEstatusInicial = ObjPersonal.CveEstatusPersonal
-                ViewState("CveEstatusOriginal") = ObjPersonal.CveEstatusPersonal.ToString()
-                'Asignación
-                If ObjPersonal.CveCliente <> -1 Then
-                    DdlClienteAsignado.Items.Insert(1, New ListItem(ObjPersonal.Cliente, ObjPersonal.CveCliente.ToString()))
-                    DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString()
-                Else
-                    DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString()
-                End If
-                DdlProyectoAsignado.SelectedValue = ObjPersonal.CveProyecto.ToString()
-                If ObjPersonal.CveProyecto <> -1 Then DdlProyectoAsignado_SelectedIndexChanged(Me, New System.EventArgs())
-                DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString()
-                DdlSupervisor.SelectedValue = ObjPersonal.CveSupervisor.ToString()
-                'Carga Nómina
-                TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString
-                DdlTipoPeriodo.SelectedValue = ObjPersonal.CveTipoPeriodo.ToString()
-                TxtNumeroSS.Text = ObjPersonal.NumeroSS
-                ChkSeInscribioSS.Checked = ObjPersonal.SeInscribioSS
-                TxtSalarioDiarioPago.Text = ObjPersonal.SalarioDiarioPago.ToString()
-                TxtSalarioDiario.Text = ObjPersonal.SalarioDiario.ToString()
-                TxtSDI.Text = ObjPersonal.SDI.ToString()
-                TxtSalarioCotizado.Text = ObjPersonal.SalarioDiarioSS.ToString()
-                TxtFISalariodiario.Text = ObjPersonal.SalarioDiario.ToString()
-                TxtBono.Text = ObjPersonal.Bono.ToString()
-                TxtNumDiasAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
-                TxtFIAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
-                TxtPorPrimaVacacional.Text = ObjPersonal.PorPrimaVacacional.ToString()
-                TxtFIPrimaVacacional.Text = ObjPersonal.PorPrimaVacacional.ToString()
-
-                DdlMetodoPago.SelectedValue = ObjPersonal.CveMetodoPago.ToString()
-                TxtBancoNumCuenta.Text = ObjPersonal.BancoNumCuenta
-                TxtCLABE.Text = ObjPersonal.CLABE
-                DdlSupervisorOrganigrama.SelectedValueExist(If(ObjPersonal.CvePersonalPadre = ObjPersonal.CvePersonal, "0", If(ObjPersonal.CvePersonalPadre.ToString() = "0", "-1", ObjPersonal.CvePersonalPadre.ToString())))
-
-
-                DdlRegimenContratacion.SelectedValue = ObjPersonal.CveSATRegimenContratacion.ToString()
-                DdlBanco.SelectedValue = If(ObjPersonal.CveSATBanco = 0, "-1", ObjPersonal.CveSATBanco.ToString())
-                DdlRiesgoPuesto.SelectedValue = ObjPersonal.CveSATRiesgoPuesto.ToString()
-
-                'Carga Incidencias
-                BtnConsultarAsistencia_Click(Me, New System.EventArgs)
-
-                'Carga Buzón de Calidad
-                If ObjPersonal.GetBuzonCalidad(CvePersonal, UsuarioActual.CveEmpresa) Then
-                    ViewState("DTBuzonCalidad") = ObjPersonal.DtResultados
-                    GvBuzonCalidad.DataSource = ObjPersonal.DtResultados
-                Else
-                    GvBuzonCalidad.DataSource = Nothing
-                    ViewState("DTBuzonCalidad") = Nothing
-                End If
-                GvBuzonCalidad.DataBind()
-
-                'Carga Conceptos de Nómina
-                CarcaConceptosNomina()
-                'Carga Pagos no Bancarios
-                CargarPagosNoBancarios()
-                'Carga Resguardos
-                Dim ObjResguardos As New ClsAF
-                If ObjResguardos.GetActivosFijosResguardos(-1, -1, CvePersonal, -1) Then
-                    GvResguardos.DataSource = ObjResguardos.DtResultados
-                Else
-                    GvResguardos.DataSource = Nothing
-                End If
-                ObjResguardos.Dispose()
-                GvResguardos.DataBind()
-
-                If UsuarioActual.Empresa.UsaContabilidad Then
-                    DdlViaticos.AutoPostBack = True
-                    DdlPrestamos.AutoPostBack = True
-
-                    DdlViaticos.Attributes.Add("onclick", "CargaCuentas(1);")
-                    DdlPrestamos.Attributes.Add("onclick", "CargaCuentas(2);")
-
-                    If ObjPersonal.IdCtaContPersonal > 0 Then DdlViaticos.Items.Add(New ListItem(ObjPersonal.CtaContPersonal, ObjPersonal.IdCtaContPersonal.ToString())) : DdlViaticos.SelectedValue = ObjPersonal.IdCtaContPersonal.ToString()
-                    If ObjPersonal.IdCtaContPrestamos > 0 Then DdlPrestamos.Items.Add(New ListItem(ObjPersonal.CtaContPrestamos, ObjPersonal.IdCtaContPrestamos.ToString())) : DdlPrestamos.SelectedValue = ObjPersonal.IdCtaContPrestamos.ToString()
-
-                End If
-
-                LblFechaCaptura.Text = ObjPersonal.FechaIngreso.ToShortDateString
-                LblUsuarioCapturo.Text = ObjPersonal.Usuario
-                CargaNominas()
-                CargaCastosSinComprobar()
-                CargaGastosPorCheque()
-                CargaEventoBitacora()
-                CargaConsignacion()
-                CargaCursos()
-                CargaVacaciones()
-                CargaVacacionesResumenPeriodoActual()
-                Consumos()
-                CargaPagoFactura()
-                'DescarSolicitudVacaciones(-1)
-
-                TabVacaciones.Visible = True
-                If UsuarioActual.CveEmpresa = 7 Or UsuarioActual.CveEmpresa = 72 Then
-
-                    'If UsuarioActual.CveEmpresa = 72 Then
-
-                    '    GvVacacionesResumen.Visible = False
-                    '    DvHistorialVacaiones.Visible = False
-                    '    FvPerimososVacaciones.Visible = False
-                    '    'DVSolicitudVacaiones.Attributes.Add("class", "col-md-12")
-                    '    BtnSolicitarVacaciones.Text = "Solicitar"
-                    '    DvPermisosMotivos1.Visible = True
-                    '    DvPermisosMotivos2.Visible = True
-
-                    'End If
-
-                Else
-                    'TabVacaciones.Visible = False
-                End If
-
-                If VacDiasDisponibles > 0 Then
-                    TxtFechaInicioVac.Text = Now.AddDays(1).ToString("dd/MM/yyyy")
-                Else
-                    TxtFechaInicioVac.Text = Now.ToString("dd/MM/yyyy")
-                End If
-
-
-                TxtFechaFinVac.Text = Now.AddDays(VacDiasDisponibles).ToString("dd/MM/yyyy")
-
-                'PERSONAL ALTAS
-                If ObjPersonal.GetPersonalAltas(CvePersonal) Then
-                    GvPersonalAltas.DataSource = ObjPersonal.DtResultados
-                    GvPersonalAltas.DataBind()
-                End If
-                'Cargar Almacenes en DropDown GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 8)
-                DdlAlmacenDestinoLiberarUniforme.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 19")
-                DdlAlmacenDestinoLiberarUniforme.DataBind()
-
-            Else
-                Alert("El Personal Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
-                BtnGuardar.Enabled = False
-            End If
-        End If
-        ObjPersonal.Dispose()
-    End Sub
-
-    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
-        'System.Threading.Thread.Sleep(3000)
-        Dim ObjPersonal As New ClsRH()
-        Dim ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL())
-        Dim ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL())
-
-        Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\RH\" & ViewState("Archivo").ToString())
-        Dim URL As String = CvePersonal & Extension
-        Dim Ruta = String.Format("{0}Empresas\{1}\Temp\RH\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ViewState("Archivo").ToString())
-        Dim Archivo As New System.IO.FileInfo(Ruta)
-
-
-        Dim TieneError = False
-        Dim Mensaje = ""
-        Dim Accion = ""
-
-        Dim FechaBaja As Date = MinFecha
-        Dim FechaActivo As Date = MinFecha
-        Dim FechaReingreso As Date = MinFecha
-
-        If DdlEstatusPersonal.SelectedValue.ToEntero <> CvePersonalEstatusInicial Then
-            If DdlEstatusPersonal.SelectedValue.ToEntero = 1 Then
-                FechaActivo = TxtFechaActivo.Text.ToDate
-            ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 2 Then
-                FechaBaja = TxtFechaBaja.Text.ToDate
-            ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 5 Then
-                FechaReingreso = TxtFechaReingreso.Text.ToDate
-            End If
-        End If
-
-        If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
-            TxtSalarioCotizado.Text = TxtSDI.Text
-        End If
-
-        If CvePersonal = -1 Then
-            URL = ""
-
-            If ObjPersonal.AddPersonal(TxtCodigo.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, TxtCorreo.Text.Trim, TxtFechaIngreso.Text.ToDate,
-               DdlTipoPeriodo.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked, TxtSalarioDiarioPago.Text.Trim.ToDouble,
-               TxtSalarioDiario.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioCotizado.Text.Trim.ToDouble, TxtBono.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero,
-               TxtPorPrimaVacacional.Text.Trim.ToDouble, DdlMetodoPago.SelectedValue.ToEntero, TxtFechaInicioContrato.Text.Trim.ToDate, If(IsDate(TxtFechaFinContrato.Text.Trim()), TxtFechaFinContrato.Text.Trim(), "-1"),
-               DdlTipoContrato.SelectedValue.ToEntero, TxtUbicacion.Text.Trim,
-               DdlTurno.SelectedValue.ToEntero, DdlPuesto.SelectedValue.ToEntero,
-               DdlDepartamento.SelectedValue.ToEntero,
-               DdlRuta.SelectedValue.ToEntero,
-               DdlEscolaridad.SelectedValue.ToEntero,
-               DdlEstadoCivil.SelectedValue.ToEntero,
-               DdlGenero.SelectedValue.ToEntero,
-               DdlMotivoBaja.SelectedValue.ToEntero, If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
-               DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
-               TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
-               DdlEstados.SelectedValue.ToEntero, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
-               TxtCURP.Text.Trim, TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim, DdlBanco.SelectedValue.ToEntero, DdlRiesgoPuesto.SelectedValue.ToEntero, DdlRegimenContratacion.SelectedValue.ToEntero,
-               DdlClienteAsignado.SelectedValue.ToEntero, DdlSubProyectoAsignado.SelectedValue.ToEntero, URL,
-               DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
-               DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
-               TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero()) Then
-
-                If Archivo.Exists Then
-
-                    If File.Exists(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL)) Then
-                        File.Delete(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))
-                    End If
-                    System.IO.File.Move(String.Format("{0}Temp\RH\{1}", UsuarioActual.Empresa.Ruta, URL), String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))
-
-                End If
-
-                'Agregar Cuentas Bancarias
-                ViewState("CvePersonal") = ObjPersonal.CvePersonal
-
-                'Funsion usa RH Familiares
-                If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
-                    ProcesaDTFamiliares(ObjPersonal)
-                End If
-
-                If TempDTCuentasBancos.Rows.Count > 0 Then
-                    For Each row As DataRow In TempDTCuentasBancos.Rows
-                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then
-                            TieneError = True
-                            Exit For
-                        End If
-                    Next
-                End If
-                If DTLicencias IsNot Nothing AndAlso DTLicencias.Rows.Count > 0 Then
-                    For Each Dr As DataRow In DTLicencias.Rows
-                        If Not ObjAF.AddLicencia(-1, Dr("Licencia").ToString(), Dr("FechaExpedicion").ToString().ToDateTime(), Dr("FechaVencimiento").ToString().ToDateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePersonal:=ObjPersonal.CvePersonal) Then
-                            TieneError = True
-                            Exit For
-                        End If
-                    Next
-                End If
-
-                If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-                    GlobalDTGralColectivas(-1) = ObjPersonal.DtResultados
-                Else
-                    TieneError = True
-                End If
-
-                Mensaje = "El Personal se guardó correctamente."
-                Accion = If(Request("CveFactura") Is Nothing, "document.location.href=""/RH/CatPersonal.aspx""", "window.opener.location.href = window.opener.location.href; window.close();")
-
-                'Alert("El Personal se guardó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/RH/CatPersonal.aspx"";")
-            Else
-                TieneError = True
-            End If
-
-        Else
-            'If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
-            If ObjPersonal.UpdatePersonal(TxtCodigo.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, TxtCorreo.Text.Trim, TxtFechaIngreso.Text.ToDate,
-               DdlTipoPeriodo.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked, TxtSalarioDiarioPago.Text.Trim.ToDouble,
-               TxtSalarioDiario.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioCotizado.Text.Trim.ToDouble, TxtBono.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero,
-               TxtPorPrimaVacacional.Text.Trim.ToDouble, DdlMetodoPago.SelectedValue.ToEntero, TxtFechaInicioContrato.Text.Trim.ToDate, If(IsDate(TxtFechaFinContrato.Text.Trim()), TxtFechaFinContrato.Text.Trim(), "-1"),
-               DdlTipoContrato.SelectedValue.ToEntero, TxtUbicacion.Text.Trim,
-               DdlTurno.SelectedValue.ToEntero, DdlPuesto.SelectedValue.ToEntero,
-               DdlDepartamento.SelectedValue.ToEntero,
-               DdlRuta.SelectedValue.ToEntero,
-               DdlEscolaridad.SelectedValue.ToEntero,
-               DdlEstadoCivil.SelectedValue.ToEntero,
-               DdlGenero.SelectedValue.ToEntero,
-               DdlMotivoBaja.SelectedValue.ToEntero, If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
-               DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
-               TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
-               DdlEstados.SelectedValue.ToEntero, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
-               TxtCURP.Text.Trim, TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim,
-               DdlBanco.SelectedValue.ToEntero, DdlRiesgoPuesto.SelectedValue.ToEntero, DdlRegimenContratacion.SelectedValue.ToEntero,
-               DdlClienteAsignado.SelectedValue.ToEntero, DdlSubProyectoAsignado.SelectedValue.ToEntero, CvePersonal,
-               URL, DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
-               DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
-               TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
-               FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero()) Then
-
-                'Funsion usa RH Familiares
-                If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
-                    ProcesaDTFamiliares(ObjPersonal)
-                End If
-
-
-                If Archivo.Exists Then
-
-                    If Not Directory.Exists(String.Format("{0}\RH\Personal", UsuarioActual.Empresa.Ruta)) Then Directory.CreateDirectory(String.Format("{0}\RH\Personal", UsuarioActual.Empresa.Ruta))
-
-                    If File.Exists(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL)) Then
-                        File.Delete(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))
-                    End If
-                    System.IO.File.Move(String.Format("{0}Temp\RH\{1}", UsuarioActual.Empresa.Ruta, URL), String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))
-
-                End If
-
-                Mensaje = "Los cambios se guardaron correctamente."
-                'If ViewState("CveEstatusOriginal").ToString() <> DdlEstatusPersonal.SelectedValue Then
-                '    'Manda Mail con bajas
-                'End If
-
-
-            Else
-                TieneError = True
-            End If
-
-
-            'GUARDA ORGANIGRAMA
-            If Not TieneError Then
-                If Not ObjPersonal.AddUpdatePersonalOrganigrama(CvePersonal, If(DdlSupervisorOrganigrama.SelectedValue.ToEntero = 0, CvePersonal, DdlSupervisorOrganigrama.SelectedValue.ToEntero)) Then
-                    TieneError = True
-                End If
-            End If
-
-        End If
-
-
-
-        If TieneError Then
-            ObjPersonal.RollBack()
-            Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
-        Else
-            ObjPersonal.Commit()
-            Alert(Mensaje, TipoMensaje.MsgInformacion, Accion)
-
-            'If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then
-            '    ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL
-            'End If
-            GlobalDTRHPersonal(UsuarioActual.CveEmpresa) = Nothing
-
-            If CvePersonal > 0 Then
-                CargaDatos()
-            End If
-
-        End If
-
-        GuardarDocumentosFirmaContrato()
-        Session("FileUpload") = ""
-
-        ViewState("Archivo") = ""
-        ObjPersonal.Dispose()
-        ObjCuentasDeposito.Dispose()
-        ObjAF.Dispose()
-        UpDatos.Update()
-        CargaGvBitacora()
-
-    End Sub
-
-    'Private Sub MandaMails(Rutas As Object)
-    '    Try
-    '        Dim ObjMail As New ClsSisMail()
-    '        Dim ResultadoMail As Integer = 0
-
-    '        If ObjMail.Mandacorreo(SendMail, SendMailPassword, "valfredo@ford.com", "Notificación", "Notificación de empleado nuevo.<br />Nombre: " & TxtNombre.Text & "<br />Turno: " & DdlTurno.SelectedItem.Text & "<br />Proyecto: " & DdlSubProyectoAsignado.SelectedItem.Text) Then
-    '            ResultadoMail = 1
-    '        Else
-    '            ResultadoMail = 3
-    '        End If
-
-    '    Catch ex As Exception
-    '        OnError("Ocurrió error al mandar MAIL", ex)
-    '    End Try
-    'End Sub
-
-    Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
-        Dim ObjPersonal As New ClsRH()
-        If ObjPersonal.RemovePersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
-            Alert("El Personal se Eliminó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/RH/CatPersonal.aspx""")
-        End If
-        ObjPersonal.Dispose()
-    End Sub
-
-    Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsignado.SelectedIndexChanged
-        CargaSubProyectoAsignado()
-    End Sub
-
-    Protected Sub DdlProyectoAsistenciaC_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsistenciaC.SelectedIndexChanged
-        CargaSubProyectoAsistenciaC()
-    End Sub
-
-    Protected Sub DdlProyectoAsistenciaA_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsistenciaA.SelectedIndexChanged
-        CargaSubProyectoAsistenciaA()
-    End Sub
-
-    Protected Sub LbContrato_Click(sender As Object, e As System.EventArgs) Handles LbContrato.Click
-        'Dim oWordApp As Word.Application = Nothing
-        'Dim oWordDoc As Word.Document = Nothing
-        'Dim objSelection As Word.Selection = Nothing
-
-        'Dim ArchivoPath As String = ""
-
-        'Try
-        '    'GuardaLog("Inicia Petición de Aplicación")
-        '    oWordApp = New Word.Application
-        '    oWordApp.Visible = True
-        '    oWordDoc = oWordApp.Documents.Open(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Contratos\" & "SOGO.doc")
-        '    'GuardaLog("Inicia Petición de Documento")
-        '    If oWordDoc IsNot Nothing Then
-        '        'GuardaLog("Creación de Documento")
-        '        oWordDoc.Activate()
-        '        objSelection = oWordApp.Selection
-
-        '        objSelection.WholeStory()
-        '        objSelection.Copy()
-        '        objSelection.Delete(Unit:=wdCharacter, Count:=1)
-        '        'GuardaLog("Recorrer de reemplazo de variables")
-
-        '        objSelection.PasteAndFormat(Word.WdRecoveryType.wdPasteDefault)
-        '        'ReemplazaTexto(objSelection, "{NOMBRE_PERSONAL}", String.Format("{0} {1} {2}", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim))
-        '        'ReemplazaTexto(objSelection, "{DIRECCION}", String.Format("{0} {1} {2}", TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim))
-        '        'ReemplazaTexto(objSelection, "{CP}", TxtCP.Text.Trim)
-        '        'ReemplazaTexto(objSelection, "{CIUDAD}", TxtCiudad.Text.Trim)
-        '        'ReemplazaTexto(objSelection, "{ESTADO}", TxtEstado.Text.Trim)
-        '        'ReemplazaTexto(objSelection, "{DIA_INICIA_CONTRATO}", TxtFechaInicioContrato.Text.ToDate.Day.ToString())
-        '        'ReemplazaTexto(objSelection, "{MES_INICIA_CONTRATO}", MonthName(TxtFechaInicioContrato.Text.ToDate.Month).ToUpper)
-        '        'ReemplazaTexto(objSelection, "{ANIO_INICIA_CONTRATO}", TxtFechaInicioContrato.Text.ToDate.Year.ToString())
-        '        'ReemplazaTexto(objSelection, "{DIA_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Day.ToString())
-        '        'ReemplazaTexto(objSelection, "{MES_FIN_CONTRATO}", MonthName(TxtFechaFinContrato.Text.ToDate.Month).ToUpper)
-        '        'ReemplazaTexto(objSelection, "{ANIO_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Year.ToString())
-
-        '        'objSelection.InsertBreak(Type:=wdPageBreak)
-        '        'GuardaLog("Termina de reemplazo de variables")
-        '        objSelection.TypeBackspace()
-        '        objSelection.TypeBackspace()
-        '        If Not System.IO.Directory.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\") Then
-        '            System.IO.Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\")
-        '        End If
-        '        ArchivoPath = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & UsuarioActual.CveUsuario & ".doc"
-
-        '        oWordDoc.SaveAs(ArchivoPath.ToString())
-        '        oWordDoc.Close()
-        '    Else
-        '        Alert("No se pudo generar el archivo", TipoMensaje.MsgError)
-        '    End If
-
-        'Catch ex As Exception
-        '    Alert(ex.Message, TipoMensaje.MsgError)
-        '    OnError("", ex)
-        '    ArchivoPath = ""
-        'Finally
-
-        '    If oWordDoc IsNot Nothing Then
-        '        'GuardaLog("Documento Destruido")
-        '        While (Marshal.ReleaseComObject(oWordDoc) > 0)
-        '        End While
-        '        'GuardaLog("Documento Destruido")
-        '        oWordDoc = Nothing
-        '    End If
-
-        '    If oWordApp IsNot Nothing Then
-        '        oWordApp.Quit(False)
-        '        While (Marshal.ReleaseComObject(oWordApp) > 0)
-        '        End While
-        '        'GuardaLog("Aplicación Destruida")
-        '        oWordApp = Nothing
-        '    End If
-        '    System.GC.Collect()
-        '    objSelection = Nothing
-
-        'End Try
-
-
-        'If ArchivoPath <> "" Then
-
-        '    Dim Archivo As New System.IO.FileInfo(ArchivoPath)
-
-        '    'If Archivo.Exists Then
-        '    'HttpContext.Current.Response.Clear()
-        '    'HttpContext.Current.Response.ClearContent()
-        '    ''HttpContext.Current.Response.ContentType = "application/msword"
-        '    'HttpContext.Current.Response.ContentType = "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
-        '    'HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" & Archivo.Name)
-        '    'HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
-        '    'HttpContext.Current.Response.TransmitFile(ArchivoPath)
-        '    'HttpContext.Current.Response.Flush()
-        '    'HttpContext.Current.Response.End()
-        '    RegistraScript("AbrirVentana('/Ventas/PopUpImprimir.aspx?RH=True&Ext=" & Archivo.Extension & "', 700, 400, 'N', 'ImpRH')")
-        '    'End If
-        '    Archivo = Nothing
-
-        'End If
-
-    End Sub
-
-    'Private Sub ReemplazaTexto(ByRef ObjSelection As Word.Selection, ByVal Texto As String, ByVal Reemplazar As String)
-    '    With ObjSelection.Find
-    '        .Text = Texto
-    '        .Replacement.Text = Reemplazar
-    '        .Forward = True
-    '        .Wrap = Word.WdFindWrap.wdFindContinue
-    '        .Format = False
-    '        .MatchCase = True
-    '        .MatchWholeWord = False
-    '        .MatchWildcards = False
-    '        .MatchSoundsLike = False
-    '        .MatchAllWordForms = False
-    '    End With
-    '    ObjSelection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)
-    'End Sub
-
-    Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
-        CargaClientes()
-        DdlClienteAsignado.Attributes.Remove("onclick")
-        DdlClienteAsistenciaC.Attributes.Remove("onclick")
-        DdlClienteAsistenciaA.Attributes.Remove("onclick")
+                LtlPersonal.Text = ObjPersonal.NombreCompleto
+                NombreCompleto = ObjPersonal.NombreCompleto
+                'TxtNombre.Text = ObjPersonal.Nombre
+                TxtAPaterno.Text = ObjPersonal.APaterno
+                TxtAMaterno.Text = ObjPersonal.AMaterno
+                TxtNombres.Text = ObjPersonal.Nombres
+                TxtCorreo.Text = ObjPersonal.Correo
+                TxtCodigo.Text = ObjPersonal.Codigo
+                DdlEscolaridad.SelectedValue = ObjPersonal.CveEscolaridad.ToString()
+                DdlEstadoCivil.SelectedValueExist(ObjPersonal.CveEstadoCivil.ToString())
+                DdlGenero.SelectedValue = ObjPersonal.CveGenero.ToString()
+                TxtFechaNacimiento.Text = ObjPersonal.FechaNacimiento.ToShortDateString
+                TxtRFC.Text = ObjPersonal.RFC
+                TxtCURP.Text = ObjPersonal.CURP
+                'Localización 
+                'TxtDireccion.Text = ObjPersonal.Direccion
+                TxtCalle.Text = ObjPersonal.Calle
+                TxtNumExt.Text = ObjPersonal.NumExt
+                TxtNumInt.Text = ObjPersonal.NumInt
+                TxtColonia.Text = ObjPersonal.Colonia
+                DdlEstados.SelectedValueExist(ObjPersonal.CveEstado.ToString())
+                TxtCP.Text = ObjPersonal.CP
+                TxtColonia.Text = ObjPersonal.Colonia
+                TxtCiudad.Text = ObjPersonal.Ciudad
+                TxtEstado.Text = ObjPersonal.Estado
+                TxtTelefono.Text = ObjPersonal.Telefono
+                TxtCelular.Text = ObjPersonal.Celular
+                TxtLugarNacimiento.Text = ObjPersonal.LugarNacimiento.ToString()
+                TxtNombrePadre.Text = ObjPersonal.NombrePadre
+                TxtNombreMadre.Text = ObjPersonal.NombreMadre
+                Session("FileUpload") = ObjPersonal.URL
+                ViewState("Archivo") = ObjPersonal.URL
+                TxtTelefonoExtension.Text = ObjPersonal.TelefonoExtension
+                TxtCelularPersonal.Text = ObjPersonal.CelularPersonal
+                TxtTelefonoMarcadoRapido.Text = ObjPersonal.TelefonoMarcadoRapido
+                'TxtContactoAlterno.Text = ObjPersonal.ContactoAlterno
+
+
+                If ObjPersonal.CveUniforme > 0 Then
+                    LnkSurtir.Visible = True
+                    ViewState("CveUniforme") = ObjPersonal.CveUniforme
+                    DdlUniforme.SelectedValueExist(CveUniforme)
+                    LnkSurtir.PostBackUrl = $"../Inventarios/ResguardoMaterial.aspx?CvePersonal={CvePersonal}"
+                    CargaUniformesPersonal()
+                End If
+
+                If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
+
+                    LnkSurtir.Visible = True
+                    DdlUniforme.Visible = False
+                    LnkSurtir.PostBackUrl = $"../Inventarios/ResguardoMaterial.aspx?CvePersonal={CvePersonal}&EsSurtidoUniforme=1"
+                    CargaUniformesPersonal()
+
+                End If
+
+                If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".jpg") Then
+                    Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.jpg", UsuarioActual.CveEmpresa, CvePersonal)
+                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+
+                    ImgPersonal.ImageUrl = logouri
+                ElseIf File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".png") Then
+                    Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.png", UsuarioActual.CveEmpresa, CvePersonal)
+                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+
+                    ImgPersonal.ImageUrl = logouri
+                ElseIf File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & ".bmp") Then
+                    Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.bmp", UsuarioActual.CveEmpresa, CvePersonal)
+                    Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
+
+                    ImgPersonal.ImageUrl = logouri
+                End If
+                'BtnCargarArchivo_Click(Me, New EventArgs)
+
+
+                'Carga RH
+                TxtFechaInicioContrato.Text = ObjPersonal.FechaInicioContrato.ToShortDateString
+                TxtFechaFinContrato.Text = If(ObjPersonal.FechaFinContrato.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaFinContrato.ToShortDateString)
+                DDlTipoSalario.SelectedValue = drow("CveTipodeSalario").ToString()
+                DdlTipoContrato.SelectedValue = ObjPersonal.CveTipoContrato.ToString()
+                DdlTurno.SelectedValue = ObjPersonal.CveTurno.ToString()
+                DdlJornada.SelectedValue = ObjPersonal.CveJornada.ToString()
+                DdlDepartamento.SelectedValue = ObjPersonal.CveDepartamento.ToString()
+                DdlSubproyectoZona.SelectedValueExist(ObjPersonal.CveSubproyectoZona)
+                DDLUsuarioNomina.SelectedValueExist(ObjPersonal.CveUsuarioNomina)
+                'DdlViaticos.SelectedValue = ObjPersonal.IdCtaContViaticos.ToString()
+
+                'For i As Integer = DdlDepartamento.Items.Count - 1 To 1 Step -1
+                '    If DdlDepartamento.Items(i).Value.Contains(ObjPersonal.CveDepartamento.ToString()) Then
+                '        DdlDepartamento.Items(i).Selected = True
+                '        Exit For
+                '    End If
+                'Next
+
+                DdlPuesto.SelectedValue = ObjPersonal.CvePuesto.ToString()
+                DdlRuta.SelectedValue = ObjPersonal.CveRuta.ToString()
+                DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString()
+
+                TxtFechaBaja.Text = If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)
+
+                If ObjPersonal.DtResultados IsNot Nothing AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
+                    TxtFechaActivo.Text = If(drow("FechaActivo").ToString().Length > 0, drow("FechaActivo").ToString().ToDate.ToString("dd/MM/yyyy"), drow("FechaIng").ToString().ToDate.ToString("dd/MM/yyyy"))
+                    TxtFechaReingreso.Text = If(drow("FechaReingreso").ToString().Length > 0, drow("FechaReingreso").ToString().ToDate.ToString("dd/MM/yyyy"), "")
+                End If
+
+                DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString()
+
+                MostrarOcultarFechasEstatus()
+
+                CvePersonalEstatusInicial = ObjPersonal.CveEstatusPersonal
+                ViewState("CveEstatusOriginal") = ObjPersonal.CveEstatusPersonal.ToString()
+                'Asignación
+                If ObjPersonal.CveCliente <> -1 Then
+                    DdlClienteAsignado.Items.Insert(1, New ListItem(ObjPersonal.Cliente, ObjPersonal.CveCliente.ToString()))
+                    DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString()
+                Else
+                    DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString()
+                End If
+                DdlProyectoAsignado.SelectedValue = ObjPersonal.CveProyecto.ToString()
+                If ObjPersonal.CveProyecto <> -1 Then DdlProyectoAsignado_SelectedIndexChanged(Me, New System.EventArgs())
+                DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString()
+                DdlSupervisor.SelectedValue = ObjPersonal.CveSupervisor.ToString()
+                'Carga Nómina
+                TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString
+                DdlTipoPeriodo.SelectedValue = ObjPersonal.CveTipoPeriodo.ToString()
+                TxtNumeroSS.Text = ObjPersonal.NumeroSS
+                ChkSeInscribioSS.Checked = ObjPersonal.SeInscribioSS
+                TxtSalarioDiarioPago.Text = ObjPersonal.SalarioDiarioPago.ToString()
+                TxtSalarioDiario.Text = ObjPersonal.SalarioDiario.ToString()
+                TxtSDI.Text = ObjPersonal.SDI.ToString()
+                TxtSalarioCotizado.Text = ObjPersonal.SalarioDiarioSS.ToString()
+                TxtFISalariodiario.Text = ObjPersonal.SalarioDiario.ToString()
+                TxtBono.Text = ObjPersonal.Bono.ToString()
+                TxtNumDiasAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
+                TxtFIAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString()
+                TxtPorPrimaVacacional.Text = ObjPersonal.PorPrimaVacacional.ToString()
+                TxtFIPrimaVacacional.Text = ObjPersonal.PorPrimaVacacional.ToString()
+
+                DdlMetodoPago.SelectedValue = ObjPersonal.CveMetodoPago.ToString()
+                TxtBancoNumCuenta.Text = ObjPersonal.BancoNumCuenta
+                TxtCLABE.Text = ObjPersonal.CLABE
+                DdlSupervisorOrganigrama.SelectedValueExist(If(ObjPersonal.CvePersonalPadre = ObjPersonal.CvePersonal, "0", If(ObjPersonal.CvePersonalPadre.ToString() = "0", "-1", ObjPersonal.CvePersonalPadre.ToString())))
+
+
+                DdlRegimenContratacion.SelectedValue = ObjPersonal.CveSATRegimenContratacion.ToString()
+                DdlBanco.SelectedValue = If(ObjPersonal.CveSATBanco = 0, "-1", ObjPersonal.CveSATBanco.ToString())
+                DdlRiesgoPuesto.SelectedValue = ObjPersonal.CveSATRiesgoPuesto.ToString()
+
+                'Carga Incidencias
+                BtnConsultarAsistencia_Click(Me, New System.EventArgs)
+
+                'Carga Buzón de Calidad
+                If ObjPersonal.GetBuzonCalidad(CvePersonal, UsuarioActual.CveEmpresa) Then
+                    ViewState("DTBuzonCalidad") = ObjPersonal.DtResultados
+                    GvBuzonCalidad.DataSource = ObjPersonal.DtResultados
+                Else
+                    GvBuzonCalidad.DataSource = Nothing
+                    ViewState("DTBuzonCalidad") = Nothing
+                End If
+                GvBuzonCalidad.DataBind()
+
+                'Carga Conceptos de Nómina
+                CarcaConceptosNomina()
+                'Carga Pagos no Bancarios
+                CargarPagosNoBancarios()
+                'Carga Resguardos
+                Dim ObjResguardos As New ClsAF
+                If ObjResguardos.GetActivosFijosResguardos(-1, -1, CvePersonal, -1) Then
+                    GvResguardos.DataSource = ObjResguardos.DtResultados
+                Else
+                    GvResguardos.DataSource = Nothing
+                End If
+                ObjResguardos.Dispose()
+                GvResguardos.DataBind()
+
+                If UsuarioActual.Empresa.UsaContabilidad Then
+                    DdlViaticos.AutoPostBack = True
+                    DdlPrestamos.AutoPostBack = True
+
+                    DdlViaticos.Attributes.Add("onclick", "CargaCuentas(1);")
+                    DdlPrestamos.Attributes.Add("onclick", "CargaCuentas(2);")
+
+                    If ObjPersonal.IdCtaContPersonal > 0 Then DdlViaticos.Items.Add(New ListItem(ObjPersonal.CtaContPersonal, ObjPersonal.IdCtaContPersonal.ToString())) : DdlViaticos.SelectedValue = ObjPersonal.IdCtaContPersonal.ToString()
+                    If ObjPersonal.IdCtaContPrestamos > 0 Then DdlPrestamos.Items.Add(New ListItem(ObjPersonal.CtaContPrestamos, ObjPersonal.IdCtaContPrestamos.ToString())) : DdlPrestamos.SelectedValue = ObjPersonal.IdCtaContPrestamos.ToString()
+
+                End If
+
+                LblFechaCaptura.Text = ObjPersonal.FechaIngreso.ToShortDateString
+                LblUsuarioCapturo.Text = ObjPersonal.Usuario
+                CargaNominas()
+                CargaCastosSinComprobar()
+                CargaGastosPorCheque()
+                CargaEventoBitacora()
+                CargaConsignacion()
+                CargaCursos()
+                CargaVacaciones()
+                CargaVacacionesResumenPeriodoActual()
+                Consumos()
+                CargaPagoFactura()
+                'DescarSolicitudVacaciones(-1)
+
+                TabVacaciones.Visible = True
+                If UsuarioActual.CveEmpresa = 7 Or UsuarioActual.CveEmpresa = 72 Then
+
+                    'If UsuarioActual.CveEmpresa = 72 Then
+
+                    '    GvVacacionesResumen.Visible = False
+                    '    DvHistorialVacaiones.Visible = False
+                    '    FvPerimososVacaciones.Visible = False
+                    '    'DVSolicitudVacaiones.Attributes.Add("class", "col-md-12")
+                    '    BtnSolicitarVacaciones.Text = "Solicitar"
+                    '    DvPermisosMotivos1.Visible = True
+                    '    DvPermisosMotivos2.Visible = True
+
+                    'End If
+
+                Else
+                    'TabVacaciones.Visible = False
+                End If
+
+                If VacDiasDisponibles > 0 Then
+                    TxtFechaInicioVac.Text = Now.AddDays(1).ToString("dd/MM/yyyy")
+                Else
+                    TxtFechaInicioVac.Text = Now.ToString("dd/MM/yyyy")
+                End If
+
+
+                TxtFechaFinVac.Text = Now.AddDays(VacDiasDisponibles).ToString("dd/MM/yyyy")
+
+                'PERSONAL ALTAS
+                If ObjPersonal.GetPersonalAltas(CvePersonal) Then
+                    GvPersonalAltas.DataSource = ObjPersonal.DtResultados
+                    GvPersonalAltas.DataBind()
+                End If
+                'Cargar Almacenes en DropDown GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 8)
+                DdlAlmacenDestinoLiberarUniforme.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 19")
+                DdlAlmacenDestinoLiberarUniforme.DataBind()
+
+            Else
+                Alert("El Personal Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
+                BtnGuardar.Enabled = False
+            End If
+        End If
+        ObjPersonal.Dispose()
     End Sub
 
-#Region "Buzón de Calidad"
+    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
+        'System.Threading.Thread.Sleep(3000)
+        Dim ObjPersonal As New ClsRH()
+        Dim ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL())
+        Dim ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL())
+
+        Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\RH\" & ViewState("Archivo").ToString())
+        Dim URL As String = CvePersonal & Extension
+        Dim Ruta = String.Format("{0}Empresas\{1}\Temp\RH\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ViewState("Archivo").ToString())
+        Dim Archivo As New System.IO.FileInfo(Ruta)
 
 
-    Private Sub CargaBuzonCalidad()
-
-        Dim ObjPersonal As New ClsRH
-        If ObjPersonal.GetBuzonCalidad(CvePersonal, UsuarioActual.CveEmpresa) Then
-            ViewState("DTBuzonCalidad") = ObjPersonal.DtResultados
-            GvBuzonCalidad.DataSource = ObjPersonal.DtResultados
-        Else
-            GvBuzonCalidad.DataSource = Nothing
-            ViewState("DTBuzonCalidad") = Nothing
-        End If
-        ObjPersonal.Dispose()
-        GvBuzonCalidad.DataBind()
-
-        UpBuzonCalidad.Update()
-
-    End Sub
-
-
-    Private Sub LnkBuzonDeCalidad_Click(sender As Object, e As EventArgs) Handles LnkBuzonDeCalidad.Click
-
-        ChkSeAtendio.Visible = False
-        DvSeguimiento.Visible = False
-        BuzonCalidadLimpiaModal(True)
-        RegistraScript("$('#ModalBuzonCalidad').modal({ backdrop: 'static',  keyboard: false});")
-    End Sub
-    Private Sub LnkSaldoI_Click(sender As Object, e As EventArgs) Handles LnkSaldoI.Click
-        RegistraScript("$('#ModalSaldoInicial').modal({ backdrop: 'static',  keyboard: false});")
-    End Sub
-
-
-    Private Sub BuzonCalidadLimpiaModal(ControlesActivos As Boolean)
-
-        DdlClienteBuzon.SelectedIndex = 0
-        DdlClienteBuzon.Enabled = ControlesActivos
-
-        DdlSucursalClienteBuzon.SelectedIndex = 0
-        DdlSucursalClienteBuzon.Enabled = ControlesActivos
-
-        DdlTipoBuzonCalidad.SelectedIndex = 0
-        DdlTipoBuzonCalidad.Enabled = ControlesActivos
-
-        TxtFechaBuzonCalidad.Text = ""
-        TxtFechaBuzonCalidad.Enabled = ControlesActivos
-
-        TxtBuzonDescriptcion.Text = ""
-        TxtBuzonDescriptcion.Enabled = ControlesActivos
-
-        TxtNombreClienteBuzonCalidad.Text = ""
-        TxtNombreClienteBuzonCalidad.Enabled = ControlesActivos
-
-        TxtTelefonoBuzonCalidad.Text = ""
-        TxtTelefonoBuzonCalidad.Enabled = ControlesActivos
-
-        TxtMailBuzonCalidad.Text = ""
-        TxtMailBuzonCalidad.Enabled = ControlesActivos
-
-        LnkFechaBuzonCalidad.Visible = ControlesActivos
-
-        BtnModalGuardarBuzonCalidad.Visible = ControlesActivos
-
-        TxtObservacionesBuzon.Text = ""
-        TxtObservacionesBuzon.Visible = ControlesActivos
-
-        UpModalBuzonCalidad.Update()
-        RegistraScript("$('#ModalBuzonCalidad').modal({ backdrop: 'static',  keyboard: false});")
-
-    End Sub
-
-    Public Sub BuzonCalidadVerInfo_Click(sender As Object, e As EventArgs)
-
-        BuzonCalidadLimpiaModal(True)
-        DvSeguimiento.Visible = True
-
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
-        CvePersonalBuzon = GvRow.DataKey("CvePersonalBuzon").ToEntero
-        CargaBuzonCalidadSeguimiento()
-        DdlClienteBuzon.SelectedValueExist(GvRow.DataKey("CveCliente"))
-        ' DdlClienteBuzon.Enabled = False
-
-        If GvRow.DataKey("CveClienteSucursal").ToEntero > 0 Then
-            CargaClienteSucursal()
-            DdlSucursalClienteBuzon.SelectedValueExist(GvRow.DataKey("CveClienteSucursal"))
-        Else
-            DdlSucursalClienteBuzon.DataSource = Nothing
-            DdlSucursalClienteBuzon.DataBind()
-            DdlSucursalClienteBuzon.SelectedIndex = 0
-            '  DdlSucursalCliente.Enabled = False
-        End If
-
-        DdlTipoBuzonCalidad.SelectedValueExist(GvRow.DataKey("CveTipoBuzon"))
-        ChkSeAtendio.Visible = True
-
-        ChkSeAtendio.Checked = If(GvRow.DataKey("SeAtendioChk").ToString().ToEntero = 1, True, False)
-
-        TxtFechaBuzonCalidad.Text = GvRow.DataKey("FechaQueja").ToDate.ToString("dd/MM/yyyy")
-        TxtBuzonDescriptcion.Text = GvRow.DataKey("Descripcion")
-        TxtNombreClienteBuzonCalidad.Text = GvRow.DataKey("NombreReporto")
-        TxtTelefonoBuzonCalidad.Text = GvRow.DataKey("TelefonoReporto")
-        TxtMailBuzonCalidad.Text = GvRow.DataKey("MailReporto")
-        TxtObservacionesBuzon.Text = GvRow.DataKey("Observaciones")
-
-        UpModalBuzonCalidad.Update()
-        RegistraScript("$('#ModalBuzonCalidad').modal({ backdrop: 'static',  keyboard: false});")
-
-
-    End Sub
-
-
-
-
-
-    Public Sub BuzonCalidadSeguimiento_Click(sender As Object, e As EventArgs)
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        'CvePersonalBuzon,CveCliente,Cliente,TipoBuzon,FechaQueja,Descripcion,NombreReporto,TelefonoReporto,MailReporto,FechaIng,SeAtendio,Observaciones,SucursalCliente
-
-
-    End Sub
-
-    Public Sub BuzonCalidadFinalizar_Cllick(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-    End Sub
-
-    Property CvePersonalBuzon As Integer
-        Get
-            If ViewState("CvePersonalBuzon") Is Nothing Then
-                Return -1
-            Else
-                Return ViewState("CvePersonalBuzon").ToString().ToEntero
-            End If
-        End Get
-        Set(value As Integer)
-            ViewState("CvePersonalBuzon") = value
-        End Set
-    End Property
-
-
-    Private Sub BtnModalGuardarBuzonCalidad_Click(sender As Object, e As EventArgs) Handles BtnModalGuardarBuzonCalidad.Click
-        Dim objRH As New ClsRH
-
-        If CvePersonalBuzon = -1 Then
-            objRH.AddBuzonCalidad(CvePersonal, DdlClienteBuzon.SelectedValue.ToEntero, DdlSucursalClienteBuzon.SelectedValue.ToEntero, DdlTipoBuzonCalidad.SelectedValue.ToEntero, TxtFechaBuzonCalidad.Text.ToDate, TxtBuzonDescriptcion.Text.Trim, TxtNombreClienteBuzonCalidad.Text.Trim, TxtTelefono.Text.Trim, TxtMailBuzonCalidad.Text.Trim, TxtObservacionesBuzon.Text, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario)
-
-            RegistraScript(" $('#ModalBuzonCalidad').modal('hide')", "HideModalCalidadAgregar")
-        Else
-            objRH.UpdateBuzonCalidad(CvePersonalBuzon, If(ChkSeAtendio.Checked, 1, 0), DdlClienteBuzon.SelectedValue.ToEntero, DdlSucursalClienteBuzon.SelectedValue.ToEntero, DdlTipoBuzonCalidad.SelectedValue.ToEntero, TxtBuzonDescriptcion.Text.Trim, TxtNombreClienteBuzonCalidad.Text.Trim, TxtTelefono.Text.Trim, TxtMailBuzonCalidad.Text.Trim, TxtObservacionesBuzon.Text, UsuarioActual.CveUsuario)
-            RegistraScript(" $('#ModalBuzonCalidad').modal('hide')", "HideModalCalidadAgregar")
-        End If
-        CargaBuzonCalidad()
-
-        CargaGridBC(ViewState("Orden").ToString())
-
-        objRH.Dispose()
-
-    End Sub
-
-
-
-    Private Sub BtnModalGuardarBuzonDetalleCalidad_Click(sender As Object, e As EventArgs) Handles BtnModalGuardarBuzonDetalleCalidad.Click
-        Dim objRH As New ClsRH
-
-        If objRH.AddBuzonCalidadDetalle(CvePersonalBuzon, TxtObserbacionBuzonDetalle.Text.Trim, If(chkBuzonDetalleNotiificar.Checked, 1, 0), TxtMailBuzonCalidad.Text.Trim, UsuarioActual.CveUsuario) Then
-
-
-            If chkBuzonDetalleNotiificar.Checked Then
-                Dim Correo As New ClsSisMail
-                Dim Asunto As String = $"{UsuarioActual.Empresa.Empresa} Seguimiento {DdlTipoBuzonCalidad.SelectedItem.Text}  Empleado {NombreCompleto}"
-
-                Dim Cuerpo As New StringBuilder
-
-                Cuerpo.AppendLine($"Seguimiento  {DdlTipoBuzonCalidad.SelectedItem.Text} <br>")
-                Cuerpo.AppendLine($" {UsuarioActual.Nombre}<br>")
-                Cuerpo.AppendLine($"Actualización: {TxtObserbacionBuzonDetalle.Text}<br>")
-                Cuerpo.AppendLine($"<br>")
-
-
-                Correo.SendMail(EmpresaNotificaciones, TxtMailBuzonCalidad.Text.Trim, Asunto, Body:=Cuerpo.ToString())
-
-            End If
-
-
-
-
-            TxtObserbacionBuzonDetalle.Text = ""
-            chkBuzonDetalleNotiificar.Checked = False
-
-        End If
-        objRH.Dispose()
-
-        CargaBuzonCalidadSeguimiento()
-
-    End Sub
-
-
-    Private Sub CargaBuzonCalidadSeguimiento()
-        If CvePersonalBuzon > 0 Then
-            Dim objRH As New ClsRH
-
-            If objRH.GetBuzonCalidadDetalle(CvePersonalBuzon) Then
-                GvBuzonDetalles.DataSource = objRH.DtResultados
-            Else
-                GvBuzonDetalles.DataSource = Nothing
-
-            End If
-
-
-
-            objRH.Dispose()
-            GvBuzonDetalles.DataBind()
-            UpModalBuzonCalidad.Update()
-
-        End If
-    End Sub
-
-
-
-
-    Private Sub CargaCombosBuzon()
-
-
-        Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            DdlClienteBuzon.DataSource = ObjClientes.DtResultados
-            DdlClienteBuzon.DataSource = ObjClientes.DtResultados
-            DdlClienteBuzon.DataSource = ObjClientes.DtResultados
-        Else
-            DdlClienteBuzon.DataSource = Nothing
-            DdlClienteBuzon.DataSource = Nothing
-            DdlClienteBuzon.DataSource = Nothing
-        End If
-        ObjClientes.Dispose()
-        DdlClienteBuzon.DataBind()
-
-
-        Dim objRH As New ClsRH
-
-        If objRH.GetBuzonCalidadTipo(1) Then
-            DdlTipoBuzonCalidad.DataSource = objRH.DtResultados
-
-        Else
-            DdlTipoBuzonCalidad.DataSource = Nothing
-        End If
-        objRH.Dispose()
-        DdlTipoBuzonCalidad.DataBind()
-
-        UpModalBuzonCalidad.Update()
-    End Sub
-
-
-    Private Sub DdlClienteBuzon_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClienteBuzon.SelectedIndexChanged
-        CargaClienteSucursal()
-    End Sub
-
-    Private Sub CargaClienteSucursal()
-
-        Dim ObjCliente As New ClsClientes()
-
-        If ObjCliente.GetSucursales(DdlClienteBuzon.SelectedValue.ToEntero) Then
-            DdlSucursalClienteBuzon.DataSource = ObjCliente.DtResultados
-            If ObjCliente.DtResultados.Rows.Count > 0 Then
-                Divsucursalciente.Visible = True
-            Else
-                Divsucursalciente.Visible = False
-            End If
-        Else
-            Divsucursalciente.Visible = False
-            DdlSucursalClienteBuzon.DataSource = Nothing
-        End If
-        DdlSucursalClienteBuzon.DataBind()
-        UpModalBuzonCalidad.Update()
-    End Sub
-
-    Protected Sub GvBuzonCalidad_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBuzonCalidad.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            e.Row.FCLiteral("LtlCliente").Text = "<a class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente=" & e.Row.DBCampo("CveCliente") & """>" & e.Row.DBCampo("Cliente") & "</a>"
-            If e.Row.DBCampo("SeAtendio") = "Si" Then
-                e.Row.BackColor = Drawing.Color.LightBlue
-            End If
-        End If
-    End Sub
-
-    Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBuzonCalidad.RowCancelingEdit
-        GvBuzonCalidad.EditIndex = -1
-        If ViewState("Orden").ToString() <> String.Empty Then
-            CargaGridBC(ViewState("Orden").ToString())
-        Else
-            CargaGridBC("")
-        End If
-    End Sub
-
-    'Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBuzonCalidad.RowUpdating
-    '    Dim ObjBuzonCalidad As New ClsRH
-
-    '    Dim Observaciones As String = DirectCast(GvBuzonCalidad.Rows(e.RowIndex).FindControl("TxtObs"), TextBox).Text.Trim
-    '    Dim SeAtendio As Boolean = GvBuzonCalidad.Rows(e.RowIndex).FCCheckBox("ChkEstado").Checked
-    '    Dim CveBuzonCalidad As Integer = GvBuzonCalidad.DataKeys(e.RowIndex).Value.ToString().ToEntero
-
-    '    If ObjBuzonCalidad.UpdateBuzonCalidad(SeAtendio, Observaciones, CveBuzonCalidad, UsuarioActual.CveUsuario) Then
-    '        GvBuzonCalidad.EditIndex = -1
-    '        ViewState("DTBuzonCalidad") = ObjBuzonCalidad.DtResultados
-    '        Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
-    '    End If
-
-    '    ObjBuzonCalidad.Dispose()
-
-    '    If ViewState("Orden").ToString() <> String.Empty Then
-    '        CargaGridBC(ViewState("Orden").ToString())
-    '    Else
-    '        CargaGridBC("")
-    '    End If
-
-    'End Sub
-
-    Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBuzonCalidad.RowEditing
-        GvBuzonCalidad.EditIndex = e.NewEditIndex
-
-        If ViewState("Orden").ToString() <> String.Empty Then
-            CargaGridBC(ViewState("Orden").ToString())
-        Else
-            CargaGridBC("")
-        End If
-    End Sub
-
-    Private Sub CargaGridBC(Orden As String)
-        If Orden <> String.Empty Then
-            Dim DV As New DataView(CType(ViewState("DTBuzonCalidad"), DataTable), "", Orden, DataViewRowState.CurrentRows)
-            GvBuzonCalidad.DataSource = DV.ToTable()
-            DV.Dispose()
-        Else
-            GvBuzonCalidad.DataSource = CType(ViewState("DTBuzonCalidad"), DataTable)
-        End If
-        GvBuzonCalidad.DataBind()
-        UpDatos.Update()
+        Dim TieneError = False
+        Dim Mensaje = ""
+        Dim Accion = ""
+
+        Dim FechaBaja As Date = MinFecha
+        Dim FechaActivo As Date = MinFecha
+        Dim FechaReingreso As Date = MinFecha
+
+        If DdlEstatusPersonal.SelectedValue.ToEntero <> CvePersonalEstatusInicial Then
+            If DdlEstatusPersonal.SelectedValue.ToEntero = 1 Then
+                FechaActivo = TxtFechaActivo.Text.ToDate
+            ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 2 Then
+                FechaBaja = TxtFechaBaja.Text.ToDate
+            ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 5 Then
+                FechaReingreso = TxtFechaReingreso.Text.ToDate
+            End If
+        End If
+
+        If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
+            TxtSalarioCotizado.Text = TxtSDI.Text
+        End If
+
+        If CvePersonal = -1 Then
+            URL = ""
+
+            If ObjPersonal.AddPersonal(TxtCodigo.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, TxtCorreo.Text.Trim, TxtFechaIngreso.Text.ToDate,
+               DdlTipoPeriodo.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked, TxtSalarioDiarioPago.Text.Trim.ToDouble,
+               TxtSalarioDiario.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioCotizado.Text.Trim.ToDouble, TxtBono.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero,
+               TxtPorPrimaVacacional.Text.Trim.ToDouble, DdlMetodoPago.SelectedValue.ToEntero, TxtFechaInicioContrato.Text.Trim.ToDate, If(IsDate(TxtFechaFinContrato.Text.Trim()), TxtFechaFinContrato.Text.Trim(), "-1"),
+               DdlTipoContrato.SelectedValue.ToEntero, TxtUbicacion.Text.Trim,
+               DdlTurno.SelectedValue.ToEntero, DdlPuesto.SelectedValue.ToEntero,
+               DdlDepartamento.SelectedValue.ToEntero,
+               DdlRuta.SelectedValue.ToEntero,
+               DdlEscolaridad.SelectedValue.ToEntero,
+               DdlEstadoCivil.SelectedValue.ToEntero,
+               DdlGenero.SelectedValue.ToEntero,
+               DdlMotivoBaja.SelectedValue.ToEntero, If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
+               DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
+               TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
+               DdlEstados.SelectedValue.ToEntero, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
+               TxtCURP.Text.Trim, TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim, DdlBanco.SelectedValue.ToEntero, DdlRiesgoPuesto.SelectedValue.ToEntero, DdlRegimenContratacion.SelectedValue.ToEntero,
+               DdlClienteAsignado.SelectedValue.ToEntero, DdlSubProyectoAsignado.SelectedValue.ToEntero, URL,
+               DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
+               DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
+               TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero()) Then
+
+                If Archivo.Exists Then
+
+                    If File.Exists(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL)) Then
+                        File.Delete(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))
+                    End If
+                    System.IO.File.Move(String.Format("{0}Temp\RH\{1}", UsuarioActual.Empresa.Ruta, URL), String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))
+
+                End If
+
+                'Agregar Cuentas Bancarias
+                ViewState("CvePersonal") = ObjPersonal.CvePersonal
+
+                'Funsion usa RH Familiares
+                If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
+                    ProcesaDTFamiliares(ObjPersonal)
+                End If
+
+                If TempDTCuentasBancos.Rows.Count > 0 Then
+                    For Each row As DataRow In TempDTCuentasBancos.Rows
+                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then
+                            TieneError = True
+                            Exit For
+                        End If
+                    Next
+                End If
+                If DTLicencias IsNot Nothing AndAlso DTLicencias.Rows.Count > 0 Then
+                    For Each Dr As DataRow In DTLicencias.Rows
+                        If Not ObjAF.AddLicencia(-1, Dr("Licencia").ToString(), Dr("FechaExpedicion").ToString().ToDateTime(), Dr("FechaVencimiento").ToString().ToDateTime(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePersonal:=ObjPersonal.CvePersonal) Then
+                            TieneError = True
+                            Exit For
+                        End If
+                    Next
+                End If
+
+                If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+                    GlobalDTGralColectivas(-1) = ObjPersonal.DtResultados
+                Else
+                    TieneError = True
+                End If
+
+                Mensaje = "El Personal se guardó correctamente."
+                Accion = If(Request("CveFactura") Is Nothing, "document.location.href=""/RH/CatPersonal.aspx""", "window.opener.location.href = window.opener.location.href; window.close();")
+
+                'Alert("El Personal se guardó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/RH/CatPersonal.aspx"";")
+            Else
+                TieneError = True
+            End If
+
+        Else
+            'If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then
+            If ObjPersonal.UpdatePersonal(TxtCodigo.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, TxtCorreo.Text.Trim, TxtFechaIngreso.Text.ToDate,
+               DdlTipoPeriodo.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, ChkSeInscribioSS.Checked, TxtSalarioDiarioPago.Text.Trim.ToDouble,
+               TxtSalarioDiario.Text.Trim.ToDouble, TxtSDI.Text.Trim.ToDouble, TxtSalarioCotizado.Text.Trim.ToDouble, TxtBono.Text.Trim.ToDouble, TxtNumDiasAguinaldo.Text.Trim.ToEntero,
+               TxtPorPrimaVacacional.Text.Trim.ToDouble, DdlMetodoPago.SelectedValue.ToEntero, TxtFechaInicioContrato.Text.Trim.ToDate, If(IsDate(TxtFechaFinContrato.Text.Trim()), TxtFechaFinContrato.Text.Trim(), "-1"),
+               DdlTipoContrato.SelectedValue.ToEntero, TxtUbicacion.Text.Trim,
+               DdlTurno.SelectedValue.ToEntero, DdlPuesto.SelectedValue.ToEntero,
+               DdlDepartamento.SelectedValue.ToEntero,
+               DdlRuta.SelectedValue.ToEntero,
+               DdlEscolaridad.SelectedValue.ToEntero,
+               DdlEstadoCivil.SelectedValue.ToEntero,
+               DdlGenero.SelectedValue.ToEntero,
+               DdlMotivoBaja.SelectedValue.ToEntero, If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
+               DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
+               TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
+               DdlEstados.SelectedValue.ToEntero, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
+               TxtCURP.Text.Trim, TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim,
+               DdlBanco.SelectedValue.ToEntero, DdlRiesgoPuesto.SelectedValue.ToEntero, DdlRegimenContratacion.SelectedValue.ToEntero,
+               DdlClienteAsignado.SelectedValue.ToEntero, DdlSubProyectoAsignado.SelectedValue.ToEntero, CvePersonal,
+               URL, DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
+               DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
+               TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
+               FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero()) Then
+
+                'Funsion usa RH Familiares
+                If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
+                    ProcesaDTFamiliares(ObjPersonal)
+                End If
+
+
+                If Archivo.Exists Then
+
+                    If Not Directory.Exists(String.Format("{0}\RH\Personal", UsuarioActual.Empresa.Ruta)) Then Directory.CreateDirectory(String.Format("{0}\RH\Personal", UsuarioActual.Empresa.Ruta))
+
+                    If File.Exists(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL)) Then
+                        File.Delete(String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))
+                    End If
+                    System.IO.File.Move(String.Format("{0}Temp\RH\{1}", UsuarioActual.Empresa.Ruta, URL), String.Format("{0}RH\Personal\{1}", UsuarioActual.Empresa.Ruta, URL))
+
+                End If
+
+                Mensaje = "Los cambios se guardaron correctamente."
+                'If ViewState("CveEstatusOriginal").ToString() <> DdlEstatusPersonal.SelectedValue Then
+                '    'Manda Mail con bajas
+                'End If
+
+
+            Else
+                TieneError = True
+            End If
+
+
+            'GUARDA ORGANIGRAMA
+            If Not TieneError Then
+                If Not ObjPersonal.AddUpdatePersonalOrganigrama(CvePersonal, If(DdlSupervisorOrganigrama.SelectedValue.ToEntero = 0, CvePersonal, DdlSupervisorOrganigrama.SelectedValue.ToEntero)) Then
+                    TieneError = True
+                End If
+            End If
+
+        End If
+
+
+
+        If TieneError Then
+            ObjPersonal.RollBack()
+            Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+        Else
+            ObjPersonal.Commit()
+            Alert(Mensaje, TipoMensaje.MsgInformacion, Accion)
+
+            'If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then
+            '    ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL
+            'End If
+            GlobalDTRHPersonal(UsuarioActual.CveEmpresa) = Nothing
+
+            If CvePersonal > 0 Then
+                CargaDatos()
+            End If
+
+        End If
+
+        GuardarDocumentosFirmaContrato()
+        Session("FileUpload") = ""
+
+        ViewState("Archivo") = ""
+        ObjPersonal.Dispose()
+        ObjCuentasDeposito.Dispose()
+        ObjAF.Dispose()
+        UpDatos.Update()
+        CargaGvBitacora()
+
     End Sub
 
-#End Region
+    'Private Sub MandaMails(Rutas As Object)
+    '    Try
+    '        Dim ObjMail As New ClsSisMail()
+    '        Dim ResultadoMail As Integer = 0
 
-#Region "Resguardos"
+    '        If ObjMail.Mandacorreo(SendMail, SendMailPassword, "valfredo@ford.com", "Notificación", "Notificación de empleado nuevo.<br />Nombre: " & TxtNombre.Text & "<br />Turno: " & DdlTurno.SelectedItem.Text & "<br />Proyecto: " & DdlSubProyectoAsignado.SelectedItem.Text) Then
+    '            ResultadoMail = 1
+    '        Else
+    '            ResultadoMail = 3
+    '        End If
 
-    Protected Sub GvResguardos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvResguardos.RowDataBound
-
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.RowIndex = 0 Then
-                e.Row.Cells(0).Width = Unit.Pixel(50) 'Código
-                e.Row.Cells(1).Width = Unit.Pixel(250) 'AF
-                e.Row.Cells(2).Width = Unit.Pixel(150) 'Tipo AF
-                e.Row.Cells(3).Width = Unit.Pixel(65) 'Inició
-                e.Row.Cells(4).Width = Unit.Pixel(65) 'Finalizó
-                e.Row.Cells(5).Width = Unit.Pixel(80) 'Estado
-                e.Row.Cells(6).Width = Unit.Pixel(280) 'Observaciones
-            End If
-
-            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Left
-
-            Dim Liga As String = "<a class=""Texto"" href=""/AF/AF.aspx?CveActivoFijo=" & e.Row.DBCampo("CveActivoFijo") & """>"
-            e.Row.FCLiteral("LtlCodigo").Text = Liga & e.Row.FCLiteral("LtlCodigo").Text & "</a>"
-            e.Row.FCLiteral("LtlAF").Text = Liga & e.Row.FCLiteral("LtlAF").Text & "</a>"
-
-        End If
+    '    Catch ex As Exception
+    '        OnError("Ocurrió error al mandar MAIL", ex)
+    '    End Try
+    'End Sub
+
+    Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
+        Dim ObjPersonal As New ClsRH()
+        If ObjPersonal.RemovePersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
+            Alert("El Personal se Eliminó correctamente.", TipoMensaje.MsgInformacion, "window.location.href=""/RH/CatPersonal.aspx""")
+        End If
+        ObjPersonal.Dispose()
     End Sub
 
-#End Region
-
-#Region "Nómina"
-
-
-    Private Sub CarcaConceptosNomina()
-        Dim ObjPersonal As New ClsRH
-        If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
-            GVConceptos.DataSource = ObjPersonal.DtResultados.FiltraParametros("(CveSistema <>3 AND  CveSistema <>4) OR CveSistema IS NULL")
-            Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3")
-            If Not IsNothing(frow) Then
-                TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
-                DdlInfoTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())
-
-                Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero
-                TxtInfoDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
-                TxtInfoNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
-                TxtInfoFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
-                ChkInfo.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
-            End If
-
-
-            frow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =4")
-            TxtFonValor.Text = ""
-            DdlFonTipoAplicacion.SelectedValueExist("-1")
-            TxtFonDescripcion.Text = ""
-            TxtFonNumCredito.Text = ""
-            TxtFonFechaInicio.Text = ""
-            ChkFonacot.Checked = False
-            If Not IsNothing(frow) Then
-                TxtFonValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
-                DdlFonTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())
-
-                TxtFonDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
-                TxtFonNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
-                TxtFonFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
-                ChkFonacot.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
-            End If
-        Else
-            GVConceptos.DataSource = Nothing
-        End If
-        ObjPersonal.Dispose()
-        GVConceptos.DataBind()
-
-        For Each Row As GridViewRow In GVConceptos.Rows
-            Dim Ddl As DropDownList = DirectCast(GVConceptos.Rows(Row.RowIndex).FCDropDownList("DdlTipoAplicacion"), DropDownList)
-            DdlTipoAplicacion_SelectedIndexChanged(Ddl, Nothing)
-        Next
-    End Sub
-
-    Protected Sub GVConceptos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVConceptos.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
-
-            e.Row.Cells(0).Width = Unit.Pixel(50)
-            e.Row.Cells(1).Width = Unit.Pixel(50)
-            e.Row.Cells(3).Width = Unit.Pixel(70)
-            e.Row.Cells(4).Width = Unit.Pixel(70)
-            e.Row.Cells(5).Width = Unit.Pixel(160)
-
-
-            If e.Row.DBCampo("Aplica").ToEntero = 1 Then e.Row.FCCheckBox("ChkAplica").Checked = True
-
-            If e.Row.DBCampo("Formula") = "S" Then
-                e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(3).Text = "Calculado"
-                e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(4).Text = "Permanente"
-            Else
-                Dim TipoAplicacion As String = e.Row.DBCampo("TipoAplicacion").ToString()
-                e.Row.FCDropDownList("DdlTipoAplicacion").Items.Clear()
-                e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Seleccione", "-1"))
-                If (e.Row.DBCampo("CveSistema").ToString() = "3") Then
-                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Movto Permanente)", "5000"))
-                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001"))
-                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002"))
-                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003"))
-
-                ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then
-                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001"))
-                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Por días Labarados)", "3002"))
-                Else
-                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1"))
-                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2"))
-                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Permanente", "2600"))
-                End If
-
-
-                If e.Row.DBCampo("TipoAplicacion").ToEntero > 5 Then
-                    TipoAplicacion = "2600"
-                End If
-                e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion)
-            End If
-
-            'If e.Row.DBCampo("TipoCalculo") = "False" Then
-            '    e.Row.FCTextBox("TxtImporte").Visible = False
-            '    e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False
-            'Else
-            '    Select Case e.Row.DBCampo("TipoAplicacion").ToEntero
-            '        Case 1
-            '            'Saldo
-            '            e.Row.FCLiteral("LtlSaldo").Visible = True
-            '            e.Row.FCTextBox("TxtSaldoIni").Visible = True
-            '        Case 2
-            '            'Numero de Pagos
-            '            e.Row.FCLiteral("LtlNoPago").Visible = True
-            '            e.Row.FCTextBox("TxtNoPagos").Visible = True
-            '        Case 2600
-            '            'Permanente
-            '    End Select
-            'End If
-
-        End If
-    End Sub
-
-    Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs)
-        Dim importe As Decimal = TxtInfoValor.Text.ToDecimal()
-        Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero
-        Dim NoPagos As Integer = 0
-        Dim SaldoIni As Decimal = 0
-        Dim descripcion02 As String = TxtInfoDescripcion.Text
-        Dim descripcion01 As String = TxtInfoNumCredito.Text
-        Dim fecha As String = TxtInfoFechaInicio.Text.Replace("_", "")
-        Dim estatus As Integer = If(ChkInfo.Checked, 1, 0)
-        If fecha.Length > 8 Then
-            fecha = fecha.ToDateTime().ToString("yyyy/MM/dd")
-        Else
-            fecha = ""
-        End If
-        Dim OcurrioError As Boolean = False
-        Using ObjPersonal As New ClsRH
-
-            If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 3, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then
-                OcurrioError = True
-            End If
-        End Using
-        If Not OcurrioError Then
-            Alert("Se actualizo el calculo de infonavit")
-            CarcaConceptosNomina()
-        End If
-    End Sub
-    Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click
-        If CvePersonal > 0 Then
-            Dim ObjPersonal As New ClsRH
-            ObjPersonal.IniciaTransacSQL()
-
-            Dim OcurrioError As Boolean = False
-            For Each Row As GridViewRow In GVConceptos.Rows
-                If Row.FCCheckBox("ChkAplica").Checked = True Then
-                    Dim CveConcepto As Integer = Row.DataKey("CveConcepto").ToEntero
-                    Dim Importe As Double = Row.FCTextBox("TxtImporte").Text.ToDouble
-                    Dim TipoAplicacion As Integer = Row.FCDropDownList("DdlTipoAplicacion").SelectedValue.ToEntero
-                    Dim NoPagos As Integer = If(Row.FCTextBox("TxtNoPagos").Text.ToEntero = 0, -1, Row.FCTextBox("TxtNoPagos").Text.ToEntero)
-                    Dim SaldoIni As Double = If(Row.FCTextBox("TxtSaldoIni").Text.ToDouble = 0, -1, Row.FCTextBox("TxtSaldoIni").Text.ToDouble)
-
-                    Select Case TipoAplicacion
-                        Case 1
-                            'Saldo
-                            NoPagos = -1
-                        Case 2
-                            'Numero de Pagos
-                            SaldoIni = -1
-                        Case 2600
-                            'Permanente
-                            NoPagos = -1
-                            SaldoIni = -1
-                    End Select
-
-                    'Insertarlo o Actualizarlo
-                    If Not ObjPersonal.AddConcepto(CvePersonal, CveConcepto, Importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario) Then
-                        OcurrioError = True
-                        ObjPersonal.RollBack()
-                        Exit For
-                    End If
-                Else
-                    'Borrarlo
-                    If Row.DataKey("CvePersonalConcepto") <> "" Then
-                        If Not ObjPersonal.RemoveConcepto(Row.DataKey("CvePersonalConcepto").ToEntero) Then
-                            OcurrioError = True
-                            ObjPersonal.RollBack()
-                            Exit For
-                        End If
-                    End If
-                End If
-            Next
-
-            If Not OcurrioError Then
-                ObjPersonal.Commit()
-                Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
-            Else
-                Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
-            End If
-
-            ObjPersonal.Dispose()
-        End If
-    End Sub
-#End Region
-
-    Protected Sub DdlTipoAplicacion_SelectedIndexChanged(sender As Object, e As EventArgs)
-        Dim Ddl As DropDownList = DirectCast(sender, DropDownList)
-
-        Dim gvr As GridViewRow = DirectCast(Ddl.NamingContainer, GridViewRow)
-
-        Select Case Ddl.SelectedValue.ToEntero
-            Case 1
-                'Descontar hasta pagar el saldo prestado
-                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtSaldoIni").Visible = True
-                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtNoPagos").Visible = False
-            Case 2
-                'Descontar el numero de pagos
-                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtSaldoIni").Visible = False
-                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtNoPagos").Visible = True
-            Case 2600
-                'Permanente
-                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtSaldoIni").Visible = False
-                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtNoPagos").Visible = False
-            Case -1
-                'Seleccione
-                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtSaldoIni").Visible = False
-                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtNoPagos").Visible = False
-        End Select
-    End Sub
-
-    Protected Sub DdlEstatusPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusPersonal.SelectedIndexChanged
-
-        MostrarOcultarFechasEstatus()
-    End Sub
-
-    Private Sub MostrarOcultarFechasEstatus()
-
-
-        If DdlEstatusPersonal.SelectedValue.ToEntero.Contiene(1, 2, 5) Then
-            DivFechaActivo.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 1, True, False)
-            DivFechaBaja.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 2, True, False)
-            DivFechaReingreso.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 5, True, False)
-        Else
-            DivFechaActivo.Visible = False
-            DivFechaBaja.Visible = False
-            DivFechaReingreso.Visible = False
-        End If
-
-    End Sub
-
-    Protected Sub GvNominas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvNominas.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.RowIndex = 0 Then
-
-                e.Row.Cells(0).Width = Unit.Pixel(35)
-                e.Row.Cells(1).Width = Unit.Pixel(75)
-                e.Row.Cells(2).Width = Unit.Pixel(75)
-                e.Row.Cells(3).Width = Unit.Pixel(95)
-                e.Row.Cells(4).Width = Unit.Pixel(95)
-                e.Row.Cells(5).Width = Unit.Pixel(95)
-                e.Row.Cells(6).Width = Unit.Pixel(95)
-
-            End If
-
-
-
-            e.Row.FCLinkButton("LBCancelar").Visible = True
-            e.Row.FCLinkButton("LBCancelar").CommandArgument = e.Row.DBCampo("FolioFiscal")
-
-            If e.Row.DBCampo("SeTimbro") = "True" Then
-
-                e.Row.FCLinkButton("LbMail").CommandArgument = e.Row.DBCampo("FolioFiscal")
-                ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LbMail"))
-                e.Row.FCLinkButton("LbMail").Visible = True
-
-                e.Row.FCLinkButton("LbPDF").CommandArgument = e.Row.DataKey("CvePeriodo")
-                ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LbPDF")) ' registro el evento postback
-                'e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Empresas/{0}/PDF/Nomina/{1}.pdf", e.Row.DBCampo("CveEmpresa"), e.Row.DBCampo("SerieFolio"))
-                'e.Row.FCHyperLink("HplSeTimbro").NavigateUrl = String.Format("/Empresas/{0}/XML/Nomina/{1}.xml", e.Row.DBCampo("CveEmpresa"), e.Row.DBCampo("SerieFolio"))
-                e.Row.FCLinkButton("LbPDF").Visible = True
-
-                e.Row.FCLinkButton("LBCancelar").Visible = True
-                e.Row.FCLinkButton("LBCancelar").CommandArgument = e.Row.DBCampo("FolioFiscal")
-            End If
-
-        End If
+    Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsignado.SelectedIndexChanged
+        CargaSubProyectoAsignado()
     End Sub
 
-#Region "G A S T O S    X    C O M P R O B A R"
-
-    Protected Sub RBLTipoGastos_SelectedIndexChanged(sender As Object, e As EventArgs)
-
-        If RBLTipoGastos.SelectedValue = "1" Then
-            PnlGastoGeneral.Visible = True
-            PnlGastoCheque.Visible = False
-        Else
-            PnlGastoGeneral.Visible = False
-            PnlGastoCheque.Visible = True
-        End If
-
-    End Sub
-
-    Private Sub CargaCastosSinComprobar()
-        'Dim objGXC As New ClsMovimientos
-
-        'If objGXC.GetEgresosSinComprobar("-1", "-1", -1, CvePersonal, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
-        '    GvGxC.DataSource = objGXC.DtResultados.FiltraParametros("Saldo > 0")
-
-        '    GvGxCHistorial.DataSource = objGXC.DtResultados.FiltraParametros("Saldo = 0")
-
-        'End If
-
-        'objGXC.Dispose()
-        'GvGxC.DataBind()
-        'GvGxCHistorial.DataBind()
-
-        Dim Conta As New ClsContabilidad
-        If Conta.GetPersonalAuxiliar(CvePersonal, UsuarioActual.CveEmpresa) Then
-            DTGastosSinComp = Conta.DtResultados
-            GvGxC.DataSource = DTGastosSinComp
-            LblSaldoGxC.Text = (Conta.DtResultados.SUM("Cargo", "CveMovimiento Is NULL") - Conta.DtResultados.SUM("Abono", "CveMovimiento Is NULL")).FormatoNumero()
-        End If
-        Conta.Dispose()
-        GvGxC.DataBind()
-
-        Dim ObjBancos As New ClsBancos
-        If ObjBancos.GetPersonalPrestamoAuxiliar(CvePersonal, "-1", "-1", UsuarioActual.CveEmpresa) Then
-            GvAuxiliar.DataSource = ObjBancos.DtResultados
-        End If
-        ObjBancos.Dispose()
-        GvAuxiliar.DataBind()
-
-    End Sub
-
-    Private Sub CargaGastosPorCheque()
-        Dim RH As New ClsRH
-
-        If RH.GetRepPersonalBancos(CvePersonal, "-1", "-1", -1) Then
-            DTGastosPorCheque = RH.DtResultados
-            GvGastosCheque.DataSource = DTGastosPorCheque
-        Else
-            GvGastosCheque.DataSource = Nothing
-            Alert("Ocurrió un error al consultar los Gastos X Comprobar agrupados por cheque.", TipoMensaje.MsgError)
-        End If
-
-        RH.Dispose()
-
-        GvGastosCheque.DataBind()
-    End Sub
-
-    Protected Sub GvGastosCheque_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvGastosCheque.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-            If e.Row.RowIndex = 0 Then
-                e.Row.Cells(0).Width = Unit.Pixel(120)
-                e.Row.Cells(1).Width = Unit.Pixel(70)
-                e.Row.Cells(2).Width = Unit.Pixel(80)
-                e.Row.Cells(3).Width = Unit.Pixel(80)
-                e.Row.Cells(4).Width = Unit.Pixel(90)
-                e.Row.Cells(5).Width = Unit.Pixel(90)
-                e.Row.Cells(6).Width = Unit.Pixel(105)
-                e.Row.Cells(7).Width = Unit.Pixel(90)
-
-            End If
-
-            If e.Row.DBCampo("CveCompra") = "" Then
-                If e.Row.DBCampo("CveIE") <> "" Then
-                    e.Row.Cells(0).Text = String.Format("{0} - {1} - {2}", e.Row.DBCampo("Banco"), e.Row.DBCampo("NumCuenta"), e.Row.DBCampo("Moneda"))
-
-                    e.Row.FCLiteral("LtlFechaVenci").Text = e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString
-                    e.Row.FCHyperLink("HplCheque").Visible = True
-                End If
-                e.Row.BackColor = Drawing.Color.LightGray
-
-            End If
-
-        End If
-
+    Protected Sub DdlProyectoAsistenciaC_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsistenciaC.SelectedIndexChanged
+        CargaSubProyectoAsistenciaC()
     End Sub
 
-#End Region
-
-#Region "E V E N T O  -  B I T A C O R A"
-    Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.RowIndex = 0 Then
-                e.Row.Cells(0).Width = Unit.Pixel(200)
-                e.Row.Cells(1).Width = Unit.Pixel(200)
-                e.Row.Cells(2).Width = Unit.Pixel(100)
-                e.Row.Cells(3).Width = Unit.Pixel(500)
-            End If
-
-            If e.Row.DBCampo("Archivo").ToString() <> "" Then
-                e.Row.FCLinkButton("LinkArchivo").Visible = True
-                e.Row.FCLinkButton("LinkArchivo").CommandArgument = String.Format("OI\{0}", e.Row.DBCampo("Archivo").ToString())
-                ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LinkArchivo")) 'Registro un evento Postbacktrigger, que recargue toda la pagina para que funcione
-            End If
-
-            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
-        End If
-    End Sub
-    Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click
-
-        Dim ObjEventoBitacora As New ClsOIEventos
-
-        Dim FileExtension As String = "-1"
-        Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
-        Dim filemove As String = ""
-
-        For Each fileItem As Archivo In filesgral
-            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
-            filemove = fileItem.filename
-        Next
-
-        If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
-            If filemove <> "" Then
-                filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString()), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa))
-            End If
-
-            GvEB.DataSource = ObjEventoBitacora.DtResultados
-            TxtEventoDescripcion.Text = ""
-            Anexo.Text = "[]"
-            Alert("La bitácora/observación se guardó correctamente", TipoMensaje.MsgInformacion)
-            RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
-        End If
-        ObjEventoBitacora.Dispose()
-        GvEB.DataBind()
-
-        UPEventoBitacora.Update()
-        CargaEventoBitacora()
-        UPAddEventoBitacora.Update()
-    End Sub
-    Private Sub CargaEventoBitacora()
-
-        Dim ObjEventoBitacora As New ClsOIEventos()
-        If ObjEventoBitacora.GetAgendaBitacora(-1, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
-            GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2")
-        Else
-            GvEB.DataSource = Nothing
-        End If
-        GvEB.DataBind()
-    End Sub
-
-    Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
-        Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)
-        Dim Archivo As New System.IO.FileInfo(filePath)
-
-        HttpContext.Current.Response.Clear()
-        HttpContext.Current.Response.ClearContent()
-        HttpContext.Current.Response.ContentType = "application/octet-stream"
-        HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" + Path.GetFileName(filePath))
-        HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
-        HttpContext.Current.Response.TransmitFile(filePath)
-        HttpContext.Current.Response.Flush()
-        HttpContext.Current.Response.End()
-
-        Archivo = Nothing
-    End Sub
-#End Region
-
-    Protected Sub GvGxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGxC.RowDataBound, GvGxCHistorial.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.RowIndex = 1 Then
-                e.Row.Cells(0).Width = Unit.Pixel(100)
-                e.Row.Cells(1).Width = Unit.Pixel(200)
-                e.Row.Cells(2).Width = Unit.Pixel(350)
-                e.Row.Cells(3).Width = Unit.Pixel(100)
-                e.Row.Cells(4).Width = Unit.Pixel(100)
-                'e.Row.Cells(5).Width = Unit.Pixel(100)
-                'e.Row.Cells(6).Width = Unit.Pixel(80)
-                'e.Row.Cells(7).Width = Unit.Pixel(100)
-            End If
-
-            If e.Row.DBCampo("FechaDocumento") = "" Then e.Row.BackColor = Drawing.Color.LightGray
-
-            If e.Row.DBCampo("CveIE").ToEntero > 0 Then
-                e.Row.FCHyperLink("HplRef").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
-                e.Row.FCLabel("LtlC").CssClass = "label label-sm label-success"
-                e.Row.FCLabel("LtlC").ForeColor = Drawing.Color.White
-            End If
-            If e.Row.DBCampo("CveCompra").ToEntero > 0 Then
-                e.Row.FCHyperLink("HplRef").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra"))
-                e.Row.FCLabel("LtlC").CssClass = "label label-sm label-warning"
-                e.Row.FCLabel("LtlC").ForeColor = Drawing.Color.White
-            End If
-
-        End If
-
-    End Sub
-
-    Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
-        If DtCuentasContables Is Nothing Then
-            CargaCuentasContables()
-        End If
-        Dim SeleccionadoContViaticos As String
-        Dim SeleccionadoContPrestamos As String
-        Select Case HdnCuenta.Value
-            Case "1"
-                SeleccionadoContViaticos = DdlViaticos.SelectedValue
-                DdlViaticos.Items.Clear() : DdlViaticos.Items.Add(New ListItem("Seleccione", "0"))
-                DdlViaticos.DataSource = DtCuentasContables : DdlViaticos.DataBind() : DdlViaticos.SelectedValueExist(SeleccionadoContViaticos)
-                DdlViaticos.AutoPostBack = False : DdlViaticos.Attributes.Remove("onclick") : DdlViaticos.CssClass &= " select2me"
-            Case "2"
-                SeleccionadoContPrestamos = DdlPrestamos.SelectedValue
-                DdlPrestamos.Items.Clear() : DdlPrestamos.Items.Add(New ListItem("Seleccione", "0"))
-                DdlPrestamos.DataSource = DtCuentasContables : DdlPrestamos.DataBind() : DdlPrestamos.SelectedValueExist(SeleccionadoContPrestamos)
-                DdlPrestamos.AutoPostBack = False : DdlPrestamos.Attributes.Remove("onclick") : DdlPrestamos.CssClass &= " select2me"
-        End Select
-
-
-
-
-    End Sub
-#Region "TAB BANCOS"
-    Private Sub CargaMonedas()
-        DdlMoneda.DataSource = GlobalDTMonedas
-        DdlMoneda.DataBind()
-        DdlMoneda.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    End Sub
-
-    Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
-        Dim EsBancomer = False
-
-        If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABECB.Text.Length = 18 AndAlso TxtCLABECB.Text.Substring(0, 3) = "012") Then
-            EsBancomer = True
-        End If
-
-        If EsBancomer AndAlso (TxtCLABECB.Text.Length = 18 AndAlso Not TxtCLABECB.Text.Substring(0, 3) = "012") Then
-            Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE
-        'If (TxtCLABECB.Text.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And TxtConvenioCIE.Text.Trim.Length <> 6 And TxtCLABECB.Text.Trim.Length <> 18) Then
-        '    Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
-
-        'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER
-        If TxtCLABECB.Text.Trim.Length <> 18 And TxtCLABECB.Text.Trim.Length = 0 And Not EsBancomer Then
-            Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10
-        If TxtNumeroCuenta.Text.Trim.Length <> 0 AndAlso TxtNumeroCuenta.Text.Trim.Length <> 10 AndAlso EsBancomer Then
-            Alert("El número de cuenta debe tener una longitud de 10 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
-        If TxtCLABECB.Text.Trim.Length <> 0 AndAlso TxtCLABECB.Text.Trim.Length <> 18 Then
-            Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 6 Y REFERENCIA OBLIGATORIA
-        If (TxtConvenioCIE.Text.Trim.Length <> 0 And TxtConvenioCIE.Text.Trim.Length <> 6) Or (TxtConvenioCIE.Text.Trim.Length = 6 And TxtReferenciaCB.Text.Trim.Length < 3) Then
-            Alert("El Convenio CIE debe tener una longitud de 6 dígitos y se debe especificar una referencia. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
-        If EsBancomer AndAlso Not (TxtNumeroCuenta.Text.Trim.Length = 10 Or TxtConvenioCIE.Text.Trim.Length = 6) Then
-            Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABECB.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferenciaCB.Text.Trim, DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, TxtBBVAAlias.Text)
-    End Sub
-    Private Sub CargaGridCuentasBancos(Orden As String)
-        If CvePersonal > 0 Then
-            If Orden <> String.Empty Then
-                Dim DV As New DataView(DTCuentasBancos, "", Orden, DataViewRowState.CurrentRows)
-                GvBancosCuentas.DataSource = DV.ToTable()
-                DV.Dispose()
-            Else
-                GvBancosCuentas.DataSource = DTCuentasBancos
-            End If
-        Else
-            If Orden <> String.Empty Then
-                Dim DV As New DataView(TempDTCuentasBancos, "", Orden, DataViewRowState.CurrentRows)
-                GvBancosCuentas.DataSource = DV.ToTable()
-                DV.Dispose()
-            Else
-                GvBancosCuentas.DataSource = TempDTCuentasBancos
-            End If
-        End If
-
-        GvBancosCuentas.DataBind()
-        UpCuentasBancos.Update()
-    End Sub
-    Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, CveMoneda As Integer, Moneda As String, BBVAAlias As String)
-
-        Dim Row As DataRow
-
-        If CvePersonal > 0 Then
-            Dim ObjCuentasBancos As New ClsGenerales
-            If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias) Then
-                DTCuentasBancos.Clear()
-                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
-
-                Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
-
-            End If
-            ObjCuentasBancos.Dispose()
-
-        Else
-            Row = TempDTCuentasBancos.NewRow
-
-            Row("BancoNombre") = NombreBanco
-            Row("Sucursal") = NumeroSucursal
-            Row("CLABE") = CLABE
-            Row("SWIFT") = SWIFT
-            Row("Plaza") = Plaza
-            Row("Cuenta") = NumeroCuenta
-            Row("CIE") = ConvenioCIE
-            Row("Referencia") = Referencia
-            Row("CveMoneda") = CveMoneda
-            Row("Moneda") = Moneda
-            Row("EstatusPagoElectronico") = False
-            TempDTCuentasBancos.Rows.Add(Row)
-        End If
-
-        LimpiaCuentasBancarias()
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
-
-        If CvePersonal > 0 Then
-            CargaGvBitacora()
-        End If
-
-    End Sub
-    Private Sub LimpiaCuentasBancarias()
-        TxtNombreBanco.Text = ""
-        TxtNumeroSucursal.Text = ""
-        TxtCLABECB.Text = ""
-        TxtSWIFT.Text = ""
-        TxtPlaza.Text = ""
-        TxtNumeroCuenta.Text = ""
-        TxtConvenioCIE.Text = ""
-        TxtReferenciaCB.Text = ""
-    End Sub
-    Private Sub CargaCuentasBancarias()
-        Dim ObjCuentasBancos As New ClsGenerales
-        ViewState("OrdenCuentasBancos") = ""
-        DTCuentasBancos = New DataTable
-        TempDTCuentasBancos = New DataTable
-
-        If ObjCuentasBancos.GetCuentasDepositos(CvePersonal:=CvePersonal) Then
-            DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
-        Else
-            Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgError)
-        End If
-
-        If CvePersonal < 0 Then
-            TempDTCuentasBancos = DTCuentasBancos.Clone
-        End If
-
-        ObjCuentasBancos.Dispose()
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+    Protected Sub DdlProyectoAsistenciaA_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsistenciaA.SelectedIndexChanged
+        CargaSubProyectoAsistenciaA()
     End Sub
 
-#Region "GRIDVIEW - CUENTAS BANCARIAS"
-    Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-
-            If e.Row.RowState = DataControlRowState.Edit Then
-                e.Row.FCDropDownList("DdlMoneda").DataSource = GlobalDTMonedas
-                e.Row.FCDropDownList("DdlMoneda").DataBind()
-                e.Row.FCDropDownList("DdlMoneda").Items.Insert(0, New ListItem("Seleccione", "-1"))
-                e.Row.FCDropDownList("DdlMoneda").SelectedValue = e.Row.DBCampo("CveMoneda")
-
-                'SI TIENE PERMISO PUEDE EDITAR ESTATUS
-                If UsuarioActual.TienePermisoProceso(155) Then
-                    'Alert("usuario no tiene permiso", TipoMensaje.MsgInformacion)
-                    e.Row.FCCheckBox("ChkEstatus").Visible = True
-                Else
-                    e.Row.FCCheckBox("ChkEstatus").Visible = False
-                End If
-
-                If CBool(e.Row.DBCampo("EstatusPagoElectronico")) Then
-                    e.Row.FCDropDownList("DdlMoneda").Enabled = False
-                End If
-
-            End If
-
-            If CvePersonal < 0 Then
-                For index = 1 To TempDTCuentasBancos.Rows.Count
-                    TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index
-                Next
-                TempDTCuentasBancos.AcceptChanges()
-            End If
-
-        End If
-    End Sub
-    Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
-        GvBancosCuentas.EditIndex = e.NewEditIndex
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
-    End Sub
-    Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
-        GvBancosCuentas.EditIndex = -1
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
-    End Sub
-    Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating
-        Dim NombreBanco = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim
-        Dim NumeroSucursal = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroSucursal").Text.Trim
-        Dim CLABE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtCLABE").Text.Trim
-        Dim SWIFT = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtSWIFT").Text.Trim
-        Dim Plaza = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtPlaza").Text.Trim
-        Dim NumeroCuenta = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroCuenta").Text.Trim
-        Dim ConvenioCIE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtConvenioCIE").Text.Trim
-        Dim Referencia = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim
-        Dim CveMoneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString().ToEntero
-        Dim Estatus = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
-        Dim Moneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text
-
-        Dim BBVAAlias As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtBBVAAlias").Text
-
-        Dim RefCrediProveedor = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtRefCrediProveedor").Text.Trim
-
-        Dim EsBancomer = False
-
-        If NombreBanco.ToUpper.Contains("BBVA") Or NombreBanco.ToUpper.Contains("BANCOMER") Or (CLABE.Length = 18 AndAlso CLABE.Substring(0, 3) = "012") Then
-            EsBancomer = True
-        End If
-
-        If EsBancomer AndAlso (CLABE.Length = 18 AndAlso Not CLABE.Substring(0, 3) = "012") Then
-            Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE
-        'If (CLABE.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And ConvenioCIE.Trim.Length <> 6 And CLABE.Trim.Length <> 18) Then
-        '    Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
-
-        'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER
-        If CLABE.Trim.Length <> 18 And CLABE.Trim.Length = 0 And Not EsBancomer Then
-            Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10
-        If NumeroCuenta.Trim.Length <> 0 AndAlso NumeroCuenta.Trim.Length <> 10 AndAlso EsBancomer Then
-            Alert("El número de cuenta debe tener una longitud de 10 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
-        If CLABE.Trim.Length <> 0 AndAlso CLABE.Trim.Length <> 18 Then
-            Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 6 Y REFERENCIA OBLIGATORIA
-        If (ConvenioCIE.Trim.Length <> 0 And ConvenioCIE.Trim.Length <> 6) Or (ConvenioCIE.Trim.Length = 6 And Referencia.Trim.Length < 3) Then
-            Alert("El Convenio CIE debe tener una longitud de 6 dígitos y se debe especificar una referencia. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        'CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
-        If EsBancomer AndAlso Not (NumeroCuenta.Trim.Length = 10 Or ConvenioCIE.Trim.Length = 6) Then
-            Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-        Dim ObjCuentasBancos As New ClsGenerales
-        If CvePersonal > 0 Then
-            If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias) Then
-                DTCuentasBancos.Clear()
-                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
-                Alert("Cuenta actualizada con exito.", TipoMensaje.MsgInformacion)
-
-            End If
-        Else
-            Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero - 1
-            Dim Row As DataRow = TempDTCuentasBancos.Rows(index)
-            Row("BancoNombre") = NombreBanco
-            Row("Sucursal") = NumeroSucursal
-            Row("CLABE") = CLABE
-            Row("SWIFT") = SWIFT
-            Row("Plaza") = Plaza
-            Row("Cuenta") = NumeroCuenta
-            Row("CIE") = ConvenioCIE
-            Row("Referencia") = Referencia
-            Row("CveMoneda") = CveMoneda
-            Row("Moneda") = Moneda
-            TempDTCuentasBancos.AcceptChanges()
-        End If
-        ObjCuentasBancos.Dispose()
-
-        GvBancosCuentas.EditIndex = -1
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
-        CargaGvBitacora()
-    End Sub
-    Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting
-        Dim ObjCuentasBancos As New ClsGenerales
-
-        If CvePersonal > 0 Then
-            If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                DTCuentasBancos.Clear()
-                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
-                Alert("Cuenta Bancaria borrada con exito.", TipoMensaje.MsgInformacion)
-
-            End If
-        Else
-            Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero - 1
-            TempDTCuentasBancos.Rows.RemoveAt(index)
-        End If
-
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
-        ObjCuentasBancos.Dispose()
-        CargaGvBitacora()
-    End Sub
-#End Region
-#End Region
+    Protected Sub LbContrato_Click(sender As Object, e As System.EventArgs) Handles LbContrato.Click
+        'Dim oWordApp As Word.Application = Nothing
+        'Dim oWordDoc As Word.Document = Nothing
+        'Dim objSelection As Word.Selection = Nothing
+
+        'Dim ArchivoPath As String = ""
+
+        'Try
+        '    'GuardaLog("Inicia Petición de Aplicación")
+        '    oWordApp = New Word.Application
+        '    oWordApp.Visible = True
+        '    oWordDoc = oWordApp.Documents.Open(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Contratos\" & "SOGO.doc")
+        '    'GuardaLog("Inicia Petición de Documento")
+        '    If oWordDoc IsNot Nothing Then
+        '        'GuardaLog("Creación de Documento")
+        '        oWordDoc.Activate()
+        '        objSelection = oWordApp.Selection
+
+        '        objSelection.WholeStory()
+        '        objSelection.Copy()
+        '        objSelection.Delete(Unit:=wdCharacter, Count:=1)
+        '        'GuardaLog("Recorrer de reemplazo de variables")
+
+        '        objSelection.PasteAndFormat(Word.WdRecoveryType.wdPasteDefault)
+        '        'ReemplazaTexto(objSelection, "{NOMBRE_PERSONAL}", String.Format("{0} {1} {2}", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim))
+        '        'ReemplazaTexto(objSelection, "{DIRECCION}", String.Format("{0} {1} {2}", TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim))
+        '        'ReemplazaTexto(objSelection, "{CP}", TxtCP.Text.Trim)
+        '        'ReemplazaTexto(objSelection, "{CIUDAD}", TxtCiudad.Text.Trim)
+        '        'ReemplazaTexto(objSelection, "{ESTADO}", TxtEstado.Text.Trim)
+        '        'ReemplazaTexto(objSelection, "{DIA_INICIA_CONTRATO}", TxtFechaInicioContrato.Text.ToDate.Day.ToString())
+        '        'ReemplazaTexto(objSelection, "{MES_INICIA_CONTRATO}", MonthName(TxtFechaInicioContrato.Text.ToDate.Month).ToUpper)
+        '        'ReemplazaTexto(objSelection, "{ANIO_INICIA_CONTRATO}", TxtFechaInicioContrato.Text.ToDate.Year.ToString())
+        '        'ReemplazaTexto(objSelection, "{DIA_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Day.ToString())
+        '        'ReemplazaTexto(objSelection, "{MES_FIN_CONTRATO}", MonthName(TxtFechaFinContrato.Text.ToDate.Month).ToUpper)
+        '        'ReemplazaTexto(objSelection, "{ANIO_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Year.ToString())
+
+        '        'objSelection.InsertBreak(Type:=wdPageBreak)
+        '        'GuardaLog("Termina de reemplazo de variables")
+        '        objSelection.TypeBackspace()
+        '        objSelection.TypeBackspace()
+        '        If Not System.IO.Directory.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\") Then
+        '            System.IO.Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\")
+        '        End If
+        '        ArchivoPath = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & UsuarioActual.CveUsuario & ".doc"
+
+        '        oWordDoc.SaveAs(ArchivoPath.ToString())
+        '        oWordDoc.Close()
+        '    Else
+        '        Alert("No se pudo generar el archivo", TipoMensaje.MsgError)
+        '    End If
+
+        'Catch ex As Exception
+        '    Alert(ex.Message, TipoMensaje.MsgError)
+        '    OnError("", ex)
+        '    ArchivoPath = ""
+        'Finally
+
+        '    If oWordDoc IsNot Nothing Then
+        '        'GuardaLog("Documento Destruido")
+        '        While (Marshal.ReleaseComObject(oWordDoc) > 0)
+        '        End While
+        '        'GuardaLog("Documento Destruido")
+        '        oWordDoc = Nothing
+        '    End If
+
+        '    If oWordApp IsNot Nothing Then
+        '        oWordApp.Quit(False)
+        '        While (Marshal.ReleaseComObject(oWordApp) > 0)
+        '        End While
+        '        'GuardaLog("Aplicación Destruida")
+        '        oWordApp = Nothing
+        '    End If
+        '    System.GC.Collect()
+        '    objSelection = Nothing
+
+        'End Try
 
 
-#Region "O R D E N A M I E N T O"
-    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
-        Dim Orden As String = ""
-        Dim Campo As String = ""
-        Dim gvi As Integer = 0
-        Dim Literal As Literal = Nothing
-        Const OrdenInicial As String = ""
-        Dim Arg(2) As String
-
-        Arg = CType(sender, LinkButton).CommandArgument().ToString().Split(";"c)
-        Campo = Arg(0)
-        gvi = Arg(1).ToEntero
-        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
-        Campo = Campo.Substring(0, Campo.Length - 1)
-
-        If ViewState(String.Format("O{0}", Campo, gvi)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo, gvi)).ToString() = String.Format("{0} DESC", Campo) Then
-            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
-            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
-        Else
-            ViewState(String.Format("O{0}", Campo, gvi)) = String.Format("{0} DESC", Campo)
-            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
-        End If
-        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo, gvi)).ToString()
-        ViewState("Orden") = Orden
-        CargaGrid(Orden, gvi)
-    End Sub
-
-    Private Sub CargaGrid(Orden As String, gvi As Integer)
-        If gvi = 0 Then
-            ViewState("Orden") = Orden
-            CargaGridCuentasBancos(Orden)
-        ElseIf gvi = 1 Then
-            ViewState("Orden1") = Orden
-            CargaGvAsistencias()
-        End If
-    End Sub
-#End Region
+        'If ArchivoPath <> "" Then
 
+        '    Dim Archivo As New System.IO.FileInfo(ArchivoPath)
+
+        '    'If Archivo.Exists Then
+        '    'HttpContext.Current.Response.Clear()
+        '    'HttpContext.Current.Response.ClearContent()
+        '    ''HttpContext.Current.Response.ContentType = "application/msword"
+        '    'HttpContext.Current.Response.ContentType = "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
+        '    'HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" & Archivo.Name)
+        '    'HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
+        '    'HttpContext.Current.Response.TransmitFile(ArchivoPath)
+        '    'HttpContext.Current.Response.Flush()
+        '    'HttpContext.Current.Response.End()
+        '    RegistraScript("AbrirVentana('/Ventas/PopUpImprimir.aspx?RH=True&Ext=" & Archivo.Extension & "', 700, 400, 'N', 'ImpRH')")
+        '    'End If
+        '    Archivo = Nothing
+
+        'End If
 
-#Region "I M P R I M I R     N O M I N A"
-    Protected Sub LbPDF_Click(sender As Object, e As EventArgs)
-
-        Dim LB = CType(sender, LinkButton)
-
-        ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "Recibo")
-
     End Sub
 
-#End Region
+    'Private Sub ReemplazaTexto(ByRef ObjSelection As Word.Selection, ByVal Texto As String, ByVal Reemplazar As String)
+    '    With ObjSelection.Find
+    '        .Text = Texto
+    '        .Replacement.Text = Reemplazar
+    '        .Forward = True
+    '        .Wrap = Word.WdFindWrap.wdFindContinue
+    '        .Format = False
+    '        .MatchCase = True
+    '        .MatchWholeWord = False
+    '        .MatchWildcards = False
+    '        .MatchSoundsLike = False
+    '        .MatchAllWordForms = False
+    '    End With
+    '    ObjSelection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)
+    'End Sub
 
-
-#Region "  ORGANIGRAMA  "
-    Private Sub CargaSuperioresOrganigrama()
-        Dim ObjRH As New ClsRH
-
-        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-            DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
-        Else
-            DdlSupervisorOrganigrama.DataSource = Nothing
-            Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
-        End If
-        ObjRH.Dispose()
-
-        If DdlSupervisorOrganigrama.DataSource IsNot Nothing Then
-            DdlSupervisorOrganigrama.DataBind()
-        End If
-
-
-
-
-
-    End Sub
-#End Region
-
-
-#Region "I M P R I M I R "
-    Private Sub GenerarPDF(Optional Formato As String = "PDF")
-
-        Dim ObjPersonal As New ClsRH()
-        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
-            If ObjPersonal.DtResultados.Rows.Count > 0 Then
-
-                Dim params As New List(Of ReportParameter)
-                params.Add(New ReportParameter("ApellidoP", ObjPersonal.APaterno))
-                params.Add(New ReportParameter("ApellidoM", ObjPersonal.AMaterno))
-                params.Add(New ReportParameter("Nombres", ObjPersonal.Nombres))
-                params.Add(New ReportParameter("Codigo", ObjPersonal.Codigo))
-                params.Add(New ReportParameter("Escolaridad", If(DdlEscolaridad.SelectedValue = "-1", "", DdlEscolaridad.SelectedItem.Text)))
-                params.Add(New ReportParameter("EstadoCivil", If(DdlEstadoCivil.SelectedValue = "-1", "", DdlEstadoCivil.SelectedItem.Text)))
-                params.Add(New ReportParameter("Genero", If(DdlGenero.SelectedValue = "-1", "", DdlGenero.SelectedItem.Text)))
-                params.Add(New ReportParameter("FechaNacimiento", ObjPersonal.FechaNacimiento.ToShortDateString))
-                params.Add(New ReportParameter("RFC", ObjPersonal.RFC))
-                params.Add(New ReportParameter("CURP", ObjPersonal.CURP))
-                params.Add(New ReportParameter("Calle", ObjPersonal.Calle))
-                params.Add(New ReportParameter("Numero", ObjPersonal.NumExt))
-                params.Add(New ReportParameter("Interior", ObjPersonal.NumInt))
-                params.Add(New ReportParameter("Colonia", ObjPersonal.Colonia))
-                params.Add(New ReportParameter("CP", Now.ToDateTime.ToShortDateString))
-                params.Add(New ReportParameter("Ciudad", ObjPersonal.CP))
-                params.Add(New ReportParameter("Estado", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("Telefono", ObjPersonal.Telefono))
-                params.Add(New ReportParameter("Celular", ObjPersonal.Celular))
-                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
-                params.Add(New ReportParameter("LugarNacimiento", Now.ToDateTime.ToShortDateString))
-                params.Add(New ReportParameter("NombrePadre", ObjPersonal.NombrePadre))
-                params.Add(New ReportParameter("NombreMadre", ObjPersonal.NombreMadre))
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
-                params.Add(New ReportParameter("FechaIContrato", ObjPersonal.FechaInicioContrato.ToShortDateString))
-                params.Add(New ReportParameter("FechaFContrato", ObjPersonal.FechaFinContrato.ToShortDateString))
-                params.Add(New ReportParameter("TipoContrato", If(DdlTipoContrato.SelectedValue = "-1", "", DdlTipoContrato.SelectedItem.Text)))
-                params.Add(New ReportParameter("Turno", If(DdlTurno.SelectedValue = "-1", "", DdlTurno.SelectedItem.Text)))
-                params.Add(New ReportParameter("Jornada", If(DdlJornada.SelectedValue = "-1", "", DdlJornada.SelectedItem.Text)))
-                params.Add(New ReportParameter("Ruta", If(DdlRuta.SelectedValue = "-1", "", DdlRuta.SelectedItem.Text)))
-                params.Add(New ReportParameter("Departamento", If(DdlDepartamento.SelectedValue = "-1", "", DdlDepartamento.SelectedItem.Text)))
-                params.Add(New ReportParameter("Puesto", If(DdlPuesto.SelectedValue = "-1", "", DdlPuesto.SelectedItem.Text)))
-                params.Add(New ReportParameter("SupervisorRH", If(DdlSupervisor.SelectedValue = "-1", "", DdlSupervisor.SelectedItem.Text)))
-                params.Add(New ReportParameter("SupervisorInmediato", If(DdlSupervisorOrganigrama.SelectedValue = "-1", "", DdlSupervisorOrganigrama.SelectedItem.Text)))
-                params.Add(New ReportParameter("Cliente", DdlClienteAsignado.SelectedItem.Text))
-                params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
-                params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
-                params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))
-                params.Add(New ReportParameter("MotivoBaja", If(DdlMotivoBaja.SelectedValue = "-1", "", DdlMotivoBaja.SelectedItem.Text)))
-                params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
-                params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
-                params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))
-                params.Add(New ReportParameter("FechaIngreso", ObjPersonal.FechaIngreso.ToShortDateString))
-                params.Add(New ReportParameter("TipoPeriodo", ObjPersonal.CveTipoPeriodo.ToString()))
-                params.Add(New ReportParameter("RegimenContratacion", ObjPersonal.RegimenContratacion))
-                params.Add(New ReportParameter("RiesgoPuesto", DdlRiesgoPuesto.SelectedItem.Text))
-                params.Add(New ReportParameter("NoSeguroSocial", ObjPersonal.NumeroSS))
-                params.Add(New ReportParameter("InscribioSeguro", If(ObjPersonal.SeInscribioSS, "Si", "No")))
-                params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString()))
-                params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString()))
-                params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString()))
-                params.Add(New ReportParameter("Bono", ObjPersonal.Bono.ToString()))
-                params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString()))
-                params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString()))
-                params.Add(New ReportParameter("MetodoPago", If(DdlMetodoPago.SelectedValue = "-1", "", DdlMetodoPago.SelectedItem.Text)))
-                params.Add(New ReportParameter("Banco", If(DdlBanco.SelectedValue = "-1", "", DdlBanco.SelectedItem.Text)))
-                params.Add(New ReportParameter("NoCuenta", ObjPersonal.BancoNumCuenta))
-                params.Add(New ReportParameter("CLABE", ObjPersonal.CLABE))
-
-
-
-                If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL & ".png") Then
-                    params.Add(New ReportParameter("LogoUri", "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL & ".png"))
-                Else
-                    params.Add(New ReportParameter("LogoUri", ""))
-                End If
-
-                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
-
-                ImprimirPDF("Empresas/Grales/Formatos/Personal.rdlc", New DataTable, params, "ReportePersonal", Formato)
-            Else
-                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
-
-            End If
-        End If
-        ObjPersonal.Dispose()
-    End Sub
-    'Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
-    '    GenerarPDF("PDF")
-    'End Sub
-    Protected Sub ImgImprimirExpediente_Click(sender As Object, e As EventArgs) Handles ImgImprimirExpediente.Click
-        Dim ObjPersonal As New ClsRH()
-        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
-            If ObjPersonal.DtResultados.Rows.Count > 0 Then
-
-                Dim params As New List(Of ReportParameter)
-                params.Add(New ReportParameter("ApellidoP", ObjPersonal.APaterno))
-                params.Add(New ReportParameter("ApellidoM", ObjPersonal.AMaterno))
-                params.Add(New ReportParameter("Nombres", ObjPersonal.Nombres))
-                params.Add(New ReportParameter("Codigo", ObjPersonal.Codigo))
-                params.Add(New ReportParameter("Escolaridad", If(DdlEscolaridad.SelectedValue = "-1", "", DdlEscolaridad.SelectedItem.Text)))
-                params.Add(New ReportParameter("EstadoCivil", If(DdlEstadoCivil.SelectedValue = "-1", "", DdlEstadoCivil.SelectedItem.Text)))
-                params.Add(New ReportParameter("Genero", If(DdlGenero.SelectedValue = "-1", "", DdlGenero.SelectedItem.Text)))
-                params.Add(New ReportParameter("FechaNacimiento", ObjPersonal.FechaNacimiento.ToShortDateString))
-                params.Add(New ReportParameter("RFC", ObjPersonal.RFC))
-                params.Add(New ReportParameter("CURP", ObjPersonal.CURP))
-                params.Add(New ReportParameter("Calle", ObjPersonal.Calle))
-                params.Add(New ReportParameter("Numero", ObjPersonal.NumExt))
-                params.Add(New ReportParameter("Interior", ObjPersonal.NumInt))
-                params.Add(New ReportParameter("Colonia", ObjPersonal.Colonia))
-                params.Add(New ReportParameter("CP", Now.ToDateTime.ToShortDateString))
-                params.Add(New ReportParameter("Ciudad", ObjPersonal.CP))
-                params.Add(New ReportParameter("Estado", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("Telefono", ObjPersonal.Telefono))
-                params.Add(New ReportParameter("Celular", ObjPersonal.Celular))
-                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
-                params.Add(New ReportParameter("LugarNacimiento", Now.ToDateTime.ToShortDateString))
-                params.Add(New ReportParameter("NombrePadre", ObjPersonal.NombrePadre))
-                params.Add(New ReportParameter("NombreMadre", ObjPersonal.NombreMadre))
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
-                params.Add(New ReportParameter("FechaIContrato", ObjPersonal.FechaInicioContrato.ToShortDateString))
-                params.Add(New ReportParameter("FechaFContrato", ObjPersonal.FechaFinContrato.ToShortDateString))
-                params.Add(New ReportParameter("TipoContrato", If(DdlTipoContrato.SelectedValue = "-1", "", DdlTipoContrato.SelectedItem.Text)))
-                params.Add(New ReportParameter("Turno", If(DdlTurno.SelectedValue = "-1", "", DdlTurno.SelectedItem.Text)))
-                params.Add(New ReportParameter("Jornada", If(DdlJornada.SelectedValue = "-1", "", DdlJornada.SelectedItem.Text)))
-                params.Add(New ReportParameter("Ruta", If(DdlRuta.SelectedValue = "-1", "", DdlRuta.SelectedItem.Text)))
-                params.Add(New ReportParameter("Departamento", If(DdlDepartamento.SelectedValue = "-1", "", DdlDepartamento.SelectedItem.Text)))
-                params.Add(New ReportParameter("Puesto", If(DdlPuesto.SelectedValue = "-1", "", DdlPuesto.SelectedItem.Text)))
-                params.Add(New ReportParameter("SupervisorRH", If(DdlSupervisor.SelectedValue = "-1", "", DdlSupervisor.SelectedItem.Text)))
-                params.Add(New ReportParameter("SupervisorInmediato", If(DdlSupervisorOrganigrama.SelectedValue = "-1", "", DdlSupervisorOrganigrama.SelectedItem.Text)))
-                params.Add(New ReportParameter("Cliente", DdlClienteAsignado.SelectedItem.Text))
-                params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
-                params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
-                params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))
-                params.Add(New ReportParameter("MotivoBaja", If(DdlMotivoBaja.SelectedValue = "-1", "", DdlMotivoBaja.SelectedItem.Text)))
-                params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
-                params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
-                params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))
-                params.Add(New ReportParameter("FechaIngreso", ObjPersonal.FechaIngreso.ToShortDateString))
-                params.Add(New ReportParameter("TipoPeriodo", ObjPersonal.CveTipoPeriodo.ToString()))
-                params.Add(New ReportParameter("RegimenContratacion", ObjPersonal.RegimenContratacion))
-                params.Add(New ReportParameter("RiesgoPuesto", DdlRiesgoPuesto.SelectedItem.Text))
-                params.Add(New ReportParameter("NoSeguroSocial", ObjPersonal.NumeroSS))
-                params.Add(New ReportParameter("InscribioSeguro", If(ObjPersonal.SeInscribioSS, "Si", "No")))
-                params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString()))
-                params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString()))
-                params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString()))
-                params.Add(New ReportParameter("Bono", ObjPersonal.Bono.ToString()))
-                params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString()))
-                params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString()))
-                params.Add(New ReportParameter("MetodoPago", If(DdlMetodoPago.SelectedValue = "-1", "", DdlMetodoPago.SelectedItem.Text)))
-                params.Add(New ReportParameter("Banco", If(DdlBanco.SelectedValue = "-1", "", DdlBanco.SelectedItem.Text)))
-                params.Add(New ReportParameter("NoCuenta", ObjPersonal.BancoNumCuenta))
-                params.Add(New ReportParameter("CLABE", ObjPersonal.CLABE))
-                params.Add(New ReportParameter("Fecha", DateTime.Now.ToShortDateString))
-                Dim edad As Integer
-                edad = Now.Year - ObjPersonal.FechaNacimiento.Year
-                If Now.Month < ObjPersonal.FechaNacimiento.Month OrElse (Now.Month = ObjPersonal.FechaNacimiento.Month AndAlso Now.Day < ObjPersonal.FechaNacimiento.Day) Then
-                    edad = edad - 1
-                End If
-
-                params.Add(New ReportParameter("Edad", edad.ToString()))
-
-
-
-                If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL & ".png") Then
-                    params.Add(New ReportParameter("LogoUri", "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL & ".png"))
-                Else
-                    params.Add(New ReportParameter("LogoUri", ""))
-                End If
-
-                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
-                Else
-                    params.Add(New ReportParameter("LogoPath", ""))
-                End If
-
-                ImprimirPDF("Empresas/Grales/Formatos/ExpedientePersonal.rdlc", New DataTable, params, "ExpedientePersonal")
-            Else
-                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
-
-            End If
-        End If
-        ObjPersonal.Dispose()
-    End Sub
-    Private Sub LbGafete_Click(sender As Object, e As EventArgs) Handles LbGafete.Click
-        Dim params As New List(Of ReportParameter)
-        Dim ObjPersonal As New ClsRH()
-
-        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
-            If ObjPersonal.DtResultados.Rows.Count > 0 Then
-
-                params.Add(New ReportParameter("Nombre", String.Format("{0} {1} {2}", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim)))
-                params.Add(New ReportParameter("Vigencia", TxtFechaFinContrato.Text))
-                params.Add(New ReportParameter("Puesto", If(DdlPuesto.SelectedValue.ToEntero > 0, DdlPuesto.SelectedItem.Text, "")))
-                params.Add(New ReportParameter("CURP", TxtCURP.Text))
-                params.Add(New ReportParameter("NoRegistro", ""))
-                params.Add(New ReportParameter("RegIMSS", TxtNumeroSS.Text))
-                params.Add(New ReportParameter("FechaIngreso", TxtFechaIngreso.Text))
-                params.Add(New ReportParameter("DomPart", String.Format("{0} NoExt:{1} NoInt:{2} {3}", TxtCalle.Text, TxtNumExt.Text, TxtNumInt.Text, TxtColonia.Text)))
-                params.Add(New ReportParameter("Emergencia", ""))
-                params.Add(New ReportParameter("CUIP", ""))
-                params.Add(New ReportParameter("TipoSangre", ""))
-                params.Add(New ReportParameter("RFC", TxtRFC.Text))
-                params.Add(New ReportParameter("Denominacion", TxtRFC.Text))
-
-
-
-                If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.CvePersonal & ".png") Then
-                    params.Add(New ReportParameter("LogoUri", String.Format("{0}://{1}:{2}/Empresas/{3}/RH/Personal/{4}.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, ObjPersonal.CvePersonal)))
-                Else
-                    params.Add(New ReportParameter("LogoUri", ""))
-                End If
-
-                ImprimirPDF("Empresas/Grales/Formatos/RHGafete.rdlc", New DataTable, params, String.Format("Gafete_{0}", ObjPersonal.CvePersonal), "PDF")
-            End If
-        End If
-        ObjPersonal.Dispose()
-    End Sub
-    Private Sub GenerarPDFGastosXComp(Optional Formato As String = "PDF")
-
-        If RBLTipoGastos.SelectedValue = "1" Then
-
-            If DTGastosSinComp.Rows.Count > 0 Then
-
-                Dim params As New List(Of ReportParameter)
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString()))
-                params.Add(New ReportParameter("Saldo", LblSaldoGxC.Text.ToString()))
-                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-
-                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("pImg", logouri))
-                Else
-                    params.Add(New ReportParameter("pImg", ""))
-                End If
-
-                ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarGral.rdlc", DTGastosSinComp, params, "GastosSinComprobarGral", Formato)
-            Else
-                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
-            End If
-
-        ElseIf RBLTipoGastos.SelectedValue = "2" Then
-
-            If DTGastosPorCheque.Rows.Count > 0 Then
-
-                For Each Row As DataRow In DTGastosPorCheque.Rows
-                    Dim FolioPago As String = Row("FolioPago").ToString()
-                    Row("FolioPago") = ""
-                    If Row("CveCompra").ToString() = "" And Row("CveIE").ToString() <> "" Then
-                        Row("FechaVencimiento") = Row("FechaDocumento")
-                        Row("FolioPago") = FolioPago
-                    End If
-
-                    If Row("FolioPago").ToString() <> "" Then
-                        Row("SerieFolio") = ""
-                    End If
-                Next
-
-                Dim params As New List(Of ReportParameter)
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString()))
-                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-
-                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("pImg", logouri))
-                Else
-                    params.Add(New ReportParameter("pImg", ""))
-                End If
-
-                ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarCheque.rdlc", DTGastosPorCheque, params, "GastosPorCheque", Formato)
-            Else
-                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
-            End If
-        End If
-
-
-    End Sub
-
-
-    Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs)
-        GenerarPDFGastosXComp("PDF")
-    End Sub
-    Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
-        GenerarPDFGastosXComp("Excel")
+    Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
+        CargaClientes()
+        DdlClienteAsignado.Attributes.Remove("onclick")
+        DdlClienteAsistenciaC.Attributes.Remove("onclick")
+        DdlClienteAsistenciaA.Attributes.Remove("onclick")
     End Sub
 
-#End Region
+#Region "Buzón de Calidad"
 
-#Region "D O C U M E N T A C I O N   C O N T R A T O S"
 
-    Private Sub CargaDocumentacionFirmaDecontratos()
-
-        If CvePersonal > 0 Then
-            Dim objRH As New ClsEdocumentacion()
-
-            If objRH.DocumentacionElectronicaGet(CvePersonal, -1, -1, UsuarioActual.Empresa.CveEmpresa, -1) Then
-                DTDocumentacion = objRH.DtResultados
-            End If
-
-            If DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ").Rows.Count > 0 Then
-                GvDocumentosFirma.DataSource = DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ")
-            Else
-                GvDocumentosFirma.DataSource = Nothing
-            End If
-            GvDocumentosFirma.DataBind()
-
-            UPGvDocumentosFirma.Update()
-            UpGvDocumentosFirma2.Update()
-        End If
-
-    End Sub
-    Public Sub UploadModal_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
-        Dim chkEstatus As CheckBox
-        CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero
-        CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString().ToEntero
-        Documentacion = GvRow.DataKey("Documentacion")
-        AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString()
-
-        chkEstatus = GvRow.FCCheckBox("chkEstatus")
-
-
-
-        ObservacionDocumentacion = GvRow.FCTextBox("TxtObservaciones").Text.Trim.ToUpper
-        FechaLimite = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
-
-        AdjuntoDocumentacion = GvRow.DataKey("Adjunto")
-
-        LtlTitulofirmaContrato.Text = "Subir " & Documentacion
-
-        UpTituloFirma.Update()
-
-        RegistraScript("$('#ModalUploadFirmaContratoDocumento').modal({ backdrop: 'static',  keyboard: false});")
-    End Sub
-    Private Sub GuardarDocumentosFirmaContrato(Optional _CveDocumentacionExcluir As Integer = -1)
-
-        Dim hasError As Boolean = True
-        Dim objDocumentos As New ClsEdocumentacion
-
-        For Each dRow As GridViewRow In GvDocumentosFirma.Rows
-
-
-            Dim _CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToString().ToEntero
-            Dim _Adjunto As String = dRow.DataKey("Adjunto")
-            'Dim _Documentacion As String = dRow.DataKey("Documentacion")
-            Dim _CveDocumentacionElectronica As Integer = dRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero
-            Dim _txtObservaciones As TextBox = dRow.FCTextBox("TxtObservaciones")
-            Dim _TxtFechaLimite As TextBox = dRow.FCTextBox("TxtFechaLimite")
-            Dim _TxtFechaVigencia As TextBox = dRow.FCTextBox("TxtFechaVigencia")
-            Dim chkEstatus As CheckBox = dRow.FCCheckBox("chkEstatus")
-            Dim _estatus As Integer
-
-            _estatus = If(dRow.DataKey("Estatus").ToString().ToUpper = "TRUE", 1, 0)
-
-            Dim _FechaVigencia As Date
-            Dim _FechaLimite As Date
-
-            Dim DiasLimite As Integer = dRow.DataKey("DiasLimite").ToString().ToEntero
-            Dim AplicaDiasLimite As Boolean = If(dRow.DataKey("AplicaDiasLimite").ToString() = "1", True, False)
-            Dim AplicaFechaVencimiento As Boolean = If(dRow.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False)
-
-            If _TxtFechaVigencia.Text.Length = 10 Then
-                _FechaVigencia = _TxtFechaVigencia.Text.ToDate
-            Else
-                _FechaVigencia = Nothing
-            End If
-
-            If Not AplicaDiasLimite Then
-                _FechaLimite = MinFecha
-            Else
-                _FechaLimite = _TxtFechaLimite.Text.ToDate
-            End If
-
-            If Not AplicaFechaVencimiento Then
-                _FechaVigencia = MinFecha
-            End If
-
-
-            If Not _CveDocumentacionExcluir = _CveDocumentacion Then
-                Try
-                    If _CveDocumentacionElectronica = -1 Then
-
-                        If objDocumentos.DocumentacionElectronicaAdd(_CveDocumentacion, CvePersonal, -1, -1, _estatus, _txtObservaciones.Text.Trim, _Adjunto, UsuarioActual.CveUsuario, _FechaLimite, _FechaVigencia) > 0 Then
-                        Else
-                            hasError = True
-                            Exit For
-                        End If
-
-                    Else
-                        If objDocumentos.DocumentacionElectronicaUpdate(_CveDocumentacionElectronica, _CveDocumentacion, CvePersonal, -1, -1, _estatus, _txtObservaciones.Text.Trim, _Adjunto, UsuarioActual.CveUsuario, _FechaLimite, _FechaVigencia) Then
-                        Else
-                            hasError = True
-                            Exit For
-                        End If
-                    End If
-
-
-                    hasError = False
-                Catch ex As Exception
-                    hasError = True
-                    Exit For
-                End Try
-            End If
-        Next
-
-        'refrescar grid datos investigacion
-        CargaDocumentacionFirmaDecontratos()
-    End Sub
-    Protected Sub BtnModalFirmaContratoDocumentoUpload_Click(sender As Object, e As EventArgs) Handles BtnModalFirmaContratoDocumentoUpload.Click
-
-        Dim FileExtension As String = "-1"
-        Dim Filesgral As List(Of Archivo) = TxtFileFirmaContrato.getfiles().Archivos
-        Dim Filename As String = ""
-
-
-        For Each fileItem As Archivo In Filesgral
-            Try
-
-                FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
-                Dim tempArray() As String
-                tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
-
-                Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\" & Documentacion & "." & FileExtension
-                Dim rutaAdjuntoAnterior As String = UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\" & AdjuntoDocumentacion
-
-                If Not System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\") Then
-                    System.IO.Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\")
-                End If
-
-                If File.Exists(rutaAdjuntoAnterior) And AdjuntoDocumentacion.Trim.Length > 0 Then
-                    File.Delete(rutaAdjuntoAnterior)
-                End If
-
-                If System.IO.File.Exists(rutaDestino) Then
-                    System.IO.File.Delete(rutaDestino)
-                End If
-
-                System.IO.File.Move(fileItem.FileUrl, rutaDestino)
-
-                Dim objRH As New ClsEdocumentacion
-
-
-                If CveDocumentacionElectronica = -1 Then
-                    If objRH.DocumentacionElectronicaAdd(CveDocumentacion, CvePersonal, -1, -1, 1, ObservacionDocumentacion, Documentacion & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite) > 0 Then
-
-                    End If
-                Else
-                    If objRH.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, CvePersonal, -1, -1, 1, ObservacionDocumentacion, Documentacion & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite) Then
-
-                    End If
-                End If
-
-                objRH.Dispose()
-
-                GuardarDocumentosFirmaContrato(CveDocumentacion)
-                CargaDocumentacionFirmaDecontratos()
-
-
-                TxtFileFirmaContrato.Text = ""
-                UpModalFirmaContratoDocumento.Update()
-
-            Catch ex As Exception
-                OnError("Error al cargar archivo", ex)
-            End Try
-
-        Next
-        RegistraScript("$('#ModalUploadFirmaContratoDocumento').modal('hide')", "hidemodal7")
-
-    End Sub
-
-    Public Sub Update_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs)
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = False
-
-        Dim _CveDocumentacionElectronica As Integer = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero
-        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero
-        Dim _Adjunto As String = GvRow.DataKey("Adjunto").ToString()
-        Dim _fechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
-
-        Dim obserbaciones As String = DirectCast(GvRow.FindControl("TxtObservaciones"), TextBox).Text
-        'Dim DDLEstatus As DropDownList = DirectCast(GvRow.FindControl("DDLEstatus"), DropDownList)
-        Dim chkCompleto As CheckBox = DirectCast(GvRow.FindControl("chkEstatus"), CheckBox)
-
-        If chkCompleto.Checked Then
-            Estatus = 1
-        Else
-            Estatus = 0
-        End If
-
-        Dim objRH As New ClsEdocumentacion
-
-        If Not _CveDocumentacionElectronica = -1 Then
-            If objRH.DocumentacionElectronicaUpdate(_CveDocumentacionElectronica, _CveDocumentacion, CvePersonal, -1, -1, 1, obserbaciones, _Adjunto, UsuarioActual.CveUsuario, _fechaLimite) Then
-                Alert("Documento actualizado correctamente.", TipoMensaje.MsgInformacion)
-            End If
-        Else
-            If objRH.DocumentacionElectronicaAdd(_CveDocumentacion, CvePersonal, -1, -1, 1, obserbaciones, _Adjunto, UsuarioActual.CveUsuario, _fechaLimite) > 0 Then
-                Alert("Documento actualizado correctamente.", TipoMensaje.MsgInformacion)
-            End If
-        End If
-
-        CargaDocumentacionFirmaDecontratos()
-        objRH.Dispose()
-
-    End Sub
-    Protected Sub GvDocumentosFirma_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentosFirma.RowDataBound
-
-
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-            Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString()
-            Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato")
-            Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
-            Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
-            Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
-            Dim requerido As Boolean = If(e.Row.DBCampo("Requerido").ToUpper = "TRUE", True, False)
-            Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
-            Dim documentacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString()
-            Dim Documentacion As String = e.Row.DBCampo("Documentacion").ToString()
-            Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString().ToEntero
-            Dim separado As Char() = ".".ToString().ToCharArray
-            Dim array() As String = Adjunto.Split(separado)
-            Dim extencion As String = ""
-            Dim existeAdjunto As Boolean = False
-            Dim TxtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia")
-            ' FechaVigencia
-
-            Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString().ToEntero
-            Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString() = "1", True, False)
-            Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False)
-
-            txtFechaLimite.Visible = If(AplicaDiasLimite, True, False)
-            TxtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False)
-
-
-
-            Dim scripMascara = " $('#" & TxtFechaVigencia.ClientID & "').mask('00/00/0000');"
-            RegistraScript(scripMascara)
-            If array.Length > 0 Then
-                extencion = array(array.Length - 1)
-            End If
-
-            If e.Row.DBCampo("Estatus").ToString().ToEntero = 1 Then
-                chkEstatus.Checked = True
-            Else
-                chkEstatus.Checked = False
-            End If
-
-            If documentacionFormato = "" Then
-                ImgDownLoadFormato.Visible = False
-            Else
-                Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & CveDocumentacion & "" & documentacionFormato
-                ImgDownLoadFormato.Visible = True
-            End If
-
-            txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString().ToDate.ToString("dd/MM/yyyy")
-
-            If Adjunto.Trim.Length > 0 Then
-
-                Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Personal/" & CvePersonal & "/" & Adjunto
-                Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "Personal/" & CvePersonal & "/" & Adjunto
-
-                If File.Exists(linkDescargaArchivo) Then
-
-                    ImgDownLoad.Visible = True
-                    If extencion.Length > 0 Then
-                        ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CvePersonal & Documentacion & "." & extencion)
-                    Else
-                        ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CvePersonal & Documentacion)
-                    End If
-                Else
-                    ImgDownLoad.Visible = False
-                End If
-            Else
-                ImgDownLoad.Visible = False
-            End If
-
-            If requerido Then
-                ImgRequired.Text = " <a class='btn btn-circle btn-sm yelow' href='#' data-toggle='tooltip' title=' Requerido!' ><i class='fa fa-asterisk '></i></a>"
-            Else
-                ' ImgRequired.Text = " <a class='btn btn-circle btn-sm grey-salt' href='#' data-toggle='tooltip' title='No obligatorio' ><i class='fa fa-asterisk '></i></a>"
-            End If
-
-        End If
-
-    End Sub
-    Public Sub DownLoadFormato_ClickDocumentacion(sender As Object, e As EventArgs)
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
-        Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero
+    Private Sub CargaBuzonCalidad()
+
+        Dim ObjPersonal As New ClsRH
+        If ObjPersonal.GetBuzonCalidad(CvePersonal, UsuarioActual.CveEmpresa) Then
+            ViewState("DTBuzonCalidad") = ObjPersonal.DtResultados
+            GvBuzonCalidad.DataSource = ObjPersonal.DtResultados
+        Else
+            GvBuzonCalidad.DataSource = Nothing
+            ViewState("DTBuzonCalidad") = Nothing
+        End If
+        ObjPersonal.Dispose()
+        GvBuzonCalidad.DataBind()
+
+        UpBuzonCalidad.Update()
+
+    End Sub
+
+
+    Private Sub LnkBuzonDeCalidad_Click(sender As Object, e As EventArgs) Handles LnkBuzonDeCalidad.Click
+
+        ChkSeAtendio.Visible = False
+        DvSeguimiento.Visible = False
+        BuzonCalidadLimpiaModal(True)
+        RegistraScript("$('#ModalBuzonCalidad').modal({ backdrop: 'static',  keyboard: false});")
+    End Sub
+    Private Sub LnkSaldoI_Click(sender As Object, e As EventArgs) Handles LnkSaldoI.Click
+        RegistraScript("$('#ModalSaldoInicial').modal({ backdrop: 'static',  keyboard: false});")
+    End Sub
+
+
+    Private Sub BuzonCalidadLimpiaModal(ControlesActivos As Boolean)
+
+        DdlClienteBuzon.SelectedIndex = 0
+        DdlClienteBuzon.Enabled = ControlesActivos
+
+        DdlSucursalClienteBuzon.SelectedIndex = 0
+        DdlSucursalClienteBuzon.Enabled = ControlesActivos
+
+        DdlTipoBuzonCalidad.SelectedIndex = 0
+        DdlTipoBuzonCalidad.Enabled = ControlesActivos
+
+        TxtFechaBuzonCalidad.Text = ""
+        TxtFechaBuzonCalidad.Enabled = ControlesActivos
+
+        TxtBuzonDescriptcion.Text = ""
+        TxtBuzonDescriptcion.Enabled = ControlesActivos
+
+        TxtNombreClienteBuzonCalidad.Text = ""
+        TxtNombreClienteBuzonCalidad.Enabled = ControlesActivos
+
+        TxtTelefonoBuzonCalidad.Text = ""
+        TxtTelefonoBuzonCalidad.Enabled = ControlesActivos
+
+        TxtMailBuzonCalidad.Text = ""
+        TxtMailBuzonCalidad.Enabled = ControlesActivos
+
+        LnkFechaBuzonCalidad.Visible = ControlesActivos
+
+        BtnModalGuardarBuzonCalidad.Visible = ControlesActivos
+
+        TxtObservacionesBuzon.Text = ""
+        TxtObservacionesBuzon.Visible = ControlesActivos
+
+        UpModalBuzonCalidad.Update()
+        RegistraScript("$('#ModalBuzonCalidad').modal({ backdrop: 'static',  keyboard: false});")
+
+    End Sub
+
+    Public Sub BuzonCalidadVerInfo_Click(sender As Object, e As EventArgs)
+
+        BuzonCalidadLimpiaModal(True)
+        DvSeguimiento.Visible = True
+
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        CvePersonalBuzon = GvRow.DataKey("CvePersonalBuzon").ToEntero
+        CargaBuzonCalidadSeguimiento()
+        DdlClienteBuzon.SelectedValueExist(GvRow.DataKey("CveCliente"))
+        ' DdlClienteBuzon.Enabled = False
+
+        If GvRow.DataKey("CveClienteSucursal").ToEntero > 0 Then
+            CargaClienteSucursal()
+            DdlSucursalClienteBuzon.SelectedValueExist(GvRow.DataKey("CveClienteSucursal"))
+        Else
+            DdlSucursalClienteBuzon.DataSource = Nothing
+            DdlSucursalClienteBuzon.DataBind()
+            DdlSucursalClienteBuzon.SelectedIndex = 0
+            '  DdlSucursalCliente.Enabled = False
+        End If
+
+        DdlTipoBuzonCalidad.SelectedValueExist(GvRow.DataKey("CveTipoBuzon"))
+        ChkSeAtendio.Visible = True
+
+        ChkSeAtendio.Checked = If(GvRow.DataKey("SeAtendioChk").ToString().ToEntero = 1, True, False)
+
+        TxtFechaBuzonCalidad.Text = GvRow.DataKey("FechaQueja").ToDate.ToString("dd/MM/yyyy")
+        TxtBuzonDescriptcion.Text = GvRow.DataKey("Descripcion")
+        TxtNombreClienteBuzonCalidad.Text = GvRow.DataKey("NombreReporto")
+        TxtTelefonoBuzonCalidad.Text = GvRow.DataKey("TelefonoReporto")
+        TxtMailBuzonCalidad.Text = GvRow.DataKey("MailReporto")
+        TxtObservacionesBuzon.Text = GvRow.DataKey("Observaciones")
+
+        UpModalBuzonCalidad.Update()
+        RegistraScript("$('#ModalBuzonCalidad').modal({ backdrop: 'static',  keyboard: false});")
+
+
+    End Sub
+
+
+
+
+
+    Public Sub BuzonCalidadSeguimiento_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        'CvePersonalBuzon,CveCliente,Cliente,TipoBuzon,FechaQueja,Descripcion,NombreReporto,TelefonoReporto,MailReporto,FechaIng,SeAtendio,Observaciones,SucursalCliente
+
+
+    End Sub
+
+    Public Sub BuzonCalidadFinalizar_Cllick(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+    End Sub
+
+    Property CvePersonalBuzon As Integer
+        Get
+            If ViewState("CvePersonalBuzon") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CvePersonalBuzon").ToString().ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CvePersonalBuzon") = value
+        End Set
+    End Property
+
+
+    Private Sub BtnModalGuardarBuzonCalidad_Click(sender As Object, e As EventArgs) Handles BtnModalGuardarBuzonCalidad.Click
+        Dim objRH As New ClsRH
+
+        If CvePersonalBuzon = -1 Then
+            objRH.AddBuzonCalidad(CvePersonal, DdlClienteBuzon.SelectedValue.ToEntero, DdlSucursalClienteBuzon.SelectedValue.ToEntero, DdlTipoBuzonCalidad.SelectedValue.ToEntero, TxtFechaBuzonCalidad.Text.ToDate, TxtBuzonDescriptcion.Text.Trim, TxtNombreClienteBuzonCalidad.Text.Trim, TxtTelefono.Text.Trim, TxtMailBuzonCalidad.Text.Trim, TxtObservacionesBuzon.Text, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario)
+
+            RegistraScript(" $('#ModalBuzonCalidad').modal('hide')", "HideModalCalidadAgregar")
+        Else
+            objRH.UpdateBuzonCalidad(CvePersonalBuzon, If(ChkSeAtendio.Checked, 1, 0), DdlClienteBuzon.SelectedValue.ToEntero, DdlSucursalClienteBuzon.SelectedValue.ToEntero, DdlTipoBuzonCalidad.SelectedValue.ToEntero, TxtBuzonDescriptcion.Text.Trim, TxtNombreClienteBuzonCalidad.Text.Trim, TxtTelefono.Text.Trim, TxtMailBuzonCalidad.Text.Trim, TxtObservacionesBuzon.Text, UsuarioActual.CveUsuario)
+            RegistraScript(" $('#ModalBuzonCalidad').modal('hide')", "HideModalCalidadAgregar")
+        End If
+        CargaBuzonCalidad()
+
+        CargaGridBC(ViewState("Orden").ToString())
+
+        objRH.Dispose()
+
+    End Sub
+
+
+
+    Private Sub BtnModalGuardarBuzonDetalleCalidad_Click(sender As Object, e As EventArgs) Handles BtnModalGuardarBuzonDetalleCalidad.Click
+        Dim objRH As New ClsRH
+
+        If objRH.AddBuzonCalidadDetalle(CvePersonalBuzon, TxtObserbacionBuzonDetalle.Text.Trim, If(chkBuzonDetalleNotiificar.Checked, 1, 0), TxtMailBuzonCalidad.Text.Trim, UsuarioActual.CveUsuario) Then
+
+
+            If chkBuzonDetalleNotiificar.Checked Then
+                Dim Correo As New ClsSisMail
+                Dim Asunto As String = $"{UsuarioActual.Empresa.Empresa} Seguimiento {DdlTipoBuzonCalidad.SelectedItem.Text}  Empleado {NombreCompleto}"
+
+                Dim Cuerpo As New StringBuilder
+
+                Cuerpo.AppendLine($"Seguimiento  {DdlTipoBuzonCalidad.SelectedItem.Text} <br>")
+                Cuerpo.AppendLine($" {UsuarioActual.Nombre}<br>")
+                Cuerpo.AppendLine($"Actualización: {TxtObserbacionBuzonDetalle.Text}<br>")
+                Cuerpo.AppendLine($"<br>")
+
+
+                Correo.SendMail(EmpresaNotificaciones, TxtMailBuzonCalidad.Text.Trim, Asunto, Body:=Cuerpo.ToString())
+
+            End If
+
+
+
+
+            TxtObserbacionBuzonDetalle.Text = ""
+            chkBuzonDetalleNotiificar.Checked = False
+
+        End If
+        objRH.Dispose()
+
+        CargaBuzonCalidadSeguimiento()
+
+    End Sub
+
+
+    Private Sub CargaBuzonCalidadSeguimiento()
+        If CvePersonalBuzon > 0 Then
+            Dim objRH As New ClsRH
+
+            If objRH.GetBuzonCalidadDetalle(CvePersonalBuzon) Then
+                GvBuzonDetalles.DataSource = objRH.DtResultados
+            Else
+                GvBuzonDetalles.DataSource = Nothing
+
+            End If
+
+
+
+            objRH.Dispose()
+            GvBuzonDetalles.DataBind()
+            UpModalBuzonCalidad.Update()
+
+        End If
+    End Sub
+
+
+
+
+    Private Sub CargaCombosBuzon()
+
+
+        Dim ObjClientes As New ClsClientes
+        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+            DdlClienteBuzon.DataSource = ObjClientes.DtResultados
+            DdlClienteBuzon.DataSource = ObjClientes.DtResultados
+            DdlClienteBuzon.DataSource = ObjClientes.DtResultados
+        Else
+            DdlClienteBuzon.DataSource = Nothing
+            DdlClienteBuzon.DataSource = Nothing
+            DdlClienteBuzon.DataSource = Nothing
+        End If
+        ObjClientes.Dispose()
+        DdlClienteBuzon.DataBind()
+
+
+        Dim objRH As New ClsRH
+
+        If objRH.GetBuzonCalidadTipo(1) Then
+            DdlTipoBuzonCalidad.DataSource = objRH.DtResultados
+
+        Else
+            DdlTipoBuzonCalidad.DataSource = Nothing
+        End If
+        objRH.Dispose()
+        DdlTipoBuzonCalidad.DataBind()
+
+        UpModalBuzonCalidad.Update()
+    End Sub
+
+
+    Private Sub DdlClienteBuzon_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClienteBuzon.SelectedIndexChanged
+        CargaClienteSucursal()
+    End Sub
+
+    Private Sub CargaClienteSucursal()
+
+        Dim ObjCliente As New ClsClientes()
+
+        If ObjCliente.GetSucursales(DdlClienteBuzon.SelectedValue.ToEntero) Then
+            DdlSucursalClienteBuzon.DataSource = ObjCliente.DtResultados
+            If ObjCliente.DtResultados.Rows.Count > 0 Then
+                Divsucursalciente.Visible = True
+            Else
+                Divsucursalciente.Visible = False
+            End If
+        Else
+            Divsucursalciente.Visible = False
+            DdlSucursalClienteBuzon.DataSource = Nothing
+        End If
+        DdlSucursalClienteBuzon.DataBind()
+        UpModalBuzonCalidad.Update()
+    End Sub
+
+    Protected Sub GvBuzonCalidad_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBuzonCalidad.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCLiteral("LtlCliente").Text = "<a class=""Texto"" href=""/Ventas/Clientes.aspx?CveCliente=" & e.Row.DBCampo("CveCliente") & """>" & e.Row.DBCampo("Cliente") & "</a>"
+            If e.Row.DBCampo("SeAtendio") = "Si" Then
+                e.Row.BackColor = Drawing.Color.LightBlue
+            End If
+        End If
+    End Sub
+
+    Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBuzonCalidad.RowCancelingEdit
+        GvBuzonCalidad.EditIndex = -1
+        If ViewState("Orden").ToString() <> String.Empty Then
+            CargaGridBC(ViewState("Orden").ToString())
+        Else
+            CargaGridBC("")
+        End If
+    End Sub
+
+    'Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBuzonCalidad.RowUpdating
+    '    Dim ObjBuzonCalidad As New ClsRH
+
+    '    Dim Observaciones As String = DirectCast(GvBuzonCalidad.Rows(e.RowIndex).FindControl("TxtObs"), TextBox).Text.Trim
+    '    Dim SeAtendio As Boolean = GvBuzonCalidad.Rows(e.RowIndex).FCCheckBox("ChkEstado").Checked
+    '    Dim CveBuzonCalidad As Integer = GvBuzonCalidad.DataKeys(e.RowIndex).Value.ToString().ToEntero
+
+    '    If ObjBuzonCalidad.UpdateBuzonCalidad(SeAtendio, Observaciones, CveBuzonCalidad, UsuarioActual.CveUsuario) Then
+    '        GvBuzonCalidad.EditIndex = -1
+    '        ViewState("DTBuzonCalidad") = ObjBuzonCalidad.DtResultados
+    '        Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+    '    End If
+
+    '    ObjBuzonCalidad.Dispose()
+
+    '    If ViewState("Orden").ToString() <> String.Empty Then
+    '        CargaGridBC(ViewState("Orden").ToString())
+    '    Else
+    '        CargaGridBC("")
+    '    End If
+
+    'End Sub
+
+    Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBuzonCalidad.RowEditing
+        GvBuzonCalidad.EditIndex = e.NewEditIndex
+
+        If ViewState("Orden").ToString() <> String.Empty Then
+            CargaGridBC(ViewState("Orden").ToString())
+        Else
+            CargaGridBC("")
+        End If
+    End Sub
+
+    Private Sub CargaGridBC(Orden As String)
+        If Orden <> String.Empty Then
+            Dim DV As New DataView(CType(ViewState("DTBuzonCalidad"), DataTable), "", Orden, DataViewRowState.CurrentRows)
+            GvBuzonCalidad.DataSource = DV.ToTable()
+            DV.Dispose()
+        Else
+            GvBuzonCalidad.DataSource = CType(ViewState("DTBuzonCalidad"), DataTable)
+        End If
+        GvBuzonCalidad.DataBind()
+        UpDatos.Update()
+    End Sub
+
+#End Region
+
+#Region "Resguardos"
+
+    Protected Sub GvResguardos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvResguardos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.RowIndex = 0 Then
+                e.Row.Cells(0).Width = Unit.Pixel(50) 'Código
+                e.Row.Cells(1).Width = Unit.Pixel(250) 'AF
+                e.Row.Cells(2).Width = Unit.Pixel(150) 'Tipo AF
+                e.Row.Cells(3).Width = Unit.Pixel(65) 'Inició
+                e.Row.Cells(4).Width = Unit.Pixel(65) 'Finalizó
+                e.Row.Cells(5).Width = Unit.Pixel(80) 'Estado
+                e.Row.Cells(6).Width = Unit.Pixel(280) 'Observaciones
+            End If
+
+            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Left
+
+            Dim Liga As String = "<a class=""Texto"" href=""/AF/AF.aspx?CveActivoFijo=" & e.Row.DBCampo("CveActivoFijo") & """>"
+            e.Row.FCLiteral("LtlCodigo").Text = Liga & e.Row.FCLiteral("LtlCodigo").Text & "</a>"
+            e.Row.FCLiteral("LtlAF").Text = Liga & e.Row.FCLiteral("LtlAF").Text & "</a>"
+
+        End If
+    End Sub
+
+#End Region
+
+#Region "Nómina"
+
+
+    Private Sub CarcaConceptosNomina()
+        Dim ObjPersonal As New ClsRH
+        If ObjPersonal.GetPersonalConceptos(CvePersonal, UsuarioActual.CveEmpresa) Then
+            GVConceptos.DataSource = ObjPersonal.DtResultados.FiltraParametros("(CveSistema <>3 AND  CveSistema <>4) OR CveSistema IS NULL")
+            Dim frow As DataRow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =3")
+            If Not IsNothing(frow) Then
+                TxtInfoValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
+                DdlInfoTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())
+
+                Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero
+                TxtInfoDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
+                TxtInfoNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
+                TxtInfoFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
+                ChkInfo.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
+            End If
+
+
+            frow = ObjPersonal.DtResultados.FiltroPrimero("CveSistema =4")
+            TxtFonValor.Text = ""
+            DdlFonTipoAplicacion.SelectedValueExist("-1")
+            TxtFonDescripcion.Text = ""
+            TxtFonNumCredito.Text = ""
+            TxtFonFechaInicio.Text = ""
+            ChkFonacot.Checked = False
+            If Not IsNothing(frow) Then
+                TxtFonValor.Text = String.Format("{0:###,###.##}", frow("Importe"))
+                DdlFonTipoAplicacion.SelectedValueExist(frow("TipoAplicacion").ToString())
+
+                TxtFonDescripcion.Text = String.Format("{0}", frow("Descripcion02"))
+                TxtFonNumCredito.Text = String.Format("{0}", frow("Descripcion01"))
+                TxtFonFechaInicio.Text = String.Format("{0:dd/MM/yyyy}", frow("FInicioAplicacion"))
+                ChkFonacot.Checked = frow("estatus").ToString().ToUpper().Contiene("1", "TRUE")
+            End If
+        Else
+            GVConceptos.DataSource = Nothing
+        End If
+        ObjPersonal.Dispose()
+        GVConceptos.DataBind()
+
+        For Each Row As GridViewRow In GVConceptos.Rows
+            Dim Ddl As DropDownList = DirectCast(GVConceptos.Rows(Row.RowIndex).FCDropDownList("DdlTipoAplicacion"), DropDownList)
+            DdlTipoAplicacion_SelectedIndexChanged(Ddl, Nothing)
+        Next
+    End Sub
+
+    Protected Sub GVConceptos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVConceptos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
+
+            e.Row.Cells(0).Width = Unit.Pixel(50)
+            e.Row.Cells(1).Width = Unit.Pixel(50)
+            e.Row.Cells(3).Width = Unit.Pixel(70)
+            e.Row.Cells(4).Width = Unit.Pixel(70)
+            e.Row.Cells(5).Width = Unit.Pixel(160)
+
+
+            If e.Row.DBCampo("Aplica").ToEntero = 1 Then e.Row.FCCheckBox("ChkAplica").Checked = True
+
+            If e.Row.DBCampo("Formula") = "S" Then
+                e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(3).Text = "Calculado"
+                e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(4).Text = "Permanente"
+            Else
+                Dim TipoAplicacion As String = e.Row.DBCampo("TipoAplicacion").ToString()
+                e.Row.FCDropDownList("DdlTipoAplicacion").Items.Clear()
+                e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Seleccione", "-1"))
+                If (e.Row.DBCampo("CveSistema").ToString() = "3") Then
+                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Movto Permanente)", "5000"))
+                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001"))
+                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002"))
+                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003"))
+
+                ElseIf (e.Row.DBCampo("CveSistema").ToString() = "4") Then
+                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Importe fijo)", "3001"))
+                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Fonacot(Por días Labarados)", "3002"))
+                Else
+                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1"))
+                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2"))
+                    e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Permanente", "2600"))
+                End If
+
+
+                If e.Row.DBCampo("TipoAplicacion").ToEntero > 5 Then
+                    TipoAplicacion = "2600"
+                End If
+                e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion)
+            End If
+
+            'If e.Row.DBCampo("TipoCalculo") = "False" Then
+            '    e.Row.FCTextBox("TxtImporte").Visible = False
+            '    e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False
+            'Else
+            '    Select Case e.Row.DBCampo("TipoAplicacion").ToEntero
+            '        Case 1
+            '            'Saldo
+            '            e.Row.FCLiteral("LtlSaldo").Visible = True
+            '            e.Row.FCTextBox("TxtSaldoIni").Visible = True
+            '        Case 2
+            '            'Numero de Pagos
+            '            e.Row.FCLiteral("LtlNoPago").Visible = True
+            '            e.Row.FCTextBox("TxtNoPagos").Visible = True
+            '        Case 2600
+            '            'Permanente
+            '    End Select
+            'End If
+
+        End If
+    End Sub
+
+    Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs)
+        Dim importe As Decimal = TxtInfoValor.Text.ToDecimal()
+        Dim TipoAplicacion As Integer = DdlInfoTipoAplicacion.SelectedValue.ToEntero
+        Dim NoPagos As Integer = 0
+        Dim SaldoIni As Decimal = 0
+        Dim descripcion02 As String = TxtInfoDescripcion.Text
+        Dim descripcion01 As String = TxtInfoNumCredito.Text
+        Dim fecha As String = TxtInfoFechaInicio.Text.Replace("_", "")
+        Dim estatus As Integer = If(ChkInfo.Checked, 1, 0)
+        If fecha.Length > 8 Then
+            fecha = fecha.ToDateTime().ToString("yyyy/MM/dd")
+        Else
+            fecha = ""
+        End If
+        Dim OcurrioError As Boolean = False
+        Using ObjPersonal As New ClsRH
+
+            If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 3, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then
+                OcurrioError = True
+            End If
+        End Using
+        If Not OcurrioError Then
+            Alert("Se actualizo el calculo de infonavit")
+            CarcaConceptosNomina()
+        End If
+    End Sub
+    Protected Sub BtnGuardarConceptos_Click(sender As Object, e As System.EventArgs) Handles BtnGuardarConceptos.Click
+        If CvePersonal > 0 Then
+            Dim ObjPersonal As New ClsRH
+            ObjPersonal.IniciaTransacSQL()
+
+            Dim OcurrioError As Boolean = False
+            For Each Row As GridViewRow In GVConceptos.Rows
+                If Row.FCCheckBox("ChkAplica").Checked = True Then
+                    Dim CveConcepto As Integer = Row.DataKey("CveConcepto").ToEntero
+                    Dim Importe As Double = Row.FCTextBox("TxtImporte").Text.ToDouble
+                    Dim TipoAplicacion As Integer = Row.FCDropDownList("DdlTipoAplicacion").SelectedValue.ToEntero
+                    Dim NoPagos As Integer = If(Row.FCTextBox("TxtNoPagos").Text.ToEntero = 0, -1, Row.FCTextBox("TxtNoPagos").Text.ToEntero)
+                    Dim SaldoIni As Double = If(Row.FCTextBox("TxtSaldoIni").Text.ToDouble = 0, -1, Row.FCTextBox("TxtSaldoIni").Text.ToDouble)
+
+                    Select Case TipoAplicacion
+                        Case 1
+                            'Saldo
+                            NoPagos = -1
+                        Case 2
+                            'Numero de Pagos
+                            SaldoIni = -1
+                        Case 2600
+                            'Permanente
+                            NoPagos = -1
+                            SaldoIni = -1
+                    End Select
+
+                    'Insertarlo o Actualizarlo
+                    If Not ObjPersonal.AddConcepto(CvePersonal, CveConcepto, Importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario) Then
+                        OcurrioError = True
+                        ObjPersonal.RollBack()
+                        Exit For
+                    End If
+                Else
+                    'Borrarlo
+                    If Row.DataKey("CvePersonalConcepto") <> "" Then
+                        If Not ObjPersonal.RemoveConcepto(Row.DataKey("CvePersonalConcepto").ToEntero) Then
+                            OcurrioError = True
+                            ObjPersonal.RollBack()
+                            Exit For
+                        End If
+                    End If
+                End If
+            Next
+
+            If Not OcurrioError Then
+                ObjPersonal.Commit()
+                Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
+            Else
+                Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
+            End If
+
+            ObjPersonal.Dispose()
+        End If
+    End Sub
+#End Region
+
+    Protected Sub DdlTipoAplicacion_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim Ddl As DropDownList = DirectCast(sender, DropDownList)
+
+        Dim gvr As GridViewRow = DirectCast(Ddl.NamingContainer, GridViewRow)
+
+        Select Case Ddl.SelectedValue.ToEntero
+            Case 1
+                'Descontar hasta pagar el saldo prestado
+                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtSaldoIni").Visible = True
+                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtNoPagos").Visible = False
+            Case 2
+                'Descontar el numero de pagos
+                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtSaldoIni").Visible = False
+                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtNoPagos").Visible = True
+            Case 2600
+                'Permanente
+                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtSaldoIni").Visible = False
+                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtNoPagos").Visible = False
+            Case -1
+                'Seleccione
+                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtSaldoIni").Visible = False
+                GVConceptos.Rows(gvr.RowIndex).FCTextBox("TxtNoPagos").Visible = False
+        End Select
+    End Sub
+
+    Protected Sub DdlEstatusPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusPersonal.SelectedIndexChanged
+
+        MostrarOcultarFechasEstatus()
+    End Sub
+
+    Private Sub MostrarOcultarFechasEstatus()
+
+
+        If DdlEstatusPersonal.SelectedValue.ToEntero.Contiene(1, 2, 5) Then
+            DivFechaActivo.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 1, True, False)
+            DivFechaBaja.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 2, True, False)
+            DivFechaReingreso.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 5, True, False)
+        Else
+            DivFechaActivo.Visible = False
+            DivFechaBaja.Visible = False
+            DivFechaReingreso.Visible = False
+        End If
+
+    End Sub
+
+    Protected Sub GvNominas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvNominas.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.RowIndex = 0 Then
+
+                e.Row.Cells(0).Width = Unit.Pixel(35)
+                e.Row.Cells(1).Width = Unit.Pixel(75)
+                e.Row.Cells(2).Width = Unit.Pixel(75)
+                e.Row.Cells(3).Width = Unit.Pixel(95)
+                e.Row.Cells(4).Width = Unit.Pixel(95)
+                e.Row.Cells(5).Width = Unit.Pixel(95)
+                e.Row.Cells(6).Width = Unit.Pixel(95)
+
+            End If
+
+
+
+            e.Row.FCLinkButton("LBCancelar").Visible = True
+            e.Row.FCLinkButton("LBCancelar").CommandArgument = e.Row.DBCampo("FolioFiscal")
+
+            If e.Row.DBCampo("SeTimbro") = "True" Then
+
+                e.Row.FCLinkButton("LbMail").CommandArgument = e.Row.DBCampo("FolioFiscal")
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LbMail"))
+                e.Row.FCLinkButton("LbMail").Visible = True
+
+                e.Row.FCLinkButton("LbPDF").CommandArgument = e.Row.DataKey("CvePeriodo")
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LbPDF")) ' registro el evento postback
+                'e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Empresas/{0}/PDF/Nomina/{1}.pdf", e.Row.DBCampo("CveEmpresa"), e.Row.DBCampo("SerieFolio"))
+                'e.Row.FCHyperLink("HplSeTimbro").NavigateUrl = String.Format("/Empresas/{0}/XML/Nomina/{1}.xml", e.Row.DBCampo("CveEmpresa"), e.Row.DBCampo("SerieFolio"))
+                e.Row.FCLinkButton("LbPDF").Visible = True
+
+                e.Row.FCLinkButton("LBCancelar").Visible = True
+                e.Row.FCLinkButton("LBCancelar").CommandArgument = e.Row.DBCampo("FolioFiscal")
+            End If
+
+        End If
+    End Sub
+
+#Region "G A S T O S    X    C O M P R O B A R"
+
+    Protected Sub RBLTipoGastos_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        If RBLTipoGastos.SelectedValue = "1" Then
+            PnlGastoGeneral.Visible = True
+            PnlGastoCheque.Visible = False
+        Else
+            PnlGastoGeneral.Visible = False
+            PnlGastoCheque.Visible = True
+        End If
+
+    End Sub
+
+    Private Sub CargaCastosSinComprobar()
+        'Dim objGXC As New ClsMovimientos
+
+        'If objGXC.GetEgresosSinComprobar("-1", "-1", -1, CvePersonal, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
+        '    GvGxC.DataSource = objGXC.DtResultados.FiltraParametros("Saldo > 0")
+
+        '    GvGxCHistorial.DataSource = objGXC.DtResultados.FiltraParametros("Saldo = 0")
+
+        'End If
+
+        'objGXC.Dispose()
+        'GvGxC.DataBind()
+        'GvGxCHistorial.DataBind()
+
+        Dim Conta As New ClsContabilidad
+        If Conta.GetPersonalAuxiliar(CvePersonal, UsuarioActual.CveEmpresa) Then
+            DTGastosSinComp = Conta.DtResultados
+            GvGxC.DataSource = DTGastosSinComp
+            LblSaldoGxC.Text = (Conta.DtResultados.SUM("Cargo", "CveMovimiento Is NULL") - Conta.DtResultados.SUM("Abono", "CveMovimiento Is NULL")).FormatoNumero()
+        End If
+        Conta.Dispose()
+        GvGxC.DataBind()
+
+        Dim ObjBancos As New ClsBancos
+        If ObjBancos.GetPersonalPrestamoAuxiliar(CvePersonal, "-1", "-1", UsuarioActual.CveEmpresa) Then
+            GvAuxiliar.DataSource = ObjBancos.DtResultados
+        End If
+        ObjBancos.Dispose()
+        GvAuxiliar.DataBind()
+
+    End Sub
+
+    Private Sub CargaGastosPorCheque()
+        Dim RH As New ClsRH
+
+        If RH.GetRepPersonalBancos(CvePersonal, "-1", "-1", -1) Then
+            DTGastosPorCheque = RH.DtResultados
+            GvGastosCheque.DataSource = DTGastosPorCheque
+        Else
+            GvGastosCheque.DataSource = Nothing
+            Alert("Ocurrió un error al consultar los Gastos X Comprobar agrupados por cheque.", TipoMensaje.MsgError)
+        End If
+
+        RH.Dispose()
+
+        GvGastosCheque.DataBind()
+    End Sub
+
+    Protected Sub GvGastosCheque_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvGastosCheque.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.RowIndex = 0 Then
+                e.Row.Cells(0).Width = Unit.Pixel(120)
+                e.Row.Cells(1).Width = Unit.Pixel(70)
+                e.Row.Cells(2).Width = Unit.Pixel(80)
+                e.Row.Cells(3).Width = Unit.Pixel(80)
+                e.Row.Cells(4).Width = Unit.Pixel(90)
+                e.Row.Cells(5).Width = Unit.Pixel(90)
+                e.Row.Cells(6).Width = Unit.Pixel(105)
+                e.Row.Cells(7).Width = Unit.Pixel(90)
+
+            End If
+
+            If e.Row.DBCampo("CveCompra") = "" Then
+                If e.Row.DBCampo("CveIE") <> "" Then
+                    e.Row.Cells(0).Text = String.Format("{0} - {1} - {2}", e.Row.DBCampo("Banco"), e.Row.DBCampo("NumCuenta"), e.Row.DBCampo("Moneda"))
+
+                    e.Row.FCLiteral("LtlFechaVenci").Text = e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString
+                    e.Row.FCHyperLink("HplCheque").Visible = True
+                End If
+                e.Row.BackColor = Drawing.Color.LightGray
+
+            End If
+
+        End If
+
+    End Sub
+
+#End Region
+
+#Region "E V E N T O  -  B I T A C O R A"
+    Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.RowIndex = 0 Then
+                e.Row.Cells(0).Width = Unit.Pixel(200)
+                e.Row.Cells(1).Width = Unit.Pixel(200)
+                e.Row.Cells(2).Width = Unit.Pixel(100)
+                e.Row.Cells(3).Width = Unit.Pixel(500)
+            End If
+
+            If e.Row.DBCampo("Archivo").ToString() <> "" Then
+                e.Row.FCLinkButton("LinkArchivo").Visible = True
+                e.Row.FCLinkButton("LinkArchivo").CommandArgument = String.Format("OI\{0}", e.Row.DBCampo("Archivo").ToString())
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LinkArchivo")) 'Registro un evento Postbacktrigger, que recargue toda la pagina para que funcione
+            End If
+
+            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
+        End If
+    End Sub
+    Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click
+
+        Dim ObjEventoBitacora As New ClsOIEventos
+
+        Dim FileExtension As String = "-1"
+        Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
+        Dim filemove As String = ""
+
+        For Each fileItem As Archivo In filesgral
+            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+            filemove = fileItem.filename
+        Next
+
+        If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
+            If filemove <> "" Then
+                filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString()), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa))
+            End If
+
+            GvEB.DataSource = ObjEventoBitacora.DtResultados
+            TxtEventoDescripcion.Text = ""
+            Anexo.Text = "[]"
+            Alert("La bitácora/observación se guardó correctamente", TipoMensaje.MsgInformacion)
+            RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
+        End If
+        ObjEventoBitacora.Dispose()
+        GvEB.DataBind()
+
+        UPEventoBitacora.Update()
+        CargaEventoBitacora()
+        UPAddEventoBitacora.Update()
+    End Sub
+    Private Sub CargaEventoBitacora()
+
+        Dim ObjEventoBitacora As New ClsOIEventos()
+        If ObjEventoBitacora.GetAgendaBitacora(-1, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
+            GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2")
+        Else
+            GvEB.DataSource = Nothing
+        End If
+        GvEB.DataBind()
+    End Sub
+
+    Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
+        Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)
+        Dim Archivo As New System.IO.FileInfo(filePath)
+
+        HttpContext.Current.Response.Clear()
+        HttpContext.Current.Response.ClearContent()
+        HttpContext.Current.Response.ContentType = "application/octet-stream"
+        HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" + Path.GetFileName(filePath))
+        HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
+        HttpContext.Current.Response.TransmitFile(filePath)
+        HttpContext.Current.Response.Flush()
+        HttpContext.Current.Response.End()
+
+        Archivo = Nothing
+    End Sub
+#End Region
+
+    Protected Sub GvGxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGxC.RowDataBound, GvGxCHistorial.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.RowIndex = 1 Then
+                e.Row.Cells(0).Width = Unit.Pixel(100)
+                e.Row.Cells(1).Width = Unit.Pixel(200)
+                e.Row.Cells(2).Width = Unit.Pixel(350)
+                e.Row.Cells(3).Width = Unit.Pixel(100)
+                e.Row.Cells(4).Width = Unit.Pixel(100)
+                'e.Row.Cells(5).Width = Unit.Pixel(100)
+                'e.Row.Cells(6).Width = Unit.Pixel(80)
+                'e.Row.Cells(7).Width = Unit.Pixel(100)
+            End If
+
+            If e.Row.DBCampo("FechaDocumento") = "" Then e.Row.BackColor = Drawing.Color.LightGray
+
+            If e.Row.DBCampo("CveIE").ToEntero > 0 Then
+                e.Row.FCHyperLink("HplRef").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
+                e.Row.FCLabel("LtlC").CssClass = "label label-sm label-success"
+                e.Row.FCLabel("LtlC").ForeColor = Drawing.Color.White
+            End If
+            If e.Row.DBCampo("CveCompra").ToEntero > 0 Then
+                e.Row.FCHyperLink("HplRef").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra"))
+                e.Row.FCLabel("LtlC").CssClass = "label label-sm label-warning"
+                e.Row.FCLabel("LtlC").ForeColor = Drawing.Color.White
+            End If
+
+        End If
+
+    End Sub
+
+    Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
+        If DtCuentasContables Is Nothing Then
+            CargaCuentasContables()
+        End If
+        Dim SeleccionadoContViaticos As String
+        Dim SeleccionadoContPrestamos As String
+        Select Case HdnCuenta.Value
+            Case "1"
+                SeleccionadoContViaticos = DdlViaticos.SelectedValue
+                DdlViaticos.Items.Clear() : DdlViaticos.Items.Add(New ListItem("Seleccione", "0"))
+                DdlViaticos.DataSource = DtCuentasContables : DdlViaticos.DataBind() : DdlViaticos.SelectedValueExist(SeleccionadoContViaticos)
+                DdlViaticos.AutoPostBack = False : DdlViaticos.Attributes.Remove("onclick") : DdlViaticos.CssClass &= " select2me"
+            Case "2"
+                SeleccionadoContPrestamos = DdlPrestamos.SelectedValue
+                DdlPrestamos.Items.Clear() : DdlPrestamos.Items.Add(New ListItem("Seleccione", "0"))
+                DdlPrestamos.DataSource = DtCuentasContables : DdlPrestamos.DataBind() : DdlPrestamos.SelectedValueExist(SeleccionadoContPrestamos)
+                DdlPrestamos.AutoPostBack = False : DdlPrestamos.Attributes.Remove("onclick") : DdlPrestamos.CssClass &= " select2me"
+        End Select
+
+
+
+
+    End Sub
+#Region "TAB BANCOS"
+    Private Sub CargaMonedas()
+        DdlMoneda.DataSource = GlobalDTMonedas
+        DdlMoneda.DataBind()
+        DdlMoneda.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+
+    Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
+        Dim EsBancomer = False
+
+        If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABECB.Text.Length = 18 AndAlso TxtCLABECB.Text.Substring(0, 3) = "012") Then
+            EsBancomer = True
+        End If
+
+        If EsBancomer AndAlso (TxtCLABECB.Text.Length = 18 AndAlso Not TxtCLABECB.Text.Substring(0, 3) = "012") Then
+            Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE
+        'If (TxtCLABECB.Text.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And TxtConvenioCIE.Text.Trim.Length <> 6 And TxtCLABECB.Text.Trim.Length <> 18) Then
+        '    Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If
+
+        'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER
+        If TxtCLABECB.Text.Trim.Length <> 18 And TxtCLABECB.Text.Trim.Length = 0 And Not EsBancomer Then
+            Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10
+        If TxtNumeroCuenta.Text.Trim.Length <> 0 AndAlso TxtNumeroCuenta.Text.Trim.Length <> 10 AndAlso EsBancomer Then
+            Alert("El número de cuenta debe tener una longitud de 10 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
+        If TxtCLABECB.Text.Trim.Length <> 0 AndAlso TxtCLABECB.Text.Trim.Length <> 18 Then
+            Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 6 Y REFERENCIA OBLIGATORIA
+        If (TxtConvenioCIE.Text.Trim.Length <> 0 And TxtConvenioCIE.Text.Trim.Length <> 6) Or (TxtConvenioCIE.Text.Trim.Length = 6 And TxtReferenciaCB.Text.Trim.Length < 3) Then
+            Alert("El Convenio CIE debe tener una longitud de 6 dígitos y se debe especificar una referencia. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        'CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
+        If EsBancomer AndAlso Not (TxtNumeroCuenta.Text.Trim.Length = 10 Or TxtConvenioCIE.Text.Trim.Length = 6) Then
+            Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABECB.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferenciaCB.Text.Trim, DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, TxtBBVAAlias.Text)
+    End Sub
+    Private Sub CargaGridCuentasBancos(Orden As String)
+        If CvePersonal > 0 Then
+            If Orden <> String.Empty Then
+                Dim DV As New DataView(DTCuentasBancos, "", Orden, DataViewRowState.CurrentRows)
+                GvBancosCuentas.DataSource = DV.ToTable()
+                DV.Dispose()
+            Else
+                GvBancosCuentas.DataSource = DTCuentasBancos
+            End If
+        Else
+            If Orden <> String.Empty Then
+                Dim DV As New DataView(TempDTCuentasBancos, "", Orden, DataViewRowState.CurrentRows)
+                GvBancosCuentas.DataSource = DV.ToTable()
+                DV.Dispose()
+            Else
+                GvBancosCuentas.DataSource = TempDTCuentasBancos
+            End If
+        End If
+
+        GvBancosCuentas.DataBind()
+        UpCuentasBancos.Update()
+    End Sub
+    Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, CveMoneda As Integer, Moneda As String, BBVAAlias As String)
+
+        Dim Row As DataRow
+
+        If CvePersonal > 0 Then
+            Dim ObjCuentasBancos As New ClsGenerales
+            If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias) Then
+                DTCuentasBancos.Clear()
+                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
+
+                Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
+
+            End If
+            ObjCuentasBancos.Dispose()
+
+        Else
+            Row = TempDTCuentasBancos.NewRow
+
+            Row("BancoNombre") = NombreBanco
+            Row("Sucursal") = NumeroSucursal
+            Row("CLABE") = CLABE
+            Row("SWIFT") = SWIFT
+            Row("Plaza") = Plaza
+            Row("Cuenta") = NumeroCuenta
+            Row("CIE") = ConvenioCIE
+            Row("Referencia") = Referencia
+            Row("CveMoneda") = CveMoneda
+            Row("Moneda") = Moneda
+            Row("EstatusPagoElectronico") = False
+            TempDTCuentasBancos.Rows.Add(Row)
+        End If
+
+        LimpiaCuentasBancarias()
+        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+
+        If CvePersonal > 0 Then
+            CargaGvBitacora()
+        End If
+
+    End Sub
+    Private Sub LimpiaCuentasBancarias()
+        TxtNombreBanco.Text = ""
+        TxtNumeroSucursal.Text = ""
+        TxtCLABECB.Text = ""
+        TxtSWIFT.Text = ""
+        TxtPlaza.Text = ""
+        TxtNumeroCuenta.Text = ""
+        TxtConvenioCIE.Text = ""
+        TxtReferenciaCB.Text = ""
+    End Sub
+    Private Sub CargaCuentasBancarias()
+        Dim ObjCuentasBancos As New ClsGenerales
+        ViewState("OrdenCuentasBancos") = ""
+        DTCuentasBancos = New DataTable
+        TempDTCuentasBancos = New DataTable
+
+        If ObjCuentasBancos.GetCuentasDepositos(CvePersonal:=CvePersonal) Then
+            DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
+        Else
+            Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgError)
+        End If
+
+        If CvePersonal < 0 Then
+            TempDTCuentasBancos = DTCuentasBancos.Clone
+        End If
+
+        ObjCuentasBancos.Dispose()
+        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+    End Sub
+
+#Region "GRIDVIEW - CUENTAS BANCARIAS"
+    Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+
+            If e.Row.RowState = DataControlRowState.Edit Then
+                e.Row.FCDropDownList("DdlMoneda").DataSource = GlobalDTMonedas
+                e.Row.FCDropDownList("DdlMoneda").DataBind()
+                e.Row.FCDropDownList("DdlMoneda").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                e.Row.FCDropDownList("DdlMoneda").SelectedValue = e.Row.DBCampo("CveMoneda")
+
+                'SI TIENE PERMISO PUEDE EDITAR ESTATUS
+                If UsuarioActual.TienePermisoProceso(155) Then
+                    'Alert("usuario no tiene permiso", TipoMensaje.MsgInformacion)
+                    e.Row.FCCheckBox("ChkEstatus").Visible = True
+                Else
+                    e.Row.FCCheckBox("ChkEstatus").Visible = False
+                End If
+
+                If CBool(e.Row.DBCampo("EstatusPagoElectronico")) Then
+                    e.Row.FCDropDownList("DdlMoneda").Enabled = False
+                End If
+
+            End If
+
+            If CvePersonal < 0 Then
+                For index = 1 To TempDTCuentasBancos.Rows.Count
+                    TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index
+                Next
+                TempDTCuentasBancos.AcceptChanges()
+            End If
+
+        End If
+    End Sub
+    Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
+        GvBancosCuentas.EditIndex = e.NewEditIndex
+        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+    End Sub
+    Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
+        GvBancosCuentas.EditIndex = -1
+        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+    End Sub
+    Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating
+        Dim NombreBanco = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim
+        Dim NumeroSucursal = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroSucursal").Text.Trim
+        Dim CLABE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtCLABE").Text.Trim
+        Dim SWIFT = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtSWIFT").Text.Trim
+        Dim Plaza = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtPlaza").Text.Trim
+        Dim NumeroCuenta = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroCuenta").Text.Trim
+        Dim ConvenioCIE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtConvenioCIE").Text.Trim
+        Dim Referencia = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim
+        Dim CveMoneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString().ToEntero
+        Dim Estatus = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
+        Dim Moneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text
+
+        Dim BBVAAlias As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtBBVAAlias").Text
+
+        Dim RefCrediProveedor = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtRefCrediProveedor").Text.Trim
+
+        Dim EsBancomer = False
+
+        If NombreBanco.ToUpper.Contains("BBVA") Or NombreBanco.ToUpper.Contains("BANCOMER") Or (CLABE.Length = 18 AndAlso CLABE.Substring(0, 3) = "012") Then
+            EsBancomer = True
+        End If
+
+        If EsBancomer AndAlso (CLABE.Length = 18 AndAlso Not CLABE.Substring(0, 3) = "012") Then
+            Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE
+        'If (CLABE.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And ConvenioCIE.Trim.Length <> 6 And CLABE.Trim.Length <> 18) Then
+        '    Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If
+
+        'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER
+        If CLABE.Trim.Length <> 18 And CLABE.Trim.Length = 0 And Not EsBancomer Then
+            Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10
+        If NumeroCuenta.Trim.Length <> 0 AndAlso NumeroCuenta.Trim.Length <> 10 AndAlso EsBancomer Then
+            Alert("El número de cuenta debe tener una longitud de 10 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
+        If CLABE.Trim.Length <> 0 AndAlso CLABE.Trim.Length <> 18 Then
+            Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 6 Y REFERENCIA OBLIGATORIA
+        If (ConvenioCIE.Trim.Length <> 0 And ConvenioCIE.Trim.Length <> 6) Or (ConvenioCIE.Trim.Length = 6 And Referencia.Trim.Length < 3) Then
+            Alert("El Convenio CIE debe tener una longitud de 6 dígitos y se debe especificar una referencia. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        'CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
+        If EsBancomer AndAlso Not (NumeroCuenta.Trim.Length = 10 Or ConvenioCIE.Trim.Length = 6) Then
+            Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+        Dim ObjCuentasBancos As New ClsGenerales
+        If CvePersonal > 0 Then
+            If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias) Then
+                DTCuentasBancos.Clear()
+                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
+                Alert("Cuenta actualizada con exito.", TipoMensaje.MsgInformacion)
+
+            End If
+        Else
+            Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero - 1
+            Dim Row As DataRow = TempDTCuentasBancos.Rows(index)
+            Row("BancoNombre") = NombreBanco
+            Row("Sucursal") = NumeroSucursal
+            Row("CLABE") = CLABE
+            Row("SWIFT") = SWIFT
+            Row("Plaza") = Plaza
+            Row("Cuenta") = NumeroCuenta
+            Row("CIE") = ConvenioCIE
+            Row("Referencia") = Referencia
+            Row("CveMoneda") = CveMoneda
+            Row("Moneda") = Moneda
+            TempDTCuentasBancos.AcceptChanges()
+        End If
+        ObjCuentasBancos.Dispose()
+
+        GvBancosCuentas.EditIndex = -1
+        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGvBitacora()
+    End Sub
+    Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting
+        Dim ObjCuentasBancos As New ClsGenerales
+
+        If CvePersonal > 0 Then
+            If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                DTCuentasBancos.Clear()
+                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
+                Alert("Cuenta Bancaria borrada con exito.", TipoMensaje.MsgInformacion)
+
+            End If
+        Else
+            Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero - 1
+            TempDTCuentasBancos.Rows.RemoveAt(index)
+        End If
+
+        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        ObjCuentasBancos.Dispose()
+        CargaGvBitacora()
+    End Sub
+#End Region
+#End Region
+
+
+#Region "O R D E N A M I E N T O"
+    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
+        Dim Orden As String = ""
+        Dim Campo As String = ""
+        Dim gvi As Integer = 0
+        Dim Literal As Literal = Nothing
+        Const OrdenInicial As String = ""
+        Dim Arg(2) As String
+
+        Arg = CType(sender, LinkButton).CommandArgument().ToString().Split(";"c)
+        Campo = Arg(0)
+        gvi = Arg(1).ToEntero
+        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
+        Campo = Campo.Substring(0, Campo.Length - 1)
+
+        If ViewState(String.Format("O{0}", Campo, gvi)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo, gvi)).ToString() = String.Format("{0} DESC", Campo) Then
+            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
+            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
+        Else
+            ViewState(String.Format("O{0}", Campo, gvi)) = String.Format("{0} DESC", Campo)
+            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
+        End If
+        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo, gvi)).ToString()
+        ViewState("Orden") = Orden
+        CargaGrid(Orden, gvi)
+    End Sub
+
+    Private Sub CargaGrid(Orden As String, gvi As Integer)
+        If gvi = 0 Then
+            ViewState("Orden") = Orden
+            CargaGridCuentasBancos(Orden)
+        ElseIf gvi = 1 Then
+            ViewState("Orden1") = Orden
+            CargaGvAsistencias()
+        End If
+    End Sub
+#End Region
+
+
+#Region "I M P R I M I R     N O M I N A"
+
+    Protected Sub LbPDF_Click(sender As Object, e As EventArgs)
+
+        Dim LB = CType(sender, LinkButton)
+        ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo")
+        ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo")
+
+    End Sub
+
+#End Region
+
+
+#Region "  ORGANIGRAMA  "
+    Private Sub CargaSuperioresOrganigrama()
+        Dim ObjRH As New ClsRH
+
+        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+            DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
+        Else
+            DdlSupervisorOrganigrama.DataSource = Nothing
+            Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
+        End If
+        ObjRH.Dispose()
+
+        If DdlSupervisorOrganigrama.DataSource IsNot Nothing Then
+            DdlSupervisorOrganigrama.DataBind()
+        End If
+
+
+
+
+
+    End Sub
+#End Region
+
+
+#Region "I M P R I M I R "
+    Private Sub GenerarPDF(Optional Formato As String = "PDF")
+
+        Dim ObjPersonal As New ClsRH()
+        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
+            If ObjPersonal.DtResultados.Rows.Count > 0 Then
+
+                Dim params As New List(Of ReportParameter)
+                params.Add(New ReportParameter("ApellidoP", ObjPersonal.APaterno))
+                params.Add(New ReportParameter("ApellidoM", ObjPersonal.AMaterno))
+                params.Add(New ReportParameter("Nombres", ObjPersonal.Nombres))
+                params.Add(New ReportParameter("Codigo", ObjPersonal.Codigo))
+                params.Add(New ReportParameter("Escolaridad", If(DdlEscolaridad.SelectedValue = "-1", "", DdlEscolaridad.SelectedItem.Text)))
+                params.Add(New ReportParameter("EstadoCivil", If(DdlEstadoCivil.SelectedValue = "-1", "", DdlEstadoCivil.SelectedItem.Text)))
+                params.Add(New ReportParameter("Genero", If(DdlGenero.SelectedValue = "-1", "", DdlGenero.SelectedItem.Text)))
+                params.Add(New ReportParameter("FechaNacimiento", ObjPersonal.FechaNacimiento.ToShortDateString))
+                params.Add(New ReportParameter("RFC", ObjPersonal.RFC))
+                params.Add(New ReportParameter("CURP", ObjPersonal.CURP))
+                params.Add(New ReportParameter("Calle", ObjPersonal.Calle))
+                params.Add(New ReportParameter("Numero", ObjPersonal.NumExt))
+                params.Add(New ReportParameter("Interior", ObjPersonal.NumInt))
+                params.Add(New ReportParameter("Colonia", ObjPersonal.Colonia))
+                params.Add(New ReportParameter("CP", Now.ToDateTime.ToShortDateString))
+                params.Add(New ReportParameter("Ciudad", ObjPersonal.CP))
+                params.Add(New ReportParameter("Estado", UsuarioActual.Empresa.Empresa))
+                params.Add(New ReportParameter("Telefono", ObjPersonal.Telefono))
+                params.Add(New ReportParameter("Celular", ObjPersonal.Celular))
+                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
+                params.Add(New ReportParameter("LugarNacimiento", Now.ToDateTime.ToShortDateString))
+                params.Add(New ReportParameter("NombrePadre", ObjPersonal.NombrePadre))
+                params.Add(New ReportParameter("NombreMadre", ObjPersonal.NombreMadre))
+                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
+                params.Add(New ReportParameter("FechaIContrato", ObjPersonal.FechaInicioContrato.ToShortDateString))
+                params.Add(New ReportParameter("FechaFContrato", ObjPersonal.FechaFinContrato.ToShortDateString))
+                params.Add(New ReportParameter("TipoContrato", If(DdlTipoContrato.SelectedValue = "-1", "", DdlTipoContrato.SelectedItem.Text)))
+                params.Add(New ReportParameter("Turno", If(DdlTurno.SelectedValue = "-1", "", DdlTurno.SelectedItem.Text)))
+                params.Add(New ReportParameter("Jornada", If(DdlJornada.SelectedValue = "-1", "", DdlJornada.SelectedItem.Text)))
+                params.Add(New ReportParameter("Ruta", If(DdlRuta.SelectedValue = "-1", "", DdlRuta.SelectedItem.Text)))
+                params.Add(New ReportParameter("Departamento", If(DdlDepartamento.SelectedValue = "-1", "", DdlDepartamento.SelectedItem.Text)))
+                params.Add(New ReportParameter("Puesto", If(DdlPuesto.SelectedValue = "-1", "", DdlPuesto.SelectedItem.Text)))
+                params.Add(New ReportParameter("SupervisorRH", If(DdlSupervisor.SelectedValue = "-1", "", DdlSupervisor.SelectedItem.Text)))
+                params.Add(New ReportParameter("SupervisorInmediato", If(DdlSupervisorOrganigrama.SelectedValue = "-1", "", DdlSupervisorOrganigrama.SelectedItem.Text)))
+                params.Add(New ReportParameter("Cliente", DdlClienteAsignado.SelectedItem.Text))
+                params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
+                params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
+                params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))
+                params.Add(New ReportParameter("MotivoBaja", If(DdlMotivoBaja.SelectedValue = "-1", "", DdlMotivoBaja.SelectedItem.Text)))
+                params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
+                params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
+                params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))
+                params.Add(New ReportParameter("FechaIngreso", ObjPersonal.FechaIngreso.ToShortDateString))
+                params.Add(New ReportParameter("TipoPeriodo", ObjPersonal.CveTipoPeriodo.ToString()))
+                params.Add(New ReportParameter("RegimenContratacion", ObjPersonal.RegimenContratacion))
+                params.Add(New ReportParameter("RiesgoPuesto", DdlRiesgoPuesto.SelectedItem.Text))
+                params.Add(New ReportParameter("NoSeguroSocial", ObjPersonal.NumeroSS))
+                params.Add(New ReportParameter("InscribioSeguro", If(ObjPersonal.SeInscribioSS, "Si", "No")))
+                params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString()))
+                params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString()))
+                params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString()))
+                params.Add(New ReportParameter("Bono", ObjPersonal.Bono.ToString()))
+                params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString()))
+                params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString()))
+                params.Add(New ReportParameter("MetodoPago", If(DdlMetodoPago.SelectedValue = "-1", "", DdlMetodoPago.SelectedItem.Text)))
+                params.Add(New ReportParameter("Banco", If(DdlBanco.SelectedValue = "-1", "", DdlBanco.SelectedItem.Text)))
+                params.Add(New ReportParameter("NoCuenta", ObjPersonal.BancoNumCuenta))
+                params.Add(New ReportParameter("CLABE", ObjPersonal.CLABE))
+
+
+
+                If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL & ".png") Then
+                    params.Add(New ReportParameter("LogoUri", "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL & ".png"))
+                Else
+                    params.Add(New ReportParameter("LogoUri", ""))
+                End If
+
+                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", logouri))
+                Else
+                    params.Add(New ReportParameter("LogoPath", ""))
+                End If
+
+                ImprimirPDF("Empresas/Grales/Formatos/Personal.rdlc", New DataTable, params, "ReportePersonal", Formato)
+            Else
+                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+
+            End If
+        End If
+        ObjPersonal.Dispose()
+    End Sub
+    'Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
+    '    GenerarPDF("PDF")
+    'End Sub
+    Protected Sub ImgImprimirExpediente_Click(sender As Object, e As EventArgs) Handles ImgImprimirExpediente.Click
+        Dim ObjPersonal As New ClsRH()
+        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
+            If ObjPersonal.DtResultados.Rows.Count > 0 Then
+
+                Dim params As New List(Of ReportParameter)
+                params.Add(New ReportParameter("ApellidoP", ObjPersonal.APaterno))
+                params.Add(New ReportParameter("ApellidoM", ObjPersonal.AMaterno))
+                params.Add(New ReportParameter("Nombres", ObjPersonal.Nombres))
+                params.Add(New ReportParameter("Codigo", ObjPersonal.Codigo))
+                params.Add(New ReportParameter("Escolaridad", If(DdlEscolaridad.SelectedValue = "-1", "", DdlEscolaridad.SelectedItem.Text)))
+                params.Add(New ReportParameter("EstadoCivil", If(DdlEstadoCivil.SelectedValue = "-1", "", DdlEstadoCivil.SelectedItem.Text)))
+                params.Add(New ReportParameter("Genero", If(DdlGenero.SelectedValue = "-1", "", DdlGenero.SelectedItem.Text)))
+                params.Add(New ReportParameter("FechaNacimiento", ObjPersonal.FechaNacimiento.ToShortDateString))
+                params.Add(New ReportParameter("RFC", ObjPersonal.RFC))
+                params.Add(New ReportParameter("CURP", ObjPersonal.CURP))
+                params.Add(New ReportParameter("Calle", ObjPersonal.Calle))
+                params.Add(New ReportParameter("Numero", ObjPersonal.NumExt))
+                params.Add(New ReportParameter("Interior", ObjPersonal.NumInt))
+                params.Add(New ReportParameter("Colonia", ObjPersonal.Colonia))
+                params.Add(New ReportParameter("CP", Now.ToDateTime.ToShortDateString))
+                params.Add(New ReportParameter("Ciudad", ObjPersonal.CP))
+                params.Add(New ReportParameter("Estado", UsuarioActual.Empresa.Empresa))
+                params.Add(New ReportParameter("Telefono", ObjPersonal.Telefono))
+                params.Add(New ReportParameter("Celular", ObjPersonal.Celular))
+                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
+                params.Add(New ReportParameter("LugarNacimiento", Now.ToDateTime.ToShortDateString))
+                params.Add(New ReportParameter("NombrePadre", ObjPersonal.NombrePadre))
+                params.Add(New ReportParameter("NombreMadre", ObjPersonal.NombreMadre))
+                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
+                params.Add(New ReportParameter("FechaIContrato", ObjPersonal.FechaInicioContrato.ToShortDateString))
+                params.Add(New ReportParameter("FechaFContrato", ObjPersonal.FechaFinContrato.ToShortDateString))
+                params.Add(New ReportParameter("TipoContrato", If(DdlTipoContrato.SelectedValue = "-1", "", DdlTipoContrato.SelectedItem.Text)))
+                params.Add(New ReportParameter("Turno", If(DdlTurno.SelectedValue = "-1", "", DdlTurno.SelectedItem.Text)))
+                params.Add(New ReportParameter("Jornada", If(DdlJornada.SelectedValue = "-1", "", DdlJornada.SelectedItem.Text)))
+                params.Add(New ReportParameter("Ruta", If(DdlRuta.SelectedValue = "-1", "", DdlRuta.SelectedItem.Text)))
+                params.Add(New ReportParameter("Departamento", If(DdlDepartamento.SelectedValue = "-1", "", DdlDepartamento.SelectedItem.Text)))
+                params.Add(New ReportParameter("Puesto", If(DdlPuesto.SelectedValue = "-1", "", DdlPuesto.SelectedItem.Text)))
+                params.Add(New ReportParameter("SupervisorRH", If(DdlSupervisor.SelectedValue = "-1", "", DdlSupervisor.SelectedItem.Text)))
+                params.Add(New ReportParameter("SupervisorInmediato", If(DdlSupervisorOrganigrama.SelectedValue = "-1", "", DdlSupervisorOrganigrama.SelectedItem.Text)))
+                params.Add(New ReportParameter("Cliente", DdlClienteAsignado.SelectedItem.Text))
+                params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
+                params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
+                params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))
+                params.Add(New ReportParameter("MotivoBaja", If(DdlMotivoBaja.SelectedValue = "-1", "", DdlMotivoBaja.SelectedItem.Text)))
+                params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
+                params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
+                params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))
+                params.Add(New ReportParameter("FechaIngreso", ObjPersonal.FechaIngreso.ToShortDateString))
+                params.Add(New ReportParameter("TipoPeriodo", ObjPersonal.CveTipoPeriodo.ToString()))
+                params.Add(New ReportParameter("RegimenContratacion", ObjPersonal.RegimenContratacion))
+                params.Add(New ReportParameter("RiesgoPuesto", DdlRiesgoPuesto.SelectedItem.Text))
+                params.Add(New ReportParameter("NoSeguroSocial", ObjPersonal.NumeroSS))
+                params.Add(New ReportParameter("InscribioSeguro", If(ObjPersonal.SeInscribioSS, "Si", "No")))
+                params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString()))
+                params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString()))
+                params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString()))
+                params.Add(New ReportParameter("Bono", ObjPersonal.Bono.ToString()))
+                params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString()))
+                params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString()))
+                params.Add(New ReportParameter("MetodoPago", If(DdlMetodoPago.SelectedValue = "-1", "", DdlMetodoPago.SelectedItem.Text)))
+                params.Add(New ReportParameter("Banco", If(DdlBanco.SelectedValue = "-1", "", DdlBanco.SelectedItem.Text)))
+                params.Add(New ReportParameter("NoCuenta", ObjPersonal.BancoNumCuenta))
+                params.Add(New ReportParameter("CLABE", ObjPersonal.CLABE))
+                params.Add(New ReportParameter("Fecha", DateTime.Now.ToShortDateString))
+                Dim edad As Integer
+                edad = Now.Year - ObjPersonal.FechaNacimiento.Year
+                If Now.Month < ObjPersonal.FechaNacimiento.Month OrElse (Now.Month = ObjPersonal.FechaNacimiento.Month AndAlso Now.Day < ObjPersonal.FechaNacimiento.Day) Then
+                    edad = edad - 1
+                End If
+
+                params.Add(New ReportParameter("Edad", edad.ToString()))
+
+
+
+                If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL & ".png") Then
+                    params.Add(New ReportParameter("LogoUri", "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL & ".png"))
+                Else
+                    params.Add(New ReportParameter("LogoUri", ""))
+                End If
+
+                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                If Imagen.Exists Then
+                    params.Add(New ReportParameter("LogoPath", logouri))
+                Else
+                    params.Add(New ReportParameter("LogoPath", ""))
+                End If
+
+                ImprimirPDF("Empresas/Grales/Formatos/ExpedientePersonal.rdlc", New DataTable, params, "ExpedientePersonal")
+            Else
+                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+
+            End If
+        End If
+        ObjPersonal.Dispose()
+    End Sub
+    Private Sub LbGafete_Click(sender As Object, e As EventArgs) Handles LbGafete.Click
+        Dim params As New List(Of ReportParameter)
+        Dim ObjPersonal As New ClsRH()
+
+        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
+            If ObjPersonal.DtResultados.Rows.Count > 0 Then
+
+                params.Add(New ReportParameter("Nombre", String.Format("{0} {1} {2}", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim)))
+                params.Add(New ReportParameter("Vigencia", TxtFechaFinContrato.Text))
+                params.Add(New ReportParameter("Puesto", If(DdlPuesto.SelectedValue.ToEntero > 0, DdlPuesto.SelectedItem.Text, "")))
+                params.Add(New ReportParameter("CURP", TxtCURP.Text))
+                params.Add(New ReportParameter("NoRegistro", ""))
+                params.Add(New ReportParameter("RegIMSS", TxtNumeroSS.Text))
+                params.Add(New ReportParameter("FechaIngreso", TxtFechaIngreso.Text))
+                params.Add(New ReportParameter("DomPart", String.Format("{0} NoExt:{1} NoInt:{2} {3}", TxtCalle.Text, TxtNumExt.Text, TxtNumInt.Text, TxtColonia.Text)))
+                params.Add(New ReportParameter("Emergencia", ""))
+                params.Add(New ReportParameter("CUIP", ""))
+                params.Add(New ReportParameter("TipoSangre", ""))
+                params.Add(New ReportParameter("RFC", TxtRFC.Text))
+                params.Add(New ReportParameter("Denominacion", TxtRFC.Text))
+
+
+
+                If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.CvePersonal & ".png") Then
+                    params.Add(New ReportParameter("LogoUri", String.Format("{0}://{1}:{2}/Empresas/{3}/RH/Personal/{4}.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, ObjPersonal.CvePersonal)))
+                Else
+                    params.Add(New ReportParameter("LogoUri", ""))
+                End If
+
+                ImprimirPDF("Empresas/Grales/Formatos/RHGafete.rdlc", New DataTable, params, String.Format("Gafete_{0}", ObjPersonal.CvePersonal), "PDF")
+            End If
+        End If
+        ObjPersonal.Dispose()
+    End Sub
+    Private Sub GenerarPDFGastosXComp(Optional Formato As String = "PDF")
+
+        If RBLTipoGastos.SelectedValue = "1" Then
+
+            If DTGastosSinComp.Rows.Count > 0 Then
+
+                Dim params As New List(Of ReportParameter)
+                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString()))
+                params.Add(New ReportParameter("Saldo", LblSaldoGxC.Text.ToString()))
+                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+
+                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                If Imagen.Exists Then
+                    params.Add(New ReportParameter("pImg", logouri))
+                Else
+                    params.Add(New ReportParameter("pImg", ""))
+                End If
+
+                ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarGral.rdlc", DTGastosSinComp, params, "GastosSinComprobarGral", Formato)
+            Else
+                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+            End If
+
+        ElseIf RBLTipoGastos.SelectedValue = "2" Then
+
+            If DTGastosPorCheque.Rows.Count > 0 Then
+
+                For Each Row As DataRow In DTGastosPorCheque.Rows
+                    Dim FolioPago As String = Row("FolioPago").ToString()
+                    Row("FolioPago") = ""
+                    If Row("CveCompra").ToString() = "" And Row("CveIE").ToString() <> "" Then
+                        Row("FechaVencimiento") = Row("FechaDocumento")
+                        Row("FolioPago") = FolioPago
+                    End If
+
+                    If Row("FolioPago").ToString() <> "" Then
+                        Row("SerieFolio") = ""
+                    End If
+                Next
+
+                Dim params As New List(Of ReportParameter)
+                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString()))
+                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+
+                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                If Imagen.Exists Then
+                    params.Add(New ReportParameter("pImg", logouri))
+                Else
+                    params.Add(New ReportParameter("pImg", ""))
+                End If
+
+                ImprimirPDF("Empresas/Grales/Formatos/GastosXComprobarCheque.rdlc", DTGastosPorCheque, params, "GastosPorCheque", Formato)
+            Else
+                Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+
+
+    End Sub
+
+
+    Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs)
+        GenerarPDFGastosXComp("PDF")
+    End Sub
+    Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
+        GenerarPDFGastosXComp("Excel")
+    End Sub
+
+#End Region
+
+#Region "D O C U M E N T A C I O N   C O N T R A T O S"
+
+    Private Sub CargaDocumentacionFirmaDecontratos()
+
+        If CvePersonal > 0 Then
+            Dim objRH As New ClsEdocumentacion()
+
+            If objRH.DocumentacionElectronicaGet(CvePersonal, -1, -1, UsuarioActual.Empresa.CveEmpresa, -1) Then
+                DTDocumentacion = objRH.DtResultados
+            End If
+
+            If DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ").Rows.Count > 0 Then
+                GvDocumentosFirma.DataSource = DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ")
+            Else
+                GvDocumentosFirma.DataSource = Nothing
+            End If
+            GvDocumentosFirma.DataBind()
+
+            UPGvDocumentosFirma.Update()
+            UpGvDocumentosFirma2.Update()
+        End If
+
+    End Sub
+    Public Sub UploadModal_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim chkEstatus As CheckBox
+        CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero
+        CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString().ToEntero
+        Documentacion = GvRow.DataKey("Documentacion")
+        AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString()
+
+        chkEstatus = GvRow.FCCheckBox("chkEstatus")
+
+
+
+        ObservacionDocumentacion = GvRow.FCTextBox("TxtObservaciones").Text.Trim.ToUpper
+        FechaLimite = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
+
+        AdjuntoDocumentacion = GvRow.DataKey("Adjunto")
+
+        LtlTitulofirmaContrato.Text = "Subir " & Documentacion
+
+        UpTituloFirma.Update()
+
+        RegistraScript("$('#ModalUploadFirmaContratoDocumento').modal({ backdrop: 'static',  keyboard: false});")
+    End Sub
+    Private Sub GuardarDocumentosFirmaContrato(Optional _CveDocumentacionExcluir As Integer = -1)
+
+        Dim hasError As Boolean = True
+        Dim objDocumentos As New ClsEdocumentacion
+
+        For Each dRow As GridViewRow In GvDocumentosFirma.Rows
+
+
+            Dim _CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToString().ToEntero
+            Dim _Adjunto As String = dRow.DataKey("Adjunto")
+            'Dim _Documentacion As String = dRow.DataKey("Documentacion")
+            Dim _CveDocumentacionElectronica As Integer = dRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero
+            Dim _txtObservaciones As TextBox = dRow.FCTextBox("TxtObservaciones")
+            Dim _TxtFechaLimite As TextBox = dRow.FCTextBox("TxtFechaLimite")
+            Dim _TxtFechaVigencia As TextBox = dRow.FCTextBox("TxtFechaVigencia")
+            Dim chkEstatus As CheckBox = dRow.FCCheckBox("chkEstatus")
+            Dim _estatus As Integer
+
+            _estatus = If(dRow.DataKey("Estatus").ToString().ToUpper = "TRUE", 1, 0)
+
+            Dim _FechaVigencia As Date
+            Dim _FechaLimite As Date
+
+            Dim DiasLimite As Integer = dRow.DataKey("DiasLimite").ToString().ToEntero
+            Dim AplicaDiasLimite As Boolean = If(dRow.DataKey("AplicaDiasLimite").ToString() = "1", True, False)
+            Dim AplicaFechaVencimiento As Boolean = If(dRow.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False)
+
+            If _TxtFechaVigencia.Text.Length = 10 Then
+                _FechaVigencia = _TxtFechaVigencia.Text.ToDate
+            Else
+                _FechaVigencia = Nothing
+            End If
+
+            If Not AplicaDiasLimite Then
+                _FechaLimite = MinFecha
+            Else
+                _FechaLimite = _TxtFechaLimite.Text.ToDate
+            End If
+
+            If Not AplicaFechaVencimiento Then
+                _FechaVigencia = MinFecha
+            End If
+
+
+            If Not _CveDocumentacionExcluir = _CveDocumentacion Then
+                Try
+                    If _CveDocumentacionElectronica = -1 Then
+
+                        If objDocumentos.DocumentacionElectronicaAdd(_CveDocumentacion, CvePersonal, -1, -1, _estatus, _txtObservaciones.Text.Trim, _Adjunto, UsuarioActual.CveUsuario, _FechaLimite, _FechaVigencia) > 0 Then
+                        Else
+                            hasError = True
+                            Exit For
+                        End If
+
+                    Else
+                        If objDocumentos.DocumentacionElectronicaUpdate(_CveDocumentacionElectronica, _CveDocumentacion, CvePersonal, -1, -1, _estatus, _txtObservaciones.Text.Trim, _Adjunto, UsuarioActual.CveUsuario, _FechaLimite, _FechaVigencia) Then
+                        Else
+                            hasError = True
+                            Exit For
+                        End If
+                    End If
+
+
+                    hasError = False
+                Catch ex As Exception
+                    hasError = True
+                    Exit For
+                End Try
+            End If
+        Next
+
+        'refrescar grid datos investigacion
+        CargaDocumentacionFirmaDecontratos()
+    End Sub
+    Protected Sub BtnModalFirmaContratoDocumentoUpload_Click(sender As Object, e As EventArgs) Handles BtnModalFirmaContratoDocumentoUpload.Click
+
+        Dim FileExtension As String = "-1"
+        Dim Filesgral As List(Of Archivo) = TxtFileFirmaContrato.getfiles().Archivos
+        Dim Filename As String = ""
+
+
+        For Each fileItem As Archivo In Filesgral
+            Try
+
+                FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+                Dim tempArray() As String
+                tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
+
+                Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\" & Documentacion & "." & FileExtension
+                Dim rutaAdjuntoAnterior As String = UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\" & AdjuntoDocumentacion
+
+                If Not System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\") Then
+                    System.IO.Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\")
+                End If
+
+                If File.Exists(rutaAdjuntoAnterior) And AdjuntoDocumentacion.Trim.Length > 0 Then
+                    File.Delete(rutaAdjuntoAnterior)
+                End If
+
+                If System.IO.File.Exists(rutaDestino) Then
+                    System.IO.File.Delete(rutaDestino)
+                End If
+
+                System.IO.File.Move(fileItem.FileUrl, rutaDestino)
+
+                Dim objRH As New ClsEdocumentacion
+
+
+                If CveDocumentacionElectronica = -1 Then
+                    If objRH.DocumentacionElectronicaAdd(CveDocumentacion, CvePersonal, -1, -1, 1, ObservacionDocumentacion, Documentacion & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite) > 0 Then
+
+                    End If
+                Else
+                    If objRH.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, CvePersonal, -1, -1, 1, ObservacionDocumentacion, Documentacion & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite) Then
+
+                    End If
+                End If
+
+                objRH.Dispose()
+
+                GuardarDocumentosFirmaContrato(CveDocumentacion)
+                CargaDocumentacionFirmaDecontratos()
+
+
+                TxtFileFirmaContrato.Text = ""
+                UpModalFirmaContratoDocumento.Update()
+
+            Catch ex As Exception
+                OnError("Error al cargar archivo", ex)
+            End Try
+
+        Next
+        RegistraScript("$('#ModalUploadFirmaContratoDocumento').modal('hide')", "hidemodal7")
+
+    End Sub
+
+    Public Sub Update_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim activo As Boolean = False
+
+        Dim _CveDocumentacionElectronica As Integer = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero
+        Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero
+        Dim _Adjunto As String = GvRow.DataKey("Adjunto").ToString()
+        Dim _fechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
+
+        Dim obserbaciones As String = DirectCast(GvRow.FindControl("TxtObservaciones"), TextBox).Text
+        'Dim DDLEstatus As DropDownList = DirectCast(GvRow.FindControl("DDLEstatus"), DropDownList)
+        Dim chkCompleto As CheckBox = DirectCast(GvRow.FindControl("chkEstatus"), CheckBox)
+
+        If chkCompleto.Checked Then
+            Estatus = 1
+        Else
+            Estatus = 0
+        End If
+
+        Dim objRH As New ClsEdocumentacion
+
+        If Not _CveDocumentacionElectronica = -1 Then
+            If objRH.DocumentacionElectronicaUpdate(_CveDocumentacionElectronica, _CveDocumentacion, CvePersonal, -1, -1, 1, obserbaciones, _Adjunto, UsuarioActual.CveUsuario, _fechaLimite) Then
+                Alert("Documento actualizado correctamente.", TipoMensaje.MsgInformacion)
+            End If
+        Else
+            If objRH.DocumentacionElectronicaAdd(_CveDocumentacion, CvePersonal, -1, -1, 1, obserbaciones, _Adjunto, UsuarioActual.CveUsuario, _fechaLimite) > 0 Then
+                Alert("Documento actualizado correctamente.", TipoMensaje.MsgInformacion)
+            End If
+        End If
+
+        CargaDocumentacionFirmaDecontratos()
+        objRH.Dispose()
+
+    End Sub
+    Protected Sub GvDocumentosFirma_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentosFirma.RowDataBound
+
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString()
+            Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato")
+            Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
+            Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
+            Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
+            Dim requerido As Boolean = If(e.Row.DBCampo("Requerido").ToUpper = "TRUE", True, False)
+            Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
+            Dim documentacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString()
+            Dim Documentacion As String = e.Row.DBCampo("Documentacion").ToString()
+            Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString().ToEntero
+            Dim separado As Char() = ".".ToString().ToCharArray
+            Dim array() As String = Adjunto.Split(separado)
+            Dim extencion As String = ""
+            Dim existeAdjunto As Boolean = False
+            Dim TxtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia")
+            ' FechaVigencia
+
+            Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString().ToEntero
+            Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString() = "1", True, False)
+            Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False)
+
+            txtFechaLimite.Visible = If(AplicaDiasLimite, True, False)
+            TxtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False)
+
+
+
+            Dim scripMascara = " $('#" & TxtFechaVigencia.ClientID & "').mask('00/00/0000');"
+            RegistraScript(scripMascara)
+            If array.Length > 0 Then
+                extencion = array(array.Length - 1)
+            End If
+
+            If e.Row.DBCampo("Estatus").ToString().ToEntero = 1 Then
+                chkEstatus.Checked = True
+            Else
+                chkEstatus.Checked = False
+            End If
+
+            If documentacionFormato = "" Then
+                ImgDownLoadFormato.Visible = False
+            Else
+                Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & CveDocumentacion & "" & documentacionFormato
+                ImgDownLoadFormato.Visible = True
+            End If
+
+            txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString().ToDate.ToString("dd/MM/yyyy")
+
+            If Adjunto.Trim.Length > 0 Then
+
+                Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Personal/" & CvePersonal & "/" & Adjunto
+                Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "Personal/" & CvePersonal & "/" & Adjunto
+
+                If File.Exists(linkDescargaArchivo) Then
+
+                    ImgDownLoad.Visible = True
+                    If extencion.Length > 0 Then
+                        ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CvePersonal & Documentacion & "." & extencion)
+                    Else
+                        ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CvePersonal & Documentacion)
+                    End If
+                Else
+                    ImgDownLoad.Visible = False
+                End If
+            Else
+                ImgDownLoad.Visible = False
+            End If
+
+            If requerido Then
+                ImgRequired.Text = " <a class='btn btn-circle btn-sm yelow' href='#' data-toggle='tooltip' title=' Requerido!' ><i class='fa fa-asterisk '></i></a>"
+            Else
+                ' ImgRequired.Text = " <a class='btn btn-circle btn-sm grey-salt' href='#' data-toggle='tooltip' title='No obligatorio' ><i class='fa fa-asterisk '></i></a>"
+            End If
+
+        End If
+
+    End Sub
+    Public Sub DownLoadFormato_ClickDocumentacion(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero
         Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato")
 
 
@@ -3853,1311 +3863,1311 @@ Partial Class RH_Personal
 
 
 
-    End Sub
-    Public Sub DescarFormato(documento As String)
-
-        Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory
-        Dim PathSource As String
-        Dim pathDesti As String
-
-        PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & documento
-        pathDesti = PathRoot & "Temp\" & CvePersonal & documento
-
-        If File.Exists(pathDesti) Then
-            File.Delete(pathDesti)
-        End If
-
-        File.Copy(PathSource, pathDesti)
-
-        Dim objDoc As New clsGemBoxDocument(pathDesti)
-        Dim objRH As New ClsRH
-        Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
-
-
-        objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
-        objRH.Dispose()
-
-
-
-        objDoc.Guardar(pathDesti)
-
-        Dim fileinfo As New FileInfo(pathDesti)
-
-        Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
-        baseUrl = baseUrl & "/temp/" & fileinfo.Name
-
-        RegistraDescargaJavaScript(baseUrl)
-
-    End Sub
-
-
-
-    Private Function GetDatosTagsDocumentos() As List(Of TagsDocumentos)
-        Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
-
-        If CvePersonal <> -1 Then
-            Dim objRH As New ClsRH
-
-
-
-            If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString()))
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString()))
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{RFC}", objRH.DtResultados(0)("RFC").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", NombreCompleto))
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString()))
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString()))
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString()))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString()))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString()))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString()))
-
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString()))
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal.ToString("###,###,###.00")))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString()))
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString()))
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString()))
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString()))
-
-
-                'If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then
-
-                '    ListaTagsDocumentost.Add(New TagsDocumentos("{CveSucursal}", DDLSucursal4.Text))
-                'End If
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString()))
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString()))
-
-
-
-
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString()))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString()))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString()))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString()))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", objRH.DtResultados(0)("FechaIngreso").ToString().ToDate.ToShortDateString))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString().ToDate.ToShortDateString))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString()))
-
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", ""))
-                ListaTagsDocumentost.Add(New TagsDocumentos("{Denominacion}", ""))
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate.ToString("dd/MM/yyyy")))
-
-
-                Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
-
-                Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
-
-                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
-                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
-            End If
-
-
-            objRH.Dispose()
-        End If
-
-        Return ListaTagsDocumentost
-    End Function
-
-
-
-
-
-
-
-    'Private Function GetDatosTagsDocumentos() As List(Of TagsDocumentos)
-    '    Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
-
-    '    If CvePersonal <> -1 Then
-    '        Dim objRH As New ClsRH
-
-
-
-    '        If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Nombres")) Then
-    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString()))
-    '            End If
-
-    '            If Not objRH.DtResultados(0)("APaterno") Is Nothing Then
-
-    '                ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString()))
-    '            End If
-
-    '            If Not objRH.DtResultados(0)("AMaterno") Is Nothing Then
-
-    '                ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString()))
-    '            End If
-
-    '            If Not objRH.DtResultados(0)("NombreCompleto") Is Nothing Then
-
-    '                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", objRH.DtResultados(0)("NombreCompleto").ToString()))
-    '            End If
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Estatura")) Then
-
-    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString()))
-    '            End If
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Peso")) Then
-
-    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString()))
-    '            End If
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("LugarNacimiento")) Then
-
-    '                ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString()))
-    '            End If
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Edad")) Then
-
-    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString()))
-    '            End If
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("NombreTelEmergencia")) Then
-
-    '                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString()))
-    '            End If
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("TipoSangre")) Then
-
-    '                ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString()))
-    '            End If
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Vivienda")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("ViviendaDueno")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("CreditoInfonavit")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("RentaMensual")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal.ToString("###,###,###.00")))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("TransportePublico")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormente")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("ParientesEmpresa")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelito")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelitoObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Direccion")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Calle")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Colonia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("CP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Telefono")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Celular")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Correo")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then
-
-    '                ' ListaTagsDocumentost.Add(New TagsDocumentos("{CveSucursal}", DDLSucursal4.Text))
-    '            End If
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("NumeroSS")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Licencia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("CartillaMilitar")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("CURP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("AutorizaAntidoping")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Observaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("CredencialElector")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CredencialElector}", objRH.DtResultados(0)("CredencialElector").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Sucursal")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Sucursal}", objRH.DtResultados(0)("Sucursal").ToString()))
-
-    '            If Not IsDBNull(objRH.DtResultados(0)("Puesto")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString()))
-
-    '            'If Not IsDBNull(objRH.DtResultados(0)("InformacionFidedigno")) Then chkFidedigna4.Checked = objRH.DtResultados(0)("InformacionFidedigno")
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("InformacionFidedigno").ToString()))
-    '        End If
-
-    '        If Not IsDBNull(objRH.DtResultados(0)("FechaNacimiento")) Then
-    '            ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate.ToString("dd/MM/yyyy")))
-    '        End If
-
-
-    '        Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
-    '        Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
-
-    '        ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
-    '        ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
-
-
-    '        objRH.Dispose()
-    '    End If
-
-    '    Return ListaTagsDocumentost
-    'End Function
-    Private Sub RegistraDescargaJavaScript(baseUrl As String)
-
-        RegistraScript("Download('" & baseUrl & "')")
-
+    End Sub
+    Public Sub DescarFormato(documento As String)
+
+        Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory
+        Dim PathSource As String
+        Dim pathDesti As String
+
+        PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & documento
+        pathDesti = PathRoot & "Temp\" & CvePersonal & documento
+
+        If File.Exists(pathDesti) Then
+            File.Delete(pathDesti)
+        End If
+
+        File.Copy(PathSource, pathDesti)
+
+        Dim objDoc As New clsGemBoxDocument(pathDesti)
+        Dim objRH As New ClsRH
+        Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
+
+
+        objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa))
+        objRH.Dispose()
+
+
+
+        objDoc.Guardar(pathDesti)
+
+        Dim fileinfo As New FileInfo(pathDesti)
+
+        Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
+        baseUrl = baseUrl & "/temp/" & fileinfo.Name
+
+        RegistraDescargaJavaScript(baseUrl)
+
     End Sub
 
-#End Region
 
-    Protected Sub LBCancelar_Click(sender As Object, e As EventArgs)
-
-        Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString()
-        Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)
-        Dim CveNomina As Integer = gvr.DataKey("CveNomina").ToString().ToEntero
-        Dim Total As Decimal = gvr.DataKey("Total").ToString().ToDecimal
-        Dim RFCReceptor As String = gvr.DataKey("RFC").ToString()
-
-        Dim Obj As New Timbrado
-
-        If Obj.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
-            Dim ObjNomina As New ClsNominas()
-            ObjNomina.UpdateEstatusNomNominas(2, -1, "", "", Now, CveNomina)
-            ObjNomina.Dispose()
-            Alert("La nómina se canceló correctamente.", TipoMensaje.MsgInformacion)
-        End If
-
-        Obj = Nothing
-
-
+
+    Private Function GetDatosTagsDocumentos() As List(Of TagsDocumentos)
+        Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
+
+        If CvePersonal <> -1 Then
+            Dim objRH As New ClsRH
+
+
+
+            If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString()))
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString()))
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{RFC}", objRH.DtResultados(0)("RFC").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", NombreCompleto))
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString()))
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString()))
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString()))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString()))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString()))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString()))
+
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString()))
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal.ToString("###,###,###.00")))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString()))
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString()))
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString()))
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString()))
+
+
+                'If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then
+
+                '    ListaTagsDocumentost.Add(New TagsDocumentos("{CveSucursal}", DDLSucursal4.Text))
+                'End If
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString()))
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString()))
+
+
+
+
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString()))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString()))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString()))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString()))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", objRH.DtResultados(0)("FechaIngreso").ToString().ToDate.ToShortDateString))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString().ToDate.ToShortDateString))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString()))
+
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", ""))
+                ListaTagsDocumentost.Add(New TagsDocumentos("{Denominacion}", ""))
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate.ToString("dd/MM/yyyy")))
+
+
+                Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
+
+                Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
+
+                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
+                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
+            End If
+
+
+            objRH.Dispose()
+        End If
+
+        Return ListaTagsDocumentost
+    End Function
+
+
+
+
+
+
+
+    'Private Function GetDatosTagsDocumentos() As List(Of TagsDocumentos)
+    '    Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
+
+    '    If CvePersonal <> -1 Then
+    '        Dim objRH As New ClsRH
+
+
+
+    '        If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Nombres")) Then
+    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString()))
+    '            End If
+
+    '            If Not objRH.DtResultados(0)("APaterno") Is Nothing Then
+
+    '                ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString()))
+    '            End If
+
+    '            If Not objRH.DtResultados(0)("AMaterno") Is Nothing Then
+
+    '                ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString()))
+    '            End If
+
+    '            If Not objRH.DtResultados(0)("NombreCompleto") Is Nothing Then
+
+    '                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", objRH.DtResultados(0)("NombreCompleto").ToString()))
+    '            End If
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Estatura")) Then
+
+    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString()))
+    '            End If
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Peso")) Then
+
+    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString()))
+    '            End If
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("LugarNacimiento")) Then
+
+    '                ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString()))
+    '            End If
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Edad")) Then
+
+    '                ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString()))
+    '            End If
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("NombreTelEmergencia")) Then
+
+    '                ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString()))
+    '            End If
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("TipoSangre")) Then
+
+    '                ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString()))
+    '            End If
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Vivienda")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("ViviendaDueno")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("CreditoInfonavit")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("RentaMensual")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal.ToString("###,###,###.00")))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("TransportePublico")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormente")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("ParientesEmpresa")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelito")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelitoObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Direccion")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Calle")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Colonia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("CP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Telefono")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Celular")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Correo")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then
+
+    '                ' ListaTagsDocumentost.Add(New TagsDocumentos("{CveSucursal}", DDLSucursal4.Text))
+    '            End If
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("NumeroSS")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Licencia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("CartillaMilitar")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("CURP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("AutorizaAntidoping")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Observaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("CredencialElector")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CredencialElector}", objRH.DtResultados(0)("CredencialElector").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Sucursal")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Sucursal}", objRH.DtResultados(0)("Sucursal").ToString()))
+
+    '            If Not IsDBNull(objRH.DtResultados(0)("Puesto")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString()))
+
+    '            'If Not IsDBNull(objRH.DtResultados(0)("InformacionFidedigno")) Then chkFidedigna4.Checked = objRH.DtResultados(0)("InformacionFidedigno")
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("InformacionFidedigno").ToString()))
+    '        End If
+
+    '        If Not IsDBNull(objRH.DtResultados(0)("FechaNacimiento")) Then
+    '            ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate.ToString("dd/MM/yyyy")))
+    '        End If
+
+
+    '        Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year
+    '        Dim FechaActualDF As String = Now.ToString("dd/MM/yyyy")
+
+    '        ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
+    '        ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
+
+
+    '        objRH.Dispose()
+    '    End If
+
+    '    Return ListaTagsDocumentost
+    'End Function
+    Private Sub RegistraDescargaJavaScript(baseUrl As String)
+
+        RegistraScript("Download('" & baseUrl & "')")
+
     End Sub
 
-#Region "VACACIONES"
+#End Region
 
-    Private Sub CargaVacaciones()
-
-        Dim objRH As New ClsRH
-
-        If objRH.VacacionesGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
-            GvVacaciones.DataSource = objRH.DtResultados
-
-            If objRH.DtResultados.Rows.Count > 0 Then
-                VacFolioActual = objRH.DtResultados.Compute("Max(Folio)", String.Empty).ToString().ToEntero
-            Else
-                VacFolioActual = 0
-            End If
-
-        Else
-            GvVacaciones.DataSource = Nothing
-        End If
-
-        objRH.Dispose()
-        GvVacaciones.DataBind()
-        UpGvVacaciones.Update()
-
-    End Sub
-
-    Protected Sub GvVacaciones_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvVacaciones.RowDataBound
-
-
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-            Dim _Estatus As Boolean = Boolean.Parse(e.Row.DBCampo("Estatus").ToString())
-            Dim _Documento As String = e.Row.DataKey("Documento")
-            Dim _CveAutoriza As Integer = e.Row.DataKey("CveAutoriza").ToEntero()
-            Dim RutaDocuemntoAutorizacion As String = String.Format("{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento)
-            Dim lnkDescargaFormato As LinkButton = e.Row.FCLinkButton("ImgDescargaFormato")
-            Dim lnkDescargaAutorizacion As LinkButton = e.Row.FCLinkButton("ImgDescargaAutorizacion")
-            Dim lnkEditar As LinkButton = e.Row.FCLinkButton("ImgEditar")
-            If _CveAutoriza > 0 Or Not _Estatus Then
-                lnkEditar.Visible = False
-            End If
-            lnkDescargaFormato.Visible = True
-            'ScriptManager.GetCurrent(Me).RegisterAsyncPostBackControl(lnkDescargaFormato)
-            If File.Exists(RutaDocuemntoAutorizacion) And _Estatus Then
-                lnkDescargaAutorizacion.Visible = True
-                'ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaAutorizacion)
-            Else
-                lnkDescargaAutorizacion.Visible = False
-            End If
-
-            'If _Estatus Then
-            '    lnkDescargaFormato.Visible = True
-            '    ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaFormato)
-            'Else
-            '    lnkDescargaFormato.Visible = False
-            'End If
-
-        End If
-
-
-    End Sub
-
-    'cada vez que se hace un postback que relacione al gridview de vacaio es se tienen que generar los eventos  de postback para la descarga de archivos
-    Private Sub AgregarEventosAsincronosGvVacaciones()
-
-
-
-        For Each GvRow As GridViewRow In GvPermisos.Rows
-            Dim lnkDescargaFormato As LinkButton = GvRow.FCLinkButton("ImgDescargaFormato")
-            If lnkDescargaFormato.Visible Then
-
-                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaFormato)
-            End If
-        Next
-        For Each GvRow As GridViewRow In GvVacaciones.Rows
-            'Dim _Estatus As Boolean = Boolean.Parse(GvRow.DataKey("Estatus").ToString())
-            'Dim _Documento As String = GvRow.DataKey("Documento")
-            'Dim _CveAutoriza As Integer = GvRow.DataKey("CveAutoriza").ToEntero
-            'Dim RutaDocuemntoAutorizacion As String = String.Format("{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento)
-            Dim lnkDescargaFormato As LinkButton = GvRow.FCLinkButton("ImgDescargaFormato")
-            Dim lnkDescargaAutorizacion As LinkButton = GvRow.FCLinkButton("ImgDescargaAutorizacion")
-            'Dim lnkEditar As LinkButton = GvRow.FCLinkButton("ImgEditar")
-            'If _CveAutoriza > 0 Or Not _Estatus Then
-            '    lnkEditar.Visible = False
-            'End If
-            'lnkDescargaFormato.Visible = True
-            If lnkDescargaFormato.Visible Then
-
-                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaFormato)
-            End If
-            If lnkDescargaAutorizacion.Visible Then
-                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaAutorizacion)
-            End If
-            'If File.Exists(RutaDocuemntoAutorizacion) And _Estatus Then
-            '    lnkDescargaAutorizacion.Visible = True
-            'Else
-            '    lnkDescargaAutorizacion.Visible = False
-            'End If
-        Next
-    End Sub
-
-
-    Private Sub CargaVacacionesResumenPeriodoActual()
-        Dim objRH As New ClsRH
-
-        If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
-            If objRH.DtResultados.Rows.Count > 0 Then
-
-                VacInicioPeriodo = objRH.DtResultados(0)("InicioPeriodo").ToString().ToDate
-                VacFinPeriodo = objRH.DtResultados(0)("FinPeriodo").ToString().ToDate
-                VacAnios = objRH.DtResultados(0)("Anios").ToString().ToEntero
-                VacDias = objRH.DtResultados(0)("Dias").ToString().ToEntero
-                VacDiasUsados = objRH.DtResultados(0)("DiasUsados").ToString().ToEntero
-                VacDiasCancelados = objRH.DtResultados(0)("DiasCancelados").ToString().ToEntero
-                VacDiasDisponibles = objRH.DtResultados(0)("DiasDisponibles").ToString().ToEntero
-                GvVacacionesResumen.DataSource = objRH.DtResultados
-                VacSupervisorNombre = objRH.DtResultados(0)("SupervisorNombre").ToString()
-                VacSupervisorCorreo = objRH.DtResultados(0)("SupervisorCorreo").ToString()
-                VacCveSupervisor = objRH.DtResultados(0)("SupervisorCorreo").ToString().ToEntero
-
-            Else
-                VacInicioPeriodo = Now
-                VacFinPeriodo = Now
-                VacAnios = 0
-                VacDias = 0
-                VacDiasUsados = 0
-                VacDiasCancelados = 0
-                VacDiasDisponibles = 0
-            End If
-        End If
-
-        objRH.Dispose()
-        GvVacacionesResumen.DataBind()
-
-        UpGvVacacionesResumen.Update()
-
-    End Sub
-
-    Protected Sub BtnSolicitarVacaciones_Click(sender As Object, e As EventArgs) Handles BtnSolicitarVacaciones.Click
-        Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate
-        Dim fFin As Date = TxtFechaFinVac.Text.ToDate
-        'Dim motivoVacaciones As String = TxtMotivoVacaciones.Text
-        If fInicio <= fFin Then
-
-            VacFolioActual = VacFolioActual + 1
-            Dim objRH As New ClsRH
-            'Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
-            Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual)
-            If objRH.DtResultados.Rows.Count > 0 Then
-                Dim ShowError As String = objRH.DtResultados.Rows(0)("ShowError").ToString()
-                If ShowError.Length > 0 Then
-                    Alert(ShowError, TipoMensaje.MsgAdvertencia)
-                    continuar = False
-                End If
-            End If
-            objRH.Dispose()
-            If continuar Then
-                CargaVacaciones()
-                CargaVacacionesResumenPeriodoActual()
-                VacacionesMandaCorreoSupervisor("Solicitud Vacaciones " & NombreCompleto, VacSupervisorCorreo, VacSupervisorNombre, NombreCompleto, fInicio, fFin)
-                RegistraScript("$('#ModalAddVacaciones').modal('hide');")
-            End If
-        Else
-
-            Alert("La fecha  Inicial debe ser inferior a la fecha final.", TipoMensaje.MsgAdvertencia)
-        End If
-        'If UsuarioActual.CveEmpresa <> 72 Then
-        '    CargaVacaciones()
-        '    CargaVacacionesResumenPeriodoActual()
-
-
-        '    Dim objRH As New ClsRH
-        '    If VacDiasDisponibles > 0 Then
-
-        '        Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate
-        '        Dim fFin As Date = TxtFechaFinVac.Text.ToDate
-        '        Dim ErrorSolicitud As Boolean = True
-        '        Dim DiasSolicitados As Integer = (fFin - fInicio).TotalDays.ToString().ToEntero
-
-        '        If fInicio < fFin Or fInicio = fFin Then
-
-        '            VacFolioActual = VacFolioActual + 1
-
-        '            If fInicio = fFin Then
-
-
-
-        '                If fInicio < VacFinPeriodo Then
-        '                    If objRH.VacacionesAddUpdate(-1, CvePersonal, fInicio, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual) Then
-        '                        ErrorSolicitud = False
-        '                        CargaVacaciones()
-        '                        CargaVacacionesResumenPeriodoActual()
-        '                        VacacionesMandaCorreoSupervisor("Solicitud Vacaciones " & NombreCompleto, VacSupervisorCorreo, VacSupervisorNombre, NombreCompleto, fInicio, fFin)
-        '                        'DescarSolicitudVacaciones(VacFolioActual)
-        '                    End If
-        '                End If
-
-        '            Else
-        '                If ((DiasSolicitados + 1) > VacDiasDisponibles) Then
-        '                    Alert("Los dias solicitados son mayores a los dias disponibles.", TipoMensaje.MsgAdvertencia)
-        '                    objRH.Dispose()
-        '                    Exit Sub
-        '                End If
-
-        '                Dim fVacacion As Date = fInicio
-
-        '                For x As Integer = 0 To DiasSolicitados
-
-        '                    If fVacacion < VacFinPeriodo Then
-        '                        If objRH.VacacionesAddUpdate(-1, CvePersonal, fVacacion, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual) Then
-        '                            ErrorSolicitud = False
-        '                        Else
-        '                            ErrorSolicitud = True
-        '                            Exit For
-        '                        End If
-        '                    Else
-        '                        ErrorSolicitud = True
-        '                        Exit For
-        '                    End If
-
-        '                    fVacacion = fVacacion.AddDays(1)
-        '                Next
-
-        '                CargaVacaciones()
-        '                CargaVacacionesResumenPeriodoActual()
-        '                VacacionesMandaCorreoSupervisor("Solicitud Vacaciones " & NombreCompleto, VacSupervisorCorreo, VacSupervisorNombre, NombreCompleto, fInicio, fFin)
-
-        '                If Not ErrorSolicitud Then
-        '                    'DescarSolicitudVacaciones(VacFolioActual)
-        '                End If
-
-        '            End If
-
-        '        Else
-        '            Alert("La fecha  Inicial debe ser inferior a la fecha final")
-        '        End If
-        '    Else
-        '        Alert("No se tienen dias disponibles.")
-        '    End If
-
-        '    objRH.Dispose()
-        'ElseIf UsuarioActual.CveEmpresa = 72 Then
-
-
-        '    Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
-        '    Dim FormatoNombre As String = "PermisoSolicitud.docx"
-        '    Dim RutaFormato As String = $"{PathRoot}\Empresas\{UsuarioActual.CveEmpresa}\Formatos\{FormatoNombre} "
-        '    Dim RutaDocGral As String = $"{PathRoot}\Empresas\Grales\Formatos\{FormatoNombre} "
-
-
-        '    Dim pathDesti As String = ""
-
-        '    If Not File.Exists(RutaFormato) Then
-        '        RutaFormato = $"{PathRoot}\Empresas\Grales\Formatos\{FormatoNombre} "
-        '    End If
-
-
-
-        '    pathDesti = PathRoot & "Temp\" & CvePersonal & "_" & FormatoNombre
-
-
-
-        '    If File.Exists(pathDesti) Then
-        '        File.Delete(pathDesti)
-        '    End If
-
-        '    File.Copy(RutaFormato, pathDesti)
-
-
-
-        '    Dim objDoc As New clsGemBoxDocument(pathDesti)
-
-        '    Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
-
-
-
-        '    Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
-
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", $"{TxtNombres.Text} {TxtAPaterno.Text} {TxtAMaterno.Text}"))
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Codigo}", TxtCodigo.Text))
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Departamento}", DdlDepartamento.SelectedItem.Text))
-
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{JefeInmediato}", DdlSupervisorOrganigrama.SelectedItem.Text))
-
-
-
-        '    For x As Integer = 1 To 8
-
-        '        If DdlPermisoTipo.SelectedValue.ToEntero = x Then
-        '            ListaTagsDocumentost.Add(New TagsDocumentos("{op" & x & "}", "X"))
-        '        Else
-        '            ListaTagsDocumentost.Add(New TagsDocumentos("{op" & x & "}", ""))
-        '        End If
-        '    Next
-
-
-        '    If RblPermisoDocNecesario.SelectedValue = "1" Then
-        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op9}", "X"))
-        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op10}", ""))
-        '    Else
-        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op9}", ""))
-        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op10}", "X"))
-        '    End If
-
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Dias}", TxtPermisosDias.Text))
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Horas}", TxtPermisosHoras.Text))
-
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{FechaI}", TxtFechaInicioVac.Text))
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{FechaF}", TxtFechaFinVac.Text))
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Fecha}", Now.ToString("dd/MM/yyyy")))
-
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Reemplazo}", DdlPermisosReemplazo.SelectedItem.Text))
-
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{op11}", " "))
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{op12}", " "))
-
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Motivo}", TxtPermisoMotivo.Text))
-
-        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Comentarios}", TxtPermisoComentarios.Text))
-
-        '    objDoc.SustituirTags(ListaTagsDocumentost)
-        '    objDoc.GuardarStreamPDF()
-
-
-        '    Dim DocByte As Byte() = objDoc.GetBytesDocumento()
-
-
-        '    Response.ClearHeaders()
-        '    Response.Clear()
-        '    Response.AddHeader("Content-Type", "application/pdf")
-        '    Response.AddHeader("Content-Length", DocByte.Length.ToString())
-        '    Response.AddHeader("Content-Disposition", "attachment; filename=sample.pdf")
-        '    Response.BinaryWrite(DocByte)
-        '    Response.Flush()
-        '    Response.End()
-
-
-        'End If
-
-
-    End Sub
-
-    Private Sub VacacionesMandaCorreoSupervisor(Asunto As String, CorreoSupervisor As String, NombreSupervisor As String, NombreSolicitante As String, _FechaInicio As Date, _FechaFin As Date)
-
-        If CorreoSupervisor.Trim.Length > 0 Then
-
-            Dim a As String = String.Format("{0} -- {1} --- {2}", Asunto, CorreoSupervisor, "")
-            Dim Cuerpo As String
-            a.GuardaLog()
-
-            If _FechaInicio = _FechaFin Then
-                Cuerpo = "El empleado " & NombreCompleto & " a hecho una solicitud de vacaiones programada para el día " & _FechaInicio.ToString("dd/MM/yyyy") & " en las proximas horas se le presentara la solicitud para que se a aprovada o declinada por usted."
-            Else
-                Cuerpo = "El empleado " & NombreCompleto & " a hecho una solicitud de vacaiones programada  de  " & _FechaInicio.ToString("dd/MM/yyyy") & " a " & _FechaFin.ToString("dd/MM/yyyy") & " en las proximas horas se le presentara la solicitud para que se a aprovada o declinada por usted."
-            End If
-
-            Dim Mail As New ClsSisMail()
-            Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
-
-            ' CorreoSupervisor = "rakcsle.rakcsle@gmail.com"
-
-            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoSupervisor, Asunto, Cuerpo, "", LSRutasMail)
-            Mail = Nothing
-            Alert("Se  ha enviado un correo al supervisor informandole  de la solicitud.")
-        Else
-            Alert("La solicitud se a realizado correctamente.")
-        End If
-
-    End Sub
-
-    Protected Sub LnkEliminarSolicitud_Click(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        CvePersonalVacaciones = GvRow.DataKey("CvePersonalVacaciones").ToEntero()
-
-        Dim objRH As New ClsRH()
-        If objRH.RemoverSolicitudVacaciones(CvePersonalVacaciones) Then
-            CargaVacaciones()
-            CargaVacacionesResumenPeriodoActual()
-            Alert("Las vacaciones se ha eliminado")
-        End If
-        objRH.Dispose()
-    End Sub
-    Public Sub Edit_ClickVacacionDia(sender As Object, e As EventArgs)
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
-        CvePersonalVacaciones = GvRow.DataKey("CvePersonalVacaciones").ToEntero
-        'ChkEstatusDiaVacacion.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
-        VacFolio = GvRow.DataKey("Folio").ToString().ToEntero
-
-        TxtFechaDiaVacacion.Text = GvRow.DataKey("FechaInicio").ToString().ToDate.ToString("dd/MM/yyyy")
-        TxtFechaDiaVacacionFin.Text = GvRow.DataKey("FechaFin").ToString().ToDate.ToString("dd/MM/yyyy")
-
-        UpModalEditarDiaVacacion.Update()
-        RegistraScript("$('#divEditarDiaVacacion').modal({ backdrop: 'static',  keyboard: false});")
-
-    End Sub
-
-
-    Protected Sub BtnEditarDiaVacacionModal_Click(sender As Object, e As EventArgs) Handles BtnEditarDiaVacacionModal.Click
-
-        Dim objRH As New ClsRH()
-
-
-
-
-        Dim FileExtension As String = "-1"
-        Dim Filesgral As List(Of Archivo) = TxtFileFormatoVacaciones.getfiles().Archivos
-        Dim Filename As String = ""
-        Dim Documento As String = ""
-
-        For Each fileItem As Archivo In Filesgral
-            Try
-                FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
-                Documento = $"Vacaciones_{CvePersonalVacaciones}.{FileExtension}"
-                Dim tempArray() As String
-                tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
-
-                Dim rutaDestino As String = $"{UsuarioActual.Empresa.Ruta}Personal\{CvePersonal}\Vacaciones\{Documento}"
-
-                If Not System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\Vacaciones\") Then
-                    System.IO.Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\Vacaciones\")
-                End If
-
-
-                If System.IO.File.Exists(rutaDestino) Then
-                    System.IO.File.Delete(rutaDestino)
-                End If
-
-                System.IO.File.Move(fileItem.FileUrl, rutaDestino)
-
-                TxtFileFormatoVacaciones.Text = ""
-
-            Catch ex As Exception
-                OnError("Error al cargar Formato vacaciones", ex)
-            End Try
-
-        Next
-        If Documento.Length > 0 Then
-
-            If objRH.SolicitudVacacionesAddUpdate(CvePersonalVacaciones, CvePersonal, UsuarioActual.CveUsuario, Documento) Then
-                Alert("La fecha se actualizo correctamente")
-            End If
-            UpModalEditarDiaVacacion.Update()
-
-            objRH.Dispose()
-
-            CargaVacaciones()
-            CargaVacacionesResumenPeriodoActual()
-            RegistraScript("$('#divEditarDiaVacacion').modal('hide');")
-        Else
-            Alert("debe ingresar un documento para poder autorizar la solicitud", TipoMensaje.MsgAdvertencia)
-        End If
-    End Sub
-
-    Public Sub DownLoad_ClickSolicitudVacaciones(sender As Object, e As EventArgs)
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
-        'Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero
-
-        'DescarSolicitudVacaciones(Folio)
-        Dim RutaFormato As String = String.Format("{0}Formatos\SolicitudVacaciones.docx", UsuarioActual.Empresa.Ruta)
-
-        Dim NombreEmpleado As String = String.Format("{0} {1} {2}", TxtAPaterno.Text, TxtAMaterno.Text, TxtNombres.Text)
-        Dim Codigo As String = TxtCodigo.Text
-        Dim Departamento As String = DdlDepartamento.SelectedItem.Text
-        Dim JefeInmediato As String = DdlSupervisorOrganigrama.SelectedItem.Text
-        Dim fechaIngreso As Date = TxtFechaIngreso.Text.ToDate()
-        Dim Periodoingreso As Integer = fechaIngreso.ToString("MMdd").ToEntero()
-        Dim PeriodoInicio As Integer = GvRow.DataKey("FechaInicio").ToDate().ToString("MMdd").ToEntero()
-        Dim FechaInicio As String = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy")
-        Dim FechaFin As String = GvRow.DataKey("FechaFin").ToDateTime().ToString("dd/MM/yyyy")
-        Dim diasPermiso As String = GvRow.DataKey("Dias")
-        Dim MotivoPermiso As String = GvRow.DataKey("Motivo")
-        Dim Puesto As String = DdlPuesto.SelectedItem.Value
-        Dim Fecha As String = DateTime.Now.ToString("dd/MM/yyyy")
-        Dim Solicitante As String = UsuarioActual.Nombre
-        Dim anio As Integer = GvRow.DataKey("FechaInicio").ToDate().Year
+    Protected Sub LBCancelar_Click(sender As Object, e As EventArgs)
+
+        Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString()
+        Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)
+        Dim CveNomina As Integer = gvr.DataKey("CveNomina").ToString().ToEntero
+        Dim Total As Decimal = gvr.DataKey("Total").ToString().ToDecimal
+        Dim RFCReceptor As String = gvr.DataKey("RFC").ToString()
+
+        Dim Obj As New Timbrado
+
+        If Obj.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, UsuarioActual.Empresa.RFC) Then
+            Dim ObjNomina As New ClsNominas()
+            ObjNomina.UpdateEstatusNomNominas(2, -1, "", "", Now, CveNomina)
+            ObjNomina.Dispose()
+            Alert("La nómina se canceló correctamente.", TipoMensaje.MsgInformacion)
+        End If
+
+        Obj = Nothing
+
+
+    End Sub
+
+#Region "VACACIONES"
+
+    Private Sub CargaVacaciones()
+
+        Dim objRH As New ClsRH
+
+        If objRH.VacacionesGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
+            GvVacaciones.DataSource = objRH.DtResultados
+
+            If objRH.DtResultados.Rows.Count > 0 Then
+                VacFolioActual = objRH.DtResultados.Compute("Max(Folio)", String.Empty).ToString().ToEntero
+            Else
+                VacFolioActual = 0
+            End If
+
+        Else
+            GvVacaciones.DataSource = Nothing
+        End If
+
+        objRH.Dispose()
+        GvVacaciones.DataBind()
+        UpGvVacaciones.Update()
+
+    End Sub
+
+    Protected Sub GvVacaciones_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvVacaciones.RowDataBound
+
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            Dim _Estatus As Boolean = Boolean.Parse(e.Row.DBCampo("Estatus").ToString())
+            Dim _Documento As String = e.Row.DataKey("Documento")
+            Dim _CveAutoriza As Integer = e.Row.DataKey("CveAutoriza").ToEntero()
+            Dim RutaDocuemntoAutorizacion As String = String.Format("{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento)
+            Dim lnkDescargaFormato As LinkButton = e.Row.FCLinkButton("ImgDescargaFormato")
+            Dim lnkDescargaAutorizacion As LinkButton = e.Row.FCLinkButton("ImgDescargaAutorizacion")
+            Dim lnkEditar As LinkButton = e.Row.FCLinkButton("ImgEditar")
+            If _CveAutoriza > 0 Or Not _Estatus Then
+                lnkEditar.Visible = False
+            End If
+            lnkDescargaFormato.Visible = True
+            'ScriptManager.GetCurrent(Me).RegisterAsyncPostBackControl(lnkDescargaFormato)
+            If File.Exists(RutaDocuemntoAutorizacion) And _Estatus Then
+                lnkDescargaAutorizacion.Visible = True
+                'ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaAutorizacion)
+            Else
+                lnkDescargaAutorizacion.Visible = False
+            End If
+
+            'If _Estatus Then
+            '    lnkDescargaFormato.Visible = True
+            '    ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaFormato)
+            'Else
+            '    lnkDescargaFormato.Visible = False
+            'End If
+
+        End If
+
+
+    End Sub
+
+    'cada vez que se hace un postback que relacione al gridview de vacaio es se tienen que generar los eventos  de postback para la descarga de archivos
+    Private Sub AgregarEventosAsincronosGvVacaciones()
+
+
+
+        For Each GvRow As GridViewRow In GvPermisos.Rows
+            Dim lnkDescargaFormato As LinkButton = GvRow.FCLinkButton("ImgDescargaFormato")
+            If lnkDescargaFormato.Visible Then
+
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaFormato)
+            End If
+        Next
+        For Each GvRow As GridViewRow In GvVacaciones.Rows
+            'Dim _Estatus As Boolean = Boolean.Parse(GvRow.DataKey("Estatus").ToString())
+            'Dim _Documento As String = GvRow.DataKey("Documento")
+            'Dim _CveAutoriza As Integer = GvRow.DataKey("CveAutoriza").ToEntero
+            'Dim RutaDocuemntoAutorizacion As String = String.Format("{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento)
+            Dim lnkDescargaFormato As LinkButton = GvRow.FCLinkButton("ImgDescargaFormato")
+            Dim lnkDescargaAutorizacion As LinkButton = GvRow.FCLinkButton("ImgDescargaAutorizacion")
+            'Dim lnkEditar As LinkButton = GvRow.FCLinkButton("ImgEditar")
+            'If _CveAutoriza > 0 Or Not _Estatus Then
+            '    lnkEditar.Visible = False
+            'End If
+            'lnkDescargaFormato.Visible = True
+            If lnkDescargaFormato.Visible Then
+
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaFormato)
+            End If
+            If lnkDescargaAutorizacion.Visible Then
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkDescargaAutorizacion)
+            End If
+            'If File.Exists(RutaDocuemntoAutorizacion) And _Estatus Then
+            '    lnkDescargaAutorizacion.Visible = True
+            'Else
+            '    lnkDescargaAutorizacion.Visible = False
+            'End If
+        Next
+    End Sub
+
+
+    Private Sub CargaVacacionesResumenPeriodoActual()
+        Dim objRH As New ClsRH
+
+        If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
+            If objRH.DtResultados.Rows.Count > 0 Then
+
+                VacInicioPeriodo = objRH.DtResultados(0)("InicioPeriodo").ToString().ToDate
+                VacFinPeriodo = objRH.DtResultados(0)("FinPeriodo").ToString().ToDate
+                VacAnios = objRH.DtResultados(0)("Anios").ToString().ToEntero
+                VacDias = objRH.DtResultados(0)("Dias").ToString().ToEntero
+                VacDiasUsados = objRH.DtResultados(0)("DiasUsados").ToString().ToEntero
+                VacDiasCancelados = objRH.DtResultados(0)("DiasCancelados").ToString().ToEntero
+                VacDiasDisponibles = objRH.DtResultados(0)("DiasDisponibles").ToString().ToEntero
+                GvVacacionesResumen.DataSource = objRH.DtResultados
+                VacSupervisorNombre = objRH.DtResultados(0)("SupervisorNombre").ToString()
+                VacSupervisorCorreo = objRH.DtResultados(0)("SupervisorCorreo").ToString()
+                VacCveSupervisor = objRH.DtResultados(0)("SupervisorCorreo").ToString().ToEntero
+
+            Else
+                VacInicioPeriodo = Now
+                VacFinPeriodo = Now
+                VacAnios = 0
+                VacDias = 0
+                VacDiasUsados = 0
+                VacDiasCancelados = 0
+                VacDiasDisponibles = 0
+            End If
+        End If
+
+        objRH.Dispose()
+        GvVacacionesResumen.DataBind()
+
+        UpGvVacacionesResumen.Update()
+
+    End Sub
+
+    Protected Sub BtnSolicitarVacaciones_Click(sender As Object, e As EventArgs) Handles BtnSolicitarVacaciones.Click
+        Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate
+        Dim fFin As Date = TxtFechaFinVac.Text.ToDate
+        'Dim motivoVacaciones As String = TxtMotivoVacaciones.Text
+        If fInicio <= fFin Then
+
+            VacFolioActual = VacFolioActual + 1
+            Dim objRH As New ClsRH
+            'Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
+            Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual)
+            If objRH.DtResultados.Rows.Count > 0 Then
+                Dim ShowError As String = objRH.DtResultados.Rows(0)("ShowError").ToString()
+                If ShowError.Length > 0 Then
+                    Alert(ShowError, TipoMensaje.MsgAdvertencia)
+                    continuar = False
+                End If
+            End If
+            objRH.Dispose()
+            If continuar Then
+                CargaVacaciones()
+                CargaVacacionesResumenPeriodoActual()
+                VacacionesMandaCorreoSupervisor("Solicitud Vacaciones " & NombreCompleto, VacSupervisorCorreo, VacSupervisorNombre, NombreCompleto, fInicio, fFin)
+                RegistraScript("$('#ModalAddVacaciones').modal('hide');")
+            End If
+        Else
+
+            Alert("La fecha  Inicial debe ser inferior a la fecha final.", TipoMensaje.MsgAdvertencia)
+        End If
+        'If UsuarioActual.CveEmpresa <> 72 Then
+        '    CargaVacaciones()
+        '    CargaVacacionesResumenPeriodoActual()
+
+
+        '    Dim objRH As New ClsRH
+        '    If VacDiasDisponibles > 0 Then
+
+        '        Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate
+        '        Dim fFin As Date = TxtFechaFinVac.Text.ToDate
+        '        Dim ErrorSolicitud As Boolean = True
+        '        Dim DiasSolicitados As Integer = (fFin - fInicio).TotalDays.ToString().ToEntero
+
+        '        If fInicio < fFin Or fInicio = fFin Then
+
+        '            VacFolioActual = VacFolioActual + 1
+
+        '            If fInicio = fFin Then
+
+
+
+        '                If fInicio < VacFinPeriodo Then
+        '                    If objRH.VacacionesAddUpdate(-1, CvePersonal, fInicio, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual) Then
+        '                        ErrorSolicitud = False
+        '                        CargaVacaciones()
+        '                        CargaVacacionesResumenPeriodoActual()
+        '                        VacacionesMandaCorreoSupervisor("Solicitud Vacaciones " & NombreCompleto, VacSupervisorCorreo, VacSupervisorNombre, NombreCompleto, fInicio, fFin)
+        '                        'DescarSolicitudVacaciones(VacFolioActual)
+        '                    End If
+        '                End If
+
+        '            Else
+        '                If ((DiasSolicitados + 1) > VacDiasDisponibles) Then
+        '                    Alert("Los dias solicitados son mayores a los dias disponibles.", TipoMensaje.MsgAdvertencia)
+        '                    objRH.Dispose()
+        '                    Exit Sub
+        '                End If
+
+        '                Dim fVacacion As Date = fInicio
+
+        '                For x As Integer = 0 To DiasSolicitados
+
+        '                    If fVacacion < VacFinPeriodo Then
+        '                        If objRH.VacacionesAddUpdate(-1, CvePersonal, fVacacion, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual) Then
+        '                            ErrorSolicitud = False
+        '                        Else
+        '                            ErrorSolicitud = True
+        '                            Exit For
+        '                        End If
+        '                    Else
+        '                        ErrorSolicitud = True
+        '                        Exit For
+        '                    End If
+
+        '                    fVacacion = fVacacion.AddDays(1)
+        '                Next
+
+        '                CargaVacaciones()
+        '                CargaVacacionesResumenPeriodoActual()
+        '                VacacionesMandaCorreoSupervisor("Solicitud Vacaciones " & NombreCompleto, VacSupervisorCorreo, VacSupervisorNombre, NombreCompleto, fInicio, fFin)
+
+        '                If Not ErrorSolicitud Then
+        '                    'DescarSolicitudVacaciones(VacFolioActual)
+        '                End If
+
+        '            End If
+
+        '        Else
+        '            Alert("La fecha  Inicial debe ser inferior a la fecha final")
+        '        End If
+        '    Else
+        '        Alert("No se tienen dias disponibles.")
+        '    End If
+
+        '    objRH.Dispose()
+        'ElseIf UsuarioActual.CveEmpresa = 72 Then
+
+
+        '    Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
+        '    Dim FormatoNombre As String = "PermisoSolicitud.docx"
+        '    Dim RutaFormato As String = $"{PathRoot}\Empresas\{UsuarioActual.CveEmpresa}\Formatos\{FormatoNombre} "
+        '    Dim RutaDocGral As String = $"{PathRoot}\Empresas\Grales\Formatos\{FormatoNombre} "
+
+
+        '    Dim pathDesti As String = ""
+
+        '    If Not File.Exists(RutaFormato) Then
+        '        RutaFormato = $"{PathRoot}\Empresas\Grales\Formatos\{FormatoNombre} "
+        '    End If
+
+
+
+        '    pathDesti = PathRoot & "Temp\" & CvePersonal & "_" & FormatoNombre
+
+
+
+        '    If File.Exists(pathDesti) Then
+        '        File.Delete(pathDesti)
+        '    End If
+
+        '    File.Copy(RutaFormato, pathDesti)
+
+
+
+        '    Dim objDoc As New clsGemBoxDocument(pathDesti)
+
+        '    Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
+
+
+
+        '    Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
+
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", $"{TxtNombres.Text} {TxtAPaterno.Text} {TxtAMaterno.Text}"))
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Codigo}", TxtCodigo.Text))
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Departamento}", DdlDepartamento.SelectedItem.Text))
+
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{JefeInmediato}", DdlSupervisorOrganigrama.SelectedItem.Text))
+
+
+
+        '    For x As Integer = 1 To 8
+
+        '        If DdlPermisoTipo.SelectedValue.ToEntero = x Then
+        '            ListaTagsDocumentost.Add(New TagsDocumentos("{op" & x & "}", "X"))
+        '        Else
+        '            ListaTagsDocumentost.Add(New TagsDocumentos("{op" & x & "}", ""))
+        '        End If
+        '    Next
+
+
+        '    If RblPermisoDocNecesario.SelectedValue = "1" Then
+        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op9}", "X"))
+        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op10}", ""))
+        '    Else
+        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op9}", ""))
+        '        ListaTagsDocumentost.Add(New TagsDocumentos("{op10}", "X"))
+        '    End If
+
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Dias}", TxtPermisosDias.Text))
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Horas}", TxtPermisosHoras.Text))
+
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{FechaI}", TxtFechaInicioVac.Text))
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{FechaF}", TxtFechaFinVac.Text))
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Fecha}", Now.ToString("dd/MM/yyyy")))
+
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Reemplazo}", DdlPermisosReemplazo.SelectedItem.Text))
+
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{op11}", " "))
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{op12}", " "))
+
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Motivo}", TxtPermisoMotivo.Text))
+
+        '    ListaTagsDocumentost.Add(New TagsDocumentos("{Comentarios}", TxtPermisoComentarios.Text))
+
+        '    objDoc.SustituirTags(ListaTagsDocumentost)
+        '    objDoc.GuardarStreamPDF()
+
+
+        '    Dim DocByte As Byte() = objDoc.GetBytesDocumento()
+
+
+        '    Response.ClearHeaders()
+        '    Response.Clear()
+        '    Response.AddHeader("Content-Type", "application/pdf")
+        '    Response.AddHeader("Content-Length", DocByte.Length.ToString())
+        '    Response.AddHeader("Content-Disposition", "attachment; filename=sample.pdf")
+        '    Response.BinaryWrite(DocByte)
+        '    Response.Flush()
+        '    Response.End()
+
+
+        'End If
+
+
+    End Sub
+
+    Private Sub VacacionesMandaCorreoSupervisor(Asunto As String, CorreoSupervisor As String, NombreSupervisor As String, NombreSolicitante As String, _FechaInicio As Date, _FechaFin As Date)
+
+        If CorreoSupervisor.Trim.Length > 0 Then
+
+            Dim a As String = String.Format("{0} -- {1} --- {2}", Asunto, CorreoSupervisor, "")
+            Dim Cuerpo As String
+            a.GuardaLog()
+
+            If _FechaInicio = _FechaFin Then
+                Cuerpo = "El empleado " & NombreCompleto & " a hecho una solicitud de vacaiones programada para el día " & _FechaInicio.ToString("dd/MM/yyyy") & " en las proximas horas se le presentara la solicitud para que se a aprovada o declinada por usted."
+            Else
+                Cuerpo = "El empleado " & NombreCompleto & " a hecho una solicitud de vacaiones programada  de  " & _FechaInicio.ToString("dd/MM/yyyy") & " a " & _FechaFin.ToString("dd/MM/yyyy") & " en las proximas horas se le presentara la solicitud para que se a aprovada o declinada por usted."
+            End If
+
+            Dim Mail As New ClsSisMail()
+            Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+
+            ' CorreoSupervisor = "rakcsle.rakcsle@gmail.com"
+
+            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoSupervisor, Asunto, Cuerpo, "", LSRutasMail)
+            Mail = Nothing
+            Alert("Se  ha enviado un correo al supervisor informandole  de la solicitud.")
+        Else
+            Alert("La solicitud se a realizado correctamente.")
+        End If
+
+    End Sub
+
+    Protected Sub LnkEliminarSolicitud_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        CvePersonalVacaciones = GvRow.DataKey("CvePersonalVacaciones").ToEntero()
+
+        Dim objRH As New ClsRH()
+        If objRH.RemoverSolicitudVacaciones(CvePersonalVacaciones) Then
+            CargaVacaciones()
+            CargaVacacionesResumenPeriodoActual()
+            Alert("Las vacaciones se ha eliminado")
+        End If
+        objRH.Dispose()
+    End Sub
+    Public Sub Edit_ClickVacacionDia(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        CvePersonalVacaciones = GvRow.DataKey("CvePersonalVacaciones").ToEntero
+        'ChkEstatusDiaVacacion.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
+        VacFolio = GvRow.DataKey("Folio").ToString().ToEntero
+
+        TxtFechaDiaVacacion.Text = GvRow.DataKey("FechaInicio").ToString().ToDate.ToString("dd/MM/yyyy")
+        TxtFechaDiaVacacionFin.Text = GvRow.DataKey("FechaFin").ToString().ToDate.ToString("dd/MM/yyyy")
+
+        UpModalEditarDiaVacacion.Update()
+        RegistraScript("$('#divEditarDiaVacacion').modal({ backdrop: 'static',  keyboard: false});")
+
+    End Sub
+
+
+    Protected Sub BtnEditarDiaVacacionModal_Click(sender As Object, e As EventArgs) Handles BtnEditarDiaVacacionModal.Click
+
+        Dim objRH As New ClsRH()
+
+
+
+
+        Dim FileExtension As String = "-1"
+        Dim Filesgral As List(Of Archivo) = TxtFileFormatoVacaciones.getfiles().Archivos
+        Dim Filename As String = ""
+        Dim Documento As String = ""
+
+        For Each fileItem As Archivo In Filesgral
+            Try
+                FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+                Documento = $"Vacaciones_{CvePersonalVacaciones}.{FileExtension}"
+                Dim tempArray() As String
+                tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
+
+                Dim rutaDestino As String = $"{UsuarioActual.Empresa.Ruta}Personal\{CvePersonal}\Vacaciones\{Documento}"
+
+                If Not System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\Vacaciones\") Then
+                    System.IO.Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Personal\" & CvePersonal & "\Vacaciones\")
+                End If
+
+
+                If System.IO.File.Exists(rutaDestino) Then
+                    System.IO.File.Delete(rutaDestino)
+                End If
+
+                System.IO.File.Move(fileItem.FileUrl, rutaDestino)
+
+                TxtFileFormatoVacaciones.Text = ""
+
+            Catch ex As Exception
+                OnError("Error al cargar Formato vacaciones", ex)
+            End Try
+
+        Next
+        If Documento.Length > 0 Then
+
+            If objRH.SolicitudVacacionesAddUpdate(CvePersonalVacaciones, CvePersonal, UsuarioActual.CveUsuario, Documento) Then
+                Alert("La fecha se actualizo correctamente")
+            End If
+            UpModalEditarDiaVacacion.Update()
+
+            objRH.Dispose()
+
+            CargaVacaciones()
+            CargaVacacionesResumenPeriodoActual()
+            RegistraScript("$('#divEditarDiaVacacion').modal('hide');")
+        Else
+            Alert("debe ingresar un documento para poder autorizar la solicitud", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
+    Public Sub DownLoad_ClickSolicitudVacaciones(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        'Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero
+
+        'DescarSolicitudVacaciones(Folio)
+        Dim RutaFormato As String = String.Format("{0}Formatos\SolicitudVacaciones.docx", UsuarioActual.Empresa.Ruta)
+
+        Dim NombreEmpleado As String = String.Format("{0} {1} {2}", TxtAPaterno.Text, TxtAMaterno.Text, TxtNombres.Text)
+        Dim Codigo As String = TxtCodigo.Text
+        Dim Departamento As String = DdlDepartamento.SelectedItem.Text
+        Dim JefeInmediato As String = DdlSupervisorOrganigrama.SelectedItem.Text
+        Dim fechaIngreso As Date = TxtFechaIngreso.Text.ToDate()
+        Dim Periodoingreso As Integer = fechaIngreso.ToString("MMdd").ToEntero()
+        Dim PeriodoInicio As Integer = GvRow.DataKey("FechaInicio").ToDate().ToString("MMdd").ToEntero()
+        Dim FechaInicio As String = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy")
+        Dim FechaFin As String = GvRow.DataKey("FechaFin").ToDateTime().ToString("dd/MM/yyyy")
+        Dim diasPermiso As String = GvRow.DataKey("Dias")
+        Dim MotivoPermiso As String = GvRow.DataKey("Motivo")
+        Dim Puesto As String = DdlPuesto.SelectedItem.Value
+        Dim Fecha As String = DateTime.Now.ToString("dd/MM/yyyy")
+        Dim Solicitante As String = UsuarioActual.Nombre
+        Dim anio As Integer = GvRow.DataKey("FechaInicio").ToDate().Year
         Dim FechaPeriodo As String = GvRow.DataKey("Periodo")
 
 
 
 
-        If Periodoingreso > PeriodoInicio Then
-            anio = anio - 1
+        If Periodoingreso > PeriodoInicio Then
+            anio = anio - 1
         End If
 
 
 
-        If File.Exists(RutaFormato) Then
-
-            Dim objGemDocument As New clsGemBoxDocument(RutaFormato)
-            Dim ListaTags As New List(Of TagsDocumentos)
-
-            ListaTags = GetDatosTagsDocumentos()
-
-            ListaTags.Add(New TagsDocumentos("{Solicitante}", Solicitante))
-            ListaTags.Add(New TagsDocumentos("{Fecha}", Fecha))
-            ListaTags.Add(New TagsDocumentos("{NombreEmpleado}", NombreEmpleado))
-            ListaTags.Add(New TagsDocumentos("{Codigo}", Codigo))
-            ListaTags.Add(New TagsDocumentos("{Departamento}", Departamento))
-            ListaTags.Add(New TagsDocumentos("{JefeInmediato}", JefeInmediato))
-            ListaTags.Add(New TagsDocumentos("{FechaInicio}", FechaInicio))
-            ListaTags.Add(New TagsDocumentos("{FechaFin}", FechaFin))
-            ListaTags.Add(New TagsDocumentos("{diasPermiso}", diasPermiso))
-            ListaTags.Add(New TagsDocumentos("{MotivoPermiso}", MotivoPermiso))
-            ListaTags.Add(New TagsDocumentos("{Puesto}", Puesto))
-            ListaTags.Add(New TagsDocumentos("{anio}", anio.ToString()))
-            ListaTags.Add(New TagsDocumentos("{FechaPeriodo}", FechaPeriodo))
-
-            objGemDocument.SustituirTags(ListaTags)
-
-            'objGemDocument.GuardarStream()
-            objGemDocument.GuardarStreamPDF()
-
-            Dim bytesInStream As Byte() = objGemDocument.GetBytesDocumento()
-            'Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray
-
-            objGemDocument.Dispose()
-
-            Response.Clear()
-            Response.ContentType = "application/force-download"
-            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
-            Response.BinaryWrite(bytesInStream)
-            Response.End()
-        Else
-            Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.", TipoMensaje.MsgAdvertencia)
-        End If
-    End Sub
-
-    Public Sub DownLoad_ClickSolicitudPermiso(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        'Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero
-        'DescarSolicitudVacaciones(Folio)
-        Dim RutaFormato As String = String.Format("{0}Formatos\PermisoSolicitud.docx", UsuarioActual.Empresa.Ruta)
-
-        Dim NombreEmpleado As String = String.Format("{0} {1} {2}", TxtAPaterno.Text, TxtAMaterno.Text, TxtNombres.Text)
-        Dim Codigo As String = TxtCodigo.Text
-        Dim Departamento As String = DdlDepartamento.SelectedItem.Text
-        Dim JefeInmediato As String = DdlSupervisorOrganigrama.SelectedItem.Text
-        Dim FechaInicio As String = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy")
-        Dim FechaFin As String = GvRow.DataKey("FechaFin").ToDateTime().ToString("dd/MM/yyyy")
-        Dim diasPermiso As String = $"{(GvRow.DataKey("FechaFin").ToDate() - GvRow.DataKey("FechaInicio").ToDate()).Days}"
-        Dim HorasPermiso As String = "" 'String.Format("{0}", ((GvRow.DataKey("FechaInicio").ToDateTime() - GvRow.DataKey("FechaFin").ToDateTime()).Hours))
-        Dim MotivoPermiso As String = String.Format("{0},{1}", GvRow.DataKey("Descripcion"), GvRow.DataKey("Motivo"))
-        If File.Exists(RutaFormato) Then
-
-            Dim objGemDocument As New clsGemBoxDocument(RutaFormato)
-            Dim ListaTags As New List(Of TagsDocumentos)
-
-            ListaTags = GetDatosTagsDocumentos()
-
-            ListaTags.Add(New TagsDocumentos("{NombreEmpleado}", NombreEmpleado))
-            ListaTags.Add(New TagsDocumentos("{Codigo}", Codigo))
-            ListaTags.Add(New TagsDocumentos("{Departamento}", Departamento))
-            ListaTags.Add(New TagsDocumentos("{JefeInmediato}", JefeInmediato))
-            ListaTags.Add(New TagsDocumentos("{FechaInicio}", FechaInicio))
-            ListaTags.Add(New TagsDocumentos("{FechaFin}", FechaFin))
-            ListaTags.Add(New TagsDocumentos("{diasPermiso}", diasPermiso))
-            ListaTags.Add(New TagsDocumentos("{HorasPermiso}", HorasPermiso))
-            ListaTags.Add(New TagsDocumentos("{MotivoPermiso}", MotivoPermiso))
-
-            objGemDocument.SustituirTags(ListaTags)
-
-            'objGemDocument.GuardarStream()
-            objGemDocument.GuardarStreamPDF()
-            Dim bytesInStream As Byte() = objGemDocument.GetBytesDocumento()
-            'Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray
-            objGemDocument.Dispose()
-
-            Response.Clear()
-            Response.ContentType = "application/force-download"
-            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
-            Response.BinaryWrite(bytesInStream)
-            Response.End()
-        Else
-            Alert("No se encontro el formato de Permisos", TipoMensaje.ToastAdventencia)
-        End If
-    End Sub
-
-    Public Sub DownLoad_ClickSolicitudAutorizacion(sender As Object, e As EventArgs)
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim _Documento As String = GvRow.DataKey("Documento")
-        Dim RutaDocuemntoAutorizacion As String = String.Format("{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento)
-
-        If File.Exists(RutaDocuemntoAutorizacion) Then
-            Dim bytesInStream As Byte() = File.ReadAllBytes(RutaDocuemntoAutorizacion)
-            Response.Clear()
-            Response.ContentType = "application/force-download"
-            Response.AddHeader("content-disposition", "attachment; filename=" & _Documento)
-            Response.BinaryWrite(bytesInStream)
-            Response.End()
-        Else
-            Alert("No se encontro el documento que intenta descargar.")
-        End If
-
-    End Sub
-
-    Private Sub DescarSolicitudVacaciones(_Folio As Integer)
-
-        Dim objEdoc As New ClsEdocumentacion
-        Dim objRH As New ClsRH
-        Dim DTVacaciones As DataTable
-        Dim _CveDocumentacion As Integer = -1
-        Dim _DocumentacionFormato As String = ""
-        Dim _PathDocumento As String
-        Dim DtVacacionesFolio As New DataTable
-        Dim FechasVacaciones As String = ""
-
-        If objEdoc.DocumentacionGet(-1, 10, -1, UsuarioActual.Empresa.CveEmpresa) Then '10  Tipo de oducmentacion hoja de vacacaciones
-
-            DTVacaciones = objEdoc.DtResultados
-
-            If objRH.VacacionesGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
-                DtVacacionesFolio = objRH.DtResultados.FiltraParametros("Folio=" & _Folio)
-            End If
-
-            objRH.Dispose()
-            objEdoc.Dispose()
-
-            _CveDocumentacion = DTVacaciones(0)("CveDocumentacion").ToString().ToEntero
-            _DocumentacionFormato = DTVacaciones(0)("DocumentacionFormato").ToString()
-            _PathDocumento = UsuarioActual.Empresa.Ruta & "Formatos\" & _CveDocumentacion & "_" & _DocumentacionFormato
-
-            If File.Exists(_PathDocumento) Then
-
-                Dim objGemDocument As New clsGemBoxDocument(_PathDocumento)
-                Dim ListaTags As New List(Of TagsDocumentos)
-
-                ListaTags = GetDatosTagsDocumentos()
-                ListaTags.AddRange(GetDatosTagsVacaciones(_Folio).ToArray)
-
-                For Each dRow As DataRow In DtVacacionesFolio.Rows
-                    FechasVacaciones = FechasVacaciones & dRow("Fecha").ToString().ToDate.ToString("dd/MM/yyyy") & vbLf
-                Next
-
-                ListaTags.Add(New TagsDocumentos("{FechasVacaciones}", FechasVacaciones))
-                ListaTags.Add(New TagsDocumentos("{Folio}", _Folio.ToString()))
-
-                objGemDocument.SustituirTags(ListaTags)
-
-                objGemDocument.GuardarStream()
-
-                Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray
-                objGemDocument.Dispose()
-
-                Response.Clear()
-                Response.ContentType = "application/force-download"
-                Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & _Folio & "_" & Now.ToString("yyyyMMddhhmmss") & ".docx")
-                Response.BinaryWrite(bytesInStream)
-                Response.End()
-
-            End If
-
-        Else
-            objRH.Dispose()
-        End If
-
-    End Sub
-
-    Private Function GetDatosTagsVacaciones(_VacFolio As Integer) As List(Of TagsDocumentos)
-
-        Dim ListaTags = New List(Of TagsDocumentos)
-        Dim objRH As New ClsRH
-
-        If objRH.VacacionesFolioGet(CvePersonal, _VacFolio) Then
-
-            If objRH.DtResultados.Rows.Count > 0 Then
-
-                ListaTags.Add(New TagsDocumentos("{Anios}", VacAnios.ToString()))
-                ListaTags.Add(New TagsDocumentos("{DiasUsados}", VacDiasUsados.ToString()))
-                ListaTags.Add(New TagsDocumentos("{DiasDisponibles}", VacDiasDisponibles.ToString()))
-
-                If Not IsDBNull(objRH.DtResultados(0)("InicioVac")) Then
-                    ListaTags.Add(New TagsDocumentos("{InicioVac}", objRH.DtResultados(0)("InicioVac").ToString().ToDate.ToString("dd/MM/yyyy")))
-                End If
-
-                If Not IsDBNull(objRH.DtResultados(0)("FinVac")) Then
-                    ListaTags.Add(New TagsDocumentos("{FinVac}", objRH.DtResultados(0)("FinVac").ToString().ToDate.ToString("dd/MM/yyyy")))
-                End If
-
-                If Not IsDBNull(objRH.DtResultados(0)("RegresoVac")) Then
-                    ListaTags.Add(New TagsDocumentos("{RegresoVac}", objRH.DtResultados(0)("RegresoVac").ToString().ToDate.ToString("dd/MM/yyyy")))
-                End If
-
-                If Not IsDBNull(objRH.DtResultados(0)("DiasSolicitados")) Then
-                    ListaTags.Add(New TagsDocumentos("{DiasTomados}", objRH.DtResultados(0)("DiasSolicitados").ToString()))
-                End If
-
-            End If
-        End If
-
-        objRH.Dispose()
-        Return ListaTags
+        If File.Exists(RutaFormato) Then
+
+            Dim objGemDocument As New clsGemBoxDocument(RutaFormato)
+            Dim ListaTags As New List(Of TagsDocumentos)
+
+            ListaTags = GetDatosTagsDocumentos()
+
+            ListaTags.Add(New TagsDocumentos("{Solicitante}", Solicitante))
+            ListaTags.Add(New TagsDocumentos("{Fecha}", Fecha))
+            ListaTags.Add(New TagsDocumentos("{NombreEmpleado}", NombreEmpleado))
+            ListaTags.Add(New TagsDocumentos("{Codigo}", Codigo))
+            ListaTags.Add(New TagsDocumentos("{Departamento}", Departamento))
+            ListaTags.Add(New TagsDocumentos("{JefeInmediato}", JefeInmediato))
+            ListaTags.Add(New TagsDocumentos("{FechaInicio}", FechaInicio))
+            ListaTags.Add(New TagsDocumentos("{FechaFin}", FechaFin))
+            ListaTags.Add(New TagsDocumentos("{diasPermiso}", diasPermiso))
+            ListaTags.Add(New TagsDocumentos("{MotivoPermiso}", MotivoPermiso))
+            ListaTags.Add(New TagsDocumentos("{Puesto}", Puesto))
+            ListaTags.Add(New TagsDocumentos("{anio}", anio.ToString()))
+            ListaTags.Add(New TagsDocumentos("{FechaPeriodo}", FechaPeriodo))
+
+            objGemDocument.SustituirTags(ListaTags)
+
+            'objGemDocument.GuardarStream()
+            objGemDocument.GuardarStreamPDF()
+
+            Dim bytesInStream As Byte() = objGemDocument.GetBytesDocumento()
+            'Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray
+
+            objGemDocument.Dispose()
+
+            Response.Clear()
+            Response.ContentType = "application/force-download"
+            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
+            Response.BinaryWrite(bytesInStream)
+            Response.End()
+        Else
+            Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
+    Public Sub DownLoad_ClickSolicitudPermiso(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        'Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero
+        'DescarSolicitudVacaciones(Folio)
+        Dim RutaFormato As String = String.Format("{0}Formatos\PermisoSolicitud.docx", UsuarioActual.Empresa.Ruta)
+
+        Dim NombreEmpleado As String = String.Format("{0} {1} {2}", TxtAPaterno.Text, TxtAMaterno.Text, TxtNombres.Text)
+        Dim Codigo As String = TxtCodigo.Text
+        Dim Departamento As String = DdlDepartamento.SelectedItem.Text
+        Dim JefeInmediato As String = DdlSupervisorOrganigrama.SelectedItem.Text
+        Dim FechaInicio As String = GvRow.DataKey("FechaInicio").ToDateTime().ToString("dd/MM/yyyy")
+        Dim FechaFin As String = GvRow.DataKey("FechaFin").ToDateTime().ToString("dd/MM/yyyy")
+        Dim diasPermiso As String = $"{(GvRow.DataKey("FechaFin").ToDate() - GvRow.DataKey("FechaInicio").ToDate()).Days}"
+        Dim HorasPermiso As String = "" 'String.Format("{0}", ((GvRow.DataKey("FechaInicio").ToDateTime() - GvRow.DataKey("FechaFin").ToDateTime()).Hours))
+        Dim MotivoPermiso As String = String.Format("{0},{1}", GvRow.DataKey("Descripcion"), GvRow.DataKey("Motivo"))
+        If File.Exists(RutaFormato) Then
+
+            Dim objGemDocument As New clsGemBoxDocument(RutaFormato)
+            Dim ListaTags As New List(Of TagsDocumentos)
+
+            ListaTags = GetDatosTagsDocumentos()
+
+            ListaTags.Add(New TagsDocumentos("{NombreEmpleado}", NombreEmpleado))
+            ListaTags.Add(New TagsDocumentos("{Codigo}", Codigo))
+            ListaTags.Add(New TagsDocumentos("{Departamento}", Departamento))
+            ListaTags.Add(New TagsDocumentos("{JefeInmediato}", JefeInmediato))
+            ListaTags.Add(New TagsDocumentos("{FechaInicio}", FechaInicio))
+            ListaTags.Add(New TagsDocumentos("{FechaFin}", FechaFin))
+            ListaTags.Add(New TagsDocumentos("{diasPermiso}", diasPermiso))
+            ListaTags.Add(New TagsDocumentos("{HorasPermiso}", HorasPermiso))
+            ListaTags.Add(New TagsDocumentos("{MotivoPermiso}", MotivoPermiso))
+
+            objGemDocument.SustituirTags(ListaTags)
+
+            'objGemDocument.GuardarStream()
+            objGemDocument.GuardarStreamPDF()
+            Dim bytesInStream As Byte() = objGemDocument.GetBytesDocumento()
+            'Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray
+            objGemDocument.Dispose()
+
+            Response.Clear()
+            Response.ContentType = "application/force-download"
+            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
+            Response.BinaryWrite(bytesInStream)
+            Response.End()
+        Else
+            Alert("No se encontro el formato de Permisos", TipoMensaje.ToastAdventencia)
+        End If
+    End Sub
+
+    Public Sub DownLoad_ClickSolicitudAutorizacion(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim _Documento As String = GvRow.DataKey("Documento")
+        Dim RutaDocuemntoAutorizacion As String = String.Format("{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento)
+
+        If File.Exists(RutaDocuemntoAutorizacion) Then
+            Dim bytesInStream As Byte() = File.ReadAllBytes(RutaDocuemntoAutorizacion)
+            Response.Clear()
+            Response.ContentType = "application/force-download"
+            Response.AddHeader("content-disposition", "attachment; filename=" & _Documento)
+            Response.BinaryWrite(bytesInStream)
+            Response.End()
+        Else
+            Alert("No se encontro el documento que intenta descargar.")
+        End If
+
+    End Sub
+
+    Private Sub DescarSolicitudVacaciones(_Folio As Integer)
+
+        Dim objEdoc As New ClsEdocumentacion
+        Dim objRH As New ClsRH
+        Dim DTVacaciones As DataTable
+        Dim _CveDocumentacion As Integer = -1
+        Dim _DocumentacionFormato As String = ""
+        Dim _PathDocumento As String
+        Dim DtVacacionesFolio As New DataTable
+        Dim FechasVacaciones As String = ""
+
+        If objEdoc.DocumentacionGet(-1, 10, -1, UsuarioActual.Empresa.CveEmpresa) Then '10  Tipo de oducmentacion hoja de vacacaciones
+
+            DTVacaciones = objEdoc.DtResultados
+
+            If objRH.VacacionesGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
+                DtVacacionesFolio = objRH.DtResultados.FiltraParametros("Folio=" & _Folio)
+            End If
+
+            objRH.Dispose()
+            objEdoc.Dispose()
+
+            _CveDocumentacion = DTVacaciones(0)("CveDocumentacion").ToString().ToEntero
+            _DocumentacionFormato = DTVacaciones(0)("DocumentacionFormato").ToString()
+            _PathDocumento = UsuarioActual.Empresa.Ruta & "Formatos\" & _CveDocumentacion & "_" & _DocumentacionFormato
+
+            If File.Exists(_PathDocumento) Then
+
+                Dim objGemDocument As New clsGemBoxDocument(_PathDocumento)
+                Dim ListaTags As New List(Of TagsDocumentos)
+
+                ListaTags = GetDatosTagsDocumentos()
+                ListaTags.AddRange(GetDatosTagsVacaciones(_Folio).ToArray)
+
+                For Each dRow As DataRow In DtVacacionesFolio.Rows
+                    FechasVacaciones = FechasVacaciones & dRow("Fecha").ToString().ToDate.ToString("dd/MM/yyyy") & vbLf
+                Next
+
+                ListaTags.Add(New TagsDocumentos("{FechasVacaciones}", FechasVacaciones))
+                ListaTags.Add(New TagsDocumentos("{Folio}", _Folio.ToString()))
+
+                objGemDocument.SustituirTags(ListaTags)
+
+                objGemDocument.GuardarStream()
+
+                Dim bytesInStream As Byte() = objGemDocument.memoryStream.ToArray
+                objGemDocument.Dispose()
+
+                Response.Clear()
+                Response.ContentType = "application/force-download"
+                Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & _Folio & "_" & Now.ToString("yyyyMMddhhmmss") & ".docx")
+                Response.BinaryWrite(bytesInStream)
+                Response.End()
+
+            End If
+
+        Else
+            objRH.Dispose()
+        End If
+
+    End Sub
+
+    Private Function GetDatosTagsVacaciones(_VacFolio As Integer) As List(Of TagsDocumentos)
+
+        Dim ListaTags = New List(Of TagsDocumentos)
+        Dim objRH As New ClsRH
+
+        If objRH.VacacionesFolioGet(CvePersonal, _VacFolio) Then
+
+            If objRH.DtResultados.Rows.Count > 0 Then
+
+                ListaTags.Add(New TagsDocumentos("{Anios}", VacAnios.ToString()))
+                ListaTags.Add(New TagsDocumentos("{DiasUsados}", VacDiasUsados.ToString()))
+                ListaTags.Add(New TagsDocumentos("{DiasDisponibles}", VacDiasDisponibles.ToString()))
+
+                If Not IsDBNull(objRH.DtResultados(0)("InicioVac")) Then
+                    ListaTags.Add(New TagsDocumentos("{InicioVac}", objRH.DtResultados(0)("InicioVac").ToString().ToDate.ToString("dd/MM/yyyy")))
+                End If
+
+                If Not IsDBNull(objRH.DtResultados(0)("FinVac")) Then
+                    ListaTags.Add(New TagsDocumentos("{FinVac}", objRH.DtResultados(0)("FinVac").ToString().ToDate.ToString("dd/MM/yyyy")))
+                End If
+
+                If Not IsDBNull(objRH.DtResultados(0)("RegresoVac")) Then
+                    ListaTags.Add(New TagsDocumentos("{RegresoVac}", objRH.DtResultados(0)("RegresoVac").ToString().ToDate.ToString("dd/MM/yyyy")))
+                End If
+
+                If Not IsDBNull(objRH.DtResultados(0)("DiasSolicitados")) Then
+                    ListaTags.Add(New TagsDocumentos("{DiasTomados}", objRH.DtResultados(0)("DiasSolicitados").ToString()))
+                End If
+
+            End If
+        End If
+
+        objRH.Dispose()
+        Return ListaTags
     End Function
 
-#End Region
+#End Region
 
-#Region "CURSOS"
+#Region "CURSOS"
 
-    Private Sub CargaCursos()
-
-        Dim objRH As New ClsRH
-
-        If objRH.PersonalCursosGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
-            GvCursos.DataSource = objRH.DtResultados
-        Else
-            GvCursos.DataSource = Nothing
-        End If
-        objRH.Dispose()
-        GvCursos.DataBind()
-
-    End Sub
-
-    Private Sub GvCursosCreaEventoDescarga()
-
-        For Each dRow As GridViewRow In GvCursos.Rows
-
-            Dim CurAsistencia As Boolean = Boolean.Parse(dRow.DataKey("Asistencia"))
-            Dim lnkCursoConstancia As LinkButton = dRow.FCLinkButton("lnkCursoConstancia")
-            Dim ConstanciaDC3 As Boolean = Boolean.Parse(dRow.DataKey("ConstanciaDC3"))
-
-
-            If ConstanciaDC3 Then
-                If CurAsistencia And TxtRFC.Text.Trim.Length > 11 And TxtRFC.Text.Length < 14 Then
-
-                    lnkCursoConstancia.Visible = True
-                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)
-
-                Else
-                    lnkCursoConstancia.Visible = False
-                End If
-            Else
-                lnkCursoConstancia.Visible = True
-                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)
-            End If
-
-
-        Next
-    End Sub
-
-
-    Protected Sub GvCursos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCursos.RowDataBound
-
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-            Dim CurAsistencia As Boolean = Boolean.Parse(e.Row.DBCampo("Asistencia"))
-            Dim lnkCursoConstancia As LinkButton = e.Row.FCLinkButton("lnkCursoConstancia")
-            Dim ConstanciaDC3 As Boolean = Boolean.Parse(e.Row.DataKey("ConstanciaDC3"))
-
-            If ConstanciaDC3 Then
-                If CurAsistencia And TxtRFC.Text.Trim.Length > 11 And TxtRFC.Text.Length < 14 Then
-
-                    lnkCursoConstancia.Visible = True
-                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)
-
-                Else
-                    lnkCursoConstancia.Visible = False
-                End If
-            Else
-                lnkCursoConstancia.Visible = True
-                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)
-            End If
-
-        End If
-    End Sub
-
-
-    Public Sub ImprimirConstancia_Click(sender As Object, e As EventArgs)
-
-        Dim objConstancias As New ClsConstancias
-        Dim DocumenBitArray As Byte() = Nothing
-        Dim RutaDocumento As String = Server.MapPath("~")
-        'RutaDocumento = Path.Combine(RutaDocumento, "Empresas\Grales\FormatoDC3.docx")
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim _CveCurso As Integer = GvRow.DataKey("CveCurso").ToEntero
-
-
-
-        DocumenBitArray = objConstancias.PersonalConstanciaGenera(CvePersonal, _CveCurso, UsuarioActual.CveEmpresa, RutaDocumento, UsuarioActual.Empresa)
-
-        GvCursosCreaEventoDescarga()
-        If Not DocumenBitArray Is Nothing Then
-
-            Response.Clear()
-            Response.ContentType = "application/force-download"
-            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Constancia_Curso_" & _CveCurso & "_" & Now.ToString("yyyyMMddhhmmss") & ".docx")
-            Response.BinaryWrite(DocumenBitArray)
-            Response.End()
-
-        End If
-
-
-
-
-
+    Private Sub CargaCursos()
+
+        Dim objRH As New ClsRH
+
+        If objRH.PersonalCursosGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then
+            GvCursos.DataSource = objRH.DtResultados
+        Else
+            GvCursos.DataSource = Nothing
+        End If
+        objRH.Dispose()
+        GvCursos.DataBind()
+
+    End Sub
+
+    Private Sub GvCursosCreaEventoDescarga()
+
+        For Each dRow As GridViewRow In GvCursos.Rows
+
+            Dim CurAsistencia As Boolean = Boolean.Parse(dRow.DataKey("Asistencia"))
+            Dim lnkCursoConstancia As LinkButton = dRow.FCLinkButton("lnkCursoConstancia")
+            Dim ConstanciaDC3 As Boolean = Boolean.Parse(dRow.DataKey("ConstanciaDC3"))
+
+
+            If ConstanciaDC3 Then
+                If CurAsistencia And TxtRFC.Text.Trim.Length > 11 And TxtRFC.Text.Length < 14 Then
+
+                    lnkCursoConstancia.Visible = True
+                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)
+
+                Else
+                    lnkCursoConstancia.Visible = False
+                End If
+            Else
+                lnkCursoConstancia.Visible = True
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)
+            End If
+
+
+        Next
     End Sub
 
 
-#End Region
+    Protected Sub GvCursos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCursos.RowDataBound
 
-#Region "UNIFORMES"
-    Private Sub CargaComboUniformes()
-
-        Dim objRH As New ClsRH
-
-        If objRH.UniformeGet(-1, 1, UsuarioActual.CveEmpresa) Then
-
-            DdlUniforme.DataSource = objRH.DtResultados
-        Else
-            DdlUniforme.DataSource = Nothing
-        End If
-
-        DdlUniforme.DataBind()
-        DdlUniforme.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
-        objRH.Dispose()
-        'UpGvUniformes.Update()
-
-    End Sub
-
-    Private Sub CargaUniformesPersonal()
-
-        If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
-
-            GvUniforme.Visible = True
-            GvUniformesResguardo.Visible = False
-            If DdlUniforme.SelectedIndex > 0 Then
-                Dim objRH As New ClsRH
-
-                If objRH.UniformeDetallePersonalGet(CvePersonal, DdlUniforme.SelectedValue.ToEntero, 1, UsuarioActual.CveEmpresa) Then
-                    GvUniforme.DataSource = objRH.DtResultados
-
-                    If objRH.DtResultados.Rows.Count > 0 Then
-                        LnkSurtir.Visible = True
-                    Else
-                        LnkSurtir.Visible = False
-                    End If
-
-                    UpBtnUniformes.Update()
-                Else
-                    GvUniforme.DataSource = Nothing
-                    LnkSurtir.Visible = False
-                    UpBtnUniformes.Update()
-                End If
-                objRH.Dispose()
-            Else
-                GvUniforme.DataSource = Nothing
-                LnkSurtir.Visible = False
-                UpBtnUniformes.Update()
-            End If
-
-        Else
-            GvUniforme.Visible = False
-            GvUniformesResguardo.Visible = True
-
-            Dim ObjInv As New ClsInventarios
-
-            If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1, Todo:=False) Then
-                GvUniformesResguardo.DataSource = ObjInv.DtResultados
-                UniformesInfo = ObjInv.DtResultados
-            Else
-                GvUniformesResguardo.DataSource = Nothing
-                'LnkSurtir.Visible = False
-                UpBtnUniformes.Update()
-            End If
-
-
-
-            ObjInv.Dispose()
-            GvUniformesResguardo.DataBind()
-            UpGvUniformes.Update()
-
-        End If
-
-        GvUniforme.DataBind()
-        GvUniformesResguardo.DataBind()
-
-        UpGvUniformes.Update()
-        UpUniformesResguardo.Update()
-
-    End Sub
-
-    Protected Sub LbLiberarUniforme(sender As Object, e As System.EventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            Dim CurAsistencia As Boolean = Boolean.Parse(e.Row.DBCampo("Asistencia"))
+            Dim lnkCursoConstancia As LinkButton = e.Row.FCLinkButton("lnkCursoConstancia")
+            Dim ConstanciaDC3 As Boolean = Boolean.Parse(e.Row.DataKey("ConstanciaDC3"))
+
+            If ConstanciaDC3 Then
+                If CurAsistencia And TxtRFC.Text.Trim.Length > 11 And TxtRFC.Text.Length < 14 Then
+
+                    lnkCursoConstancia.Visible = True
+                    ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)
+
+                Else
+                    lnkCursoConstancia.Visible = False
+                End If
+            Else
+                lnkCursoConstancia.Visible = True
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(lnkCursoConstancia)
+            End If
+
+        End If
+    End Sub
+
+
+    Public Sub ImprimirConstancia_Click(sender As Object, e As EventArgs)
+
+        Dim objConstancias As New ClsConstancias
+        Dim DocumenBitArray As Byte() = Nothing
+        Dim RutaDocumento As String = Server.MapPath("~")
+        'RutaDocumento = Path.Combine(RutaDocumento, "Empresas\Grales\FormatoDC3.docx")
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim _CveCurso As Integer = GvRow.DataKey("CveCurso").ToEntero
+
+
+
+        DocumenBitArray = objConstancias.PersonalConstanciaGenera(CvePersonal, _CveCurso, UsuarioActual.CveEmpresa, RutaDocumento, UsuarioActual.Empresa)
+
+        GvCursosCreaEventoDescarga()
+        If Not DocumenBitArray Is Nothing Then
+
+            Response.Clear()
+            Response.ContentType = "application/force-download"
+            Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Constancia_Curso_" & _CveCurso & "_" & Now.ToString("yyyyMMddhhmmss") & ".docx")
+            Response.BinaryWrite(DocumenBitArray)
+            Response.End()
+
+        End If
+
+
+
+
+
+    End Sub
+
+
+#End Region
+
+#Region "UNIFORMES"
+    Private Sub CargaComboUniformes()
+
+        Dim objRH As New ClsRH
+
+        If objRH.UniformeGet(-1, 1, UsuarioActual.CveEmpresa) Then
+
+            DdlUniforme.DataSource = objRH.DtResultados
+        Else
+            DdlUniforme.DataSource = Nothing
+        End If
+
+        DdlUniforme.DataBind()
+        DdlUniforme.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        objRH.Dispose()
+        'UpGvUniformes.Update()
+
+    End Sub
+
+    Private Sub CargaUniformesPersonal()
+
+        If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
+
+            GvUniforme.Visible = True
+            GvUniformesResguardo.Visible = False
+            If DdlUniforme.SelectedIndex > 0 Then
+                Dim objRH As New ClsRH
+
+                If objRH.UniformeDetallePersonalGet(CvePersonal, DdlUniforme.SelectedValue.ToEntero, 1, UsuarioActual.CveEmpresa) Then
+                    GvUniforme.DataSource = objRH.DtResultados
+
+                    If objRH.DtResultados.Rows.Count > 0 Then
+                        LnkSurtir.Visible = True
+                    Else
+                        LnkSurtir.Visible = False
+                    End If
+
+                    UpBtnUniformes.Update()
+                Else
+                    GvUniforme.DataSource = Nothing
+                    LnkSurtir.Visible = False
+                    UpBtnUniformes.Update()
+                End If
+                objRH.Dispose()
+            Else
+                GvUniforme.DataSource = Nothing
+                LnkSurtir.Visible = False
+                UpBtnUniformes.Update()
+            End If
+
+        Else
+            GvUniforme.Visible = False
+            GvUniformesResguardo.Visible = True
+
+            Dim ObjInv As New ClsInventarios
+
+            If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1, Todo:=False) Then
+                GvUniformesResguardo.DataSource = ObjInv.DtResultados
+                UniformesInfo = ObjInv.DtResultados
+            Else
+                GvUniformesResguardo.DataSource = Nothing
+                'LnkSurtir.Visible = False
+                UpBtnUniformes.Update()
+            End If
+
+
+
+            ObjInv.Dispose()
+            GvUniformesResguardo.DataBind()
+            UpGvUniformes.Update()
+
+        End If
+
+        GvUniforme.DataBind()
+        GvUniformesResguardo.DataBind()
+
+        UpGvUniformes.Update()
+        UpUniformesResguardo.Update()
+
+    End Sub
+
+    Protected Sub LbLiberarUniforme(sender As Object, e As System.EventArgs)
         Dim lb As LinkButton = CType(sender, LinkButton)
 
         Dim row As GridViewRow = CType(lb.NamingContainer, GridViewRow)
 
-        CveAlmacenUniforme = row.DataKey("CveAlmacen").ToString().ToEntero
+        CveAlmacenUniforme = row.DataKey("CveAlmacen").ToString().ToEntero
         DescripcionUniforme = row.DataKey("CodigoPS")
-        PU = row.DataKey("PU").ToString().ToDecimal
+        PU = row.DataKey("PU").ToString().ToDecimal
         CveSeccionAlmacenUniforme = row.DataKey("CveSeccionAlmacen").ToString().ToEntero
-        CveUM = row.DataKey("CveUM").ToString().ToEntero
-        CvePS = row.DataKey("CvePS").ToString().ToEntero
-        CveMovimientoUniforme = row.DataKey("CveMovimiento").ToString().ToEntero
+        CveUM = row.DataKey("CveUM").ToString().ToEntero
+        CvePS = row.DataKey("CvePS").ToString().ToEntero
+        CveMovimientoUniforme = row.DataKey("CveMovimiento").ToString().ToEntero
         CveMovimientoDetalleUniforme = row.DataKey("CveMovimientoDetalle").ToString().ToEntero
         Dim Cantidad As Integer = row.DataKey("Cantidad").ToString().ToEntero
         TxtCantidadResguardo.Text = Cantidad.ToString
@@ -5168,228 +5178,234 @@ Partial Class RH_Personal
             CargaSeccionesAlmacen(DdlSeccionAlmacen, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePS, UsuarioActual.CveEmpresa)
             DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePS)
             DdlSeccionAlmacen.DataBind()
-        End If
-
-
-        UPPLiberarUniforme.Update()
-
-        RegistraScript(String.Format("$('#{0}').modal();", "ModalUniforme"))
-    End Sub
-
-    Private Sub DdlUniforme_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUniforme.SelectedIndexChanged
-
-        CargaUniformesPersonal()
-
-    End Sub
-
-    Sub LiberarUniforme(sender As Object, e As EventArgs)
-
-        Dim ObjInventario As New ClsInventarios
-        ObjInventario.IniciaTransacSQL()
-
-        Dim Cantidad As Double = TxtCantidadResguardo.Text.ToDouble()
-
+        End If
+        TxtLiberarSerie.Text = ""
+
+        If row.DataKey("AplicaSerie").ToString = "True" Then
+            divSerie.Visible = True
+        End If
+
+
+        UPPLiberarUniforme.Update()
+
+        RegistraScript(String.Format("$('#{0}').modal();", "ModalUniforme"))
+    End Sub
+
+    Private Sub DdlUniforme_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlUniforme.SelectedIndexChanged
+
+        CargaUniformesPersonal()
+
+    End Sub
+
+    Sub LiberarUniforme(sender As Object, e As EventArgs)
+
+        Dim ObjInventario As New ClsInventarios
+        ObjInventario.IniciaTransacSQL()
+
+        Dim Cantidad As Double = TxtCantidadResguardo.Text.ToDouble()
+        Dim Serie As String = TxtLiberarSerie.Text.Trim
+
         Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
-        Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
+        Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, Serie:=Serie, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
         Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
         Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
-        Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen)
-
-        If ResultadoDetalleSalida And ResultadoDetalleEntrada Then
-            ObjInventario.Commit()
-            Alert("El resguardo se liberó correctamente")
-            RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme"))
+        Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie)
+
+        If ResultadoDetalleSalida And ResultadoDetalleEntrada Then
+            ObjInventario.Commit()
+            Alert("El resguardo se liberó correctamente")
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme"))
             CargaUniformesPersonal()
-        Else
-            Alert("No se pudo registrar la liberación.", TipoMensaje.MsgError)
-            ObjInventario.RollBack()
-        End If
-        ObjInventario.Dispose()
+        Else
+            Alert("No se pudo registrar la liberación.", TipoMensaje.MsgError)
+            ObjInventario.RollBack()
+        End If
+        ObjInventario.Dispose()
     End Sub
 
 
 
-#End Region
+#End Region
 
-#Region "CARGAR IMAGEN"
-    Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click
-        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchivo"))
-    End Sub
-
-    Private Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click
-        Dim FileExtension As String = "-1"
-        Dim filesgral As List(Of Archivo) = TxtCargaImg.getfiles().Archivos
-        Dim filemove As String = ""
-
-
-        For Each fileItem As Archivo In filesgral
-            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
-            filemove = fileItem.filename
-
-            Dim yaExistente As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.jpg", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
-            Dim yaExistentePNG As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.png", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
-            Dim yaExistenteBMP As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.bmp", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
-
-            If File.Exists(yaExistente) Then
-                File.Delete(yaExistente)
-            ElseIf File.Exists(yaExistentePNG) Then
-                File.Delete(yaExistentePNG)
-            ElseIf File.Exists(yaExistenteBMP) Then
-                File.Delete(yaExistenteBMP)
-            End If
-
-            If filemove <> "" Then
-                filemove.FilesMove(CvePersonal.ToString(), String.Format("Empresas\{0}\RH\Personal\", UsuarioActual.CveEmpresa))
-            End If
-            ViewState("Archivo") = String.Format("{0}.{1}", CvePersonal.ToString(), FileExtension)
-        Next
-        If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & "." & FileExtension) Then
-            Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.{2}", UsuarioActual.CveEmpresa, CvePersonal, FileExtension)
-            Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}&version={4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica), Now)
-            ImgPersonal.ImageUrl = logouri
-        End If
-        UpImage.Update()
-        TxtCargaImg.Text = "[]"
-        UpAddArchivo.Update()
-        RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchivo"))
+#Region "CARGAR IMAGEN"
+    Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click
+        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchivo"))
     End Sub
 
-#Region "PERMISOS"
+    Private Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click
+        Dim FileExtension As String = "-1"
+        Dim filesgral As List(Of Archivo) = TxtCargaImg.getfiles().Archivos
+        Dim filemove As String = ""
 
-    Public Sub CargaPermisos()
-
-        Dim ObjRH As New ClsRH
-        Dim CvePersonal As Integer = If(IsNumeric(Request("CvePersonal")), Request("CvePersonal").ToString().ToEntero, -1)
-        If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, Now.AddMonths(-3), Now.AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then
-            GvPermisos.DataSource = ObjRH.DtResultados
-        Else
-            GvPermisos.DataSource = Nothing
-        End If
-
-        ObjRH.Dispose()
-        GvPermisos.DataBind()
-        UpGvPermisos.Update()
-
-    End Sub
-    Private Sub BtnPermiso_Click(sender As Object, e As EventArgs) Handles BtnPermiso.Click
-
-        Dim ObjRH As New ClsRH
-
-        Dim HoraEntrada As TimeSpan
-        Dim HoraSalida As TimeSpan
-        Dim GoceSueldo As Integer = If(ChkGoceSueldo.Checked, 1, 0)
-        Dim EstatusPermiso As Integer = If(ChkEstatusPermiso.Checked, 1, 0)
-
-        If TxtHoraEntrada.Text.Trim.Length > 0 Then
-            Try
-                HoraEntrada = TimeSpan.Parse(TxtHoraEntrada.Text)
-            Catch ex As Exception
-                HoraEntrada = Nothing
-            End Try
-        Else
-            HoraEntrada = Nothing
-
-        End If
-
-        If TxtHoraSalida.Text.Trim.Length > 0 Then
-            Try
-                HoraSalida = TimeSpan.Parse(TxtHoraSalida.Text)
-            Catch ex As Exception
-
-            End Try
-        Else
-            HoraSalida = Nothing
-        End If
-
-
-        If ObjRH.ChecadorPermisosAddUpdate(CvePermiso, TxtPermisoDescripcion.Text.Trim, CvePersonal, TxtFechaInicioPer.Text.ToDate, TxtFechaFinPer.Text.Trim.ToDate, HoraEntrada, HoraSalida,
-                                           GoceSueldo, EstatusPermiso, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            If CvePermiso = -1 Then
-                Alert("Permiso agregado correctamente")
-            Else
-                Alert("Permiso agregado Actualizado correctamente")
-            End If
-
-            RegistraScript("$('#DvPermisos').modal('hide');")
-
-        End If
-
-        ObjRH.Dispose()
-        CargaPermisos()
-
-    End Sub
-
-    Private Sub LnkAgregarPermiso_Click(sender As Object, e As EventArgs) Handles LnkAgregarPermiso.Click
-        BtnPermiso.Text = "Agregar"
-        ChkEstatusPermiso.Checked = True
-        CvePermiso = -1
-        RegistraScript("$('#DvPermisos').modal({ backdrop: 'static',  keyboard: false});")
-    End Sub
-
-
-    Public Sub Edit_ClickPermiso(sender As Object, e As EventArgs)
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
-        CvePermiso = GvRow.DataKey("CvePermiso").ToString().ToEntero
-        TxtPermisoDescripcion.Text = GvRow.DataKey("Descripcion").ToString()
-        TxtFechaInicioPer.Text = GvRow.DataKey("FechaInicio").ToString()
-        TxtFechaFinPer.Text = GvRow.DataKey("FechaFin").ToString()
-
-        If GvRow.DataKey("HoraEntrada").ToString().Length > 0 Then
-            Try
-                TxtHoraEntrada.Text = TimeSpan.Parse(GvRow.DataKey("HoraEntrada").ToString()).ToString("hh:mm:ss")
-            Catch ex As Exception
-                TxtHoraEntrada.Text = ""
-            End Try
-        Else
-            TxtHoraEntrada.Text = ""
-        End If
-
-
-        If GvRow.DataKey("HoraSalida").ToString().Length > 0 Then
-            Try
-                TxtHoraSalida.Text = TimeSpan.Parse(GvRow.DataKey("HoraSalida").ToString()).ToString("hh:mm:ss")
-            Catch ex As Exception
-                TxtHoraSalida.Text = ""
-            End Try
-        Else
-            TxtHoraSalida.Text = ""
-        End If
-
-        BtnPermiso.Text = "Actualizar"
-
-        ChkGoceSueldo.Checked = Boolean.Parse(GvRow.DataKey("GoceSueldo").ToString())
-        ChkEstatusPermiso.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString())
-        UpModalPermisos.Update()
-        RegistraScript("$('#DvPermisos').modal({ backdrop: 'static',  keyboard: false});")
-
-
-
-    End Sub
-
-
-    Public Sub Remove_ClickPermiso(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
-        Dim ObjRH As New ClsRH
-        Dim CvePermisoInterno As Integer = GvRow.DataKey("CvePermiso").ToEntero
-        If ObjRH.ChecadorPermisosRemove(CvePermisoInterno, UsuarioActual.CveEmpresa) Then
-
-        End If
-
-        ObjRH.Dispose()
-
-        CargaPermisos()
+
+        For Each fileItem As Archivo In filesgral
+            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+            filemove = fileItem.filename
+
+            Dim yaExistente As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.jpg", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
+            Dim yaExistentePNG As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.png", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
+            Dim yaExistenteBMP As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.bmp", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CvePersonal)
+
+            If File.Exists(yaExistente) Then
+                File.Delete(yaExistente)
+            ElseIf File.Exists(yaExistentePNG) Then
+                File.Delete(yaExistentePNG)
+            ElseIf File.Exists(yaExistenteBMP) Then
+                File.Delete(yaExistenteBMP)
+            End If
+
+            If filemove <> "" Then
+                filemove.FilesMove(CvePersonal.ToString(), String.Format("Empresas\{0}\RH\Personal\", UsuarioActual.CveEmpresa))
+            End If
+            ViewState("Archivo") = String.Format("{0}.{1}", CvePersonal.ToString(), FileExtension)
+        Next
+        If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & "." & FileExtension) Then
+            Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.{2}", UsuarioActual.CveEmpresa, CvePersonal, FileExtension)
+            Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}&version={4}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica), Now)
+            ImgPersonal.ImageUrl = logouri
+        End If
+        UpImage.Update()
+        TxtCargaImg.Text = "[]"
+        UpAddArchivo.Update()
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchivo"))
+    End Sub
+
+#Region "PERMISOS"
+
+    Public Sub CargaPermisos()
+
+        Dim ObjRH As New ClsRH
+        Dim CvePersonal As Integer = If(IsNumeric(Request("CvePersonal")), Request("CvePersonal").ToString().ToEntero, -1)
+        If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, Now.AddMonths(-3), Now.AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then
+            GvPermisos.DataSource = ObjRH.DtResultados
+        Else
+            GvPermisos.DataSource = Nothing
+        End If
+
+        ObjRH.Dispose()
+        GvPermisos.DataBind()
+        UpGvPermisos.Update()
+
+    End Sub
+    Private Sub BtnPermiso_Click(sender As Object, e As EventArgs) Handles BtnPermiso.Click
+
+        Dim ObjRH As New ClsRH
+
+        Dim HoraEntrada As TimeSpan
+        Dim HoraSalida As TimeSpan
+        Dim GoceSueldo As Integer = If(ChkGoceSueldo.Checked, 1, 0)
+        Dim EstatusPermiso As Integer = If(ChkEstatusPermiso.Checked, 1, 0)
+
+        If TxtHoraEntrada.Text.Trim.Length > 0 Then
+            Try
+                HoraEntrada = TimeSpan.Parse(TxtHoraEntrada.Text)
+            Catch ex As Exception
+                HoraEntrada = Nothing
+            End Try
+        Else
+            HoraEntrada = Nothing
+
+        End If
+
+        If TxtHoraSalida.Text.Trim.Length > 0 Then
+            Try
+                HoraSalida = TimeSpan.Parse(TxtHoraSalida.Text)
+            Catch ex As Exception
+
+            End Try
+        Else
+            HoraSalida = Nothing
+        End If
+
+
+        If ObjRH.ChecadorPermisosAddUpdate(CvePermiso, TxtPermisoDescripcion.Text.Trim, CvePersonal, TxtFechaInicioPer.Text.ToDate, TxtFechaFinPer.Text.Trim.ToDate, HoraEntrada, HoraSalida,
+                                           GoceSueldo, EstatusPermiso, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If CvePermiso = -1 Then
+                Alert("Permiso agregado correctamente")
+            Else
+                Alert("Permiso agregado Actualizado correctamente")
+            End If
+
+            RegistraScript("$('#DvPermisos').modal('hide');")
+
+        End If
+
+        ObjRH.Dispose()
+        CargaPermisos()
+
+    End Sub
+
+    Private Sub LnkAgregarPermiso_Click(sender As Object, e As EventArgs) Handles LnkAgregarPermiso.Click
+        BtnPermiso.Text = "Agregar"
+        ChkEstatusPermiso.Checked = True
+        CvePermiso = -1
+        RegistraScript("$('#DvPermisos').modal({ backdrop: 'static',  keyboard: false});")
+    End Sub
+
+
+    Public Sub Edit_ClickPermiso(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        CvePermiso = GvRow.DataKey("CvePermiso").ToString().ToEntero
+        TxtPermisoDescripcion.Text = GvRow.DataKey("Descripcion").ToString()
+        TxtFechaInicioPer.Text = GvRow.DataKey("FechaInicio").ToString()
+        TxtFechaFinPer.Text = GvRow.DataKey("FechaFin").ToString()
+
+        If GvRow.DataKey("HoraEntrada").ToString().Length > 0 Then
+            Try
+                TxtHoraEntrada.Text = TimeSpan.Parse(GvRow.DataKey("HoraEntrada").ToString()).ToString("hh:mm:ss")
+            Catch ex As Exception
+                TxtHoraEntrada.Text = ""
+            End Try
+        Else
+            TxtHoraEntrada.Text = ""
+        End If
+
+
+        If GvRow.DataKey("HoraSalida").ToString().Length > 0 Then
+            Try
+                TxtHoraSalida.Text = TimeSpan.Parse(GvRow.DataKey("HoraSalida").ToString()).ToString("hh:mm:ss")
+            Catch ex As Exception
+                TxtHoraSalida.Text = ""
+            End Try
+        Else
+            TxtHoraSalida.Text = ""
+        End If
+
+        BtnPermiso.Text = "Actualizar"
+
+        ChkGoceSueldo.Checked = Boolean.Parse(GvRow.DataKey("GoceSueldo").ToString())
+        ChkEstatusPermiso.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString())
+        UpModalPermisos.Update()
+        RegistraScript("$('#DvPermisos').modal({ backdrop: 'static',  keyboard: false});")
+
+
+
+    End Sub
+
+
+    Public Sub Remove_ClickPermiso(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim ObjRH As New ClsRH
+        Dim CvePermisoInterno As Integer = GvRow.DataKey("CvePermiso").ToEntero
+        If ObjRH.ChecadorPermisosRemove(CvePermisoInterno, UsuarioActual.CveEmpresa) Then
+
+        End If
+
+        ObjRH.Dispose()
+
+        CargaPermisos()
     End Sub
 
 
 
-#End Region
+#End Region
 
 
 
-#End Region
+#End Region
 
 
     'Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click
@@ -5430,798 +5446,798 @@ Partial Class RH_Personal
     '    End If
     'End Sub
 
-#Region "Consumos"
+#Region "Consumos"
 
-    Private Sub Consumos()
-
-        Dim ObjCompras As New ClsCompras
-
-        If ObjCompras.GetRepComprasPersonalDetalle("-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1, CvePersonal, -1, -1, -1, "-1", UsuarioActual.CveUsuario) Then
-            DTConsumos = ObjCompras.DtResultados
-            GvConsumos.DataSource = DTConsumos
-        Else
-            GvConsumos.DataSource = Nothing
-        End If
-        ObjCompras.Dispose()
-
-        GvConsumos.DataBind()
-
-        UpConsumos.Update()
-    End Sub
-
-    Protected Sub GvConsumos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvConsumos.RowDataBound
-
-        If e.Row.RowType = DataControlRowType.Header Then
-            'Cambiar Header
-        End If
-
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-            Dim FechaI, FechaF As String
-            FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
-            FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
-
-            Dim Liga As String = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}"
-
-            If e.Row.DBCampo("Orden") = "1" Then
-                e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString())
-            Else
-                e.Row.BackColor = Drawing.Color.LightGray
-            End If
-
-        End If
-    End Sub
-    Protected Sub GenerarPDFConsumo(Optional Formato As String = "PDF")
-        Dim CodigoP As String = ""
-        Dim NombreCompletoP As String = ""
-        Dim Ruta As String = String.Format("{0}Empresas/{1}/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
-        Dim RutaPDF As String = String.Format("{0}/Formatos/RepConsumoPersonal.rdlc", Ruta)
-        If Not File.Exists(RutaPDF) Then
-            RutaPDF = "Empresas/Grales/Formatos/RepConsumoPersonal.rdlc"
-        End If
-
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-        Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
-
-        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
-
-        Dim ObjPersonal As New ClsRH()
-        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
-            If ObjPersonal.DtResultados.Rows.Count > 0 Then
-                CodigoP = ObjPersonal.Codigo
-                NombreCompletoP = ObjPersonal.NombreCompleto
-                params.Add(New ReportParameter("NombrePersonal", ObjPersonal.NombreCompleto))
-                params.Add(New ReportParameter("CodigoPersonal", ObjPersonal.Codigo))
-            End If
-        End If
-        ObjPersonal.Dispose()
-
-        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()))
-
-        If Imagen.Exists Then
-            params.Add(New ReportParameter("pImg", logouri))
-        Else
-            params.Add(New ReportParameter("pImg", ""))
-        End If
-        ImprimirPDF(RutaPDF, DTConsumos, params, $"RepConsumoPersonal - {CodigoP} {NombreCompletoP}", Formato)
-    End Sub
-    Protected Sub LnkImprimirPDFConsumo_Click(sender As Object, e As EventArgs)
-        GenerarPDFConsumo()
+    Private Sub Consumos()
+
+        Dim ObjCompras As New ClsCompras
+
+        If ObjCompras.GetRepComprasPersonalDetalle("-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1, CvePersonal, -1, -1, -1, "-1", UsuarioActual.CveUsuario) Then
+            DTConsumos = ObjCompras.DtResultados
+            GvConsumos.DataSource = DTConsumos
+        Else
+            GvConsumos.DataSource = Nothing
+        End If
+        ObjCompras.Dispose()
+
+        GvConsumos.DataBind()
+
+        UpConsumos.Update()
     End Sub
 
-#End Region
+    Protected Sub GvConsumos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvConsumos.RowDataBound
 
-#Region ""
-    Protected Sub LbMail_Click(sender As Object, e As EventArgs)
-
-        Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)
-
-        If gvr.DataKey("SeTimbro") = "True" Then
-
-            Dim NombreComercial = UsuarioActual.Empresa.Empresa
-            Dim SerieFolio = gvr.DataKey("SerieFolio").ToString()
-            Dim Destinatario = gvr.DataKey("Correo").ToString()
-            Dim Personal = gvr.DataKey("Nombre").ToString()
-            Dim fechai = gvr.DataKey("FechaInicio").ToString().ToDate.ToShortDateString
-            Dim fechaf = gvr.DataKey("FechaFin").ToString().ToDate.ToShortDateString
-            Dim cvePeriodo = gvr.DataKey("CvePeriodo").ToString().ToEntero
-
-            If UsuarioActual.CveRol = 1 Then
-                Alert("Parametros:" + NombreComercial + " " + SerieFolio + " " + Destinatario + " " + Personal + " " + fechai + " " + fechaf)
-            End If
-            MandaCorreo(NombreComercial, SerieFolio, Destinatario, Personal, fechai, fechaf, cvePeriodo)
-        End If
-
-
-
-    End Sub
-
-    Private Sub MandaCorreo(NombreComercial As String, SerieFolio As String, Destinatario As String, Optional Personal As String = "", Optional FechaI As String = "", Optional FechaF As String = "", Optional CvePeriodo As Integer = -1)
-
-        Dim RutaXml As String = String.Format("{0}XML\Nomina\{1}.xml", UsuarioActual.Empresa.Ruta, SerieFolio)
-        Dim RutaPdf As String = String.Format("{0}PDF\Nomina\{1}.pdf", UsuarioActual.Empresa.Ruta, SerieFolio)
-
-        If Destinatario.Length > 0 Then
-
-            Dim Correo As New ClsSisMail()
-            Dim Asunto As String = "Comprobante de Nómina"
-            Dim Cuerpo As New StringBuilder
-
-            Cuerpo.AppendFormat("Estimado <b>{0}</b> <br>Por este medio le hacemos llegar los comprobantes fiscales de su nomina, correspondiente al periodo del {1} al {2}<br><br>", Personal, FechaI, FechaF)
-            Cuerpo.AppendFormat("<br>{0}", NombreComercial)
-
-            Dim Xml As New ClsSisMail.ArchivoMail
-            Dim Pdf As New ClsSisMail.ArchivoMail
-            Dim ListaAdjuntos As New List(Of ClsSisMail.ArchivoMail)
-
-            If File.Exists(RutaXml) Then
-                'Xml.ArchivoBinario() = File.ReadAllBytes(RutaXml)
-                Xml.Ruta = RutaXml
-
-                Xml.NombreArchivo = New FileInfo(SerieFolio + ".Xml").Name
-
-                ListaAdjuntos.Add(Xml)
-            End If
-
-            If Not File.Exists(RutaPdf) Then
-                GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)
-            End If
-
-            If File.Exists(RutaPdf) Then
-                'Pdf.ArchivoBinario() = File.ReadAllBytes(RutaPdf)
-                Pdf.Ruta = RutaPdf
-
-                Pdf.NombreArchivo = New FileInfo(SerieFolio + ".Pdf").Name
-
-                ListaAdjuntos.Add(Pdf)
-            End If
-
-
-            If ListaAdjuntos.Count > 0 Then
-                If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString(), Archivos:=ListaAdjuntos) Then
-                    Alert("Correo enviado existosamente a " & Destinatario)
-                Else
-                    Alert("Se presento un error al enviar el correo a " & Destinatario)
-                End If
-            Else
-                If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()) Then
-                    Alert("Correo enviado existosamente a " & Destinatario)
-                Else
-                    Alert("Se presento un error al adjuntar comprobantes")
-                End If
-            End If
-        Else
-
-        End If
-
-    End Sub
-#End Region
-
-#Region "VIATICOS"
-    Protected Sub CargaViaticosPersonal()
-        Dim ObjBancos As ClsBancos = New ClsBancos
-
-        If ObjBancos.GetSolicitudesViaticos(-1, UsuarioActual.CveEmpresa, -1, CvePersonal) Then
-            GVViaticos.DataSource = ObjBancos.DtResultados
-            GVViaticos.DataBind()
-        End If
-
-        ObjBancos.Dispose()
-    End Sub
-
-    Protected Sub LnkViaticoDetalle_Click(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim CveSolicitudViatico As Integer = GvRow.DataKey("CveSolicitudViatico").ToEntero
-        CargaViaticosDetalle(CveSolicitudViatico)
-        RegistraScript("$('#DivViaticoDetalle').modal({ backdrop: 'static',  keyboard: false});")
-    End Sub
-
-    Protected Sub CargaViaticosDetalle(CveSolicitudViativo As Integer)
-        Dim ObjBancos As ClsBancos = New ClsBancos
-        If ObjBancos.GetSolicitudesViaticosDetalle(CveSolicitudViativo, -1) Then
-            DTViaticosDetalle = ObjBancos.DtResultados
-            GVViaticoDetalle.DataSource = DTViaticosDetalle
-            GVViaticoDetalle.DataBind()
-        End If
-        ObjBancos.Dispose()
-        UpViaticoDetalle.Update()
-    End Sub
-
-    Protected Sub GVViaticoDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-        If (e.Row.RowType = DataControlRowType.Footer) Then
-            e.Row.FCLiteral("LtTotalImporte").Text = DTViaticosDetalle.SUM("Importe").FormatoNumero()
-        End If
-    End Sub
-#End Region
-
-#Region "BITACORA"
-
-    Private Sub CargaGvBitacora()
-
-        If CvePersonal > 0 Then
-            Dim ObjGral As New ClsGenerales()
-            If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
-                GvBitacora.DataSource = ObjGral.DtResultados
-            End If
-            ObjGral.Dispose()
-            GvBitacora.DataBind()
-            UpHistorialModificacion.Update()
-        End If
-
-    End Sub
-
-#End Region
-
-#Region "PAGO DE FACTURAS"
-
-    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
-        CargaPagoFactura()
-        UpnHistorial.Update()
-    End Sub
-
-    Private Sub CargaPagoFactura()
-        Dim ObjRH As New ClsRH
-        If ObjRH.GetPersonalPagoFactura(CvePersonal, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate, UsuarioActual.CveEmpresa) Then
-            GVPagoFactura.DataSource = ObjRH.DtResultados
-        End If
-        ObjRH.Dispose()
-        GVPagoFactura.DataBind()
-    End Sub
-
-#End Region
-
-    Protected Sub BtnSaldoInicial_Click(sender As Object, e As EventArgs)
-        Dim SaldoInicial As Double = TxtSaldoInicial.Text.ToDouble()
-        Dim Fecha As DateTime = TxtFechaSaldo.Text.ToDateTime()
-
-        Dim ObjMov As New ClsContabilidad()
-        If AgregarSaldoInicial(SaldoInicial, Fecha, 1, ObjMov) > 0 Then
-            Alert("Se agregó el saldo inicial al personal.")
-        Else
-            Alert("Ocurrió un error al agregar el saldo inicial.", TipoMensaje.MsgError)
-        End If
-        ObjMov.Dispose()
-        RegistraScript("$('#ModalSaldoInicial').modal('hide');")
-    End Sub
-    Private Function AgregarSaldoInicial(SaldoInicial As Double, Fecha As DateTime, CveMoneda As Integer, ObjMov As ClsContabilidad) As Integer
-        Return ObjMov.AddPrePolizas("RH/Personal", 13, SaldoInicial, SaldoInicial, CveMoneda, Fecha, "Saldo Inicial", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-    End Function
-
-#Region "L I C E N C I A S"
-    Public Sub CargaLicencias()
-        If CvePersonal > 0 Then
-            Dim ObjAF As New ClsAF()
-            If ObjAF.GetLicencias(-1, -1, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
-                GvLicencias.DataSource = ObjAF.DtResultados
-                GvLicencias.DataBind()
-            End If
-            ObjAF.Dispose()
-            UpLicencias.Update()
-        Else
-            DTLicencias = New DataTable()
-            Dim PK As New DataColumn("CveLicencia", GetType(Integer))
-            PK.AutoIncrement = True
-            PK.AutoIncrementSeed = 1
-            PK.AutoIncrementStep = 1
-
-            DTLicencias.Columns.Add(PK)
-            DTLicencias.Columns.Add("Licencia", GetType(String))
-            DTLicencias.Columns.Add("FechaExpedicion", GetType(DateTime))
-            DTLicencias.Columns.Add("FechaVencimiento", GetType(DateTime))
-            DTLicencias.Columns.Add("Estatus", GetType(Boolean))
-            DTLicencias.Columns.Add("EstatusSTR", GetType(String))
-
-            GvLicencias.DataSource = DTLicencias
-            GvLicencias.DataBind()
-        End If
-    End Sub
-
-    Public Sub EditLicencia_Click(sender As Object, e As EventArgs)
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
-        HdnModalidadLicencia.Value = "U"
-        HdnIDLicencia.Value = GvRow.DataKey("CveLicencia")
-        BtnAgregarLicencia.Text = "Actualizar"
-        LabelLicencia.InnerText = "Actualizar Licencia"
-        TxtLicencia.Text = GvRow.DataKey("Licencia")
-        TxtFechaExpLicencia.Text = GvRow.DataKey("FechaExpedicion")
-        TxtFechaVencLicencia.Text = GvRow.DataKey("FechaVencimiento")
-
-        ChkModalLicenciaEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString())
-
-        UpAddLicencias.Update()
-        UpLicencias.Update()
-
-        RegistraScript("$('#DivAddLicencias').modal('show');")
-    End Sub
-
-    Public Sub DeleteLicencia_Click(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        HdnIDLicencia.Value = GvRow.DataKey("CveLicencia")
-
-        If CvePersonal > 0 Then
-            Dim ObjAF As New ClsAF()
-            If ObjAF.RemoveLicencia(HdnIDLicencia.Value.ToEntero) Then
-                CargaLicencias()
-                Alert("La licencia se eliminó correctamente.", TipoMensaje.MsgInformacion)
-            End If
-            ObjAF.Dispose()
-        Else
-            If DTLicencias IsNot Nothing Then
-                Dim Row = DTLicencias.Select($"CveLicencia = {HdnIDLicencia.Value.ToEntero}")(0)
-                DTLicencias.Rows.Remove(Row)
-                GvLicencias.DataSource = DTLicencias
-                GvLicencias.DataBind()
-                Alert("La licencia se eliminó correctamente.", TipoMensaje.MsgInformacion)
-            End If
-        End If
-
-        UpLicencias.Update()
-
-    End Sub
-
-    Private Sub LnkAddLicencias_Click(sender As Object, e As EventArgs) Handles LnkAddLicencias.Click
-        HdnModalidadLicencia.Value = "A"
-        BtnAgregarLicencia.Text = "Agregar"
-        LabelLicencia.InnerText = "Agregar Licencia"
-
-        TxtLicencia.Text = ""
-        TxtFechaExpLicencia.Text = ""
-        TxtFechaVencLicencia.Text = ""
-        ChkModalLicenciaEstatus.Checked = False
-
-
-        UpLicencias.Update()
-        UpAddLicencias.Update()
-        RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddLicencias"))
-    End Sub
-
-    Private Sub BtnAgregarLicencia_Click(sender As Object, e As EventArgs) Handles BtnAgregarLicencia.Click
-        If CvePersonal > 0 Then
-            Dim ObjAF As New ClsAF
-            If HdnModalidadLicencia.Value = "A" Then
-                If ObjAF.AddLicencia(-1, TxtLicencia.Text.Trim, TxtFechaExpLicencia.Text.ToDateTime, TxtFechaVencLicencia.Text.ToDateTime, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, Estatus:=ChkModalLicenciaEstatus.Checked) Then
-                    Alert("La licencia se agregó correctamente.", TipoMensaje.MsgInformacion)
-                End If
-            ElseIf HdnModalidadLicencia.Value = "U" Then
-                If ObjAF.UpdateLicencia(HdnIDLicencia.Value.ToEntero, TxtLicencia.Text.Trim, TxtFechaExpLicencia.Text.ToDateTime, TxtFechaVencLicencia.Text.ToDateTime, Estatus:=ChkModalLicenciaEstatus.Checked) Then
-                    Alert("La licencia se actualizó correctamente.", TipoMensaje.MsgInformacion)
-                End If
-            End If
-            ObjAF.Dispose()
-            CargaLicencias()
-        Else
-            If DTLicencias IsNot Nothing Then
-                If HdnModalidadLicencia.Value = "A" Then
-                    Dim Row = DTLicencias.NewRow()
-
-                    Row("Licencia") = TxtLicencia.Text.Trim()
-                    Row("FechaExpedicion") = TxtFechaExpLicencia.Text.ToDateTime()
-                    Row("FechaVencimiento") = TxtFechaVencLicencia.Text.ToDateTime()
-                    Row("Estatus") = ChkModalLicenciaEstatus.Checked
-
-                    Row("EstatusSTR") = If(ChkModalLicenciaEstatus.Checked, "Si", "No")
-
-                    DTLicencias.Rows.Add(Row)
-
-                    GvLicencias.DataSource = DTLicencias
-                    GvLicencias.DataBind()
-                    UpLicencias.Update()
-                    Alert("La licencia se agregó correctamente.", TipoMensaje.MsgInformacion)
-                ElseIf HdnModalidadLicencia.Value = "U" Then
-                    Try
-                        Dim Row = DTLicencias.Select($"CveLicencia = {HdnIDLicencia.Value.ToEntero}")(0)
-
-                        Row("Licencia") = TxtLicencia.Text.Trim()
-                        Row("FechaExpedicion") = TxtFechaExpLicencia.Text.ToDateTime()
-                        Row("FechaVencimiento") = TxtFechaVencLicencia.Text.ToDateTime()
-                        Row("Estatus") = ChkModalLicenciaEstatus.Checked
-                        Row("EstatusSTR") = If(ChkModalLicenciaEstatus.Checked, "Si", "No")
-
-                        GvLicencias.DataSource = DTLicencias
-                        GvLicencias.DataBind()
-                        UpLicencias.Update()
-                        Alert("La licencia se actualizó correctamente.", TipoMensaje.MsgInformacion)
-                    Catch ex As Exception
-                        Alert("Ocurrió el error al actualizar la licencia.", TipoMensaje.MsgError)
-                    End Try
-
-                End If
-
-            End If
-        End If
-        RegistraScript("$('#DivAddLicencias').modal('hide');")
-
-    End Sub
-#End Region
-    Protected Sub BtnPDFResguardo_Click(sender As Object, e As EventArgs)
-        GenerarPDFResguardosAF()
-    End Sub
-    Protected Sub BtnExcelResguardo_Click(sender As Object, e As EventArgs)
-        GenerarPDFResguardosAF("Excel")
-    End Sub
-    Protected Sub GenerarPDFResguardosAF(Optional Formato As String = "PDF")
-
-        Dim ObjAF As New ClsAF
-
-        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\RepResguardosAF.rdlc", UsuarioActual.Empresa.Ruta))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-        Dim dtVC As DataTable = Nothing
-        Dim params As New List(Of ReportParameter)
-        Dim dr As DataRow = Nothing
-
-        If ObjAF.GetActivosFijosResguardos(-1, -1, CvePersonal, -1, UsuarioImprimio:=UsuarioActual.CveUsuario) Then
-            dtVC = ObjAF.DtResultados
-        End If
-
-        ObjAF.Dispose()
-
-        If dtVC.Rows.Count > 0 Then
-            dr = dtVC.Rows(0)
-
-            'If UsuarioActual.CveEmpresa.Contiene(72, 119) Then
-            'End If
-
-            Dim SBDomicilioSucursal As New StringBuilder()
-            Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero, Estatus:=1).FiltroPrimero("")
-
-            If DRSucursal IsNot Nothing Then
-                Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
-                Dim DomicilioSucursal As String = ""
-
-                SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle"))
-                If DRSucursal("NoExt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString().ToEntero)
-                If DRSucursal("NoInt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString().ToEntero)
-                If DRSucursal("Colonia").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString())
-                If DRSucursal("CP").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString())
-                If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
-                If DRSucursal("Pais").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString())
-            End If
-
-            params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString()))
-            params.Add(New ReportParameter("RFC", dr("RFC").ToString()))
-            params.Add(New ReportParameter("Puesto", dr("Puesto").ToString()))
-            params.Add(New ReportParameter("Departamento", dr("Departamento").ToString()))
-            params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString()))
-            params.Add(New ReportParameter("Telefono", dr("Celular").ToString()))
-            params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString()))
-            params.Add(New ReportParameter("PuestoUsuarioActual", dr("PuestoUsuarioImprimio").ToString()))
-
-            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-
-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
-
-
-            If Archivo.Exists Then
-                ImprimirPDF(String.Format("{0}Formatos\RepResguardosAF.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params, "PersonalResguardosAF", Formato)
-            Else
-                ImprimirPDF("Empresas/Grales/Formatos/RepResguardosAF.rdlc", dtVC, params, "PersonalResguardosAF", Formato)
-            End If
-
-        Else
-            Alert("No se encontraron registros .", TipoMensaje.MsgAdvertencia)
-        End If
-
-    End Sub
-
-
-#Region "FAMILIARES"
-
-
-    Private Sub CargaFamiliares()
-
-        If CvePersonal <> -1 Then
-            Dim objRH As New ClsRH
-
-            If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
-
-                If objRH.DtResultados.Rows.Count > 0 Then
-                    DTFamiliares = objRH.DtResultados
-                    DTFamiliares.Columns.Add("Accion", Type.GetType("System.String"))
-                    DTFamiliares.AcceptChanges()
-                    GvFamiliares.DataSource = DTFamiliares
-                Else
-                    DTFamiliares.Rows.Clear()
-                    GvFamiliares.DataSource = DTFamiliares
-                End If
-
-            Else
-                GvFamiliares.DataSource = Nothing
-            End If
-
-            objRH.Dispose()
-            GvFamiliares.DataBind()
-            UPTabFamiliares.Update()
-
-        End If
-    End Sub
-
-    Private Sub CrearEstructuraFamiliares()
-
-        Dim Familiares As New DataTable
-
-        Familiares.Columns.Add("CveFamiliar", Type.GetType("System.Int32"))
-        Familiares.Columns.Add("CvePersonal", Type.GetType("System.Int32"))
-        Familiares.Columns.Add("CveParentesco", Type.GetType("System.Int32"))
-        Familiares.Columns.Add("Parentesco", Type.GetType("System.String"))
-        Familiares.Columns.Add("Nombre", Type.GetType("System.String"))
-        Familiares.Columns.Add("Domicilio", Type.GetType("System.String"))
-        Familiares.Columns.Add("Edad", Type.GetType("System.Int32"))
-        Familiares.Columns.Add("Ocupacion", Type.GetType("System.String"))
-        Familiares.Columns.Add("Fecha", Type.GetType("System.DateTime"))
-        Familiares.Columns.Add("Usuario", Type.GetType("System.String"))
-        Familiares.Columns.Add("Telefono", Type.GetType("System.String"))
-        Familiares.Columns.Add("Accion", Type.GetType("System.String"))
-        Familiares.Columns.Add("Observaciones", Type.GetType("System.String"))
-        Familiares.Columns.Add("Beneficiario", Type.GetType("System.Boolean"))
-
-        DTFamiliares = Familiares
-
-    End Sub
-
-
-    Protected Sub BtnAgregarFamiliar_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliar.Click
-        ResetFormFamiliares()
-        RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static',  keyboard: false});")
-    End Sub
-
-
-    Private Sub ResetFormFamiliares()
-
-        ActualizarFamiliar = False
-        CveFamiliar = -1
-
-        LtlTituloModalFamiliar.Text = "Agregar Familiar"
-        BtnAgregarFamiliarModal.Text = "Agregar Familiar"
-        TxtNombreFamiliar4.Text = ""
-        TxtDomicilioFamiliar4.Text = ""
-        TxtEdadFamiliar4.Text = ""
-        TxtOcupacionFamiliar4.Text = ""
-        TxtTelefonoFamiliar.Text = ""
-        TxtObservacionesFamiliar.Text = ""
-        DDLParentescoFamiliar4.SelectedIndex = 0
-        ChkBeneficiario.Checked = False
-
-        UpModalFamiliar.Update()
-
-    End Sub
-
-    Protected Sub BtnAgregarFamiliarModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliarModal.Click
-
-        If ActualizarFamiliar Then
-
-            'DtRowFamiliar("CveFamiliar") = -1
-            DTFamiliares(IndexActual)("CvePersonal") = -1
-            DTFamiliares(IndexActual)("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
-            DTFamiliares(IndexActual)("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero
-            DTFamiliares(IndexActual)("Nombre") = TxtNombreFamiliar4.Text.Trim
-            DTFamiliares(IndexActual)("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
-            DTFamiliares(IndexActual)("Edad") = TxtEdadFamiliar4.Text.ToEntero
-            DTFamiliares(IndexActual)("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
-            DTFamiliares(IndexActual)("Telefono") = TxtTelefonoFamiliar.Text.Trim
-            DTFamiliares(IndexActual)("Observaciones") = TxtObservacionesFamiliar.Text.Trim
-            DTFamiliares(IndexActual)("Beneficiario") = ChkBeneficiario.Checked
-
-            If DTFamiliares(IndexActual)("CveFamiliar").ToString() = "-1" Then
-                DTFamiliares(IndexActual)("Accion") = "2"
-            Else
-                DTFamiliares(IndexActual)("Accion") = "1"
-            End If
-
-            DTFamiliares.AcceptChanges()
-
-        Else
-
-            Dim DtRowFamiliar As DataRow
-            DtRowFamiliar = DTFamiliares.NewRow
-
-            DtRowFamiliar("CveFamiliar") = -1
-            DtRowFamiliar("CvePersonal") = -1
-            DtRowFamiliar("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
-            DtRowFamiliar("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero
-            DtRowFamiliar("Nombre") = TxtNombreFamiliar4.Text.Trim
-            DtRowFamiliar("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
-            DtRowFamiliar("Edad") = TxtEdadFamiliar4.Text.ToEntero
-            DtRowFamiliar("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
-            DtRowFamiliar("Telefono") = TxtTelefonoFamiliar.Text.Trim
-            DtRowFamiliar("Observaciones") = TxtObservacionesFamiliar.Text.Trim
-            DtRowFamiliar("Beneficiario") = ChkBeneficiario.Checked
-
-            DtRowFamiliar("Accion") = "2"
-
-            DTFamiliares.Rows.Add(DtRowFamiliar)
-            DTFamiliares.AcceptChanges()
-
-        End If
-
-        IndexActual = -1
-
-
-        RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarFamiliar"))
-        'CargaFamiliares()
-
-        GvFamiliares.DataSource = DTFamiliares
-        GvFamiliares.DataBind()
-        UPTabFamiliares.Update()
-
-        CveFamiliar = -1
-        ActualizarFamiliar = False
-
-    End Sub
-
-    Public Sub Edit_ClickFamiliar(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim activo As Boolean = True
-
-        CveFamiliar = GvRow.DataKey("CveFamiliar").ToString().ToEntero
-        ActualizarFamiliar = True
-        IndexActual = GvRow.RowIndex
-
-        LtlTituloModalFamiliar.Text = "Editar Familiar"
-        BtnAgregarFamiliarModal.Text = "Actualizar"
-
-        TxtNombreFamiliar4.Text = GvRow.DataKey("Nombre")
-        DDLParentescoFamiliar4.SelectedValueExist(GvRow.DataKey("CveParentesco"))
-        TxtDomicilioFamiliar4.Text = GvRow.DataKey("Domicilio")
-        TxtEdadFamiliar4.Text = GvRow.DataKey("Edad")
-        TxtOcupacionFamiliar4.Text = GvRow.DataKey("Ocupacion")
-        TxtTelefonoFamiliar.Text = GvRow.DataKey("Telefono")
-        TxtObservacionesFamiliar.Text = GvRow.DataKey("Observaciones")
-        ChkBeneficiario.Checked = Boolean.Parse(GvRow.DataKey("Beneficiario").ToString())
-
-        UpModalFamiliar.Update()
-        RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static',  keyboard: false});")
-
-    End Sub
-
-
-    Public Sub Remove_ClickFamiliar(sender As Object, e As EventArgs)
-
-
-
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        IndexActual = GvRow.RowIndex
-        Dim activo As Boolean = False
-        Dim CveFamiliar As Integer = GvRow.DataKey("CveFamiliar").ToString().ToEntero
-
-        If CveFamiliar > 0 Then
-
-            DTFamiliares.Rows(IndexActual)("Accion") = "3"
-            Dim objRH As New ClsRH
-            ProcesaDTFamiliares(objRH)
-            objRH.Dispose()
-
-            CargaFamiliares()
-
-
-
-        Else
-            DTFamiliares.Rows(IndexActual).Delete()
-            DTFamiliares.AcceptChanges()
-            GvFamiliares.DataSource = DTFamiliares
-            GvFamiliares.DataBind()
-            UPTabFamiliares.Update()
-        End If
-        IndexActual = -1
-
-    End Sub
-
-    Private Sub ProcesaDTFamiliares(ByRef objRH As ClsRH)
-
-        'Dim objRH As New ClsRH
-
-        ValPadre = False
-        ValMadre = False
-
-        For Each dRow As DataRow In DTFamiliares.Rows
-
-
-
-            If dRow("Accion").ToString() = "1" Then 'Actualiza
-
-                Dim Beneficiario As Integer = -1
-
-                If Boolean.Parse(dRow("Beneficiario").ToString()) Then
-                    Beneficiario = 1
-                Else
-                    Beneficiario = 0
-                End If
-
-
-                objRH.PersonalFamiliaresUpdate(dRow("CveFamiliar").ToString().ToEntero, CvePersonal, dRow("CveParentesco").ToString().ToEntero, dRow("Nombre").ToString(), dRow("Domicilio").ToString(), dRow("Edad").ToString().ToEntero, dRow("Ocupacion").ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString(), If(dRow("Observaciones").ToString().Trim = "", "-1", dRow("Observaciones").ToString().Trim), Beneficiario)
-
-            End If
-            If dRow("Accion").ToString() = "2" Then 'Inserta
-
-
-                Dim Beneficiario As Boolean = Boolean.Parse(dRow("Beneficiario").ToString())
-
-
-
-                objRH.PersonalFamiliaresAdd(CvePersonal, dRow("CveParentesco").ToString().ToEntero, dRow("Nombre").ToString(), dRow("Domicilio").ToString(), dRow("Edad").ToString().ToEntero, dRow("Ocupacion").ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString(), If(dRow("Observaciones").ToString().Trim = "", "-1", dRow("Observaciones").ToString().Trim), Beneficiario)
-
-            End If
-
-            If dRow("CveParentesco").ToString().ToEntero = 1 Then
-                ValPadre = True
-            End If
-
-            If dRow("CveParentesco").ToString().ToEntero = 2 Then
-                ValMadre = True
-            End If
-
-            If dRow("Accion").ToString() = "3" Then 'Borra
-                objRH.PersonalFamiliaresRemove(dRow("CveFamiliar").ToString().ToEntero, -1)
-            End If
-
-        Next
-
-        'objRH.Dispose()
-
-    End Sub
-
-#End Region
-
-
-    Protected Sub DdlTipoAsistencias_SelectedIndexChanged(sender As Object, e As EventArgs)
-        Dim ddl As DropDownList = DirectCast(sender, DropDownList)
-        Dim gvrow As GridViewRow = DirectCast(ddl.NamingContainer, GridViewRow)
-        If ddl.SelectedItem.Text = "Retardo" Then
-            gvrow.FCTextBox("TxtPorPago").Text = "87.5"
-        End If
-    End Sub
-    Protected Sub LnkGuardarFonacot_Click(sender As Object, e As EventArgs)
-        Dim importe As Double = TxtFonValor.Text.ToDouble()
-        Dim TipoAplicacion As Integer = DdlFonTipoAplicacion.SelectedValue.ToEntero()
-        Dim NoPagos As Integer = 0
-        Dim SaldoIni As Double = 0
-        Dim descripcion02 As String = TxtFonDescripcion.Text
-        Dim descripcion01 As String = TxtFonNumCredito.Text
-        Dim fecha As String = TxtFonFechaInicio.Text.Replace("_", "")
-        Dim estatus As Integer = If(ChkFonacot.Checked, 1, 0)
-
-        If fecha.Length > 8 Then
-            fecha = fecha.ToDateTime().ToString("yyyy/MM/dd")
-        Else
-            fecha = ""
-        End If
-
-        Dim continuar As Boolean = True
-
-        Using ObjPersonal As ClsRH = New ClsRH()
-            If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 4, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then continuar = False
-        End Using
-
-        If continuar Then
-            Alert("Se actualizo el calculo de fonacot")
-        End If
-    End Sub
-    Protected Sub LnkCalcularFactor_Click(sender As Object, e As EventArgs)
-        getdatosFI()
-        RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
-    End Sub
-    Private Sub getdatosFI()
-
-        If TxtFIAguinaldo.Text = "0" Or TxtFIAguinaldo.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
-            TxtFIAguinaldo.Text = "15"
-        End If
-        If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
-            TxtFIPrimaVacacional.Text = "25"
+        If e.Row.RowType = DataControlRowType.Header Then
+            'Cambiar Header
         End If
 
-        TxtFISalariodiario.Text = TxtSalarioDiario.Text
-        TxtFactordeIntegracion.Text = ""
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            Dim FechaI, FechaF As String
+            FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+            FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+
+            Dim Liga As String = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}"
+
+            If e.Row.DBCampo("Orden") = "1" Then
+                e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString())
+            Else
+                e.Row.BackColor = Drawing.Color.LightGray
+            End If
+
+        End If
+    End Sub
+    Protected Sub GenerarPDFConsumo(Optional Formato As String = "PDF")
+        Dim CodigoP As String = ""
+        Dim NombreCompletoP As String = ""
+        Dim Ruta As String = String.Format("{0}Empresas/{1}/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
+        Dim RutaPDF As String = String.Format("{0}/Formatos/RepConsumoPersonal.rdlc", Ruta)
+        If Not File.Exists(RutaPDF) Then
+            RutaPDF = "Empresas/Grales/Formatos/RepConsumoPersonal.rdlc"
+        End If
+
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
+
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+
+        Dim ObjPersonal As New ClsRH()
+        If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
+            If ObjPersonal.DtResultados.Rows.Count > 0 Then
+                CodigoP = ObjPersonal.Codigo
+                NombreCompletoP = ObjPersonal.NombreCompleto
+                params.Add(New ReportParameter("NombrePersonal", ObjPersonal.NombreCompleto))
+                params.Add(New ReportParameter("CodigoPersonal", ObjPersonal.Codigo))
+            End If
+        End If
+        ObjPersonal.Dispose()
+
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()))
+
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", logouri))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+        ImprimirPDF(RutaPDF, DTConsumos, params, $"RepConsumoPersonal - {CodigoP} {NombreCompletoP}", Formato)
+    End Sub
+    Protected Sub LnkImprimirPDFConsumo_Click(sender As Object, e As EventArgs)
+        GenerarPDFConsumo()
+    End Sub
+
+#End Region
+
+#Region ""
+    Protected Sub LbMail_Click(sender As Object, e As EventArgs)
+
+        Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)
+
+        If gvr.DataKey("SeTimbro") = "True" Then
+
+            Dim NombreComercial = UsuarioActual.Empresa.Empresa
+            Dim SerieFolio = gvr.DataKey("SerieFolio").ToString()
+            Dim Destinatario = gvr.DataKey("Correo").ToString()
+            Dim Personal = gvr.DataKey("Nombre").ToString()
+            Dim fechai = gvr.DataKey("FechaInicio").ToString().ToDate.ToShortDateString
+            Dim fechaf = gvr.DataKey("FechaFin").ToString().ToDate.ToShortDateString
+            Dim cvePeriodo = gvr.DataKey("CvePeriodo").ToString().ToEntero
+
+            If UsuarioActual.CveRol = 1 Then
+                Alert("Parametros:" + NombreComercial + " " + SerieFolio + " " + Destinatario + " " + Personal + " " + fechai + " " + fechaf)
+            End If
+            MandaCorreo(NombreComercial, SerieFolio, Destinatario, Personal, fechai, fechaf, cvePeriodo)
+        End If
+
+
+
+    End Sub
+
+    Private Sub MandaCorreo(NombreComercial As String, SerieFolio As String, Destinatario As String, Optional Personal As String = "", Optional FechaI As String = "", Optional FechaF As String = "", Optional CvePeriodo As Integer = -1)
+
+        Dim RutaXml As String = String.Format("{0}XML\Nomina\{1}.xml", UsuarioActual.Empresa.Ruta, SerieFolio)
+        Dim RutaPdf As String = String.Format("{0}PDF\Nomina\{1}.pdf", UsuarioActual.Empresa.Ruta, SerieFolio)
+
+        If Destinatario.Length > 0 Then
+
+            Dim Correo As New ClsSisMail()
+            Dim Asunto As String = "Comprobante de Nómina"
+            Dim Cuerpo As New StringBuilder
+
+            Cuerpo.AppendFormat("Estimado <b>{0}</b> <br>Por este medio le hacemos llegar los comprobantes fiscales de su nomina, correspondiente al periodo del {1} al {2}<br><br>", Personal, FechaI, FechaF)
+            Cuerpo.AppendFormat("<br>{0}", NombreComercial)
+
+            Dim Xml As New ClsSisMail.ArchivoMail
+            Dim Pdf As New ClsSisMail.ArchivoMail
+            Dim ListaAdjuntos As New List(Of ClsSisMail.ArchivoMail)
+
+            If File.Exists(RutaXml) Then
+                'Xml.ArchivoBinario() = File.ReadAllBytes(RutaXml)
+                Xml.Ruta = RutaXml
+
+                Xml.NombreArchivo = New FileInfo(SerieFolio + ".Xml").Name
+
+                ListaAdjuntos.Add(Xml)
+            End If
+
+            If Not File.Exists(RutaPdf) Then
+                GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)
+            End If
+
+            If File.Exists(RutaPdf) Then
+                'Pdf.ArchivoBinario() = File.ReadAllBytes(RutaPdf)
+                Pdf.Ruta = RutaPdf
+
+                Pdf.NombreArchivo = New FileInfo(SerieFolio + ".Pdf").Name
+
+                ListaAdjuntos.Add(Pdf)
+            End If
+
+
+            If ListaAdjuntos.Count > 0 Then
+                If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString(), Archivos:=ListaAdjuntos) Then
+                    Alert("Correo enviado existosamente a " & Destinatario)
+                Else
+                    Alert("Se presento un error al enviar el correo a " & Destinatario)
+                End If
+            Else
+                If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()) Then
+                    Alert("Correo enviado existosamente a " & Destinatario)
+                Else
+                    Alert("Se presento un error al adjuntar comprobantes")
+                End If
+            End If
+        Else
+
+        End If
+
+    End Sub
+#End Region
+
+#Region "VIATICOS"
+    Protected Sub CargaViaticosPersonal()
+        Dim ObjBancos As ClsBancos = New ClsBancos
+
+        If ObjBancos.GetSolicitudesViaticos(-1, UsuarioActual.CveEmpresa, -1, CvePersonal) Then
+            GVViaticos.DataSource = ObjBancos.DtResultados
+            GVViaticos.DataBind()
+        End If
+
+        ObjBancos.Dispose()
+    End Sub
+
+    Protected Sub LnkViaticoDetalle_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveSolicitudViatico As Integer = GvRow.DataKey("CveSolicitudViatico").ToEntero
+        CargaViaticosDetalle(CveSolicitudViatico)
+        RegistraScript("$('#DivViaticoDetalle').modal({ backdrop: 'static',  keyboard: false});")
+    End Sub
+
+    Protected Sub CargaViaticosDetalle(CveSolicitudViativo As Integer)
+        Dim ObjBancos As ClsBancos = New ClsBancos
+        If ObjBancos.GetSolicitudesViaticosDetalle(CveSolicitudViativo, -1) Then
+            DTViaticosDetalle = ObjBancos.DtResultados
+            GVViaticoDetalle.DataSource = DTViaticosDetalle
+            GVViaticoDetalle.DataBind()
+        End If
+        ObjBancos.Dispose()
+        UpViaticoDetalle.Update()
+    End Sub
+
+    Protected Sub GVViaticoDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If (e.Row.RowType = DataControlRowType.Footer) Then
+            e.Row.FCLiteral("LtTotalImporte").Text = DTViaticosDetalle.SUM("Importe").FormatoNumero()
+        End If
+    End Sub
+#End Region
+
+#Region "BITACORA"
+
+    Private Sub CargaGvBitacora()
+
+        If CvePersonal > 0 Then
+            Dim ObjGral As New ClsGenerales()
+            If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
+                GvBitacora.DataSource = ObjGral.DtResultados
+            End If
+            ObjGral.Dispose()
+            GvBitacora.DataBind()
+            UpHistorialModificacion.Update()
+        End If
+
+    End Sub
+
+#End Region
+
+#Region "PAGO DE FACTURAS"
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaPagoFactura()
+        UpnHistorial.Update()
+    End Sub
+
+    Private Sub CargaPagoFactura()
+        Dim ObjRH As New ClsRH
+        If ObjRH.GetPersonalPagoFactura(CvePersonal, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate, UsuarioActual.CveEmpresa) Then
+            GVPagoFactura.DataSource = ObjRH.DtResultados
+        End If
+        ObjRH.Dispose()
+        GVPagoFactura.DataBind()
+    End Sub
+
+#End Region
+
+    Protected Sub BtnSaldoInicial_Click(sender As Object, e As EventArgs)
+        Dim SaldoInicial As Double = TxtSaldoInicial.Text.ToDouble()
+        Dim Fecha As DateTime = TxtFechaSaldo.Text.ToDateTime()
+
+        Dim ObjMov As New ClsContabilidad()
+        If AgregarSaldoInicial(SaldoInicial, Fecha, 1, ObjMov) > 0 Then
+            Alert("Se agregó el saldo inicial al personal.")
+        Else
+            Alert("Ocurrió un error al agregar el saldo inicial.", TipoMensaje.MsgError)
+        End If
+        ObjMov.Dispose()
+        RegistraScript("$('#ModalSaldoInicial').modal('hide');")
+    End Sub
+    Private Function AgregarSaldoInicial(SaldoInicial As Double, Fecha As DateTime, CveMoneda As Integer, ObjMov As ClsContabilidad) As Integer
+        Return ObjMov.AddPrePolizas("RH/Personal", 13, SaldoInicial, SaldoInicial, CveMoneda, Fecha, "Saldo Inicial", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+    End Function
+
+#Region "L I C E N C I A S"
+    Public Sub CargaLicencias()
+        If CvePersonal > 0 Then
+            Dim ObjAF As New ClsAF()
+            If ObjAF.GetLicencias(-1, -1, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
+                GvLicencias.DataSource = ObjAF.DtResultados
+                GvLicencias.DataBind()
+            End If
+            ObjAF.Dispose()
+            UpLicencias.Update()
+        Else
+            DTLicencias = New DataTable()
+            Dim PK As New DataColumn("CveLicencia", GetType(Integer))
+            PK.AutoIncrement = True
+            PK.AutoIncrementSeed = 1
+            PK.AutoIncrementStep = 1
+
+            DTLicencias.Columns.Add(PK)
+            DTLicencias.Columns.Add("Licencia", GetType(String))
+            DTLicencias.Columns.Add("FechaExpedicion", GetType(DateTime))
+            DTLicencias.Columns.Add("FechaVencimiento", GetType(DateTime))
+            DTLicencias.Columns.Add("Estatus", GetType(Boolean))
+            DTLicencias.Columns.Add("EstatusSTR", GetType(String))
+
+            GvLicencias.DataSource = DTLicencias
+            GvLicencias.DataBind()
+        End If
+    End Sub
+
+    Public Sub EditLicencia_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        HdnModalidadLicencia.Value = "U"
+        HdnIDLicencia.Value = GvRow.DataKey("CveLicencia")
+        BtnAgregarLicencia.Text = "Actualizar"
+        LabelLicencia.InnerText = "Actualizar Licencia"
+        TxtLicencia.Text = GvRow.DataKey("Licencia")
+        TxtFechaExpLicencia.Text = GvRow.DataKey("FechaExpedicion")
+        TxtFechaVencLicencia.Text = GvRow.DataKey("FechaVencimiento")
+
+        ChkModalLicenciaEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString())
+
+        UpAddLicencias.Update()
+        UpLicencias.Update()
+
+        RegistraScript("$('#DivAddLicencias').modal('show');")
+    End Sub
+
+    Public Sub DeleteLicencia_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        HdnIDLicencia.Value = GvRow.DataKey("CveLicencia")
+
+        If CvePersonal > 0 Then
+            Dim ObjAF As New ClsAF()
+            If ObjAF.RemoveLicencia(HdnIDLicencia.Value.ToEntero) Then
+                CargaLicencias()
+                Alert("La licencia se eliminó correctamente.", TipoMensaje.MsgInformacion)
+            End If
+            ObjAF.Dispose()
+        Else
+            If DTLicencias IsNot Nothing Then
+                Dim Row = DTLicencias.Select($"CveLicencia = {HdnIDLicencia.Value.ToEntero}")(0)
+                DTLicencias.Rows.Remove(Row)
+                GvLicencias.DataSource = DTLicencias
+                GvLicencias.DataBind()
+                Alert("La licencia se eliminó correctamente.", TipoMensaje.MsgInformacion)
+            End If
+        End If
+
+        UpLicencias.Update()
+
+    End Sub
+
+    Private Sub LnkAddLicencias_Click(sender As Object, e As EventArgs) Handles LnkAddLicencias.Click
+        HdnModalidadLicencia.Value = "A"
+        BtnAgregarLicencia.Text = "Agregar"
+        LabelLicencia.InnerText = "Agregar Licencia"
+
+        TxtLicencia.Text = ""
+        TxtFechaExpLicencia.Text = ""
+        TxtFechaVencLicencia.Text = ""
+        ChkModalLicenciaEstatus.Checked = False
+
+
+        UpLicencias.Update()
+        UpAddLicencias.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddLicencias"))
+    End Sub
+
+    Private Sub BtnAgregarLicencia_Click(sender As Object, e As EventArgs) Handles BtnAgregarLicencia.Click
+        If CvePersonal > 0 Then
+            Dim ObjAF As New ClsAF
+            If HdnModalidadLicencia.Value = "A" Then
+                If ObjAF.AddLicencia(-1, TxtLicencia.Text.Trim, TxtFechaExpLicencia.Text.ToDateTime, TxtFechaVencLicencia.Text.ToDateTime, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, Estatus:=ChkModalLicenciaEstatus.Checked) Then
+                    Alert("La licencia se agregó correctamente.", TipoMensaje.MsgInformacion)
+                End If
+            ElseIf HdnModalidadLicencia.Value = "U" Then
+                If ObjAF.UpdateLicencia(HdnIDLicencia.Value.ToEntero, TxtLicencia.Text.Trim, TxtFechaExpLicencia.Text.ToDateTime, TxtFechaVencLicencia.Text.ToDateTime, Estatus:=ChkModalLicenciaEstatus.Checked) Then
+                    Alert("La licencia se actualizó correctamente.", TipoMensaje.MsgInformacion)
+                End If
+            End If
+            ObjAF.Dispose()
+            CargaLicencias()
+        Else
+            If DTLicencias IsNot Nothing Then
+                If HdnModalidadLicencia.Value = "A" Then
+                    Dim Row = DTLicencias.NewRow()
+
+                    Row("Licencia") = TxtLicencia.Text.Trim()
+                    Row("FechaExpedicion") = TxtFechaExpLicencia.Text.ToDateTime()
+                    Row("FechaVencimiento") = TxtFechaVencLicencia.Text.ToDateTime()
+                    Row("Estatus") = ChkModalLicenciaEstatus.Checked
+
+                    Row("EstatusSTR") = If(ChkModalLicenciaEstatus.Checked, "Si", "No")
+
+                    DTLicencias.Rows.Add(Row)
+
+                    GvLicencias.DataSource = DTLicencias
+                    GvLicencias.DataBind()
+                    UpLicencias.Update()
+                    Alert("La licencia se agregó correctamente.", TipoMensaje.MsgInformacion)
+                ElseIf HdnModalidadLicencia.Value = "U" Then
+                    Try
+                        Dim Row = DTLicencias.Select($"CveLicencia = {HdnIDLicencia.Value.ToEntero}")(0)
+
+                        Row("Licencia") = TxtLicencia.Text.Trim()
+                        Row("FechaExpedicion") = TxtFechaExpLicencia.Text.ToDateTime()
+                        Row("FechaVencimiento") = TxtFechaVencLicencia.Text.ToDateTime()
+                        Row("Estatus") = ChkModalLicenciaEstatus.Checked
+                        Row("EstatusSTR") = If(ChkModalLicenciaEstatus.Checked, "Si", "No")
+
+                        GvLicencias.DataSource = DTLicencias
+                        GvLicencias.DataBind()
+                        UpLicencias.Update()
+                        Alert("La licencia se actualizó correctamente.", TipoMensaje.MsgInformacion)
+                    Catch ex As Exception
+                        Alert("Ocurrió el error al actualizar la licencia.", TipoMensaje.MsgError)
+                    End Try
+
+                End If
+
+            End If
+        End If
+        RegistraScript("$('#DivAddLicencias').modal('hide');")
+
+    End Sub
+#End Region
+    Protected Sub BtnPDFResguardo_Click(sender As Object, e As EventArgs)
+        GenerarPDFResguardosAF()
+    End Sub
+    Protected Sub BtnExcelResguardo_Click(sender As Object, e As EventArgs)
+        GenerarPDFResguardosAF("Excel")
+    End Sub
+    Protected Sub GenerarPDFResguardosAF(Optional Formato As String = "PDF")
+
+        Dim ObjAF As New ClsAF
+
+        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\RepResguardosAF.rdlc", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim dtVC As DataTable = Nothing
+        Dim params As New List(Of ReportParameter)
+        Dim dr As DataRow = Nothing
+
+        If ObjAF.GetActivosFijosResguardos(-1, -1, CvePersonal, -1, UsuarioImprimio:=UsuarioActual.CveUsuario) Then
+            dtVC = ObjAF.DtResultados
+        End If
+
+        ObjAF.Dispose()
+
+        If dtVC.Rows.Count > 0 Then
+            dr = dtVC.Rows(0)
+
+            'If UsuarioActual.CveEmpresa.Contiene(72, 119) Then
+            'End If
+
+            Dim SBDomicilioSucursal As New StringBuilder()
+            Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero, Estatus:=1).FiltroPrimero("")
+
+            If DRSucursal IsNot Nothing Then
+                Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
+                Dim DomicilioSucursal As String = ""
+
+                SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle"))
+                If DRSucursal("NoExt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString().ToEntero)
+                If DRSucursal("NoInt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString().ToEntero)
+                If DRSucursal("Colonia").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString())
+                If DRSucursal("CP").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString())
+                If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
+                If DRSucursal("Pais").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString())
+            End If
+
+            params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString()))
+            params.Add(New ReportParameter("RFC", dr("RFC").ToString()))
+            params.Add(New ReportParameter("Puesto", dr("Puesto").ToString()))
+            params.Add(New ReportParameter("Departamento", dr("Departamento").ToString()))
+            params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString()))
+            params.Add(New ReportParameter("Telefono", dr("Celular").ToString()))
+            params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString()))
+            params.Add(New ReportParameter("PuestoUsuarioActual", dr("PuestoUsuarioImprimio").ToString()))
+
+            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+
+
+            If Archivo.Exists Then
+                ImprimirPDF(String.Format("{0}Formatos\RepResguardosAF.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params, "PersonalResguardosAF", Formato)
+            Else
+                ImprimirPDF("Empresas/Grales/Formatos/RepResguardosAF.rdlc", dtVC, params, "PersonalResguardosAF", Formato)
+            End If
+
+        Else
+            Alert("No se encontraron registros .", TipoMensaje.MsgAdvertencia)
+        End If
+
+    End Sub
+
+
+#Region "FAMILIARES"
+
+
+    Private Sub CargaFamiliares()
+
+        If CvePersonal <> -1 Then
+            Dim objRH As New ClsRH
+
+            If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then
+
+                If objRH.DtResultados.Rows.Count > 0 Then
+                    DTFamiliares = objRH.DtResultados
+                    DTFamiliares.Columns.Add("Accion", Type.GetType("System.String"))
+                    DTFamiliares.AcceptChanges()
+                    GvFamiliares.DataSource = DTFamiliares
+                Else
+                    DTFamiliares.Rows.Clear()
+                    GvFamiliares.DataSource = DTFamiliares
+                End If
+
+            Else
+                GvFamiliares.DataSource = Nothing
+            End If
+
+            objRH.Dispose()
+            GvFamiliares.DataBind()
+            UPTabFamiliares.Update()
+
+        End If
+    End Sub
+
+    Private Sub CrearEstructuraFamiliares()
+
+        Dim Familiares As New DataTable
+
+        Familiares.Columns.Add("CveFamiliar", Type.GetType("System.Int32"))
+        Familiares.Columns.Add("CvePersonal", Type.GetType("System.Int32"))
+        Familiares.Columns.Add("CveParentesco", Type.GetType("System.Int32"))
+        Familiares.Columns.Add("Parentesco", Type.GetType("System.String"))
+        Familiares.Columns.Add("Nombre", Type.GetType("System.String"))
+        Familiares.Columns.Add("Domicilio", Type.GetType("System.String"))
+        Familiares.Columns.Add("Edad", Type.GetType("System.Int32"))
+        Familiares.Columns.Add("Ocupacion", Type.GetType("System.String"))
+        Familiares.Columns.Add("Fecha", Type.GetType("System.DateTime"))
+        Familiares.Columns.Add("Usuario", Type.GetType("System.String"))
+        Familiares.Columns.Add("Telefono", Type.GetType("System.String"))
+        Familiares.Columns.Add("Accion", Type.GetType("System.String"))
+        Familiares.Columns.Add("Observaciones", Type.GetType("System.String"))
+        Familiares.Columns.Add("Beneficiario", Type.GetType("System.Boolean"))
+
+        DTFamiliares = Familiares
+
+    End Sub
+
+
+    Protected Sub BtnAgregarFamiliar_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliar.Click
+        ResetFormFamiliares()
+        RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static',  keyboard: false});")
+    End Sub
+
+
+    Private Sub ResetFormFamiliares()
+
+        ActualizarFamiliar = False
+        CveFamiliar = -1
+
+        LtlTituloModalFamiliar.Text = "Agregar Familiar"
+        BtnAgregarFamiliarModal.Text = "Agregar Familiar"
+        TxtNombreFamiliar4.Text = ""
+        TxtDomicilioFamiliar4.Text = ""
+        TxtEdadFamiliar4.Text = ""
+        TxtOcupacionFamiliar4.Text = ""
+        TxtTelefonoFamiliar.Text = ""
+        TxtObservacionesFamiliar.Text = ""
+        DDLParentescoFamiliar4.SelectedIndex = 0
+        ChkBeneficiario.Checked = False
+
+        UpModalFamiliar.Update()
+
+    End Sub
+
+    Protected Sub BtnAgregarFamiliarModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliarModal.Click
+
+        If ActualizarFamiliar Then
+
+            'DtRowFamiliar("CveFamiliar") = -1
+            DTFamiliares(IndexActual)("CvePersonal") = -1
+            DTFamiliares(IndexActual)("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
+            DTFamiliares(IndexActual)("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero
+            DTFamiliares(IndexActual)("Nombre") = TxtNombreFamiliar4.Text.Trim
+            DTFamiliares(IndexActual)("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
+            DTFamiliares(IndexActual)("Edad") = TxtEdadFamiliar4.Text.ToEntero
+            DTFamiliares(IndexActual)("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
+            DTFamiliares(IndexActual)("Telefono") = TxtTelefonoFamiliar.Text.Trim
+            DTFamiliares(IndexActual)("Observaciones") = TxtObservacionesFamiliar.Text.Trim
+            DTFamiliares(IndexActual)("Beneficiario") = ChkBeneficiario.Checked
+
+            If DTFamiliares(IndexActual)("CveFamiliar").ToString() = "-1" Then
+                DTFamiliares(IndexActual)("Accion") = "2"
+            Else
+                DTFamiliares(IndexActual)("Accion") = "1"
+            End If
+
+            DTFamiliares.AcceptChanges()
+
+        Else
+
+            Dim DtRowFamiliar As DataRow
+            DtRowFamiliar = DTFamiliares.NewRow
+
+            DtRowFamiliar("CveFamiliar") = -1
+            DtRowFamiliar("CvePersonal") = -1
+            DtRowFamiliar("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text
+            DtRowFamiliar("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero
+            DtRowFamiliar("Nombre") = TxtNombreFamiliar4.Text.Trim
+            DtRowFamiliar("Domicilio") = TxtDomicilioFamiliar4.Text.Trim
+            DtRowFamiliar("Edad") = TxtEdadFamiliar4.Text.ToEntero
+            DtRowFamiliar("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim
+            DtRowFamiliar("Telefono") = TxtTelefonoFamiliar.Text.Trim
+            DtRowFamiliar("Observaciones") = TxtObservacionesFamiliar.Text.Trim
+            DtRowFamiliar("Beneficiario") = ChkBeneficiario.Checked
+
+            DtRowFamiliar("Accion") = "2"
+
+            DTFamiliares.Rows.Add(DtRowFamiliar)
+            DTFamiliares.AcceptChanges()
+
+        End If
+
+        IndexActual = -1
+
+
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarFamiliar"))
+        'CargaFamiliares()
+
+        GvFamiliares.DataSource = DTFamiliares
+        GvFamiliares.DataBind()
+        UPTabFamiliares.Update()
+
+        CveFamiliar = -1
+        ActualizarFamiliar = False
+
+    End Sub
+
+    Public Sub Edit_ClickFamiliar(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim activo As Boolean = True
+
+        CveFamiliar = GvRow.DataKey("CveFamiliar").ToString().ToEntero
+        ActualizarFamiliar = True
+        IndexActual = GvRow.RowIndex
+
+        LtlTituloModalFamiliar.Text = "Editar Familiar"
+        BtnAgregarFamiliarModal.Text = "Actualizar"
+
+        TxtNombreFamiliar4.Text = GvRow.DataKey("Nombre")
+        DDLParentescoFamiliar4.SelectedValueExist(GvRow.DataKey("CveParentesco"))
+        TxtDomicilioFamiliar4.Text = GvRow.DataKey("Domicilio")
+        TxtEdadFamiliar4.Text = GvRow.DataKey("Edad")
+        TxtOcupacionFamiliar4.Text = GvRow.DataKey("Ocupacion")
+        TxtTelefonoFamiliar.Text = GvRow.DataKey("Telefono")
+        TxtObservacionesFamiliar.Text = GvRow.DataKey("Observaciones")
+        ChkBeneficiario.Checked = Boolean.Parse(GvRow.DataKey("Beneficiario").ToString())
+
+        UpModalFamiliar.Update()
+        RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static',  keyboard: false});")
+
+    End Sub
+
+
+    Public Sub Remove_ClickFamiliar(sender As Object, e As EventArgs)
+
+
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        IndexActual = GvRow.RowIndex
+        Dim activo As Boolean = False
+        Dim CveFamiliar As Integer = GvRow.DataKey("CveFamiliar").ToString().ToEntero
+
+        If CveFamiliar > 0 Then
+
+            DTFamiliares.Rows(IndexActual)("Accion") = "3"
+            Dim objRH As New ClsRH
+            ProcesaDTFamiliares(objRH)
+            objRH.Dispose()
+
+            CargaFamiliares()
+
+
+
+        Else
+            DTFamiliares.Rows(IndexActual).Delete()
+            DTFamiliares.AcceptChanges()
+            GvFamiliares.DataSource = DTFamiliares
+            GvFamiliares.DataBind()
+            UPTabFamiliares.Update()
+        End If
+        IndexActual = -1
+
+    End Sub
+
+    Private Sub ProcesaDTFamiliares(ByRef objRH As ClsRH)
+
+        'Dim objRH As New ClsRH
+
+        ValPadre = False
+        ValMadre = False
+
+        For Each dRow As DataRow In DTFamiliares.Rows
+
+
+
+            If dRow("Accion").ToString() = "1" Then 'Actualiza
+
+                Dim Beneficiario As Integer = -1
+
+                If Boolean.Parse(dRow("Beneficiario").ToString()) Then
+                    Beneficiario = 1
+                Else
+                    Beneficiario = 0
+                End If
+
+
+                objRH.PersonalFamiliaresUpdate(dRow("CveFamiliar").ToString().ToEntero, CvePersonal, dRow("CveParentesco").ToString().ToEntero, dRow("Nombre").ToString(), dRow("Domicilio").ToString(), dRow("Edad").ToString().ToEntero, dRow("Ocupacion").ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString(), If(dRow("Observaciones").ToString().Trim = "", "-1", dRow("Observaciones").ToString().Trim), Beneficiario)
+
+            End If
+            If dRow("Accion").ToString() = "2" Then 'Inserta
+
+
+                Dim Beneficiario As Boolean = Boolean.Parse(dRow("Beneficiario").ToString())
+
+
+
+                objRH.PersonalFamiliaresAdd(CvePersonal, dRow("CveParentesco").ToString().ToEntero, dRow("Nombre").ToString(), dRow("Domicilio").ToString(), dRow("Edad").ToString().ToEntero, dRow("Ocupacion").ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString(), If(dRow("Observaciones").ToString().Trim = "", "-1", dRow("Observaciones").ToString().Trim), Beneficiario)
+
+            End If
+
+            If dRow("CveParentesco").ToString().ToEntero = 1 Then
+                ValPadre = True
+            End If
+
+            If dRow("CveParentesco").ToString().ToEntero = 2 Then
+                ValMadre = True
+            End If
+
+            If dRow("Accion").ToString() = "3" Then 'Borra
+                objRH.PersonalFamiliaresRemove(dRow("CveFamiliar").ToString().ToEntero, -1)
+            End If
+
+        Next
+
+        'objRH.Dispose()
+
+    End Sub
+
+#End Region
+
+
+    Protected Sub DdlTipoAsistencias_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim ddl As DropDownList = DirectCast(sender, DropDownList)
+        Dim gvrow As GridViewRow = DirectCast(ddl.NamingContainer, GridViewRow)
+        If ddl.SelectedItem.Text = "Retardo" Then
+            gvrow.FCTextBox("TxtPorPago").Text = "87.5"
+        End If
+    End Sub
+    Protected Sub LnkGuardarFonacot_Click(sender As Object, e As EventArgs)
+        Dim importe As Double = TxtFonValor.Text.ToDouble()
+        Dim TipoAplicacion As Integer = DdlFonTipoAplicacion.SelectedValue.ToEntero()
+        Dim NoPagos As Integer = 0
+        Dim SaldoIni As Double = 0
+        Dim descripcion02 As String = TxtFonDescripcion.Text
+        Dim descripcion01 As String = TxtFonNumCredito.Text
+        Dim fecha As String = TxtFonFechaInicio.Text.Replace("_", "")
+        Dim estatus As Integer = If(ChkFonacot.Checked, 1, 0)
+
+        If fecha.Length > 8 Then
+            fecha = fecha.ToDateTime().ToString("yyyy/MM/dd")
+        Else
+            fecha = ""
+        End If
+
+        Dim continuar As Boolean = True
+
+        Using ObjPersonal As ClsRH = New ClsRH()
+            If Not ObjPersonal.AddConcepto(CvePersonal, -1, importe, TipoAplicacion, NoPagos, SaldoIni, UsuarioActual.CveUsuario, 4, descripcion01, descripcion02, fecha, "", estatus, UsuarioActual.CveEmpresa) Then continuar = False
+        End Using
+
+        If continuar Then
+            Alert("Se actualizo el calculo de fonacot")
+        End If
+    End Sub
+    Protected Sub LnkCalcularFactor_Click(sender As Object, e As EventArgs)
+        getdatosFI()
+        RegistraScript("$('#DmodalFactordeIntegraccion').modal()")
+    End Sub
+    Private Sub getdatosFI()
+
+        If TxtFIAguinaldo.Text = "0" Or TxtFIAguinaldo.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
+            TxtFIAguinaldo.Text = "15"
+        End If
+        If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Or TxtFIAguinaldo.Text = "-1" Then
+            TxtFIPrimaVacacional.Text = "25"
+        End If
+
+        TxtFISalariodiario.Text = TxtSalarioDiario.Text
+        TxtFactordeIntegracion.Text = ""
         TxtFISalarioDiarioIntegrado.Text = ""
         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
             TxtFIDiasVacaciones.Text = "6"
@@ -6241,49 +6257,49 @@ Partial Class RH_Personal
                     End If
                 End If
             End Using
-        End If
+        End If
         UpFactordeintegracion.Update()
-    End Sub
+    End Sub
     Private Sub calcularSDI()
-        Dim SD As Decimal = TxtFISalariodiario.Text.ToDecimal()
-        Dim primav As Decimal = TxtFIPrimaVacacional.Text.ToDecimal()
-        Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal()
-        Dim diasaguinaldo As Decimal = TxtFIAguinaldo.Text.ToDecimal()
-        Dim FI As Decimal = (365 + diasaguinaldo + (DiasVacaciones * (primav / 100))) / 365
-        Dim SDI As Decimal = (SD * FI)
-        TxtFactordeIntegracion.Text = FI.ToString()
-        TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI)
+        Dim SD As Decimal = TxtFISalariodiario.Text.ToDecimal()
+        Dim primav As Decimal = TxtFIPrimaVacacional.Text.ToDecimal()
+        Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal()
+        Dim diasaguinaldo As Decimal = TxtFIAguinaldo.Text.ToDecimal()
+        Dim FI As Decimal = (365 + diasaguinaldo + (DiasVacaciones * (primav / 100))) / 365
+        Dim SDI As Decimal = (SD * FI)
+        TxtFactordeIntegracion.Text = FI.ToString()
+        TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI)
         UpFactordeintegracion.Update()
-    End Sub
+    End Sub
     Protected Sub LnkCalcularFactordeintegracion_Click(sender As Object, e As EventArgs)
         calcularSDI()
-        Alert(String.Format(" salario diario integreado {0}", TxtFISalarioDiarioIntegrado.Text))
-    End Sub
-    Protected Sub LnkCalcularFactordeintegracionyguardar_Click(sender As Object, e As EventArgs)
-        calcularSDI()
-
-        Using ObjPersonal As ClsRH = New ClsRH()
-            If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
-                TxtSalarioDiario.Text = TxtFISalariodiario.Text
-                TxtSalarioDiarioM.Text = TxtFISalariodiario.Text
-                'TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text
-                'TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
-                TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
-                TxtSDI.Text = TxtFISalarioDiarioIntegrado.Text
-                UpDatos.Update()
+        Alert(String.Format(" salario diario integreado {0}", TxtFISalarioDiarioIntegrado.Text))
+    End Sub
+    Protected Sub LnkCalcularFactordeintegracionyguardar_Click(sender As Object, e As EventArgs)
+        calcularSDI()
+
+        Using ObjPersonal As ClsRH = New ClsRH()
+            If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
+                TxtSalarioDiario.Text = TxtFISalariodiario.Text
+                TxtSalarioDiarioM.Text = TxtFISalariodiario.Text
+                'TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text
+                'TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
+                TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
+                TxtSDI.Text = TxtFISalarioDiarioIntegrado.Text
+                UpDatos.Update()
                 Alert("Se ha actualizado el salario diario integreado")
-                RegistraScript("$('#DmodalFactordeIntegraccion').modal('hide')")
-            End If
-        End Using
-    End Sub
-    Protected Sub ChkEstemporal_CheckedChanged(sender As Object, e As EventArgs)
-
-        Using ObjPersonal As ClsRH = New ClsRH()
-            If ObjPersonal.Updateestemporal(CvePersonal, UsuarioActual.CveEmpresa, ChkEstemporal.Checked) Then
-                Alert("Se ha actualizado el empleado", TipoMensaje.ToastInformacion)
-            End If
-        End Using
-    End Sub
+                RegistraScript("$('#DmodalFactordeIntegraccion').modal('hide')")
+            End If
+        End Using
+    End Sub
+    Protected Sub ChkEstemporal_CheckedChanged(sender As Object, e As EventArgs)
+
+        Using ObjPersonal As ClsRH = New ClsRH()
+            If ObjPersonal.Updateestemporal(CvePersonal, UsuarioActual.CveEmpresa, ChkEstemporal.Checked) Then
+                Alert("Se ha actualizado el empleado", TipoMensaje.ToastInformacion)
+            End If
+        End Using
+    End Sub
     Protected Sub LnkModificarSalarioGuardar_Click(sender As Object, e As EventArgs)
 
         getdatosFI()
@@ -6291,32 +6307,32 @@ Partial Class RH_Personal
         TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
         calcularSDI()
         TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
-        TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
-        Using ObjPersonal As ClsRH = New ClsRH()
+        TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
+        Using ObjPersonal As ClsRH = New ClsRH()
             If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
-
-
-                TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
-                TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
-                TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
-                TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
+
+
+                TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
+                TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
+                TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
+                TxtSDI.Text = TxtSalarioDiarioIntegrado.Text
                 TxtFISalarioDiarioIntegrado.Text = TxtSalarioDiarioIntegrado.Text
 
                 UpModSalario.Update()
-                UpDatos.Update()
-                Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
-            End If
-        End Using
-
-    End Sub
-    Protected Sub LnkModsalario_Click(sender As Object, e As EventArgs)
-
-        TxtFechamodSalario.Text = DateTime.Now.ToString("dd/MM/yyyy")
-        TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
-        TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
-        TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
-        RegistraScript("$('#Dmodamodificarsalario').modal()")
-        UpModSalario.Update()
+                UpDatos.Update()
+                Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
+            End If
+        End Using
+
+    End Sub
+    Protected Sub LnkModsalario_Click(sender As Object, e As EventArgs)
+
+        TxtFechamodSalario.Text = DateTime.Now.ToString("dd/MM/yyyy")
+        TxtSalarioDiarioM.Text = TxtSalarioDiario.Text
+        TxtSalarioDiarioImSS.Text = TxtSalarioCotizado.Text
+        TxtSalarioDiarioIntegrado.Text = TxtSDI.Text
+        RegistraScript("$('#Dmodamodificarsalario').modal()")
+        UpModSalario.Update()
     End Sub
     Protected Sub LnkDescargaFormatoParametros_Click(sender As Object, e As EventArgs)
 
@@ -6334,26 +6350,26 @@ Partial Class RH_Personal
         Next
 
 
-        Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory
-        Dim PathSource As String
-        Dim pathDesti As String
-
-        PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & DocumentoParametros
-        pathDesti = PathRoot & "Temp\" & CvePersonal & DocumentoParametros
-
-        If File.Exists(pathDesti) Then
-            File.Delete(pathDesti)
-        End If
-
-        File.Copy(PathSource, pathDesti)
-
+        Dim PathRoot As String = AppDomain.CurrentDomain.BaseDirectory
+        Dim PathSource As String
+        Dim pathDesti As String
+
+        PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & DocumentoParametros
+        pathDesti = PathRoot & "Temp\" & CvePersonal & DocumentoParametros
+
+        If File.Exists(pathDesti) Then
+            File.Delete(pathDesti)
+        End If
+
+        File.Copy(PathSource, pathDesti)
+
         Dim objDoc As New clsGemBoxDocument(pathDesti)
         objDoc.SustituirTags(ListaTagsDocumentost)
-        objDoc.Guardar(pathDesti)
-
-        Dim fileinfo As New FileInfo(pathDesti)
-
-        Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
+        objDoc.Guardar(pathDesti)
+
+        Dim fileinfo As New FileInfo(pathDesti)
+
+        Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
         baseUrl = baseUrl & "/temp/" & fileinfo.Name
 
         RegistraScript("$('#DVDescargaDocumentoParametrosModal').modal('hide')", "500")
@@ -6370,4 +6386,4 @@ Partial Class RH_Personal
         End If
         ObjBancos.Dispose()
     End Sub
-End Class
+End Class
diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx
index 3ce799f59..c573d0a37 100644
--- a/TareasProgramadas/Tareas119.ashx
+++ b/TareasProgramadas/Tareas119.ashx
@@ -29,7 +29,9 @@ public class TareasJam : IHttpHandler
                 retorno  = PruebaConexionFTP("ftp://us2.hostedftp.com/", "agrojam", "A12345678");
                 break;
             case "EjecutaThalamus":
-                retorno =EjecutaThalamus(CveEmpresa);
+
+                retorno = EjecutaThalamus(CveEmpresa, context);
+
                 break;
             default:
                 break;
@@ -46,10 +48,12 @@ public class TareasJam : IHttpHandler
         context.Response.End();
 
     }
-    private bool EjecutaThalamus(int CveEmpresa)
+    private bool EjecutaThalamus(int CveEmpresa, HttpContext context)
     {
 
 
+
+
         this.GuardaLog("EjecutaThalamus: Inicio. ");
 
         bool Respuesta = false;
@@ -371,6 +375,7 @@ public class TareasJam : IHttpHandler
                 ErrorProceso = true;
                 Respuesta = false;
             }
+           
 
             if (!ErrorProceso)
             {
@@ -494,7 +499,13 @@ public class TareasJam : IHttpHandler
 
 
         this.GuardaLog($"EjecutaThalamus: Enviado correo. ");
-        MandaCorreo(Cuerpo, Respuesta, RutaProductos, RutaVentas, RutaClientes, RutaAlmacenes);
+
+
+        if (Respuesta)
+        {
+            MandaCorreo(Cuerpo, Respuesta, RutaProductos, RutaVentas, RutaClientes, RutaAlmacenes);
+        }
+
 
         this.GuardaLog($"EjecutaThalamus: Tarea terminada se regresa respuesta {Respuesta.ToString()}. ");
         return Respuesta;
diff --git a/Ventas/CatMetasVendedores.aspx b/Ventas/CatMetasVendedores.aspx
index 98b8d61e6..555c0f8b9 100644
--- a/Ventas/CatMetasVendedores.aspx
+++ b/Ventas/CatMetasVendedores.aspx
@@ -46,7 +46,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText ="Clasificacion">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlClasificacion" runat="server" Text='<%# Eval("Clasificacion", "&nbsp;{0}") %>'></asp:Literal>
+                            <asp:Literal ID="LtlClasificacion" runat="server" Text='<%# Eval("Clasificacion", "{0}") %>'></asp:Literal>
                         </ItemTemplate>
                         <EditItemTemplate>
                             <asp:TextBox ID="TxtClasificacion" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Clasificacion") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
@@ -56,7 +56,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText ="Marca" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlMarca" runat="server" Text='<%# Eval("Marca", "&nbsp;{0}") %>'></asp:Literal>
+                            <asp:Literal ID="LtlMarca" runat="server" Text='<%# Eval("Marca", "{0}") %>'></asp:Literal>
                         </ItemTemplate>
                         <EditItemTemplate>
                             <asp:TextBox ID="TxtMarca" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Marca") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
@@ -66,7 +66,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText ="MesAño">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlMesAño" runat="server" Text='<%# Eval("MesAño", "&nbsp;{0}") %>'></asp:Literal>
+                            <asp:Literal ID="LtlMesAño" runat="server" Text='<%# Eval("MesAño", "{0:mm/yyyy}") %>'></asp:Literal>
                         </ItemTemplate>
                         <EditItemTemplate>
                             <asp:TextBox ID="TxtMesAño" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("MesAño") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
@@ -76,7 +76,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText ="Meta Cantidad">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlMetaCantidad" runat="server" Text='<%# Eval("MetaCantidad", "&nbsp;{0}") %>'></asp:Literal>
+                            <asp:Literal ID="LtlMetaCantidad" runat="server" Text='<%# Eval("MetaCantidad", "{0}") %>'></asp:Literal>
                         </ItemTemplate>
                         <EditItemTemplate>
                             <asp:TextBox ID="TxtMetaCantidad" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("MetaCantidad") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
@@ -86,7 +86,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText ="Meta Importe">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlMetaImporte" runat="server" Text='<%# Eval("MetaImporte", "&nbsp;{0}") %>'></asp:Literal>
+                            <asp:Literal ID="LtlMetaImporte" runat="server" Text='<%# Eval("MetaImporte", "{0}") %>'></asp:Literal>
                         </ItemTemplate>
                         <EditItemTemplate>
                             <asp:TextBox ID="TxtMetaImporte" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("MetaImporte") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 4a8e19e4e..28094c1f9 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1336,10 +1336,10 @@ Partial Class Ventas_ClientesAbonar
                                                 If FuncionalidadFluctuacionImpuestos Then
                                                     Dim TCImpuestos As Decimal = tipoCambioPago
 
-                                                    Diferencia -= ((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA
-                                                    Diferencia += ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA
-                                                    Diferencia += ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR
-                                                    Diferencia -= ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS
+                                                    Diferencia -= (((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("IVA").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IVA
+                                                    Diferencia -= (((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetIVA
+                                                    Diferencia -= (((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetISR
+                                                    Diferencia -= (((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IEPS
                                                     Diferencia = Math.Round(Diferencia, 2)
                                                 End If
 
diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb
index 458f35336..93278664a 100644
--- a/Ventas/MetasVendedores.aspx.vb
+++ b/Ventas/MetasVendedores.aspx.vb
@@ -37,11 +37,11 @@ Partial Class MetasVendedores
 
         DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedorFiltro.DataBind()
-        DdlVendedorFiltro.Items.Insert(0, New ListItem("Seleccionar", "-1"))
+        DdlVendedorFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
 
         DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoria.DataBind()
-        DdlCategoria.Items.Insert(0, New ListItem("Seleccionar", "-1"))
+        DdlCategoria.Items.Insert(0, New ListItem("Todos", "-1"))
 
         DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificaciones.DataBind()
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index d83ba7ada..a0a12b138 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -575,6 +575,10 @@
                                             <label>Retiene 6% de IVA por Servicios</label>
                                             <asp:CheckBox ID="ChkEsOutSourcing" CssClass="make-switchsd" data-size="small" runat="server" Checked="False" />
                                         </div>
+                                        <div class="form-group form-md-line-input input-iconright" title="El precio no está determinado por el valor de la lista de precio, este es manual.">
+                                            <label>Precio Libre de Lista</label>
+                                            <asp:CheckBox ID="ChkPrecioLibre" CssClass="make-switchsd" data-size="small" runat="server" Checked="False" />
+                                        </div>
                                     </div>
                                 </div>
                             </div>
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 4526e1692..d3e678596 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -901,6 +901,7 @@ Partial Class ProductosyServicios
 
                 LnkUnificar.Visible = True
                 ChkEsOutSourcing.Checked = ObjProductosServicios.EsOutSourcing
+                ChkPrecioLibre.Checked = ObjProductosServicios.PrecioLibre
             Else
                 Alert("El Producto o Servicio Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                 RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
@@ -1237,7 +1238,7 @@ Partial Class ProductosyServicios
                                            CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
                                            CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                            ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
-                                           ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero()) > 0 Then
+                                           ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) > 0 Then
                 ViewState("CvePS") = ObjProductosServicios.CvePS
                 For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                     If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1286,7 +1287,7 @@ Partial Class ProductosyServicios
                                               CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                               ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                               ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
-                                              AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero()) Then
+                                              AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) Then
 
                 If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                     TieneError = True
diff --git a/Ventas/RepRecuperacion.aspx b/Ventas/RepRecuperacion.aspx
index 6e0db6b77..502929933 100644
--- a/Ventas/RepRecuperacion.aspx
+++ b/Ventas/RepRecuperacion.aspx
@@ -178,6 +178,37 @@
                                 <asp:ListItem Text="No" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+
+                            <div class="col-md-1 truncate">Fecha Inicio: </div>
+                            <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;">
+                                    <asp:TextBox Width="80px" ID="TxtFechaAplicadoI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioAplicadoI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaAplicadoI" runat="server" TargetControlID="TxtFechaAplicadoI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaAplicadoI" PopupButtonID="imgCalendarioAplicadoI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaAplicadoI" runat="server" ControlToValidate="TxtFechaAplicadoI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaAplicadoI" runat="server" ControlToValidate="TxtFechaAplicadoI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <div class="col-md-1 truncate">Fecha Fin: </div>
+                            <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;">
+                                    <asp:TextBox Width="80px" ID="TxtFechaAplicadoF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioAplicadoF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaAplicadoF" runat="server" TargetControlID="TxtFechaAplicadoF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender2" TargetControlID="TxtFechaAplicadoF" PopupButtonID="imgCalendarioAplicadoF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaAplicadoF" runat="server" ControlToValidate="TxtFechaAplicadoF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaAplicadoF" runat="server" ControlToValidate="TxtFechaAplicadoF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFAplicadoF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaAplicadoF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
                     </div>
                 </div>
             </div>
diff --git a/Ventas/RepRecuperacion.aspx.vb b/Ventas/RepRecuperacion.aspx.vb
index 70e2d6926..d6303d9a0 100644
--- a/Ventas/RepRecuperacion.aspx.vb
+++ b/Ventas/RepRecuperacion.aspx.vb
@@ -121,16 +121,21 @@ Partial Class Ventas_RepRecuperacion
 
     Private Sub CargaDatos()
         Dim ObjMovtos As New ClsMovimientos()
+
         If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
             TCEspecifico = TxtEspecifico.Text.ToDecimal
         Else
             TCEspecifico = -1
-        End If
-
+        End If
+
+        Dim FechaAplicadoI As Date = If(IsDate(TxtFechaAplicadoI.Text), TxtFechaAplicadoI.Text.ToDate, MinFecha)
+        Dim FechaAplicadoF As Date = If(IsDate(TxtFechaAplicadoF.Text), TxtFechaAplicadoF.Text.ToDate, MaxFecha)
+
+
         If ObjMovtos.GetRepRecuperacion(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
                                         "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue.ToString, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero,
                                         EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                        EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero()) Then
+                                        EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF) Then
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados
         Else
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index fe76a8aab..38f0a6c74 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7497,8 +7497,8 @@ Partial Class Ventas
 
             If TxtKilometraje.Text.ToEntero() = 0 Then
                 'cuando es la clasificacion de llantas
-                Dim FaltaObservacion As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero()
-                If FaltaObservacion = 20342 Then
+                Dim FaltaObservacion As Integer = TmpDT.MAX("CveClasificacion", "Clasificacion like '%Llanta%'").ToEntero '.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero()
+                If FaltaObservacion > 0 Then 'sino se ha especificado km cuando tiene al clasif llanta
                     Alert("No se ha especificado el <strong>kilometraje</strong>.", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
diff --git a/vwd.webinfo b/vwd.webinfo
index bd42eb477..d553518ff 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -170,6 +170,10 @@
     
   
     
+  
+    
+  
+