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

Acarreos/CatChoferes.aspx

@@ -207,8 +207,17 @@
 
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtResidenciaFiscalOperador" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                            <%--<asp:TextBox ID="TxtResidenciaFiscalOperador" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>--%>
-                                            <label for="<%= TxtResidenciaFiscalOperador.ClientID.ToString()%>">Residencia Fiscal Operador:</label>
+
+                                            <asp:DropDownList runat="server" ID="DdlResidenciaFiscalOperador"  CssClass="form-control select2me"   Width="100%"  >
+                                                <asp:ListItem Value="-1">Seleccione una</asp:ListItem>
+                                                <asp:ListItem Value="MEX">MEX</asp:ListItem>
+                                                <asp:ListItem Value="USA">USA</asp:ListItem>
+                                                <asp:ListItem Value="CAN">CAN</asp:ListItem>
+                                            </asp:DropDownList>                                            
+                                            <asp:RequiredFieldValidator ID="RfvDdlResidenciaFiscalOperador"  InitialValue="-1"  runat="server" CssClass="help-block errorimput" ControlToValidate="DdlResidenciaFiscalOperador" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Residencia Fiscal Operador''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlResidenciaFiscalOperador.ClientID.ToString()%>">Residencia Fiscal Operador:</label>
+                                            <i></i>
                                         </div>
                                     </div>
 

Acarreos/CatChoferes.aspx.vb

@@ -70,6 +70,13 @@ Partial Class Acarreos_CatChoferes
         End If
 
 
+
+        If TxtRFC.Text.Length > 0 And TxtNumRegidTribOperador.Text.Trim.Length > 0 Then
+            Alert("Se debe de proporcionar  RFC O Numero RegidTribOperador elimine uno", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
         If DdlTransportista.SelectedValue = "-1" Then
             Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
         Else
@@ -79,12 +86,12 @@ Partial Class Acarreos_CatChoferes
             If ChkEstatus.Checked Then Estatus = 1
 
             If HdnModalidad.Value = "A" Then
-                If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=CveColonia) Then
+                If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=CveColonia) Then
                     CargaDatos()
                     Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
                 End If
             ElseIf HdnModalidad.Value = "U" Then
-                If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=TxtResidenciaFiscalOperador.Text.Trim, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=CveColonia) Then
+                If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=CveColonia) Then
                     CargaDatos()
                     Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
                 End If
@@ -120,7 +127,9 @@ Partial Class Acarreos_CatChoferes
         TxtLicencia.Text = GvRow.DataKey("Licencia")
 
         TxtNumRegidTribOperador.Text = GvRow.DataKey("NumRegidTribOperador")
-        TxtResidenciaFiscalOperador.Text = GvRow.DataKey("ResidenciaFiscalOperador")
+
+        DdlResidenciaFiscalOperador.SelectedValueExist("-1")
+        DdlResidenciaFiscalOperador.SelectedValueExist(GvRow.DataKey("ResidenciaFiscalOperador"))
 
         DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
 
@@ -193,7 +202,7 @@ Partial Class Acarreos_CatChoferes
         'TxtColonia.Text = ""
 
         TxtNumRegidTribOperador.Text = ""
-        TxtResidenciaFiscalOperador.Text = ""
+        DdlResidenciaFiscalOperador.SelectedValueExist("-1")
 
         DdlColonias.txtText.Value = "Selecione Una"
         DdlColonias.txtValue.Value = "-1"

App_Code/CFDITimbre.vb

@@ -472,7 +472,7 @@ Public Class CFDIComplementoPagosDocsRelacionados
     Public Property Folio As String = ""
     Public Property MonedaDR As String = ""
     Public Property MetodoDePagoDR As String = ""
-    Public Property TipoCambioDR As Double
+    Public Property TipoCambioDR As Decimal
     Public Property NumParcialidad As Integer = 1
     Public Property ImpSaldoAnt As Double
     Public Property ImpPagado As Double

App_Code/ClsClientes.vb

@@ -1455,14 +1455,15 @@ Public Class ClsClientes
             OnError("Ocurrió un error eliminar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return Retorno
-    End Function
+    End Function
-
+
 #End Region
-
+
-
+
 #Region "D I R E C C I O N   D E    E N V I O "
     Public Function DireccionEnvioAdd(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String,
-                                      EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, Optional CveClienteSucursal As Integer = -1, Optional EnvioDepartamento As String = "-1", Optional EnvioTel As String = "-1") As Integer
+                                      EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, Optional CveClienteSucursal As Integer = -1, Optional EnvioDepartamento As String = "-1", Optional EnvioTel As String = "-1",
+                                      Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Integer
         Dim Retorno As Integer = -1
         DataAdapter("PA_Vta_ClientesDireccionesEnvioAdd")
 
@@ -1481,6 +1482,13 @@ Public Class ClsClientes
             .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
+
+            .Add("@CvePais", SqlDbType.Int).Value = CvePais
+            .Add("@CveEstado", SqlDbType.Int).Value = CveEstado
+            .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio
+            .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad
+            .Add("@CveColonia", SqlDbType.Int).Value = CveColonia
+
             .Add("@CveDireccionEnvio", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
@@ -1514,7 +1522,8 @@ Public Class ClsClientes
     End Function
 
     Public Function DireccionEnvioUpdate(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String,
-                                      EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, CveDireccionEnvio As Integer, Optional EnvioDepartamento As String = "-1", Optional CveClienteSucursal As Integer = -1, Optional EnvioTel As String = "-1") As Boolean
+                                      EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, CveDireccionEnvio As Integer, Optional EnvioDepartamento As String = "-1", Optional CveClienteSucursal As Integer = -1, Optional EnvioTel As String = "-1",
+                                         Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_ClientesDireccionesEnvioUpdate")
 
@@ -1534,6 +1543,13 @@ Public Class ClsClientes
             .Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
+
+            .Add("@CvePais", SqlDbType.Int).Value = CvePais
+            .Add("@CveEstado", SqlDbType.Int).Value = CveEstado
+            .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio
+            .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad
+            .Add("@CveColonia", SqlDbType.Int).Value = CveColonia
+
         End With
 
         Try

App_Code/ClsGenerales.vb

@@ -20,6 +20,7 @@ Public Class ClsGenerales
     'REGISTRAR CONEXIONES ABIERTAS
     Private CveConexion As Integer = 0
     Private EsTransaccionCompartida As Boolean = False
+
 #End Region
 
 #Region "Propiedades"
@@ -49,6 +50,10 @@ Public Class ClsGenerales
             DtResultados = Data
         End Get
     End Property
+
+    Public Property FolioInsertado As Integer
+
+    Public Property SerieInsertada As String
 #End Region
 
     Public Function IniciaTransacSQL() As SqlTransaction
@@ -3036,7 +3041,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean
+    Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1, Optional Orden As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_AsignarEntregasPorRealizar")
         With SqlAdapter.SelectCommand.Parameters
@@ -3044,6 +3049,7 @@ Public Class ClsGenerales
             .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CvePersonal
             .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
             .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
+            .Add("@Orden", SqlDbType.Int).Value = Orden
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -3598,5 +3604,173 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 #End Region
+
+
+
+
+#Region "GRAL TIMBRES"
+
+
+    Public Function AddGralTimbre(TipoDocto As String, Serie As String, Folio As Integer, FolioFiscal As String, Fecha As Date, CvePaqueteriaGuia As Integer, CveMovimientoAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+                                      Estatus As Integer, CvePAC As Integer, AplicaCP As Boolean, CveSubProyectoOrigen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date) As Integer
+        Dim Retorno As Integer = -1
+        DataAdapter("PA_Gral_TimbreAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
+            .Add("@Folio", SqlDbType.Int).Value = Folio
+            .Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+            .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
+            .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CvePAC", SqlDbType.Int).Value = CvePAC
+            .Add("@AplicaCP", SqlDbType.Bit).Value = AplicaCP
+            .Add("@CveSubProyectoOrigen", SqlDbType.Int).Value = CveSubProyectoOrigen
+            .Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen
+            .Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino
+            .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
+            .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
+            .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega
+
+            .Add("@CveTimbre", SqlDbType.Int).Direction = ParameterDirection.Output
+            .Add("@FolioInsertado", SqlDbType.Int).Direction = ParameterDirection.Output
+            .Add("@SerieInsertada", SqlDbType.VarChar, 5).Direction = ParameterDirection.Output
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            FolioInsertado = SqlAdapter.SelectCommand.Parameters("@FolioInsertado").Value.ToString.ToEntero
+            SerieInsertada = SqlAdapter.SelectCommand.Parameters("@SerieInsertada").Value.ToString
+
+            Retorno = SqlAdapter.SelectCommand.Parameters("@CveTimbre").Value.ToString.ToEntero
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el timbre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function GetGralTimbre(CveTimbre As Integer, TipoDocto As String, Serie As String, Folio As Integer, FechaI As Date, FechaF As Date, Estatus As Integer, CveEmpresa As Integer, CveMovimiento As Integer, CvePaqueteriaGuia As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_TimbreGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
+            .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
+            .Add("@Folio", SqlDbType.Int).Value = Folio
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
+            .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
+
+
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los timbres.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateGralTimbre(CveTimbre As Integer, TipoDocto As String, Serie As String, Folio As Integer, FolioFiscal As String, Fecha As Date, CvePaqueteriaGuia As Integer, CveMovimientoAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+                                      Estatus As Integer, CvePAC As Integer, CvePACCancelacion As Integer, FechaCancelacion As Date, AplicaCP As Boolean, CveSubProyectoOrigen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer,
+                                      CveChofer As Integer, CveCamion As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_TimbreUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
+            .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@Serie", SqlDbType.VarChar).Value = Serie
+            .Add("@Folio", SqlDbType.Int).Value = Folio
+            .Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+            .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
+            .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CvePAC", SqlDbType.Int).Value = CvePAC
+            .Add("@CvePACCancelacion", SqlDbType.Int).Value = CvePACCancelacion
+            .Add("@FechaCancelacion", SqlDbType.DateTime).Value = FechaCancelacion
+            .Add("@AplicaCP", SqlDbType.Bit).Value = AplicaCP
+            .Add("@CveSubProyectoOrigen", SqlDbType.Int).Value = CveSubProyectoOrigen
+            .Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen
+            .Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
+            .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el timbre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+
+
+    Public Function RemoveGralTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_TimbreRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar Timbre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function GetGralMovimientosDetalleTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
+
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_MovimientosDetalleTimbreGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los movimientos del timbre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
+
+
+#End Region
+
 End Class
 

App_Code/ClsInventarios.vb

@@ -1646,7 +1646,7 @@ Public Class ClsInventarios
     End Function
 
     Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer,
-                                          FiltroFecha As Integer, CvesAlmacenes As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
+                                           CvesAlmacenes As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ProductosCaducidadGet")
@@ -1658,7 +1658,6 @@ Public Class ClsInventarios
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@FiltroFecha", SqlDbType.SmallInt).Value = FiltroFecha
             .Add("@CvesAlmacenes", SqlDbType.VarChar).Value = CvesAlmacenes
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa

App_Code/ClsPaginas.vb

@@ -6844,7 +6844,8 @@ Public Class ClsPaginas
             Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
             CBB.GenerarCBB(UsuarioActual.Empresa.RFC, RFCReceptor, Vta.Total.ToString.ToDecimal, Vta.FolioFiscal, RutaCBB)
         End If
-        ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio)
+        'ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme.Replace("https", "http"), Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio)
+
 
         'Dim CadenaOriginals As String = "||1.0|" + Vta.FolioFiscal + "|" + Vta.FechaCertificacion.ToString("yyyy-MM-dd") + "T" + Vta.FechaCertificacion.ToString("HH:mm:ss") + "|" + Vta.SelloCFDi + "|" + Vta.NoSerieCertificado + "||"
         Dim CadenaOriginals As String = String.Format("||{0}|{1}|{2}T{3}|{4}|{5}||", If(Vta.Version = "3.3", "1.1", "1.0"), Vta.FolioFiscal, Vta.FechaCertificacion.ToString("yyyy-MM-dd"), Vta.FechaCertificacion.ToString("HH:mm:ss"), Vta.SelloCFDi, Vta.NoSerieCertificado)
@@ -6852,6 +6853,11 @@ Public Class ClsPaginas
         Dim RutaFormato As String = ""
         Dim RutaFormatoDefault As String = ""
 
+
+        ImgCBB = $"file://{ImagenCBB.FullName}"
+
+
+
         'AQUI EMPIEZA LOS PARAMETROS
         Try
             Dim params As New List(Of ReportParameter)
@@ -6903,6 +6909,8 @@ Public Class ClsPaginas
             params.Add(New ReportParameter("CadenaSAT", CadenaOriginals))
             params.Add(New ReportParameter("SelloSAT", Vta.SelloSAT))
 
+            'Net.ServicePointManager.SecurityProtocol = Net.ServicePointManager.SecurityProtocol Or Net.SecurityProtocolType.Tls Or Net.SecurityProtocolType.Tls11 Or Net.SecurityProtocolType.Tls12
+
             params.Add(New ReportParameter("QR", ImgCBB))
             params.Add(New ReportParameter("Moneda", Vta.Moneda))
             params.Add(New ReportParameter("TipoCambio", Vta.TipoCambio.ToString))
@@ -7834,14 +7842,19 @@ Public Class ClsPaginas
                 End If
                 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString))
                 Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol)
-                Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={0}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol))
+                Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol))
                 Dim FirmaSol As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", EmpresaActual.Ruta, CveUsuarioSol))
-                params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, RutaVirtuaSol, "")))
+                'params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, RutaVirtuaSol, "")))
+                params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, ImageToBase64(Drawing.Image.FromFile(FirmaSol.FullName), Drawing.Imaging.ImageFormat.Png), "")))
 
                 Dim RutaFisicaAut As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioAut)
                 Dim RutaVirtuaAut As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaAut))
                 Dim FirmaAut As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", EmpresaActual.Ruta, CveUsuarioAut))
-                params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, RutaVirtuaAut, "")))
+                'params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, RutaVirtuaAut, "")))
+                params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, ImageToBase64(Drawing.Image.FromFile(FirmaAut.FullName), Drawing.Imaging.ImageFormat.Png), "")))
+
+
+
 
                 If Archivo.Exists Then
                     bytes = StreamPDF(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta), DtDetalle, params, $"OC_{ObjOC.Folio.ToString}", RDSName:="DsOC", MR:=MR)
@@ -7910,6 +7923,26 @@ Public Class ClsPaginas
         Return bytes
     End Function
 
+
+
+    Public Function ImageToBase64(ByVal image As System.Drawing.Image, ByVal format As System.Drawing.Imaging.ImageFormat) As String
+        Dim base64String As String = ""
+
+
+        Try
+            Using ms As New System.IO.MemoryStream()
+                image.Save(ms, format)
+                Dim imageBytes As Byte() = ms.ToArray()
+                base64String = Convert.ToBase64String(imageBytes)
+            End Using
+        Catch ex As Exception
+            GuardaLog(String.Format("Ocurrio un error al generar convertir la imagen a Base64 {0}", ex.Message))
+        End Try
+
+        Return base64String
+    End Function
+
+
     Public Function NewGeneraOCCotizacion(tCveOrdenCompra As Integer, Optional MR As ReportViewer = Nothing, Optional ConBitacora As Boolean = False) As Byte()
         Dim bytes As Byte() = Nothing
         Dim CveEmpresaActual As Integer

App_Code/ClsRH.vb

@@ -125,6 +125,68 @@ Public Class ClsRH
     End Sub
 #End Region
 
+    Public Function AgroOrigenGet(CveEmpresa As Int32, CveOrigen As Integer, Estatus As Integer, CveTipoNomina As Integer, CveSubProyecto As Integer, GPO As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Agro_OrigenGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CveTipoNomina", SqlDbType.Int).Value = CveTipoNomina
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@GPO", SqlDbType.Int).Value = GPO
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch Ex1 As SqlException
+
+            Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+    Public Function AgroDepartamentosGet(CveEmpresa As Int32, CveDepartamento As Integer, CveTipoTrabajador As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Agro_DepartamentosGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
+            .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch Ex1 As SqlException
+
+            Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+
+    Public Function AgroDepartamentoPersonalUp(CveEmpresa As Int32, CveDepartamento As Integer, CvePersonal As Integer, CharolaForanea As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Agro_DepartamentoPersonalUP", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
+            .Add("@CharolaForanea", SqlDbType.Int).Value = CharolaForanea
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch Ex1 As SqlException
+
+            Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
 #Region "DiasFestivos"
 
     Public Function DiasFestivosGet(CveEmpresa As Int32) As Boolean
@@ -138,9 +200,9 @@ Public Class ClsRH
             retorno = True
         Catch Ex1 As SqlException
 
-            Me.OnError("Ocurrió un error al obtener los días festivos", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Me.OnError("Ocurrió un error al obtener los días festivos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         Catch ex As Exception
-            OnError("Ocurrió un error al Guardar el Tipo de A-I", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un error al obtener los días festivos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return retorno
     End Function

App_Code/ClsSubProyectos.vb

@@ -368,7 +368,8 @@ Public Class ClsSubProyectos
             .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
             .Add("@NoVerificaAlmacen", SqlDbType.Bit).Value = NoVerificaAlmacen
-            .Add("@CodigoSucursal", SqlDbType.VarChar).Value = CodigoSucursal
+            .Add("@CodigoSucursal", SqlDbType.VarChar).Value = CodigoSucursal
+            .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad
 
             .Add("@CveSubProyecto", SqlDbType.Int).Direction = ParameterDirection.Output
         End With

App_Code/Timbrado.vb

@@ -1908,6 +1908,7 @@ Public Class Timbrado
 
         '  cfdi.saltarValidacion("bNtMuvZockPVhEjaPj0E")
         'cfdi.Decimales = 4
+        cfdi.QuitarCerosDecimalDerecha = True ' no limita a 2 decimales, el atributo, de cantidad y precio unitario
 #Region "Certificado"
         cfdi.CertificadoArchivo(ArchivoCertificado)
 #End Region
@@ -1962,7 +1963,7 @@ Public Class Timbrado
 
         If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then
             For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos
-                cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario, concep.Importe, concep.Descuento)
+                cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####"), concep.Importe, concep.Descuento)
                 For Each imp As CFDIConceptosImpuestos In concep.Impuestos
                     If imp.TrasladooRetencion = "T" Then
                         cfdi.ImpuestoConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe)
@@ -2158,8 +2159,8 @@ Public Class Timbrado
                     cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
                     If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
                         For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
-                            cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, concep.Embalaje, concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+                        cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
-                        Next
+                    Next
                     End If
                 End If
 
@@ -2184,8 +2185,9 @@ Public Class Timbrado
 
                     If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
                         For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
-                            cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador)
+                        cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador)
-                        Next
+                        cfdi.CartaPorteOperadorDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
+                    Next
                     End If
 
                 End If
@@ -3711,8 +3713,8 @@ Public Class Timbrado
                     End If
                     ComPag.Pago(0).DoctoRelacionado(i).Folio = doc.Folio
                     ComPag.Pago(0).DoctoRelacionado(i).MonedaDR = doc.MonedaDR
-                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDRSpecified = If(doc.TipoCambioDR.ToDecimal = 0, False, True)
+                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDRSpecified = If(doc.TipoCambioDR = 0, False, True)
-                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDR = doc.TipoCambioDR.ToDecimal
+                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDR = doc.TipoCambioDR
                     ComPag.Pago(0).DoctoRelacionado(i).MetodoDePagoDR = doc.MetodoDePagoDR
                     ComPag.Pago(0).DoctoRelacionado(i).NumParcialidad = doc.NumParcialidad.ToString
 
@@ -3784,9 +3786,8 @@ Public Class Timbrado
 
             ''DATOS GENERALES
             Dim ComCartaPorte = New ProfactCartaPorte.CartaPorte()
-                Dim Transp As ProfactCartaPorte.CartaPorteTranspInternac
+            ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac)
-                ComCartaPorte.TranspInternac = If(Carta.TranspInternac = "No", Transp.No, Transp.Sí)
+            ComCartaPorte.EntradaSalidaMercSpecified = False
-                ComCartaPorte.EntradaSalidaMercSpecified = False
                 ComCartaPorte.ViaEntradaSalidaSpecified = False
                 ComCartaPorte.TotalDistRecSpecified = False
 
@@ -3875,11 +3876,13 @@ Public Class Timbrado
                         If concep.ClaveMaterialPeligroso <> "" Then
                             ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = True
                             ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True
-                        End If
+                            'si lleva material pelgroso, debe llevar embalaje
-                        If concep.Embalaje <> "" Then
                             ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True
                             ComCartaPorte.Mercancias.Mercancia(i).Embalaje = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoEmbalaje), "Item" & concep.Embalaje), ProfactCartaPorte.c_TipoEmbalaje)
+
                         End If
+
+
                         ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje
                         ComCartaPorte.Mercancias.Mercancia(i).PesoEnKg = concep.PesoenKg
                         ComCartaPorte.Mercancias.Mercancia(i).ValorMercanciaSpecified = False

Ashx/SigFiles.ashx

@@ -33,7 +33,9 @@ public class SigFiles : IHttpHandler
                     {
                         mimeType = MimeMapping.GetMimeMapping(path);
                     }
-                    catch (Exception) { }//si truena no existe el arhivo 
+                    catch (Exception ex) {
+                            this.GuardaLog(ex.ToString());
+                    }//si truena no existe el arhivo 
                     context.Response.Clear();
                     context.Response.ClearHeaders();
                     context.Response.ClearContent();

Compras/PopUpVerFactura.aspx.vb

@@ -379,8 +379,8 @@ Partial Class PopUpVerFactura
         End If
 
         If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
-            If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then
+            If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
-                ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVEMOV").ToString.ToEntero)
+                ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero)
             End If
         End If
 
@@ -670,8 +670,10 @@ Partial Class PopUpVerFactura
 
 #Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
     Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
+
         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 Dr As DataRow = Nothing
         Dim ObjContratos As New ClsContratos
         If Not ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Or Not ObjContratos.DtResultados.Rows.Count > 0 Then
@@ -841,12 +843,19 @@ Partial Class PopUpVerFactura
             If Dt.Rows.Count > 0 Then
                 Dim params As New List(Of ReportParameter)
                 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 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", If(Imagen.Exists, ImageToBase64(Drawing.Image.FromFile(Imagen.FullName), Drawing.Imaging.ImageFormat.Png), "")))
-                    params.Add(New ReportParameter("LogoPath", ""))
+
-                End If
+                'If Imagen.Exists Then
+                '    params.Add(New ReportParameter("LogoPath", logouri))
+
+
+                'Else
+                '    params.Add(New ReportParameter("LogoPath", ""))
+                'End If
+
                 params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                 params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -888,8 +897,8 @@ Partial Class PopUpVerFactura
         End If
     End Function
 
-    Private Sub ImprimeFormatoCartaPorteTimbrado(CveMovimiento As Integer)
+    Private Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer)
-        If CveMovimiento > 0 Then
+        If CveTimbre > 0 Then
 
             '01  Autotransporte Federal
             '02  Transporte Marítimo
@@ -935,13 +944,14 @@ Partial Class PopUpVerFactura
             Dim SelloCFDi As String = ""
             Dim SelloSAT As String = ""
 
-            Dim ObjInv As New ClsInventarios
+            Dim ObjInv As New ClsGenerales
-            If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
+
+            If ObjInv.GetGralTimbre(CveTimbre, "-1", "-1", -1, MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1, -1) Then
                 If ObjInv.DtResultados.Rows.Count > 0 Then
                     Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
                     If Dr IsNot Nothing Then
-                        SerieFolio = Dr("Folio").ToString
+                        SerieFolio = Dr("SerieFolio").ToString
-                        Telefono = Dr("Telefono1").ToString
+                        Telefono = Dr("ChrTelefono").ToString
                     End If
                 End If
             End If
@@ -973,7 +983,7 @@ Partial Class PopUpVerFactura
             DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String)))
 
             Dim XMLDoc As New XmlDocument
-            Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Tra", String.Format("Tra-{0}", SerieFolio), "xml")
+            Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Tra", String.Format("{0}", SerieFolio), "xml")
             Dim Archivo As New System.IO.FileInfo(Path)
 
             If Archivo.Exists Then
@@ -992,7 +1002,7 @@ Partial Class PopUpVerFactura
 
             If XMLDoc IsNot Nothing AndAlso Archivo.Exists Then
 
-                Dim RutaCBB As String = String.Format("{0}\CBB\Tra-{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
+                Dim RutaCBB As String = String.Format("{0}\CBB\{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
                 Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
 
                 Dim nodo As XmlNode = XMLDoc.DocumentElement
@@ -1141,7 +1151,7 @@ Partial Class PopUpVerFactura
                     CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB)
                 End If
 
-                ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/Tra-{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, SerieFolio)
+                ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, SerieFolio)
             End If
 
             If DtConceptos.Rows.Count > 0 Then

Compras/eFacturas.aspx.vb

@@ -3282,43 +3282,52 @@ Partial Class Compras_eFacturas
 
             For Each dRow As DataRow In DTGVPagosVinculacion.Rows
 
-
                 If HdnIdDocumento.Value = dRow("IdDocumento").ToString Then  'And dRow("CveIE").ToString.ToEntero <= 0
 
                     dRow("CveIE") = HdnCveIE.Value.ToEntero
 
                     Dim ObjIE As New ClsBancos()
 
-                    'If ObjIE.GetBancosIE(HdnCveIE.Value.ToEntero, UsuarioActual.CveEmpresa) Then
-                    '    Try
-                    '        dRow("FolioPago") = ObjIE.Folio
-                    '        dRow("ImportePago") = dRow("ImpPagado")
-                    '        dRow("FechaPago") = ObjIE.FechaDocumento
-                    '        dRow("Tipo") = "E"
-                    '        ' dRow("Diferencia") = 0D
-                    '        dRow("Manual") = True
-
-                    '    Catch ex As Exception
-
-                    '    End Try
-
-                    'End If
-
                     Dim ObjCompras As New ClsCompras
 
                     If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
 
-                        Try
-                            dRow("FolioPago") = ObjCompras.DtResultados(0)("FolioIE")
-                            dRow("ImportePago") = dRow("ImpPagado")
-                            dRow("FechaPago") = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
-                            dRow("CvePrePolizaDetalle") = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero
-                            dRow("Tipo") = "E"
-                            ' dRow("Diferencia") = 0D
-                            dRow("Manual") = True
-                        Catch ex As Exception
 
-                        End Try
+                        Dim CompraEncontrada As Boolean = False
+
+
+                        For Each drowComparar As DataRow In ObjCompras.DtResultados.Rows
+
+                            If drowComparar("CveCompraPrePoliza").ToString.ToEntero > 0 AndAlso (dRow("CveCompra").ToString.ToEntero = drowComparar("CveCompraPrePoliza").ToString.ToEntero) Then
+                                dRow("FolioPago") = drowComparar("FolioIE")
+                                dRow("ImportePago") = dRow("ImpPagado")
+                                dRow("FechaPago") = drowComparar("Fecha").ToString.ToDate
+                                dRow("CvePrePolizaDetalle") = drowComparar("CvePrePolizaDetalle").ToString.ToEntero
+                                dRow("Tipo") = "E"
+                                dRow("Manual") = True
+                                CompraEncontrada = True
+                                Exit For
+                            End If
+
+                        Next
+
+
+                        If Not CompraEncontrada Then
+
+                            Try
+                                dRow("FolioPago") = ObjCompras.DtResultados(0)("FolioIE")
+                                dRow("ImportePago") = dRow("ImpPagado")
+                                dRow("FechaPago") = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
+                                dRow("CvePrePolizaDetalle") = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero
+                                dRow("Tipo") = "E"
+                                dRow("Manual") = True
+                            Catch ex As Exception
+
+                            End Try
+
+                        End If
+
+
 
                     End If
                     ObjCompras.Dispose()
@@ -3341,89 +3350,6 @@ Partial Class Compras_eFacturas
 
         ValidaTablaDeVinculacion()
 
-        Exit Sub
-
-        '**********************************************************************************************************************
-
-
-
-
-
-        'If HdnCveIE.Value <> "-1" AndAlso IsNumeric(HdnCveIE.Value) AndAlso HdnCveIE.Value.ToEntero > 0 Then
-
-        '    Dim ImportePago As Double = 0
-        '    Dim ImporteIES As Double = 0
-        '    Dim SerieFolioIE As String = ""
-        '    Dim ObjCompras As New ClsCompras
-        '    Dim ErrorVinculacion = True
-
-        '    If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
-
-        '        For Each Drow As DataRow In ObjCompras.DtResultados.Rows
-        '            For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
-
-        '                If GvRow.RowType = DataControlRowType.DataRow Then
-
-        '                    If Drow("CveCompra").ToString.ToEntero = GvRow.DataKey("CveCompra").ToEntero Then
-
-        '                        GvRow.FCLabel("LblCveIE").Text = Drow("CveIE").ToString.ToEntero.ToString
-        '                        GvRow.FCLabel("LblCvePrePolizaDetalle").Text = Drow("CvePrePolizaDetalle").ToString.ToEntero.ToString
-
-        '                    End If
-
-        '                End If
-
-        '            Next
-        '        Next
-
-
-        '        For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
-        '            If GvRow.RowType = DataControlRowType.DataRow Then
-
-        '                If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
-        '                    ErrorVinculacion = False
-
-        '                Else
-
-        '                    If ObjCompras.DtResultados.Rows.Count > 0 Then
-        '                        GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString
-        '                        GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString
-        '                    Else
-        '                        ErrorVinculacion = True
-        '                        Exit For
-        '                    End If
-
-        '                End If
-        '            End If
-
-        '        Next
-
-
-        '    Else
-        '        ErrorVinculacion = True
-        '    End If
-
-        '    If Not ErrorVinculacion Then
-        '        ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
-        '        ObjCompras.Dispose()
-
-        '        BtnVincularPago.Visible = True
-
-        '        LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}"
-        '        LblImportePago.Text = ImportePago.FormatoNumero
-        '        'LblSerieFolioIE.Text = SerieFolioIE
-        '        LblImporteIE.Text = ImporteIES.FormatoNumero
-
-        '        GvVincularPago.DataBind()
-        '        UpVincularPago.Update()
-        '        ObjCompras.Dispose()
-
-        '    Else
-        '        Alert("No se pudo realizar la vinculacion manual", TipoMensaje.MsgAdvertencia)
-        '    End If
-
-
-        'End If
 
     End Sub
 

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -69,13 +69,15 @@
     <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView runat="server" ID="GvDatos" EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover ScrollAD" 
-                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta,CveActivoFijo" AutoGenerateColumns="False" 
+                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta,CveActivoFijo,CveSubProyecto" AutoGenerateColumns="False" 
                 Style=" width:100%" GridLines="None">
                 <Columns>
                     <asp:BoundField DataField="ConceptoContable" ItemStyle-Width="150px" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>
                      <asp:BoundField DataField="Referencia" HeaderText="Referencia" ItemStyle-HorizontalAlign="Left"/>   
                      <asp:BoundField DataField="CuentaCodigo" ItemStyle-Width="100px"  HeaderText="Código Cuenta" ItemStyle-HorizontalAlign="Left"/>      
-                    <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" ItemStyle-HorizontalAlign="Left"/>                   
+                     <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" ItemStyle-HorizontalAlign="Left"/>    
+                     <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-HorizontalAlign="Left"/>
+                     <asp:BoundField DataField="PorcentajeIVA" HeaderText="PorcentajeIVA" ItemStyle-HorizontalAlign="Left"/>
                                    
                     <asp:TemplateField ItemStyle-Width="49px">
                         <ItemTemplate>

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -39,16 +39,21 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         Dim ObjConta As New ClsContabilidad
         If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjConta.DtResultados
-        End If
+        End If
+        GvDatos.Columns(4).Visible = ObjConta.DtResultados.MAX("CveSubProyecto").ToEntero > 0
+        GvDatos.Columns(5).Visible = ObjConta.DtResultados.MAX("PorcentajeIVA").ToDecimal > 0
 
         If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa) Then
             GvGlobal.DataSource = ObjConta.DtResultados
-        End If
+        End If
-
+
+
         ObjConta.Dispose()
         GvDatos.DataBind()
         GvGlobal.DataBind()
         UpDatos.Update()
+
+
     End Sub
 
 
@@ -80,6 +85,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
 
         DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.Items.Insert(0, New ListItem("-", "0"))
 
         Dim ObjBancos As New ClsBancos
         If ObjBancos.GetBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) Then
@@ -129,6 +135,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
             TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
             DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta"))
+            DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
 
             Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
             Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero

Empresas/11/Formatos/OC.rdlc

@@ -1264,7 +1264,7 @@
   <Width>7.79628in</Width>
   <Page>
     <PageFooter>
-      <Height>7.01282cm</Height>
+      <Height>6.5434cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -1577,8 +1577,9 @@
           </Style>
         </Textbox>
         <Image Name="ImgFirmaAutorizo">
-          <Source>External</Source>
+          <Source>Database</Source>
-          <Value>=Parameters!FirmaAutorizo.Value</Value>
+          <Value>=System.Convert.FromBase64String(Parameters!FirmaAutorizo.Value)</Value>
+          <MIMEType>image/png</MIMEType>
           <Sizing>Fit</Sizing>
           <Left>5.61055cm</Left>
           <Height>2.31533cm</Height>
@@ -2186,51 +2187,6 @@
             </Border>
           </Style>
         </Rectangle>
-        <Textbox Name="Textbox46">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Fecha Impresión:</Value>
-                  <Style>
-                    <FontSize>8pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value xml:space="preserve"> </Value>
-                  <Style>
-                    <FontSize>8pt</FontSize>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value>=Today</Value>
-                  <Style>
-                    <FontSize>8pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox8</rd:DefaultName>
-          <Top>6.38636cm</Top>
-          <Left>0.10188cm</Left>
-          <Height>0.46771cm</Height>
-          <Width>6.86562cm</Width>
-          <ZIndex>20</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
       </ReportItems>
       <Style>
         <Border>
@@ -2581,6 +2537,35 @@
     </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
+    <EmbeddedImage Name="VSH">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAAKwAAABhCAIAAADEJd3lAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAEpKSURBVHhe7X0HXBTX9v+lY4smeXkpL+W9FI0VUZGqaSbGmMTEmNh7p/dlKQKKAkuvCth7w4oFK4hIr7vUXZZepHfYwu7/nDu7WPPej+T9P///5xcOw+zMnVvP+d5zzr1zZ4bIh0JSuVwmH5DLxHAgpiHHs8pt7/IFvRJ6JpXLBuQDUhnsmQ0IdnCIySAtpIOYMhr5BWIiYTw4gmhQgpQmEUEqvAL/UrF8gClL1ige8Equ2JEg7GPyk0FkiDFMQ6ahgQB5jKKSUBljSEiGQM0jfkpMdlBOfT1KCkJFUgACxoSdFHChlD0mgcsvhQBkKpVLMAETQRmPCUHpwx5ykiH2ugbkxwrr9Y/lqXg+3HaDz8Sm8n9p3sP0H2hoIFAyGX6wx8ORX3YdCcglgVzCyZ97qviCoLmfRkKxYIcegD6NOED54b8EQ14mKkwAl6QSuZQqDhqC/1S7YFKMBZK+Wd2+6HzBCE4O8SsifrzNd6qp+JnrdDdMQ6Q/AgIQPqgCplMGZtQR30ISVkZCBYRTMtY/Z/3VkuSGboyHqkDZQSEhbgwsXiYqCMOocFUMuIE4FDY0D4Xlkee19m6/JXwtJIf45pGQKhJeSXy4m25WQym0UphkmP4ADREElNfYu/EYhRaUVqHinU9C61RCylVAKsF84p31bmgeO7GysgtsOaWBAdkAWnJUHShXJvR5wmC8yvR7/EH7Qam6T+yVWvHB3mzim0uC+GqhQhJWQsKFxK9gfXy5FDOmDsPvZT1M/5aGBgKUPogG+K3kNiddSDiZJKQCBRMiIMGlJLKMBJUSn7wZMXn7chtaQLsjSQZkUvDcmN5NQ54j5TX8B2kCZhBp7TLZoYIG/UPQ+zNJYCEJLydhVSSArxJSqhJa
+QXy5G24KMR6mUoJzmIZIQwUBMpuymx7K5T6p5Sie0GL14OIJx8re3ZdHfEExlJMIIQkoVvXLmXe64IqwtZ8mR/Rgj6UpnyMqfND74P1T/S/rA/NfBeafp+6XRTilJKRcFYxOQLFGAHfi4bIx4WUqUIpP/uZr5QzKaLbKw2EaCg0VBMwGPr9CVXNSKqDTk7BKwim0S61Petz507kSTd9sElBEey0fHMYxAVnr4kpTm3poHkA0JZUYdREooQVgHAik7Nb+rTfKxoVkEg6Yfz6afxR53pTIzGhuw7marlcji9AR8c3fcE2IVgaIqdwwDZ2GDILneO39CDQBdP1K4s21T6qGkK4BWUR+3dQYqhJCStXCSkmwgOzhvRuW45xcLuhVeHkDUhjXw8ChXwJ6BZBAxxpAVX1i75TKf0bkE59cElxEIiqo+AvHBWRuucMv6OiFOPdrOl4J5oFuIBzequvUHAANg+CP0p8Fwe5kITprYeAZ8KwSa2kYCqW0s9f2nvBvgWDLC0goePK1JBA6bu70/bn7c2ub0TuAfMTgMErBaZAiMjoGZIe4DSYHM1V8M0hgMaIH/Ax/gYpP5vzTRdcq2hTwkcuvlreODuZSEHBXXi9TOgLDEPiD9GdB4JVcRs1BOTjq2xNqMAjnhxTd+nZl27dnC1VBJfjzSSQfseJXrOGT+c2pwosVHV3gYtKhQPeA7EpF+/fnCtQgpm8xiQDvspwECsnuwsn7uMG5tY04jQQENgMOZOfKWkYMguCaYBgEf5L+DAjwZ+dDAY7aw6qhx5vfKWeC0W9ERw+l0yiVhWQ1Td2bQ/zS0YqDoxDOJ36FY/Y82p/Ox/hyeUZj13uBj4gPj4TWqIFlCS0DvTI2JMfiTjm/HRxEJKlMBoaDmTM+x2/UCgJbgyBYfq1MqSEU1RqmodLQQIBEQTDIb88HfKoJqmC0Zh4vUIRiHAn6eWjpQWyyovbeH67wVfxKVEDGYQIYTI4LSr9d0UxjD7SL
+JctjC4kvj4RXqIbxtQK5888WxtW0Uz8RCkMnFECFGdGCzxfXawXkoq/gy10eNwyCP0t/FgQeD0qJTw71CfI33C5jwqnw6HSCVCoGwy/HEeI5YcsYMPYhQhJaDUM7uySFQ0eHGbJHDV1vhmaR4GISWPTVqbJ6MeYBOqWfjimRnir0ZFG9RkAeegwc3rJhEPxp+rMg2AEg8AUQQKcsWHNLyIif9lv8hz1IiIn8oLr1jWCwCHxw+qYf4Fb0oOwOXrh36W4GppHLHe7CaDOb+PF+ulhO5xqlEpwzgtSww7woXNA5OFRYr+afw1iNpVcFwyD4k/QHfQLKb5S4G2oCGB1UgDzW3xBiMNUAEAPEhTGUouG29XwM48bAEg3/jKiCBgipb+n617c2est3dtBxY3GnaPK+bLKn8MvYsnb0Lml6BZywTNQtdCrhAK9Wwy+baoLCpVcZTaCINkx/gIYIAioNFIhiJ3dNKiGcbJwf5BSsvV6BIsJw0PQoRYyBO/ytF0sNj5eQnTkLYwtb6RSRV3Qcmbyd6JgFn0zAiHJ5QEYd8cwxOc1vAS2A6Zm0OI0gk4sH0DnAhDH51Wp+oH6qiH/xb3FCqjagZLzVPEx/gIYMAsroJ9x2RXOQRyIqiW/hymuMOQD5gVykKBQcJEipdyADv2DBGcFI79Rb9R0QqaS68b35bDLTnsxw+nCBW0n1YwisE0l1DuTMOJDdiMtWIC3NAnUKDjsRVnROKYZXQ/wycaDhV/jrVQGdk0YQULAN05BpaCAATqNwnmI260E58S5GX8+vcPVNZnRAF3/AL8oPI9NODTpbuimWty2ukElsxjlHJptrGLmoGbqTSaZbdx+nwfL9vIbPohKqelCyjFTxnxExTVkjEq+IKyF+XFV0RHi/XuFTTcAUhUfDNFQaomNIFbKS1djtWTBExFvJ5SSobOrxkoT6p24QyOh6AvwFXMAYQXy1oIbX1AnXUnjCV+faqM60G23gpG3kqDrbfoyB
+1a20ErjUIpLsuZVa1IraAgqj5WEmDBiSW3q+Ppur4stVC65UxXmCwl8ulyEIaJ2GMfDHaIggwGl+GTCdshs6t4yVyCc+XBJeSiLA7ee/G5xnea8iu00BhQG5ZACGeAMSKRoFOc72QDKZfCV7P5m8ScuYNdLQSdOYpW7CJlNM520O6hbhsLG8ra2ut4+qESnsEUuogOQX+B0TovMJJ5eEVKiGClWg0MD8n66UotJQgGAYBn+EhgoClIaY9m3ayeVm90rJLi4JEuBtQ/8S4sMnXtnvhKQ63CvPb+1DqcjQoVOqD9xfe1QwRt9MQ88OZK9uzNYwclM1YWsYOKpMN404/4CJBkXQ3g8AQjVSL5LsSKwYvSeDeIPg+XhHCtcuFMPodOHFol6F6BljNUxDpiGDAMVPYQCchy0yo9QkOsP4cKHB4Ry9w1kz92dNj86YEJEyPvD2koN343L5IqkIYyIQUEJ9IvE324LJtO1aRm4gfg0TtrYRKAMnLWNXoms7fqFTZR1OI0ohMqIA9UBHn2jXzYwJgdc+jEiauC970t6s8VFpn0SlfxqZ/s+gZNOr+SLqqFBPRAGHYRoS/T4IFPykElScwQ4kA447MhzBIJd0SsQNInGTRNowMFAvlTyWSGrFkhqxuFwk5nV2l3d0M/EoYR4nr6Wq65iqGoLU3bQM3bSM2NrGDtpGbA1jFzQKkzbaeJ9kYg8SSLiys7u0v58vEpf3i6v7ReX9ojKRWNgv5nX1VfX2D+CUElMlCR1KUEKY4sbsmAY8oRdD/sL0chAgP5FHID8EgJJjYKGBBpDpChbCHqdquru7Wju6O7t7Ont6OuGku6e7u6erp7e9u7els7O5oxu29u4eQV2zyco9ZJq5lpELiP/pTcOIpWbirKLn+Jqx5ZVHvNbu3uaOzqaOrsYOSN4FGXZ1d3dAzl10wyK62zs6pIpnEBSE95hkOIhEzYBeCGzDIPjP9HIQgOSpnBl+KjgGG3M/AEL65LLj
+RbVnC+ppdNmpuCSdxR6z1+zRW+9huNbLaLWP8eo9hmt8Ddb6wKn+Wh/9NT5z1ntPWeqpZmCnYeT8HAJg0zR2VjNyVTf2UNWzeW8Ba85ab6PV3vprvGet8dGHrFZ5GazZpb/ay2jlbtgM1uyZ9YvbUvuApnYcazyqaQvPqqiVKAAB8AU/FAABFaN1pjQs8t+n39MEwD7anXBjoECdAUrJ9V1r40pHcpInhqeUduCtXmF9+/gFHmT8VqJrTnRsyDR7Mt2GTLfD4+nmRNeSTLckOhZkhrWqsTPI+zkEMJu2obOWsYuGiZPKLGuiY0V07MBLwL0O5GaNGepYk2lWZJotmeZAPtq0+9BNKLpbJv8ptkh158MvT3HP8Nu7GWkDApjlx7h6ndIwCH6ffs8nAJ4xjhkoVFD4dHpeLi/s6LFPqHgnJIf4FBBc7JvumCBk2Hs0Lk1N11RD30HLyFUbPT4QtssIQ1dw+mAQCDIeAeGGztrGjlpGePrcBm7BSEPWCGN7LRN7LfATjVy1jJw1TRxHGLG0jQAZbMgQ4oyAyMZugAOD9QEdPThBcILfPCIgC8cmfsUj/XKXXS5IqEf1AIRmACpPDRs2iKnoML1Av6MJqCpAjxD7E2qAapHYN6tmcnQm3jiGAWFkFd4vCCl6Oywn6zE+atIrkXxrFkCmmanOcdYwBvUOogV5O2kgCECo0PvBDQQcgFDh9BkEwKYJIodUJg6AGE0jN00jd21DwJDTSENwG1mQIeSD40kTF1V9R+1Z2y7ez4FCm8RSg1NcElCgHipQDxGSYMAl763gbEsYoNLViCh5XBWLK5jwBFs1TM/T7/oEYmXX6ZTJDxU3Gx4rUPHNIkEluHQgVEDCynCuJlxIvHnrrpUxc0N3MktGGlsTA3stQxcqQpaWMcjPCaQ+whBhoW7ipG0Ip88jADYYHaiZuMIAAdEAIACTAVrByFEbkeQM4wgcSRo5qxu5k0lbltqHS+kyg8jsOuKXR8Jr
+VMIqSHAZiagi4VUksJj4ZI+PytmTXlvbx+gw8BYpqhHdtF20acPE0O+YAzq1B9r2WnXrT7E8Lb9s4leK+j+iHB8v8eep+vMIpwCXAYZUjg7JuFKJg3tIs37XcTJ5+yhDF03Q4caumoZsVUO2xmxnbQNnjTn2qnMcNAzY6rOdNAxQGWgasdUNWGr6LDgF26GOpw5a+mwwIlrGjhrGdmpw1cBRA4yIofsIQ0dQEiqz2G/MsUkpqIDi+D0Snf1cnKEK5mNlAngkKA8fUAktw6UrASWEk2NwOO9AYUMbRQylfw+Cvyg0CDWcyh0+3a3wsXNbujfHC18NTCegAICtEZWoBnx474XnsB9VnCxt23Cl9K2QfMIpJl65C84UdVAG5pc/fu9re3VdG+jK6ibOowwdtWZaqM22V5sNQgWt4KI6y0FDz3akvq2GIYtMt1CfZTXCwFJ1prkWAsVx5CwzzdlgEZy0jB1AkWjOtteaba5tAD6Em6aJnaaxPZlsaRl4gVZQ7vywmnhlEN+8Mf45353iRfMeB+fX6R4Cf4VH/MA6gKKqIIF8Dd+Un87mXq9ooTqB1hLHuXhv8wkY8AjaLwGrgYOfvxgR6L8DzB0aAACqTDm/u9/1UeUHEcDNfNCxKmHl6AT45L8RmmZ5qzS9pZfpVjBKfNjU45hYPvFgttquxH3ZdKmxXO4WfZVM265uyFaZYbPY/sjt5OJrqSXfWO5V0TEbqWeze//t25l8ryN3RxiaL2cfiE8ryRTUnLyT/+FCj+8s9yZml3gcuKlubAtpdX71jnuYH59ebLg+XFXXVnOOA5lh8fF3O0pqW6CUlPr2f3AS3wjN3HSz+HJlVwuzhl0uL+sR7UmtmRCdi4uUAkpUw8tRK/gWjAvKW3OzIv1xFxMNx7o4xYSjHgYNDA6wG1At+JciAs2WYO9HBdAskYbnPp6+v4A++MFXCROg+fcrGBucu+lq8cP6DkUvgTEDRQ1zVtorCsgsd7+R1dyL
+7nptW8+033aSGeZkpsUC0yAmzuHraWTi2k8WOTd3or8WePLWWpfI/gFZZUPrhXtZBdXNhus52wNOwaXE9NIRBvYwFPx8nQ9NKv/ZPppMtlI3clSZujX02F0IEcukUSml7rcLM1r66WNrQCBKqUyp9gs7+10fVn4YmY1rHcBXADc2tBJw/G54NiuxopTWAQnkjfiHtovhCKEAZ39BEDBdoE8+cEbQ9OWpIlXfbOJfqIKedhnxKRwdkLPkSuG1auXCbzpBj0NvYBTwHE4wFNHQJpZ0iuEKBhy7lKKps43o2Y4ztk7MwjVnpZVNbxha/Oq0F447xQPfbg9KSC2CY3bgcfLOoncXuL5iaGkTfBZCridwVXSsyAQz3SWuHb3ocf5gE0GmIiwM1nDaOvuh7H6ZtKWfgSAU2A9SxNkhBplQQeWIJrO13+xuxdvh+XifM7CAhJWSID7ge1o0NzyztonescQUNA2jFigsaJv+SkR6pbL7dd3LLwtG+aUTfy4u+g6vUAktGRWc+9OZkjhBe7eCJxJkLGUY9bFhg3PgI+CCcpISPZaIRJIlltFkugOZbO4WdpmGy3/eFhh8PB6OH+aVvTHH4m4GrkDhlVUbrtlFPt5CJps5hF6EkPvpBR99z/7b16xvzXw6+/BNNN/bRIEmGGNkd/Z+HkQYkElR2EC0WOzLKHYapAyBQSH1a3FWOa2xd/vNsnfCcjWCClXxmfZq4s9X98n47AT3ZHFTmwitIOaqaNJfTw8ACA6X1Lztc4948UiwQC28RC2sjASXjwwtcM1uYt40AXzFPi8Twx76CmU3c58GeceInZpVxe1fxrWMuppOdK3JNBv9Nf5tdJx25W5WbjF69TtjrpGPVi9yiO4QYd+ramr71iKCfLyeFXYFTvtF4rrmjsrmjvrWTihVNCD/0Wof+Wi9/rqgHtr5AQR4/wIrQOVFi4QNTmidFOoAfqHOFAoo1zNV3R/tKyEB5SqhMLgV4tI033wNz0Tn
+W9w+vMPAIAHSPhlI/HWIlHX1eT4Q/gMfAC1SDSpXw+cC+OBazzrBj+YNvl0AODogAa5CH0N+KToNvYRAwLt4IHu8iiFd/eIFliFE11JV336koc3dLOz0ElwnKu/qE81d60MmWxBd8xWuR2rpQqPq5q5Pv2PZ+J3DtL2inOLynEJheUUDFCsekC2yiiQTt7w21/YGtSC02zPuG2xUeLhBlRAZzE0jBAG6/1h5HOhWtv94kT8qpEQltEIFhgzo6HBHBuWuvFaaUtcuwdxovbH+THv/WqSYJ0ht6lkWJ9D2zyT+eTgdhDqzWIOTNf90wUVhC/p7SJTZykMEAh4BPmgIsh34jgdhFx6o6php6MNIz5lMMXcKVgzqgO5llow2slLTcyI65uTDtUYr91Q2NEG4jd9hC5+jcJDKq3jnG+uRMzcv2ubfL0YV8qP1XrxroGP1+Qb/Tro4XaQUFQUiDgywChjIgFNZIbAFTV1rr5W/FpCNIx1QchH4hgMVn5wvjuWfF7YqHB2q4WhrxIwi+asRUY6t5OAxn+A36h/LIj5ZJKAMp97QNywe65e37lpJSpNicAW6HuwCdDLgFroJ1J0CyTwQ1BY2tsFxVWP7+B/dyHQ7OvsLB5azV+xuwXl+LMkx9CJ067e+9lzhevSf39h99K19UQU+y2zmfdDc9xgcpBQIx3xuTcabf70pQETvFC8Cx3C6pYahs8qUbSGn7kFIc0/vzZKKFnxZGhAoC2aIS0tABGBBZT0SGCC8H5aJ4g8qVQ3j45yST/7HETmc1JoGtEQUNDQy/uMOM6THfy0i0GjsCcq+VdUncX9U9R5OEuSSkBJVnCIU4hxRRM6OpPIKdM6BwCVghtP4z2/rN7vE23ImraUHu5ZDUCyZslXTEJcMaRmzVQxYI2bbxFM3sLNfMmMZh0wy+8e3LsKW7vq2zupmuvy8tvmf862cI9EnKKqoe/trGzLBYoltNJwCLXbYT3QsRoBS0bH+aKGTsL4Z
+SvVOKFx4IutOXadSZjhAZCTYIpXt5TboHOQSGOkEFamA+GHzKxoVmLfpemles3L945NVEX91IihG7D20YyuhkNrUvTquUDsArEMBPkQcISSBpWRP/oyYgqjc+jZFF5S3S6UR+TWfRuT8fXfS/TpUFckFla/PtVadZatt5DwCpwgd1UycyXSr31gHrjzI9dx/ZaSBg6qe82gTR499V1MLyjIENUevpRmu3E2mbFrsdORyUi7ncPxrX9gRHVv9tSFnbmWcvZWut8ZfZYYdXYUGxmWbuc8JKKiuf2BmdMZY33THB1Vl3Qp7BQi9LGydf7ZEzTeD2rUKEl5DAvhq3jlfnuCB/hcxUqdKX+EHDBMFAX3OA49RH1ALj10E+svpkmbjIzx81DCoGO8ahFSCQVX3y/zqdOHVyrb4mvbvzvHU/TOIV4bzI3xHCWiHxfb7YLAHAtM2dAJboGHsrG1sN9KIpTXLSnPmdvVZ27QMHEZAuIGzmq7lK8Y2Y790VJ9lrapjr2XkoqlvrT7LQm2WrYaxg5qJi4aho+YMsxEzNo80sNQ0dNVCELCJHvtVQ6uELHym/VJFq6ZfCtmdqXuAe7CwIbmpa+ONkjFB6fh0c4hANYJPQotgCPDR3vzg1JpGOhIB20EVBiJgGAKDRFCPMiDAH2ANdhLqcOHW0CfZlVL3QRiXeOegUo0sh7ED8eeODeO+HpaLd/B8iwyOllZSFp+Pz9SYYUEMXNWNd2gbskFsWqAP8Hawm6aBKwHRGtvTNQFOmnMc1I3YqnogVJYqGg68a6xl6Khq4KpquAPXHxg7aho5qRs4qyKYAFK4vEAb1xY4k8nbvzEL7RNJwBHZcFtAfLnEv3B0QOZbYfn4gpywIhIuICFlhMMdG5i55UZRbqtyfhA1HjQWG4itQ28G2z1MeO+ASl0hd8bTg86Cnh8+YYCuWXpj75q44pFBqYRTSEIrcZwdAowuAV6P9ss7y2+FOC0dPUbLvMhUS7U5LmrG
+nqAGRhjZ4x1kI1ctwx3aRq6aJo7qJiy8c2jMVptjD5Iegbeb2VrGDrDRO8jOoA8AJSBsen8ZTp3Vjd00jFwxGoY7jjJ00NB3VNU1P3D5ERRa1C76JCoP5wFDK0hQOSr/0CoSgE/Lf36i6JKgFWuPUhcxK40oQRPhEFqrDPjLE2FED6N8OgMARM0l/QUUiPHGGo7KoDedKX1sfDwXva3AYvpmsmrizd1wQ/Fk+J5DN1QnbxphYA/OoLqJi6ax6yi8BeyijkuMnEDeWsZOcAzqAfa46sTIWQOXm0IXZ2saO4LyAHmj8sCbyC4IHWMXDWMnOAZk0PVFeLtZy5ilbeJEdG0mLPasbEKncm9egxonG59+Ad+F3isavzeXk1FbQ99wgPpfKpZg66BdVPQI9GH5P0P03gGwRqEPKMEPNZkK24BqAhkIVI9vFqU3GME6cPgf7svLbUdnO1tY9/pXMPS3VZ3tqKLvQPThwF5NjwUmnMxmqerBMQaS2aDYnUGi0LPhQMME9AGEQO9n0XUooBVA6mACXNVnOWro2REDBxU9R9XZLJXZ9qqz7SA50XdSme0IeZJPt1oG4jRzh3Tgh/PFaBQ4Ba8G5GyJ5/NaFf4/nfzBO0yoD6j4gaChSqPw/4KYajxfNgZhGPwPKixKVDaMMJQb/j8PY8UVSsqDwQAkenf0mZCniU4WPZ0H0HOnQM+GZDZ2r7vM/9ueZJ8M9Acl0oGtu/drT1s3do7zKyassXPsxs61Gmdi86qxw9g59q+a2I0zdhwzx+7VuVZjjezUZjtoGYG9d9EwctOaY69lYkuXn7tiXzdkaRrv0NRna8+2fW2O7TgTq1cgKxPHV0wcx8y1GfuZ9VgTm9eMHWi2dq/oW739tWUqDz3Eu3U9bwcmzzmWG1feyqilpwkhDT+0Ccp2KH//HTFxBqPhwdPn/4GYqDQ29i3csD+hjOGALnR6KjcAJZ2axaCBqw/Sd8Zc9tl/6erDLGqkqS/LbJgA
+IuO0PW0NEvzAFarIcWNiDcikJ68nu+274BZ58XYKFwPojb+X0u+sLPodok8RYVbdMnlCRVN9H47NxGLpo6yS+6ncBNhnlj7IKIEtIaM0IbP4fmbBvYzCO+lFdzKLE7JL4pO5ust9yXQ7sBdoGgxZIwAQqPBdNY0dVOayVQxdR83eyjl8LTGPfyej6E5G4e2M4nuwZRXezyxMyCi5l1l6F7LKLEzKKLmRnCusrYeGi6AylQ0Vvco5DCUfBtnP1Pl/SBD16dhDSPk8MTlhfUBsA2BYFRWj1ygGmMtUY8EfXEX/ehU7iry/jny4aoVTKBMZQzEuw3yMisRkAHnSMOVGNR0IRSaft9GPfLCK/HOprfcBZYKX09BAANWF2lNvi3EfX+x4/4EOXE5TnWqpauioZuKApsEQFyWj4QffcI4zmWS+1C5S2cr/MdFmU6kzjGBCGJ4C/HHESyO8QIPxn6XB4Ke3IYEJmkA3hqAO+A0IOG3rFWXya+u7KV4RvVT70wIGQbDB/RSZaAcu9rod+zEaOueQFS2dYQ2NTyODrKF1mAcSlgkSQflAAd9a7CVTbMgUc5sAfKgLU/wODQ0EgABmKgEdBZlIIhOfL6jfcZ/v8VDo8UDgniTYkVjmmiB0TRDY3sgJT+I209cMUF2H08xAnb2iuWt9yTRzDdQEAAIX2IMDOMKIraZr+85n7KxCnEXGFtOmiuWiRGHF7vhs19uFu5OF3mnVnPSqkIzK0Oz68JzG8Jy6OMFjMd4zYpJg1Si3kGg9sRtiVgqCi0qWKQiuMYFPIsEpLRwIdgh3ii8m2nPJX06YnMkCNqrA4ae2sW3RtuBX9LZ9tsGLvpRD6ZpgVKZTIW3xOEUm2RAdq3XuMXiRPp5Loyk22NF6oAJRAl9ByGd6Cvj63iKcTLUAMFn442odpKcY8TQNDQRQU8ptRXW75fKfY0uIZzrh8Ig3XcbjW0C8i4jLw+mh9+NKa/GWElZSCgoEQU7pxK10remm
+6rOh97O16HQC2AJNQ1cyxXTX/ls0Cj7uSEet0Expc0/vkUyBcfQj4plIdmcRTr4KJ0+Fk0/8ColXzpwjOd1SmjdlJWUr7imX8FehIBEgQBBzMDI2hhItiJ4wodTo0hhYARABvTNJQyAL1OqKhM8QXFIcITERoQIQWUJvasvziype199G3luhMWPNvSy8I0qLwLgQFU0CDdi66wSZZEl0zNfuiIJTIKwxNoh2pQEY7EhhxIuNhEAmEa2asuWYCRT5o3kEmWINOLD0VbwAhCZ4CQ3RHGAmUBDTXCmMG5fG4ctq6YhRgNO0IZWEk/3LhUJeJzYbagVtgz3sesSSXnwTkbxLIv1uWwiZbAHi1zZ20jJxxFHfNEuDNT5NuPALygCmI+PQiVJWu0Y0EJDbMPUQF2cwA/l4SxBKDCjVP13WjW/FpWyAePgDFcRMaFaKMGAQCgkYRS0aE5m5THXUk5g0LXILcYGE+UA4bJASxYqpFTSYFbMNEkTETAbE4AqgXDCHAegScY/y2aGnzidk9yun3jHVs4m3eR0hk81BWa51Q00AhBexAUyLYM9siATFRTzHumDPoW2RDAwsBBDo2IE5sPI+oshmkJvP0lB9ArRPUB7NbADcwtXXSgEEKqFCnFcOKBjtn+74sLKVurrQfimAANcwgpAGKtu6TuXxmYUql5K42rPM1PTY2qAMTJzU9BxH6JlfSQInVt4rGyhu7ujGdb9YCiIO560QPUDlPSL3tOoPoopIkFAlXEACeZ+dLmY0Ae0BmIqy5SWEV3B76WUIxPDfSaqgl7HwmTBFLk/oyVVGLShOKDGRXyzRzO8MrrfQsV3tdpAGQJWhgYq0nWJpdUt3K336iqbGS8AdZMGz9KNlOD61N9XcfA8DgpcVRmmIIEA2QnGKEqHstddBExTgq+6DBe/vyzpUWK8oiOISOxQoL9rY6r6BH49l3KjE6cVeycCPtuC2WGvhvJAzmWy2cddxppUJde2WsQ+bmIdG
+QPdhC0G0IoSEsg270oRkTzYqngDevFMF3Qzm8DJAlOl58rtZAjvfo79aBS2zD/fdf1XY0A6BuCIJShdJ76QUhh+/6X/w8tHLD4oqGyEQCTuWHPB3M4W3Z/9lt/Az+2PvFwjr++Tyvadve0Wc7ZHIWrp6UnJLH2YL0vOFXb1wRdbS3pWcDUOhkiJhLSgJ2Fq7++6lF+07datTLCmpaXENOOm971KPVN7Z13v+XtaRuIyLd7Jbu/DVGkyDalq7fI5cXWoXtsw23CXi4memoWSWLajGVa6MJgA2IzeEDW279l39cr3PlCV7DFf4eOy92IEre2n/psju6pOcv5PlEXEp8vSD1KLaBaZRuGhjqvnW3XiP/t/QUEGgKI8hqMKG67gaHd8mx8lzS2feco7Mpu2jkbHrIeu75HK9gzkLzvF6aAYw9hthZKWu50Sm23zwvSO/GpeWgBu59GrRpIikSjreo7kwXRe6EUIeU8rloZlC4p2BKx78ir4+U9QzaOogAVXu+y8nvWJoRSaakn/BWGsDmbh14i87U4twcVtVY/sS+zCtmeZkvBn5eDOZvOn9+ayLD3g0vayyueMnx32aetvJpK3k441k0qb3v3Nb6LBvlL4V+XjV9eS8pJzC143NtKdb/WueU14pTpPEJeaOmr1dc/LmlU5owkViid/hS6P1NxGdTWt3nZ6+zIe8tYRMWZcjqBc+bnr7cyh0yxsmNlyBYoV+eV2z8QYfMmkLmWSGI7pPNqvpO6gbu5JpFqvcoimrANcD5xOzJy12J+M3kY/WYuSJFmTCusgziTQPjNXS1QcVUJ+6FU3Jp1vGfe78+tdeGoYOZMr2LV5KENDsXqQ/BQLA5+YbDAjQFeDk4WvoaFGok0H2GBU1OVp6QMxXZ4tVvDJP03sNYF9XsGPIp6YqOpsjzuNSEaCLFS0jOBlvhWRm0CcJaS64g0OKJIWwQzLLiU8mgsC/aP7Z4kEQMFUDQU5Y5EymWKobORltDNJb
+zSETN2hM3XAmPg2urnM/TCasJ7rmb81z/vQXL00DGzJxi+4S99aOLtAhy9nR5NONZKbtWGM73SXeYwyd6KKm7WSa9bem4Q3NbXfTCrT0LMlkm79/bp9TUgUZXkrIx/X147ctcVQsgKhpapu3LQwqQB/QNv3KNMwu6HyhoJZf1/6PeTAMtvrbF445fASQSCrb6BoF4lSb7app6GC8zvejb3eozAB/eReM7la6QobYpGx+xZtztpK3V4/Wt9oVE7/vcuqrX7DJ+O1LbKJpy1GB+R6+Cc0k0Kn0rN+YZ6E2Yxu0QtPYnUyx2LTzv2wOngEBiHdbPIAgD0Hgm8PJfQYEcBVRgLoaNvSPf7hcRjzz5hzj1dG7jin55RozNs/Z4t9DlX+DeGDuCRhlFIwLybiKqxPAjDBGAf8pFhTCDssuV/HNpC+zLFoQy++lYAOi2kJWWPn4nXmOYA7f+da5oKa9vq3bwf/0+duZkIWwpundr1kgwk8X7UrK41e0dPxsu49MNdWevTkpuzRf2DDWyI7oskbqO0bFJjd29B25lvXaZyxVPTsyzSbgBL5x83Yyd5SxI5nBeudrVl5pJYRcflCgoW8HVnwpW2HC4d8u8BKZaA7DvOWs6C7F85Dy4vLm97/ZQaba/P1LhwyaNres4c3PHfBljtMtf3GMau+X3M2ueHOeC864TzVf5hxFWy1r6+6NvpDy3cbgEzfwFcB9YumsFbvJ+C1fbY/oQwdT1i2SfLbOj0y1Vp1htX7X0Ux+RfSlh299ZqM+iw1Y3OB5mJbPVO0lNDQQYHd8AgI0oaZ3KAhC8bXEAc9qAhQIRMbhFYYCJ5Ze4xNfnopPjh+db4ZgR/+jVx+hPwjkn9mg4s0lwVVqAfnRhS2YGv1CGu9ZEITnVODTsQACv8KFAIInVYJCJJ29/XNX7watOM7Y9n6G4m36DN1O4440tiMTLC19Y5mQPdFXyGRrUAyn7+fdSC9S1QNPyn7yYo+2brwB0T8g
+m7vRjyoDs43uOO92N5U3ysSR6Dq9M8+FMQeXE3mas23JZMvfnBleI74t/M6CFImOxYFLKXA6gJZTXlzR+N43rmSq1ZtfsNKLEQTH47PIDBui76Sht51ZUA+0BLTRNFMw56udY6j+Y9zwJ9Qj6jcBC/Lx5m/NY0T02uMO0dSfvaAhb37hkF+BhhVoCeB7igWMDtZ7/JdBQGXBHNJxlNkdIf3eQbmKT2Zw/nMgAC8JBtkiaqYx2er4UhJUQAIEH0Vl59PnWUT93cwjRHnt/f/al08CS/HthN4F3ml1mBFko0jK/CBH4CQyt1KFw4Cg4PsLpfRtd0joi9JDnwM3yVQz6BkLtga100VvDH5i76WrzrYkE7e577uE5yAtLxiUMyDIuZyUrwq+wjRbnd9cG1txvWQvjGa3htAXblgutkU37V46d7SJLZnu9M6XrrklCIKriVxtyHOS2a/sQ5gjraEF5wwYYzLdav9F7LvABdgXVjS8O58NKuqNz53SCtFB8YiIJdPMiL7jaCOr5HzMDcjc5wQCaKrdWhaYA4CUBF1jSuVNHbyK1qLHPSabw8m/ti6yOAQmDKi2tReASyZZ/Os7l/JGxWrQte6QD44O1u34L4NgMCP4QYZb3SvDNxaEC1V9M8OUIGCwQv15HL5CUIdcfojX+ElUNi5ECK8GfWB6k/nGMfYbcBU3wSiDU0AiBaphxYRTuPx6uXIpICNWJk8FCKLyqlX9YHQAjkjBootldA4WCSIx0etbu2cs30WmWpIp29yj4ug15OOZ+HQ1cPqmbFvjdiK1oCbs5L1357mC5dY2sMwqqbqSmKU205RMd5z0o3NTK44moHK/WEaidZ9mvcIFWXk3NX+MsS3RdXznSxcGBFcABPoWZNL235wYc4Bk6XsWHb3pFjGxqXhOS+dWNv7jWxcAAZiYVC5+IGSLRzSZslVV33GMkWUKF3UDkA3nJIJgmv0KpwN03I8sSsorX2IX/skPLu9/6Tbl591/
+/8oTVN1PlvsklL2VjR0TfnIlk7d9uIBVRt8aDLTc+QgMMSCrtW4MOhnmvYT+FAjgxyYBHHX83oEaJyuS+wwIGL8QKLmpe8mlIm38RFqxSngZPgYUIBjlnXK/Eh8tBbpf0TR2dyLx4+Nnr8L5KiGCkcG8VdeK01sGn39h8oQMMc/o/Ccg+PnSExDgVdQ9GOf4jUfqM7aCtF41srtLl6MBnY/PUNezUDFkjZ3jMs4EFynhCOLTjZt3noShXSqvDIRBpjv87QuH7BL03pv7+mev8SXT7CCabcAZCLmXUvCKMYvMcHh7nmNuCYrt0oMCTRg7TNr2mxNznwbJ3PciOIBEd2vMxYd4TquEIJgPbr/NuM8cUvKxSqtdAATbVfVdRxtYJuYrQeB3DtWDjuUypwPUqMof5gje+9KWTDADHaY+ZbPm9M0aBuBGmP1gEymmTBbUtX/8ww7I6l/fAggQvkBLHWOoOjRf7apEJ8Z9CQ0dBAqCQwSBQ6KAeOeRkEpVTuY++gJ7xXwSjVvdJ3FLrn47LId45+KHsPAlEuAWZL8amLnpppCP7zuCRsjKu/oc7lf+IyQLHxqkbyvF2UBO3vuRWb6ptfW4CBIIZ/qYGsRwAQSAPAABb/EV5gXXDIEoQXdCJFm3WPK1eRCwkkwx+2yTH/M2/cv3M7VnW6gYOWjoW4+aZfbmPEfj9ZyAIzc76aO04MHN3xaEw7AZlp+t54SeTljmfoTog6o3fcXE4l5OGcS5k8wbbeQAIHjnKwfmgarYpCL0CSaZLnNS3O8BMve9gI6h7sboS/QF7rTaRRUN730DmsDmlbl2SbnFELLe/QB0X1UDl1FGtnfzMDcgc7/zCIKpZisdFdPGK9j7yQTw9p2+2BIcl1x0Ia3o7/NhlLF9oU00s3SmpKr1XwsBBBbvL3AVKDXBL3ZR4BBgPi4MOhXO2Yv0x0DA/OLeBb93gN4ceGrRPPoyM+rSi+SyU/zmOYfzcOl6UJlquBCdRz+B
+hm/mgnPcuErmAWcQF3X9KCXVdy4HhRGYTfyLcZ1ghACnh71zvzjOvYALBWhz6S6moFYtAJCHn8T79YoABYiEqgJtEE7DYx1uZBa/Aj17FotMMw8/hcKIT+ONMbYBZhlsjHyYV1EoBGNKPQbImE475grqPlvrq4EP0IEJsABvYLSh1cxfdpy+m81Eu/OI+gS69u98ycqhzt3FB3naqAnMlyo0ATbIDHrzJEhutu9SEobRavOqHr/7LRuGDK+Y2N3PLoQQdtB5dB30WdoGNvfyccAJZOZ/mvoE1stZ+Pxue3e/zm97yGSrccasZGoyalo63v/WmYy3WGh9kNEEvPKmD0DHTDF/9zvX0gYEAQzNFtlGQMOhFcvYoFGA/vsgYDb5DvwGEs4TAAgO8FATAGW29K6PKx0RkE78uPh8Oz74AZY+T/cAd29eYzMzrIfaowGHP6gchKAMuuWyE2VNc08UoHbxK8U5wbAy4ssdE5Cz7aaA14aTB0AHC+rV/RUg+O3qUyCAbDBL4ICCrAPOQs8j0xym/Lqzpac/u7j6b5+zyaegSAftN60MJMPH7LAOrd2i/XHZ//rBEyQ9xtjFbV9CZx9myLDw9sO8USY2RBfMgXNeKZqMmw+4WqAtYIjozJhejIwgmGwOjuHei9QnUICg4V0Qno7dK9Dv0wsg5FhcmpqOOdFjjTCwvJlBPyMGo25wDHHa2H4ZBQH4N5MW7yKfmo5f5Mk8plFe3/zugh3kU4vvrfczjmEmv/6dr2HcYf7Bd07CZrShEPy9TQSdMbT4zSkG+wTlzUvpz2gCbJlHEo76SES1qv+j48L6donUO6P244hsOnkgAA+ABIHTUPB2WBYrSShQznhjnwWmIgSAZWL4pbfb4Srm+VgkDcyomxSZi+OOkFJV5vOavtwJUdmh2XXdAwOxpY1afjAuRRAsjXvq8zfwR6d+Wzr7hVU4JVX+uOX9Bc7o3htY380pq25sf/cbJ7Dfk39zb+lWQEo0
+eC+Hpu3s79+6M0J92gYwJSoGrE9/3BV1JglMEQPT+Ef5+F6mGU6vz3HMKsJ+eeFugdosRxD5Umdmlhdzs/A7RSZvhSFizIWnHEMAwXwXouM4xtD2VgrOUXLLa9/82p7o2anomjqH4Gq51j6J/loOmQmqyHQlax+EtHeLdJbtAef0rXkORZXodWWX1b/+FYt8uu1nG4wAVFTd/N4CJ6JrMc7Q4nICwquutXPyrx5kJgvUw3JWFNNC6pm8hP6gT0APcLcTQICfsqseGZyxPrFyIS73ywJ9js99wsYpHuOXvepK+UP6hjMkSES7PrIFj4GzaOvpzwC1+xgKEQvb+2Do8Xooff1MWAkMHPCFKb7Ziy8Vb05s0A4pxs/f+PKWxz37cUyZ9MzdVP1VXpO+c76RWnont/LdhW5kBozszW6nFUkGBvSW7QTVra5vs/PArermriuPSn7YHhB1PkEkoT4HiKGnb0fo2Y0uh2et8CYzrMh0W9UpG/aeuYOZy+VpRZXjPrMms1zUZthv8zgS95A7zywMdAbgbPbaPa3UtwCy8D+JXudU8/0MCOjkP6+y8V1Q2tNtRxraXE/G2RGoz2JHGM2bq+qz/z7H1ooTu9jhgJqeOdG3B3OwyAadDHBz5m0OBBCozLL/jXUg/EziF9tCVWaYq+jaTPrZs6wesd4tEpts8IVhjoqe3ZSfdnofuLnYbi9gghjsgMHIj5b7BmHO/D5HQwcBw2rcIe1+KKDfQKrUCBWqBpcSP5BNOZoAv0IVnxzj43mnS5uUjhv0U/TaQNj4jgGqnKBStF5gxWFjagnCYG6S4qX42q4lscWjOOk4gASvAgwEvkOjSCWsDG9d+r7kC6m+R6+Qj1eQjzdrG1qPm0tfhPnJ1i/W7WnpwAF0+NkE1anbyCRL9ekW//zKWQtGdx8sGzFzTXxKLpN8kBpaOk13H1eZCUNtM/3lu9qoGusSSX6yCiYfrUNgTTNTm2VKpoAjie/pBDdiq+eR
+lk6E+7Y9Z8kneANi7zkcHTBOfmH54ze/dICho+oMiyuJiuKuJxeMnmlBJoOJsSETTMkn2wCvowxtAARjjB05By8PDEijziXgVPcMe7iE2Ppkyyg9loYeG0y+yYqd+XTyMebCIxXQPfjKTwt8q+gnW0cb2Y2d6wBxRulb7oqK7cW1gP93QOCdUo43+EHtg+cfUYlCCionPjnj92b6ZVRX08eKoWzwE6mQ8Q4xyhk3gAMqKDhlJpaUOYPLIMGbh3BKQ3pk0uOFzSaH8vGmUVABfbakHNSASih+MHv1zXJkMBKaAyAAV/TZB1N+dtU2MB+pZ/nB59a/WAbxyhWzT1CTsAsJs5fv/Pscy5F6puOMbfRW7Qk6dacJhIdVo3WizgFQZVPrRz/uIlNs//GNM7dC4fGUVjcttQt95yubVz93HmdiO3Ol5+5TCbq/eYyaYbbWJbq2Cbumo//Zcbpbx83ecOgyvryfaVtpRcPUHxxe07N828Ti+gN8DyPtCPKj19JmLfN4fa4ljBo+/HGHe0z80Vs5Exa5jNHb6n3wMnSaPqnM1uf460bbVWebjtS3Nlrje+Imd4FZpOrk1b86hAlqGqDmoFR8DsR98o3t3+ZavfG53YcLnaIuJ128nz/+R5dXDbZ47D3bJ4JRG5b5Iv0ZEOCOkw46Pxc1c3gpvuTMm/daUObWO8KcDkX/B28L11hSkUMKbDUVFvKF/gDjKY/wOpzRd1DAP7UMgAcmAY42xV5pVR/tTadv0yynPiNogvx18ZWDIIAc6coDjP+4pSMxv/xOTkVhZUMfPq1Ei8GxCEZv7uwGy5rIq8wubWhVvsIICsQluTI0DPQuOETrwduAk8z/MZ/NraBjHxouGhgorG5I5z/OKXsM6SGkuLIhIasUX/4oxxepVNS3pfCqkgsrHre203xhNwBKO5dfl1pYn1lc29rZha1W1gcgmFFUncyrqaRPdgOV1DQ/zMNBKVpJGim9sPL0nZxbGWVNnTiR
+JqhtOn83rUeCybHatNWV9c2ZpXX5wvrBfIT1LZnF1ZgFVAJ/XkJDBYFCcrRE/A/IqMSH0WDI7l+i5ZO16GzBdcWXTSEaEx0FinGf3mgeSPRYmSM0F2LSIhTRUG4MLmg0WXZr39b4ytcDMxXWwZe38WYNkxVNBlYGnzOhAc/RYLZMWc8Rfb4dLqCdkuKH3Ols/62MIrwlPdls+gqvpm5m+lkJ5JcTwoiZtXxCgBuGE88QFId/kEAJ4kFipjoYguuQ3wvF0WcpFEQxRjN5sVaDeTMLXV9Of0gTQJm4R14HZlaTPZngFsw4mBvFe9zOVBf8bOzFv1vq/5ywKMiTsou6V9jTb1S2/XQmXxVGiV4ZG28pvrRKufxE/JiM1pI5ZgKfI2UokxBN0tMxq1s65mwMAD+OTNxoG6xcq0mJ5k258GzONPB3i/tdYpIMbi8jRQTlMZxgsv8SDQ0EQAAtsC1UKMjxkFTBe5y7rAeVAqVjTC9JgJ0vAPyPEG0tZIkYgAxpn8Ae2y2RRvCaJ+1L2nCDi7dnoDQMVqQaOuFwBXgL/z1icWNb58X7eUZrvMl0CzLRasYSz4p6xQz3/0oaKghA8ihd1IlU0hk1LQm1rQp5K7o/iAK6LPKUCf4zxECA+nN4rwTyFWNHQDzAVV57b1J1O9SD1oui8o8SU1v4DzgQO/lHJ61Z5vhOtUlbZy73SinESaH/Eqr/f6ShgmCwuwHPFFNslNCNw4v4jBLO2dLT/wIIgKAMGCygiPFvsAbMISVcy4r6idbgjxNTXZ+DceTNJWSaxaRf9rhEXq5qoh4WWqFhEDAEfFZ0GWA4igOPcUxPbwHAP17FZeb0GFP8WaIyV5SEuUJBKA+aNy0Pf9F1ogrjvwCCvPIGp5BzZ+/m1Qw+2AothSYyl/830lBBgP/owcMBDIUGZ3rxAgQzrPrvcosqekW2MNTE51LwmCkEg5mLsMd60dA/QJjFkx8FQcnQRvDVcSrz6Qv/y2jIjiFI
+AvhBGQI9D58sYLw2CgamgzL0HM9eZOGLEZhtkBTHylDYUTwognDYiGDEZ1TQHKDxUYCA2f97wjg0HiajlUdsKUIhX3xQEOwdELaLuYrRFfT08e/R/yTOi/Riqj+WzxBoqCAA1iskTfewo7YYD6EjgpCUXQZ29Eh5IqaaXCkmJGArkjIC5APwQksCkXDOB59dAXxBIDp+VMrML0an4kHNw6SVoszgAM6gDnRdCZM9huE/xIQeTRMzudGCKIGwMS4kYXQJZg7xIHuaFH+AAGbMIjH4p5lhFDiFRqExom91odWhRJ+gwggQDzYsFsGkyBB3eAw1wRvYylPmAKIzdcNa0DRMnRUF0hAkav5oACaDyCgI+KFJ6aaoJUP0/Hdo6I4hZYqoH5sGh2KJYnoXnHa0D/Tb5lCTwRYzO4ZZeIjHijDYIBqwAplBHzLBSitqDVkDoHDqBrLA63gFN4oVVNM4TSYb6OwVd4jQRe0XS9vwG4kIH9iDRBFDeECzQ2KUFlYBc5DLu/vFvX19GJNKHQ4gkJZPmQ4B+DZfaUuvSCxFgDJXKdfhl2kK5IkuCUKErgPuR37ANdQiEJHWH1gCG0KTyQEbg7+0pkwmGEdRMbrBZTiHOE8RxKWfaejoFUHNoWBlZjR/xCjlPcQDMy0Z6OiBukB8WS++eHxAMiChS5NfQkMDARaBN0/Trt1Obe/uCz1yqaGpJauo3C3iRJsI50xxg6qjNKFnMJ2D1oxpmVzeL5Z4RJxbbBe6jB29xC5ks3tYbR1OtjMRKHfkXaL+9u4epkvQHOllJLiIg0Q4gkwpE2VunFN7z+DCjftpheud97X39FPeQMpeiECT0lwQATiEoWyAHQTKA6JifWPw5YnKYqAKwEG4BG2BOJiaV1a1huXHr8VPuygCaaaQAy0IxIjZiqTyiFPx32zxmrfR9/BlupqIxqGlAx8QE8yr2GkOFEh4QOuC/7S1EOUJTrCGGfklNn77G+nrI2mjMBkr8HjU
+6dtwwJwq82RSQkgfnKYX8FfYB3X2Skqra+et23XxQd7huAfG671pqudpKCDAEuWFlfXGK10zSmt9D8WtYIcNDAycj8/Q/ZHV0g2yAb6gYGjsp4gBAdRRLu/s6Z32k/UKVmR07IPgk7djLt5tbVfeZVaSU/DhA3F43wV79VNEefY8/Wbl5xaG68fP3MmYvXRXC/1E37MEqYB9YFyeVdlyueXuo5t34lsRXyCqfmiNUwoEur/Y5AmZL0A+TYAw7FlUgcuPxmVM/8Hx1PWHBy4lXk5Ie0lNUT7PhNIbDUjwq+QZ03meUEl1Xeixi+2ddE2uklaxQtxDzytOlARQoAxWUCK3eMpih4ZOUVN710df2fgeiLvwkEvGr1JcfpaGAALgCuzvZOZrT1t2OD59vfuR8Qss+iTSS4lco+W727uBvfjoIESqqmvmHLhs6XVg78mbTfSBMmw/rWNHd6/+cpf4R/RV1UpKyOfb+h/zCI+tqG0sKqn59BuHL7ZFRJ2O7+ztzSwqP5+QeejKwx0hZx53dvf2iyNO3rDefSj85O12Oke50iloZwwuxziXkPXFuj0dXRh4KzXHwe+kg8+Z26nFyGJaNvwjRuXy8toWj7BzHpGX523m2Abhe5dBjUfHJljuORx8+Npj/LQv03MxVXqx0HDlDh5dzJ9SWOwUdsZi98nYW5m4IIJ5QpKSNefEQvMw5hiICb6enGfFOcoOO5crUCwdi72fZ+dzmBNzxf/o9drWzluPsh9lF0ANxVJZ7M2U4sr6mpaW47fSLz3Idw0+diOtKOj8A0jCiDe3rMYl6IRH1A2j1bguElJdvZth53uYFXgsjadYlQSo3H8hkR1w0sz3qOEK9+ZucU1D00q7gHx+TezNZNM9z3+CmKEhg6C5ozv05I3cksqU/LLIMzclAwOx93P1Vnq20fdRAO9g/yCNa+4ZFnYq/qu1btZ+R9CPV6qyrp5+w+W7V7MPhZ64cSz2nkQsEda3TF1kZ+93
+dFfY8ZRMXqmwTnex84+WkUcv3O4XiX2OXHvLaAPL59DB8/HC9s7tXkdWs/yPXrm/wjJku+cR8YBsPTvCI+oa5HwhIeeLdZyOHvQQfaNPeIYe3xURq/Ozw62sEqwYdjbgpUxY2zxvlcd6dljQqduffm/jFHYBQm0CT/9iHXj4cuJqp4jl9qFg6aCujAecWVxmvNKtkILg4PlrDpwY36M3p//sdPQaPtQGIKBGTH4jhfveV+Zu4ZcfK9fAHY5L+3r9jrDT11wjzny+xr2oqjH2dtrMX1ghJ+J+MvXWW+ba0Sda78hxDUBV1CuRfLPS5fStjIziqrcN161z3gvRUouFq10jjZayoAwusGWpi+mumMDDN/45z8b/1C2otkfg0d0xZ62DDs/8lV1Av0XmFnzWcIlz2PHbv9lF6C52ARBU1jZk8JADaVncBvpB2RdpKCDAjWLyWTpzJ2vGqp0tPXSeEAw2vcFV1dIZn5Rpyjk9a/mO1i7gC1xCZgEIDFbsNlm7e7NnmLPf/p7e/vK6pokLrUKOM6+nwFKWOUZGnKbrM+Vyz/03TVbvYVaAXU7K/Wi+4+n7eTmFZUfikt6fa57Lr97msdczCu36pYScues4LV1oDiB2dmH5xYSUmb+5eUThVzfAFjAVcAw5+52ZDx5B9/U54hJ+Lp1f/9F3DseuJnMLhGcTsj/4fE18Mn0YiAFBCYDApaBC8eRyaVnNdVA5pv5r3ZkH/ADhoA/wKPZBtuFqz+k/s6+l8rrFYuPlnnYB53KKSlPzSmcv2eWy79KKHTH2wbhuPauscfrPLjVNbVt37N1Bv/IAIFiwefeZhPy0gpop39rkCxSP9l5N4H69aSdA0tTz4Go2LjkEWsuO8IzCh2eA0Wm5RcfjH43/gX3qRlZBZcOkH62TC1Dr3Mvnz1ruXN2qeBCFuib4Q/fP09AcQ9qj0Lth3onNGLmzdzL0V3q296DsGUbfSy9cuGm3E+fASpcovZW7mtpAwYKC
+REFCJ5u93OP83WeW8dxK5X6zwXuReVB+OS7c+NUmKOiEYjnXnqgbq9gRzHHY8Vvj5zuwQs+x/Y9Y+++38T1a2dC83i3CKwbFHHs/+/P1vl29YrFY6hl2eeF2P4/IIzOWuO+MvM4kB4FBDb63CNl5AM0HkI3vYde9l84l5H0w35EVfJrtf8zW/4jZ7ujsUuAjNA4rnF4iMFrtXFiFmmDv2fhF6z08Q09+vsFrs+LlAeBIDlCrgA3vFkldQi/MWsaOzyvR/dl1jetRl+DDbL8j5p4H4h5m74y5utjCT1jTHHDw6mer3EFpbXYN9QjHyogGpN9t8zqTkJPCrfxspVsjffQF6Nzt7G+27m4Sy+Zt8D10UdExNrDC98Rc6ekX2+w5tNTS3zX85NSf2aeuZ5yJz5y7xpN5E0hCNthoVg19mzc0A71SvLGDLXqRhgoCkDps0GB0iSFjCDp3O91g9W7lGjKkbze67wxHwdzKqTBc6QEWBGpCb9JTECxzi01QPH8IxEAU9iudY36wDIZqLjb3DaAfygHaFRW3yjEYi8G1uQ9n/uLWjIODJ7TU1m9X9FU4OHcvw2j1bjhIyi2btNC+pA75uMrtiDvtaqgIaNde6RSzQflCKFu/4+yI2Ht5wkk/e1bQV6sMEoiVqVh6oUBnOVvY2gcmfML3drfTUbXujLqw2kX5lAEdlCpWxIPD0dA75QeHs8ncOSvdT9xhnnhXEL++5eutPt+Yhq9xOZhJn17aaO/nRL/8BNybu3bHxXu5qdwKk+VOtc2KJSEnAQSbdrVJZD+YBzgFn2YC17OjAk7evpaUBwq/jdb6O/OAg3EZd9NLp37vUNWCvT+ZK9Bfyq5qRf+Gcg92DBdfQkMDwVPZQA9gjKb84t30v5tsZYec99of6x524npyznr3vaucIi7dTlnjEvPPeZbccnStGSZ1d/fq/uDwnWmw78HL7mHnI0/eLK5u2BV+4ujlxMW2oSucwiGaXcAJg1XORy/G
+V9TW74q+8oulN5P2cUfPd1t9Vtj7n77xgBN9+l5KFgQ6B5+c8oN5vqAim1/zwVeme8/cyCmt01/C2nvm5snrDycutN3kGqX4aBLNJS4p/9OvrDwjL5y58XDGTyw736O9EtlSu7DFZrtPX0/wP3Dx2h1cGgoJmNZVN7VO+8nBxe9YTWPr3NUenlGx526lGK3e+fkW7076Bj8KL3lCeom55/7wM3G/WAQu3uoNHhLnyE29JY5Hzt/af+5axCmqq+Ifzlnvumn3CUvO+SspOZAs7NjNaT+zDl+657n3wiuzN1xM4D3M48/4cUtNExp4oKPxqcZL7aGYUzdTP/l6m+/BK0fiHnw839Lv+O2HOYLpi9nHbzzcf+7OP7802xlxoVskmb/F5wdT/5PX723ZtX/ifKvaQXPwb+kPgwAwAF0bA4or6lgBx813xZjtid7mGnLxRrKgsc3a77it98Gzt7OgTydl4dM2DPVJJOHHbprtPGC659BW96g9YScrHjf7HoxdyophBZwC/wByrmzpsAk8upYdnFUgeJhbeiIuAYVIe2ZFYxs7+PAa132O/ofySgSg4qCD2vofupKYDlcPXUnyCDsjlUiv3M/Y4BLlE3Pp/L3M0MNXWhWLghT1v5iQvco50j7k5M7o8zeT0PzDiGBXxOn1rvtsfQ6n5ZWgmYM/jI3AuZrEc/ba39He8zC3eOOOCFb4+djEPP9DlytobZl8eSVVpq5Rv9j4swKOVdZDP5b1yWVRlxI2Oe21cAcHOgEyqqxrDDhyIfLw1eBDVycvsb/6KKdbKvM6eGWDy76o2ISAU3fzyurL6xsjjsV2dvVgxjJ5dklF1KlrIjrfcez6w1XsMOewkx4xYPoEYJQPXLq/0Xlf4NFrp+MzDpyIB9SW1rfa+hzb5rnXa/+58GM3mG+K/0f6oyDAKiKfgBQhv084nULdc4iK9up5QkYPVlYmA9WIeYLMB7Om7gcYH4XGZhQ1Er76AokaJmXedHaB
+UR4MidG6AyPpQ0Y0GhwMRhicjRjMli4wweIB58yoEgOpwwvBgwnpVCcgACcNFSHMjyJPPHsSAmM8Hv/IxbtVbZ0PuNCJ7c/fZlajP03KRsMODpUVemYG4AnhMGSwzkAwUlMcKQnZpjj8d/RnQKDc8B/Egz4j1gQ5CCEgS6ZJcCBGJwvOoJLIL9iARyA/OIeocEyT4ygXTkGgsEEc7Pvgy0BDMB3NjoqERsA5CVDzTO9GkKFzhplLRHIxVAXjoqWml6AsXOzK5KucuAOhysRwAbUEhkDOYEHxjRdwkZZCs8FioaoQixaN2UKtaU2BsBx0uCg8IR30YBwmYw4YgbYR42BIRnHZYod9k3/1MVrFibqSjMsasY2QLcQB/vQzc5oQCOeUm+DJiqHJTMGYIV6EPWSLk+KUb1hfijm6KVilrCRtwH+koTqGw/S/kIZBMEzDIBimYRAME9AwCIZpGATDJJf/H9/NapHndBw9AAAAAElFTkSuQmCC</ImageData>
+    </EmbeddedImage>
     <EmbeddedImage Name="ID100">
       <MIMEType>image/png</MIMEType>
       <ImageData>iVBORw0KGgoAAAANSUhEUgAAAKUAAABfCAYAAACJIgelAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAGDoSURBVHhe7X0FnNVF9/4C2323u9nuYpdOQcAgBFtBQUURsQMsUMHujtfu7lZEGhXp3u7d2727z/85c7m6Kuhb/Hz1z9zP7L177zfmO/PMOc+ZOXPGA3+H1Pur999NPepvL9974GR2MHer3NsruYe5V+Uj6c9Jf21QCm4OlgmxvlkA+HN2qvduvjsJSCfs6r1bgVOyAJXgZP71dX6Z1Y2OpMOQ/rqg/DUQ++Y+4HGDUUDozs5eB+HngE29rPxk58um/sr3LoC6wNv3WipTkroyb6TudST9t9NfG5QO/pHsJEh6+H4g9/ZQ2vU4YLYZFQgdBKHOpoOlx8xsRbO+BQabAS3GVtTp6qBz6NBp7YDW3gUtj3P02n4GcI8NDqeFl3W4bsprO21WdDvl/yPpcKS/PiidfO8Dyp4eckUCx9Fth86sFUjC0G1Eh6UTJlhg5mtH405MOWsqQtPDUDS6CHc8eSesTpGZVpi6TWg3tcHoNLgkpwCUwOwlKHt7yD0d/M5qQXf3EVAervQ3ASWzooAuUDopJe0EkclpgrHXQsVMSdlLyWhvx5aGbZh42jGIyIlBRF40NDnhSKlIw5KHlsLsNKOruwsGh54g7iCEXapdVPmBGxCcfFdZCnAkHY701wblLwApOKF5Qr4ngLT2WpWE7HLqYSS8REr+0LAFo2aMgyY3CgGZoYiuSETy4HREl8QhpToDdzx/NxrsTajpqlVc09hr5F+XBHX02nlL3uSnfASUhyv9tUEpYHTnPqC0EZRmARWzrteMFkcHfmzegUlzpiA0NxIB2WGIqUzGgAw/+OQGI6ggDNHl8cibUIInP3ia51Dd92ihJ5SNvSboKTmNdgMcVONyI1Hd3d3SG46kw5H+VFC6xwMP

Empresas/12/Formatos/OC.rdlc

@@ -1574,8 +1574,9 @@
           </Style>
         </Textbox>
         <Image Name="ImgFirmaAutorizo">
-          <Source>External</Source>
+          <Source>Database</Source>
-          <Value>=Parameters!FirmaAutorizo.Value</Value>
+          <Value>=System.Convert.FromBase64String(Parameters!FirmaAutorizo.Value)</Value>
+          <MIMEType>image/png</MIMEType>
           <Sizing>Fit</Sizing>
           <Top>0.74655cm</Top>
           <Left>5.63442cm</Left>

Empresas/122/Formatos/OC.rdlc

@@ -1571,8 +1571,9 @@
           </Style>
         </Textbox>
         <Image Name="ImgFirmaAutorizo">
-          <Source>External</Source>
+          <Source>Database</Source>
-          <Value>=Parameters!FirmaAutorizo.Value</Value>
+          <Value>=System.Convert.FromBase64String(Parameters!FirmaAutorizo.Value)</Value>
+          <MIMEType>image/png</MIMEType>
           <Sizing>Fit</Sizing>
           <Top>0.17639cm</Top>
           <Left>5.66608cm</Left>

Empresas/13/Formatos/OC.rdlc

@@ -1173,7 +1173,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox20</rd:DefaultName>
-        <Top>7.25225cm</Top>
+        <Top>8.173cm</Top>
         <Left>16.1331cm</Left>
         <Height>0.45183cm</Height>
         <Width>2.06968cm</Width>
@@ -1339,7 +1339,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox20</rd:DefaultName>
-        <Top>7.25225cm</Top>
+        <Top>8.173cm</Top>
         <Left>18.20276cm</Left>
         <Height>0.45183cm</Height>
         <Width>2.26019cm</Width>
@@ -1449,7 +1449,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox46</rd:DefaultName>
-        <Top>7.25225cm</Top>
+        <Top>8.173cm</Top>
         <Left>0.20457cm</Left>
         <Height>0.45183cm</Height>
         <Width>15.92855cm</Width>
@@ -2432,7 +2432,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox12</rd:DefaultName>
-        <Top>9.76815cm</Top>
+        <Top>10.72065cm</Top>
         <Left>3.07712cm</Left>
         <Height>0.44478cm</Height>
         <Width>5.83844cm</Width>
@@ -2468,7 +2468,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox12</rd:DefaultName>
-        <Top>10.21293cm</Top>
+        <Top>11.16543cm</Top>
         <Left>3.07712cm</Left>
         <Height>0.4095cm</Height>
         <Width>5.83844cm</Width>
@@ -2508,7 +2508,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox12</rd:DefaultName>
-        <Top>10.65771cm</Top>
+        <Top>11.61021cm</Top>
         <Left>3.07712cm</Left>
         <Height>0.44478cm</Height>
         <Width>5.83844cm</Width>
@@ -2544,7 +2544,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox12</rd:DefaultName>
-        <Top>9.76815cm</Top>
+        <Top>10.72065cm</Top>
         <Left>11.4732cm</Left>
         <Height>0.44478cm</Height>
         <Width>5.83844cm</Width>
@@ -2580,7 +2580,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox12</rd:DefaultName>
-        <Top>10.21293cm</Top>
+        <Top>11.16543cm</Top>
         <Left>11.4732cm</Left>
         <Height>0.4095cm</Height>
         <Width>5.83844cm</Width>
@@ -2620,7 +2620,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox12</rd:DefaultName>
-        <Top>10.65771cm</Top>
+        <Top>11.61021cm</Top>
         <Left>11.4732cm</Left>
         <Height>0.44478cm</Height>
         <Width>5.83844cm</Width>
@@ -2637,10 +2637,11 @@
         </Style>
       </Textbox>
       <Image Name="ImgFirmaAutorizo">
-        <Source>External</Source>
+        <Source>Database</Source>
-        <Value>=Parameters!FirmaAutorizo.Value</Value>
+        <Value>=System.Convert.FromBase64String(Parameters!FirmaAutorizo.Value)</Value>
+        <MIMEType>image/png</MIMEType>
         <Sizing>Fit</Sizing>
-        <Top>8.19797cm</Top>
+        <Top>9.15047cm</Top>
         <Left>12.49243cm</Left>
         <Height>3.5cm</Height>
         <Width>3.5cm</Width>
@@ -2655,10 +2656,11 @@
         </Style>
       </Image>
       <Image Name="ImgFirmaAutorizo2">
-        <Source>External</Source>
+        <Source>Database</Source>
-        <Value>=Parameters!FirmaSolicito.Value</Value>
+        <Value>=System.Convert.FromBase64String(Parameters!FirmaSolicito.Value)</Value>
+        <MIMEType>image/png</MIMEType>
         <Sizing>Fit</Sizing>
-        <Top>8.19797cm</Top>
+        <Top>9.15047cm</Top>
         <Left>4.23541cm</Left>
         <Height>3.5cm</Height>
         <Width>3.5cm</Width>
@@ -2805,7 +2807,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>11.98901cm</Top>
+        <Top>13.25901cm</Top>
         <Left>4.69611cm</Left>
         <Height>0.6cm</Height>
         <Width>15.75563cm</Width>
@@ -3075,7 +3077,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox8</rd:DefaultName>
-        <Top>11.98901cm</Top>
+        <Top>13.25901cm</Top>
         <Height>1.20854cm</Height>
         <Width>4.59028cm</Width>
         <ZIndex>42</ZIndex>
@@ -3129,8 +3131,228 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Textbox48">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Ret IVA</Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox20</rd:DefaultName>
+        <Top>7.26417cm</Top>
+        <Left>16.13046cm</Left>
+        <Height>0.45183cm</Height>
+        <Width>2.0717cm</Width>
+        <ZIndex>44</ZIndex>
+        <Visibility>
+          <Hidden>=Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value &gt; 0, False, True)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </Border>
+          <TopBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </TopBorder>
+          <BottomBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </BottomBorder>
+          <LeftBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </LeftBorder>
+          <RightBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </RightBorder>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox49">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!RetIVA.Value</Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <Format>#,0.00</Format>
+                  <Language>es-MX</Language>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox20</rd:DefaultName>
+        <Top>7.26417cm</Top>
+        <Left>18.19155cm</Left>
+        <Height>0.45183cm</Height>
+        <Width>2.25666cm</Width>
+        <ZIndex>45</ZIndex>
+        <Visibility>
+          <Hidden>=Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value &gt; 0, False, True)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </Border>
+          <TopBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </TopBorder>
+          <BottomBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </BottomBorder>
+          <LeftBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </LeftBorder>
+          <RightBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </RightBorder>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox50">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Ret ISR</Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox20</rd:DefaultName>
+        <Top>7.71953cm</Top>
+        <Left>16.12189cm</Left>
+        <Height>0.45183cm</Height>
+        <Width>2.08027cm</Width>
+        <ZIndex>46</ZIndex>
+        <Visibility>
+          <Hidden>=Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value &gt; 0, False, True)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </Border>
+          <TopBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </TopBorder>
+          <BottomBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </BottomBorder>
+          <LeftBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </LeftBorder>
+          <RightBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </RightBorder>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox51">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!RetISR.Value</Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <Format>#,0.00</Format>
+                  <Language>es-MX</Language>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox20</rd:DefaultName>
+        <Top>7.71953cm</Top>
+        <Left>18.19155cm</Left>
+        <Height>0.45183cm</Height>
+        <Width>2.26019cm</Width>
+        <ZIndex>47</ZIndex>
+        <Visibility>
+          <Hidden>=Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value &gt; 0, False, True)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </Border>
+          <TopBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </TopBorder>
+          <BottomBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </BottomBorder>
+          <LeftBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </LeftBorder>
+          <RightBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </RightBorder>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
-    <Height>5.19589in</Height>
+    <Height>5.94589in</Height>
     <Style />
   </Body>
   <Width>8.05749in</Width>

Empresas/145/Formatos/OC.rdlc

@@ -1595,8 +1595,9 @@
           </Style>
         </Textbox>
         <Image Name="ImgFirmaAutorizo">
-          <Source>External</Source>
+          <Source>Database</Source>
-          <Value>=Parameters!FirmaAutorizo.Value</Value>
+          <Value>=System.Convert.FromBase64String(Parameters!FirmaAutorizo.Value)</Value>
+          <MIMEType>image/png</MIMEType>
           <Sizing>Fit</Sizing>
           <Top>0.17639cm</Top>
           <Left>5.67997cm</Left>

Empresas/146/Formatos/Cotizacion.rdlc

@@ -6,28 +6,68 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>0.55143in</Width>
+              <Width>0.86167in</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.69922in</Width>
+              <Width>0.52018in</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.73895in</Width>
+              <Width>0.67839in</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.30851in</Width>
+              <Width>2.43151in</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.82226in</Width>
+              <Width>1.15226in</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.98893in</Width>
+              <Width>0.75976in</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>0.81858in</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
             <TablixRow>
-              <Height>0.25in</Height>
+              <Height>0.3125in</Height>
               <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox11">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>NÚMERO DE PARTE</Value>
+                              <Style>
+                                <FontFamily>Roboto Condensed Light</FontFamily>
+                                <FontSize>7.5pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                                <Color>White</Color>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox11</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BackgroundColor>#ff1037</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox2">
@@ -255,6 +295,41 @@
             <TablixRow>
               <Height>0.25in</Height>
               <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Codigo">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Codigo.Value</Value>
+                              <Style>
+                                <FontFamily>Roboto Condensed Light</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <Language>es-MX</Language>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</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="Cantidad">
@@ -466,6 +541,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -481,8 +557,8 @@
         <DataSetName>DsOC</DataSetName>
         <Top>3.49009in</Top>
         <Left>0.13746in</Left>
-        <Height>0.5in</Height>
+        <Height>0.5625in</Height>
-        <Width>7.1093in</Width>
+        <Width>7.22235in</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1245,12 +1321,12 @@
             <Width>2pt</Width>
           </Border>
         </Style>
-      </Line>      
+      </Line>
     </ReportItems>
     <Height>6.36333in</Height>
     <Style />
   </Body>
-  <Width>7.53738in</Width>
+  <Width>7.50059in</Width>
   <Page>
     <PageFooter>
       <Height>2.76938in</Height>

Empresas/154/Formatos/Factura.rdlc

@@ -479,7 +479,7 @@
             <KeepTogether>true</KeepTogether>
             <Top>4.65368in</Top>
             <Left>0.06752in</Left>
-            <Height>1.60919in</Height>
+            <Height>1.41544in</Height>
             <Width>8.23953in</Width>
             <Style>
               <Border>
@@ -2525,14 +2525,499 @@
               <PaddingBottom>2pt</PaddingBottom>
             </Style>
           </Textbox>
+          <Rectangle Name="Rectangle1">
+            <ReportItems>
+              <Textbox Name="Textbox42">
+                <CanGrow>true</CanGrow>
+                <KeepTogether>true</KeepTogether>
+                <Paragraphs>
+                  <Paragraph>
+                    <TextRuns>
+                      <TextRun>
+                        <Value>Tipo Relación:</Value>
+                        <Style>
+                          <FontFamily>Calibri</FontFamily>
+                          <FontSize>9pt</FontSize>
+                          <FontWeight>Normal</FontWeight>
+                        </Style>
+                      </TextRun>
+                    </TextRuns>
+                    <Style>
+                      <TextAlign>Right</TextAlign>
+                    </Style>
+                  </Paragraph>
+                </Paragraphs>
+                <rd:DefaultName>Textbox29</rd:DefaultName>
+                <Top>0.69848cm</Top>
+                <Left>2.57101cm</Left>
+                <Height>0.41981cm</Height>
+                <Width>6.35221cm</Width>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                  <PaddingLeft>2pt</PaddingLeft>
+                  <PaddingRight>2pt</PaddingRight>
+                  <PaddingTop>2pt</PaddingTop>
+                  <PaddingBottom>2pt</PaddingBottom>
+                </Style>
+              </Textbox>
+              <Textbox Name="Textbox43">
+                <CanGrow>true</CanGrow>
+                <KeepTogether>true</KeepTogether>
+                <Paragraphs>
+                  <Paragraph>
+                    <TextRuns>
+                      <TextRun>
+                        <Value>=Parameters!TipoRelacionTexto.Value</Value>
+                        <Style>
+                          <FontFamily>Calibri</FontFamily>
+                          <FontSize>8pt</FontSize>
+                        </Style>
+                      </TextRun>
+                    </TextRuns>
+                    <Style />
+                  </Paragraph>
+                </Paragraphs>
+                <rd:DefaultName>Textbox29</rd:DefaultName>
+                <Top>0.69848cm</Top>
+                <Left>8.99377cm</Left>
+                <Height>0.41981cm</Height>
+                <Width>9.52264cm</Width>
+                <ZIndex>1</ZIndex>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                  <PaddingLeft>2pt</PaddingLeft>
+                  <PaddingRight>2pt</PaddingRight>
+                  <PaddingTop>2pt</PaddingTop>
+                  <PaddingBottom>2pt</PaddingBottom>
+                </Style>
+              </Textbox>
+              <Tablix Name="Tablix1">
+                <TablixBody>
+                  <TablixColumns>
+                    <TablixColumn>
+                      <Width>2.63922cm</Width>
+                    </TablixColumn>
+                    <TablixColumn>
+                      <Width>2.27051cm</Width>
+                    </TablixColumn>
+                    <TablixColumn>
+                      <Width>3.25097cm</Width>
+                    </TablixColumn>
+                    <TablixColumn>
+                      <Width>7.7847cm</Width>
+                    </TablixColumn>
+                  </TablixColumns>
+                  <TablixRows>
+                    <TablixRow>
+                      <Height>0.44125cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox16">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Folio</Value>
+                                      <Style>
+                                        <FontFamily>Calibri</FontFamily>
+                                        <FontWeight>Normal</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Left</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox10</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="Textbox19">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Fecha</Value>
+                                      <Style>
+                                        <FontFamily>Calibri</FontFamily>
+                                        <FontWeight>Normal</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Left</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox12</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox22">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Importe</Value>
+                                      <Style>
+                                        <FontFamily>Calibri</FontFamily>
+                                        <FontWeight>Normal</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Left</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox21</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="Textbox25">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>Folio Fiscal</Value>
+                                      <Style>
+                                        <FontFamily>Calibri</FontFamily>
+                                        <FontWeight>Normal</FontWeight>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Left</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Textbox11</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                      </TablixCells>
+                    </TablixRow>
+                    <TablixRow>
+                      <Height>0.41479cm</Height>
+                      <TablixCells>
+                        <TablixCell>
+                          <CellContents>
+                            <Textbox Name="SerieFolio">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!SerieFolio.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>SerieFolio</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="Fecha">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!Fecha.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                        <Format>dd/MM/yyyy</Format>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Center</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Fecha</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="Importe1">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!Importe.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                        <Format>#,0.00;-#,0.00;'-'</Format>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style>
+                                    <TextAlign>Right</TextAlign>
+                                  </Style>
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>Importe1</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="FolioFiscal">
+                              <CanGrow>true</CanGrow>
+                              <KeepTogether>true</KeepTogether>
+                              <Paragraphs>
+                                <Paragraph>
+                                  <TextRuns>
+                                    <TextRun>
+                                      <Value>=Fields!FolioFiscal.Value</Value>
+                                      <Style>
+                                        <FontFamily>myriad pro</FontFamily>
+                                        <FontSize>7.5pt</FontSize>
+                                      </Style>
+                                    </TextRun>
+                                  </TextRuns>
+                                  <Style />
+                                </Paragraph>
+                              </Paragraphs>
+                              <rd:DefaultName>FolioFiscal</rd:DefaultName>
+                              <Style>
+                                <Border>
+                                  <Style>None</Style>
+                                </Border>
+                                <PaddingLeft>2pt</PaddingLeft>
+                                <PaddingRight>2pt</PaddingRight>
+                                <PaddingTop>2pt</PaddingTop>
+                                <PaddingBottom>2pt</PaddingBottom>
+                              </Style>
+                            </Textbox>
+                          </CellContents>
+                        </TablixCell>
+                      </TablixCells>
+                    </TablixRow>
+                  </TablixRows>
+                </TablixBody>
+                <TablixColumnHierarchy>
+                  <TablixMembers>
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                    <TablixMember />
+                  </TablixMembers>
+                </TablixColumnHierarchy>
+                <TablixRowHierarchy>
+                  <TablixMembers>
+                    <TablixMember>
+                      <KeepWithGroup>After</KeepWithGroup>
+                    </TablixMember>
+                    <TablixMember>
+                      <Group Name="Details1" />
+                    </TablixMember>
+                  </TablixMembers>
+                </TablixRowHierarchy>
+                <DataSetName>DataSet4</DataSetName>
+                <Top>1.22386cm</Top>
+                <Left>2.57101cm</Left>
+                <Height>0.85604cm</Height>
+                <Width>15.9454cm</Width>
+                <ZIndex>2</ZIndex>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                </Style>
+              </Tablix>
+              <Textbox Name="Textbox14">
+                <CanGrow>true</CanGrow>
+                <KeepTogether>true</KeepTogether>
+                <Paragraphs>
+                  <Paragraph>
+                    <TextRuns>
+                      <TextRun>
+                        <Value>VERSION 3.3</Value>
+                        <Style>
+                          <FontFamily>Calibri</FontFamily>
+                          <FontWeight>Normal</FontWeight>
+                        </Style>
+                      </TextRun>
+                    </TextRuns>
+                    <Style>
+                      <TextAlign>Center</TextAlign>
+                    </Style>
+                  </Paragraph>
+                </Paragraphs>
+                <rd:DefaultName>Textbox5</rd:DefaultName>
+                <Top>2.15724cm</Top>
+                <Left>17.53151cm</Left>
+                <Height>0.52063cm</Height>
+                <Width>3.32021cm</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="Textbox41">
+                <CanGrow>true</CanGrow>
+                <KeepTogether>true</KeepTogether>
+                <Paragraphs>
+                  <Paragraph>
+                    <TextRuns>
+                      <TextRun>
+                        <Value>CFDI Relacionados</Value>
+                        <Style>
+                          <FontFamily>Calibri</FontFamily>
+                          <FontSize>10.16pt</FontSize>
+                          <FontWeight>Normal</FontWeight>
+                        </Style>
+                      </TextRun>
+                    </TextRuns>
+                    <Style>
+                      <TextAlign>Center</TextAlign>
+                    </Style>
+                  </Paragraph>
+                </Paragraphs>
+                <rd:DefaultName>Textbox5</rd:DefaultName>
+                <Left>0.03101cm</Left>
+                <Height>0.54004cm</Height>
+                <Width>20.79183cm</Width>
+                <ZIndex>4</ZIndex>
+                <Style>
+                  <Border>
+                    <Style>None</Style>
+                  </Border>
+                  <PaddingLeft>2pt</PaddingLeft>
+                  <PaddingRight>2pt</PaddingRight>
+                  <PaddingTop>2pt</PaddingTop>
+                  <PaddingBottom>2pt</PaddingBottom>
+                </Style>
+              </Textbox>
+            </ReportItems>
+            <KeepTogether>true</KeepTogether>
+            <Top>15.5602cm</Top>
+            <Left>0.16937cm</Left>
+            <Height>2.67786cm</Height>
+            <Width>20.85172cm</Width>
+            <ZIndex>20</ZIndex>
+            <Visibility>
+              <Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden>
+            </Visibility>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+            </Style>
+          </Rectangle>
         </ReportItems>
-        <Height>15.90769cm</Height>
+        <Height>18.23806cm</Height>
         <Style />
       </Body>
       <Width>21.16666cm</Width>
       <Page>
         <PageFooter>
-          <Height>0.52388cm</Height>
+          <Height>0.52387cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>

Empresas/7/Formatos/OC.rdlc

@@ -2091,8 +2091,9 @@
           </Style>
         </Rectangle>
         <Image Name="ImgFirmaAutorizo">
-          <Source>External</Source>
+          <Source>Database</Source>
-          <Value>=Parameters!FirmaAutorizo.Value</Value>
+          <Value>=System.Convert.FromBase64String(Parameters!FirmaAutorizo.Value)</Value>
+          <MIMEType>image/png</MIMEType>
           <Sizing>Fit</Sizing>
           <Top>0.82196cm</Top>
           <Left>6.69573cm</Left>

Empresas/83/Formatos/OC.rdlc

@@ -2294,8 +2294,9 @@
         </Style>
       </Textbox>
       <Image Name="ImgFirmaAutorizo3">
-        <Source>External</Source>
+        <Source>Database</Source>
-        <Value>=Parameters!FirmaAutorizo.Value</Value>
+        <Value>=System.Convert.FromBase64String(Parameters!FirmaAutorizo.Value)</Value>
+        <MIMEType>image/png</MIMEType>
         <Sizing>Fit</Sizing>
         <Top>8.83297cm</Top>
         <Left>12.49243cm</Left>
@@ -2312,8 +2313,9 @@
         </Style>
       </Image>
       <Image Name="ImgFirmaAutorizo4">
-        <Source>External</Source>
+        <Source>Database</Source>
-        <Value>=Parameters!FirmaSolicito.Value</Value>
+        <Value>=System.Convert.FromBase64String(Parameters!FirmaSolicito.Value)</Value>
+        <MIMEType>image/png</MIMEType>
         <Sizing>Fit</Sizing>
         <Top>8.83297cm</Top>
         <Left>4.23541cm</Left>
@@ -2564,7 +2566,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox20</rd:DefaultName>
-        <Top>7.05666cm</Top>
+        <Top>7.97741cm</Top>
         <Left>16.12454cm</Left>
         <Height>0.45183cm</Height>
         <Width>2.06968cm</Width>
@@ -2676,7 +2678,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox20</rd:DefaultName>
-        <Top>7.05666cm</Top>
+        <Top>7.97741cm</Top>
         <Left>18.1942cm</Left>
         <Height>0.45183cm</Height>
         <Width>2.26019cm</Width>
@@ -2730,7 +2732,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox46</rd:DefaultName>
-        <Top>7.05666cm</Top>
+        <Top>7.97741cm</Top>
         <Left>0.19601cm</Left>
         <Height>0.45183cm</Height>
         <Width>15.92855cm</Width>
@@ -3026,6 +3028,226 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Textbox33">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Ret IVA</Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox20</rd:DefaultName>
+        <Top>7.05964cm</Top>
+        <Left>16.13311cm</Left>
+        <Height>0.45183cm</Height>
+        <Width>2.0717cm</Width>
+        <ZIndex>43</ZIndex>
+        <Visibility>
+          <Hidden>=Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value &gt; 0, False, True)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </Border>
+          <TopBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </TopBorder>
+          <BottomBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </BottomBorder>
+          <LeftBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </LeftBorder>
+          <RightBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </RightBorder>
+          <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!RetIVA.Value</Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <Format>#,0.00</Format>
+                  <Language>es-MX</Language>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox20</rd:DefaultName>
+        <Top>7.05964cm</Top>
+        <Left>18.1942cm</Left>
+        <Height>0.45183cm</Height>
+        <Width>2.25666cm</Width>
+        <ZIndex>44</ZIndex>
+        <Visibility>
+          <Hidden>=Microsoft.VisualBasic.Interaction.iif(Parameters!RetIVA.Value &gt; 0, False, True)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </Border>
+          <TopBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </TopBorder>
+          <BottomBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </BottomBorder>
+          <LeftBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </LeftBorder>
+          <RightBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </RightBorder>
+          <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>Ret ISR</Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox20</rd:DefaultName>
+        <Top>7.515cm</Top>
+        <Left>16.12454cm</Left>
+        <Height>0.45183cm</Height>
+        <Width>2.08027cm</Width>
+        <ZIndex>45</ZIndex>
+        <Visibility>
+          <Hidden>=Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value &gt; 0, False, True)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </Border>
+          <TopBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </TopBorder>
+          <BottomBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </BottomBorder>
+          <LeftBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </LeftBorder>
+          <RightBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </RightBorder>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Textbox Name="Textbox38">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!RetISR.Value</Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <Format>#,0.00</Format>
+                  <Language>es-MX</Language>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Right</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox20</rd:DefaultName>
+        <Top>7.515cm</Top>
+        <Left>18.1942cm</Left>
+        <Height>0.45183cm</Height>
+        <Width>2.26019cm</Width>
+        <ZIndex>46</ZIndex>
+        <Visibility>
+          <Hidden>=Microsoft.VisualBasic.Interaction.iif(Parameters!RetISR.Value &gt; 0, False, True)</Hidden>
+        </Visibility>
+        <Style>
+          <Border>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </Border>
+          <TopBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </TopBorder>
+          <BottomBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </BottomBorder>
+          <LeftBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </LeftBorder>
+          <RightBorder>
+            <Color>LightGrey</Color>
+            <Style>Solid</Style>
+          </RightBorder>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
     <Height>5.1933in</Height>
     <Style />
@@ -3067,7 +3289,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox8</rd:DefaultName>
-          <Top>0.08113cm</Top>
+          <Top>0.08112cm</Top>
           <Left>0.20457cm</Left>
           <Height>0.46771cm</Height>
           <Width>6.86562cm</Width>

Empresas/Grales/Formatos/CartaPorte.rdlc

@@ -255,6 +255,9 @@
                       <Border>
                         <Style>Solid</Style>
                       </Border>
+                      <RightBorder>
+                        <Style>Solid</Style>
+                      </RightBorder>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -381,7 +384,7 @@
         <RepeatColumnHeaders>true</RepeatColumnHeaders>
         <FixedColumnHeaders>true</FixedColumnHeaders>
         <DataSetName>DataSet1</DataSetName>
-        <Top>5.46866cm</Top>
+        <Top>4.51616cm</Top>
         <Left>0.21008cm</Left>
         <Height>1.14708cm</Height>
         <Width>19.11272cm</Width>
@@ -389,6 +392,9 @@
           <Border>
             <Style>None</Style>
           </Border>
+          <RightBorder>
+            <Style>Solid</Style>
+          </RightBorder>
         </Style>
       </Tablix>
       <Textbox Name="Textbox7">
@@ -803,400 +809,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Tablix Name="Tablix3">
-        <TablixCorner>
-          <TablixCornerRows>
-            <TablixCornerRow>
-              <TablixCornerCell>
-                <CellContents>
-                  <Textbox Name="Textbox29">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>DESIGNACIÓN Y/O DESCRIPCIÓN DE LAS MERCANCIAS A TRANSPORTAR</Value>
-                            <Style>
-                              <FontFamily>Myriad Pro</FontFamily>
-                              <FontSize>8pt</FontSize>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Center</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Textbox28</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>Solid</Style>
-                      </Border>
-                      <PaddingLeft>2pt</PaddingLeft>
-                      <PaddingRight>2pt</PaddingRight>
-                      <PaddingTop>2pt</PaddingTop>
-                      <PaddingBottom>2pt</PaddingBottom>
-                    </Style>
-                  </Textbox>
-                </CellContents>
-              </TablixCornerCell>
-            </TablixCornerRow>
-          </TablixCornerRows>
-        </TablixCorner>
-        <TablixBody>
-          <TablixColumns>
-            <TablixColumn>
-              <Width>3.00921cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>3.29899cm</Width>
-            </TablixColumn>
-            <TablixColumn>
-              <Width>2.03729cm</Width>
-            </TablixColumn>
-          </TablixColumns>
-          <TablixRows>
-            <TablixRow>
-              <Height>0.6cm</Height>
-              <TablixCells>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="UM2">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value />
-                              <Style>
-                                <FontFamily>Myriad Pro</FontFamily>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Center</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>UM</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>Solid</Style>
-                          <Width>2pt</Width>
-                        </Border>
-                        <TopBorder>
-                          <Style>None</Style>
-                        </TopBorder>
-                        <BottomBorder>
-                          <Color>Black</Color>
-                          <Width>1pt</Width>
-                        </BottomBorder>
-                        <LeftBorder>
-                          <Color>Black</Color>
-                          <Width>1pt</Width>
-                        </LeftBorder>
-                        <RightBorder>
-                          <Style>None</Style>
-                        </RightBorder>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox33">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value />
-                              <Style>
-                                <FontFamily>Myriad Pro</FontFamily>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Left</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox31</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                          <Width>5pt</Width>
-                        </Border>
-                        <BottomBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </BottomBorder>
-                        <LeftBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </LeftBorder>
-                        <RightBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </RightBorder>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox65">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value />
-                              <Style>
-                                <FontFamily>Myriad Pro</FontFamily>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Left</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox65</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                          <Width>5pt</Width>
-                        </Border>
-                        <BottomBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </BottomBorder>
-                        <LeftBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </LeftBorder>
-                        <RightBorder>
-                          <Color>Black</Color>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </RightBorder>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-              </TablixCells>
-            </TablixRow>
-          </TablixRows>
-        </TablixBody>
-        <TablixColumnHierarchy>
-          <TablixMembers>
-            <TablixMember>
-              <TablixHeader>
-                <Size>0.52062cm</Size>
-                <CellContents>
-                  <Textbox Name="Textbox41">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>PESO</Value>
-                            <Style>
-                              <FontFamily>Myriad Pro</FontFamily>
-                              <FontSize>8pt</FontSize>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Center</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Textbox40</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>Solid</Style>
-                      </Border>
-                      <PaddingLeft>2pt</PaddingLeft>
-                      <PaddingRight>2pt</PaddingRight>
-                      <PaddingTop>2pt</PaddingTop>
-                      <PaddingBottom>2pt</PaddingBottom>
-                    </Style>
-                  </Textbox>
-                </CellContents>
-              </TablixHeader>
-            </TablixMember>
-            <TablixMember>
-              <TablixHeader>
-                <Size>0.52062cm</Size>
-                <CellContents>
-                  <Textbox Name="Textbox32">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>METROS CUBICOS</Value>
-                            <Style>
-                              <FontFamily>Myriad Pro</FontFamily>
-                              <FontSize>8pt</FontSize>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Center</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Textbox30</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>Solid</Style>
-                      </Border>
-                      <PaddingLeft>2pt</PaddingLeft>
-                      <PaddingRight>2pt</PaddingRight>
-                      <PaddingTop>2pt</PaddingTop>
-                      <PaddingBottom>2pt</PaddingBottom>
-                    </Style>
-                  </Textbox>
-                </CellContents>
-              </TablixHeader>
-            </TablixMember>
-            <TablixMember>
-              <TablixHeader>
-                <Size>0.52062cm</Size>
-                <CellContents>
-                  <Textbox Name="Textbox64">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>LITROS</Value>
-                            <Style>
-                              <FontFamily>Myriad Pro</FontFamily>
-                              <FontSize>8pt</FontSize>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Center</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Textbox64</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>Solid</Style>
-                      </Border>
-                      <PaddingLeft>2pt</PaddingLeft>
-                      <PaddingRight>2pt</PaddingRight>
-                      <PaddingTop>2pt</PaddingTop>
-                      <PaddingBottom>2pt</PaddingBottom>
-                    </Style>
-                  </Textbox>
-                </CellContents>
-              </TablixHeader>
-            </TablixMember>
-          </TablixMembers>
-        </TablixColumnHierarchy>
-        <TablixRowHierarchy>
-          <TablixMembers>
-            <TablixMember>
-              <Group Name="GPO2" />
-              <TablixHeader>
-                <Size>10.863cm</Size>
-                <CellContents>
-                  <Textbox Name="Cantidad2">
-                    <CanGrow>true</CanGrow>
-                    <KeepTogether>true</KeepTogether>
-                    <Paragraphs>
-                      <Paragraph>
-                        <TextRuns>
-                          <TextRun>
-                            <Value>=Fields!CodigoPS.Value</Value>
-                            <Style>
-                              <FontFamily>Myriad Pro</FontFamily>
-                              <FontSize>8pt</FontSize>
-                              <Format>#,0</Format>
-                            </Style>
-                          </TextRun>
-                        </TextRuns>
-                        <Style>
-                          <TextAlign>Left</TextAlign>
-                        </Style>
-                      </Paragraph>
-                    </Paragraphs>
-                    <rd:DefaultName>Cantidad</rd:DefaultName>
-                    <Style>
-                      <Border>
-                        <Style>Solid</Style>
-                        <Width>2pt</Width>
-                      </Border>
-                      <TopBorder>
-                        <Style>None</Style>
-                      </TopBorder>
-                      <BottomBorder>
-                        <Color>Black</Color>
-                        <Width>1pt</Width>
-                      </BottomBorder>
-                      <LeftBorder>
-                        <Color>Black</Color>
-                        <Width>1pt</Width>
-                      </LeftBorder>
-                      <RightBorder>
-                        <Style>None</Style>
-                      </RightBorder>
-                      <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>4.17165cm</Top>
-        <Left>0.21008cm</Left>
-        <Height>1.12062cm</Height>
-        <Width>19.20849cm</Width>
-        <ZIndex>10</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Tablix>
       <Textbox Name="Textbox12">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -1215,11 +827,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>7.62994cm</Top>
+        <Top>6.99494cm</Top>
         <Left>0.20001cm</Left>
         <Height>0.62599cm</Height>
         <Width>19.21855cm</Width>
-        <ZIndex>11</ZIndex>
+        <ZIndex>10</ZIndex>
         <Style>
           <Border>
             <Style>Solid</Style>
@@ -1268,11 +880,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>8.25593cm</Top>
+        <Top>7.62093cm</Top>
         <Left>0.20001cm</Left>
         <Height>1.50794cm</Height>
         <Width>19.21855cm</Width>
-        <ZIndex>12</ZIndex>
+        <ZIndex>11</ZIndex>
         <Style>
           <Border>
             <Style>Solid</Style>
@@ -1332,11 +944,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox21</rd:DefaultName>
-        <Top>13.69816cm</Top>
+        <Top>14.33316cm</Top>
         <Left>2.20199cm</Left>
         <Height>1.2cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>13</ZIndex>
+        <ZIndex>12</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1367,11 +979,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox22</rd:DefaultName>
-        <Top>12.0345cm</Top>
+        <Top>12.6695cm</Top>
         <Left>2.20199cm</Left>
         <Height>0.6cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>14</ZIndex>
+        <ZIndex>13</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1415,11 +1027,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox21</rd:DefaultName>
-        <Top>13.69816cm</Top>
+        <Top>14.33316cm</Top>
         <Left>11.59464cm</Left>
         <Height>1.2cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>15</ZIndex>
+        <ZIndex>14</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1450,11 +1062,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox22</rd:DefaultName>
-        <Top>12.0345cm</Top>
+        <Top>12.6695cm</Top>
         <Left>11.59464cm</Left>
         <Height>0.6cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>16</ZIndex>
+        <ZIndex>15</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1485,11 +1097,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox22</rd:DefaultName>
-        <Top>13.3339cm</Top>
+        <Top>13.9689cm</Top>
         <Left>2.20199cm</Left>
         <Height>0.52062cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>17</ZIndex>
+        <ZIndex>16</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1520,11 +1132,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox22</rd:DefaultName>
-        <Top>13.3339cm</Top>
+        <Top>13.9689cm</Top>
         <Left>11.59464cm</Left>
         <Height>0.52062cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>18</ZIndex>
+        <ZIndex>17</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1640,7 +1252,7 @@
         <Left>0.23022cm</Left>
         <Height>2.22232cm</Height>
         <Width>19.21855cm</Width>
-        <ZIndex>19</ZIndex>
+        <ZIndex>18</ZIndex>
         <Style>
           <Border>
             <Style>Solid</Style>
@@ -1683,7 +1295,7 @@
         <Left>0.23022cm</Left>
         <Height>0.62599cm</Height>
         <Width>19.21855cm</Width>
-        <ZIndex>20</ZIndex>
+        <ZIndex>19</ZIndex>
         <Style>
           <Border>
             <Style>Solid</Style>
@@ -1703,169 +1315,139 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Tablix Name="Tablix1">
+      <Rectangle Name="Rectangle1">
-        <TablixBody>
+        <ReportItems>
-          <TablixColumns>
+          <Textbox Name="Textbox58">
-            <TablixColumn>
+            <CanGrow>true</CanGrow>
-              <Width>5.06862cm</Width>
+            <KeepTogether>true</KeepTogether>
-            </TablixColumn>
+            <Paragraphs>
-            <TablixColumn>
+              <Paragraph>
-              <Width>3.10917cm</Width>
+                <TextRuns>
-            </TablixColumn>
+                  <TextRun>
-            <TablixColumn>
+                    <Value>CHOFER: </Value>
-              <Width>10.93493cm</Width>
+                    <Style>
-            </TablixColumn>
+                      <FontSize>9pt</FontSize>
-          </TablixColumns>
+                    </Style>
-          <TablixRows>
+                  </TextRun>
-            <TablixRow>
+                  <TextRun>
-              <Height>0.6cm</Height>
+                    <Value>=Parameters!ResponsableRecibio.Value</Value>
-              <TablixCells>
+                    <Style>
-                <TablixCell>
+                      <FontFamily>Myriad Pro</FontFamily>
-                  <CellContents>
+                      <FontSize>8pt</FontSize>
-                    <Textbox Name="Textbox52">
+                    </Style>
-                      <CanGrow>true</CanGrow>
+                  </TextRun>
-                      <KeepTogether>true</KeepTogether>
+                </TextRuns>
-                      <Paragraphs>
+                <Style />
-                        <Paragraph>
+              </Paragraph>
-                          <TextRuns>
+            </Paragraphs>
-                            <TextRun>
+            <rd:DefaultName>Textbox58</rd:DefaultName>
-                              <Value>CHOFER: </Value>
+            <Height>0.83216cm</Height>
-                              <Style>
+            <Width>5.04848cm</Width>
-                                <FontSize>9pt</FontSize>
+            <Style>
-                              </Style>
+              <Border>
-                            </TextRun>
+                <Style>None</Style>
-                            <TextRun>
+              </Border>
-                              <Value>=Parameters!ResponsableRecibio.Value</Value>
+              <RightBorder>
-                              <Style>
+                <Style>Solid</Style>
-                                <FontFamily>Myriad Pro</FontFamily>
+              </RightBorder>
-                                <FontSize>8pt</FontSize>
+              <PaddingLeft>2pt</PaddingLeft>
-                              </Style>
+              <PaddingRight>2pt</PaddingRight>
-                            </TextRun>
+              <PaddingTop>2pt</PaddingTop>
-                          </TextRuns>
+              <PaddingBottom>2pt</PaddingBottom>
-                          <Style />
+            </Style>
-                        </Paragraph>
+          </Textbox>
-                      </Paragraphs>
+          <Textbox Name="Textbox59">
-                      <rd:DefaultName>Textbox52</rd:DefaultName>
+            <CanGrow>true</CanGrow>
-                      <Style>
+            <KeepTogether>true</KeepTogether>
-                        <Border>
+            <Paragraphs>
-                          <Style>Solid</Style>
+              <Paragraph>
-                        </Border>
+                <TextRuns>
-                        <PaddingLeft>2pt</PaddingLeft>
+                  <TextRun>
-                        <PaddingRight>2pt</PaddingRight>
+                    <Value>PLACA: </Value>
-                        <PaddingTop>2pt</PaddingTop>
+                    <Style>
-                        <PaddingBottom>2pt</PaddingBottom>
+                      <FontSize>9pt</FontSize>
-                      </Style>
+                    </Style>
-                    </Textbox>
+                  </TextRun>
-                  </CellContents>
+                  <TextRun>
-                </TablixCell>
+                    <Value>=Parameters!Placa.Value</Value>
-                <TablixCell>
+                    <Style>
-                  <CellContents>
+                      <FontFamily>Myriad Pro</FontFamily>
-                    <Textbox Name="Textbox53">
+                      <FontSize>8pt</FontSize>
-                      <CanGrow>true</CanGrow>
+                    </Style>
-                      <KeepTogether>true</KeepTogether>
+                  </TextRun>
-                      <Paragraphs>
+                </TextRuns>
-                        <Paragraph>
+                <Style />
-                          <TextRuns>
+              </Paragraph>
-                            <TextRun>
+            </Paragraphs>
-                              <Value>PLACA: </Value>
+            <rd:DefaultName>Textbox59</rd:DefaultName>
-                              <Style>
+            <Left>5.08202cm</Left>
-                                <FontSize>9pt</FontSize>
+            <Height>0.83216cm</Height>
-                              </Style>
+            <Width>3.07563cm</Width>
-                            </TextRun>
+            <ZIndex>1</ZIndex>
-                            <TextRun>
+            <Style>
-                              <Value>=Parameters!Placa.Value</Value>
+              <Border>
-                              <Style>
+                <Style>None</Style>
-                                <FontFamily>Myriad Pro</FontFamily>
+              </Border>
-                                <FontSize>8pt</FontSize>
+              <PaddingLeft>2pt</PaddingLeft>
-                              </Style>
+              <PaddingRight>2pt</PaddingRight>
-                            </TextRun>
+              <PaddingTop>2pt</PaddingTop>
-                          </TextRuns>
+              <PaddingBottom>2pt</PaddingBottom>
-                          <Style />
+            </Style>
-                        </Paragraph>
+          </Textbox>
-                      </Paragraphs>
+          <Textbox Name="Textbox60">
-                      <rd:DefaultName>Textbox53</rd:DefaultName>
+            <CanGrow>true</CanGrow>
-                      <Style>
+            <KeepTogether>true</KeepTogether>
-                        <Border>
+            <Paragraphs>
-                          <Style>Solid</Style>
+              <Paragraph>
-                        </Border>
+                <TextRuns>
-                        <PaddingLeft>2pt</PaddingLeft>
+                  <TextRun>
-                        <PaddingRight>2pt</PaddingRight>
+                    <Value>ESPECIFICACION DE LA UNIDAD: </Value>
-                        <PaddingTop>2pt</PaddingTop>
+                    <Style>
-                        <PaddingBottom>2pt</PaddingBottom>
+                      <FontSize>9pt</FontSize>
-                      </Style>
+                    </Style>
-                    </Textbox>
+                  </TextRun>
-                  </CellContents>
+                  <TextRun>
-                </TablixCell>
+                    <Value>=Parameters!EspecifUnidad.Value</Value>
-                <TablixCell>
+                    <Style>
-                  <CellContents>
+                      <FontFamily>Myriad Pro</FontFamily>
-                    <Textbox Name="Textbox54">
+                      <FontSize>8pt</FontSize>
-                      <CanGrow>true</CanGrow>
+                    </Style>
-                      <KeepTogether>true</KeepTogether>
+                  </TextRun>
-                      <Paragraphs>
+                </TextRuns>
-                        <Paragraph>
+                <Style />
-                          <TextRuns>
+              </Paragraph>
-                            <TextRun>
+            </Paragraphs>
-                              <Value>ESPECIFICACION DE LA UNIDAD: </Value>
+            <rd:DefaultName>Textbox60</rd:DefaultName>
-                              <Style>
+            <Left>8.15765cm</Left>
-                                <FontSize>9pt</FontSize>
+            <Height>0.83216cm</Height>
-                              </Style>
+            <Width>10.93493cm</Width>
-                            </TextRun>
+            <ZIndex>2</ZIndex>
-                            <TextRun>
+            <Style>
-                              <Value>=Parameters!EspecifUnidad.Value</Value>
+              <Border>
-                              <Style>
+                <Style>None</Style>
-                                <FontFamily>Myriad Pro</FontFamily>
+              </Border>
-                                <FontSize>8pt</FontSize>
+              <LeftBorder>
-                              </Style>
+                <Style>Solid</Style>
-                            </TextRun>
+              </LeftBorder>
-                          </TextRuns>
+              <PaddingLeft>2pt</PaddingLeft>
-                          <Style />
+              <PaddingRight>2pt</PaddingRight>
-                        </Paragraph>
+              <PaddingTop>2pt</PaddingTop>
-                      </Paragraphs>
+              <PaddingBottom>2pt</PaddingBottom>
-                      <rd:DefaultName>Textbox54</rd:DefaultName>
+            </Style>
-                      <Style>
+          </Textbox>
-                        <Border>
+        </ReportItems>
-                          <Style>Solid</Style>
+        <KeepTogether>true</KeepTogether>
-                        </Border>
+        <Top>5.91399cm</Top>
-                        <PaddingLeft>2pt</PaddingLeft>
+        <Left>0.23022cm</Left>
-                        <PaddingRight>2pt</PaddingRight>
+        <Height>0.83216cm</Height>
-                        <PaddingTop>2pt</PaddingTop>
+        <Width>19.09258cm</Width>
-                        <PaddingBottom>2pt</PaddingBottom>
+        <ZIndex>20</ZIndex>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-              </TablixCells>
-            </TablixRow>
-          </TablixRows>
-        </TablixBody>
-        <TablixColumnHierarchy>
-          <TablixMembers>
-            <TablixMember />
-            <TablixMember />
-            <TablixMember />
-          </TablixMembers>
-        </TablixColumnHierarchy>
-        <TablixRowHierarchy>
-          <TablixMembers>
-            <TablixMember>
-              <Group Name="Details" />
-              <TablixMembers>
-                <TablixMember />
-              </TablixMembers>
-            </TablixMember>
-          </TablixMembers>
-        </TablixRowHierarchy>
-        <Top>6.75685cm</Top>
-        <Left>0.21008cm</Left>
-        <Height>0.6cm</Height>
-        <Width>19.11272cm</Width>
-        <ZIndex>21</ZIndex>
         <Style>
           <Border>
             <Style>Solid</Style>
           </Border>
         </Style>
-      </Tablix>
+      </Rectangle>
     </ReportItems>
     <Height>8.91698in</Height>
     <Style />
@@ -2020,8 +1602,9 @@
           </Style>
         </Textbox>
         <Image Name="Image1">
-          <Source>External</Source>
+          <Source>Database</Source>
-          <Value>=Parameters!LogoPath.Value</Value>
+          <Value>=System.Convert.FromBase64String(Parameters!LogoPath.Value )</Value>
+          <MIMEType>image/png</MIMEType>
           <Sizing>FitProportional</Sizing>
           <Height>0.46171in</Height>
           <Width>1.23522in</Width>
@@ -2039,15 +1622,24 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                  <Value>CARTA DE PORTE TRASLADO</Value>
+                  <Value>CARTA PORTE - TRASLADO</Value>
                   <Style>
                     <FontFamily>Myriad Pro</FontFamily>
-                    <FontSize>8pt</FontSize>
+                    <FontSize>9pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+                <TextRun>
+                  <Value>O</Value>
+                  <Style>
+                    <FontFamily>Myriad Pro</FontFamily>
+                    <FontSize>9pt</FontSize>
+                    <Color>White</Color>
                   </Style>
                 </TextRun>
               </TextRuns>
-              <Style />
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox1</rd:DefaultName>
@@ -2116,7 +1708,7 @@
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
         <Line Name="Line1">
-          <Top>0.03526cm</Top>
+          <Top>0.03525cm</Top>
           <Left>0.22015cm</Left>
           <Height>0cm</Height>
           <Width>19.22862cm</Width>
@@ -2146,7 +1738,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox13</rd:DefaultName>
-          <Top>0.14109cm</Top>
+          <Top>0.14108cm</Top>
           <Left>0.22015cm</Left>
           <Height>0.54708cm</Height>
           <Width>1.55632cm</Width>
@@ -2180,7 +1772,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.14109cm</Top>
+          <Top>0.14108cm</Top>
           <Left>1.77647cm</Left>
           <Height>0.54708cm</Height>
           <Width>4.96223cm</Width>
@@ -2215,7 +1807,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox13</rd:DefaultName>
-          <Top>0.14109cm</Top>
+          <Top>0.14108cm</Top>
           <Left>6.84454cm</Left>
           <Height>0.54708cm</Height>
           <Width>2.84562cm</Width>
@@ -2250,7 +1842,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.14109cm</Top>
+          <Top>0.14108cm</Top>
           <Left>9.69015cm</Left>
           <Height>0.54708cm</Height>
           <Width>4.68641cm</Width>
@@ -2284,7 +1876,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.17637cm</Top>
+          <Top>0.17636cm</Top>
           <Left>14.62633cm</Left>
           <Height>0.54708cm</Height>
           <Width>4.8023cm</Width>
@@ -2316,7 +1908,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.68817cm</Top>
+          <Top>0.68816cm</Top>
           <Left>0.22015cm</Left>
           <Height>0.54708cm</Height>
           <Width>6.21751cm</Width>

Empresas/Grales/Formatos/OC.rdlc

@@ -2552,8 +2552,9 @@
         </Style>
       </Textbox>
       <Image Name="ImgFirmaAutorizo3">
-        <Source>External</Source>
+        <Source>Database</Source>
-        <Value>=Parameters!FirmaAutorizo.Value</Value>
+        <Value>=System.Convert.FromBase64String(Parameters!FirmaAutorizo.Value)</Value>
+        <MIMEType>image/png</MIMEType>
         <Sizing>Fit</Sizing>
         <Top>7.40422cm</Top>
         <Left>12.49243cm</Left>
@@ -2570,8 +2571,9 @@
         </Style>
       </Image>
       <Image Name="ImgFirmaAutorizo4">
-        <Source>External</Source>
+        <Source>Database</Source>
-        <Value>=Parameters!FirmaSolicito.Value</Value>
+        <Value>=System.Convert.FromBase64String(Parameters!FirmaSolicito.Value)</Value>
+        <MIMEType>image/png</MIMEType>
         <Sizing>Fit</Sizing>
         <Top>7.40422cm</Top>
         <Left>4.23541cm</Left>
@@ -3164,6 +3166,87 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
+  <EmbeddedImages>
+    <EmbeddedImage Name="LogotipoGluyas">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAAJgAAAB/CAIAAACc4ZxMAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAJa8SURBVHhe7f11eFTXGjYOAwlWVzyCa71UTwuRiSGlLXUXrEjxjMZdgQAt7lK0uGvxuLu7J5OMbf3dz5oE6enpkfd9//iu65uuDjsze6+91nM/cj9L9nSRZVkQjbIgSYIs8CIviBwvmwW5TZYrOTG93pBSoU8oaYkva75T1ny7rAnlTnlTfHkzlbKW+PKWO+XNrDQllDUlljUnlrUklrYmlLXSt2VNCeUdnySWtiSU/98pVGHZveMEVjo+pJu23inTo9ymYyp3qDTfLkX7m+/gvbwFBadZv71bcBouuV3Wim8TqCPNeGcH7BYdl9BV6B0VOq3zAN+W4gTI5MFy90M6YG2+/1p24d8WCLYRl6M7t8pbEyDDkpZEuldjVk1Du8hzoiyKEkAkIEVJlHgJhbNYzKLUYpEL6i1bLiR9H7nddenq12ateH3mqtdmrBg/I5bKzJjxM6Nfn2UtMSivzYqmD2dEvz4j6o0ZUW/OiHnzh5Vv/rD6rR/XvPXjyrd+jH1rxoq3flz19oxVb81c+UDB5zNXvDmDivX4zyf8c7Gedu/8zuPO8sbMFeNnrxo/K278zJXjcTxzBVr+2kx0IfY1KjGvz4zB+3hqdiw+ZJ/jQ+u3OB9XUXlj5so3Z6BYq8V96c83OsoKVjr+fH3GivsK/rz3Cd36bwsu/8vuWz9EeYNaG/H6jzGv/4heRL/5I8QLaUe++l3Ij8HrKwwmHnYocB1AWnhZFGSZF80S3yzJ5zPqvvPb6zjJ+3H3Zbau3t3d/bq5BNq4htwttoogG4W/jcKPvQfYugXbKkJs3FACbdz8bBWBPV3DerpE9XCO6uES3sM1uLsiqLtrSHfFvyg4gb7FaQ9+/p8XqoFdTm0LtnELtnEP7oZ3
+tyA6VgTZugX1UKAE9lAEoNi6Bdi4+9u40YGtmz8r7FgRiILzbVCJIpSVEFvXYFbuHnQUGxQ6jUo3Vyqdl9wr3dxD/lzcHii49l7j7y93b6QI7Kbw6+7i18PVt7vCp7urjy3E7ubXZcKSd+ZEFLUZgJsomjuBlGCUkpk313PcsbTSCT+tesJJ13NCQHc0xSO8m0dEV4+Ibp5R3TxiUGzw7hnVxSu8y6QwvHfzwlfR3TxXdEHxwudhXSaFdvOKsfFcZeOxysYTB5E4p+ukqG5eKDj+v14i7jtAieo6KbqrV0zXSVTQkm5e0Sg2rNiiqR7UErSny6SorvcqsRbWSOpOTBcvlGjWIypdrV9RVR0nd50U2YUK6onufGeFLuwsOGHyn0rU/QWV3K3wLwv60mVSbDePFTYesXR3z9iuXrFdJsV0UQT8Y/7KolYDOdS7FslJMoBtl8Vb5XVey1f1dlF2d42yVcTZuK3q6h7NwIi28Yi08cA7Ko3t6hHbxYP61sUzqis+dI9lmK3pgttQlyLQn66esTaeK3EtSQ1nQqwQrhdE/H+74F73FUgfMKDDXfBOOrcCre1q1TMcuKPgYGUXz1VdPFd28cDneKcTqHiRmKwHXSatgATvFQIVt2NdwI3u3r3jQxR2bUdBDdba6HwrwPcfWI/p4M9V3Vc6LsGtWYMhc2gGWQvaHNPNNejdeXFlbUbAJ0udMRJAWmS5jhO91/3+tPtieMJubiu6uq3q5omywsY9xhaoeER3c4c5ruzmAXRXUdXuJCMb92hb14ieblE2CsAWR1hOgQhgDdYuUSdZa1ZaRWPtqlU69x9Yj//5wHp89+Dvv7W+M81DibUiauOFNq/o4h7TCdiqbh5x3Tygdqu7eMThT2DZlRV2OSFKwqKCT1ay93u3uHuXPx3QMWpA8eqsDQeTrDrRcebdA+vx3YN/8y3hh9JxQNrpHt3dJWDi3NXFbUZgyHC0kh1RApDJ5U1vfBP0sLO6p3uE
+LWDzgFLEdJkMF7GqK6kwjCwG3e4KtDxWMymstIW8XAO6T1T3mKDu7hpq6w7zX0WdJyyt3oahSBAyify/KExk98qkFYSfR5StVYdYs/HexeOen+ziwUAlc2TSoUaygs6iMIF2tHkyw/L+xt+1VCvS/68L3Yt8jNUeAC0U1MYd/IOALGwzguyI8l3WKsgIlzsvpQ70UvZWBNi4AUhERHImXSajIugsijUK4sAKZJytV6yta4Djp+ETF/4yYX5c/2lBD7mF9oCb9VzdlXoOzwDfC5FZPQPe/y8Uq7LfX+7/vPO0laR5MEE3BDyASqGhm3tEN/cwW68IG49wKu5RFCkIZjTS6so6AxvQvWsQLCZRwYedbbCWuw34m/LPJ//pwrsn/HPpOIeMkvwKXAW1in2IHtm6wLWuLmgzIjwKgLIDSF6Grw3Ze/YJd3DUEIQ9W4qFLIqwLjGtJxPEAXOtKxEXe7qH9nb2XrD5UpJevt3IfRx2sKeTspc7NCCui1cc0/FoYN+V3Bc+gQpTgURIKCQXdtwppo7jfz6wHrMD9OdfFq8VKHD1xAvcV3ZRxHZzi+k1adXDU1f29Irq6RnW0wPMmVhfd1edratPNxcfsG5b9wBbjyBbr1Abr7BuXuFdPSPR964UWZns6JgVK/2hTxg/sB50BMK7fpgKfdKpBPQVdb8DlW6sdBxA1dg7hfAH+3i34/iKviWLZJEetZEbACLAJbaba8g789d0WKQEhsOA5HlZL8u+O0484rbExiMEvsiGaNKarh6wrVVUF9niGvKrXiso9rjHwmR7uwc96rIk7PDNOlmuluWFm0/3dFrU3S2MYJu8hgGJRjANQGENYk3pdE1/V/71OWQxrDCBkkyt/WfF+hU5IkWUjVvMw1PjBnyx+YWFB91CLk6LujQp8KjTsm1vz//l1VlxY7+Pdvwi4Nn3NQ97ets6L7N1Wdbdxbunq6anwr+He7CtR5iNJ7h6FLge/DCw7LDa++8FX0V+
+mHk8ahvazJywtZ3Wr9AeajCkR34SIZN1oaOdVKwn/5vC9KBDJqgfRGRFV0XouwvWFFGMlGgoxwqkWZAApN/W448plnT3CAYXxe1t3aEygARYEiMgUgDNoj5YM5CIHl5Bj7ouiTh0tVGWa2V52eaTvZ0W2biHM62xFsRL2OJaAEkX4vbWEGv1/nQaGmctVokwjSaGBe2JY2XVfbWxQopvvRz1UKvoZFLeDo4D6+lKcT0GBNXGbWV3jxW9JkcO+XHdJ6svBZ3OX3u56JczGXEnk6NPxoedvh50+qbuyK25my5+Hn7AbenaV78PHvKR7ikvVS+Fsqebj42zfzfnkG6u4bZukbbu4bYe4eAEgNaW2PiKrgRkVNfJ0TaTQAZjiFJNgspCyvBb6Ai1BKEa7x1wooCIgucjkWNMnmkG4KT3rpPRL8iW9fdPBbbU4WM7CYHHim6uoRPmE5DkVdmLgDSKHUA+7rbE1rMTSEZQu0yGTFczAKh9UIoHgFQsjmRAwiiXbyQg0VtqllVnO4QOPWAWeQ8Da0GjmRO+V9Z0mC9Z8JpuXii4NQpzzmgM8+1WJX2wKvqQcTESCstiiWnbIjoifXIPt3Hzf8hdM+qb8B9WndgdX3Umq2rP1dtR+w74bNvpt+P31Sfij6bVXSzRXyhuPZRcueZUinLD6c/9dkycu2rUZ0HPTFI9plA+5Kzq6aLt7h5o6xVui+QPUdYzAilyD6+IXu7hPdzCuntEdPfA5xFd3CO7uUfZsmLjhlsjNkchGIN82XohMIdTqEZuzdw1kxVhadXjP3fKWjqAhPBZ1ERBBHEJnfg3QD7mvrQ7gCRqx4CEFU75OyBhwVGHrjTLcj0sctMpANnTPcTWMwp5NzMOa4GRASQrAFBM5lsIVIQQVAt3DVa8mgqddrcz+PBuIfJCqSoLKuxCOuG+gj/Z50xdUCFLdhGtI2zcI9EYW4/I7u7BPV3Vj7oufG1G6NqTCcVtXLnREF9SuvPsVVXs
+5s+WBHynDY/de+JqTlm5QagxycXNXGKF/lh6ReyxhLmrjnosWjviI90jrj/3Vizq7b6st2L5QwrVo66aJ911Tyo0j7sS2I8olvdWLOvlinfVw66ah5wAv3cvZ2VPZ3UPV62tq8ZWoeuu8LVR+NOwjnukDXNv3ZDvk7Ey7ex0wg+U/xxIk0RA+m87wYAMIiDJTd0DskNY9wFp4xXR0yvocdclMYeutjAglwDIiQt7uAVB3YAlSC/RRaSe7iu6Ie+EjyUXSpbKvIT1wOpLO9tHADOqTKUziqDApcOZsHOYXd4t+GQVtZM4DiWOIKIsquFz3D3E1iPA1o2G3Gjcztmvp7PqoQnzH3v3u5enz9t5+noDmIEoN1vk8hbz2aRM7eoNH81fNkcTvPPI6YqmpnbBohfFJkmutsilRimxynAwoTjs4JXlm46rt5713XHJb9eVwN1/BO29EbT3euDeawF7/vDZc0W96+Ly7ecXbz6z4NeTc+IOfx+194vQndP8tripNry9eO1Lc+PGzFw55JtV/T9b9dj7sT0mR3ezjpMwnsz0+59QRPkvLFIWySK3nXjUfamtV1AXz0jI8e+BhEXeD2QDgNx4prfT4h5uwbADK4pd3WO6ukXbuAFIlncSlp02ZD24F/wYd7CaLFktkYsuHkj4WBYIUNFJK7VhoBKxpEKhy8Yt1NYtuIcioLvCj0ipi66Hq08v2IRi8RPuC5/2WNTXc9mwDwNe/jJiwqyYyQtjvvKLmxe6ZvuJC/VGzsxJYOy8KJtkuYkTsqrq00uqC6pqmgytBsFkEgWQQgOKRGSwVab3ZhxLclvnJ42i1CjJCC5Q5RpZrpTlUlkuluVCUc6zyBkGObFV+qOeP1lm3J3d/Gt8bdjFUtXh/Jlb06aEXx2/5Ej/r7faTgELZRZJmv1PKKL8h0BmZGSYZLJI3x0nH/FYajspmOXyViDj7geShjwYkDTQ8yCQ6MZSADkBFgkgoxAVaDzBncRt6xnX
+zQ0UAJWAvID1WA/gRZlyMDPtglBvDRKTrWSB7tWVpXqgx5TUukfYUkwK7+YWaOvmZ0PDx9qeCvXD7t5PeHo/O8nb/kPtyM/9Xvgu5J25K6Yof/0uYtfS9UfC91/adCH1UELx+ayaW8VNKRX6vDpjid5YaTA2WsztnIm3cDSsBSw5kRMlwGkSZYssWCSzWeKNkmSQ5XZRbhdkoyQCV7MomUVcIfIiZ5HFdkFs5rjixobzSSnbT1+NO3gxdPd57ZZzP/9y/IfovdMDNnuo1k9YsvatRatfnrti7OzYkT/GDvsudsjXKx2/WD3w07XPfBj38HtxREdJWVlouB+/u+VfAOk0f+1dIAEiWaRBFqFcfkg/PJbYTgpiY8EIcsjMYJEgzSzCWYFkkZlcK2KkZweQ1hi5dMPph52W9HQP7uYeagsGTzMhwRTV3eDxVhO3RLQDyQSK4DXQElYhvTMfC+OzOk/4GcQPmFoPRXBvRUBvF11vZ9UjLsrH3JRPe2nspmnGfO7z+swIkMzPg3fOWnlAu+1M7JHrO/7IPJ5W8kdpY0YzV2qWa0S5XiKLgZK1UQfJ5lCQLhskqU0UWgVLu1kv8JzEiQBSwEskLC2CbBEEXuCMFnNaccWJO5kH/ki5nlPWzEltFrOBpvkAM8eLZlxh4UWTIBfX1a0/cOjrZX4vTP6h/zvfPTNx7mNOix5yXtLDZbmti7abi66Li09XhV9XNz+82ygCuikCbFwD4PC70fQIRTGKKRT1/0X5D4DE609ALu4EEiaFILySbKWzxvuBBG27H0jGWk89MnFRb4/Anh5+z0z1G/JZuN3HYb08/IjOga93pP+gNoScNd0mawO7cyO+Z6sIt1WE2Cr8ujmpbZ28H3Je+pRi6eBp6le/CfFYHPdD+B7V5nORh+9su5x5PLHoj7w6MJH8ZnOZga82SQ2chGhnhapdEoyS2SBx7SLfLpNJEXg0JUDvKPA98I2NJrHJ0G7mzbzAi0jEJOTS
+HE+mRlm1hNo47uTNJPeZynHvz/H4yf/gtfQak9DCmQ0ijJWziIIoSEAe+MM0awyGpJKaX49dn7Zk1SCPpQ9NXNbLzbeHR2gPt/Du7lHdwWjIPxF3tfECE7RmMijEXTt4AGRrLZ3Svlf+nWtFIvkXQHZHjPQiIAktXMyA7Lget4EbvAsk0g+3JVGHO4Bctv7Yo04Leik0T0xS+xyMP19p2pFcO37u2l7uft1hYWwujEb0EYDdw2yQcbsHgcL1dNX1dlE+qlA96antP1U7+jPthPlRn/hvXr7x6LpzCacyK1LqDEXtUhVPFtYgER48G+U3C+QGDQJsAkUAIBwPExFgKSbBYvWKLbiEl2s4ucQg5TRbkqpbzuWU77iSFbf3auQvv2UUlwNyTgRnt0g0lWcBoCIEw4YvOVGss4irDl0dNnne0xNnvPKlZu/NnDpBbhNNZtFiESUa4gSMkoS763lOL0n1opzTJkQfiR//Q+RjLst7ufj0cg/u7h6KLAUUjAg85El4MBKA+DU5moaBaJDrr/C7W/5XIAO7eEUglSTCiVomr6DBnQeBJKLhCTsLfMSV8sgmRna81x996N3ZPV2X9n9v6bGcEjjbjDbhPd/ND7kpe3gE27gjs/a1cdHYOqt6uXo/5aW2m657/rsQl4UrPwnYtPCXwxGHrm2/ln0hvyq1ob3ETPQBpsO8ogQuhihulASTLHKSRMYgChA0RTVRNEkyx2wRRtlgEiv0fFad4VZx86m0im2XMsP3XV/y64lvQ/d4LVk7/vvwYR/59vdc3vft7z/7OTSvvsUgw7bMqJKEQfIAjmzphAhIJRMvlrXwPhtO9fda8rDzgjdnR5xJKwfxIZ1BEyQeTcA1sGgUTuQBcJss1ory+dz6n1cdHf1JYC8FUk//7p5hXd0jEAspakxa2Y1sg2FJ72yICkD+rxYp3D/7AUkhlvjstMZIlkeS6cAiY7tOjqURcDZaSCGNDYCxGBnZ0yPwcZfFEQcJ
+SMDmvfHIQ06zH3Jfbj9t0enMImBQ0Gr51GfNoxNn9nZa+KTb8mEf+b3xQ9h07aYFq49EHry+C7DlVCVXtxS3WeoFGWaNS2BwrZLYJokGCXIRBCCHOIb/RB7MxCTwFkk0i5A9OUycXMfLOU3m6yV1hxNLfjmVpNt8ZkbEning+rNjRn8aOGiq5lkP9WMKdS8Xlc1Ela2TpoezpreTctS05VvPxsO8DMCDXCQQlGT2nygLMi17wReyxYybSimlTVOX//qw6+JHXJd8pNmUXtEGZ4BrAB+5VcgR0POIqxZZsnCCsY0zNwtyeZuw54/c9zTbnpms7u6u6+YBu4zu7hnbwyvW1msFCpIlYvUdyBFI9/GdTm7/3wIJhsaAPPmY+zJbzxAa7LbO5hAtth7Q/BSNTVsnDTxiEdsecQ96ymVx1KHrABJFuen33u/+2Mtl4UDPuWfTi8yyXNFqWhS1yW2O/08xu6MP3jx0szC+tCm/yVxhkJo4CldGeEgJPFCwQLfxpygAv3bJYpI4k8BxkoBoBZdnhU0vyC2CXGeWi1r5pIqWE8nFcUduLFp75D31hhe/C3X4QNfnPd1jnqre7qqebroeCt8eCv+eisCebiEIwCy/jOnhEd7b1fdJ56U/BG3KrGuEHnBAjYwQCPJkWjIgxEcCjJMXZLhds8i18tIvx287TPV+2E3Vz2tZ0K4LNUYJrcU5ItAkM5bIrRNbwhtv4dF4wcBxzRbpVlHz/NWH+05Td1Nobd1DetC4BJJsillgf7YeoH7IwRC/YDDM25GnBVSAEASTZWuUm/01kER22h8E0iQxi9xx8jG3pTRERx4crJWybFrVwca9aDEAYqd1kQQ+8Qh7yNP/Mad5kYeu4VpEI5/1++1cfhj7sXLSwrAbRZXAqcEi5NW2lLaaG5F6C4zEw18J8EcyghlbrieAIpoFMjJ4ToPIg1IyU5NglDBQ6Ee1gMBjvlbWsO9Ofti+S7NXHXJbvv75b0MGTFU+
+pljS23W5jYuym5tvV/egLu4hXTzCu6KdSEAZiejmGdmdQkBkN+i+xwpbt5CHnZY5zYq+kF2NNiOv6AQSvhRRz0KZBYAkeOA/BTgDs8AbRCmlxqBYuApZ8qMuS1xmRdzMgzoxzNkLWFpfhCtpAXkRM88ByxZRLDJKUb/fHvdl8GMK5Esg81FE9IAQDXgBHgQvJHir/gpIQGgt/zmQokRAbjv5uGIpDZrTEB1YK43L2HrQTCYYLA1aeoB3RXV1D+viFtRV4dNbsfTJiTOiD1wkHsiLp2+krz1w6WRSSWpVcz3PtwEYgdmTyCPrgraDrHOwMwFpGGIcz0N3kY0JFrPAkbeURUCIUI38usIip9W1nUgrWX3qzrKNx6f5bHzpxzD76donPJf1omkKjY2rrpurj40isJtHiI1XJC2JsHI/8HhrvOnwSwjn4d3cw2mdinvYwwqfF78M+T2+BLdoheoQQWXRUbamHpSIsHgJ2cDM4CfhWYU2nq/mEDhOP+O+9JGJy4YiSz0a30KYw4ShjriW7LIDSPYCliDAQBixoF2Sai3y/hv5Tj/FPqZQdldA4RAdV1O+QRM4BA9rKvlVQouO7/OrKP85kHD6kKDv9lNPKJb18AhhQHYMsNmyJKGnR0RvRXBPZ99eEzWPKFQDP/B78cfI9303Lv31wLW8ijaQSbNZb7LokWyBTIL0kwh4njrEFFQ0cqKFxRXwAnBLAg+dNAg8wMPlMNnSFsvtwvo913JD9lyeEb7LdX7sqI99+nopH3H17uGqsXXz7+oeAAWiQWcahqaRaObnaXyLkQg2dQcXygaDEHvQW8bL4FfDursHPuKuee3HqF1/FDTAN0jQXRI0tAlmxcgqGRg5WUiFgMTLzIsGTjRZZAHxe/PFbPvJqkedVc+4LJkRsqvcyAyaKiGj/BOW0AX8Q/WTAES46FZOPpNW4rYk9nEPlY1beFe3lV3dUaxzI9A8NhlAIFnxswbLTlD/CyBFnrHWk0+6
+LevhGUp+iYCMhC/q7urb3Vn5kNOSPm5LX/gy5APVFs2mc0jmLubVZLeaqnkJqm0g4zJDfxEe4CdNgpkDQEjJeLyhbzzEwUkWyAw8Dy4MzgrgwQeUW+QbpS07rmT7brv8pd+Od2ZED/8osK+n9hGn5b2dtb1pjBQRDnkLMhZ4dXLsUK/uHitt3OAhaFrUhobrqP9E4q1TH56U6lAoIqSju7pF2iBYOi9+/YdgaEm1SW5HwkhOlUQMIMgWidkQilbzpPl24ICUH7xVQss5aNvJlMox0/0fmqh8xGnJu7Mjkqra0AX4T3hRKGgH9J1AQqRUtSSR1SJFtXD4r0WSzmSXeyl/7eWssXEJt3WLtnEP7UbDkA8OIJMJdrhZhuV/A6RRMkKsvjuOPKX4ube7v617MBLzhxQ+T7t5D/tQPXFe5Pw1B7Zfy7xZri9oFeo4CngU7dBXcEuEd4p2cKAWjkeCBeZisfAgLrA9sAAZlmhimQMSiWZRrjCKqdXtRxJL/XdemrJ83fNfhvWf4vOom7aHi9bGGflJcHcFsswI4NENzJktO7N6CDIvmsdYwQpNhtAIIno1aTUNIpIuo9tE0OBFbNwiaMGKe3h314CHXZf9Y07E4YSCBg7Nlk1oFYmcrMVqM2Q8EIe14H+WmoH+QOt4OFiJR25zMbv25S+DezurH3JRDv1AeSqjBCHcRIrbAeQ/v/ChBQKAxlCyAlkJTaJ8Lrdhwty1j7hoaHDYMwQ62tU9tosb4iVN2P3XQP5THkms1W/Lvmedvn/KbbHdhz7jZ0Z9FrAreOfl328X5DQakSbiBMRCdAmKypxJR6F8ig2KIJFidomwh1OIxnEWGY6pVZArzVJmQ/uZrOrVZ1Lnrf5dsXCl4zTvx10XP+QCt+nTg1buhnVRRHalNVGdo+STGXO+OwtP2TSlQ2ydKhvTok5SYaNFNL1MKyfc2ai6ZxzebYCii/Yp92XTVOtPpFQgJQAVMINWkocnasrSDGI7
+VvisYBCC7AVHgtPQV/BnAjKn6qUvA3o5wU/49vNavO1KEnwYKTEUttMiWQUPvAQySBgn3QS5lEmUG0X5cErZG7Mie7kqbd3CurnRIgRys55rULq43wWSJQt/C+RfDAiYRQJp3e+nPldFqTcd2/pHxqXC2pxGS72Z7g0mBz5tAk4sgFtfrJ2oglwIz3MIeybQFpGDn7LgTMEM82w3isn5tVvOJi369egk77XPfRv+7Ht+iFU9XFXdkSF4Btl6hXTzDLMhf0hLhNDEjhyZ9BHtpj6g9Vb1ZEOyLI+2muk9naW+saU6K2zhbGmR5mo41Z6uvvbva+etOnyzuAXZjgmKxobV4O8l5j1Z6XgREtaDzt5RxwgESn6QqBxNLh7zsba3q38v16BnPJauPHrpLpDQBeuFrII/vTrugi8JSyLnXK0obv4j/bnvIro7Bdu6xyDSd3VnC2s6gESX0TUrkPiTkpC/AfLBGMl8TlmLPr+xrcoiNbKxHsq+QQYQ4ChTgBHCSXAwNRTKhUnDEF7AaMwW3mAi1Dg4T70oN5nFNosFl1U3GxdFbLWfuvBhj2U9Xb1pgsktpIdnmK0nkoSwbpMiusLsKB6TDdlMWssmRggYRr5xbF0wYB2ytyop8IOZsoHDyfetVQTqUAXkGx7wqzE93CN6OalHTfeN2H8trwmJoGxEtkMODski2eBdkePg3jG9iKNA9CR2oI1CEYQGKzZfTrGbuqSnS2BvRfiTrkvDfjsFdM0IJ39rkax2AElfosDLcoJRLxhKTULA7uv9vAJ70WglAjniPZRvTRdat/bfAXlXGQlI2D9syCQiE5eNAApqC5dOjJylROQ/rVky+gWbI0ZKsZByeXRGMnIcSlVj283Mio1HbyxbsSW+uBR5ZEmbabrP2u6uS7p6BPd2D+nlFgr224PmQxAYkJVSIkWLBKihq7rhvQNFMkH6trOwD1mXaJEOdYlZ590S021SFJIQGob2CuvuFviUm9r1p1W/
+XcqpbZMNAgrzqLw1UsNlkMjvL/TCP0Rw0En0ldQUmMMgIfp2SawUZPXWY8+4LeypCOzlFvKEy5KQPacBpAW1MrvtqOS+132VQ9QkPxoihpkj7lqMbRYxtcr8RcDOx9y1Nm40QQQgu3r8CUjmV6HK/zmQFPIQDxhg1E/AhzhHOkzJOwRAeTLrHOVNyAVF3mydq5PkNgApSG2cvPXItQnf6Bw85w72/P5sZgG+LTJwH/hugRft6hnRyyOquyKiO00uxnRna6VoHh/YgKRQRkUmhZyBbT2ggcCuk2jbA0Bi2QW6x6zTM66bVxztKgGWYDQ0i8KGDJH4e4Q+5On/kEI55EPd4pUHb+bXNyEugIwheFO2j77B5SNZRVwk8cJC2H9WWbN/iLNS5ztkQH/R0JtRlnJaLR9ofn3EZSmtF3EPflKxNObwZWIMRPTIZeFkazV3X9aaYdJMQWjYCA6Mch1UiUgkgO3Lp1OLxn8f0NNFY6sAwbauS2LTTVOQSqGDVnP8O4ss/hOQHW6EFVJEqA5cKLlUkBYwdchAMMLJwhLBFyiblqvM8u3ihm2nr15Oy0aXmiXZe93xR96Z+Yjzz47Tfj6ZUQwgiw3CdN1uxCobTxBI2nFgtSHkfNYRZBpp7BjFpWLjudLWIw6MlGLhZJrchlaSsXqsQaF+kguF4dLsZo/Jqyi6MDht3cN6u/k9rVj69oyItcfjCxva2niRpoh5BG1oI72IopHBWTtuxY0ddr7u+kbrvyRxInWkrCdSyp/7PKCnm9bGM7SnW8Cz7ks2XUoC+zMKHFQFioJKH6zs7gsoEh2ESFmhZITGHUXZIMr1ZiHu6B/9Jy3rpQhCNgV4IBxapA8gaZsDm2P/y5EdUAGXMAYk7cayvghI1gwUNIhGYCQJBbeDH4IWoUuSkefaJB6ANclytt6w61bGgtWH//FDsKPbDyt/v4gPa2mpx/neExY8oljm+P4SAAnPU9QuMiD9WG4H70EjL1YgqcXW
+tL0Txc7CHClaP9mqjCxSggXQKmcKk3i39Vxtw1ZIk3F7RPVwD+3ppLKbqpkbffBqTkMjsiOR5u5pNh9ChpQRKDqLNQR2lgdeDEj6EAc4ouFfNppYa5b9tp9/0m1pD49AG4+QXq4+g6eqjqUWg+wASLLIvwOS7Bo3pWIdC5JpZIvxR6mFE3JbhOk+2x5yUdu6I+NiC2ghGXKtTMsZeP8NkBKHQneiMQ72otwdL+TDgkEQYXClBuFyfm34octeylUOH2kecUXOvvwxl0U/xh3fnVy+7Xbp9KBDvV3UvRRq+2nLTmeXAPXCNuFD7S4CkjwqzS13DKR1FiuQ5FfvFuoD3gHhWrYglkEIG7VeyzxtNzda4QfN6OEW2cvF/wmXZe/Ojl59NL64BU1FbgdXL5gJNIpw1jBB46g0XMhmGju9D+v+vRczVmZAzFWaiczTwG9iZYtiyVobF28br3Abj7CHXDSvfBl0s7QZHbTGSCvZ+csXPie1uIslhSYOlZPHk2QDL0Gwmy5nD/8suLurv3WsCoW2phB1t2ZZ/w2QzP5osyvuJdACFkZ/ZKldluoFObPesO967sI1v7/8VcgTrst7OOtsXIO7KcK6e4T3cA94xEv35CT1U17aRz18eroH9nAD6VedzCxFvkxA6nb3Uvh3palw1oJ7DIUV9uEDQFIHOtSQhXoaaWPz2NZgiTwyqvukSBv3iO5uoY+46kZMD5y34tDNkqZGniZSKHllPJvFe8o1rF2zjrGwzYNkPIxC/ln4TNB0PjlVmciqVYN/OZ1k96GvjVtgN8/oHl4RD7sopy5dl99Mg4t0I5hjh7v+i1cnkHgRlrg7m8uEpoBdgoaQ306vN38ZuvchV5WtIrg7rcKlJWdMDizFIu7zHwOJviIU416weR5ZPCeDslfz8rXSupXHbn2s3TJquv/jzt493/Xr4RLTVbGqi3tcF1qHHm2LLNAzCOl8NxpGCYbC2ir8B76nPJ1TRvORzCJ7KfxA
+dqxLFwGedTEcUZtOIK2lE0tCizgOcVHAZl0/bh24X4EgakP7av26u6j6eGneV2/dci6zsJV8vkmyWEBOQUrRF3IlJDXYJEOOPus4YC+SLyv3vSBoimQ0vIHAKokmSWoV5PQ6w/vqDQ+7qbt7EdO2cQ99VKGcv/JInYWtJyCR4cI/68Td1z/dgoyS4rX1foJkFMU6QV53Jtnxfd8erv5siXO0NVhSbtbhnP4NkNYGEJDoPWRAasKL7SKtjbhcWLdk46GXv/fvO0n1iJNfr4lBPV0jbFxXdnUDhNYpGIg1xqZjVouIcjfPKLI8N3+795Wns0sRIwvb+em6nb0VPkgZARIbEb2HHJW7polCsBHf6U6AxdhQRhFN5BbFDdSUPLMtLRlBh39+8dugqP03M6tNTRa5XRQNlDiBlkFM7MXEdg8ua7n76iSrD3xGoRQogk7CoJFciQZJhDdaceRWP6+lvRQ+3WkBXzhYa//3fFcdTQJVYXZ979VRUefrT/V3vvCZVZ/oEvgPMOkmXkivM01a9MvDzho4OeLhbIiDcT28r/kzkLT8egVYq9P8tWCtD1gkUgtgqefEcr3lQnaVatPJV34Mfkgxv6fCGxbW0z3a1o3WGXd1W8W8XxSNX9M67o5JLjbauYbNJUXaKPzs3/cGkFaLnK7b8ZBCi+jCsos/A2m1SyuJtTIgGlojLYEjhWLS/o1uMH23WCI1bkG93bSO03XfhOw4n1PXwIP9I8EwmzmTBaSDyExnGo+XVZB3y/0v9uefPiZDIQhpHAOJl1GUWkT5SkHd6z8G9XJeBqbaXRHa3T2sp8LvuW8ijiaXI9jiIkLzX5vjv3h13BkXghSbBUubJMCBrzh8+xnF8h7uQSyhohXFNFWJ+ELbof7JIjvSDxpr/ROQlFTcyC5dGLtr/LcBj7outnFRd/MIsvEM6+YZ1sUjlKyNlpaQLdIgGYAkikWrv2ma1DOuq9dalvNFdlf4OExbCrLTCeTOhxQ6
+W69wWsP/V0Cink4gCVRSFNpaTNkh6R2oqVtkT9egXhOX272nne6/c+ulrMIWXk/TnLLFwtEYGXI5mqEnf0qpk1WwVnHdLfe/2J8sTN57MY+HujiLhERLaOHlzAbL7JX7H3Nf+pBXCE3CKEJ7uoc87KadptmUXguDJMdtBfJP1f+HLwJSFM0CZxQp3CaWt7/xfXgvV60tTfqCGUDOVt7+V671XwFpEcxI+yJ3nxvgNu8h5+U9ENjdwkCFaanxpIhuU8K6TI6gzIEyVoYlM/9unWsbiVkRlpSY93DVOU5bcoax1rx28SOfPQ+56rpDIdhOko52dBYrkNbC4qIVSJrHtnWPsVFE9HANeshFiwTReV7smhPJKdUmZBdGyvEpmlG0IXbNsdSCXlap3pMsjjr/uHdI/+C8jnhpfZF50HQb385xJklssMgbz2UO/9zfBrkjrc+IsFWE9XQLftpD7bP9XI2Z2LB12staOm/y373QWtQDTUTOUGORFqz6/XFXVU+3MBt3+DawdxoigNAQtkhc/4lrNUnmZlnWbjn7qCuyJVg35B6JFB6eE9QD13eZTNwJOkLpuXU8hXaRraKtZWxZHxx6N1qBDuvROb635HRWCdKsvHaJgHTW2dI0PQ1VWPMNayE9YK71gUJDpnCk0d1dQ3s6+zyh8H7p21Dt1nMJFW2NFtnMyxaOrA5+kLlSJNZgDDTwxBILgsdaOkNRx8uKIhO39V98dd9fZFY00QGn2g53J8u3CmoUC+N6uXl38QyB4nb3iO3uDh0NHP15yLHkMj2t4aMURfi3QP7TF9Yb3n1B9aAQ0Ew4sC0XMwdP8+/pHGDjAbNBgFzNRkjITkhuHXkIKwhAf2mRBrb4ym/72cfdlLYeobQ8hxZ2rLSl+SCY4Bo2zkkKQkDSEFonHjTsSRkPiDKbY4rq7qaze2/pyaxSVAggp/vu6uWisfWwTuhbN5LBaViTRRplJZqKhnaMLsZ0m7zCxiuypyLgURfv
+cZ8htTh8NKWs3CzpEQ4RCc34H4YHWyAGiKjGmDwJ1CpTJtK7KN4D8r4XEyNOe0CiBAfqaRfEJlHOb7Usitv/hIfK1iOYJkSJOUf1Rgbp7P1FwM4CAxpDKQSh3/nqqOa/f8GtgKNRTinJf+Q1vDMrFpbA5tKj4fzIWsiQrKVznBJAuK/q7hw2Yf7qgjZy8taXFUgJBhSw7dTjbssYkDE0see5uhsKPcCDRkQ7dOFeuQuktdBKLeKZCp8BHyiP5pTWy3K2Qf7Ab2cvV1hktI0bDdFZgWReFDkvja+SuROWVAMMurvC92GFasiHvt+F7j10p7ikXWpl4/gmCxswIy5CwZABSUTTenD3Ze1Sp97/O/nS99bTyKig2q2iVNgu+u8439djMeJLd9Yp20krbD0iH3LzG+C1bNOFFDYyh4hMd7PeFC9rff/DixfMvCRYJCJuRS3892F7HlJ427gFd6M1Wmz+wCorAhIQ0pZhHADIHk6hE+bF5f8JyHa2QDlg+0l61JVnCNuTBuYCBx0Hd8ziIvyqtV4qZEl0AKvq0BfA0J02lsIhBzw9Tb3uVvGdFul0iUmh3AXzsmGj+2z6G54Thk6P/yFSCiDRSpr3j+nuGtHbyWfIFO9PtRt2/pGb1WhpFGQ9L7WD2NEYBfI7luXTeOm915+AxMvaq79/MfcL4HA6ELGGWJrJgTluvZw17vMAWo3hjhQZbika0dqWFm6pXX5elVZnapdwAUeOtfPVUen/8sLV6JYFFmnixTpeDvrtjycmKW3d/G3caQjFKmE2VsdGBghFfEJTDrZOIe/OJSDRDTQedd0D0n/7icc6dixbgbROuzMCAtg6MaOqJ9+DsOMTprw0d+8Z2nNKwPDvY179Ke7lWXH93qf9DzbucV3c1rI5Ghgl8KZCm3vcVyCwd3cL6e2q6TNJO1W1Zfv51LwGI4gSAhVN9bHBJvKRHeoP2P4CuY6j/1SmOA3dR8JFtSMm8jxcNqX/ZzOq3vkp
+5hE3HZMjQj4gjLFVRHV3DXrG0zv88I0aTjLytEGBHHdnQzpq/V9euBbqCUWl2QhAsPdOgf10bU93H4TJrmxomsyGIpqVGDK9pxUwUbbOAe/+tDJfTzGyA8iMjIx7QLrTulba205LLsj46FEZHaphNfB/KhTzVnQFocKxJ5v49UREDLJ19enhrANBQP7QlZjOWtRj3cuCYEmLK90iuruG9HbW9Zukcv15RczxO4n1RlhhO619JbiIFdIwm5VMUFT7P5Oa9YUaUCG4EYybBpc53mLmzO2CfLtEP127+RHFsp5eSLqQXCF1jrVVxPZwjezppHtn3oprZQ2tSDQFI1JNWoXT4doJz466/+sXLqWxQ1SFCttl+Y/ihld+BD1WdaeV6VbkIHxkBAiWzE4A7WSa47N18nGat7KQkR3U8sC2uoAdcK1sgTLwICBhy0gw/i2QRIipwC6ZadInHiugyz09onu5RfZAGuNGoz9gQ6CjcL827uE93AN7u2gGvafzXLImcv/V5JrWJloTROuSDcgDmLyZzIEeaT8LYf93UGTcCFjSGycgmeHbRDGpTP9N8G9Pual6uAd0nwSuEU75MTmMFT1cwp711IYcuFbBi+2SkQFJ47EdMP4fAYkWAUR0DVQc2aSU3Wx+T7O+t+syW/dgWzSA2AOlkkCBDVVSstB1SqzNpIgeTir3RXFlBsRWKDyNTzwQIzu2DABIysoBJDPqjokxK2zMzd4tlFPiE+I+xAvYWA+NEoAfe6zoTs/iiUYShvyyC42bR/XwiOrhEtTTSf2U2xKXn1euPH4roaq52swbaGsAHJZgkmiHIiIQydxayB6thVDF3/8HL8icRjvJPwNKQeZ4uVmQsprNP8UeetZd28s1BP6DPeUBTiWmi/uKbm7RD7sGTvwp7kZ5S7PMmwBkR7B+IHn937GknrG+ybTWvpKXZ6/Y/6gCQIbSkl0ENZI8eTvmzOApgQUQDXzIeen3YbtrYchUB6nCXwDJ
+XCul/129Vtt0Zh2A6u8LsRhaqEjxj8btkLR6rGBLxAjFLl6R3TxCeyl8+032eevHyMj9f2Q1mRtBu5HFsmSQxEKSQauYjGnWguyG+sliGv5Ab+nv//1F3pBGOAXeRDuDpHZeym0xL9t08mkvVS9kroqVPT1Wwe1DaqBjCAG2roF9vLQhe/+oQ/4j0bQQ21qAegAkZUKsxf87kNYL0TEgYmEbN4L2XH7GSwmLtKFFWcxyYD+0sjeiiyKyiwLiDe/tphnosWTtsXhkn7ShiCKFNf1gW88D2Cae7swi0QfKYzxXgWES5fF6sExaSYVyBirWjWGM5QJvNoZAXJSSDRvarRLRzc3fVqF9crLuH/NX+++5dq2oqQFyAZ2RyLlREARwhBWzOigZbenhWCRjCksoWgFkgP6vL0gN3IbneaPAtYkCKHFJm6jZfHLgNCWSDXqQHiIiWzFLc9duMT3cwh5RqF0XrLpZ3GSkUQgaAKToSlVZLZteHbX/Ty/rxagDmswhrMjypvNp/adq6Om1HvT8NeYFacKZBphA7xGw3AIedZ733pKV8cUtkKEAvSJxdQBJD4MI3HHyic4YyaY3acSPbIu864OzhvfG1SgoWgtztsR3utIjPSJtPKJwYxu3kIfcfPp4LfdYvDrmyK0bZS3lFlqU1g5x0hAb0X+otFWtYS1MMgAW4uqQGPXT+j/9839okTKA5DjewFmaeaG4TQ7ec3XwNPXDrjr2NBy4LBqVtPFC9vxrd48VPV39Bk5ZvuLYrVoLrRohXsJ8Am29o1hLr456/9cXrkdvST8ISAFAHrxTPGS6n60iwNYzvBstrqcMgtHDiJ60lTGyt/PyMZ8u33Ulrd5sHaeEY0B7GJAmmYeRBuw4/oT7IlvPwK40FY6Az5gbbe23PosWCFFh01XWDyPZs2itj6ON6jYpvKtXKG0EdA/p4RbUw8Wvh5P2GQ+tx+J1qw7dTCmtb+IRC3mDxGgfG+2GR5GQZUhsQbMk
+AEYCkFSdOmft5z1RsU4/+NkD39/3YtJmZ//pJUCBLYKBF0paLUE7zw+ZpnzERf2QGxocQY96mhTWdXIE+SG3NT3cI3s5Lf9Auz6z2QjFR2BkqgVqAjwtnbrHXh11/y8v5n8QS+BXBYvIIek6m1U99svgHm6+th6B3SaFdptED3i0UYT1dA/p7urfy0k3/GP/iN+vVZpp6psaQaPN1AQC0iJawH0Dth56wnlOd2dvW1ddDxdVdxetjYtfN1d/G1ctjru7+PZw9u3h4ovjbgqNjavG1lXd3UXT3cWnq6t/F4VfV4VPN4Wuq5Oqp+vyR9yW9J201GVJXOyxOxlVBj0nGwTOIFuMopkDiLRCghILq9dEeKQdP5TYAVcSDMrdaQzrPx2w0OnMWOlD/G9hBb7Zar/sSvoPV8Mzw0Vbr4V+UF+tNVt4vqixJWjbAUeP7590nvmIy6LeLirKlNiDpiGsni4BDzn79HZaPmy6es/tvCZJMopIiGAzbCEcG0CA/AEsLWmikQUK3gxaahPuaY0QJOeOP9mL/qEPHvwQ3ecE0Yzum2UeKFzLb3rz+6AeE+Z2d1nWXaGyRSrCHsL0iMuyfp7LvRb/sudafrmBmBE9iIRCNOOGViB50QLuu/HIWbe5Ae/Ojf7HT9ETf4qYMDfynXkr/zEvbsLcmIlzoybSe+yEebHvzot+e17UO/Oj3p0Xaf383bkrcOa79NWKd+dEOv8U/KFyxdqTdxJr2+BFmeJAh3ELC/SO5Au7QLfp7ugTSZcSRrbui4VGnEMgAwCGDjCiJWAQHsOGhMi+s8INigAhsmrwKRMS+5xWPeA/UlkgQAk3kSncqc1sOnHt1hfL/D3m+Cp+ClTMi3CeF4ucbOK8FROoxDnNX+E0N1wxNzRwx5niNslAy0JpPR6tOmA3I+GROyMgWdDG/cmbULtQqB30J+sjrrF2kUGHT0C2aHk3vupoLWriJVAFC1yUQZTTy5rmhq2fOMtnwtzQiXMj
+nOZFTpgf4bVs1fyVBzeeS8moNzaLspFqJ7YFraeK7gJJRi0Kte2GnPqmjIbWjPqWrLrWrPrWzHp9Rr0+q16fXYfj1vRGfWqTPrWxNbWpNaNRn9HYmtmgx/nZ9a3ZDTgNB/rcmpb8uuaSprZmgTb1I51gq9OJ8sGBkykxqeNFcFkRYH+y9pCnpTV81FsaTaa4ZN2CSisIaYUYqXAHUAwrqzhIWjikb++r0Aqh9Wb0OV0oEjAVTc151Q05ddTynHp9Tl1bbkNbDrrQqM9sbMtswntLdkNLRbul2SyZaRWQhSY8KKjTrAerjCChv3AbACuizYhxBAw1gNpJXoDdmCklK9QqeqFRrO3UfNYq0jY4b3rGSKPBklffklHXnFHXklPfmlunx3t+k7HaLDUJkl4QjLT5nuOI5JKKo+O4uANIE/uCrQaidayQIJqEghPBh5jXks3sUScIpSg4gDdH5DCyz62NYpaCE9Ewi0Xm2kWziR5EA0+GqmkpCcOBRE1oMhhYT6lXRHOYkrKe0YAqWsfWYlp7TnETEqHLqH6SJE0ayBxHwLOb07I3I+21ooESkhqTE4mdLiNrQFW0QJc0hVYU4FrGnFnv8D3eGVemhvGy2SwbaK+ZKFrQC/qXVtVDIUlsVD/000K7JwhL6xoRlpWQxVoDP/MB1HLC2ipMhiX7p+OzDr2kChkikAQNGMr06CZqGPWXdIPN06HxJgvb6SfQimuSCWGJmE1wMSBpewDbHcGzLXIcDIKKme0ONKPP0ANBbONEIxTUTHSBcAHwnLVeKjiNZiigvZxoMspmo8RTaKFHp1iQs6G38Om0cpDQQ5s5MEEk17gRWsPMjr6gBosWGX2hO7J1jTzJE5/QJAEtC2UnQC/pBAPLCelXZ5DgIaUWEc5oFSN6yAyUzuToElIXiNtM5g7N4oyQGLTMwLZ20HgbrTEwsz2AaAlyDXxjpJ0aVLuZ54wSZ8JNRQkpN7QU3gFhHV4M7cR94XfYNkOm
+AxLuQi2n5QvWcQPqL8ONdJhUhlQRn3MkYVqqiVah/bgFyYwGj9o50UCjd6zxZGC0WZa9Cya0E5Wz1XhQJlROiHYAyUkcFfSPM9HucN5EDxvim2WhXuZqJL5GtlTJ5irZUi1balmpk80dBxLfKIgtFqHVLIIMki7glkZ6oAPu1y6ZG2RzncyhHnY+1yBzzTLXJPMNvNBgEfS0kJh8Pa3a7dBoHsrTLnONMl9HN7Kghno6wJ9ci2xplS2ooUXkmgWuVeTa6GRLG32OaoUGWcSFjbKliU7jmwVzi8Tpadsgj69qZfTFhAobJGo5mt1uJg4LuSMhahHEZllsoqZSx5upBrFFlOppz7KlRbC0WKRWaI/MwTDaZHOzbG6id3QKbRNRf2vHjfh6idcLFgPiCXkBYMmsER20+gpYHjC2SAaTpEedIq6yNLJu1sh8pSxUyJYy2VQlm+plAxpcKfO1Et8gcc2iRS9xBoE3mXiTmUIWWTIFbyuQpAWy0SQazLyeNi9zNXJ7nlhziy+5aMg6Xp+wu/rWtlqUG1vrbmytv4Hj7fV3drSkHjDkneQqrsmt6TJfLEl1ktBm1VOK3ny70FpuKrxuyr/QXnjWlHecyzvO55/hc8/y+WcNBWfayq9b2ssEyBHKCB9F5oauwsPAvFtMdVmtRZcMhWdMBefNBWfNBadMRaeNRRcM+Rda8y8balJFc5XI1Rvq81uKbhmKrlgKLlgKz5mKzhpRCs4YC87qCy8Y65JEQ1FrdXJr0dW2wtOGwuPGohOmvFOWglPGwtP6gnNtNckCXyuIrQLfLPF1poYMQ9FVQ+E5c9E5c+FZS8E5Y9GZ9rJT+pILLeV3jPpSg9BkkdolvtXYkNNSeMWQf96Ud96YfwbtbCs62150AfdFzfiztehKc1kybwDAxBOY0cB0oK80rkAug5xogyjUiIYSsTHTXHpDn3myMXF3Q/yW+jsb6m6ur7++of7aVpSGW9uaU36DEITKm3JDttxW
+DkWEChpIzuTGaGt4B5CwIlkwmVtFUx1fl9qYuCPvsHfyr18mRk1JDFEkBE1ICH43PnBiUsDEZL93k/zfiQ/8R3zIhPhQl8Qor6Q1H+ftW1B3YxVXdQMKBfXnOQPbMNLUkn/1xrqFVyM/vhH9wZ1IryScHDE5OWJaYuS0q5Ef3NixxFgTLwl6DtgTl6GIQK6Vh5qW5J7/5dKKz25FTkmKmJISMTkt3DM9wiM13Cs+4r0LUZ+mnYgWW7NkY3Hx1R0XV3x7O2pqaqRHSqRXYtTkhKjJSZFetyO9rq6YnnUymKs8m/R70PnYz25ETYqPcb8T7R4f7ZEQ7RkfPfmPqA9TDwfzrVmiAONuktuLCy6uvxr95c3IaQnRU5MjFGkRngnh7rdivC5HT7+2Xd1adkfAmbAeY0X2lbVno6ffiZqUGOGVGKm4E6W4He0RHzMpIdI9iY7drkS/d3XTwraqFFnQM38LLaXVsnA/AhgXfCbfKOkzWjIPFR8PS1k/Nz7q04QQr4SgiUnBbycHvpEc+HqK/xspATh+NynIKSHUNQHSW/lx7vbFVRd/MZZdE8wV8IKwdQSG+yyS7X2ULM18dVLBkaDrQYqbPi8n6V7I1IzLV40qUg4vUg8v0IwsUo8sUA1HydMMy1EPy9GOyNaNTtWMjdc8fz3gH8nbFrfmnpO5OlE0wPUIQn1L7qlbMZ/e0b2ZonsxUz0yRzsySz06SzUuU/PcLe0rCb98aam4CncEdw+nz1gD/kefofSluSdCr/i/laYZm6caU6AcW6QaXaIaUeKNSsZd1b2RsU8tN6fKhvzisyuv+r2bqh2VpxmSrx6Rox6VrR6dqxmboR53w/et/APecvWFnKP+F/ydqDvaMVR8xmRpx+CE28pXkjb8JNQkw7PBD0mNGdn71PG61zJ1Y7I16ObgQlSoGp2hff6q9q2UHd58bRpcjsjr5bb8rIPqK7rXMrRjcjWj8iAH7Ygs3ahs7RgcoyUZPiMSfF+4
+EvFeU95ZWYDDR6SE7cDrmBgDB6fUy82ZZZdW3oj58LruH/HqV9NVz2eRiIbnaAfnagbnawYXaIbkaYehFKhxMDRbNzxdOzpR+/I1P6eEjT81Zh2TTWW01oeG8DstEhFCFEFQamr+2Hg9wAW9LdKOQClWDalUOdQqB9V4D6hSDqxUDipXDSpDUdqV07Fdqdq+RD24VDssWzvqD9+3035T8o2JkrmeF/QSX92e+3tK9PuZ6hchkTKVXbnGrkxtX64cXKYenKkdlbFmOld+SZbaKNNmfIeWXjNtFVuLC44FJAS8UqSxq/AeVKEcXKFyrFTaVXnbFasdbuueyz2wnIA05pefi73p/1qOzr5M269SZV+ldKhS2lcoHUpUQ1J8xpfu85ZrrjTc+uVmqFOWZkSJyrFMNbiE2uxYrBmWrR6TsuoTU/ElydIock1i9Z3szTOzVKNKVPYVGrtq1UBUhdYWKEfc9nmz7FS4rM/jEEeFBrE+IWPTj4ma5wpVjuVolcquUm1fpnEoVzlWqQdVqfoVawdlaUdeC3SqTdpFUZnsBPwGlIw4Cy+YZGN1S+r+G1GT43UvZalHFKmGlKvtKtT9y7UDSjQDSjWDKtAGFcRlV64eWK3qX6EdUKTpV6QZWKwZnKsec0szPmXLPHPxRcRjyovApTosUmyVpDahMTt128J47Qslage0r1Q9uEzrWK7pX63uV+vdt9K7T6Wyb7l6QJl6YIVyEPpZjUZrBlaoB1aq8KFDmm7M7ZVT9Vm/IVBLYCiWCkP24bSo9/JUzxcrhwH1Kg06iQsdqtQOWaphWWuncxWXZFHPxp4RtsEwWb4APqsvKT0RmOL/YomqX5WqL2mA1r5UO6hMY1ektU/wGZ17cKmsT5VNBWVno28GjM/1sS/T9a8k6dvXqHCXgZBLms+LZfuWyfXXDbn7EuO8MjSDSyEs5cByZd8SNeRin6MekhDh0Zb9u2yuBBHjSi6mrvo4Tz26QgW9caiBWqgc
+yjWOearhicHOjXc2y1ypRW4WxCqh6lL66k/StWOK1RA3btcfpVI9qFptV6PsV6PqU6Lun6kZejPwHxVX42RzObqGsAF+A1ZslkxmcKjW/KKjgXf8X8vTQcXtIcBqZR9cWKnqW0nI2dd4D6r1HlStHFCNr1T9yzT9S3UDS7UDKpQDKpX2ucqRtwMnVl5cKZvKITgE3E4gBSOImbH44q3Y6anacWUaR8iiUjWoQjOwXNu3SkXmyD7pX6EaUK4eBHOkD1UDKtUDgHS5qh/QzdYOjw95p+5arGzKk8BULVX6nEOp0VPz1WMrVUNh2VVKO0i5WjOoUmMPB5i55hO+4rIstcDRk04RliylAqdvLSg/EZTq9ypEj75VqQdUau0qtNB9+zK1Y7L2ucIDS+W2VNmcX34+Ot7vtXytY6l2YKVmAOqvUQFOQD4o1WdcyW8A8o5YdTlzy/dp2tGw5goNmgHlGFDqPbBAMzwh2KkpfqtsLIU3MuYeTYyZlKcZXaUaXKccVEcWOahMPQTxJWnlJ2BnkljLS60SV23OP54Y7ZkGE4fDUNpXKwfVKvtVq/rVqEnoVep+sKpcreMd31dLTgTB/4NLImzApSKHt1ASWydV3sjaOCNNN7YUnsYbBj2oQk3yZIpuX0MusG+tsi9qgxesJovvX6HpV6HFXQZUeg9ERxI1Y9J3zhfbCglHlm4SkLQnm69rStt/K8wNfhUOEDoCIIETmkVKAeTUgyBW6CA8D5CohuLQt7BFlH7F6gF52uGJga+Xn/aT2zIpeTBXtuQeTo15L089hnyjEn7PvsZqxBo7AJm19nMCUmwCQWehkag5SCs9CrI1n4D0fb1UDfPtRzfS4kJYG7mvFO1zRfsZkJb88gvRCX6vFWgYkGpCCEAyvO3TfJ8v/W253JAotySXH9cl614oVMGr26PN0PRK70FF6qHxAW/VXFoJnwnVbk3ZdTt8Yp5mZLVqcI2SHFqlamCJZnCa7vnsbT+JNbdl
+AYkWso4qfdq+hHAEoKGlAOAukGgneS80A75xYKHGIUn3YuEBpdySgasoqaJpc3AB5MS1XNHZtLhPMiniwEL6VWj6olRqCDnSdXKzA8tgM8zHojuEsZrsngHZv0Rtl6wZlrD+W64lG0z1PiAhO76q+tb628Fvw9jhBivI/gAnxNcP6gkMEHKzfZ/PDXoV4ZBcCsSBqqEpqn6wyFLVgELd0ES/lwoOLZOa0lgmV6XP/f1BIGEu1M//EMgU39fuAQm3DM+ptC/7F0DCCKxAQqyVKrsSDYB8sXS/t9ycgtMab/2S6IvThiHqAJ4qeC21Q7FqcJLvq2XH/eTWNNlYWH99ze3AN3BOlcoRN2J6DLAdklHPMR9ZnwOCLRKQZQ03NyUGvgMCggCGsI07AsUqbb8qAKmhDkK5IWv4tuwd84TaBIlrlWiZD0eLygnIGmPOkeSoqTnq4YiL1epnK7VPVWqfrNQ8U0nedWCBcnCOz7jcwJdzfMYWa0ZUKIcgDDN7hXrBOw6ARaXqhiWt/5JrzqDhnLuuVYJrtZRWXouJD3ylQA2hQxEYkBp4QgTIQcWq4fnhE5t/X6Q/pS5aOzVbA2WEROBJ+tXCuXv3gbKAQSTpnsvfv0hqTJJ5pNU1+py7QBJVqYZrRc/vt8jKKw8ASZ4VrMB4v0XCtVZrHgAyWTOOgESMNOdXnI9OIITuA5K00B6qlubzUgk4UUuaLJQZcg4nhSlyASQsW00mW622L1XZp/u+WLRvsdwUL7dlVZwJSfB7uUg9GKGxSu1YpiG6UaByTAp8o/baatlYJvJGGicxFFVfjE3yeb1QM4TiGfqlGginCiArteRX0eByVX8Ya4ZmdObGb7nyq7KlSeAMMEhBshDTsVS2pf2WFOaerx4OnYMMq9XPVGqerVTjwgGFSocs//G1e2YaLvpVbPky2/flMjUCk701BrOQOQBmk64ZkrrhS74xRRZRM9cBpCy0y5biyiuRCf4vFWqGQuiVFBTR
+5/5VsHelQ45qbMH6r+Tyk3LD5cYzuhSfcYXaweVaO3iSOmVfUCEACaGn6sbl7ZknNyQQ574PyErVYGBArv+/AtLvdYrWzGXhKiuQ5arB9yzyL4GEX9LYwf9n+LxYemAZWZtUI1Rdz1r3VbpmJE4jYgmJwGtp7DJ1Y/O2zhSqr8otSYWHvBN9nivRQmQO5WoH2HSF0i5fNSw12r09c7/M1bNnsRhkfXb5Cf807csl2qFoFfOr5IdhjtSATiDL1ERcU1Z/aMw5IZvqaexNRKREDWb4qraUXSmhLvmqEVWqITVKu1riSkQ+EDKzlSNyVk3jcvfKzTdab8alhkwsJrwfALJCAy0Zlrr+C74JQBppfqEDSLFdNpeUnQ+74/dKgWYEeBHsFwSsWt2nWtu3Qu2YqXkhf+tMuf6W3J7WdC020e+VfO2wUq0DaHcN+qCEgwUvcEDal79zrtyYyICs1mcfSouZmq8BkI7UXPSZxUiwUACZ/csXfNVVWWpG4EAqeQ9IqcO1pt0HZLX2HpCpuueL9nVa5N0YCUKEM4lLswCjdgCQJfuXSC2pstQgt2SV7F+erBtXDMuGMqlBuPqDgedoRmUhnS0+I9bfyNr+U6p2bAkA1tqha6UahzIYh2pU1vovuIrLEt/C0SyqQW5OK9y/NEP7YqluCLIFqDJFNbhrWCdj+ISleiDCZJbPsKQYz5bkvbKpTuRp2JmnSRIeKt6WsjMl2KlAPaJKPQyBv45oI/I68A+HdOWIjHWfc1UXZHO2Pn13YpRHvhoRAXLrALIS0gZb1A7PWPcV3ww1NdE4XadFGgBkybmIW35v5KlHQh9xdg18Jkxe1we5CwJ+/vbZcmOCbMxpvL46wW98vnY4uooziQeB06MRGkdEhYJd8xiQjQCyLetAWsxkEHoGJDS3wyIBZBYy938FZEeMDO4AUmO1yA7X+h8ASQwQpIYBuZhipNggG0pqL8YmBMAfOlQw6wEJRCRDlMqI/cCYeVAo
+O5P+61dpmtFIcip0A5Dn4NZlqqGpmpeKDyyTmlMFro2j2YRWqf5W7vZZ2ZpxpVrHMi3sG0CyVJIcGHFDOCdoEoDM1g1JDJ/YeGOTbKoWeAPNLrDJc5AdK5B56hEVmiFVMAY1WSSYfwkcsnpY+oYvLVWXZb6wLXNfSpRXtmZIKSkf2SJcDiJaOYDUjMj49Wu+KVOmh9zdA7JVNpWUnI2+5fdWjnYUMQJymH1q1c9WaPsW6QaD8edunUEImfORXyf4v5avGwphwRBrvfvVePdDWC3SDEnRPp+/a77UmChBdnwl2pEW5ZWnGVWhdvhnIOFaObjWfwFkxcmQNL83OizyPrLzN0DSmcRaQTcGIsIx17oEBiTBPViq9al7kiI9cjTDwQahHBWa/mVaO+SIqaFubbfX89l7U1dMy1SPLNPB5cIJQTUdC1TDE/zfrrmMdK1E4Np5zixxjVzlxawNX+aqR5VoHRBxK7VQHQdQOUgDSMCpVioHQCzwk3lax6Sgt2qQ7RlKESBpFgUJJc3t1JFrDZmYqx6GPJV1DYo1ANdWqAfRINGGr7mqK7K50JR2IC1qchaAhHpRtkr5CSovVdtnqUdm/PotAUkDuYQhASkKzbKpGMl1gt8bBdrh5Yg3KlCY/rVwx9oBADJR81wWXCsBWdB4a0O8/1t52hFoOo1rKOFa+6HnhZrhibqXcnctEJuSCEiuoj3zt/Rojzzwrr8CkizSCqTIPRAj/3MgTSxG/hOQsJJSjWOaz8tEdhiQEldvKbmQ/uvXGbAkclNoMNIyhyL1sJSAt1suhPBJcWkRrnmqEeUUjPuinRUqxyzViNsRHo3pB+AMRbAVziALtabC4+lxH8CY4L0rKCkC8A4gehUBI0p8EaoHAgwaY1LblegcUwLGlx/3l/UFUFaOiKsZDrbDIkMm5qmHwraoa+p+kDlkWKG2y9KOztzwLVd5VTYVmdIOpUa+l6UZXqJD3gXWArsnmYMSMyC/ISBpZUUn
+kLzcDLJTcTYqye/VIu3gSk2fCk0f4ia4UjMIqpesHZezdZZcf1s25jbe2nTb/90c7ZgizTCkYuhDqcaeho60IxO0r+TsXAggRb5etpQbMn/LiPbI14yAB67yHgj2exfIjhgJIOUOIMGd8R+93wfk/ekHRXvGWh8EMgpAFsINAgB1P6BYy4aQkP+l+L5SdFApN2VIQrPIN4r1iYW/LU/3GQ8Wg9StWgmpDS7RDEvxebn+94Xmq5qUoNcLlEMrNHCV/RC0wAxS1KMT131hqrhKJJw30QCpuao1dW9ypGehClkBUd9qGnd0KNQOqYt5pSx0eKEPjUVUI5So7Mq1aMNLBfuWyE3pMj3DFihaRAnaUNWesis1eEIeEgQt8gLyEGXq/ugColWabkzKhq8tFZdgM20ZhxOjPsjUjiqB0rCEEkDiAALP1oxM++UrvilDpCnhTtdKz/gHkOcjkv1eKWayo+SUBmIcKilaOKQByG0A8haArL+9/UqgZ4JufKrm+WTtCyma53GQonshQffqFe27abuUfGMaAcmVtWfvS4+elEe+2h5A1iwHTR9YpYWLt8vWjM755Useeie3MCCFfwEkLBIM4gEg07T3udZzUYl+r4NCAwBrjKSIpRlUrBmS7Du++IC33JQq8c2CoJfbC6rPRKb4vY0wyRInO7BTGpLVjK3e9ZX++Mxk33FFStxuYB2yciXCpEOS9rms35bI+kxJaAFboVlPY1kjksgQ5yIQTqUDKbrarljlmKcb2fjrxNLo5wp87ZGYAUi4nyqS23M5YH91KWCt8My05QuZKIBM3ZUa6oRMtBJ0SYMEtC+ARCAs1iJBHJW87jNL+WmQneasQzdiPk7WvYSIWKgZAfpaiKIZmqcZmqIZl/Trd1xzpkS/anE3j5QAZFH5+fBEv1cL1Ug/O7Sbxim0CMIOCH6Z20B24sGJmrPPpe7xzd6+IH/7nLzt83K3zc/btiBv+/zsHUuSt6uKLm0TW4olESpc
+rs89hPQjBwyCLHIQpMOoc3/kLbDInLWwyD9kqZU2XUnMz1N77gIZzPJIx0oVDZfAjkEHQKzg8dI0zxVDvi0psimvA0gdAQlviZZDVyo1A4ig+YwvA95NiaLYZEGdxpqWWztSQxV5SsdyZG8aJLVQC4dMZOVrPeq3TcvQjSrC58p+CCj4tljjmKh7verCatlSwQugrEaJgCytuBQTH/RGgWowI6tQSsdC9eAcv+ebd3xYtuLNXM1geHWYTi25+kHZ6rGZ676TKm+LHKmCwBsFoU3mqtrSdieHueZoRpInVz9bpe4D1wpTBqnO0g1JinYxZmyRDUlN2YevrvnhWpB7QogzyFFagHNikFNSyLtJQe/cCvS8tWWZuTkXrJXjOgfNZZGALOsAcmgHkGwQDkkuAlWqZlzW9plSE+horWistTQWiI0ZUkOq2JAh1aWLdclifYLYmCY0ZgqtJZIFrkwv81VtWYcyopBHji0DHjQCQuwZ4ra6VgKyohNIUQSQDEwGpL4AQKb5vVmqGlxJFnkPSHKt9wN5ttMiEWCg2lYOSfRvSJrOCmQSLWAAtTM3mPNOp636MJOGBRwrteCKSFTsclWOxRGvVq54O1czBAlADdFCZCZ2eZphySEKY+oBhDRBbEMiL5r1sj6/5FTAHf+XilSDazW4EWl5gXpodtD49iMzy9e6ZmmGQgMqNQ7wDZWqgbmaUSmrPuJLLiJIi3w7rXFH77g6Y/bhlEjPXBXyCnIkpNwa8CMSDvKfFO2Y/C3fcAWHxKqr7XlH2zJ3GzJ3t6fuNKT91p51QJ/5W3vq/vbUE635t0SukVaTWWc/MjIyCEjz3wGZph6bu30GqLwkNPK0dMVCq1RkIy05Qcv4VllsFOVWeuahhOYaaM20pbo98/esyPfzVePKVEMqlY5WICmBu2uR/xrIylNwrf8jkMi3kDmk6V5F7giyIwitIBpIBKXa25nbZqboxhURkCy5Zvy22Hd4ScCIYg0iEAjF
+gHLlgBKNQ4Z2bFrcZ2LZFWAgoFMA0tIiNqbn7V8Sj3RTZc9yR0REx3z10KzQNw0XlpdumpaqGVGEDAexk0b47BBW4iPcDNkHZb6anv1O/NwiWJr50isZaz7JUw+jO9KAOFSnX4UK7UceMrCQhiFfSFrxfv2VaKH0uKy/KXPZMlcsm0qRC0hiDS18McH22iRgQevB+I5tdf8WyHTNc3kgO40pMtcEF8HWaNGaWvZYc5HFcCM9pJiG+Wm1FZIb2VLbnnUsPeqDPM3zZciWyGuxCkG1tfY5mjG5v3zJ/b+xSOQD5bBIn1cKDyilFmRa9IQH8mntuQUn/O74vJSvG0w+jfh2f1xCbg3WQMOYRPFhGYXwb7pXCn9bLDcmCUg5kAXyICnNXO3tjK0zUhD1yRzRKju4VthueuQEw43Akp1fJGlHsRg8CP2tAMa6kbeD/tEQvwGBhh5RAMrDWQTBJNWl5e1akKEdU0ZEFOD1rVCh9EPwRoIBgwaLTNeMSQx6I3PTF1WXI7nSc7I+WzZWiJZ6s7nJzOk5Sxv9JIlopuVZd8nOvwFS7ZiufSlr63y5IR1ukxa0cRxYHGphC90BI00K89B6kRbs0PJAAMnVtmYfTYn+IFv7PHJn1MksoMMiAeTfWWRHjHzjfwRS5YA2I/0oOKgUW7JkoZ2eoU/Bqawhccv1gLdzfJBmkMhoAIvys74oSJ2tY/rl2gE52iEJAe/UXVoJ7HmumeeMbLtDvbnkQsraT9M1IxDPqD1acEiHHM2wtFXuhtRVpQfnJPiMA5A0CkgT6Y75mmHx/uOrr0SBSwpiK2xA5MwW5KNtZTVX194Jetua7JeDsir7V3j3gyZVKwdUecMrDCyBiqgdMn1GJwS8jcSp7uoaoeK63F4K1wKnyIl6xC96EInI1n/+KyBBpe4CWa4ZnKF9IWfLTLkhSeYaJEu7SAv39BLfKgjtNGbBmyyCyUyPakC2RIuyLbwRzqQ19/eUmPeztePQJrSM
+Dbvc71o/twJJz8qxkh3CsmOI7l9bJKjg8yUdQObfByRoFBIVa4x0QMqc4vtC/mFvqTULnl/ijLTViasyF526EeaZoRmBvLNCORAio24SlmSLcHTlyEHVAzLVQ5IjJ7el7Aa5E3g9aSffLnPVxpzDCTFTMtS4HHYDKSEFdMjSDkv/9T1z7uaqE8vj/V4s0jiim6BCYMVFmqGJPi+VHNPJhjyBqK8RXoyjgYUmvvJ62rY5NzUv5qodS9SDSmgMgQZYqpXQqn5lqgHI+oo1DsXawXnqkcgOboc6pW+d0ZywVW5IEQ3VItcq8SDAHE0XsUTyP7BIcq1jcrd8KzfckE3w1NZFkZWypZSmvy0VEJAs1Eh8rcw3SEIrz+l5qL+lXJ91MDV6KowP6VGFNwMSrgPpx78F8u9cqwMs8m+ARICsVFOmler3XP7vy0V9Ji1/ogWoiOWNYu2djI0/JGlGF8ErQtbk7a1LF9gwm5rWo5Ro7NK1SLe/NhefkYVqyvxojNSInuqTtt8OcUYyANFXaSElmLVDpmZk1qZP+ZLfGi74Jvq/WqQZzPJUfGWPdDZZ93z27gUsh4Ho22W+ndRCglpUNGf9nrTph1u+yC6G4kwkfojNFcpnKlVPV2j7lmjt0ItKLbyLfb7WMU03OF43IjnaufDgUlPhGSRCtPRS5GgEhS1k/g+AhJsCj9r2JVewvzphR/mNbZU3ttXc2FB749fam+tqb2youbm56s7mqvhNZXe21uedE9pKaSGouVyfeSgt8r181RgK/jR4i74xi9TY5fwNkJ2uFUCWqYf8Kf2wutb7gaQBgT8BqbEr1dql+T5Hk6N6ULk2WpnHwUm0yPqciuP+t3UvQTQUn9gkD2ISijXdRvpYqHVM1r2Qv2uxUBsvCvW0jJm30AYbc1n9tdU3fd/K145ko9g0aQXXilCXs+N7oepYy9WwJP83IEA0huIIWouopBmduu4bEc5MhD7BP7dJtPsMgalFNpa0FZzO
++m0RMopU1chc7bAC7eAyDYLlk1WaZyrYiDy8BaOy/VGK1P0yfRxuBL6SumO2pfSiZCxjTxjmhLsrzf+tRaZqRhVs+UR/LfTmig+u+U+M938nKeD1JP9XE+n9zcSAt+4EvXkz+M2LwS4pe7352gRaaGup1Gf9nhY5rUA1tlJlV+vdv+6/A7KDtXYOCPxHQCJGMiBhkQ6pvi8UHlou6dNlCVGAo9W8XDuIX8PtDdeD3snWDaPhElpRhgtpxgN0EaBC9CCTSQFvVp2OlNvyeVHPSbTCT+YMsqG46nTIHZ/xRZrhFSz6AEsaMtS+mLd3nlRz1nAzLingnTz18DKa4IN3BW+yQ7aTvOp9S9llmW8Gh4C/kWghnRlBlxISSz1fn9R4Y23ulq8Tgt5MhE7QlBxb2KHsW6umqYtqZZ8ydZ8yZZ9y7wEFGsckn9FXAt7KPeLD1cfLchOtzLu7rvU/AHJs0aZPDRd90sImwisWq4dDCsVq5MLDilTDi1VDCzVDszQj7uhezd4+X66+JcHZipUtOUdSoqflqcZWKO1rlg2sJfX/7yzyvwCSpNb3PiBBdl4qYkBK4AW4BS/R8xa46rbcwwmr3kvXjS5SOTKW2A+ZHAU8+EOaswV5GZkU6tp0c6tsquAkk5ktgadhndb8on3LE3U0+QyKVI3baQeUqIaC3xbsXyLXXzQlbkgJcs5Rj0R4g1owIPvnqB0TI91bMw/LlgZa7U/DWGYJyQxnpCUDXJtEuUSBWH259tqKpPVf3Ap4I0U9qkALCduDNFV790OBmZap+1Z6DyhROuarhqWrn0+ImKrPOCBLNTLtg/gL1joe2PyTa7VP1T5fuPFz41lVXvg/EMBpZSI8EsUYeCc2kqtxLNYMT9W+XLBzgVwTT0vohaqWnN9To6fkqkaXKe0rlwMGK5BsYlkzJnvtl3zlNVkG9SLWygI2A7IjRoam+b1V1gEkuVYWkAbQ9HUHkMmMtUYn+L1egHSCJmYBJE6G
+q6TglAogDyql1kz6cWzrDjRESqmZq7mRvm0mzU3S+B/6yCaEASQb1AWQGZqxSbEfGnJOUkyVaUs1tQzMoikje8vMFNydxg1wI1q3V6QaEu/zatFRldz8hzl9R2qoR45mFBw7rQRDgqjum6d2TAh6t/7WZtlcw3EGStvoh7YBpInWC9IvZrYgfMpCLbpjKT9XejI4edUnib5vZ6rHltByBZBwezJQDa2Cq1QhSR1SqByRpBlfdjxI5srpMRrMCv4SSJCx/jREpxmAqIucKUX7XOHGL0xnVNnhb+cCSFoF4lhBq//6g8JUaB1KdINLtCNStS/k75wv1SPdbJDNlW3ZB2msVT2ynKIRrSJgKgLbss9Wj81a+xVXeZ35PdpFQ3Mf1BJmke2F5SdD0/3fRoykq4gfDqimKfj+oKNpmnHF+xbLrUmyKZcB+UaBFmEJ+oEzAQbe7UD2kn1fLj6kkloy6AEJ8GmyQHtlAGpLbtER3yTfV4qIJdIoLko1c62VxB4dUlTPZWyaxVffQXClrVTAEVgKLVLNzfRfPkPMowCJVhGrAj0ZfNv/1YqzgXLLLUsu+jsNVIjmKTV9azRk6zDfeN0btRdiZWM5/copjdKZeDh5sZ2xsEZZaqJpRADJlcjmPLk52ZJ9qOqoLiPKK0M9pkTtCAeGjlfBIhE+1LSWuAAcSjs2e+fPUns+OsUzyd0PZMT9QBLJ7ADSPl03rmjjx6bT3jkR7+RpQUBoEhyGDyDrGBmp1MKbDYWt5O2cK9Un3gekV75mZIUGXoJmXAEkrYZV2+cQkF9ysEgACYtEYSOtd4EsQ4z0f7uUgIRQgGIHkHDpqZrnHwTy9QLtEAYknUNz9DRj45ji+zJZZAeQtHucimSUTeUNV+NSA18nIGG+VEBcgSIBWap2TNa8UH5II7flyFJ7J5CCLDRZis+nxL6XpR1NSSTyd23/Su3AMuDk90b1pWi5PZkrPZMR93mWamw5UaE+VepnoSgl6mGJ
+6vGVRwLktkLkbKKAuNjc3phXk326IeNwY8bBxszDTWkoe5tSdjSm7qxP29daeFKqv2xK3lSw4fNMHZI3OGqE/760mkSDKG5XpB2coh2ZvPF7HskV7SAj0RGQNPX6AJDwgdbZdmIQcK1p2lFFmz5qP6tKCHsnXTeUpk9Z4gUPU6caUEdLOvuXaWkhQcGueRIYGk1jVRCQMZ75mhEEJC017rDIe0BWUYyU6DnyDwLZVlB6IiTV7637gGR+nuTyF0AW3gckWgIgS7UgOy8XH1BKzWCtevgfVE3TPADSUt0Wvzkt9B+FmsHlBIlVtwbSzLvKrlgzJEHzct25cNlYRD+wR9Yo0YZJrk6fcSgx0jNTOxLpEwEJX6cbVKYcnOL7Zsv1GNlwky8/krv2s2zvsWDp8A2Vmr5gxWWqYSnKl4t3L4ZnFvkWZKW8uaYy88Sx6C/O+TtdD3C+4ed802fidb9/XPd/+w8/p/P+U25sWW6uuSG3pTRfiU0PfgdNggSoQjIGRJCBxVogMjxp3VdcUxptCf8PgSxV2YO1Fm/5zPBHRPK6z1JCXy+EvZMigyDYIQEHuapV9yvTOaTpxhXsYmt2aEdchb4DyOEMSAKeCk0LgOz8B0D6A0iKkZ1A0jA0XM2/AJKlHw8A+RKAlJtpiI5NoyOSSGzssLo1cWtq+MR8zVDk4AxIGnJCr0EywdritePrLsbIxmL2lA0IB9dxsqWq4c7WxFCnbM1wwA8Hw5b3AUjHLN+Xag/OMSVEGa7oimIVBaqRVdRs1Ilz+oOdpaufy93wrQgOKDTRNBZX25h+4Gq4R6p2bJF2VIlqOAJtrnZItg6EcXSC8rW0dXP4iutgQMasA6lRXoUQIHl+FsvZGvESzaB0MJL1X9HiK8lA64A6gYRrLS4/H5no/9r9QKI1DEiHdO3Ygi1fS3kHjBk7ag7/nOPzHHF3eCQ1MjBHptGwSPs03diCXXOkhgQGZHknkCNIQ63pIKRGtMUuVzMm
+65e/AhK6D6P5j4GsPBuV6Psa2VYHa6WRmhoayyYgSwBkE8sjySKhJAATGWFtS+L2lEgXyA7IUc1oG1vPXq6xB1287fN6NUKauVISjQQ+RSBONpdWXVkdH/BmnnZYGa3Y61sDPwTsVfa52uFpgS9mhL+eF/pSvg9ovD0+rKZJrn4VSBs0yEBGp658nys+RwMmBGRda8rexDDXAhUShEG1pN/9i7T983QD83WDM1SjgTpfcUU2F7TnH05e9V6uagTaiQBJvB18R0kjKpnq4WnrrMshkZh25pEEpKmo7GwEAakZRmmyNUYSkGysVTMuf8uPcvV1WZ/Sen1Vqt/rRdph8GaMuyLS2Fdq7cC5GZA/dQDJVbblHEqL9ijQdgDJLJKUgyySgPyC7f1okth2+A5ySEAa5LbcspPBqX5v0mg7A5IpOAGJGAYgi35bRECac6vORSfBIhmQ0DnchYCkQGKf5vcyAQnXKrSx5diECG0q5uqaE3cmR7rk6YbRSgvKE9BZWDNZZL5u+C2fN2ouxdH2UvgG2DA1zCzr88pOBMRrX87XDC4h4wCQfWvJwQ4o0jrk0RyIQ6l6EPINWrRBk50D8S1OK9XYZWhGJUdPas/6ndJrGvKta0v5LSXUtUg9DKbGzqRF5XCYhQBSPSpr3ddc1VXZUmrM/T115dQ8mrZ0BENGCK/yHogCD5elHpH+61d8QypZ5F0g2eIrK5CvF1mBpPg3iLEY3GNwmuq5/M2zZGT6hrz6G+sT/d8u1gyF60BnkISg3QCylIaR4FrvAlnRlnsoLcYTQIKmQlIdWHYCmfnLZ7SggS2++jOQ+tzSk0Epvm/AIikYE2vttEiVY4rmheLfFsstibIxu+psZJJvB5BkkQQJQU4pU4dFplPmQDsUqXoKkwAyaWdShHOudiiIw10gq7QDIfQ83fCbPq8TkMYKSTDKxKd5CpZN6QV7lyRpxhVpHMpgu5SnP1Or7FOh6gf8wCTZzGLfKmVfuD74
+KthALXgmjcjYZ+nGJoS5tiTvgX+mKT9zTXvynuQwVyBUqkXiZFfnDfMdhLsX6IbA32Zs+I6rug4fYMk9nAkgiV5RjgCzITdJi1RA+0fQmp0GWg55Xx5JQBbfBZJYKxthopyMiNkQZKAMSMiuoPHWxkR/ZJNIivvUKZ+FX6KTYQTIwXXPIUZKjX8CcqQVSOuZABLYZ6tHZa79hCzyPiBZEgkg22GR/wLIQcUE5IsdeaQxp+oMgEQ4oAGBCtKqDiAh2XtAdlgkdRTOhzxb4v1ADgKQFFkfAHIVAckj/eAoBxX1Ys2dzE0z0jSjS2irG2hRn0plH8BGC89omMK+VD2gTNMHylRJw7YOaAMb+iEXkqMdeyfg3fqb62VzGdIYWiGQvDMxFA0YhbQNnLnOm3xmqWZAntYxWTsmbcO3XNU12VJiyf2dATkGRBLWQoEJAvRGmATJAJDf8g3g5PfnkR1AIkY+ACSuhOsoUw1J07yQt2U2ZfqmvObb65P83+gEsi9LJZkRaBzTdc/l75onNiT/k0Uiq70PSPXAbM3IjLWfWCouyFIjA5LybqZZiNsGuT2v7BS5VrBWcg+EIi3PBZAlqsGpAHLfEjh5ZF3VZ6MZkI7MDuDKrLdAKLUDa/2Ta6Weon4LgNyeHO501yKp/cTsO4C85fNa7eVVsglAsgFueghFs6X0StraL7I14Cbw2wNK1cCvX6WyfxXtHLWntcXwjboBJdr+LI7QTBaSNHS2XA3HOzI54M2q81EwA1lskfnqtpSdSaFOoIHlWlIjiLFajTSvb4FuEPKKtHVfcJUXZUuROfdo2ooPcrSjS3WOlbTZAXj3q/KG0Q/K0gxP//XrvwLSWFx6JiLB77UizXBGdh4AEqlV5rY5cn2CbMpqub06JQBEkWIkG6yhuXI4+goYLlvXSgPEfAPFyA4gh9O6qfuABDAdQJafl8UGiR7ueRdIuPsHgKTG0OwEagCQdiXqwcwiF1uBrDoTkegLpm0F
+EgS9E0giOy8XWdOPe0CigH/WEpARE5EQPwAks8h83bBbPuMZkJW4kDZs0LRJU3vuqYSY93PUw8to3dCAMnU/eFdmlIDTrtzboUTlUKSxK6YwaV+tdqC4rkUqSZ4WDiPF98XCw2q5LVuWYJE1bSm7kkMnFEJNGTa1ShILhUk0WzsyZf0nluqzsqXYmHM6OebTbN2oEu2gcti3ui9IWbUSHnsgmzv7mm/8E5CcQTaWlJ2NTvR9qwjsmUbgKLVAwgdjqlAhaxmTs+1HuemObM5uuf1LKlnkcOsCPavjBlGsYAvS8wBkIyyykRYoMyDzOs4E3QIkSL1pDWeWbkTa2ulc+QVZbKTxKvo5eTQIfpVZZFt22YmgZJ83SjSUVyDeIGDTpjAKhA5pmucLySLhWrMrz4Sx5ZD2lUjANX2q1cSNmZtySPF5uWi/Sm7KAh5w3R0WCV2x1Dcn7YBrBUUkvsY8CuO60MUBBZrBN31frblCQIq8QaCfdDEiLW5J3Z8Q7p6nHFauJNJRCjpKIPUrUw3K14zK9n0xzefFNN8Xc33GFoOLwijBE7Uk+graV+uQoh2XtXue3JImAUiyyF2JIRPzoUm0G5BsBjpaprJDAE7Vjk7d+KWl6iLyCHP22fToz3K1CKWwKFpsR2snaTWQY556BFgr14w8siNqWC2SpgXKzsck+L3JFvpB7mSUbKDPEffI0QzP2/ipXH9JNia3Xl+RqnulRDmMnUZ7dGFq6FuZbnCqz7j83fOkhlSJdmNVtuccQvpBK1PItfavBOOiMaN+Fdr+mdphmWve54tOyHyVxLfIgl7immW+ReSMApxPe0bJiYAkvzcKNY7l1HrkqWznKexAPTBdMzYf2WrtFVmfUHUqINHn5UJi50+z5WgdlKpYZZdMrlUjN2Yh1CHOUTfJJiXZXN+UtDshUpGng5bg5H60ToB2fJKpFWgB5GvVV8Fay3lLu4Um9VtlS2UTKF7QO/nKwRXeNBhURuve+paq
+BiC5Koib3Hha3XgxsOFcYNW2H7J1L9ImZJZnWxcelCAR145N2/yDWHdLEutJMil7E0Kcc3TDSnX28K5M1LT4qlA7ME07Ih00sOysbM6xpO3LoS3f1sy1Y5SuUulQqRySpxqWuu5TrjkZ4N0DkpdaZb60/OrKhKA3C9TDacaVDPmZag2yK7sK9WCE1pxYN3Piajl/T9VvczPVz5XSTrn+QJH5d2Q2DqU6WOS4Qoi4Ppk9HKeqPZOALFAPYWHg6RrvPrXK/rVgFppBBeqh+THuphsr+aJTlpJL5uIrxuI/zJUpYnuViPhqzCk+HRIf8HaBZgi5FCL0oF2DEIHgZDLVI7JWT+PTNsqFe8p3fJuuGVNMC+nBMoAiZDewQjuwQDMoOeDlkt81ZJG0pY32t7PBHTO4RlPizoRId8RIWidAQ9uwHtoRXaYeVKAddtP3zRoCsliytPC0/qEReW3VmbB4+GqYPm3+trrxPiXqAenacSUHQKGvyeYMWZ+mv7UxNdQ1TzWkgtZ+9kOX4QzLkL+rhqeu+cRSglSyRrZUGNL3J4W5I77Qni9Nv0ptn0pNXxClYm3fHK1DesQE440Yuex3/Xnf7OC3C1QjKsCeVBAd4IDaDYQzz1MPSfv1E64xyfqQvg4gOdBrvqr6xrqEwLfzNMOgUGDzNapn6lTP1CIxUg8uVA7L0Y7Li3IuWe2V4fdSvmYIW7SC9ANA9gPfgc2VsxhZtHO+XJ9KrpV2Yx1JjZ0M14o4VKt8tk75TJ2aOgYLK9PY5/uOyYmYkLVqUvqq91JXfhC/8rP0vT6m6jR6ulJ7Ucnp2AT/iYW0o4xoDnwy4CkFkOp+BWrHDJ8XC1d6lcZNLgh4pVg1uGJ5R4LF4jp8A0KdY7zfS6XHdMhkZMRgGgtA9GVPLeOqWxJ2JYe7F2iGkcpS2oD6HdhuOnuk0fG6N+sQIy0lPK9nT5pqkVpyCg+qE/2eL9bCB9LuDgTjClWfIrVdgu7FklMBoA4y
+VyYbSw3pB9Oip6DL5YgjOI2tHQH86ZoRKbHvG7OP4u6ggcasQ4mRk7PVY2EkQIjGUdloKqqFMmVrRudGuhX+8nFO+ASaFKNlEuTJqtUIun0g9nL1oEzt4JQNzCIRNe4CSQ/8s9TUxW+/EzwhWz0cpL+UFr33r1c+Xad6FoGkVOlQphxcrByc7w165gBNLNfSzCIzNQAJ7wpTGJyleb5kB4BMobFWvrI151By7CRahqt2RJ5UC/MlIkeyhuwKvQfkqR1yULSOGdoR8doXU9d9Yyq/SUrQXlp96dd4/3cLlDRlRkAixFJa9myFtk+xun+hxiFXNTh3uT04JNgjrX7zHlCjHEgUmtIAGmlL9BtfcSZENhTyotH6jAIaDaDBtsbWhF2pYc4Ih2xDBY00ERtQwffYF2mGJOherbscK1lKLUKbGfEbDr8+LXP73BS/saVQX7AbNk4GvpOvdbyJu1xZCYYpSQ2QoSn3eHLslEzNULb8AH5iYLmGRm2ytIOTwl30idtlUwlcgrHgZELsh5nqMSAW1kQFyk2cy6qIqsF5ylGZ6rE5qiHFlFahkWBDhDSBTbe2z9CMSN70NUdBl5790gGkTE8Ba2jOPHwryi1dO7yYluoOq1ba19PkBgIPUS9aCbHcrooelkKLMNE+qBtJAUIkPwxP4pitfq74HpAV+pwDySs8s7QjizVDSzXICO1qYDe0CRlSo8VLFSwswbkhFqb5jMta/zltXuFqaYICWhVCxJJUm+IN1LZPpeqZcvXTJZpnoUZlJE3I9NkqFfSUkVXKgmDupCuF3sNSApxrrq6hbIweLEdP5KSH74mibG5tTtiVEj4hj5bDgDig5VZTtmNDdIPv+LxcdyVatpTyQpuFHpvdyFffTlv3NbSNHmfiTY9jKFfZwS3n6YbdDHy7PmGrLFSJYotkaRBKLmas+ThDM4z2WqNObxhQn1J13zyNXWLAa43XV8mGPImrMldcSV73FShkCTJ9IsywRcQF
+yrBRcJdyesKMQxlFUNojxZw5W8FM/sC+VDUsTf18yqaZvD6bPRaPTNJqkUZkIJba23fWfZGgGwv3UqocWuXtWOM9CLXA9is1NOjOHgUALUbuj3rtS71RHIpV8HhIIgeUgtxqxuXt/FlqyKTVMVwVgEyN9QCvge7TGhlKV6y7eaEKfRDV4HzARauXDypRD6XF7MifKi7JfC0yBH3uidsr30vxGQH3RZNNtEwE1kaeDdiTjGgvO61nhAqDYEPtiGzT2DcIer981ajkiPdb0g/JYi0ntdMQK4CkZ+CD7LQ2x++BfeRAvdiaK1hzLVgYCcgxXzsC6UfNhWiYDliYQBO/DVzhxeSVH2VpRlYqHau8HRB6ilWO4KJIEG/6TdSn/06DqFybbGyWy2/lrPs2TT26VDmscrlDJS1spBVyeSqHZP9Xqs4EyYZcgWsQG9Jy9yxK8hkHvSkhKg5dhJzREcCPLIuGb+iJFXDgWoQt+Gc4QvtiyiAGlXk7FKhHJfm8lrdfLRlLBRD+u0N0bGmqES4+76jfdZ/Xc1UjSr3BZSA1gMfWDFLi369quX2FN9QWTn9gtnJYrv/48hiXLJ8x+bSrbVCxdkiy7sXsXYvEpmxR0MtinT7ncEqMOzIeBIlC9aAS2odFKTNCeom2L1gMKq/xdqhaDm0Ygfiaue4zvvwyrbg0NYmNGWl7lvyhezFXM6wCOEHWtOnAsULJHlRBCRJaSKWK9oeg//YVSvtyjQM9UkY1MFkDhZ1trLwuy00AQ6Y1t7wo8eRdLY1NCbvjwxWwMDSsHDSHrfYoVQ8s1A7OUI+47vtW1YUVsqGMuLTULvN1rWmHb4V5IVxVeA+t9HaEypaQE7bP8hl9I8ilLfc4smFRaJUsTUi1s7bNTtKOy1c6QuIV3vblyiElyiEFqmFJYNcHlGJLJj3tr6209tLq24H/yPAZWQCeSOMGcJvUL9g6bIbGs1SgP2y1jqpPOe1SHlQOg1H2R9Kcohl3Lcip
+7sYmmatj6nkXSFp5bkFwas85ER/3RaLulVz1iAL4GR/7fB3ZOKRG4xdKqKFjntYxRTcqPtSp9phGTl6f/ctnSZqX8zVjcjRj7ujGZ+5aLDVn0Si8UN2afThxxWQkRkW64UVaxyL14GLNsHzt4AINEiY7eJVSYsijylQj8zWjk32ez9j4ORuaAlEyyKaahvQDV2Om3fF9CZy5VD0UulXiTcG7jB7SMrSM3Bc8BzJ0fDWkRDW0WDmkUDWMhlHUY64EuZZfXy+bS2gVBT00lEeYhPLS71NwNU3xu2+Fe6boxuZoh+ZpAAm0cFCRbmiubmSmz/PXfN+tugDWWsG2QtBWutpb22+GuGVqxhQpRyPPRiJfpHLM0Tgk6sbcjJxiLEU2XCfIzbzQIOvT039bct33lSyfUUXqIaXKIcXqEYXUwbEJ2vGZW+fz1UmypUU21vElV1O3zL/m+1aadnSedniBxqGIxvmgJUNopyINY0Hvrd6uf6nSrlTlUKR2KKAlS2P+8P9Hxt7FfMUNmdcjM7735Ct60imoHd8mtxY0JuxJ3TgjMdQlwf+lO35j7/iOS9OMzVaPy1SOTdE8H+/z/M2AN5PXfFJ+LkKs/gOEu+aPDVdDP7ype/eO7z8u+kxM3aMUwfhpQ2FtY97pK7GfXPN9I9FnfJLu5TTd+Azta+naV9N1L2VoX8zUvpKheyNN+3qG7vV43fgrvq/f3vR9e/UtWWhiW0rbRH122fVfEjd/fzvMPdH/7WTdyyma59LVYzJVYzLwrh6Lku09Lkf1fIbq+TTNiymaV1J1byQHuaas/b7w7EquPlm01NIwG88J6CuNHHE0kMvX1icduB710U3ta4k+ryTpXkr1eSHN54Vkn5cStePv+Lx5VudaeWUjPWVToARXNleXXd1yPsjrtu8bSbq3E3RvJfq+kurzYpLvS1d937q5+kdTebwstQhSC49k31icfjT8jJ/LLd1rqdoXMjTPp2pfStK+nKQb/4fu
+3Vvr55rLb8nmRsncJLeXN2acydqjSo15PzlgQqLfK7DjNPVzmcrnM1XPZavG5KpGZWtGZGpHZGpGpmueS9W8lKB9OdH3zdvhUzP3adpyT8pt8BnQUfZA2g4gabeGKPAcZ26RTLWm8oSmO3vLj4Vm7V6ctmVu9vofc9d/n7Hxh7Td87KP+FRc2WDMvSQ159GkDFfL12eWXttReDqy8ERY7qmIyqQDQnsV7R8TjW31OfmXNhaeCC85FlJyPLjsRFDZscDyYwEVR/0qj6AEVh0NrzwaXnUspOxYUP6J8KKb242t+WwnF9wDx1taRFOZqSa+IfX3qou/lh7xL9g9P2frzOwtMzI3oz3fZm78NnvD9zmbZmVvnZu7Z0nhIf/qc6ua7+w1F9+S2kAOEbf0UFD6/V721GX2iDT0vLWlPKHw8vrS40HlxwJx6/KjAZVHg8qOBpUeRTtDsk6sqMu/JnBNHD2izyKZW5pyr+adji45GVh8IrLwZHTxybDy40Elx4Pyj0eWXdvPNQFyZDht7FGujTXZl3NOxZUcDy8/HoxSdCKw8KR/0Qn/ghOhxde2WhqyBUsTreG2tAqmBqExuy3nZO21jSVnQ3MOLc/aMS97008562dlr/8hZ93Xmeu/zNj0RcbGb9I3z8reszT/SEDVhdXNqUcgc4meMgIhU2ZMDKAzRtLjp3la8G/gRKPAt9MjX1sK5doMsSZZrLolVt0Uam6IjfH0VCtjhWzR0xpRFOICzbKxBgmD3FYEri8ZKyQLkmj4Mk7km0RjmQyZthTR06Vac+XWfLk1S27NkFuz5bZ8ukRfKOtz8JWkLxbMtbxAPyohsJ8XZBu1DRKcG0dPc6BdLI0pUl28WHdHrLnOV90QqFW3pJp4fCg1JElNObK+WDZW09JFzkjLutmjS8Dp6FGFtL+E0g96yLC5WTKUUhtasuQWtKqAWthSKuvL5PYyqa1aNLfygsHCmelBgOimuU4yFMntuazBxXJ7odyW
+K7fkUdcMMHqOuTfamCaJJtHSLLVXIgrSySjtBTRWbs6WzXmCuZy3NIlCuyDRT5ryMCZoLezBhBw0X9Jnig3JYu1tseaWWBMv1iTxtXf4uut8zU2+Np4WHyEnhpzpCcJ6gTexn2aghUgd85EZGRk0XE1uxyTRc5jNaBftk0YH+HZ6lq7UyoNoATC+ReJaoQg8CUaARCBtnn7930yPcYbuS3oz4opAz7ymB1+L9PuPEBtPzymFcQAVnNYmsUdI8bJ1wXUbDdlDQ+m3/+AEjZxooVV19PBqBDZ64LNFMAoS0G2VzK2S2A5aQavFIALRgGol3JHa1iRxUCB6TDRNPEENIFnJRGNyIuII2slxRPAs7KcM2BQjh2v1NGUvmui5fxw90BvaA7kIHD3knWNtYA/lNgBXtnegjS2tgJagm+hIG1IUgWgU7oOTzTRWTEqILphwiQQHgJuJkJiel9vNdGCmp2AJAj2YnJYPorW4b7tAO3LaBL7FzNdzCC4CJI/2GwS5RZRaLVwzxzXTjwfxJo49EFuikA+XSg/RgFl2bKuTBHomLBUaXaae0gwhYUVPrKc20QOr6RmcAm3xA8el1jI+jzNhPvQcIHxjkkwmCQZNz/FlBs8ZJFO7YDKJZvqBZLa4XaCHdOMEEjkpAgwXvaUdXjzUn37eFB9Dq6CtnAXKjmphF2gcazI9oBc3I2ujLY+oEDWhmEhL6BjNooYyLmfh6HHy1okVQAd/bYajpCfVEtC4nbV3DHj2RHheaIW4cQ7yTag6IU5rNaFhFug1PVWcb+fg0NjgAtSDfi9YAjxm6AU9AZoUgp6ESw0jd2KWoYjAViIwqbcWqxWhB5AFdQTprYF6h87Qc61RM65BVKdnogs8gDfybRZSQeqzmTfSFjg0jMap0EnqGcF3b6wVJsbu0mSSipssGTVtmbX64hZDM2wBKkQGxsRO2KIFpEgdj8qF44H0LfAnJjgt/GOUTSbB1MqJxU3tufUtNSaLgbQO
+jsBEIuBN9Mh0evY5+XHCAbelLnL00wTUf8mMb1ATekefmOAA0OE2Qa7Wm4prm8taDK0wLrY01AIbgtAgHMFiEY3s5wBQNekYAgW5Lwn6a+0vU35ACznAtUKXrHIVLaQsZEwWyNAitLUIpmqjObdOn1HTmtPQVmG0wHsYkXzSE/gtRs7QzPH5jaasWkN+g6GJ40ykHPSUfTJ3QC+yf+mRPLTnqt1iKGxoya1paWxDb3EHjv38iVGkPVlktWbBZBAQgaQKI5/bYMzCTesNVUa+mbaaQmsMeh75uLmgvq1cb6q3cPlN7dm1bXXtHO4K4cMTMGfQObJjIcOSG83Sut//mLYwdsLMMOdZIR8sCt989GqDmcKgUcIt6bH87JcCgLiZEyEjiE0GDrB35rdkMyQumxBSCppb5oWt+XBR0PH4rFb6mQV6mB7b3kyuD1KEsMkc4ATY/hrIiCPzArWg33cySkaoOQwRWmkRzABfL8g7j537YNbPoet3VLQaYOu0hY+qox0xFsKD1vZTY3AveGneCFGYZJOROCtaSFYFh4h74ebWc6AiIAQMBgBJlmyUxEsZ+bOD13nMDXaZ5e8xL3hB1NaU8oY2+ulcjoQu8bcKq74P2uDyU9jH6pVnUnKNiLroB22Lgt6RZ2aaygEGuP70yoq5YaunztOduZNBv0WBuEgNsHCcgTO3kQEwIG8UVM4M2eA2N9R5VrDH3JB5IeuTi2vYI8Ut6PiGw5c8f1wesGnf2ZziT9WR05eEnLiVAbdAv8/I5gGsa7sJSKgsbpPX0OY2y//Rt7/rO1nZx3PpY29+M2luaFp1Sy0vl7abS/WWKoPQBJ8tCTUGY5XRVG3iqtq5FgGuQGwzSw2tfHm7pYQz1cnS7armt75V93P6Ye3J+GoYk8FSaTBVWTi8N4OkW4S6dkuNia+xCBVGc7XF0iCKNRaxvJ2raDdD7/SS3CLL1ZxQ2m4hTTQJTZx86ErCT6Fxqw6eKjNYGixiZRu+
+4mpMQgsvN3NCrcFUbeBrTWKdgWuxWFoEcyPPlRvQbHONgWvmaaqsVhBL2iwVekudQdCTZpGBkmQhChitKDXxUvCuE/3cZj3h+nP/SUuecv3J3n3WphM3jbJs4oC6qVWS9sfnjfjUu/s7M/t5zf311O12GATEZ/XUpJQUMhBUmzip2Mifzqv4x+zg/q7fbb+U2IwembhiSLLNUmc0GciNwT/S6NHKwxcGuc98bMJP/b2WP+30k73L9xtOXG/khXbwZlmO2Xfu6dc/mKaM/vWPNDuv78dMm334ViZcFP12P614gHvtBFIifi5l1zS/+bXqcee5rpp9Cs3eR9+Z+fa3ASdSq9YevzUjdNPX/hvnR+/ZfzvvanHDsrgds8PWLYrbNSds3a4rt3P1/Mbj12eHbfvEd/WMmE1br6atOJ44bOryp5wXfqhdtze+cNHq3TOit85ZvXdm9JaDCYW7rqTMCVobvu/CquM3ZoWu2Xj2xq3qNt/tJ74N3vB90Grlqu2XMytulzZqN+3/KviXr/x+9f318I2Cxt1X074N/iXq8IXbVfrw3Wd+DNzwtd+6hSt2n0orPZ9Zvih6y/zY3YtWH1oQve1kUm6+nl9x8MKPIZu+8lv3c/TWQ3cyExuN4QfOfx248Rvf9ctid1xOzocsTPCwFO9oTARANnCycuORpz1+tvsk/P3wEw7Tffq5zVh58BIsEiHAIpoAxvpLKQOnK3solvSZsiR07+VGCggIYYhhCG80Ww82WW8Uj1xPmxm28fPgHcM+D+0/efm6S1lHUsp+XrXrU/8134Zsit57urBOj+t4Ua4X5IBdp/q6zXX4MPCj8NODP/B76h/fhe4+XyfIBnp0hLz9cpKdYobr4tjAEwn9J8157Rv1pZxqA1CEGtCiCvbWASScniwhMLz2hfpppzlfRR2fu+7M6OmL3lsUteFsxsQZgc9MnDn0Q80zrnM/Cty64Xrx2I+WPe30g93khc86fzdpSfjOmyXO
+s8OfUvxkP131lMsMj0VxS9ZfdpikftJ1meuSFSFH40d87P2k+8/PTl3+uGLO19H7f1p7tK/rD56q9Z+G7h3g+u381ft/uZA50HPGwKkLBk2da+f63fLVR4J2XR7kOfPZSQv6T10+yH1e2P47ms1n+jp98XnQ+nVXc+w95w7wWmw3zftp55kzYvesPJM+ZMrCZxQ42ftZ1zkLVh46kFo79pPF/bzmDZm+/Fmnb78M2vrL5cIxn/n08Vw88lNtv4lfKlftqgUxo5gGg0KaCe8qARX1+sNPucwb/lXMnC03Xp0TOebjuetPXATkIGAI1Y2iHH74cv9pS/u+H9DXY9nyX36HEwIDAPfoIDXED+WCeuO3fuuenvhD/0nez0zSDXhPE30q54fIw0+7zu7/4bKnPBeM+WjhwVtZAANybxDlgN2n+rjOGf1poHLnHec54eOnz/v10IUmkF0EDlk+nZI/aurPb8yOWrDtj34e8z0WRCaXt5I5gh0gO7ai2UF26IHicmZt2+tf+z0zYebM2ENXK42XS2tvlDXuu5734qcaxw/V36+/0neq8u0FK1b/UTbqE63DdN204GP9PJeO/z4w+GDqy1+HDPzQ94u480M/Ur/yTcDm27Vvzol5xmth5NnEHSnl+HD4F+FTgn5/2n2Bh2bTN6uOPek+z123+6OIY8+4zP5pzTG//bcfd/puwvJ1rqqNT0347qvAXXPjTj6tmDdBuVPhe+AJp9mLNp5fuulcH+cfPgva7n8o8cmJs1+bu25a2Kmn3ZdM1W4OOZblOE378pxfP1lx6UnF4k8D9qy4mNt3ypwX5kR9GH34Wc/ZrotW+h1MHThV9eKsuMW/3X5ywqff+q6oaKOoSRsnIQsmFKQI4btO23kseNZ9+WSfHYEnUnclF6U3tOohcUR4Sa7mJe/Nvw+Yuuj1uRv7eyybEbYtp0nfTpkpXCtoFa2yBpAp5fpJS+KeVCz08jv4/MzV/acsCz2RPdVn75OT
+ln8Qd3bkDzGDJi/YeD6hlUme/Pme0/1d546Zrt12tfBWaeOd/IqyBn0bh3wc1Ei+kV85/gv1899FfL7i3LOKn7/y2VDQiDwCvJ7IMnnWu9NYCJAAMq2m7ZWv/J52mjlv1cEiXq6T5XpZPppUNGK6t+OnugW/JfX7QP3mvNi4qyWjP1UP/yzgxw237T7we+W74LCjGa9+E9Zvqubb1Rdnrjqh3nHxeIn+HwtC+06es/l25v6M0mEfLBv/Y9TP6y+88OmyT4K2fRt35EmveQqf3dMjjj+rmD979WnV3tuPw0Z9N38dc2DsJ0u+j93//YpjTyt+nuT72/erT435ZJHut0vLtp172un7j4N2a/cnPj5xzj8Wb/xq7ZU+HsunaLaGnsgbNE3z1tKtC/dmPeuxBOdEns995r25I2aEKwJ2POX+o/PCSP/DifbvLxvxRaDqUPw3UdvWHLlYbwa/J4AAJFEdEcFeOp9R+qH3avvJS592m//q7NCIEzfy9WaDJIMTwziKTNwP0dv7TVnyfujJAZPU05RrEmsakdVSoII8iSxDwnJyRZvH4tVPeSz7fM2l15dsGDBtUcipVE/d7kc9lyoCDwz/MszOa+6G0zcQ/5D2NQty0J4z/V3nj/vI50B8KdA1yDK4DOiVkbfgOLW6eeKckGFfhDppDvRRLFkQ81uFARGBshe4EfKsd1kr/kTYTK9te/lr3ycm/jB75b5zBfUHE3NOZVXsuJk7/DO13afaBXsTBnyge2PuirgrxaM+UQ7/3O/79dcHva995Tu/X6/kT1H++qjTglGfBM5fe+Z4QeuVBvGtn4IGTJqz9WbG4czyEe8vH/9d0MaLWQdu5RxIqZi38cRjbjPcfHbAIp9WLJi55qL3vqRHXH+cErh5X1rlzsSCQ4VNs9efe9p17ge+23/Pa9iTmHW1tnXp1mNPOv0wPfQ35cHkh5xnvrF07Ze/XHjKY4mHZnPgydz+H6rfWL5p4d60Zz1+nh68
+O/xS4ZNTl/T2XP7Y5MWPOH3t8nPIxlsFr88IesJ5zqszQ7Q7L94pb0WGD+JKz8OFY2STzq0in6M37kssQWR57seoxxTzRk1fcOhmGoAkjivJGS3GqZq4fh+o5u5Mt/8w6J05UVdLavUwLGYYRHvoeSlyUnXrpKWrH3db+vGa868vWd9/2s/BZ5O8/HY87Dr/SY9FTzvNHeY5a+OJPwCSSZLrRDl436X+bovGfRyw8VLOyYz8Y3fS0subkGWxFXxSXqvxQ59f+7zvO/yHdX08l/luPwPHQL+hRe6E3Op9QFKyLKc26F/8Vvu08w/fR+5csG7fiE/mK7yjQ08mjPlK5/CxZslvqYDtzblRK6+WDfvCf+jn/jM2XLf7UDv+W/9j2Q0n89u/jjxlP1XzrOu8jwJ2HSk0TZgXOcjrp63X0w9nVwyZrn71m9CTGbVNslwiyJrtZ55VzPTy3fZh5O9Pui2csfqP5b8l9XaZ4eW/fX9m7f600uPFbXPXn3/See4HAbuP5LceSCm4Wd+u2nHySZcfPw75TXMg6WGXOa8vX/fZLxef9Fo2WbMp5GTegOm6t5ZvXrA38VnPhR8G7g89V/z05IUjvgv2Pnw7+mLy9ju58S3irviy99Qb+rvPtfOa47v5aDPyGxpFopwdEoEqN3HCqt9PuvzkM8n7lx/WnBz+mV9/99lxRy+3iLAP2KV4s7Lx3XkRz3pppgaeHDAt5IWvg87klLSRJdAvXlEWQwPzALJx0pJVT7kv+2TVqTcB5HtLQs9kevlufspj/mdRR+LO5W48n5RcXg8UcTJiZNCe8/BMoz8O0G695jY74JWP5q88fKUWboDlGJVGcf6KA0+7q5+aEtp3yvLY49cboAE0fMZmlHHfu0Aif4PfSKlte+UH3ydcZn4RefCz2P09FbPHzQr1PZY46gsfh499Fu5JG/iB9o254XE3yod8FjD0U7+ZG67afaB59Vv/rTcKIo7dXr4r+cdfbgyYonzp
+m9BdKQ0TF8QOmDRvy43MgzmVIEHjvw05i3RXlqs42W/zyX4usyf57H4/+sQT7otnrr66fO/th1x+dPfd8Uno1oFuX34evGXGqqNPKuZO9t/zReQBe/dvlm48smzb2SddZnwa8ptuX+JDLrNfW7bus3VXEHUmadYHn8ruB4tctuHnfUl9vH6e7rc7/Gzhs5Pmv/lzXMSl3AWbDocdvnokq8Jvzzm/g3d+WHv64Qnff+K7rlTPkRNDjoj+Qy5EdqTl63Y97fTV6M99f9pyZeRXoX3c50cevYYoA7NDRnQip+z5r3wembjwMeefH1UsH/6ZbufttEZa0UVjSGChSChwnFTdMGnpyifcln4Sd+7NJRv7TV0Scjprks+mZzx/XrQr0f/A7WW/7ruSUwxDtzCqHLL79FPuc4Z8HrR46+2xn/g89e53gfuuVOKmUCARaZjss+3CU67LH1Jo7d9fvvVmVg39UD2aDeDYODkPJbRaJJytLGfX6l/5RvOYYoGrz34Xv3093Ra//FNs4LH0UV8GDpzu8+OW289MWf7m/IiVfxSM+tJ3+Cfq2esvOHyofuW7gJCjd17+Vj1omvbbNdeGf+w3/rvQfamN7/4U1c9rftzFtF3plYM/Ur72lc+5jHIAidwxZPvpfk4/vbtku2vA4ccUi+b8ckm978ajLj84q7Z6aLc87fzd5yE7YAjPus1xVW2f4nfgaecZi7acW7zt/DOKmZ+G7A44nPyI06zxC9d+GHvmSc9l03w2h5xKH/Ch95tL1y36LbmPB1zC5qhzOX085o+fHfdF9LFnXX9U/BwRduT6kPdmvDY7dOn+5N4TZnwSuO1GefvhG6ln4tNrWk1sJEEGa1VtPvSMxxyHT4OmRp5w/CLiWc9FYUduXc6v23c58Up+7ZYbuXZTFzhO13wUunf45wEDpi6Mu3DrRkX9bxev38zMb+UEIy9BOZJrGr2WRj/pvsQ98PfnZsf1m7Io7FTaVL/Nz3ot+Tz2
+4gtfhwz2+HHzmWs408yeeBiy4+jTk+YO+MT/o8hTQz8JfMp5rv/+mzcqGw5dvnU9Pb9SlCOP3howWfWI05JxX2h/z6y4Ulix70rCjewStqceygB/yoBk45hyWVOb20++j0+c8ZSX9zNTlL0nzHZdHLf+av5r3wc/4fLTyC+Dn3SdO0Xzy8YbhaM/WDTmw4VzVx8bMnXRK1/7xJxJf3tW0JPOC4d/FNRn4mz3OZHn8/TTlq59csIP05SrYk+lj5i26K1PFl9Op0gOBh938MpA5zn9JmmefV/3uOuc2auOxJ5NBX6Dpirt3/Pu4zxj3srDui3nB7rOtJuyfPA032ed5/nsva3cdvGZd778MmDzmvM5fVxm2U1dNvQjv8ff/emb4F0rzmQMnDL/3cWrFu+41dfpx090cdtulg5/b6mdx/KxH/k99da3H6k3/HopZ9QH8/t7zHn++7DHJv4wZ9Wh324Xjf9o1gfzNMkFNWCBiG/NnBy672wft5lPuC/q8772UcWiQZMWRh+7rfl1/xjXz5eu2hd2+PZT73759qzgo4Xtnkvjnp7wVeCBs6G/nRilmLo4LKbeyNHzOkQ5p77lM93KJ11m9UMyrZhn7zFn1ZnUr0N3POU8c/jH/v0QeifP+e1KEmwXjFlvltYeOt/fc+ajSJ+maB53+nmAYtHK45krD198QTF9UdDKKknefCVt+HuLn3x7xjvf6f4oa/XfuHeE0/vLYtY1kjGacM8OINmiJKnFbFl7+PSkn0PemRH07szAyQsj1h67llLTrtt4xGNBmNPsoKmLo9ecvH42p/xrVdRXyvDYgxc/XBL+XcDak5mV/ttPKeZGus4OnzYvNG7vxcIWYfWBq1MWhH6tjt50LuHT5ZHzfWNS8ipwQ6TB1zOKv9OtmfJz7FTVGvf5gZF7T18rbZgRvN51VpjTrKDPVLEHr2efS62Y6b/OfU6w65zgz33WHkuv/OX49clzNIGbDl4vbp0Xvt1zfojz
+rMAPl67aeSn994T8aYtDflq5a8Xx+KnzAv1+3X27rM077sCk2WHuPwZMXxi+/uSdG2Vti1bscJ8bPGFm0PtLo367kXk+p9zzJ+3kWaqkgmoLaAKNyMin0wq+C/gFzXhjpt/bM/2+DV57Ib9s5f6j781YEr792C8nbnjMVP0cszWp3uiz8XfFDE3ckQu/Hr88ZebP4Zu2NZk5pJNms1BnsIDLeC0ImbI09r0lMR8uDj98u2DrhbT3l0Q5zwp2nxO4MGpzankDzZLSbBl/O6doZuivE+cEvPtjgPOs0JlBO24U67efvTp9zvKw9XvqJfliVikyX48fg5ZFbsutN687cHLq94tjth9EUCfWTcMGViApIRZMgrmWMxe2mDNqDRnVrQUNxnoT12w21ZjF3CZTZl17QTNXY5FqzJbC+rbiprayNnNhU3tRk6HKJFSapJwmLqMGf5qbTJKekxDKi1osBfWt5e1cYbOxokmvN9JYstls1HN8WbMpv96U38rnNrSVt7TXW7jKdjGn1pJR216qNyNWNVvkSr2YVdOeXtNc1GapE+RyvTmvtqmsRd/MiTVGKafBkFHXWtwqNPBydTuX19Ce22IoauPyatvKGw2NZqnGIBU0mPLq2kua0QWhnpPKDUJWvTG11ljcwiEylRq42N9Ofr4kML2sDjkigASzqDMLJS2mnLq2pJrm5JqWojZ9nWgob2/Nq28s05sq2tGGlpJmY61FKG4y5da2Qwjl+LCuuay5xcBzAg2WiwbcziznNJjyW7jsBkN2bXuVQaizyIX4s86YW2+oNvB6M86mIV+zxaQ3myrbTTn1bRB7dp2psk1qssgV7W15Nc3lTSY9L9SbhII6c161ubzZ3GKRq5rbC6ubERFAuBlp7RwQoL+QAklmk8yB79L0Dc1kIcsB4BY2tC2jq3AaJlGk3yhlU10wL+s7TVXQ00YoZcYntIeDzuGpKvqhWutPGeNDGojg2W/tso10NApB95IkNo+D
+k+kudF+RBkBxOxS6F21uY+MmIPr0vGUBHswoiyggfmaECIF+F7eN7TFHhTSUzy7H+dQRehA/UkY6Gfk15RKsqqT8vBlK36C12ysaIXkigRydg5bDQ9EJaLaRHphlNNPUDOsdSYlqhgRRm7WzZpp7EkwQFDWNnrPPcfRjxewHqFEkVg8TIOsvtZDmZNAiC82S0lV4h6ipj1QtmkcTEWZUjo7QTJ5V5h13BKMRaK6OGkPtYeMBDEiZ5rghZ0gPnwNiJCREx4nZktMF5Ox/ln3ifkh+rd+y+WVWK0GGGmhGjU2sADJIm6aocSlOtsrUWtAfnEZDY2xQAkkYoLKw86kmlpPRTag6yu9wNhWqlkb66Qzk70QS0WCWiRN/o+lPnnUKnxCdo17QPVBwQNfSldR9Mj5RqGyqu5WRXVLb2m4ULLwFlsGxYVMB7aUr2E2pHhqNRYVE8lmlrCrqAhMXxEsqB59KU+gkXustrQVtYViwPlF1rG/URBCTzq9YzVQ5Xugu/oL4wX/papqYgWAhXqgXtYzpp4kmwwVERyBHEsKLAfn/f/3/+kuW/z95CcDpstdZ8wAAAABJRU5ErkJggg==</ImageData>
+    </EmbeddedImage>
+    <EmbeddedImage Name="LogoEMD">
+      <MIMEType>image/png</MIMEType>
+      <ImageData>iVBORw0KGgoAAAANSUhEUgAAAFkAAABPCAIAAAAP5v5+AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAADo5SURBVHhetbsHdxtXtiWs//XWfGtmvulu25KYiZxzzgAzKSrnnCgqizmAyKlQqAIKOTCLyrbkdmhny1YkKWl2Eer33LPa4fXMu7oqFguoqnv33WeffQrgtnf/r9vbd+/W375Be/fm7bvNN2/fvN1c39zY2Nh893Z9c/PtG/zc3Hi9/vbt283NNxsbeBP7xo3Nt6/XX2y8efXm3frm2/VX6y83Ntdxic03b3A2e7X6xd/i7f9V7b8GizebG5ub65gw+2NjYx0/Nt+/ioltAYRt/QgaTkHHC2gbm3j7OvbrGLH9zRYC2Gy19+f8F7T/l1jUx4ql32CnVj/Ebt5sbP70009ffP3V1999+/jhoy8//+Lbr7958uSvTx7/9cmTzx8+eowDL16uvwQZXq1j4kBiA5TZfLe+8R6OOgIgF8u3X3AE+9jWf/2/b/8iFhgEu4h/b/UjbAPv3779+eWL777//uu/ffXx/QdLtfm7a3dK5XIoFimWyxRBEvFkCv8IOk3nKCo7MTUXDMXJVI6kC9nC/L0Hj9fuffLlVz88e7n5ch3IvnvxavPFi5dgzOvXr3EvbFnE8fsGewT3rA/p/77961hgKGj1MdXhePny5dOnTx9+/DHFZNKZTKlQpJMkQ9F5JktRVJwk8oUCyQJBMekcsMhlywmCJkkmkcgQySxBlnwBMpOdJ8hCobxcW1xbu/foi6++g5Q8e/b85YsX6+vruMWrV6+2MGdbHZf6kP5Iq78Z23961r+IRX0oLBG2QAEEX375ZaFQiMfjJJWKEolcPr+6vJKl0wUmG49Eq9VqJB6jM0zEF0kl6YAv7POGpibnfHORJJklkzmfLzExHUuQpVR6PpNbTGcrlYWVYnUhX6ktr915/ORT
+YIEJAI46Fmi46WeffYad92P6A62OAtr73/+x/SeweH+ZrYYRvHjxAih89913q6urd+7cKZfLlUqFJMk0k8nkc0yWKeQLpXyBodNlEISmwQsKbCGz3plANlOIhBJEIp1lKul0KZUqkKnilDd+azwYJ4sUU80Wa7lKtbq8ki7kM4UczsNdHj58+M0339TXAGMAKZ49e4ad9+P7vfa7qP0nsMC16q0+jufPn/309GmtWs3lckAhTdPgRZIgEkkCWFA0FQqGmBQ9X64Uc/lAMBiOxwrFUiFTzNC5cmE+GibTdNE3F8vnFwKBZDBE+iLUxasTvnCKSOdz1VpxYSEQj2YrBTKbSmfSBEGEwyGGYV68fIF1+feRAJr34/u9hvdj2Iiy+n794C/bb2OBE9CBPNtZb7A1AryAqGWFkE4TSRIzDIai+UIxEo3PzQWTKSqTY1JUKhGLFbLZeeBUKmUyaTpDUxTN0DkySYeD8dGR6alJP7BIxDOBADE6OjfhjfnCVCyVT+XKdKFMAdksEySjRI5KM0wySabT6VgsTlPpR48++fbb74DC69cb7Cj/WJgAuJ9//vnHH3/Ezr+ABe60AcOE1Pbqzcbz9dc/v3wJVH768adMNp+gMjRTTKULM3MhmilXF9ZIrHOQjMRJOpPKZEGUVDwezeUyVCqZTiXzaToWDgGvUCiSTjO+uVAoGItGkuihIBEOkUmyRFIlCGe2uETQxWCCTmSKsUw2lmHiBEiUiURiFJUOh+Jz3nA0Qj55/DmMGyKmnk1YJd9gofm1xi7jFpXq2/dHf9F+GwvWI26+xR3erL9993ITuCBZvFpZWkVAJGkAUUIijMRTxQrUrkSkmFCUCIYjBJlI0SSVTpEkkUlT4VCAwWqSOJwolsrzC4uYEvJIJIxXEVaZXK4GLMYmQrF4Lkpk42Q+SuZGZwKz4USqVJ6LEd45fzyBKCFHRycunB++NHQN58aiqS+//BYLvA56/KP1+KcN8/9le3/0
+F+23sHgD84z+dmP9HesCv3n6dOn27YWFlWSCKldWs/kVCP7i6kNofm3xNp0tRDBcikqmkT7jcQJZg8rmmGAwEAr6UyRRLhXisVgqRZfLkJgCzAV6tbIELMKhZCZdCkWZOX8qmmC8ASJBFeJ0PkTQt2bnQA06k02R1PT0rMlkVSp0GrVxoH/v5ITPOxv+/LMvMFTkF7Q/rh3/tLFY/FOQ0OBukMdhh5HEv/7xx9ryyuSsLxZLxqOEP0D6g5liaY0pLIWiKQBRWVjKFsGPGp3LQCYJ6EWKjMSidDqNFFMsFJcXF+E6sLalUgW8oJAtKkvhEBGPURPjSK7RSCwbjjKhCO0PkbOBRKa0MB2MeeMEkSvE4kQkHN2//6BSrjYZ7ehSierQwZORcGJsZHxhYeH58+fA4t9j5Ndm9NttG06rUwvb/+MScFEvcI/Nza++/z5bLgdjCX84FgolsN4zM7HhqzNjE2GSKtNMKZ0rpnP5WDKZTJOZYpbOZ3MVhA8dScSz+Vw2l4XviLEtnkymCoVSAskmkcoypTlvCME/OxMKh9kYCUUys7449NcLjOjcbCg+DWWgM4i7iYkptVqrkKsNeqvF7JTLNDqtNRIm5+b8MzMzX3zxBcYPODAFNIBST73vZ/LH2jacg5NhYOpXQXv/yrt3L549x6ufPPkr4jhBpwNwSwQVi5HxSOratWlfkApG0sEwFU9mYkkacKRgpTDLdBqMj1NUIBr1hUL5UqlQKoMICJtwOIIdhAnD5KgUQ6WyiTjlmwuHg0QwSNCZ+RhRiBE58CJG5pJMMVdbTpcrITJ19/6D8+cvKhQqndaoVun1OotErOzr3eudxQ0JJCmswqNHjzD4+opi2LA/v5zLH2ksFkARlumXBKu3jfXN77/7AbEajifJTI7M5OMEDUr7vdGZ2QhTWCBS+QSZhXYGwolsoTo54wtFE8E4MR0KklkmnkoFIBAMA7uJ6EmSFOBAjEAsMplslimGQwn0UDCB
+5BoKJkPh9NRMPBzLROKZ8uKdXHU5RmXnkEIKpZXbayeOnWxqapZI5GqlHpIh4Ev7+/Z5Z4OBQDAMMINBZNy6EwM7sLTY+Vd4gR91OFFKs9X0Vn7CFXH84f1HmAmdKyKDxlMZZFCGqRCx9NLyvUyh7AvFoJqhaNLrj6WzZWynZiNwjmPeuWQ2W55fLFRruVIlkyvAHGSzRYrKsEkxHAWxY1EoRSoUjIMdM9NBmipALK5cm4EikXSJzJSofNUXJUMpejYap+jMgQOH+HyBXK6ymB1qlaGlibt78BCTKfn9Ab/f7/V6A3ApBAEHDCBACijIfxoL/AcI9V+2nipsvtp4tc4+R3n79dffpNPZNDI8FrNYZvJFOlNkmBLyWTRGBiOJsYmZQDB2c2RyZHQ6kcxkmLI/kAgn6FShHExCRuZLC8v5yjzKCiJF50uVxeU1XDAQCEciiXAkEY0mc7kyNGZmJjA9hRmRk1PwEGmQLJmtRah8hGJQps1Fo4l44sTxk2ol9EKr1Zg1ahOHI9p/4Eg8QUaj8Vg0Fo3G4vFEMBgiiCRQ2LLF//kYef9zqwGLV+uvnq+//Pnlz19+99Wdew+xnsFgFHmUJOlcvhgKx2e9gfHJGWxjcWpq2odCMxRO+HzhcnkBACE7+MKxMM3cmvXH0/kAQqhcSTG5ENJPmq7ML5CpDExqPEH5/OEIqJFI4VIXLl4en5iJhKjrLC/IMFEY9xFTmFe2EE1RUZLIMczewT3cNoFcopHL9TKplseXHDp8JJqITU3PzHl9JVaSMjSdASIPHjyqSyc8x/uJ/bH2H1gAQ0TYKzj29dc/vfh5fmVx5fbdUqlGJFFS5TJMAfKIcePWmEA2VyaSaQBBp/PF0jzsVSyewgwLhSqUJZLO1NbuVFZW6WIJ2SJGkv5IKMWgPINBZxIEfEeJorMTk7OBYBRbdFwzHoVVraTStZlgKp6pxdLFJLCg0r5IKJfN9vf2tzS1K+U6Pk8mlWgaGtt2
+79lPpWmfPwAulUoleFnkIYbJQo+++grC8QbBws7r760+zd9o/8ALoInQAMO++f7HLC5frlWqC0wWRSQmVSVQR0QSSPVJkqboXKFYw8RgI4FCMIT1oNABDauyxWJxeSnBZJI5RHQhxaSTNElmUrFkAsUKky0CVqAwPeMDuNhBHxubPnL41MmTF2d9xHQglcwtTAYTk4GoP04ghZEJor+nTySQyqVaoUCpUZtlcs2p02eDmH0kms+XvHCmfohoBCEDhV5eXsVUYDgAAVSj3t5P8tfbP2Cx+ebtsxevX21sPvn8y+rSKpMrZZh8vlCGLUhRaX8gDHXIFypAB/QOhhIIiq0VRk1dAE2QbAKBKEEzAZJMZDMR1CG5TCJNpfNZOpsuzZdRthdLtfmFlXQmj+WMxpL1DkyPHj3Z1NAmEMjbeYopHxGlyxMBYjacjKTSZDoX9Pn1Gh23jS8Vq0EKAV8uV2hPnjozNT0dCIagxJFIHOxAQtmCpog8de/eg7rdqCeUP4jF+zdtxcjb9Y3Nr779oTK/XFlcXbl9L5srFIpVMpXGSiaIFMYNIMqVWr5QhUyAERSdBwTgCOBgU2exNheKJWCwFhbT5RK0sTBfjZPwC4lsKUdQZKWyuLC4ioiDcECMoBqxOAmxEInlba08oVC2o5FzZvgWWViajaZDyRz0JhBNzk7PAAuFVK2U68UilUSsVqr0l4avjE9OghpIJYEA3FoULJmengEo2Wwe2rGVIv8lLNAAxM/PXty5/0lt8e6dB3/NF6uQfWg1nWawktFYgkimKtX5bK6Yy1eQX4AC1BSqUSovRKKAqcQ+s8sUInQuDqZk8gj4Ym2RKZRqi8sUk43GkWqLdS4ACFAD0QFSnDl7sam5XSqVa7QGiVxrcHRPhVJXJ/xDN6bowsJsIDY+Ot7e0sbniIx6u1plEgrkao0RJa+PzacBQIDQABZIIkglOALHB0e3unr75cuXyCmAo24RfrvVsUB/Ly1Pnz5b
+Wr1fW3i4vPYp5kbRTKFYRiAkCHJL/0lETT3I8RJ4gWDB/Le0IwumECwWRSI7D7uULi5mSkupbHnWF00jwS6tIVqqtUWoJkgBOgARwFGbXx7Ytbe9nS+VymRylVSpFyqNMxEKqWTMG0/lFoJRevTmiFgg4nNFyCNIIlyuRCpTT03PTkxNTiFOpmf9/tCW42XregwOvhZhArzhvupw1OOlPsdfa/+ABXjx5MlX9x5+sbj8YPn2k1yhVixWV2/fQ4THUUEkKUwec0DWADSYxuTUHA4iiCAideHEPHFGLF0lMrV0YSVXXUvQRX8olS3Mo5xlchVcEG/+9xhBB5q9fYPtHEFraxuXxxeIlRqLZ8QbHvcnwmRxJkiibL157YZEJJZJlGqlUcBXiIRKoUg+OTUzNTPtnfNBNUOhsNfrI8kUsJid9SKnFIvlXC6POqWOBdrvY/Hm3es379ZZt/n23Q9PX6ysPSzWVphirbiwms5XCDA7V0kls7FgMhKIYnTRUCISISLBRCJCwEcn4xQyRCZTSiZzNF3KMtVUtposLLLPb9O1fHE1kMwSleUwU54OJuGtfJFkLJmhmAIYFiUoP5sH4m5PZ1Nzq0DIzpfLE+mNNti2a9cngihYvfFgkLw+NsoVCUUShUiiEohUoIZabbh+7UbQF4hGIBW+aCwMu0WSVJYpwOYjqxFEIk1nPn70BFggobD1NisZgOMf4uCXbdvmu5cbb9frH8f89Yvv1u59Wlu6W6wtza/dy1XmWWlLULXyQiwIA0AnwkQqQc9MI9BjWToXCkTCwTiTLvp90Wy2WiqtZpkama0RhUWKqiYTUNOFEFUMF+e9dCFVWJpffsiUFwNRMkJQ4RiYkQ+EowjsXYO7gYVYopBIVc0tHLPZHo2mAv5EPj8/Mx2ZnY0eP3eWI4awKsRSjRCkECphQG/dHCFiiRjSbgIWI5jL5UANvy8MREAQhsmAGtXqwtOffgIW9afnv4PF23cAgv1Yb/Pt
+u7998/Tuw88ffPxlqba8cu/h4trdTL5YKFVCkCcU0tA81KqRBEa/UF2kk+lIKEahcihWK+WFcnmpWFyMxzPRZB4ZkQIEAWpujvAlmHh5aTJGxdMwK/fz1eVceTFTqKCiS9LZbAGSlOnq7uULRFKZSqsztUE4ZKoIsAgkvN7o9BYWB44caWhtkSg1coWex5XxeDKNyjAyMhoMBOd8KPi9oXDg8vAVvc6kVGgtZvu1qzdQ/C3ML0XC8YcPP0Z59fo167t+Bwuk0c23gOLdsxcb3/3w/Pa9TysLdxZW7975+K/3P30STSamZmaD/gBWIAEaBsNBf5B9AIvcksoEfKFUMs1k8rFokqJy0QhZyC+QmUowmYtEMsE5FAuMN0r7M6U5Mpct305nF1CJ5ytLTLGagA/NFqdmEe7B/QcOcbh8pFV0gVAqkShnvYj/yNDQzZERbyRCHzlxopXDEYplTc08Pl/O5Uo1GuOtkbGJiQkEyKx3YmxsRCAQ8bjoYqlEdfTIcdjPZDKFgS0vr7x69frvJXwdiF/BAvbs9Sabb77/8Xmldqdcu1tdvM/2lfuLd9by5RKRIlPJZBRlSSgEzwNcUAll6HQCFEGBnc6myK0nlzDpdC4Wo+ZCSYKpEYl8Iszks0veCDWMmMpW6NwiSZWBRYRIw5FFE1QqnZuc8c7Mzp07f7GxqRXyyRdIhCKZQqU7derizExoYsJ38+bM1FRo7779fKGIyxUigwCL1lbBrsH9yKRjE5OT02OBgLe7u1sgAApKiVilVOj7+3cjTBAyRCK1uLhc9+OsIv42LzbfbmzCnL1598NPr/PFlUxuqbb0iM4uFBfWivMLoP+de/eyGSYejpDxZAJVJJ2mwAGGoZJkNBytVWvVynwoGIO/QJYhiPRsIEHnlyiynIrma5W1IMFMx+hUeXkuiAREF+ZXkFihFzGCDsdJVMDQ/Bs3bzW3tCmUWgABOFrbeJNTvmiUGhmZiccZny+xb98BLpen
+UGhaWgVisYbDkezZdzgSi0/MTPsCc97ZKaUSIiKFiMCec9pF3V39DFPA8iGtlMvV+gcIW7z4HSyAGv6/+/a7F7WFB5FYrrLwYGHl4zhdTLCuALDeTqeYEnxUJBHxRwu5ImvAUCNHIljTOMpVio7HiFCIdRzIqUxhPhDN+GeJ6VuBc6evBuKZcLocy1bjySKZLEI7M4VaplDNl+ahPKjl4e7BdjZJKLWIEQ5XCDhOnDx/5sxwb+++3buP7dt3wu32IOOqVDoeVyoSqZqaeD39e2b8gZHJCUStzzcn4Avb24RymU4q0UJQLGZnqTifpnMwHfPzi19//Q38xZZ2/nv/51i8eb3OPs55/OTrFF0rVe8xhVU6u4h0EIMtqMAa5ZMJerGyTMYomkDFWkjEaTqVIhNxgn2MGUdpCMNLECAKhUUuz6+GErl4JOubiDZt58+FqSBdDJB5KlOrVNaylSWCzvvg3wnWi8CJBoLhGzdHdzY0NzS2frS9kcMVtbbxNVqL09mzb98xt3vX/v2nBvoG5FI5jyOUSjVSqW7HzvYDh0/MhcMj05Nz/rnTp0+KRVI+T4I6RSoGFtK+vj0pkiESSCjpVIr6/vsf/u47fxOLjU0U+2+eP39VqqwGQmkmt1qq3k9laoX5tdV7n1QWVpCeSoX5LFUgIqlStlIu1IBFMk5k03SpUMhnc+l0mtxyXChkC0VYklwkkaWIgsfSx29TTM7G/GSOKi2XK2vHjpzv2rXP3tHr7hkw2dx7Dx21Oz1Go9lud544cfLU6XPHT5weHZt0ubvkct2BA8euXBkZHh4dGrqllCn4EFehVCSEuMqRak6dvXh9bPzm9GQkHj1+/ISAD53Qs7wQa0CQ3t7dZDKNyKUpJhFPfvXV11u1CdrvYPHq1frrH58+e/DoMyJVpDPzDz752/Lax7kqQEHNXklBHfL5arUKmYiEIwGfH/UpRaSIGJEkyGwmCwWlUgwcZIJIkyRKOJqmGYbMSThK
+Tqv8+qh/bC4OUpDhjKBFJFGrXb39B46f7d13uHvPfpur02Kxu+y2fbsHDh46cvTYiZ7efrvDbbG6Wlp5f/lLg0Si0WgsUqlCpYKzEPP4QoFQvH1n44kzZyMJYga1QILs7WVtK0JMJlezaUiqstnduXwxmUwjeyUJ+vPP/vb8+Yv3M/71xmIBagCL+w//Wq7eKZRuZ4srxdrt2ur9dC4HLJAzUXYuLy/DXUZC4RBqdVTbwUg8HCPiRMAXTMRJ3K9SXcwXavF4GnU9MksmyYjblW0t0pHJMOxGrrQSno3L+YpDx092Dez5885Wi6dXoNRZ3d0Ol8fpsO/48AOlUn1xaBgiKpbIu7r7dXoLjHZ//36brVMqUWvURuRLuVzLF0jbOcJzF69Me4NelHbpHLwZIFCp9WqNAXKj0ug7u/rCEfZpWyqZQVr9+OO/oiJ5P+Nfb9teb7wAFt98+32ltloo384VVrPFZSpbhV4kKXC+ACBi0IV43O/zhwJBwEHGE/EQhDROJJLhYBTCeWnoCkZ/6vTFXK4ajiRBS8SYQWFubhCiZCFyC7FkPjQTF7aI7J4usUIjVunztdUYlQ+jlkvRhVxOo1ZptHqtziCRIgowdYPb0yMSKfbvP+5290ECpBINyhC4b7FYLRAohoZvso+a58IknTUYrS2tXOiuXKEBIkhGu/ccYLLFcDiRZUpQ0LW1B6hH3s/419u2jTevkEq+/faHQmmR9YXF2+X5u7nSEpmtZgsFJsdQaZpAxUeS7APWSBRYpCAMRGoXCqpWjtPuCodiapWhqZljMrkScdRaiWAgBF4MdOxuaRJN+4jSyoNIInPr8ghnB+f4yXMiqUZtcKBmS2aroQQVgyOKJ9xut05vNBjNcoUK9ZlIrECXSFQHD57cvftwK4JLpJVJ9AI+cqdaqTRdvzUdCJMQhDiRFkI4Bahl5EABW3j5WyMTGGMwGMtlS8VCFTECXvzuIww2RvDjq6+/y2Qra3c/W1x5
+lMpUFm9/nEiXEiRZKpfoTJr9bhGJgicOXvi8c/FoNEczRw8dE/CEHldHiszYbR4U0f39+2Ccw1FkWWr8xniXo6epgX/i3NVouhSKU0OnLzX+qeHi0FWFyqg3uancApVfoPPVKW8wQVKejo6dDU3AAmZcpdbhakgoJpPzwIETnZ272lslPI5cJFBLJTqBAAyyT81G0Gf9iVNnLspkKkAA575V0SiBy6w3wD5JpHPIgCgg7997BOv5+3UqYgQ/ECPLqw/uP/pbOruYpCt0tkbl51PpDNJ/Osssr6zk8wCkANMFP0Al4UMTfd39DpvT4+oMBmImo11vsHZ3D2YyZYKki8X8qaMnWra3tDYLVHoHSvYokTl77Jy4RTQ2OtvUyLc5+jKFlUxxhcrXvMGYPxKzuVxcnsDuYLdbjksqEMp0euuePUcQJlyOVCLWyKV6bNvbEQyGqdlwOEajEHN6uut0gGQADnSrzRWDi4uTFAVPzEAv7t55CKv1T3PHL9u29Y2XsBjrGxuPP/2qtng/mSpDO7PFpThdqswvoDRLJAmoBniB1SaJZBq1VIryz8xZjFa302MxWc+fG4K3aWsX7Nl7GNoZhl3LZS6dO9/4QWNTA8fZNUAVa7Fk+sCuA20ftV44c6VhB6+r5wBTXA0SObq46IskokTK4emAUshkitY2DsozxD+wcDg79+492te376MPm0xGh9Fgb2sT8PjS5hbe3v1Hs4Xa8PVRoUQhl6vrdIBwIKEMX76eIKg5X4gkM/lcBcn1q7/Ba6Fm/z0sYNXfbGFx78GnyHzFyh1WO5lqrrJCpFIZJs1kmQjMdhR+FhV6KBpGBoneuHzVZrJazVaFTGmzucxmx86GlgMHj1+9OnbqzJlLwxecFlvrjla5VKu3uq3d/Z29g3qF7tyhU/0de8wGj0JhJTPz4VQpVVj0o4Sl6M7ePoFIfPDQ4Y+279i+oxFzU6r0Zovz0KGT585d4fPFZ86ct9tdQqGkrZ0n
+U6i5AvH49KxYqWpsaYfQbgUI61m1OuPC4ko6w36XJ8uKRa2Qr37y8ZOXL+t16m+1ba82X2/xYvPLb36sLNxdXPm4snAfvCjU1tKFUnlxgWIy4Vgsw2QBB4xmIhaLhYKnj59WKXQqhb65kaPVmNvbRC0tgqZGHo+nMBptTQ07BBz+7r7dXR29BpPD4upSqAxD54ZHr4/fujkrkejMlq44WUgXFgk4/VQWN+rs6Wtr5e3atQ8ZkSdEdW4QiGRtHAEclFptHBzYM3xxuK21XanU8PkipUqLAk4sU8jVGtAEaYXDlai05u2NbTdGJ2uLq8FQLJViisVqEiYwX/rxx6d/4NEvYuTdu9dvWFV5/PnfmGJtfuX+8u1PcsVVJr9Cl+ZTxXI8nY5COJPk/Px8iiT83qlUIuS0e+AdJCKdyeBpb5Vy22UtjcLmRuHQhVulXE0tU4EvUolMqWA/9Wtu5oglKpFI3dgiaBEoPtjZDrKwXznIV+DBY1HC5wsBwbZmgVHvMFlcLqTn85dOnD1/fujS8PDlofNDMpQafJlUKBcLZe2tPIlYwWkXQCCgmnKZkctRKVTWhlaR3t5J5cvQYyqNoGZKxXIsHrt9+zYS6vPnv/+Nv20b795uvHuHvPr90+cLy3chfJFYZmHpEUlVUvlSGEKZzfkjkenZ2Vq1OjszNTs9MTc93gmPZOsBBMeOnBPyVXKpQaUwR0IpiiwSUUqr0Fy6OOzz+s+dHTp+7MzMjH9mJnjlyuicPz46E9IYnTK1ccoLr5YOwaQkqVmvH5WIXmPt7dmt1VsuXb05F4qgT816JyenpqdmzHqr1WhvaWyTiOR8rgglKYKIxxNJ5UoBXyURG3h8ladnb6a0lGSKyXShXF0qFKqrK7dLpdInn3yCYuTFixe/n1ORdtlv37x79/3TZ1CjQnmpUlsrlFbTzHy2XC0sLaTyuTj7rU0mDO/Cfs5HTU+My6UqmUyHAvny8C0e+Kk0etx9KTKHNLE0
+v6xTasVCicPuOnzoWHfXgNPZCV7ATY9N+LwhUq138MSqYJSc9UF/4uXK/OkzFxqb2tyObqvZ09m968yFS/5I3BsMj4xPjI6OBfxBi8nmnfH1dvc3NbSickfBKpYqEEGtXD4iTiGzcHnKm+NzdGGBzJYTdP7u/Y/Xbj8oFsorqyuPHz9+9uzZH3oOvr6J0ozVzucvXi0ur2VzlcXFu5XK7WSymKQzJJMOxaM0k4HjiiXiCJNSoXjh3Hm5VC2T6vbtPXr82DmFnC2KsB+P0QF/PBmn7GabyWjRqnU93QNGg81gtNnsnUqlsaVNNHxzytU5+GFD+7Vbk9dvTU5MzUHw3Z5uo8F67fIInyfjCWRHT50dm/ZeHRlDjJw7d/7aletGveXcmQv9vYPNTe18voQvlIhkyjaeENkGWMilJo3O2cKVHjxxIZEupPNVOlNABslmC6gbv/zyS8RI/bPV327wnetv3rF/qbC5+ebxk89QTVSrt2u1O9XqGlMoQi0jBOrrBBwXk8tOT0+jPDt9+oxIKPvLn3bcuD5ms7rkMo1eZzl96gKZzKTpvN8b7HJ37t93YKBvsFSoDl28OjY2TSQziUTGYus8eeFaz8BBjcFud/dY7B1mq1OrM/3bf/vvDmdHT9dus9EpFCmMNpfF2aHUGXhCEY8rgPSAhrhFX88gnyduamnf2dzW2MoRypRCmUIk0sikJr3R08aXO7t3gxf5ylK+WKtVl0ul6pMnj+tPff/+LOe3GptT372r17PvXr1cr+JCuUqtulrIL6Qz6UDI39XbdfT40aHhS9dv3hgZHU9R9ODgXrC0tYXr94VlUhXGB1Mdj5EwoIl4avTmmIgn2rt7n0KmOn/uktnkcLq63O5eu62zuVWot3UqtbYWrlipMctUeo3OpNOZP/xoJ+r0U8cv7N97lMOTWJ2d+4+cUOtNH2zf0dzcCpu/b+8ht7u7t29QJFEgLkw2p0pv2t7UyhPLVCqLgKfhCzUfNfKM
+ju7y0p3Hn3+zuvZgbe1huVT9/vvvMC/wYmPrS4/1af5a21b/QivgePv2zcbG5r07D1MkynCSSDCRSEipkra0Ne1o2LGjYWdbe7tMrnR39oCc/+tPH5oM1lAwuv2jRiSL7q5+2H4AEY0QU+MzDR81DA8NHzl0tL9v95nTF48cPbV37xEoy4WhG0PXJ66PzJ4fvrF735GBPQeNZvv2HU379h++fOXGgb3HDHp7O1fEEUj/9FHD9qaWPfsPnDl9TqVQX758XW+0NrdwGprbzA53plBOMfnBg4c/bG4ViTVSsYEvVBttXdfGvPnaytLaw0ptuVpdXqgt/vTTU9Ch/pHq7/Pi71igs2/98ouvSsUFJlMCFqOjN8wWbW9fZ2tbS3NrC48v4IlEHzY0q3Smm7cmFDK1Vm3gcoS93bv27D6Qz5WpFAM4rl6+rlNp49E4QzMAK0mgWkvO+SKTk/6pmdDVUe/kbHR8JugPE4EIcfb8MIcDkyWHvor4ig8/aNrRCDTkIoXG09sfjicCgeChA4fhJlGe8ASSdr4IWACIeCp99vLVBi5PrjDt3M7fu+9kcf5OprzMlJdK86uZbKmQr925c//FC/abSkDhd4FA28Z+SMS+r/7Wtz/88B3oMD0zGY6EuhAeXb2nT1/46MNGgRBVIAyyYGdD++Ejp2/ffTAXCFntTrXWYLM5Dx8+Nl9bDAUjyWQK9bscKWN0empybs4b9s6GpqcDsSjlnQ2HQsnJKf/w8M2jx8709u/RG21ihJhQ2soRfLC9sb2Z17SjBcUeTVFmo/HY0aOwuyPXRydGpkQisUyukMnUO3a2Od19E1N+Xyi299BhrkQES6bX25lshaRySSpXri3XFlZL5YVisfbzzy/qX78AEHVqbM2RbZgz3DY7c/YDQ9Qq7D6w+I+aBS88e/Y0noCbGJueHTWbnFevjtdqa83NAg5Him1rq6ipiX95eIRMZ1PZ7JUbNwUSqVgqc7o9N27cUqs1R48e
+n/MGpWLtnDc6OeGjUnkkF78vNjE2d+bUpWtXx5z2DrgvPlfc2sZvaGzbid7MgXBYHB1BX+TmtRF+Ozcc8Dts5qOHDk6OT45cH7s2fJPP53MwAomSx5XuHjw2MeG/MTKp0Rtb+ZzGlrbpaX+GKcbiqUKxmsuV699+qM0vb31Tif17G6DA7v1dPll42L9nYyHYYJ/2vkb2wP7/icXGxvqzZz+XSvlYLNzUzLl+YyIUSoAUXK6EwxG3tQt3NrRduzYWiKDaSh86dlyu0qCm+vCjHVAULpf9rFyrgWU+cOXyrc6Ofninw4dOwqS3NPNaW/jQnIadrehcjkgiVRlN9q6eXUOXb0zM+BKw+nQ+nWJOnzwtFPA7O909XZ0zU9NBf6S7o9/l8pw8daa5CbHKP3LkLJ0uXhy+0cLhGe22q9dvFYo11IwkTHdpPl+oghSrt+/94k/7/nnD5LFh/66NNZvgBbD4x4Y6//mLF9ksc+vWTbFEMTk1N+sNyuQalKFiiRLodHUPUHQukkjGSPLi5SvN7TjSe+bseR6MgUyh1eq5XEFjQ1tTYxunXcjnST74y06xSAEuIKH09+0Z3LX/4oUr+/cdGRmdQv6+cm3kxOkLnu7+7v7doIzN4jp04JBMJuW0tyrksr179u7fewheZmpqNpmkVUrdBx80SCTqq9dGRydmL16+NjI1PTHtvX5j7MTJcydPnb84dPXc+eEzZ4euXR8NBKORaGJmZnbrY/cMTacXFhbX1u58+umnn332OfshK0uHfwDsPRZbosHSg/369wYi5bnZZNm+vREjvjUyiTVsbGpvaeXtbGjtH9ibyRTZL+Tk8mcuXGxoad23/+CJk6fb27mHDx/t7u4RCCQ93YM93bsAhFAgM+itmP+loWsw4wP9e3Hc7epGV2uMno7ejq7+XXsODu47fODoyXNnL126eOXgwUNXr17p6upobm5UKJR4/80b47MzgUiYuHF9VLK1HlgVgUQuU2klCg3c
+Fqp7LBW2fIFUJFZgh8sTt7Tyd+5s5vOFcvh0gUij0alUGpVa6/F0dnZ29/T29e8aOHPu7PjE+OycNxKLPv70yba/f3Ma8QE83m28ZhH58Yef9+45dODg0aFLV0bHJnc2NMvkKhTL7Rz+mbMXIjEiliQTFH35+g2RVGZ3uDwdXWfPnicIMhAIqdU6AV9sszqtFofV4kRFv2N7IypKjB3m0mZ1azUmq8Wl11tBMYerS67SG8wOiVKr11ugCBi0QAh94HI4SOIcu80NTonFymNHT0fCiYmJWblCDd8pkCjEcrXaYBFBRPgSk9nhcHZqtCaL1YVutbmBtdXqtNudvb39MMFOpxv7kHmn06PTGkxmixkljtmMuxpMpjYOhyBJYIFo+Y/27OdXG+vvPv/sbyaDMxSK4Y0IgbZ2rkAoFookjU0tF4eGk2RqfHoGVfH+w0dUWh2AwEs3b44wTC4WS2AyYrEU8Pf09CFkFApUIpB6444dO1ta2qAaiJ32NkFTUzsW84OPGlGgq7QmsUJjd3R09+w6dOTIidMnhoYvXr1+5eKloQsXL+v0lrY20fjY7My0j8PhSWXydg7qMokNkzc6DCYHQthm9+B0uUILv48OJZKi/jPazCY70NTrzDBBWBinowMdzhB22eFkn7C6PZ29fQMisTRFpdkYefz4U6/Xt3//ob7ewa7OAavFI5fp3c7+cmWho7Mb8xdLZJhtQ2PzzoYmHEHinPUH6FwO2mm22eVKVUtru9c7FwyGBwYGMVwwEx0K0tjYLJFIAQTEz2Kx7RrY0+HpQ7CcPHHuKhvsvstXb0XiJLQzRiKoC3O+4OT09MTU+M2RG+jXbtw4f2GYVW6ObPeug3a7y+3xjE6MavW6hpY2hdqg0Fgttg6QAl2lNoBoPT2DYATgwK8gGuZstbrAR2ChURt1WhPQYcXLbNcbzVqd0YQqwOURCCWxOLFtYmK8vb2tra29pbm9YWcLdA4F0v/3b3/p72Ufq6vU
+muaWNr5A1NDY0tTcun1HA6CZm/PTTDbFZIevXZfIFbiWVmdQKtUDA7vBhQMHDg0NDV+7dmN4+MrcXMDnC259nypIUelIJI4SZnLCCwmAW7t2fQRea3DPgb7Bfbv2HXK5u212t9VmV6qVVrsFeHL5/F2D+5QqPadNopTpJ8Zn5hcWjhw7jAIFvACbZCqTzmDD+oMUELWOzj6zxWkw2QCHQgmBMBh0Fmi2UW/Ta82YGsJTqzWxKmawYkejBRZ2s8UhEEopOrtt+OxBpYR3+MAhqxkxbPR0dlitNn67vMd5+OLFKzwBny8Qc7hioUAhlWgcVs/e3fs7PR2FfInJFI4fO23QW4A6ShIQ+P69R4U80nu2Os9+W/jqtVvhMDk+Pnfo8Mnde/YN7t4zsGsQlRiPL8a9sW1r54PMg7sP7Gxo+f//1wc6vVkoksFoDwzuPXP2UnMzTyBQuN39SqWJ0y7Waa12WwcKX2hKSwsHkYjI5/GEBqXBbrCb9Ba9waIxmFGqGCx2MEIokNrMTpfZZUSsaM16lcFhc9utLoVcU2cHtogdixnlUieMbzSR2nZz6Fhb40duh1utNBpNVoPRYNAbxHylqFW/Y3tTe3u7WMyai7ZWEfiiURknJ2daW1p97Bf9k2dOXcBFeVwRCIXyqbOjR63UyxUqpFOxRM7lSxoaOFsOTdDU3M4TCk6eOr31jFvC5YkAR2NTm1Sm6u4ZACg4gn2FUosc0dLCFYmUYhH7MbJYrFUoTLBYWAy4kpZmLpZXLGKfEhsMRuQICUekEMjFAkiSRa7WqXRGFHXABZBh2hKhTCpSGLQmlUKLbtCYzDoLoNEo9cjQEA5sQQ0OVxiOJ7edPbJ351/+LBfjFYtSpVFrlSoMSab58H+2cpo5HKhdY5uQJ+W0ibd/1ALu1RaWDFbz3r0HKqX582eHUI9oVHq5TP3Rhw1trTwYyqamliYMmSdsauY2N/Obmnjsp8EcQXNLS2NzM5YdClfHAiMA
+Ruj1bxvIFRqQFqYGBGG/tSjVGo0uk8kjlxtRs0HFwHBkaKyn3YbjFrBYIBTJ+TKVSGXSW5Uo8i12nclqtrsgnGqlTqnSwaGr1HqEA3BRoktVFp1FI1FrpBqz2eFydrpdXZ1dfRhJBFjcHDrPaWh1WDrt1i61RgcsbDaTVCzz2Pv0UrWwhdPe0M5pQlkm//OfG7p7B5fu3r01MyGSykul+Rs3x7CYPb2DGo0RWuVwdng8vZAP5CrIbWdXv83WqdPZlEoD5NpkNiN7qTWgHUDXWaxOzLl/YA8gwA6C1mpz4SWsEphis3dYzB5gYbf3qNU2i9ltBi5Gh8WMVO3U6UxghE5nQMIyq00WtUWnNuJcZ0e3zdWBLRQEWFgdHjZ9290yhUYmVaGwNqpNepnOqjK5zS5IBqIbWHR19WFULBaXTp4QtQt7O/cgiUICrQ4MS6eQymxGt0NrdmiNSqG86aPW5gbuzp3t3X27/Yn4ueuXUS/q9ewksYAmkxM7KpURHTM3mm2Qb6vN4fb0dHbuksl0mBiwV6rURpOJfYRlskE1ECnYdnX3gxSAAx0KAlCkMiXYocOAVSaxWC0SaQQClUyqk0m1SoUeWKD3dPcbDCwcSPlGJXTCDL2QydVgBKihNVpMJptRb5WpdWKtTm9zKrWQUi0Ka4Pa6NDZrEr2LNacmB29Pbtc7i6wEuls29jlIWEbd0//wU7PLpgCm8OsVElkYplV77Fh8bQGMxKQzmbQ2cH2No7ww6amNjGcjrqhkduOIoUr1ertWiy+2tTWLsY+ly+WymXAAgEFXighQ0YYoQ6d3uB0uwEEBg0UsIPxYQdBgckDCywsxgSi4US12gTh1Ons4AXg0Glt0E4ECMyC0WDr6Rkwm61I0hZUyiaHy+h02T0GoxUBAiCkSo1aredxhEotRu0Eb5Q6o0SmkoihGXqT1mxUGdTsszgzYqTD02N3eKBiLC/Gr12QC/mDfXuc9m7YKovdDEdihjKrOiwG
+i9VkAeQ6tbnD3WezdiDw2lGAKeRGK1R8QGd0KjUWvcmlMdj57MegNqOlw4hLWCwKpQZJ3uHoRgdxgL0dgu3xwBFCKRAOYAoGgYgANIADuICoEqlya8coEMgBot3ebTC4jEY39tUqiL/TbvOYjHa1ijXURiOsI4sFeAF1xOk6sxWQiuUqqVQlkyiFEnm7ECZOb7I4gBQExWSyIxUY9Ga91oQYQfljMtowEtx3LhDe5pu4vPMv/6O3qw95GOKv1WMRdF2eXV22g0qFxmSx6PQmhYL9Ux61yqhVmyRimUwiFYoUar3TZIODtsiU5na+Amxp4ynM9h4NaIox251yhQ5zQNToDcj/bk9Hh95otNhcGDRIARYABeyDESKJAkdACoQJOIKXzGYXuCASqWUykKvHaHBKxGqNmjXv4AUyAiwcYgQUsmjNuzoGrAAIl7U6MHOJSgNnhXlCVmQKNTgCbXK4OrW4o1KDccthlg2Wrb9b06Oq9nT0QNFnfaFtEzfPi3ktsAxIhxr2ywtivd5k0ruUErtUioA0sB9GSJRIqEqFQY0wQ8JBkaMy2Fy9epNTpbNiq9SYpQo9tlqDA7e02u2IZAwOEgERUSr1yNaezi6URjKZGkYQs8X6i8UKuVyDX3GQz5cACOACLBAmMrnWZuvQ6+0arVUuN2i1FqlMq1DqbTDUegumqkJhJpGjy4Qyt9Vt1FtQjOiMVo3ejM7qBfsg3qBRQjzYmkjDfhAnFYpR0BkNJgS1WafBuioAB4S/pZXLYjE3c4vHbe7u7BDwRDqtWSrRgtVGo1MsRXkHXDAZDVaArZrURnSHvUuPWDBaMVsoObYGpA0g7/JgH8beZLahTEKBBBOJlUIpBVGo+yidDtdXQr0ddk89yWEoMEVYBug8kh+wQLwAKSCCsxBNOIh9pEuVHlujw92Ja7Lc0ZlxCrIsnKNaq9XojDo9rKQV8Ol0FrUGi68Q8WU6uVMh0mvkOrlYgWIOwBmQSpQmk9YG
+cwFSsLCq9aitJ2fmtk2NXwUWe3cPajV6VNkatRlXhPgDOZlMCUuDvCWVKrb8pQ0xJhIqke23olqHdcbkpTIFSlUAIZMrJFIEkKK+vJg/OtiBubEcgTgig6iNbFLUmupeCDvoGBNAQWbBZfFmwAEvCHhxHQwUQQrJE8J4q3VQIbwH7wQQW7DaYDS0WBOjxQB5sXeZzW69wYr1EEkwda1cZFbLLXIJUq5Fp9HjEg6rW8CRQgFRkqBaAaYAl/10/uqNbcG5if/x3/8NWchudTjsncAC0MIOaRBsbLRpkb0AClCUSlSoahApiF6MFXWe2YKwN7GZ2IbqiGUK2IGkCPsAUWS54u7CO2EiWEOB3AZXyJbtLpFQBnuGiN2qlDS4ODpQwMyxxYn1RIN9qCw6mAQSsCpodSjVOsCB02EZcboBvtvM1qYudw9GjoWE0wFtpXIFsojV2CMVIqjZ0DbojHoECJKjyd3dOeBydWJV0IEFwL04fG1bYG7yz3/6n309fbDrBw8ch1mC1GMcWHNEBww/tNpigXQbEEEyKUjpRJi4XN0HDh7xdHRviWJ3/8Du3r5BcAEQYBp1K4V7YIVRXG3VV3DTrECCAnDQ9cljMh53N44ADug5TgGPAN/W3fU4BXOuo2OF8kFDnZ2ezj5cFpYRjJDLQDnEo0cJgwhPrTLz+UjgLhgTlUqP8SMNy6UWjQrvVINHDodLqdTKpGAatLQLTMTCYBi4GvLI5Ws3t8XDgb/8+U+wR2aU/QabxQKdZ783ZXPYtzy/ecvVgBEaFALQC5ezh01vZqfNDjXsR7GMNent273/wFGc2NTMQXbo6OzFfAANsmad85ik093JLoXZWU/sCDpIF+DAr6i4MCbgiFNweh0UdvFRk9tc2NEYbOhylVEq1yG/IEkjv5pNLpAUmRJnQVa1WoSwR693azQQZj3I4nT26jQupdxks7oBOjiO5ID5A0HAYQKmJju4CV1DCrty/da2SMDfsGPH/r0H
+MT5kLKhRb98u1CVKtUKvMwAIaJpOyz78wEtgR2/PHlBDLEaNroezhPPHAiJEsXZ8gRRBi/iCuYRA4HhP7y5ggR0MF8ECyrD3trr6egcxDgEfmqF1OjpghAENFrxOK2xxCnCEMUfHQJHcDRY38pRYghSGIaEwsSOcYcmQPlBNwF1KJDqdDnnUZbV2IQ3hHIXCKBEbUd1hkeA4hCIJsgnGYzDYFQpEqwULjPv29u6Crt8YmdgW8vk5re3dnb3wMDarB84Uyg+DYLai1NepVch8UhYL8EVl4HHFRgOqXatWYxEKURFgKeBeVDKZtr1dBBtiMDgcDpQednR2PVFesU8TDHWvCVFCRKADCEAAlkI4MRoELTDCG8ACOFTwAmfVo6y+Dy+n0TvkKpNCaVKrLTweiGrSa+1qpbmzsx+Fv0ZjFYthqx1SKd7A+mAzW7Y4VCqH1d7TP7AXyPb09nO4AtzCaHLI5TrckQ0QFHp2N5crGr56c1ssHGltau10d7scnZ3s0/cuuE+M1GQxYLnd7g4NCja4CAu4jWLGhgUxGhwSiVYkUkGr1HWtZS2A1cCa7D4tXIbOBDNXxwJsx7aeWViBtkBuPOAgtgACjABpAQoiBRQAajirjiNcBvgFGcLoLY4epcam0QMXjxYQqK16rcNq6lTKTJ2dA3AiGrUNKBj0nVIJMr0b73E6u+DftVq3Tu/ErS1WVt21yMq4tQMvdeKOWBXoFGoiDI+NkRSREAtFPV39GJnL2QULgATpdDttDgveCL5iEhim2WzT69knH6APqnuV0iARY1kxDayzWSFH7aSRyaApSqvVjZIckwHPdVhzm2vX4H7oMRYKDq+zoxfqgDDBINCxLOigBq6M8hRYwFMAPpAWqglMYZmxbhZXF6sXaqNYqtGiJlRvWWEZJJN9wIv3w6dCNbVah0ppVSgAhw0pHEd0Wo9KxfoRjMdowowAB+aEkt+59dm9GSsB86ZQaE6fu/i/AftvOgwNPdxU
+AAAAAElFTkSuQmCC</ImageData>
+    </EmbeddedImage>
+  </EmbeddedImages>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>0446ccd6-cd7b-4e18-9ae7-7589107a2103</rd:ReportID>
 </Report>

General/SaldosIniciales.aspx.vb

@@ -1697,7 +1697,7 @@ Partial Class General_SaldosIniciales
                     Dim SubProTemp As DataTable = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa)
                     CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                    For Each Row As DataRow In dt.Rows
+                    For Each Row As DataRow In dt.FiltraParametros("Cuenta <> '' ").Rows
                         NombreCuenta = Row("NombreCuenta").ToString
                         Cuenta = Row("Cuenta").ToString
 
@@ -1709,11 +1709,8 @@ Partial Class General_SaldosIniciales
                         Dim YaExiste As Boolean = False
                         Dim DataTemp As DataTable
 
-                        Dim SubP As String = Row("SubProyecto").ToString
+
-                        If SubP <> "" Then
+
-                            DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
-                            CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
-                        End If
                         Cuenta = Cuenta.Replace(" ", "")
                         If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then
                             If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -1729,6 +1726,17 @@ Partial Class General_SaldosIniciales
                             Exit For
                         End If
 
+                        Dim SubP As String = Row("SubProyecto").ToString
+                        If SubP <> "" OrElse SubP <> "-" Then
+                            DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
+                            CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
+                            If CveSubProyecto <= 0 Then
+                                Reporte.AppendLine($"'{SubP}' - no se encontró en los subproyectos </br>")
+                                TieneError = True
+                                Exit For
+                            End If
+                        End If
+
 
                         'If TipoCuenta.Contiene("A", "C", "E") Then
                         '    CargoAbono = False
@@ -1738,6 +1746,8 @@ Partial Class General_SaldosIniciales
                             If IdCuenta > 0 Then
                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 95, Concepto, Now.ToDate, -1, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
                                     TieneError = True
+                                    Reporte.Append(NombreCuenta)
+                                    NombreCuenta.GuardaLog
                                     Exit For
                                 End If
                             Else

Inventarios/EntregasPorRealizar.aspx

@@ -41,12 +41,12 @@
             <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
-                        <asp:Button ID="BtnAsignar" OnClick="BtnAsignar_Click" runat="server" Text="Asignar" class="btn btn-primary" ValidationGroup="Valida" />
+                        <asp:Button ID="BtnAsignar" OnClick="BtnAsignar_Click" runat="server" Text="Asignar" class="btn btn-primary" ValidationGroup="Valida" Visible="false" />
                         <a href="javascript:;" class="expand"></a>
                     </div>
                     <div class="titlefiltros  caption">
                         <div class="row">
-                            <div class="col-sm-2">PERSONAL QUE ENTREGA: </div>
+                            <div class="col-sm-2">Personal de Entrega:</div>
                             <div class="col-sm-4">
                                 <asp:DropDownList ID="DdlUsuario" DataTextField="Nombre" DataValueField="CveUsuario" runat="server" CssClass="form-control input-sm select2me" />
                             </div>
@@ -56,6 +56,31 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
+
+
+
+    <asp:UpdatePanel runat="server" ID="UpOpciones">
+        <ContentTemplate>
+            
+                    <div class="row">
+                        <div class="col-md-8">
+
+                        </div>
+
+                         <div class="col-md-2">
+                             <%--<asp:Button runat="server" CssClass="btn btn-primary"  ClientIDMode="Static" ID="LnkTest" OnClick="LnkTest_Click" Text="Text" />--%>
+                        </div>
+
+                         <div class="col-md-2">
+                             <asp:LinkButton runat="server" CssClass="btn btn-primary"  ID="LnkGenerarDocumentos" OnClick="LnkGenerarDocumentos_Click">Generar Documentos</asp:LinkButton>
+                        </div>
+
+                    </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:Panel runat="server" ID="portletTarea" class="portlet light smmallpadding bordered">
@@ -67,50 +92,170 @@
                     <div class="tools">
                         <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                     </div>
-                </div>
+                </div>                              
                 <div class="portlet-body rowpadding">
-                    <asp:GridView ID="GvPaqueteriasGuias" runat="server" AutoGenerateColumns="False"
-                        DataKeyNames="CvePaqueteriaGuia,Folio,SerieFolio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones,CveVenta,PedidoContrato,OrdenCompra,NombreComercial,TipoDocto,CorreoNotificacion,CveVendedor"
-                        EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
-                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
-                        data-sort="true"
-                        data-freezerows="1"
-                        GridLines="None">
-                        <Columns>
-                            <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="3%" HeaderStyle-Width="3%">
-                                <ItemTemplate>
-                                    &nbsp;<asp:CheckBox ID="ChkAsigna" runat="server" Checked="false" />
-                                </ItemTemplate>
-                            </asp:TemplateField>
-                            <asp:BoundField HeaderText="Cons" DataField="Num" HeaderStyle-Width="25px" ItemStyle-HorizontalAlign="Center" />
-                            <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
-                                <ItemTemplate>
-                                    &nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
-                                </ItemTemplate>
 
-                            </asp:TemplateField>
+
-                            <asp:BoundField HeaderText="Estatus" DataField="Estatus" HeaderStyle-Width="150px" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />
+                    <div class="row" runat="server" id="DVGvPaqueteriasGuias" >
-                            <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
+                        <div class="col-md-12">
-                                <ItemTemplate>
+
-                                    &nbsp;<asp:Literal ID="LblFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:dd/MM/yyyy}") %>'></asp:Literal>
+
-                                </ItemTemplate>
+                            <asp:GridView ID="GvPaqueteriasGuias" runat="server" AutoGenerateColumns="False"
-                            </asp:TemplateField>
+                                DataKeyNames="CvePaqueteriaGuia,Folio,SerieFolio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones,CveVenta,PedidoContrato,OrdenCompra,NombreComercial,TipoDocto,CorreoNotificacion,CveVendedor,Orden"
-                            <asp:TemplateField HeaderText="Cliente" HeaderStyle-HorizontalAlign="Left">
+                                EmptyDataText="No se encontraron registros" ToolTip="Listado de entregas"
-                                <ItemTemplate>
+                                CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
-                                    &nbsp;<asp:Literal ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
+                                data-sort="true"
-                                </ItemTemplate>
+                                data-freezerows="1"
-                            </asp:TemplateField>
+                                GridLines="None">
-                            <asp:TemplateField HeaderText="Contacto" HeaderStyle-HorizontalAlign="Left">
+                                <Columns>
-                                <ItemTemplate>
+                                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="3%" HeaderStyle-Width="3%">
-                                    &nbsp;<asp:Literal ID="LblContacto" runat="server" Text='<%# Eval("Contacto") %>'></asp:Literal>
+                                        <ItemTemplate>
-                                </ItemTemplate>
+                                            &nbsp;<asp:CheckBox ID="ChkAsigna" runat="server" Checked="false" />
-                            </asp:TemplateField>
+                                        </ItemTemplate>
-                        </Columns>
+                                    </asp:TemplateField>
-                    </asp:GridView>
+                                    <asp:BoundField HeaderText="Cons" DataField="Num" HeaderStyle-Width="25px" ItemStyle-HorizontalAlign="Center" />
+                                    <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
+                                        <ItemTemplate>
+                                            &nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
+                                        </ItemTemplate>
+
+                                    </asp:TemplateField>
+                                    <asp:BoundField HeaderText="Estatus" DataField="Estatus" HeaderStyle-Width="150px" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
+                                        <ItemTemplate>
+                                            &nbsp;<asp:Literal ID="LblFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:dd/MM/yyyy}") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:TemplateField HeaderText="Cliente" HeaderStyle-HorizontalAlign="Left">
+                                        <ItemTemplate>
+                                            &nbsp;<asp:Literal ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:TemplateField HeaderText="Contacto" HeaderStyle-HorizontalAlign="Left">
+                                        <ItemTemplate>
+                                            &nbsp;<asp:Literal ID="LblContacto" runat="server" Text='<%# Eval("Contacto") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                     <asp:BoundField HeaderText="Dirección" DataField="Direccion"  ItemStyle-HorizontalAlign="Left" />
+                                </Columns>
+
+                            </asp:GridView>
+
+
+
+                        </div>
+
+                    </div>
+
+
+
+                      <div class="row" runat="server" id="DVGvGenerarDocumentos" visible="false">
+                        <div class="col-md-12">
+
+
+                            <asp:GridView ID="GvGenerarDocumentos" runat="server" AutoGenerateColumns="False" Width="100%" OnRowDataBound="GvGenerarDocumentos_RowDataBound"
+                                DataKeyNames="CvePaqueteriaGuia,Folio,SerieFolio,FechaIng,Nombre,Contacto,Estatus,CobranzaCorreo,CorreoEntregaAlmacen,CorreoEntregaCompras,Correo,CorreoAdicionalNotificaciones,CveVenta,PedidoContrato,OrdenCompra,NombreComercial,TipoDocto,CorreoNotificacion,CveVendedor,Orden"
+                                EmptyDataText="No se encontraron registros" ToolTip="Listado de entregas"
+                                CssClass="GvGenerarDocumentos"
+                                data-sort="true"
+                                data-freezerows="1"
+                                GridLines="None">
+                                <Columns>
+                                    <%--<asp:BoundField HeaderText="CvePaqueteriaGuia" DataField="CvePaqueteriaGuia"  ItemStyle-HorizontalAlign="Left" />--%>
+                                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="3%" HeaderStyle-Width="3%">
+                                        <ItemTemplate>
+                                            &nbsp;<asp:CheckBox ID="ChkAsigna" runat="server" Checked="false" Visible="false" />                                          
+                                            
+                                           <a class="blue"><i class="fa fa-arrows-v green" aria-hidden="true"></i></a>
+                                            
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <%--<asp:BoundField HeaderText="Cons" DataField="Num" HeaderStyle-Width="25px" ItemStyle-HorizontalAlign="Center" />--%>
+
+                                    <asp:TemplateField HeaderText="Cons" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="25px">
+                                        <ItemTemplate>
+                                            <asp:Label ID="LblNum" runat="server" Text='<%# Eval("Num") %>' CssClass="RowOrdenamiento" ></asp:Label>
+                                             <input type="hidden" name="OrdenCvePaqueteriaGuia" value='<%# Eval("CvePaqueteriaGuia") %>' />
+                                            
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    
+                                    <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
+                                        <ItemTemplate>
+                                            &nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
+                                        </ItemTemplate>
+
+                                    </asp:TemplateField>
+                                    <asp:BoundField HeaderText="Estatus" DataField="Estatus" HeaderStyle-Width="150px" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
+                                        <ItemTemplate>
+                                            &nbsp;<asp:Literal ID="LblFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:dd/MM/yyyy}") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:TemplateField HeaderText="Cliente" HeaderStyle-HorizontalAlign="Left">
+                                        <ItemTemplate>
+                                            &nbsp;<asp:Literal ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:TemplateField HeaderText="Contacto" HeaderStyle-HorizontalAlign="Left">
+                                        <ItemTemplate>
+                                            &nbsp;<asp:Literal ID="LblContacto" runat="server" Text='<%# Eval("Contacto") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:BoundField HeaderText="Dirección" DataField="Direccion"  ItemStyle-HorizontalAlign="Left" />
+
+                                    
+                                </Columns>
+
+                            </asp:GridView>
+
+
+
+                        </div>
+
+                    </div>
+
+
+               
+
+
                 </div>
             </asp:Panel>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
+
+    <script>           
+
+
+
+        function InitOrdenamientoGvGenerarDocumentos() {
+
+            $(".GvGenerarDocumentos").sortable({
+                items: 'tr:not(tr:first-child)',
+                cursor: 'pointer',
+                axis: 'y',
+                dropOnEmpty: false,
+                start: function (e, ui) {
+                    ui.item.addClass("selected");                   
+                    let asd = ui.item.children('a');
+                },
+                stop: function (e, ui) {                
+                    //Ordenar el numero de la columna *Cons*
+                    $(".RowOrdenamiento").each(function (index) {
+                        let nRow = (index + 1);
+                        $(this).text(nRow);
+                    });
+
+                },
+            });
+        }
+
+        
+       
+
+
+    </script>
+
 </asp:Content>

Inventarios/EntregasPorRealizar.aspx.cs

@@ -11,24 +11,83 @@ using System.Text;
 
 public partial class Inventarios_EntregasPorRealizar : ClsPaginas
 {
-   
+
+
+    DataTable DTGenrarDocumentos
+    {
+        get {
+
+            if(ViewState["DTGenrarDocumentos"] == null){
+                ViewState["DTGenrarDocumentos"] = new DataTable();
+            }
+            return (DataTable)ViewState["DTGenrarDocumentos"];
+
+        }
+        set {
+            ViewState["DTGenrarDocumentos"] = (DataTable)value;
+        }
+    }
+
+    DataTable DTDatosConsulta
+    {
+        get
+        {
+
+            if (ViewState["DTDatosConsulta"] == null)
+            {
+                ViewState["DTDatosConsulta"] = new DataTable();
+            }
+            return (DataTable)ViewState["DTDatosConsulta"];
+
+        }
+        set
+        {
+            ViewState["DTDatosConsulta"] = (DataTable)value;
+        }
+    }
+
+
+    bool SelecionEntrega
+    {
+        get
+        {
+
+            if (ViewState["SelecionEntrega"] == null)
+            {
+                ViewState["SelecionEntrega"] = false;
+            } 
+            return (bool) ViewState["SelecionEntrega"];
+        }
+        set
+        {
+            ViewState["SelecionEntrega"] = (bool)value;
+        }
+    }
+
+
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
         {
+            SelecionEntrega = true;
             CargarEntregas();
             CargarPersonal();
         }
     }
 
-    protected void BtnAsignar_Click(object sender,EventArgs e)
+    protected void BtnAsignar_Click(object sender, EventArgs e)
     {
+
+        ActualizaOrdenDTGenrarDocumentos();
+
+
         if (DdlUsuario.SelectedValue.ToEntero() > 0)
         {
             bool TieneError = false;
             ClsGenerales ObjGeneral = new ClsGenerales();
             ObjGeneral.IniciaTransacSQL();
-            GridViewRowCollection Grid = GvPaqueteriasGuias.Rows;
+
+            GridViewRowCollection Grid = GvGenerarDocumentos.Rows;
 
             int CvePersonal = DdlUsuario.SelectedValue.ToEntero();
             long CveAsignacionEntrega = DateTime.Now.Ticks;
@@ -37,66 +96,68 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
             string LigaPopUpVerFactura = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", ModExtensiones.Encripta(String.Format("OP=ENTREGAS&CVEASIGNACIONENTREGA={0}&USUARIOENTREGA={1}", CveAsignacionEntrega, Usuario)));
             foreach (GridViewRow row in Grid)
             {
-                if (row.FCCheckBox("ChkAsigna").Checked)
+                int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero();
+                int Orden = row.DataKey("Orden").ToEntero();
+
+                if (!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal:CvePersonal, CveAsignacionEntrega: CveAsignacionEntrega, Orden: Orden))
                 {
-                    int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero();
+                    TieneError = true;
-
+                    break;
-                    if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal, CveAsignacionEntrega)){
-                        TieneError = true;
-                    }else
-                    {
-                        try
-                        {
-                            MandarNotificacionCorreo(row);
-                        }
-                        catch (Exception ex)
-                        {
-                            TieneError = true;
-                            ModExtensiones.GuardaLog(ex.Message);
-                        }
-                        //string CobranzaCorreo = row.DataKey("CobranzaCorreo");
-                        //string CorreoEntregaAlmacen = row.DataKey("CorreoEntregaAlmacen");
-                        //string CorreoEntregaCompras = row.DataKey("CorreoEntregaCompras");
-                        //string CorreoVendedor = row.DataKey("Correo");
-                        //string CorreoAdicionalNotificacionesVendedor = row.DataKey("CorreoAdicionalNotificaciones");
-
-                        //string CorreosCC = string.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoAdicionalNotificacionesVendedor, CobranzaCorreo, CorreoEntregaCompras);
-                        //string LogCorreo = string.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoEntregaAlmacen, CorreosCC);
-                        //LogCorreo.GuardaLog();
-
-                        //ClsSisMail MailCls = new ClsSisMail();
-                        //MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Se enviara la compra a su dirección", "Pendiente", CorreosCC);
-                        //MailCls = null;
-                    }
                 }
+
             }
-            
+
+
             if (!TieneError)
             {
-                ObjGeneral.Commit();
+
-                Alert(String.Format("Entregas asignadas correctamente <br/><br/><a style='color:#23527c' href='{0}'>Imprimir Reporte de Entregas Asignadas</a>", LigaPopUpVerFactura));
+                foreach (GridViewRow row in Grid)
-                CargarEntregas();
+                {
-                UpDatos.Update();
+                    try
+                    {
+                        MandarNotificacionCorreo(row);
+                    }
+                    catch (Exception ex)
+                    {
+                        TieneError = true;
+                        ModExtensiones.GuardaLog(ex.Message);
+                    }
+
+
+                }
+
+                if (!TieneError)
+                {
+                    ObjGeneral.Commit();
+                    Alert(String.Format("Entregas asignadas correctamente <br/><br/><a style='color:#23527c' href='{0}'>Imprimir Reporte de Entregas Asignadas</a>", LigaPopUpVerFactura));
+
+                    SelecionEntrega = false;
+                    SeleccioanrGenrar();
+
+                    CargarEntregas();
+                    UpDatos.Update();
+                }
+                else
+                {
+                    ObjGeneral.RollBack();
+                }
+                ObjGeneral.Dispose();
             }
             else
             {
-                ObjGeneral.RollBack();
+                Alert("Seleccione a alguien del personal", ModExtensiones.TipoMensaje.MsgAdvertencia);
             }
-            ObjGeneral.Dispose();
-        }
-        else
-        {
-            Alert("Seleccione a alguien del personal",ModExtensiones.TipoMensaje.MsgAdvertencia);
         }
     }
-
     private void CargarEntregas()
     {
         ClsGenerales ObjGeneral = new ClsGenerales();
         if (ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa))
         {
             GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados;
-                     
+            DTDatosConsulta = ObjGeneral.DtResultados;
+            DTGenrarDocumentos = ObjGeneral.DtResultados.Clone();
+
         }
         ObjGeneral.Dispose();
         GvPaqueteriasGuias.DataBind();
@@ -227,4 +288,137 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, Para, "Entrega en camino", body, Para);
         MailCls = null;
     }
+
+  
+
+    protected void LnkGenerarDocumentos_Click(object sender, EventArgs e)
+    {
+        SeleccioanrGenrar();
+    }
+
+
+    private void SeleccioanrGenrar() {
+
+        if (SelecionEntrega)
+        {
+
+
+            if (DdlUsuario.SelectedValue.ToEntero() <= 0)
+            {
+                Alert("Debe seleccionar entregas", ModExtensiones.TipoMensaje.MsgAdvertencia);
+                return;
+            }
+
+            DTGenrarDocumentos.Rows.Clear();
+
+
+
+            int CountRows = 0;
+            foreach (GridViewRow GvRow in GvPaqueteriasGuias.Rows)
+            {
+
+                CheckBox ChkAsigna = GvRow.FCCheckBox("ChkAsigna");
+
+                if (ChkAsigna.Checked)
+                {
+
+                    int CvePaqueteriaGuia = GvRow.DataKey("CvePaqueteriaGuia").ToEntero();
+
+                    DataRow dRow = DTGenrarDocumentos.NewRow();
+                    DataRow dRowOrigen = DTDatosConsulta.FiltraParametros($"CvePaqueteriaGuia = {CvePaqueteriaGuia}").Rows[0];
+
+                    int IndexColun = 0;
+                    foreach (DataColumn dColumn in DTDatosConsulta.Columns)
+                    {
+                        dRow[IndexColun] = dRowOrigen[IndexColun];
+                        IndexColun++;
+                    }
+
+                    dRow["Num"] = CountRows + 1;
+                    DTGenrarDocumentos.Rows.Add(dRow);
+                    CountRows++;
+                }
+            }
+
+            DTGenrarDocumentos.AcceptChanges();
+
+            if (CountRows > 0)
+            {
+                GvGenerarDocumentos.DataSource = DTGenrarDocumentos;
+                GvGenerarDocumentos.DataBind();
+
+                DVGvGenerarDocumentos.Visible = true;
+                BtnAsignar.Visible = true;
+                DVGvPaqueteriasGuias.Visible = false;
+
+                RegistraScript("InitOrdenamientoGvGenerarDocumentos();");
+            }
+            else
+            {
+                Alert("No hay entregas seleccionadas", ModExtensiones.TipoMensaje.MsgAdvertencia);
+                return;
+            }
+
+
+            SelecionEntrega = false;
+            LnkGenerarDocumentos.Text = "Regresa a selección";
+
+            BtnAsignar.Visible = true;
+
+            UpDatos.Update();
+            UpFiltro.Update();
+        }
+        else
+        {
+
+            SelecionEntrega = true;
+            LnkGenerarDocumentos.Text = "Generar Documentos";
+            BtnAsignar.Visible = true;
+            DVGvGenerarDocumentos.Visible = false;
+            DVGvPaqueteriasGuias.Visible = true;
+            UpDatos.Update();
+            UpFiltro.Update();
+
+        }
+
+
+    }
+
+
+
+    protected void GvGenerarDocumentos_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if(e.Row.RowType == DataControlRowType.DataRow)
+        {
+           // e.Row.CssClass =  $"{e.Row.CssClass} RowOrdenamiento";
+           // e.Row.Attributes.Add("onmouseup ", "alert('boton liberado')");
+                
+        }
+    }
+
+    private void ActualizaOrdenDTGenrarDocumentos()
+    {
+        string[] OrdenCvePaqueteriaGuia = Request.Form.GetValues("OrdenCvePaqueteriaGuia");       
+
+        int NumOrden = 1;
+        foreach (string CvePaqueteriaGuia in OrdenCvePaqueteriaGuia)
+        {
+            foreach(DataRow dRow in DTGenrarDocumentos.Rows)
+            {
+                if (CvePaqueteriaGuia.ToEntero() == dRow["CvePaqueteriaGuia"].ToString().ToEntero()  )
+                {
+                    dRow["Orden"] = NumOrden;
+                }
+            }
+            DTGenrarDocumentos.AcceptChanges();
+            NumOrden++;
+        }
+
+        GvGenerarDocumentos.DataSource = DTGenrarDocumentos;
+        GvGenerarDocumentos.DataBind();
+        UpDatos.Update();
+
+         
+
+    }
 }

Inventarios/RepAnomalias.aspx

@@ -248,7 +248,8 @@
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
-                    <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <%--<asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
+                    <asp:BoundField HeaderText="Existencia" DataField="CantidadReal" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
                     <asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
@@ -297,7 +298,7 @@
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
-                    <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
                     <asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
@@ -341,7 +342,7 @@
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:d}" />
-                    <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Existencia" DataField="CantidadReal" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
                     <asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />

Inventarios/RepAnomalias.aspx.vb

@@ -404,9 +404,10 @@ Partial Class Inventarios_RepAnomalias
             LnkCrear.Visible = False
             CreandoNuevoInventario = True
         End If
-        UPAnomalias.Update()
+        CargaDatos(CveInventarioFisico)
-        UpdateGvS.Update()
+        'UPAnomalias.Update()
-        UPAcciones.Update()
+        'UpdateGvS.Update()
+        'UPAcciones.Update()
     End Sub
     Private Sub LnkGuardar_Click(sender As Object, e As EventArgs) Handles LnkGuardar.Click
         RegistraScript("$('#ModalGuardar').modal('show')")

Inventarios/RepOcInv.aspx

@@ -40,7 +40,7 @@
                         <div class="row">
                             <div class="col-md-1" style="max-width: 80px">Proveedor</div>
                             <div class="col-md-2">
-                                <ADS:Dropdownlost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  ></ADS:Dropdownlost>
+                                <ADS:Dropdownlost ID="DdlProveedor" runat="server" EsWebService="true" data-metodo="getproveedores" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  ></ADS:Dropdownlost>
                             </div>
                             <%-- <div class="col-md-1 truncate" style="max-width: 80px">Folio</div>
                     <div class="col-md-1">

Inventarios/RepProductosPorCaducar.aspx

@@ -96,7 +96,16 @@
                                 <ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"></ADS:Dropdownlost>
                             </div>
                             <div class="col-sm-1" style="text-align:right">
-                                <label>Fecha Inicio:</label>
+                                <label>Op. Fecha:</label>
+                            </div>
+                            <div class="col-md-1">
+                                <asp:DropDownList runat="server" ID="DdlOpcion" CssClass="select2me"  Width="100px" >                                    
+                                    <asp:ListItem Value="2" Selected="True">Caducidad</asp:ListItem>
+                                    <asp:ListItem Value="1">Elaboración</asp:ListItem>
+                                </asp:DropDownList>
+                            </div> 
+                            <div class="col-sm-1" style="text-align:right">
+                                <label>F. Inicio:</label>
                             </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: 100% !important; padding: 0px;display:flex">
@@ -108,8 +117,8 @@
                                 <ajax:MaskedEditExtender ID="MEEFechaIEjec" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                 <ajax:CalendarExtender ID="CalFechaIEjec" runat="server" TargetControlID="TxtFechaInicio" PopupButtonID="ImgCalFechaIEjec" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
-                            <div class="col-sm-1" style="text-align:right">
+                            <div class="col-md-1" style="text-align:right">
-                                <label>Fecha Fin:</label>
+                                <label>. Fin:</label>
                             </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: 100% !important; padding: 0px;display:flex">
@@ -120,30 +129,24 @@
                                 </div>
                                 <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                 <ajax:CalendarExtender ID="CalendarExtender1" runat="server" TargetControlID="TxtFechaFin" PopupButtonID="ImgCalFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                            </div>
+                            </div> 
-                            <div class="col-sm-1" style="text-align:right">
+                        </div>
+                    
+                </div> 
+            </div>
+                  <div class="portlet-body" style="display: none;">
+                    <div class="row">
+                         <div class="col-sm-1" style="text-align:right">
                                 <label>Sucursal:</label>
                             </div>
                             <div class="col-sm-1">
                                 <asp:DropDownList runat="server" ID="DdlSucursal" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AutoPostBack="true" OnSelectedIndexChanged="DdlSucursal_SelectedIndexChanged" Width="100%"></asp:DropDownList>
-                            </div>
+                            </div> 
-
+                             <label class="col-md-1 truncate" >Almacén:</label>
-
-
-                             <label class="col-md-1 truncate"  >Almacén:</label>
                             <div class="col-md-1">                                
                                 <asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
 
                             </div>
-                           
-                        </div>
-                    
-                </div>
-                       
-               
-            </div>
-                  <div class="portlet-body" style="display: none;">
-                    <div class="row">
                         <div class="col-sm-1" style="text-align:right">
                                 <label>Clasificación:</label>
                             </div>
@@ -153,25 +156,10 @@
                         <label class="col-md-1 truncate">Producto:</label>
                         <div class="col-md-2">
                             <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" Width="100%" />
-                        </div>
+                        </div> 
-
+                          
-
-
-                          <div class="col-sm-1" style="text-align:right">
-                                <label>Opcion:</label>
-                            </div>
-                            <div class="col-md-1">
-                                <asp:DropDownList runat="server" ID="DdlOpcion" CssClass="select2me"   Width="100%" CssStyle="width: 100%;">
-                                    <asp:ListItem Value="1">Elaboración</asp:ListItem>
-                                    <asp:ListItem Value="2" Selected="True">Caducidad</asp:ListItem>                                    
-                                </asp:DropDownList>
-                            </div>
-
-
-
                     </div>
-                    </div>
+                </div> 
-
         </div>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -180,20 +168,16 @@
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"  EmptyDataText="No se encontraron Registros" ToolTip="Reporte de productos caducidad "  CssClass="table table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
                 <Columns>
-                    <asp:BoundField HeaderText="Almacén" DataField="Almacen" ItemStyle-Width="150px" />
+                    <asp:BoundField HeaderText="Almacén" DataField="Almacen" ItemStyle-Width="160px" />
-                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}"  ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}"  ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Producto" DataField="CodigoPS" />
                     <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="150px" />
-                    <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" DataFormatString = "{0:dd/MM/yyyy}"  ItemStyle-Width="100px" />
+                    <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" DataFormatString = "{0:dd/MM/yyyy}"  ItemStyle-Width="90px" />
-                    
+                     <asp:TemplateField ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Right" HeaderText="Días de Cad." Visible="false">
-
-                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Tiempo de Caducidad" Visible="false">
                         <ItemTemplate>
-                            <asp:Label ID="LblTiempoCaducidad" runat="server" Text='<%# Eval("TiempoCaducidad","{0:n2}")%>'  ></asp:Label>
+                            <asp:Label ID="LblTiempoCaducidad" runat="server" Text='<%# Eval("TiempoCaducidad","{0:N0}")%>'  ></asp:Label>
                         </ItemTemplate>                        
                     </asp:TemplateField>
-
-
                 </Columns>
             </asp:GridView>
         </ContentTemplate>

Inventarios/RepProductosPorCaducar.aspx.cs

@@ -50,10 +50,19 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
             // aqui siempre se visualiza la caducidad, sin importar la condición, porque siempre se valida la caducidad
             ClsInventarios ObjInventarios = new ClsInventarios();
         if (ObjInventarios.GetProductosCaducidad(DdlProveedor.SelectedValue.ToEntero(), FI, TxtFechaFin.Text.ToDate(), DdlSucursal.SelectedValue.ToEntero(),
-                                                   DdlClasificacion.SelectedValue.ToEntero(), CvePS, 1, Cves_Alamcenes, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:DdlOpcion.SelectedValue.ToEntero()))
+                                                   DdlClasificacion.SelectedValue.ToEntero(), CvePS, Cves_Alamcenes, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion: DdlOpcion.SelectedValue.ToEntero()))
         {
             GvDatos.DataSource = ObjInventarios.DtResultados;
             DTDatos = ObjInventarios.DtResultados;
+            if (DdlOpcion.SelectedValue == "1")
+            {
+                GvDatos.Columns[4].HeaderText = "F.Elaboración";
+            }
+            else
+            {
+                GvDatos.Columns[4].HeaderText = "F.Caducidad";
+            }
+        
         }
         ObjInventarios.Dispose();
         GvDatos.DataBind();

Inventarios/TraspasoAlmacen.aspx

@@ -157,8 +157,18 @@
                                                     <asp:DropDownList ID="DdlAlmacenTransitorio" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me" Width="100%"></asp:DropDownList>
                                                 </div>
                                                 <asp:Label AssociatedControlID="ChkEmitirTimbrado" runat="server" Text="Emitir Timbrado:" ID="LblEmitirTimbrado" CssClass="col-md-2 " Visible="false"></asp:Label>
-                                                <asp:Panel ID="DivEmitirTimbrado" runat="server" Visible="false" class="col-md-2">
+                                                <asp:Panel ID="DivEmitirTimbrado" runat="server" Visible="false" class="col-md-1" >
-                                                    <asp:CheckBox ID="ChkEmitirTimbrado" runat="server" CssClass="chksino" Text=" " />
+                                                    
+                                                    <table>
+                                                        <tr>
+                                                            <td><asp:CheckBox ID="ChkEmitirTimbrado" runat="server" CssClass="chksino" Text=" " OnCheckedChanged="ChkEmitirTimbrado_CheckedChanged"  AutoPostBack="true" />                                                    </td>
+                                                            <td><asp:CheckBox ID="ChkEmitirCartaPorte" runat="server"   Text="Carta Porte" Visible="false" /></td>
+                                                         </tr>
+                                                    </table>
+
+                                                    
+                                                    
+
                                                 </asp:Panel>
 
                                             </div>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -215,8 +215,14 @@ Partial Class Inventarios_TraspasoAlmacen
 
             If UsuarioActual.CveEmpresa.Contiene(1, 119, 140, 2) Then
                 DivEmitirTimbrado.Visible = True
-                LblEmitirTimbrado.Visible = True
+
-                ChkEmitirTimbrado.Checked = True
+                If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
+                    LblEmitirTimbrado.Visible = True
+                    ChkEmitirTimbrado.Checked = True
+                End If
+
+
+                ChkEmitirCartaPorte.Visible = True
 
                 Dim HabilitarValidators As Boolean = UsuarioActual.CveEmpresa.Contiene(119)
                 RfvDdlChofer.Enabled = HabilitarValidators
@@ -702,6 +708,7 @@ Partial Class Inventarios_TraspasoAlmacen
             registro.Item("Noidentificacion") = DrPS("Codigo")
             registro.Item("CuentaPredial") = ""
             registro.Item("Obs") = ""
+
             registro.Item("ImporteIVA") = 0
             registro.Item("PorcentajeIVA") = 0
             registro("ClaveMaterialPeligroso") = DrPS("ClaveMaterialPeligroso")
@@ -747,6 +754,24 @@ Partial Class Inventarios_TraspasoAlmacen
 #Region "  GUARDAR  "
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
 
+
+
+        If ChkEmitirTimbrado.Checked Then
+
+            If DdlChofer.SelectedValue.ToEntero <= 0 Then
+                Alert("Debe de seleccionar un chofer")
+                Exit Sub
+            End If
+
+
+            If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then
+                Alert("Debe de seleccionar una unidad")
+                Exit Sub
+            End If
+
+
+        End If
+
         'VALIDA ALMACEN ORIGEN Y DESTINO
         If DdlAlmacenOrigen.SelectedValue = DdlAlmacenDestino.SelectedValue Then
             Alert("No se puede realizar un traspaso entre el mismo almacén.", TipoMensaje.MsgAdvertencia)
@@ -1147,8 +1172,34 @@ Partial Class Inventarios_TraspasoAlmacen
         '    End If
         'End If
 
+        Dim SerieInsertadaTimbre As String = ""
+        Dim FolioInsertadoTimbre As Integer = -1
+        Dim CveTimbre As Integer = -1
+        If Not ErrorMovInv Then
+
+            If ChkEmitirTimbrado.Checked Then
+                Dim ObjGral As New ClsGenerales(ObjInventario.IniciaTransacSQL)
+                Dim CveSubProyectoTimbre As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").Rows(0)("CveSubProyecto").ToString.ToEntero
+
+                CveTimbre = ObjGral.AddGralTimbre("Tra", "-1", -1, "", MinFecha, -1, CveMovimientoSalida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, -1, ChkEmitirCartaPorte.Checked, CveSubProyectoTimbre, -1, -1, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDateTime)
+
+                If CveTimbre > 0 Then
+                    SerieInsertadaTimbre = ObjGral.SerieInsertada
+                    FolioInsertadoTimbre = ObjGral.FolioInsertado
+                Else
+                    ErrorMovInv = True
+                End If
+
+            End If
+
+
+        End If
+
+
+
         If Not ErrorMovInv Then
             DtTraslado = DtMovimientos.Copy
+
             ObjInventario.Commit()
             MensajeAlert = New StringBuilder
 
@@ -1165,7 +1216,10 @@ Partial Class Inventarios_TraspasoAlmacen
 
             End If
 
-            If ChkEmitirTimbrado.Checked AndAlso ChkTransitorio.Checked Then CveMovimientoTimbrado = CveMovimientoSalida : Timbrar()
+            If ChkEmitirTimbrado.Checked Then
+                CveMovimientoTimbrado = CveMovimientoSalida
+                Timbrar(CveTimbre, CveMovimientoTimbrado)
+            End If
 
             Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "")
 
@@ -2667,12 +2721,19 @@ Partial Class Inventarios_TraspasoAlmacen
 
         ObjFactura.Inv_CveMovimiento = CveMovimientoTimbrado
 
-        If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
+        'If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
+        '    ObjFactura.Timbre = PreParaTimbreCartaPorte(ObjFactura)
+        'Else
+        '    ObjFactura.Timbre = PreParaTimbre(ObjFactura)
+        'End If
+
+        If ChkEmitirCartaPorte.Checked Then
             ObjFactura.Timbre = PreParaTimbreCartaPorte(ObjFactura)
         Else
             ObjFactura.Timbre = PreParaTimbre(ObjFactura)
         End If
 
+
     End Sub
     Private Function PreParaTimbreCartaPorte(Obj As Modelos.Factura) As CFDITimbre
         Dim Timbre As New CFDITimbre
@@ -3009,45 +3070,92 @@ Partial Class Inventarios_TraspasoAlmacen
         TmpDTComplementosTimbrado.Rows.Add(Row2)
     End Sub
 
-    Private Sub Timbrar()
+
-        CreaObjetosVenta()
+    Private Sub Timbrar(CveTimbre As Integer, CveMovimientoTimbrado As Integer)
-        Dim ObjTimbrado As New Timbrado
+
-        Dim FM As New Modelos.FemsaFactura
+
-        Dim TmpDT7Eleven As New DataTable
+
-        Dim TmpDTComplementosTimbrado As New DataTable
+        Dim ObjTimbres As New Timbres()
-        PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
+
+        If Not ObjTimbres.CargarDatosRequeridos(CveTimbre, UsuarioActual) Then
+            Alert($"{ObjTimbres.MsgError.ToString}", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
         MensajeAlert.Append("<br/><br/>")
 
+        If ObjTimbres.Timbrar() Then
+
+            Try
+                PdfFactura(ObjTimbres.ObjFactura)
+            Catch ex As Exception
+
+            End Try
+
 
-        'If TimbrarFacturaGoCFDIv33(ObjFactura, UsuarioActual, 4) <> "" Then
-        '    MensajeAlert.AppendFormat("<ul><li>-- no timbró-{0}</li></ul>", MensajeErrorCFDI)
-        'End If
-        If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then
             MensajeAlert.Append("Emitido con exito.")
             'XML
-            Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
+            Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
             If File.Exists(ArchivoXML) Then
-                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "XML", ObjFactura.SerieFolio, ObjFactura.TipoDocto)))
+                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)))
             End If
             'PDF
-            GeneraPDFFactura()
+            Dim ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio)
-            Dim ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
             If File.Exists(ArchivoPDF) Then
-                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjFactura.SerieFolio, ObjFactura.TipoDocto)))
+                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)))
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
-                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}", CveMovimientoTimbrado)))
+                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", CveTimbre)))
             Else
                 MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimientoTimbrado)))
             End If
 
         Else
-            MensajeAlert.AppendFormat("<ul><li>{0}</li></ul>", ObjTimbrado.MensajeErrorCFDI)
+            MensajeAlert.AppendFormat("<ul><li>{0}</li></ul>", ObjTimbres.MsgError.ToString)
         End If
 
     End Sub
 
+
+    'Private Sub Timbrar()
+
+    '    CreaObjetosVenta()
+    '    Dim ObjTimbrado As New Timbrado
+    '    Dim FM As New Modelos.FemsaFactura
+    '    Dim TmpDT7Eleven As New DataTable
+    '    Dim TmpDTComplementosTimbrado As New DataTable
+    '    PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
+    '    MensajeAlert.Append("<br/><br/>")
+
+
+    '    If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then
+    '        MensajeAlert.Append("Emitido con exito.")
+    '        'XML
+    '        Dim ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
+    '        If File.Exists(ArchivoXML) Then
+    '            MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "XML", ObjFactura.SerieFolio, ObjFactura.TipoDocto)))
+    '        End If
+    '        'PDF
+    '        'GeneraPDFFactura()
+    '        Dim ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
+    '        If File.Exists(ArchivoPDF) Then
+    '            MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=DesPdfTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimientoTimbrado, "PDF", ObjFactura.SerieFolio, ObjFactura.TipoDocto)))
+    '        End If
+
+    '        If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
+    '            MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}", CveMovimientoTimbrado)))
+    '        Else
+    '            MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar Carta Porte</a></li></ul>", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimientoTimbrado)))
+    '        End If
+
+    '    Else
+    '        MensajeAlert.AppendFormat("<ul><li>{0}</li></ul>", ObjTimbrado.MensajeErrorCFDI)
+    '    End If
+
+    'End Sub
+
     Private Sub GeneraPDFFactura()
         Try
             PdfFactura(ObjFactura)
@@ -3365,4 +3473,714 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
     End Sub
 
+    Protected Sub ChkEmitirTimbrado_CheckedChanged(sender As Object, e As EventArgs)
+
+        If ChkEmitirTimbrado.Checked Then
+            ChkEmitirCartaPorte.Checked = False
+            ChkEmitirCartaPorte.Visible = True
+        Else
+            ChkEmitirCartaPorte.Visible = False
+            ChkEmitirCartaPorte.Checked = False
+        End If
+
+
+
+    End Sub
 End Class
+
+
+
+
+Partial Class Timbres
+
+
+
+    Public Property TieneError As Boolean
+    Public Property MsgError As StringBuilder
+    Public Property MensajeAlert As StringBuilder
+
+    Private Property CvePaqueteriaGuia As Integer
+    Private Property CveMovimiento As Integer
+    Private Property UsuarioActual As Usuario
+    Private Property AplicaCP As Boolean
+    Private Property FechaEntrega As Date
+    Private Property CveSubProyectoOrigen As Integer
+
+    Public Property SubProyectoMatriz As Modelos.SubProyectoModel
+    Public Property SubProyecto As Modelos.SubProyectoModel
+
+    Private Property Serie As String
+    Private Property Folio As Integer
+    Private Property CveTimbre As Integer
+
+    Private Property GlobalDTMonedas As DataTable
+    Private Property GlobalDTAlmacen As DataTable
+    Private Property DTCamiones As DataTable
+    'Private Property GlobalDTPS As DataTable
+    Private Property DtMovimientos As DataTable
+    'Private Property GlobalDTUnidadesMedida As DataTable
+    Private Property GlobalDTSubProyectos As DataTable
+
+    Private Property CveAlmacenOrigen As Integer
+    Private Property CveAlmacenDestico As Integer
+
+
+
+
+    Private Property TipoPermisoSCT As String
+    Private Property NumPermisoSCT As String
+    Private Property NombreAseguradora As String
+    Private Property NumPolizaSeguro As String
+    Private Property ConfigCartaPorte As String
+    Private Property Placa As String
+    Private Property Anio As Integer
+
+
+    Private Property CPCliente As Integer
+
+    Private Property DirOriCP As Integer
+    Private Property DirOriCalle As String
+    Private Property DirOriClaveSATPais As String
+    Private Property DirOriClaveSATEstado As String
+    Private Property DirOriClaveSATMunicipio As String
+    Private Property DirOriClaveSATLocalidad As String
+    Private Property DirOriClaveSATColonia As String
+
+    Private Property DirDesCP As Integer
+    Private Property DirDesCalle As String
+    Private Property DirDesClaveSATPais As String
+    Private Property DirDesClaveSATEstado As String
+    Private Property DirDesClaveSATMunicipio As String
+    Private Property DirDesClaveSATLocalidad As String
+    Private Property DirDesClaveSATColonia As String
+
+
+    Private Property ChrDomicilio As String
+    Private Property ChrCP As String
+    Private Property ChrNumeroExterior As String
+    Private Property ChrNumeroInterior As String
+    Private Property ChrClaveSATColonia As String
+    Private Property ChrClaveSATMunicipio As String
+    Private Property ChrClaveSATEstado As String
+    Private Property ChrChofer As String
+    Private Property ChrLicencia As String
+    Private Property ChrNumRegidTribOperador As String
+    Private Property ChrResidenciaFiscalOperador As String
+    Private Property ChrRFC As String
+
+
+
+
+
+    Public Property ObjFactura As Modelos.Factura
+
+
+    'Public Sub New(CveMovimiento As Integer, CvePaqueteriaGuia As Integer, CveTimbre As Integer, UsuarioActual As Usuario,
+    '               GlobalDTMonedas As DataTable, GlobalDTAlmacen As DataTable, GlobalDTPS As DataTable, GlobalDTUnidadesMedida As DataTable, GlobalDTSubProyectos As DataTable)
+    Public Sub New()
+    End Sub
+
+
+
+    Private Sub CreaObjetosVenta()
+        ObjFactura = New Modelos.Factura
+        ObjFactura.Version = "3.3"
+        ObjFactura.CveUsuario = UsuarioActual.CveUsuario
+        ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
+        'ObjFactura.TipoCambio = 1
+        ObjFactura.ConvertirPesos = False
+        ObjFactura.CveMoneda = 1
+        ObjFactura.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
+        ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", "CveMoneda = 1") '"XXX"
+        ObjFactura.MonedaAbreviatura = GlobalDTMonedas.FiltroPrimeroValor("Abreviatura", $"CveMoneda = {ObjFactura.CveMoneda} ")
+        ObjFactura.TipoDocto = "Tra"
+        ObjFactura.RefDocto = ""
+
+        ObjFactura.Folio = Folio
+        ObjFactura.Serie = Serie
+
+        ObjFactura.CveMesa = -1
+        ObjFactura.Fecha = Now
+        ObjFactura.CvePrePoliza = -1
+        ObjFactura.FechaPago = Now
+        ObjFactura.MotivoDescuento = ""
+        ObjFactura.Observaciones = ""
+        ObjFactura.FechaEjecucion = Now
+        ObjFactura.UsuarioCreo = UsuarioActual.Usuario
+        ObjFactura.CveCondicionEntrega = -1
+        ObjFactura.CondicionEntrega = ""
+        ObjFactura.NumeroCuenta = ""
+        ObjFactura.CondicionesPago = 0
+        ObjFactura.FormaPago = 0
+        ObjFactura.PedidoContrato = ""
+        ObjFactura.OrdenCompra = ""
+        ObjFactura.NumeroContrato = ""
+        ObjFactura.NumeroDescripcionContrato = ""
+        ObjFactura.DescripcionContrato = ""
+        ObjFactura.CveCorte = -1
+        ObjFactura.TipoDocumento = "Traspaso"
+        ObjFactura.Alfa1 = ""
+        ObjFactura.Alfa2 = ""
+        ObjFactura.Alfa3 = ""
+        ObjFactura.Descuento = 0
+        ObjFactura.Amortizacion = 0
+        ObjFactura.CveContrato = 0
+        ObjFactura.CveVendedor = 0
+        ObjFactura.FechaVencimiento = Now
+        ObjFactura.TipoEstatus = 0
+        ObjFactura.Det_OrdenCompra = ""
+        ObjFactura.Inv_CveEstatusEntrega = 0
+        ObjFactura.FormaPago33 = ""
+        ObjFactura.MetodoPago33 = ""
+        ObjFactura.UsoCFDI = ""
+        ObjFactura.CveClienteSucursal = 0
+
+
+
+
+        ObjFactura.CveSubProyecto = CveSubProyectoOrigen
+        ObjFactura.CveSubProyectoCobranza = CveSubProyectoOrigen
+        ObjFactura.CveSubProyectoEjecucion = CveSubProyectoOrigen
+
+        ObjFactura.SubTotal = 0
+        ObjFactura.Descuento = 0
+        ObjFactura.Amortizacion = 0
+        ObjFactura.IVA = 0
+        ObjFactura.RetIVA = 0
+        ObjFactura.RetISR = 0
+        ObjFactura.IEPS = 0
+        ObjFactura.Total = 0
+
+        ObjFactura.RFCReceptor = "XAXX010101000"  ' RFC empresa traslado , si es entrega RFC Cliente
+
+        'DETALLES
+        ObjFactura.DtDetalle = DtMovimientos
+
+
+        ObjFactura.SubProyectoMatriz = SubProyectoMatriz
+        ObjFactura.SubProyecto = SubProyecto
+
+        ObjFactura.Inv_CveMovimiento = CveMovimiento
+
+        If AplicaCP Then
+            ObjFactura.Timbre = PreParaTimbreCartaPorte(ObjFactura)
+        Else
+            ObjFactura.Timbre = PreParaTimbre(ObjFactura)
+        End If
+
+
+    End Sub
+
+    Private Function PreParaTimbreCartaPorte(Obj As Modelos.Factura) As CFDITimbre
+        Dim Timbre As New CFDITimbre
+        Timbre.Comprobante.TipoComprobante = "T"
+        Timbre.Comprobante.Folio = Obj.Folio.ToString
+        Timbre.Comprobante.Serie = Obj.Serie
+        Timbre.Comprobante.Fecha = Obj.Fecha
+        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
+        Timbre.Comprobante.CondicionesdePago = ""
+        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
+        Timbre.Comprobante.Subtotal = Obj.SubTotal
+        Timbre.Comprobante.Descuentos = Obj.Descuento
+        Timbre.Comprobante.Moneda = "XXX"
+        Timbre.Comprobante.TipoCambio = "" ' CONDICIÓN SI LA MONEDA ES 'XXX'
+
+        'Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
+        Timbre.Comprobante.Confirmacion = ""
+
+        Timbre.Receptor.RFC = UsuarioActual.Empresa.RFC
+        Timbre.Receptor.Nombre = UsuarioActual.Empresa.Empresa
+        Timbre.Receptor.UsoCFDI = "P01"
+
+
+        Dim totSubTotal As Decimal = Obj.SubTotal
+        Dim totIVA As Decimal = Obj.IVA
+        Dim totRetIVA As Decimal = Obj.RetIVA
+        Dim totRetISR As Decimal = Obj.RetISR
+        Dim i As Integer = 1
+
+
+        If CveMovimiento > 0 Then
+            Timbre.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString
+        Else
+            Timbre.Comprobante.LugarExpedicion = CPCliente.ToString
+        End If
+
+
+        'DETALLES
+        Dim tPS As String = ""
+
+        Dim CartaPorte As New CFDICartaPorte
+        CartaPorte.TranspInternac = "No"
+        CartaPorte.EntradaSalidaMercancia = ""
+        CartaPorte.ViaEntradaSalida = ""
+
+        CartaPorte.Mercancias.PesoBrutoTotal = 0
+        CartaPorte.Mercancias.UnidadPeso = ""
+        CartaPorte.Mercancias.CargoporTasacion = 0
+
+        CartaPorte.FiguraTransporte.AutoTransporteFederal.PermSCT = TipoPermisoSCT '"TPAF01"
+        CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT = NumPermisoSCT
+        CartaPorte.FiguraTransporte.AutoTransporteFederal.NombreAseg = NombreAseguradora
+        CartaPorte.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro = NumPolizaSeguro
+        CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular = ConfigCartaPorte '"C2"
+        CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM = Placa
+        CartaPorte.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM = Anio
+
+        Dim DomOrigen As CFDICartaPorteDomicilio = Nothing
+        DomOrigen = New CFDICartaPorteDomicilio With {.Calle = DirOriCalle,
+                                                      .Colonia = DirOriClaveSATColonia,
+                                                      .CP = DirOriCP.ToString,
+                                                      .Estado = DirOriClaveSATEstado,
+                                                      .Pais = DirOriClaveSATPais,
+                                                      .Municipio = DirOriClaveSATMunicipio,
+                                                      .Localidad = DirOriClaveSATLocalidad}
+
+        Dim DomDestino As CFDICartaPorteDomicilio = Nothing
+
+
+        DomDestino = New CFDICartaPorteDomicilio With {.Calle = DirDesCalle,
+                                                      .Colonia = DirDesClaveSATColonia,
+                                                      .CP = DirDesCP.ToString,
+                                                      .Estado = DirDesClaveSATEstado,
+                                                      .Pais = DirDesClaveSATPais,
+                                                      .Municipio = DirDesClaveSATMunicipio,
+                                                      .Localidad = DirDesClaveSATLocalidad}
+
+
+        Dim Ubica As New CFDICartaPorteUbicaciones
+        Ubica.TipoEstacion = ""
+        Ubica.DistanciaRecorridaDestino = 1
+        Ubica.Origen = New CFDICartaPorteUbicacionOrigen With {.RFCRemitente = "",'UsuarioActual.Empresa.RFC,
+                                                                .FechaHoraSalida = Now.ToString("yyyy-MM-ddTHH:mm:ss"),' "2021-08-23T11:13:01",
+                                                                .NombreRemitente = UsuarioActual.Empresa.Empresa,
+                                                                .Domicilio = DomOrigen}
+        Ubica.Destino = New CFDICartaPorteUbicacionDestino With {.RFCDestinatario = "",'UsuarioActual.Empresa.RFC,'"CAMJ841219I33",
+                                                                .FechaHoraProgLlegada = FechaEntrega.ToString("yyyy-MM-ddT23:59:59"),
+                                                                .NombreDestinatario = UsuarioActual.Empresa.Empresa,
+                                                                .Domicilio = DomDestino}
+
+        CartaPorte.Ubicaciones.Add(Ubica)
+
+        CartaPorte.FiguraTransporte.ClaveTransporte = "01"
+
+        Dim ObjAcar As New ClsAcarreos()
+
+        ' If ObjAcar.GetChofer(DdlChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, -1) Then
+        'Dim dro As DataRow = ObjAcar.DtResultados.Rows(0)
+        'If dro IsNot Nothing Then
+        Dim DomicilioOperador As New CFDICartaPorteDomicilio With {.Calle = ChrDomicilio,
+                                                                            .NumeroExterior = ChrNumeroExterior,
+                                                                            .NumeroInterior = ChrNumeroInterior,
+                                                                            .Colonia = ChrClaveSATColonia,
+                                                                            .Municipio = ChrClaveSATMunicipio,
+                                                                            .Estado = ChrClaveSATEstado,
+                                                                            .CP = ChrCP}
+
+        CartaPorte.FiguraTransporte.Operadores.Add(New CFDICartaPorteOperador With {
+                                                        .RFCOperador = ChrRFC,
+                                                        .NombreOperador = ChrChofer,
+                                                        .NumLicencia = ChrLicencia,
+                                                        .NumRegidTribOperador = ChrNumRegidTribOperador,
+                                                        .ResidenciaFiscalOperador = ChrResidenciaFiscalOperador,
+                                                        .Domicilio = DomicilioOperador})
+
+        'End If
+        ' End If
+        ObjAcar.Dispose()
+
+
+        'concepto único
+
+        Dim concepto As New CFDIConceptos With {.Cantidad = 1,
+                                                        .Descripcion = "Flete",
+                                                        .ValorUnitario = 0,
+                                                        .Importe = 0,
+                                                        .Descuento = 0,
+                                                        .Unidad = "Servicio",
+                                                        .ClaveUnidad = "E48",
+                                                        .ClaveProdServ = "78101802",
+                                                        .Noidentificacion = "",
+                                                        .CuentaPredial = ""}
+
+        Timbre.Conceptos.Add(concepto)
+
+        For Each drr As DataRow In Obj.DtDetalle.Rows
+
+            If drr("PS").ToString.Length = 1 Then
+                tPS = drr("Obs").ToString
+            Else
+                If drr("PS").ToString.Length = 0 Then
+                    tPS = ""
+                Else
+                    tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
+                End If
+            End If
+            Dim conceptoCarta As New CFDICartaPorteMercancia With {
+                                                       .BienesTransp = drr("SATClaveProdServ").ToString,
+                                                       .ClaveSTCC = "", 'para metodo ferroviario
+                                                       .Cantidad = drr("Cantidad").ToString.ToDecimal,
+                                                       .Descripción = tPS,
+                                                       .ClaveUnidad = drr("SATClaveUM").ToString,
+                                                       .Unidad = drr("UM").ToString,
+                                                       .Dimensiones = "",
+                                                       .MaterialPeligroso = If(drr("ClaveMaterialPeligroso").ToString <> "", "Sí", "No"),
+                                                       .ClaveMaterialPeligroso = drr("ClaveMaterialPeligroso").ToString,
+                                                       .Embalaje = drr("ClaveEmbalaje").ToString,
+                                                       .DescripEmbalaje = drr("Embalaje").ToString,
+                                                       .PesoenKg = drr("PesoKg").ToString.ToDecimal,
+                                                       .ValorMercancia = drr("PU").ToString.ToDecimal,
+                                                       .Moneda = "MXN", 'temporal
+                                                       .FraccionArrancelaria = "",
+                                                       .UUIDComercioExt = ""
+                                                       }
+
+
+            totSubTotal = totSubTotal - concepto.Importe
+            CartaPorte.Mercancias.Mercancias.Add(conceptoCarta)
+
+            i += 1
+        Next
+        Timbre.Complementos.CartaPorte = CartaPorte
+
+        Return Timbre
+    End Function
+
+    Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
+        Dim Timbre As New CFDITimbre
+        Timbre.Comprobante.TipoComprobante = "T"
+        Timbre.Comprobante.Folio = Obj.Folio.ToString
+        Timbre.Comprobante.Serie = Obj.Serie
+        Timbre.Comprobante.Fecha = Obj.Fecha
+        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
+        Timbre.Comprobante.CondicionesdePago = ""
+        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
+        Timbre.Comprobante.Subtotal = Obj.SubTotal
+        Timbre.Comprobante.Descuentos = Obj.Descuento
+        Timbre.Comprobante.Moneda = Obj.MonedaSAT
+        Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
+        Timbre.Comprobante.Total = Obj.Total
+
+        If CveMovimiento > 0 Then
+            Timbre.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString
+        Else
+            Timbre.Comprobante.LugarExpedicion = CPCliente.ToString
+        End If
+
+        Timbre.Comprobante.Confirmacion = ""
+
+        Timbre.Receptor.RFC = "XAXX010101000"
+        Timbre.Receptor.Nombre = UsuarioActual.Empresa.Empresa
+        Timbre.Receptor.UsoCFDI = "P01"
+
+        Dim totSubTotal As Decimal = Obj.SubTotal
+        Dim totIVA As Decimal = Obj.IVA
+        Dim totRetIVA As Decimal = Obj.RetIVA
+        Dim totRetISR As Decimal = Obj.RetISR
+        Dim i As Integer = 1
+
+        'DETALLES
+        Dim tPS As String = ""
+
+        For Each drr As DataRow In Obj.DtDetalle.Rows
+            'If drr("PS").ToString.Length = 1 Then
+            '    tPS = drr("Obs").ToString
+            'Else
+            '    If drr("PS").ToString.Length = 0 Then
+            '        tPS = ""
+            '    Else
+            '        tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
+            '    End If
+            'End If
+
+            If drr("PS").ToString.Length = 1 Then
+                tPS = drr("Obs").ToString
+            Else
+                If drr("PS").ToString.Length = 0 Then
+                    tPS = ""
+                Else
+                    tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
+                End If
+            End If
+
+
+            'Observaciones
+
+            'CONDICIONANTE, ESPECIAL
+            If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" 'LES COMENTAN QUE NO DEBE IR LA ETIQUETA DE LA UNIDAD EN EL PRODUCTO
+
+            Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
+                                                        .Descripcion = tPS,
+                                                        .ValorUnitario = drr("PU").ToString.ToDecimal,
+                                                        .Importe = drr("TotalImporte").ToString.ToDecimal,
+                                                        .Descuento = drr("Descuento").ToString.ToDecimal,
+                                                        .Unidad = drr("UM").ToString,
+                                                        .ClaveUnidad = drr("SATClaveUM").ToString,
+                                                        .ClaveProdServ = drr("SATClaveProdServ").ToString,
+                                                        .Noidentificacion = drr("Noidentificacion").ToString,
+                                                        .CuentaPredial = drr("CuentaPredial").ToString}
+            'VERIFICA SUMA SUBTOTALES
+            If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'PROCESO DE AJUSTA DE DECIMALES
+                concepto.Importe = totSubTotal
+            End If
+            totSubTotal = totSubTotal - concepto.Importe
+
+            'SIEMPRE ESTAMOS AGREGANDO EL IVA
+            'concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
+
+            Timbre.Conceptos.Add(concepto)
+            i += 1
+        Next
+        Return Timbre
+    End Function
+    Private Sub PrepararTimbrado(ByRef FM As Modelos.FemsaFactura, ByRef TmpDT7Eleven As DataTable, ByRef TmpDTComplementosTimbrado As DataTable)
+        FM.AplicaFEMSA = False
+        FM.FEMSA_NumSociedad = ""
+        FM.FEMSA_NumProveedor = ""
+        FM.FEMSA_Mail = ""
+        FM.FEMSA_Version = 0
+        FM.FEMSA_NumPedido = 0
+        FM.FEMSA_NumEntrada = ""
+        FM.FEMSA_NumRemision = ""
+        FM.FEMSA_NumSocio = ""
+        FM.FEMSA_CentroCosto = ""
+        FM.FEMSA_IPeriodoLiquidacion = ""
+        FM.FEMSA_FPeriodoLiquidacion = ""
+        FM.FEMSA_CodRetencion1 = ""
+        FM.FEMSA_CodRetencion2 = ""
+
+        TmpDT7Eleven.Columns.Add("sevenElevenNumProveedor")
+        TmpDT7Eleven.Columns.Add("sevenElevenFolio")
+        TmpDT7Eleven.Columns.Add("sevenElevenTienda")
+        TmpDT7Eleven.Columns.Add("sevenElevenFecha")
+
+        Dim Row As DataRow = TmpDT7Eleven.NewRow
+        Row("sevenElevenNumProveedor") = ""
+        Row("sevenElevenFolio") = ""
+        Row("sevenElevenTienda") = ""
+        Row("sevenElevenFecha") = ""
+
+        TmpDT7Eleven.Rows.Add(Row)
+
+        TmpDTComplementosTimbrado.Columns.Add("CveComplemento")
+        TmpDTComplementosTimbrado.Columns.Add("IdContabilidad")
+        TmpDTComplementosTimbrado.Columns.Add("TipoProceso")
+        TmpDTComplementosTimbrado.Columns.Add("TipoAmbito")
+        TmpDTComplementosTimbrado.Columns.Add("Entidad")
+
+        Dim Row2 As DataRow = TmpDTComplementosTimbrado.NewRow
+
+        Row2("CveComplemento") = ""
+        Row2("IdContabilidad") = ""
+        Row2("TipoProceso") = ""
+        Row2("TipoAmbito") = ""
+        Row2("Entidad") = ""
+
+        TmpDTComplementosTimbrado.Rows.Add(Row2)
+    End Sub
+
+    Public Function Timbrar() As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        CreaObjetosVenta()
+        Dim ObjTimbrado As New Timbrado
+        Dim FM As New Modelos.FemsaFactura
+        Dim TmpDT7Eleven As New DataTable
+        Dim TmpDTComplementosTimbrado As New DataTable
+        PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
+        'MensajeAlert.Append("<br/><br/>")
+
+
+        If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then
+            Respuesta = True
+
+            Dim objGrales As New ClsGenerales
+            If Not objGrales.UpdateGralTimbre(CveTimbre, "-1", "-1", -1, ObjTimbrado.UUID, Now, CvePaqueteriaGuia, CveMovimiento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, UsuarioActual.Empresa.CvePAC, -1, New Date(1900, 1, 1), AplicaCP, -1, -1, -1, -1, -1) Then
+                GuardaLogAD($"Error no se actualizo registro de timbre {CveTimbre} ")
+            End If
+            objGrales.Dispose()
+
+        Else
+            Respuesta = False
+            ' MensajeAlert.AppendFormat("<ul><li>{0}</li></ul>", ObjTimbrado.MensajeErrorCFDI)
+            MsgError.AppendLine(ObjTimbrado.MensajeErrorCFDI)
+        End If
+
+        Return Respuesta
+
+    End Function
+
+
+
+
+
+    Public Function CargarDatosRequeridos(CveTimbre As Integer, UsuarioActual As Usuario) As Boolean
+
+
+
+        Me.CveTimbre = CveTimbre
+        Me.UsuarioActual = UsuarioActual
+
+
+        TieneError = False
+        MsgError = New StringBuilder
+        MensajeAlert = New StringBuilder
+
+
+        Using ObjMonedas As New ClsMonedas()
+            If ObjMonedas.GetMonedas() Then
+                Me.GlobalDTMonedas = ObjMonedas.DtResultados
+            Else
+                Me.GlobalDTMonedas = Nothing
+                TieneError = True
+                MsgError.AppendLine("Se presento error al cargar las monedas")
+            End If
+        End Using
+
+        Using ObjAlmacenes As New ClsInventarios()
+            If ObjAlmacenes.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+                Me.GlobalDTAlmacen = ObjAlmacenes.DtResultados
+            Else
+                Me.GlobalDTAlmacen = Nothing
+                TieneError = True
+                MsgError.AppendLine("Se presento error al cargar los almacenes")
+            End If
+        End Using
+
+
+        Using ObjSubPro As New ClsSubProyectos()
+            If ObjSubPro.GetSubProyectos(CveEmpresa:=UsuarioActual.CveEmpresa) Then
+                GlobalDTSubProyectos = ObjSubPro.DtResultados
+            Else
+                GlobalDTSubProyectos = Nothing
+                TieneError = True
+                MsgError.AppendLine("Se presento error al cargar los subproyectos")
+            End If
+        End Using
+
+
+
+        Dim FI As Date = New Date(1900, 1, 1)
+        Dim FF As Date = New Date(9999, 1, 1)
+
+        Dim ObjGrales As New ClsGenerales
+
+        If CveTimbre > 0 Then
+
+            If ObjGrales.GetGralTimbre(CveTimbre, "-1", "-1", -1, FI, FF, 0, UsuarioActual.CveEmpresa, -1, -1) Then
+
+
+                If ObjGrales.DtResultados.Rows.Count = 1 Then
+
+
+                    CveMovimiento = ObjGrales.DtResultados.Rows(0)("CveMovimientoAlmacen").ToString.ToEntero
+                    CvePaqueteriaGuia = ObjGrales.DtResultados.Rows(0)("Folio").ToString.ToEntero
+
+                    FechaEntrega = ObjGrales.DtResultados.Rows(0)("FechaEntrega").ToString.ToDate
+
+                    Serie = ObjGrales.DtResultados.Rows(0)("Serie").ToString
+                    Folio = ObjGrales.DtResultados.Rows(0)("Folio").ToString.ToEntero
+
+                    AplicaCP = Boolean.Parse(ObjGrales.DtResultados.Rows(0)("AplicaCP").ToString)
+                    CveSubProyectoOrigen = ObjGrales.DtResultados.Rows(0)("CveSubProyectoOrigen").ToString.ToEntero
+
+                    TipoPermisoSCT = ObjGrales.DtResultados.Rows(0)("TipoPermisoSCT").ToString
+                    NumPermisoSCT = ObjGrales.DtResultados.Rows(0)("NumPermisoSCT").ToString
+                    NombreAseguradora = ObjGrales.DtResultados.Rows(0)("NombreAseguradora").ToString
+                    NumPolizaSeguro = ObjGrales.DtResultados.Rows(0)("NumPolizaSeguro").ToString
+                    ConfigCartaPorte = ObjGrales.DtResultados.Rows(0)("ConfigCartaPorte").ToString
+                    Placa = ObjGrales.DtResultados.Rows(0)("Placa").ToString
+                    Anio = ObjGrales.DtResultados.Rows(0)("Anio").ToString.ToEntero
+
+                    CPCliente = ObjGrales.DtResultados.Rows(0)("CPCliente").ToString.ToEntero
+
+                    DirOriCP = ObjGrales.DtResultados.Rows(0)("DirOriCP").ToString.ToEntero
+                    DirOriCalle = ObjGrales.DtResultados.Rows(0)("DirOriCalle").ToString
+                    DirOriClaveSATPais = ObjGrales.DtResultados.Rows(0)("DirOriClaveSATPais").ToString
+                    DirOriClaveSATEstado = ObjGrales.DtResultados.Rows(0)("DirOriClaveSATEstado").ToString
+                    DirOriClaveSATMunicipio = ObjGrales.DtResultados.Rows(0)("DIrOriClaveSATMunicipio").ToString
+                    DirOriClaveSATLocalidad = ObjGrales.DtResultados.Rows(0)("DirOriClaveSATLocalidad").ToString
+                    DirOriClaveSATColonia = ObjGrales.DtResultados.Rows(0)("DirOriClaveSATColonia").ToString
+
+                    DirDesCP = ObjGrales.DtResultados.Rows(0)("DirDesCP").ToString.ToEntero
+                    DirDesCalle = ObjGrales.DtResultados.Rows(0)("DirDesCalle").ToString
+                    DirDesClaveSATPais = ObjGrales.DtResultados.Rows(0)("DirDesClaveSATPais").ToString
+                    DirDesClaveSATEstado = ObjGrales.DtResultados.Rows(0)("DirDesClaveSATEstado").ToString
+                    DirDesClaveSATMunicipio = ObjGrales.DtResultados.Rows(0)("DirDesClaveSATMunicipio").ToString
+                    DirDesClaveSATLocalidad = ObjGrales.DtResultados.Rows(0)("DirDesClaveSATLocalidad").ToString
+                    DirDesClaveSATColonia = ObjGrales.DtResultados.Rows(0)("DirDesClaveSATColonia").ToString
+
+
+
+                    ChrDomicilio = ObjGrales.DtResultados.Rows(0)("ChrDomicilio").ToString
+                    ChrCP = ObjGrales.DtResultados.Rows(0)("ChrCP").ToString
+                    ChrNumeroExterior = ObjGrales.DtResultados.Rows(0)("ChrNumeroExterior").ToString
+                    ChrNumeroInterior = ObjGrales.DtResultados.Rows(0)("ChrNumeroInterior").ToString
+                    ChrClaveSATColonia = ObjGrales.DtResultados.Rows(0)("ChrClaveSATColonia").ToString
+                    ChrClaveSATMunicipio = ObjGrales.DtResultados.Rows(0)("ChrClaveSATMunicipio").ToString
+                    ChrClaveSATEstado = ObjGrales.DtResultados.Rows(0)("ChrClaveSATEstado").ToString
+
+                    ChrChofer = ObjGrales.DtResultados.Rows(0)("ChrChofer").ToString
+                    ChrLicencia = ObjGrales.DtResultados.Rows(0)("ChrLicencia").ToString
+                    ChrNumRegidTribOperador = ObjGrales.DtResultados.Rows(0)("ChrNumRegidTribOperador").ToString
+                    ChrResidenciaFiscalOperador = ObjGrales.DtResultados.Rows(0)("ChrResidenciaFiscalOperador").ToString
+                    ChrRFC = ObjGrales.DtResultados.Rows(0)("ChrRFC").ToString
+
+
+                Else
+                    TieneError = True
+                    MsgError.AppendLine("Consultar datos de timbrado")
+                End If
+            End If
+        Else
+            TieneError = True
+            MsgError.AppendLine("CveTimbre no valida")
+        End If
+
+
+
+
+        If ObjGrales.GetGralMovimientosDetalleTimbre(CveTimbre, UsuarioActual.CveEmpresa) Then
+            DtMovimientos = ObjGrales.DtResultados
+        Else
+            DtMovimientos = Nothing
+            TieneError = True
+            MsgError.AppendLine("Error al obtener Movimientos")
+        End If
+        ObjGrales.Dispose()
+
+
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+            DTCamiones = ObjInventarios.DtResultados
+        End If
+
+        If ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
+            CveAlmacenOrigen = ObjInventarios.CveAlmacen
+            CveAlmacenDestico = ObjInventarios.CveAlmacenDestino
+            'CveSubProyecto = ObjInventarios.CveSubProyecto
+        End If
+
+        ObjInventarios.Dispose()
+
+
+        Dim Row As Data.DataRow = Extensiones.FiltroPrimero(GlobalDTSubProyectos, "TipoSucursal=1")
+        SubProyectoMatriz = New Modelos.SubProyectoModel(Row)
+        SubProyecto = New Modelos.SubProyectoModel(Extensiones.FiltroPrimero(GlobalDTSubProyectos, $"CveSubProyecto = {CveSubProyectoOrigen}"))
+
+        If TieneError Then
+            Return False
+        Else
+            Return True
+        End If
+
+    End Function
+
+
+
+
+
+
+End Class
+

Nomina/ChecadorAsistencia.aspx

@@ -4,9 +4,10 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
-        .GvBitacora th:nth-child(n+2){
+        .GvBitacora th:nth-child(n+2) {
             text-align: left;
         }
+
         .AdsCHeader .GvNominas th:nth-child(1),
         .AdsCHeader .GvNominas td:nth-child(1) {
             text-align: left;
@@ -118,38 +119,38 @@
             </asp:GridView>
 
 
-            
+
-                    <div class="portlet light bordered xspadding">
+            <div class="portlet light bordered xspadding">
-                        <div class="portlet-title">
+                <div class="portlet-title">
-                            <div class="caption font-green">
+                    <div class="caption font-green">
-                                <i class="icon-pin font-green"></i>
+                        <i class="icon-pin font-green"></i>
-                                <span class="caption-subject bold uppercase">Historial de Modificación</span>
+                        <span class="caption-subject bold uppercase">Historial de Modificación</span>
-                            </div>
+                    </div>
-                            <div class="actions">
+                    <div class="actions">
-                                <div class="btn-group">
+                        <div class="btn-group">
-                                </div>
-                            </div>
-                        </div>
-                        <div class="portlet-body">
-                            <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover GvBitacora  Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
-                                <Columns>
-                                    <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
-                                        <ItemTemplate>
-                                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:BoundField DataField="NombreCompleto" HeaderText="Nombre" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Asistencia" HeaderText="Asistencia" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Descripcion" HeaderText="Motivo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                </Columns>
-                            </asp:GridView>
                         </div>
                     </div>
+                </div>
+                <div class="portlet-body">
+                    <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover GvBitacora  Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
+                        <Columns>
+                            <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
+                                <ItemTemplate>
+                                    <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:BoundField DataField="NombreCompleto" HeaderText="Nombre" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Asistencia" HeaderText="Asistencia" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Descripcion" HeaderText="Motivo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                        </Columns>
+                    </asp:GridView>
+                </div>
+            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <div id="divDetallesDia" class="modal ADS fade" role="dialog">
@@ -257,43 +258,43 @@
                                 </asp:GridView>
                             </div>
                         </div>
-                                <asp:GridView ID="GvAsistenciaUp" runat="server" DataKeyNames="CveAsistenciaDetalle,CveAsistenciasInasistencias,CvePersonal,CveSubProyecto,CveProyecto,CveTurno,Fecha" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false" OnRowDataBound="GvAsistenciaUp_RowDataBound"
+                        <asp:GridView ID="GvAsistenciaUp" runat="server" DataKeyNames="CveAsistenciaDetalle,CveAsistenciasInasistencias,CvePersonal,CveSubProyecto,CveProyecto,CveTurno,Fecha" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false" OnRowDataBound="GvAsistenciaUp_RowDataBound"
-                                    CssClass="  table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
+                            CssClass="  table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
-                                    <Columns>
+                            <Columns>
-                                        <asp:TemplateField HeaderText="Turno" ItemStyle-HorizontalAlign="Left" Visible="true" HeaderStyle-Width="80px">
+                                <asp:TemplateField HeaderText="Turno" ItemStyle-HorizontalAlign="Left" Visible="true" HeaderStyle-Width="80px">
-                                            <ItemTemplate>
+                                    <ItemTemplate>
-                                                <asp:Label runat="server" Text='<%#  Eval("Turno")  %>'></asp:Label>
+                                        <asp:Label runat="server" Text='<%#  Eval("Turno")  %>'></asp:Label>
-                                            </ItemTemplate>
+                                    </ItemTemplate>
-                                        </asp:TemplateField>
+                                </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="Asistencia" Visible="true" HeaderStyle-Width="100px">
+                                <asp:TemplateField HeaderText="Asistencia" Visible="true" HeaderStyle-Width="100px">
-                                            <ItemTemplate>
+                                    <ItemTemplate>
-                                                    <asp:DropDownList ID="DdlTipoAsistencias"  runat="server" CssClass="select2me form-control" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias"></asp:DropDownList>
+                                        <asp:DropDownList ID="DdlTipoAsistencias" runat="server" CssClass="select2me form-control" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias"></asp:DropDownList>
-                                            </ItemTemplate>
+                                    </ItemTemplate>
-                                        </asp:TemplateField> 
+                                </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="Centro de costos" Visible="true" HeaderStyle-Width="150px">
+                                <asp:TemplateField HeaderText="Centro de costos" Visible="true" HeaderStyle-Width="150px">
-                                            <ItemTemplate>
+                                    <ItemTemplate>
 
-                                                <asp:Panel ID="PnlProyecto"  runat="server">
+                                        <asp:Panel ID="PnlProyecto" runat="server">
-                                                    <div class="form-group form-md-line-input input-iconright">
+                                            <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:DropDownList ID="DdlAsisProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
+                                                <asp:DropDownList ID="DdlAsisProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
-                                                            <asp:ListItem  Text="Seleccione" Value="-1"></asp:ListItem>
+                                                    <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
-                                                        </asp:DropDownList>
+                                                </asp:DropDownList>
-                                                        <asp:Label ID="LblAsisProyecto" AssociatedControlID="DdlAsisProyecto" runat="server" Text="Proyecto:"></asp:Label>
+                                                <asp:Label ID="LblAsisProyecto" AssociatedControlID="DdlAsisProyecto" runat="server" Text="Proyecto:"></asp:Label>
-                                                    </div>
+                                            </div>
-                                                </asp:Panel>
+                                        </asp:Panel>
-                                                        <asp:DropDownList ID="DdlAsisSubProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
+                                        <asp:DropDownList ID="DdlAsisSubProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
-                                                            <asp:ListItem  Text="Todos" Value="-1"></asp:ListItem>
+                                            <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                                        </asp:DropDownList>
+                                        </asp:DropDownList>
-                                            </ItemTemplate>
+                                    </ItemTemplate>
-                                        </asp:TemplateField>
+                                </asp:TemplateField>
-                                        
+
-                                        <asp:TemplateField HeaderText="Motivo" Visible="true" HeaderStyle-Width="300px">
+                                <asp:TemplateField HeaderText="Motivo" Visible="true" HeaderStyle-Width="300px">
-                                            <ItemTemplate>
+                                    <ItemTemplate>
-                                                <asp:TextBox ID="TxtMotivo" CssClass="form-control" TextMode="MultiLine" rows="2" runat="server"></asp:TextBox>
+                                        <asp:TextBox ID="TxtMotivo" CssClass="form-control" TextMode="MultiLine" Rows="2" runat="server"></asp:TextBox>
-                                            </ItemTemplate>
+                                    </ItemTemplate>
-                                        </asp:TemplateField>
+                                </asp:TemplateField>
-                                    </Columns>
+                            </Columns>
-                                </asp:GridView>
+                        </asp:GridView>
                         <%-- <table style="width: 100%">
                             <tr>
                                 <td style="width: 50%; vertical-align: top!important">
@@ -349,6 +350,10 @@
                         <h4 class="modal-title">Agregar registro</h4>
                     </div>
                     <div class="modal-body">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlChecador" runat="server" CssClass="select2me form-control" Width="100%" DataTextField="Checador" DataValueField="CveChecador"></asp:DropDownList>
+                            <asp:Label runat="server" AssociatedControlID="DdlTipoAsistencias" Text="Asistencia"></asp:Label>
+                        </div>
                         <div runat="server" id="PnlConceptoPersonal" class="form-group form-md-line-input input-iconright">
                             <asp:DropDownList ID="DdlmcPersonal" DataTextField="CodigoNombreCompleto" DataValueField="CvePersonal" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control select2me">
                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -367,14 +372,10 @@
                             <div class="col-md-2">
                                 <label style="top: 0; margin-bottom: 0; font-size: 13px; color: #888888; display: block;">Segundos</label>
                                 <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block; padding-left: 0px;">
-                                    <asp:TextBox ID="TxtSegundos" runat="server" CssClass="form-control input-sm " CausesValidation="true" MaxLength="18" ></asp:TextBox>
+                                    <asp:TextBox ID="TxtSegundos" runat="server" CssClass="form-control input-sm " CausesValidation="true" MaxLength="18"></asp:TextBox>
                                 </div>
                             </div>
                             <div class="col-md-4">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlChecador" runat="server" CssClass="select2me form-control" Width="100%" DataTextField="Checador" DataValueField="CveChecador"></asp:DropDownList>
-                                    <asp:Label runat="server" AssociatedControlID="DdlTipoAsistencias" Text="Asistencia"></asp:Label>
-                                </div>
                             </div>
                         </div>
                         <div class="text-right">

Nomina/MovimientosSUA.aspx.cs

@@ -9,6 +9,7 @@ using Extensiones;
 
 public partial class Nomina_MovimientosSUA : ClsPaginas
 {
+     
 
     private DataTable dtMovtosSUA
     {

Nomina/Nomina.aspx

@@ -704,8 +704,9 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
+    
 
-
+    <asp:Button ID="BtnImprimirsobrereciboSimula" OnClick="BtnImprimirsobrereciboSimula_Click" UseSubmitBehavior="false" runat="server" Text="Imprimir" CssClass="btn btn-primary hidden" />
     <asp:Button ID="BtnImprimirsobrerecibo" OnClick="BtnImprimirsobrerecibo_Click" UseSubmitBehavior="false" runat="server" Text="Imprimir" CssClass="btn btn-primary hidden" />
     <div id="ModalConceptos" class="modal ADS fade" role="dialog">
 
@@ -851,12 +852,12 @@
                                                         <li>
                                                             <asp:LinkButton ID="LnkCalculoHorasExtras" OnClick="LnkCalculoHorasExtras_Click" Text="<i class='icon-bulb'></i> Calculo horas extras" runat="server"></asp:LinkButton>
                                                         </li>
-                                                        <li>
+                                                       <%-- <li>
                                                             <asp:LinkButton ID="LnkCalculoSubsidio" OnClick="LnkCalculoSubsidio_Click" Text="<i class='icon-bulb'></i> Calculo Subsidio" runat="server"></asp:LinkButton>
                                                         </li>
                                                         <li>
                                                             <asp:LinkButton ID="LnkCalculoISR" OnClick="LnkCalculoISR_Click" Text="<i class='icon-bulb'></i> Calculo ISR" runat="server"></asp:LinkButton>
-                                                        </li>
+                                                        </li>--%>
                                                     </ul>
                                                 </div>
                                             </div>
@@ -2708,15 +2709,16 @@
                     </div>
                     <div class="modal-body">
 
-
                         <div class="portlet light  xspadding bordered " id="pnlConceptosSimulador">
                             <div class="portlet-title">
                                 <div class="caption ">
                                     <i class="icon-pin font-yellow-gold"></i>
                                     <span class="caption-subject font-yellow-gold bold uppercase">Sobre Recibo</span>
                                 </div>
-
                                 <div class="actions">
+                                    <div class="btn-group">
+                                                    <a onclick="$('#C_BtnImprimirsobrereciboSimula').click()" class="btn yellow-gold">Imprimir</a>
+                                    </div>
                                     <div class="btn-group">
                                     </div>
                                 </div>

Nomina/Nomina.aspx.cs

@@ -195,7 +195,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         {
             DmodalCancelartimbre.Visible = (UsuarioActual.CveUsuario == 100);
             LnkOpenCancelarTimbre.Visible = (UsuarioActual.CveUsuario == 100);
-            LnkVerCalculoISR.Visible = (UsuarioActual.CveUsuario == 100);
+            LnkVerCalculoISR.Visible = (UsuarioActual.CveUsuario == 100 || UsuarioActual.CveEmpresa ==119);
             TxtPeriodo.Text = $"{DateTime.Now:yyyyMM}";
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto);
             CargarCentrosDeCosto(DdlPRProyecto, DdlPRSubProyecto, LblPRProyecto, LblPRSubProyeccto);
@@ -5620,7 +5620,59 @@ public partial class Nomina_Nomina2 : ClsPaginas
         UpSimulador.Update();
     }
 
+    #region "Propiedades Simula"
 
+    private DataTable dtPeriodoSimula
+    {
+        get
+        {
+            if (ViewState["dtPeriodoSimula"] == null) { return null; }
+            else { return (DataTable)ViewState["dtPeriodoSimula"]; }
+        }
+
+        set { ViewState["dtPeriodoSimula"] = value; }
+    }
+    private DataTable dtasistenciaSimula
+    {
+        get
+        {
+            if (ViewState["dtasistenciaSimula"] == null) { return null; }
+            else { return (DataTable)ViewState["dtasistenciaSimula"]; }
+        }
+
+        set { ViewState["dtasistenciaSimula"] = value; }
+    }
+    private DataTable dtConceptosSimula
+    {
+        get
+        {
+            if (ViewState["dtConceptosSimula"] == null) { return null; }
+            else { return (DataTable)ViewState["dtConceptosSimula"]; }
+        }
+
+        set { ViewState["dtConceptosSimula"] = value; }
+    }
+    private DataTable dtempleadosSimula
+    {
+        get
+        {
+            if (ViewState["dtempleadosSimula"] == null) { return null; }
+            else { return (DataTable)ViewState["dtempleadosSimula"]; }
+        }
+
+        set { ViewState["dtempleadosSimula"] = value; }
+    }
+    private DataTable dtempleadosConceptosSimula
+    {
+        get
+        {
+            if (ViewState["dtempleadosConceptosSimula"] == null) { return null; }
+            else { return (DataTable)ViewState["dtempleadosConceptosSimula"]; }
+        }
+
+        set { ViewState["dtempleadosConceptosSimula"] = value; }
+    }
+    #endregion
     protected void LnkSimularXNeto_Click(object sender, EventArgs e)
     {
         int CveProyecto = -1;
@@ -5638,11 +5690,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
         bool ismayor = false;
         bool isfirst = true;
         bool continuarV = true;
-        DataTable dtPeriodo = new DataTable();
-        DataTable dtasistencia = new DataTable();
-        DataTable dtConceptos = new DataTable();
-        DataTable dtempleados = new DataTable();
-        DataTable dtempleadosConceptos = new DataTable();
         bool continuar = false;
         using (ClsNominas objnom = new ClsNominas())
         {
@@ -5652,13 +5699,13 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador, -1, 1, SDI)
                     && objnom.DTSetResultados.Tables.Count > 1)
                 {
-                    dtempleados = objnom.DTSetResultados.Tables[3];
+                    dtempleadosSimula = objnom.DTSetResultados.Tables[3];
-                    dtempleadosConceptos = objnom.DTSetResultados.Tables[4];
+                    dtempleadosConceptosSimula = objnom.DTSetResultados.Tables[4];
-                    dtConceptos = objnom.DTSetResultados.Tables[0];
+                    dtConceptosSimula = objnom.DTSetResultados.Tables[0];
-                    dtPeriodo = objnom.DTSetResultados.Tables[1];
+                    dtPeriodoSimula = objnom.DTSetResultados.Tables[1];
-                    dtasistencia = objnom.DTSetResultados.Tables[2];
+                    dtasistenciaSimula = objnom.DTSetResultados.Tables[2];
                     continuar = true;
-                    NetoSimulado = dtempleados.SUM("Total", string.Format("CvePersonal = {0}", 1)).ToString().ToDecimal();
+                    NetoSimulado = dtempleadosSimula.SUM("Total", string.Format("CvePersonal = {0}", 1)).ToString().ToDecimal();
                 }
                 if (continuar)
                 {
@@ -5703,7 +5750,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         if (continuar)
         {
             {
-                DataTable dtx = dtConceptos.Copy();
+                DataTable dtx = dtConceptosSimula.Copy();
                 dtx.Columns.Add("BorradoLogico", typeof(int));
                 DataTable dtper = dtx.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 ");
                 DataTable dtded = dtx.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 ");
@@ -5715,7 +5762,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 {
                     int BorradoLogico = 0;
                     int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-                    if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0))
+                    if (!(dtempleadosSimula.SUM(string.Format("[V_{0}]", CveConcepto)) > 0))
                     {
                         BorradoLogico = 1;
                     }
@@ -5726,7 +5773,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 {
                     int BorradoLogico = 0;
                     int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-                    if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0))
+                    if (!(dtempleadosSimula.SUM(string.Format("[V_{0}]", CveConcepto)) > 0))
                     {
                         BorradoLogico = 1;
                     }
@@ -5737,7 +5784,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 {
                     int BorradoLogico = 0;
                     int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-                    if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0))
+                    if (!(dtempleadosSimula.SUM(string.Format("[V_{0}]", CveConcepto)) > 0))
                     {
                         BorradoLogico = 1;
                     }
@@ -5763,12 +5810,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
                         string Concepto = row["Concepto"].ToString();
                         string Codigo = row["Codigo"].ToString();
                         //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
-                        double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
+                        double Importe = dtempleadosSimula.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
                         nConcepto.CveConceptoP = CveConcepto;
                         nConcepto.ConceptoP = Concepto;
                         nConcepto.NoConceptoP = Codigo;
                         nConcepto.ImporteP = Importe;
-                        nConcepto.ValorP = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
+                        nConcepto.ValorP = dtempleadosSimula.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
                     }
                     if (maxded > i)
                     {
@@ -5777,12 +5824,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
                         string Concepto = row["Concepto"].ToString();
                         string Codigo = row["Codigo"].ToString();
                         //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
-                        double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
+                        double Importe = dtempleadosSimula.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
                         nConcepto.CveConceptoD = CveConcepto;
                         nConcepto.ConceptoD = Concepto;
                         nConcepto.NoConceptoD = Codigo;
                         nConcepto.ImporteD = Importe;
-                        nConcepto.ValorD = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
+                        nConcepto.ValorD = dtempleadosSimula.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
                     }
                     if (maxObl > i)
                     {
@@ -5791,12 +5838,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
                         string Concepto = row["Concepto"].ToString();
                         string Codigo = row["Codigo"].ToString();
                         //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
-                        double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
+                        double Importe = dtempleadosSimula.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
                         nConcepto.CveConceptoO = CveConcepto;
                         nConcepto.ConceptoO = Concepto;
                         nConcepto.NoConceptoO = Codigo;
                         nConcepto.ImporteO = Importe;
-                        nConcepto.ValorO = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
+                        nConcepto.ValorO = dtempleadosSimula.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", 1));
                     }
                     lconc.Add(nConcepto);
                 }
@@ -5807,18 +5854,18 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 SubTotales.CveConceptoP = 0;
                 SubTotales.ConceptoP = "Total Percepciones";
                 SubTotales.EstatusP = -2;
-                SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", 1));
+                SubTotales.ImporteP = dtempleadosSimula.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", 1));
                 ///Alert(SubTotales.ImporteP.ToString());
 
                 SubTotales.CveConceptoD = 0;
                 SubTotales.ConceptoD = "Total Deducciones";
                 SubTotales.EstatusD = -2;
-                SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", 1));
+                SubTotales.ImporteD = dtempleadosSimula.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", 1));
                 SubTotales.CveConceptoD = 0;
 
                 SubTotales.ConceptoO = "Total Obligaciones";
                 SubTotales.EstatusO = -2;
-                SubTotales.ImporteO = dtempleados.SUM("SumaObligaciones", string.Format("CvePersonal = {0}", 1));
+                SubTotales.ImporteO = dtempleadosSimula.SUM("SumaObligaciones", string.Format("CvePersonal = {0}", 1));
 
                 //NConcepto Totales = new NConcepto();
                 //Totales.CveConceptoD = 0;
@@ -5828,7 +5875,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
                 lconc.Add(SubTotales);
                 //lconc.Add(Totales);
-                LblSalarioDiarioSimula.Text = string.Format("${0:N4}", dtempleados.SUM("SalarioDiario", string.Format("CvePersonal = {0}", 1)));
+                LblSalarioDiarioSimula.Text = string.Format("${0:N4}", dtempleadosSimula.SUM("SalarioDiario", string.Format("CvePersonal = {0}", 1)));
                 GvConceptossimulador.DataSource = lconc;
                 GvConceptossimulador.DataBind();
             }
@@ -5836,6 +5883,216 @@ public partial class Nomina_Nomina2 : ClsPaginas
         UpSimulador.Update();
     }
 
+    protected void BtnImprimirsobrereciboSimula_Click(object sender, EventArgs e)
+    {
+        int SRCvePersonal = 1;
+        DataTable dtper = dtConceptosSimula.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 AND SoloVisible =0");
+        DataTable dtded = dtConceptosSimula.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND SoloVisible =0");
+        dtper.Columns.Add("BorradoLogico", typeof(int));
+        dtded.Columns.Add("BorradoLogico", typeof(int));
+
+        foreach (DataRow row in dtper.Rows)
+        {
+            int BorradoLogico = 0;
+            int CveConcepto = row["CveConcepto"].ToString().ToEntero();
+            if (!(dtempleadosSimula.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal)) != 0))
+            {
+                BorradoLogico = 1;
+            }
+            row["BorradoLogico"] = BorradoLogico;
+        }
+        dtper.AcceptChanges();
+        foreach (DataRow row in dtded.Rows)
+        {
+            int BorradoLogico = 0;
+            int CveConcepto = row["CveConcepto"].ToString().ToEntero();
+            if (!(dtempleadosSimula.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal)) != 0))
+            {
+                BorradoLogico = 1;
+            }
+            row["BorradoLogico"] = BorradoLogico;
+        }
+        dtded.AcceptChanges();
+        dtper = dtper.FiltraParametros("BorradoLogico=0");
+        dtded = dtded.FiltraParametros("BorradoLogico=0");
+        int maxper = dtper.Rows.Count;
+        int maxded = dtded.Rows.Count;
+        int i = 0;
+        List<NConcepto> lconc = new List<NConcepto>();
+        for (i = 0; i < maxper || i < maxded; i++)
+        {
+            NConcepto nConcepto = new NConcepto();
+            DataRow row;
+            if (maxper > i)
+            {
+                row = dtper.Rows[i];
+                int CveConcepto = row["CveConcepto"].ToString().ToEntero();
+                string Concepto = row["Concepto"].ToString();
+                string Codigo = row["Codigo"].ToString();
+                //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
+                double Importe = dtempleadosSimula.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
+                nConcepto.CveConceptoP = CveConcepto;
+                nConcepto.ConceptoP = Concepto;
+                nConcepto.NoConceptoP = Codigo;
+                nConcepto.ImporteP = Importe;
+                nConcepto.ValorP = dtempleadosSimula.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
+            }
+            if (maxded > i)
+            {
+                row = dtded.Rows[i];
+                int CveConcepto = row["CveConcepto"].ToString().ToEntero();
+                string Concepto = row["Concepto"].ToString();
+                string Codigo = row["Codigo"].ToString();
+                //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
+                double Importe = dtempleadosSimula.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
+                nConcepto.CveConceptoD = CveConcepto;
+                nConcepto.ConceptoD = Concepto;
+                nConcepto.NoConceptoD = Codigo;
+                nConcepto.ImporteD = Importe;
+                nConcepto.ValorD = dtempleadosSimula.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
+            }
+            lconc.Add(nConcepto);
+        }
+
+        lconc.Add(new NConcepto());
+
+        NConcepto SubTotales = new NConcepto();
+        SubTotales.CveConceptoP = 0;
+        SubTotales.ConceptoP = "Total Percepciones";
+        SubTotales.EstatusP = -2;
+        SubTotales.ImporteP = dtempleadosSimula.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal));
+        ///Alert(SubTotales.ImporteP.ToString());
+
+        SubTotales.CveConceptoD = 0;
+        SubTotales.ConceptoD = "Total Deducciones";
+        SubTotales.EstatusD = -2;
+        SubTotales.ImporteD = dtempleadosSimula.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal));
+
+        NConcepto Totales = new NConcepto();
+        Totales.CveConceptoD = 0;
+        Totales.ConceptoD = "Total";
+        Totales.EstatusD = -3;
+        Totales.ImporteD = dtempleadosSimula.SUM("Total", string.Format("CvePersonal = {0}", SRCvePersonal));
+
+        lconc.Add(SubTotales);
+        lconc.Add(Totales);
+
+        DataTable dtCon = new DataTable();
+        dtCon.Columns.Add(new DataColumn("NoConceptoP", typeof(string)));
+        dtCon.Columns.Add(new DataColumn("ConceptoP", typeof(string)));
+        dtCon.Columns.Add(new DataColumn("LabelValorP", typeof(string)));
+        dtCon.Columns.Add(new DataColumn("CveConceptoP", typeof(int)));
+        dtCon.Columns.Add(new DataColumn("ImporteP", typeof(double)));
+        dtCon.Columns.Add(new DataColumn("ValorP", typeof(double)));
+        dtCon.Columns.Add(new DataColumn("EstatusP", typeof(int)));
+        dtCon.Columns.Add(new DataColumn("isEditedP", typeof(int)));
+        dtCon.Columns.Add(new DataColumn("isOnlyBisibleP", typeof(int)));
+        dtCon.Columns.Add(new DataColumn("NoConceptoD", typeof(string)));
+        dtCon.Columns.Add(new DataColumn("ConceptoD", typeof(string)));
+        dtCon.Columns.Add(new DataColumn("LabelValorD", typeof(string)));
+        dtCon.Columns.Add(new DataColumn("CveConceptoD", typeof(int)));
+        dtCon.Columns.Add(new DataColumn("ImporteD", typeof(double)));
+        dtCon.Columns.Add(new DataColumn("ValorD", typeof(double)));
+        dtCon.Columns.Add(new DataColumn("EstatusD", typeof(int)));
+        dtCon.Columns.Add(new DataColumn("isEditedD", typeof(int)));
+        dtCon.Columns.Add(new DataColumn("isOnlyBisibleD", typeof(int)));
+        foreach (NConcepto itc in lconc)
+        {
+            DataRow dr = dtCon.NewRow();
+            dr["NoConceptoP"] = itc.NoConceptoP;
+            dr["ConceptoP"] = itc.ConceptoP;
+            dr["LabelValorP"] = itc.LabelValorP;
+            dr["CveConceptoP"] = itc.CveConceptoP;
+            dr["ImporteP"] = itc.ImporteP;
+            dr["ValorP"] = itc.ValorP;
+            dr["EstatusP"] = itc.EstatusP;
+            dr["isEditedP"] = itc.isEditedP;
+            dr["isOnlyBisibleP"] = itc.isOnlyBisibleP;
+            dr["NoConceptoD"] = itc.NoConceptoD;
+            dr["ConceptoD"] = itc.ConceptoD;
+            dr["LabelValorD"] = itc.LabelValorD;
+            dr["CveConceptoD"] = itc.CveConceptoD;
+            dr["ImporteD"] = itc.ImporteD;
+            dr["ValorD"] = itc.ValorD;
+            dr["EstatusD"] = itc.EstatusD;
+            dr["isEditedD"] = itc.isEditedD;
+            dr["isOnlyBisibleD"] = itc.isOnlyBisibleD;
+            dtCon.Rows.Add(dr);
+        }
+        dtCon.AcceptChanges();
+        List<Microsoft.Reporting.WebForms.ReportDataSource> lrds = new List<Microsoft.Reporting.WebForms.ReportDataSource>();
+        Microsoft.Reporting.WebForms.ReportDataSource rds = new Microsoft.Reporting.WebForms.ReportDataSource();
+        rds.Name = "DataSet1";
+        rds.Value = dtCon;// lconc;
+        lrds.Add(rds);
+        List<Microsoft.Reporting.WebForms.ReportParameter> parametros = new List<Microsoft.Reporting.WebForms.ReportParameter>();
+
+        string CodigoEmpleado = "";
+        string NombreCompleto = "";
+        string RFC = "";
+        string CURP = "";
+        string TipoPeriodo = "";
+        string NSS = "";
+        string DiasLaborados = "";
+        string DiasFaltados = "";
+        string DiasVacaciones = "";
+        string FechaInicio = "";
+        string FechaFin = "";
+        string DiasRetardos = "";
+        string DiasIncapacidad = "";
+        string SubProyecto = "";
+        string Usuario = UsuarioActual.Nombre;
+        string FolioFiscal = "";
+        {
+            DataRow drow = dtempleadosSimula.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
+            if (drow != null)
+            {
+                SubProyecto = drow["SubProyecto"].ToString();
+                FolioFiscal = string.Format("{0}", drow["FolioFiscal"]);
+                DiasLaborados = string.Format("{0}", drow["DiasLaborados"].ToString().ToEntero());
+                DiasFaltados = string.Format("{0}", drow["DiasFaltados"].ToString().ToEntero());
+                DiasVacaciones = string.Format("{0}", drow["DiasVacaciones"].ToString().ToEntero());
+                FechaInicio = string.Format("{0:dd/MM/yyyy}", drow["FechaInicio"]);
+                FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]);
+                DiasRetardos = string.Format("{0}", drow["DiasRetardos"].ToString().ToEntero());
+                DiasIncapacidad = string.Format("{0}", drow["DiasIncapacidad"].ToString().ToEntero());
+            }
+        }
+        CodigoEmpleado = "0000";
+        NombreCompleto = "Simulacion calculo";
+        RFC = "-";
+        CURP = "-";
+        TipoPeriodo = DdlTipoPeriodoSim.SelectedItem.Text ;
+        NSS = "-";
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasIncapacidad", DiasIncapacidad));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Codigo", CodigoEmpleado));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("NombreCompleto", NombreCompleto));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("RFC", RFC));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("CURP", CURP));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("TipoPeriodo", TipoPeriodo));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("NSS", NSS));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasLaborados", DiasLaborados));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasFaltados", DiasFaltados));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasVacaciones", DiasVacaciones));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FechaInicio", FechaInicio));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FechaFin", FechaFin));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasRetardos", DiasRetardos));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Empresa", UsuarioActual.Empresa.Empresa));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("SubProyecto", SubProyecto));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FechaPago", ""));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FolioFiscal", FolioFiscal));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Usuario", Usuario));
+        //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
+        //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
+        //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
+        string urlfile = System.IO.Path.Combine(string.Format("{0}Formatos/SobreRecibo.rdlc", UsuarioActual.Empresa.Ruta));
+        if (!System.IO.File.Exists(urlfile))
+        {
+            urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreRecibo.rdlc");
+        }
+
+        ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null);
+    }
     protected void DdlTipoPeriodoSim_SelectedIndexChanged(object sender, EventArgs e)
     {
 

OC/OC.aspx.vb

@@ -2742,7 +2742,7 @@ Partial Class OC
                 'ES NUEVO
                 Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
                 Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
-                Alert(Msg.ToString(), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
+                Alert(Msg.ToString(), TipoMensaje.MsgDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
 
 
 
@@ -3116,7 +3116,7 @@ Partial Class OC
                     'Edicion
                     Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
                     Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
-                    Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
+                    Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
 
                 Else
                     Dim ImprimirOC = ""
@@ -3143,7 +3143,7 @@ Partial Class OC
                     'Edicion
                     Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
                     Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
-                    Alert(Msg.ToString(), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
+                    Alert(Msg.ToString(), TipoMensaje.MsgDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
 
 
 

Planeacion/CatSubProyectos.aspx.vb

@@ -846,8 +846,10 @@ Partial Class CatSubProyectos
 
     Private Sub CargaColonia()
         DdlColonia.Items.Clear()
-        If DdlMunicipio.SelectedValue.ToEntero > 0 Then
+        If DdlMunicipio.SelectedValue.ToEntero > 0 Then
-            DdlColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString).FiltraParametros($"CveMunicipio = {DdlMunicipio.SelectedValue.ToEntero}")(0)("ClaveSATMunicipio").ToString)
+
+            DdlColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlPais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString).FiltraParametros($"CveMunicipio = {DdlMunicipio.SelectedValue.ToEntero}")(0)("ClaveSATMunicipio").ToString).FiltraParametros(If(TxtCP.Text.Trim.Length > 0, $"CP =  {TxtCP.Text}", ""))
+
         End If
         DdlColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlColonia.DataBind()

RH/CatPersonal.aspx

@@ -952,16 +952,6 @@
                                                 </div>
                                             </div>
                                             <div class="col-md-4">
-
-                                                <div class="form-group form-md-line-input input-iconright">
-                                                    <asp:DropDownList Width="100%" ID="DdlMedioTransporte" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="MedioTransporte" DataValueField="CveMedioTransporte" ValidationGroup="GrpGuardar">
-                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                        <asp:ListItem Value="1" Text="Hermosillo"></asp:ListItem>
-                                                        <asp:ListItem Value="2" Text="Taxi 1"></asp:ListItem>
-                                                        <asp:ListItem Value="3" Text="Taxi 2"></asp:ListItem>
-                                                    </asp:DropDownList>
-                                                    <asp:Label AssociatedControlID="DdlMedioTransporte" runat="server" Text="Medio transporte:"></asp:Label>
-                                                </div>
                                             </div>
                                             <div class="col-md-5" style="display: none;">
                                                 <div class="form-group form-md-line-input input-iconright">
@@ -1001,7 +991,7 @@
                                                     <i></i>
                                                 </div>
                                                 <div class="form-group form-md-line-input input-iconright">
-                                                    <asp:DropDownList Width="100%" ID="DdlSubProyectoAsignadoAdd" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardarAddS">
+                                                    <asp:DropDownList Width="100%" ID="DdlSubProyectoAsignadoAdd" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlSubProyectoAsignadoAdd_SelectedIndexChanged" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardarAddS">
                                                         <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
                                                     <asp:Label runat="server" ID="LblSubProyectoAsignado" AssociatedControlID="DdlSubProyectoAsignadoAdd">SubProyecto:</asp:Label>
@@ -1114,9 +1104,67 @@
                             </div>
 
                         </div>
-                        <div class="row">
+                        <div class="portlet light bordered xspadding">
-                            <div class="col-md-4">
+                            <div class="portlet-title text-center">
-                                <asp:TextBox ID="TxtFoto" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                                <div class="caption font-green">
+                                    <i class="fa fa-users font-green"></i>
+                                    <span class="caption-subject bold uppercase">Datos </span>
+                                </div>
+                                <div class="actions">
+                                    <div class="btn-group">
+                                    </div>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body form">
+                                <div class="row">
+                                    <div class="col-md-4">
+                                        <asp:TextBox ID="TxtFoto" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                                    </div>
+                                    <div class="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList Width="100%" ID="DdlTipoTrabajador" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true"
+                                                DataTextField="TipoTrabajadorB" DataValueField="CveTipoTrabajador" ValidationGroup="GrpGuardar" OnSelectedIndexChanged="DdlTipoTrabajador_SelectedIndexChanged">
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DdlTipoTrabajador" runat="server" Text="Tipo trabajador:"></asp:Label>
+                                        </div>
+
+
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList Width="100%" ID="DdlMedioTransporte" CssClass="form-control input-sm select2me" runat="server" DataTextField="MedioTransporte" DataValueField="CveMedioTransporte" ValidationGroup="GrpGuardar">
+                                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                <asp:ListItem Value="1" Text="Hermosillo"></asp:ListItem>
+                                                <asp:ListItem Value="2" Text="Taxi-1"></asp:ListItem>
+                                                <asp:ListItem Value="3" Text="Taxi-2"></asp:ListItem>
+                                                <asp:ListItem Value="5" Text="Taxi-3"></asp:ListItem>
+                                                <asp:ListItem Value="4" Text="Taxi-4"></asp:ListItem>
+                                                <asp:ListItem Value="7" Text="Taxi-5"></asp:ListItem>
+                                                <asp:ListItem Value="6" Text="Taxi-6"></asp:ListItem>
+                                                <asp:ListItem Value="8" Text="Costa"></asp:ListItem>
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DdlMedioTransporte" runat="server" Text="Medio transporte:"></asp:Label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-3">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList Width="100%" ID="DDlAgroDepartamento" CssClass="form-control input-sm select2me" runat="server"
+                                                DataTextField="Departamento" DataValueField="CveDepartamento" ValidationGroup="GrpGuardar">
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DDlAgroDepartamento" runat="server" Text="Depto:"></asp:Label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <div style="height: 35px;padding-top: 12px;">
+                                                <asp:CheckBox ID="ChkCharolaForanea" CssClass="chksino " Text=" " runat="server" />
+                                            </div>
+                                            <input type="text" class="form-control hidden" />
+                                            <asp:Label AssociatedControlID="ChkCharolaForanea" runat="server" Text="Charola foraneo"></asp:Label>
+                                        </div>
+
+
+                                    </div>
+                                </div>
                             </div>
                         </div>
                         <div class="text-right">
@@ -1445,9 +1493,9 @@
         function ValidaRFC() {
 
             if (rfcValidoJS(<%= String.Format("$('#{0}').val()", TxtRFC.ClientID) %>)) {
-                alertatoast(5, "RFC valido!", "", 7);
+                alertatoast(5, "Formato de RFC valido!", "", 7);
             } else {
-                alertatoast(8, "RFC invalido!", "", 7)
+                alertatoast(8, "Formato de RFC invalido!", "", 7)
             }
         }
         function rfcValidoJS(rfc, aceptarGenerico = true) {

RH/CatPersonal.aspx.vb

@@ -1136,7 +1136,7 @@ Partial Class RH_CatPersonal
         Dim continuar As Boolean = False
         Dim CvePersonal As Integer = 0
         Using ObjPersonal As New ClsRH()
-
+            ObjPersonal.IniciaTransacSQL()
             If ObjPersonal.AddPersonal("-1", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, "", TxtFechaIngreso.Text.ToDate,
                    DdlTipoPeriodoAdd.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, True, SalarioDiario,
                    SalarioDiario, 0, 0, 0, 15, 25, DdlMetodoPagoAdd.SelectedValue.ToEntero, TxtFechaIngreso.Text.Trim.ToDate, "-1",
@@ -1169,12 +1169,14 @@ Partial Class RH_CatPersonal
 
                 Next
 
-
+                ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
 
                 Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
                 continuar = True
                 ISChange = True
+                ObjPersonal.Commit()
             Else
+                ObjPersonal.RollBack()
                 'Alert("El empleado a sido agregado satisfactoriamente", TipoMensaje.ToastInformacion, "", 0)
             End If
         End Using
@@ -1212,4 +1214,38 @@ Partial Class RH_CatPersonal
         End If
 
     End Sub
+
+    Protected Sub DdlSubProyectoAsignadoAdd_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Using objrh As New ClsRH()
+            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignadoAdd.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
+                Dim drow As DataRow = dt.NewRow()
+                drow("CveTipoTrabajador") = "-1"
+                drow("TipoTrabajadorB") = "Seleccione"
+                dt.Rows.InsertAt(drow, 0)
+                If DdlTipoTrabajador.Items.Count() > 0 Then
+                    DdlTipoTrabajador.SelectedValueExist("-1")
+                End If
+                DdlTipoTrabajador.DataSource = dt
+                DdlTipoTrabajador.DataBind()
+            End If
+        End Using
+    End Sub
+
+    Protected Sub DdlTipoTrabajador_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Using objrh As New ClsRH()
+            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue))
+                Dim drow As DataRow = dt.NewRow()
+                drow("CveDepartamento") = "-1"
+                drow("Departamento") = "Seleccione"
+                dt.Rows.InsertAt(drow, 0)
+                If DDlAgroDepartamento.Items.Count() > 0 Then
+                    DDlAgroDepartamento.SelectedValueExist("-1")
+                End If
+                DDlAgroDepartamento.DataSource = dt
+                DDlAgroDepartamento.DataBind()
+            End If
+        End Using
+    End Sub
 End Class

RH/Personal.aspx

@@ -234,6 +234,26 @@
                                                             <asp:CheckBox ID="CHKRFCValidado" Text=" " CssClass="chksino" runat="server" />
                                                         </div>
                                                     </div>
+                                                    
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList Width="100%" ID="DdlTipoTrabajador" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true"
+                                                DataTextField="TipoTrabajadorB" DataValueField="CveTipoTrabajador" ValidationGroup="GrpGuardar" OnSelectedIndexChanged="DdlTipoTrabajador_SelectedIndexChanged">
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DdlTipoTrabajador" runat="server" Text="Tipo trabajador:"></asp:Label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList Width="100%" ID="DDlAgroDepartamento" CssClass="form-control input-sm select2me" runat="server"
+                                                DataTextField="Departamento" DataValueField="CveDepartamento" ValidationGroup="GrpGuardar">
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DDlAgroDepartamento" runat="server" Text="Depto:"></asp:Label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <div style="height: 35px;padding-top: 12px;">
+                                                <asp:CheckBox ID="ChkCharolaForanea" CssClass="chksino " Text=" " runat="server" />
+                                            </div>
+                                            <input type="text" class="form-control hidden" />
+                                            <asp:Label AssociatedControlID="ChkCharolaForanea" runat="server" Text="Charola foraneo"></asp:Label>
+                                        </div>
                                                 </div>
                                             </div>
                                         </div>
@@ -615,7 +635,7 @@
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:Label runat="server" ID="LblSubProyectoAsignado" CssClass="form-line" for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>" Style="        margin-bottom: unset;
         color: #888888">SubProyecto:  </asp:Label>
-                                                        <asp:DropDownList Width="100%" ID="DdlSubProyectoAsignado" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                                        <asp:DropDownList Width="100%" ID="DdlSubProyectoAsignado" AutoPostBack="True" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator ID="RfvDdlSubProyectoAsignado" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoAsignado" ValidationGroup="GrpGuardar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
@@ -5310,9 +5330,9 @@
         function ValidaRFC() {
 
             if (rfcValidoJS(<%= String.Format("$('#{0}').val()", TxtRFC.ClientID) %>)) {
-                alertatoast(5, "RFC valido!", "", 7);
+                alertatoast(5, "Formato de RFC valido!", "", 7);
             } else {
-                alertatoast(8, "RFC invalido!", "", 7)
+                alertatoast(8, "Formato de RFC invalido!", "", 7)
             }
         }
         function rfcValidoJS(rfc, aceptarGenerico = true) {

RH/Personal.aspx.vb

@@ -817,7 +817,7 @@ Partial Class RH_Personal
             CargaEstadoCivil()
             CargaDepartamento()
             CargaPuestos()
-            CargaEstatusPersonal()
+            CargaEstatusPersonal(1)
             CargaGenero()
             CargaMotivoBaja()
             CargaRuta()
@@ -1020,6 +1020,39 @@ Partial Class RH_Personal
 
 #Region "Carga Combos"
 
+    Public Sub cargatipoTrabajador()
+        Using objrh As New ClsRH()
+            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
+                Dim drow As DataRow = dt.NewRow()
+                drow("CveTipoTrabajador") = "-1"
+                drow("TipoTrabajadorB") = "Seleccione"
+                dt.Rows.InsertAt(drow, 0)
+                If DdlTipoTrabajador.Items.Count() > 0 Then
+                    DdlTipoTrabajador.SelectedValueExist("-1")
+                End If
+                DdlTipoTrabajador.DataSource = dt
+                DdlTipoTrabajador.DataBind()
+            End If
+        End Using
+    End Sub
+
+    Protected Sub cargaagrodeptos()
+        Using objrh As New ClsRH()
+            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue))
+                Dim drow As DataRow = dt.NewRow()
+                drow("CveDepartamento") = "-1"
+                drow("Departamento") = "Seleccione"
+                dt.Rows.InsertAt(drow, 0)
+                If DDlAgroDepartamento.Items.Count() > 0 Then
+                    DDlAgroDepartamento.SelectedValueExist("-1")
+                End If
+                DDlAgroDepartamento.DataSource = dt
+                DDlAgroDepartamento.DataBind()
+            End If
+        End Using
+    End Sub
     Private Sub CargaEscolaridad()
         DdlEscolaridad.DataSource = GlobalDTEscolaridad
         DdlEscolaridad.DataBind()
@@ -1494,7 +1527,7 @@ Partial Class RH_Personal
                     CargaUniformesPersonal()
                 End If
 
-                If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
+                If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154) Then
 
                     LnkSurtir.Visible = True
                     DdlUniforme.Visible = False
@@ -1569,6 +1602,11 @@ Partial Class RH_Personal
                 DdlProyectoAsignado.SelectedValue = ObjPersonal.CveProyecto.ToString()
                 If ObjPersonal.CveProyecto <> -1 Then DdlProyectoAsignado_SelectedIndexChanged(Me, New System.EventArgs())
                 DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString()
+                cargatipoTrabajador()
+                DdlTipoTrabajador.SelectedValueExist(drow("CveTipoTrabajador").ToString())
+                cargaagrodeptos()
+                DDlAgroDepartamento.SelectedValueExist(drow("CveDepartamentoAgropecuaria").ToString())
+                ChkCharolaForanea.Checked = (drow("CharolaForanea").ToString().ToUpper().Contiene("1", "TRUE"))
                 DdlSupervisor.SelectedValue = ObjPersonal.CveSupervisor.ToString()
                 'Carga Nómina
                 TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString
@@ -1783,6 +1821,8 @@ Partial Class RH_Personal
 
                 End If
 
+
+                ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
                 'Agregar Cuentas Bancarias
                 ViewState("CvePersonal") = ObjPersonal.CvePersonal
 
@@ -1852,6 +1892,7 @@ Partial Class RH_Personal
                     ProcesaDTFamiliares(ObjPersonal)
                 End If
 
+                ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
 
                 If Archivo.Exists Then
 
@@ -1944,6 +1985,16 @@ Partial Class RH_Personal
     Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsignado.SelectedIndexChanged
         CargaSubProyectoAsignado()
     End Sub
+    Protected Sub DdlSubProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlSubProyectoAsignado.SelectedIndexChanged
+        cargatipoTrabajador()
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub DdlTipoTrabajador_SelectedIndexChanged(sender As Object, e As EventArgs)
+        cargaagrodeptos()
+        UpDatos.Update()
+    End Sub
+
 
     Protected Sub DdlProyectoAsistenciaC_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsistenciaC.SelectedIndexChanged
         CargaSubProyectoAsistenciaC()
@@ -5296,7 +5347,7 @@ Partial Class RH_Personal
 
     Private Sub CargaUniformesPersonal()
 
-        If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
+        If Not UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 153, 154) Then
 
             GvUniforme.Visible = True
             GvUniformesResguardo.Visible = False

Ventas/CatMetasVendedores.aspx.vb

@@ -46,12 +46,7 @@ Partial Class CatMetasVendedores
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        Dim ObjPS As New ClsProductosServicios
+        DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
-        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
-            DdlMarca.DataSource = ObjPS.DtResultados
-        End If
-        ObjPS.Dispose()
-
         DdlMarca.DataBind()
         DdlMarca.Items.Insert(0, New ListItem("Todas", "-1"))
 

Ventas/Clientes.aspx

@@ -791,7 +791,8 @@
                                         </div>
                                     </div>
                                     <div class="portlet-body form">
-                                        <asp:GridView ID="GvDireccionesEnvio" runat="server" Width="100%" GridLines="None" DataKeyNames="CveDireccionEnvio,CveCliente,CveClienteSucursal,EnvioDireccion,EnvioColonia,EnvioCiudad,EnvioEstado,EnvioCP,CveUsuario,Estatus,EnvioNoExt,EnvioNoInt,EnvioContacto,EnvioDepartamento,EnvioTel"
+                                        <asp:GridView ID="GvDireccionesEnvio" runat="server" Width="100%" GridLines="None" 
+                                            DataKeyNames="CveDireccionEnvio,CveCliente,CveClienteSucursal,EnvioDireccion,EnvioColonia,EnvioCiudad,EnvioEstado,EnvioCP,CveUsuario,Estatus,EnvioNoExt,EnvioNoInt,EnvioContacto,EnvioDepartamento,EnvioTel,CvePais,CveEstado,CveMunicipio,CveLocalidad,CveColonia"
                                             CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de direcciones de envio">
                                             <Columns>
                                                 <asp:TemplateField>
@@ -5038,26 +5039,121 @@
                                         </div>
                                     </div>
                                 </div>
-                                <div class="form-group form-md-line-input input-iconright">
+
-                                    <asp:TextBox ID="TxtEnvioColonia" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                <div class="row ">
-                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator11" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioColonia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                    <div class="col-md-6">
-                                    <label for="<%= TxtEnvioColonia.ClientID.ToString()%>">Colonia:</label>
+
+                                         <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtEnvioEstado" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator13" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioEstado" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= TxtEnvioEstado.ClientID.ToString()%>">Estado:</label>
+                                        </div>                                      
+
+
+                                    </div>
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtEnvioCiudad" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator12" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioCiudad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= TxtEnvioCiudad.ClientID.ToString()%>">Ciudad:</label>
+                                        </div>
+                                    </div>
+
                                 </div>
-                                <div class="form-group form-md-line-input input-iconright">
+
-                                    <asp:TextBox ID="TxtEnvioCiudad" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+
-                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator12" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioCiudad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                <div class="row ">
-                                    <label for="<%= TxtEnvioCiudad.ClientID.ToString()%>">Ciudad:</label>
+                                    <div class="col-md-6">
-                                </div>
+                                       <div class="form-group form-md-line-input input-iconright">
-                                <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtEnvioColonia" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
-                                    <asp:TextBox ID="TxtEnvioEstado" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator11" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioColonia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
-                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator13" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioEstado" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= TxtEnvioColonia.ClientID.ToString()%>">Colonia:</label>
-                                    <label for="<%= TxtEnvioEstado.ClientID.ToString()%>">Estado:</label>
+                                        </div>
-                                </div>
+
-                                <div class="form-group form-md-line-input input-iconright">
+                                    </div>
-                                    <asp:TextBox ID="TxtEnvioCP" runat="server" Width="100%" CssClass="form-control" CausesValidation="true" TextMode="Number"></asp:TextBox>
+                                    <div class="col-md-6">                                        
-                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator14" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioCP" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código Postal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+
-                                    <label for="<%= TxtEnvioCP.ClientID.ToString()%>">Código Postal:</label>
+
+                                         <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtEnvioCP" runat="server" Width="100%" CssClass="form-control" CausesValidation="true" TextMode="Number"  onblur="DirclienteValidaCodigoPostal()" onkeypress="if(event.key === 'Enter'){return false;}"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator14" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioCP" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código Postal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                            <label for="<%= TxtEnvioCP.ClientID.ToString()%>">Código Postal:</label>
+                                        </div>
+                                    </div>
+
                                 </div>
+
+
+                                  <div class="row">
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:DropDownList ID="DdlDirClientePais" AutoPostBack="true" AppendDataBoundItems="true" OnSelectedIndexChanged="DdlDirClientePais_SelectedIndexChanged" runat="server" DataTextField="ClaveSATPaisDescripcion" DataValueField="CvePais" CssClass="form-control select2me" Width="100%"  CausesValidation="true" >
+                                                        </asp:DropDownList>
+                                                        <asp:RequiredFieldValidator   ID="RFVDdlDirClientePais" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClientePais" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                                        <label for="<%= DdlDirClientePais.ClientID.ToString()%>">Pais:</label>
+                                                        <i></i>
+                                                    </div>
+                                                </div>
+
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:DropDownList ID="DdlDirClienteEstado" AutoPostBack="true" AppendDataBoundItems="true" OnSelectedIndexChanged="DdlDirClienteEstado_SelectedIndexChanged" runat="server" DataTextField="ClaveSATEstadoNombreEstado" DataValueField="CveEstado" CssClass="form-control select2me" Width="100%"  CausesValidation="true" >
+                                                        </asp:DropDownList>
+                                                        <asp:RequiredFieldValidator   ID="RFVDdlDirClienteEstado" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClienteEstado" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                                        <label for="<%= DdlDirClienteEstado.ClientID.ToString()%>">Estado:</label>
+                                                        <i></i>
+                                                    </div>
+                                                </div>
+                                            </div>
+
+
+                                            <div class="row">
+
+
+                                                <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:DropDownList ID="DdlDirClienteMunicipio" AutoPostBack="true" AppendDataBoundItems="true" OnSelectedIndexChanged="DdlDirClienteMunicipio_SelectedIndexChanged" runat="server" DataTextField="ClaveSATMunicipioDescripcion" DataValueField="CveMunicipio" CssClass="form-control select2me" Width="100%"  CausesValidation="true" >                                                            
+                                                        </asp:DropDownList>
+                                                        <asp:RequiredFieldValidator   ID="RFVDdlDirClienteMunicipio" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClienteMunicipio" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Municipio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                                        <label for="<%= DdlDirClienteMunicipio.ClientID.ToString()%>">Municipio:</label>
+                                                        <i></i>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-6">
+
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:DropDownList runat="server" ID="DdlDirClienteLocalidad" CssClass="form-control select2me" DataValueField="CveLocalidad" DataTextField="NombreLocalidad" Width="100%"  CausesValidation="true" ></asp:DropDownList>
+                                                        <asp:RequiredFieldValidator    ID="RfvDdlDirClienteLocalidad" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClienteLocalidad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                                        <label for="<%= DdlDirClienteLocalidad.ClientID.ToString()%>">Localidad:</label>
+                                                        <i></i>
+                                                    </div>
+
+                                                </div>
+
+                                            </div>
+
+                                             <div class="row">
+                                                 <div class="col-md-6">
+
+                                                      <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:DropDownList ID="DdlDirClienteColonia" runat="server" AppendDataBoundItems="true" DataTextField="ClaveSATColoniaNombreAsentamiento" DataValueField="CveColonia" CssClass="form-control select2me" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlDirClienteColonia_SelectedIndexChanged"  CausesValidation="true" >
+                                                        </asp:DropDownList>
+                                                          <asp:RequiredFieldValidator    ID="RFVDdlDirClienteColonia" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlDirClienteColonia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                                        <label for="<%= DdlDirClienteColonia.ClientID.ToString()%>">Colonia:</label>
+                                                          <i></i>
+                                                    </div>
+
+                                                 </div>
+                                              </div>
+
+
+                              
+                               
+                              
+
+                               
+
+
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtEnvioTel" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
                                     <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator17" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioTel" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
@@ -5078,6 +5174,13 @@
                                     <asp:TextBox ID="TxtDepartamento" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
                                     <label for="<%= TxtDepartamento.ClientID.ToString()%>">Departamento:</label>
                                 </div>--%>
+
+
+
+                                  <div style="display:none">
+                                    <asp:Button ID="BtnDirClienteValidar" ClientIDMode="Static" runat="server" CssClass="btn btn-primary" OnClick="BtnDirClienteValidar_Click" Text="validar" /> 
+                                  </div> 
+
                             </ContentTemplate>
                         </asp:UpdatePanel>
                         <div class="modal-footer">
@@ -7306,7 +7409,11 @@
 
 
 
-  
+        function DirclienteValidaCodigoPostal() {
+
+            $("#BtnDirClienteValidar").click();
+
+        }
 
        
 

Ventas/Clientes.aspx.vb

@@ -684,7 +684,7 @@ Partial Class Clientes
             CreaDTVentas()
             CreaDtPago()
             RegistraScript("CargaHeader();")
-
+            CargaCombosDirecionesClientesSAT()
 
 
             If UsuarioActual.Empresa.CvePlataforma = 3 Then  'SI ES USUARIO GPS
@@ -4347,7 +4347,112 @@ Partial Class Clientes
 #End Region
 
 #Region "D I R E C C I O N   E N V I O "
-    Public Sub Edit_Click(sender As Object, e As EventArgs)
+
+    Private Sub CargaCombosDirecionesClientesSAT()
+        CargaDirClientePais()
+        CargaDirClienteEstado()
+        CargaDirClienteMunicipio()
+        CargaDirClienteLocalidad()
+        CargaDirClienteColonia()
+    End Sub
+
+
+
+    Private Sub CargaDirClientePais()
+
+        DdlDirClientePais.DataSource = GlobalDTPais()
+        DdlDirClientePais.DataBind()
+        DdlDirClientePais.SelectedValueExist("151")
+    End Sub
+
+    Private Sub CargaDirClienteEstado()
+        DdlDirClienteEstado.Items.Clear()
+        If DdlDirClientePais.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteEstado.DataSource = GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString)
+        End If
+        DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteEstado.DataBind()
+    End Sub
+
+    Private Sub CargaDirClienteMunicipio()
+        DdlDirClienteMunicipio.Items.Clear()
+        If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteMunicipio.DataSource = GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlDirClienteEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString)
+        End If
+        DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteMunicipio.DataBind()
+    End Sub
+
+    Private Sub CargaDirClienteColonia()
+        DdlDirClienteColonia.Items.Clear()
+        If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteColonia.DataSource = GlobalDTColonia(GlobalDTMunicipio(GlobalDTEstado(GlobalDTPais.FiltraParametros($"CvePais = {DdlDirClientePais.SelectedValue.ToEntero}")(0)("ClaveSATPais").ToString).FiltraParametros($"CveEstado = {DdlDirClienteEstado.SelectedValue.ToEntero}")(0)("ClaveSATEstado").ToString).FiltraParametros($"CveMunicipio = {DdlDirClienteMunicipio.SelectedValue.ToEntero}")(0)("ClaveSATMunicipio").ToString).FiltraParametros(If(TxtEnvioCP.Text.Trim.Length > 0, $"CP = {TxtEnvioCP.Text}", ""))
+        End If
+        DdlDirClienteColonia.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlDirClienteColonia.DataBind()
+    End Sub
+
+
+    Protected Sub CargaDirClienteLocalidad()
+
+        DdlDirClienteLocalidad.Items.Clear()
+        If DdlEstado.SelectedValue.ToEntero > 0 Then
+            DdlDirClienteLocalidad.DataSource = GlobalDTLocalidad(DdlDirClienteEstado.SelectedValue.ToEntero, DdlDirClienteMunicipio.SelectedValue.ToEntero)
+            DdlDirClienteLocalidad.DataBind()
+        End If
+
+        DdlDirClienteLocalidad.Items.Insert(0, New ListItem("Seleccione una", "-1"))
+
+    End Sub
+
+
+    Protected Sub DdlDirClientePais_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaDirClienteEstado()
+        CargaDirClienteMunicipio()
+        CargaDirClienteColonia()
+        CargaDirClienteLocalidad()
+    End Sub
+    Protected Sub DdlDirClienteEstado_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaDirClienteMunicipio()
+        CargaDirClienteColonia()
+        CargaDirClienteLocalidad()
+    End Sub
+
+    Protected Sub DdlDirClienteMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaDirClienteColonia()
+        CargaDirClienteLocalidad()
+    End Sub
+
+
+    Protected Sub BtnDirClienteValidar_Click(sender As Object, e As EventArgs)
+        DirClientevalidaCodigoPostal()
+    End Sub
+
+
+    Protected Sub DdlDirClienteColonia_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DirClientevalidaCodigoPostal()
+    End Sub
+
+    Private Sub DirClientevalidaCodigoPostal()
+
+
+
+        Dim CPTxt As Integer = TxtEnvioCP.Text.ToEntero()
+
+        Dim CveColonia As Integer = DdlDirClienteColonia.SelectedValue.ToEntero
+
+        If CPTxt > 0 And CveColonia > 0 Then
+            Dim CP As Integer = GlobalDTColonia("-1").FiltroPrimeroValor("CP", $"CveColonia = {CveColonia}").ToEntero
+            If CPTxt <> CP Then
+                Alert("El codigo postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+
+    End Sub
+
+
+    Public Sub Edit_Click(sender As Object, e As EventArgs)
+
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         CveDireccionEnvio = GvRow.DataKey("CveDireccionEnvio").ToEntero()
         TxtEnvioDireccion.Text = GvRow.DataKey("EnvioDireccion")
@@ -4360,6 +4465,18 @@ Partial Class Clientes
         'TxtDepartamento.Text = GvRow.DataKey("EnvioDepartamento")
         TxtEnvioCP.Text = GvRow.DataKey("EnvioCP")
         TxtEnvioTel.Text = GvRow.DataKey("EnvioTel")
+
+        DdlDirClientePais.SelectedValueExist(GvRow.DataKey("CvePais"))
+        CargaDirClienteEstado()
+        DdlDirClienteEstado.SelectedValueExist(GvRow.DataKey("CveEstado"))
+        CargaDirClienteMunicipio()
+        DdlDirClienteMunicipio.SelectedValueExist(GvRow.DataKey("CveMunicipio"))
+        CargaDirClienteColonia()
+        DdlDirClienteLocalidad.SelectedValueExist(GvRow.DataKey("CveLocalidad"))
+        CargaDirClienteLocalidad()
+
+        DdlDirClienteColonia.SelectedValueExist(GvRow.DataKey("CveColonia"))
+
         ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString() = "True", True, False)
         If GvRow.DataKey("CveClienteSucursal").ToEntero() > 0 Then DdlClienteSucursalEnvio.SelectedValueExist(GvRow.DataKey("CveClienteSucursal")) Else DdlClienteSucursalEnvio.SelectedValueExist("-1")
         UpAddDireccion.Update()
@@ -4371,14 +4488,16 @@ Partial Class Clientes
         Dim Estatus = If(ChkEstatus.Checked, 1, 0)
 
         If CveDireccionEnvio < 0 Then
-            CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""))
+            CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
+                                                              CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero)
 
             If CveDireccionEnvio < 0 Then
                 TieneError = True
             End If
         Else
 
-            If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", "")) Then
+            If Not ObjClientes.DireccionEnvioUpdate(CveCliente, TxtEnvioDireccion.Text.Trim, TxtEnvioNoExt.Text.Trim, TxtEnvioNoInt.Text.Trim, TxtEnvioColonia.Text.Trim, TxtEnvioCiudad.Text.Trim, TxtEnvioEstado.Text.Trim, TxtEnvioCP.Text.ToEntero(), TxtEnvioContacto.Text.Trim, UsuarioActual.CveUsuario, Estatus, CveDireccionEnvio, CveClienteSucursal:=DdlClienteSucursalEnvio.SelectedValue.ToEntero(), EnvioTel:=TxtEnvioTel.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
+                                                    CvePais:=DdlDirClientePais.SelectedValue.ToEntero, CveEstado:=DdlDirClienteEstado.SelectedValue.ToEntero, CveMunicipio:=DdlDirClienteMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlDirClienteLocalidad.SelectedValue.ToEntero, CveColonia:=DdlDirClienteColonia.SelectedValue.ToEntero) Then
                 TieneError = True
             End If
 
@@ -4403,7 +4522,16 @@ Partial Class Clientes
         'TxtDepartamento.Text = ""
         TxtEnvioCP.Text = ""
         TxtEnvioTel.Text = ""
-        DdlClienteSucursalEnvio.SelectedValue = "-1"
+        DdlClienteSucursalEnvio.SelectedValue = "-1"
+
+        CargaCombosDirecionesClientesSAT()
+
+        'DdlDirClientePais.SelectedValueExist(-1)
+        'DdlDirClienteEstado.SelectedValueExist(-1)
+        'DdlDirClienteMunicipio.SelectedValueExist(-1)
+        'DdlDirClienteLocalidad.SelectedValueExist(-1)
+        'DdlDirClienteColonia.SelectedValueExist(-1)
+
         UpAddDireccion.Update()
         RegistraScript("$('#divAddDireccionEnvio').modal();")
     End Sub

Ventas/MetasVendedores.aspx

@@ -124,7 +124,7 @@
                         </div>
                         <label class="col-md-1 text-right">Cliente: </label>
                         <div class="col-md-3">
-                            <asp:DropDownList ID="DdlCliente" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCliente" DataTextField="NombreComercial"></asp:DropDownList>
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>                            
                         </div>
                         <label class="col-md-1 text-right">Marca: </label>
                         <div class="col-md-3">

Ventas/MetasVendedores.aspx.vb

@@ -51,16 +51,21 @@ Partial Class MetasVendedores
         DdlClasificacion2.DataBind()
         DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlCliente.DataBind()
+        'DdlCliente.DataBind()
-        DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub CargarDatosReporte()
+        Dim CveCliente As Integer = -1
+        If DdlClientes.SelectedValue.ToEntero > 0 Then
+            CveCliente = DdlClientes.SelectedValue.ToEntero
+        End If
+
         Dim ObjVentas As New ClsVentas
         If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
                                            DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
-                                           DdlSubProyectoFiltro.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then
+                                           DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlGrupo.SelectedValue.ToEntero) Then
             GV.DataSource = ObjVentas.DtResultados
             DtDatos = ObjVentas.DtResultados
         End If

vwd.webinfo

@@ -340,6 +340,10 @@
     
   
     
+  
+    
+  
+