From 93f84142d3a3bccbf5cd6164419f507f41314e7b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 3 Feb 2021 22:31:41 -0700
Subject: [PATCH 01/23] -- recepion de traspaso E140 invertir la impresion de
 almacenes

---
 Compras/PopUpVerFactura.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 1cd5bf0c5..f70555c28 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))

From fec50f52f96e342296f86ec06e4c855503886512 Mon Sep 17 00:00:00 2001
From: HECTOR JAVIER RODRIGUEZ FLORES <hecttor201@gmail.com>
Date: Thu, 4 Feb 2021 13:04:49 -0700
Subject: [PATCH 02/23] Modulo generar depreciacion

---
 AF/RepDepreciacion.aspx    | 38 ++++++++++++++++-
 AF/RepDepreciacion.aspx.vb | 83 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 120 insertions(+), 1 deletion(-)

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"

From 914d659ce6ceb44641978118c63d252fd43d9040 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 Feb 2021 13:05:09 -0700
Subject: [PATCH 03/23] campo preciolibre

---
 App_Code/ClsProductosServicios.vb | 2 +-
 Compras/Compras.aspx.vb           | 2 +-
 Ventas/ProductosServicios.aspx    | 4 ++++
 Ventas/ProductosServicios.aspx.vb | 5 +++--
 4 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index 0c327b82a..8afea1057 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -307,7 +307,7 @@ Public Class ClsProductosServicios
                 ClaveImpuestoUnidadMedida = Data.Rows(0)("ClaveImpuestoUM").ToString
                 ClaveCategoriaToxicidad = Data.Rows(0)("ClaveCategoriaToxicidad").ToString
                 EsOutSourcing = Data.Rows(0)("EsOutSourcing").ToString = "True"
-                EsOutSourcing = Data.Rows(0)("PrecioLibre").ToString = "True"
+                PrecioLibre = Data.Rows(0)("PrecioLibre").ToString = "True"
 
             End If
             Retorno = True
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 12b6e23e7..e568e6b2e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -19628,7 +19628,7 @@ Private Sub CargaNCINV()
         If DdlFletes.SelectedValue.ToEntero > 0 Then
             Dim ObjInventario As New ClsInventarios
             Dim Dr As DataRow = Nothing
-            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero) Then
+            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero, OpcionInventario:=1) Then
                 If ObjInventario.DtResultados.Rows.Count > 0 Then
                     Dr = ObjInventario.DtResultados.Rows(0)
                 End If
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

From 0cbe4570a6488f1ef0d667f04ba49981b49159ee Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 Feb 2021 13:05:27 -0700
Subject: [PATCH 04/23] se agrego otro tipo de almacen al listado de almacenees

---
 Inventarios/AjustesSeccionAlmacen.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index 9fc766030..262c974ff 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()

From b9634f35775fbaabe779c74bb641509899d89c2b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 Feb 2021 13:06:05 -0700
Subject: [PATCH 05/23] dev al provv, de almacen apoyo logistico

---
 Inventarios/RecepcionAlmacen.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 705787fee..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

From 96b4072f15e1a07f8f258c954d15096f21eff9df Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 Feb 2021 13:06:23 -0700
Subject: [PATCH 06/23] =?UTF-8?q?liberaci=C3=B3n=20de=20resguardo,=20que?=
 =?UTF-8?q?=20considere=20serie?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 RH/Personal.aspx    |    11 +-
 RH/Personal.aspx.vb | 12160 +++++++++++++++++++++---------------------
 2 files changed, 6093 insertions(+), 6078 deletions(-)

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 55f7be7e1..0224875e2 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1,948 +1,948 @@
-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()
+    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()
         Dim fechainicioasistencia As String
         Dim fechaFinasistencia As String
         If Now.Day >= 15 Then
@@ -952,153 +952,153 @@ Partial Class RH_Personal
             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
+        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 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"
+#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))
@@ -1109,2730 +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
+        '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
-#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
+
+    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
+
+#Region "Buzón de Calidad"
+
+
+    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)
-
+    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
+#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
+
+
+
 
 
-#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
+#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
 
 
-#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"
+    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
 
-    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
+#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")
 
 
@@ -3863,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
@@ -5178,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
@@ -5440,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"
@@ -6251,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()
@@ -6301,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)
 
@@ -6344,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")
@@ -6380,4 +6386,4 @@ Partial Class RH_Personal
         End If
         ObjBancos.Dispose()
     End Sub
-End Class
+End Class

From f5ae88b1f861092b6e6d134a27d4b4f03783036e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 Feb 2021 13:07:44 -0700
Subject: [PATCH 07/23] filtrar indirectos con entradas de almacen

---
 App_Code/ClsInventarios.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)

From c481a8af4df3c910e373996d81083b036cb2e1fd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 11:45:17 -0700
Subject: [PATCH 08/23] =?UTF-8?q?--=20columnas=20nuevas=20Descripci=C3=B3n?=
 =?UTF-8?q?=20y=20subproyecto?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/RepSolicitudesAnticipo.aspx | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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>

From bcbe3ff2ed58791ca32e0cd8c081a24525e21390 Mon Sep 17 00:00:00 2001
From: HECTOR JAVIER RODRIGUEZ FLORES <hecttor201@gmail.com>
Date: Fri, 5 Feb 2021 11:46:36 -0700
Subject: [PATCH 09/23] Cambios en reporte: Acepto ajuste

---
 Empresas/141/Formatos/Factura.rdlc | 56 ++++++++++++++++++++++++++----
 1 file changed, 50 insertions(+), 6 deletions(-)

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 />

From 92177a451863225def74edb3e64139036d42daaf Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 5 Feb 2021 15:46:02 -0700
Subject: [PATCH 10/23] Correcion al pagar dollares

---
 Bancos/ProveedoresAbonar.aspx.vb | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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();")

From b6315598175c5c47ffc19420cd597c9f0459daf9 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 5 Feb 2021 16:33:00 -0700
Subject: [PATCH 11/23] 153  formato Cotizacion se agrega columna Tiempo de
 entraga

---
 Empresas/153/Formatos/Cotizacion.rdlc | 3397 +++++++++++++++++++++++++
 1 file changed, 3397 insertions(+)
 create mode 100644 Empresas/153/Formatos/Cotizacion.rdlc

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

From efc17c83bf42ec9d92ea905ee6525a00451e81c5 Mon Sep 17 00:00:00 2001
From: HECTOR JAVIER RODRIGUEZ FLORES <hecttor201@gmail.com>
Date: Fri, 5 Feb 2021 19:13:04 -0700
Subject: [PATCH 12/23] Reporte recuperacion, agregar filtros para la
 fechaaplicado

---
 App_Code/ClsMovimientos.vb     |  7 +++++--
 Ventas/RepRecuperacion.aspx    | 31 +++++++++++++++++++++++++++++++
 Ventas/RepRecuperacion.aspx.vb | 11 ++++++++---
 3 files changed, 44 insertions(+), 5 deletions(-)

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/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

From 538e8511ad7106bf29919bc5190eeeeb4d33a1f0 Mon Sep 17 00:00:00 2001
From: HECTOR JAVIER RODRIGUEZ FLORES <hecttor201@gmail.com>
Date: Fri, 5 Feb 2021 19:13:47 -0700
Subject: [PATCH 13/23] Cambio en reporte, agregando los campos de descripcion
 y subproyecto

---
 .../Grales/Formatos/RepSolicitudAnticipo.rdlc | 1951 +++++++++--------
 1 file changed, 1062 insertions(+), 889 deletions(-)

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>

From 290299c2261e28a77743eec4bd028dc52590a0ed Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 20:17:48 -0700
Subject: [PATCH 14/23] activar registro seccion ps almacen

---
 Inventarios/AjustesSeccionAlmacen.aspx.vb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index 262c974ff..3ba282c5d 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -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

From 1258713ea16e8e1f4b07c55868b7e054aa06f900 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 20:18:04 -0700
Subject: [PATCH 15/23] sino se define el concepto 30, que no registre ie

---
 Contabilidad/RegPrePoliza.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)

From f60b83491808a68d288c354668eff14278f34afd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 20:19:56 -0700
Subject: [PATCH 16/23] =?UTF-8?q?ajuste=20en=20pago=20de=20dlls,=20con=20r?=
 =?UTF-8?q?etenciones,=20en=20fluctuaci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/PopIEVentas.aspx.vb    | 8 ++++----
 Ventas/ClientesAbonar.aspx.vb | 8 ++++----
 2 files changed, 8 insertions(+), 8 deletions(-)

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/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
 

From 5c9eaf03aa90960d0e214eca309f613e77d190da Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 20:20:47 -0700
Subject: [PATCH 17/23] aplicar NC, sobre un Anticipo

---
 Compras/Compras.aspx.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index e568e6b2e..8ad8229a3 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
@@ -19628,7 +19628,7 @@ Private Sub CargaNCINV()
         If DdlFletes.SelectedValue.ToEntero > 0 Then
             Dim ObjInventario As New ClsInventarios
             Dim Dr As DataRow = Nothing
-            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero, OpcionInventario:=1) Then
+            If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero) Then
                 If ObjInventario.DtResultados.Rows.Count > 0 Then
                     Dr = ObjInventario.DtResultados.Rows(0)
                 End If
@@ -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

From e2f73af1c9c8bcbfaf192eb6ae2c03b3b14c1715 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 20:21:14 -0700
Subject: [PATCH 18/23] cambio texto

---
 Ventas/MetasVendedores.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb
index 41c71e9c0..8c29c7032 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()

From d6b1bebeae669467ccfed8509f69e2e5bf728c03 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 20:23:39 -0700
Subject: [PATCH 19/23] =?UTF-8?q?-filteredtext=20en=20kilometraje,=20solo?=
 =?UTF-8?q?=20numericos=20--=20correcion=20de=20la=20=20clasifccai=C3=B3n?=
 =?UTF-8?q?=20de=20ajuste,=20y=20no=20por=20CveClasificacion?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx    | 5 ++++-
 Ventas/Ventas.aspx.vb | 4 ++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 3ea56173b..42467113e 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3493,7 +3493,10 @@
                             </tr>
                             <tr align="left" id="TrKilometraje" runat="server" visible="false">
                                 <td>Kilometraje&nbsp;                                        
-                                                <asp:TextBox ID="TxtKilometraje" runat="server" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
+                                                <asp:TextBox ID="TxtKilometraje" runat="server" Width="250px" CssClass="form-control input-sm" MaxLength="7" ></asp:TextBox>
+                                    <ajax:FilteredTextBoxExtender ID="ftkm" runat="server" TargetControlID="TxtKilometraje" FilterType="Custom, Numbers" ValidChars="+-.," />
+
+                                </td>
                             </tr>
                             <tr align="left" id="trCorreoNotif1" runat="server" visible="false">
                                 <td id="Td1" runat="server">Correo Notificación Usuario Final: &nbsp;</td>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1fc29203d..bd3c169d5 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7481,8 +7481,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

From c02367ef93aa5257394f2f86d23cbc8379e6cdd0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 20:24:16 -0700
Subject: [PATCH 20/23] -

---
 Ventas/CatMetasVendedores.aspx | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Ventas/CatMetasVendedores.aspx b/Ventas/CatMetasVendedores.aspx
index 366e385c0..3d23ceae5 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>

From c67f0fa8635dade3b962de8078606ec405844726 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 20:25:44 -0700
Subject: [PATCH 21/23] -

---
 Inventarios/TraspasoAlmacen.aspx.vb | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 021418dfa..ceca7f823 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
@@ -1746,11 +1746,11 @@ Partial Class Inventarios_TraspasoAlmacen
                         TextoError = "Ocurrió un erro 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
+                    '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
@@ -1841,7 +1841,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
 
@@ -2967,7 +2967,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Else
                 Str = String.Format(" AND CveSubProyecto = {0}  ", DrAlmO("CveSubProyecto"))
             End If
-            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("  CveTipoAlmacen NOT IN (3,4,9,10,11,24,27,28) AND Estatus = 'Activo' {0}   ", Str))
+            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("  CveTipoAlmacen NOT IN (3,4,9,10,11,24,28) AND Estatus = 'Activo' {0}   ", Str))
             DdlAlmacenDestino.DataBind()
             DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
 

From 9bf78e812a133592452297233e4f4fd48beb95bf Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 5 Feb 2021 20:30:10 -0700
Subject: [PATCH 22/23] =?UTF-8?q?--=20acomoco=20cancelaci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/IE.aspx | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index cf228a0c4..d8f598c3d 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -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,15 +1178,15 @@
                                     <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-3">
-                                <asp:CheckBox ID="ChkCancelarNegativo" CssClass="md-checksd2" Text="Falta de fondos" TextAlign="Right" runat="server" Visible="false" />
-                            </div>
-                             <div class="col-md-3">
+                            </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 class="col-md-3"  id="DVTipoTransacciónCancelar"  runat="server" visible ="false">
+                                           </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">
@@ -1195,10 +1195,10 @@
                                     <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>
+                            </div>
+                            
 
                         </div>
                     </div>

From 5f02fc373e4996f23369da45738e3c924def500c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 8 Feb 2021 07:58:11 -0700
Subject: [PATCH 23/23] tipomovto dev efectivo, concepto iva

---
 Bancos/IE.aspx.vb | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 63c6a9322..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